Comments on: Emacs Lisp vs. Scheme: scoping and globals http://www.omnigia.com/news/2007/08/07/emacs-lisp-scoping-globals/ Scheme, web applications, tech Fri, 05 Sep 2008 19:26:56 +0000 http://wordpress.org/?v=2.0.11 by: Dan Muresan http://www.omnigia.com/news/2007/08/07/emacs-lisp-scoping-globals/#comment-1520 Tue, 07 Aug 2007 16:13:24 +0000 http://www.omnigia.com/news/2007/08/07/emacs-lisp-scoping-globals/#comment-1520 Right, but I was talking about automatic translation from Scheme to Lisp (as CPSCM does). Right, but I was talking about automatic translation from Scheme to Lisp (as CPSCM does).

]]> by: Pascal Costanza http://www.omnigia.com/news/2007/08/07/emacs-lisp-scoping-globals/#comment-1517 Tue, 07 Aug 2007 11:24:47 +0000 http://www.omnigia.com/news/2007/08/07/emacs-lisp-scoping-globals/#comment-1517 Try this: (defmacro deflexrec (&body bindings) `(progn ,@(loop for var in bindings by #'cddr collect `(define-symbol-macro ,var (symbol-value ',var))) (setq ,@bindings) (values))) (deflexrec f (lambda (x) (funcall g (- x 1))) g (lambda (x) (if (> x 0) (funcall f x) 0))) Try this:

(defmacro deflexrec (&body bindings)
`(progn
,@(loop for var in bindings by #’cddr
collect `(define-symbol-macro ,var (symbol-value ‘,var)))
(setq ,@bindings)
(values)))

(deflexrec
f (lambda (x) (funcall g (- x 1)))
g (lambda (x) (if (> x 0) (funcall f x) 0)))

]]>