Mercurial > emacs

changeset 67650:bb585f2cd98c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cl-macroexpand-all): Fix code-walk for lexical-let when encountering ((lambda (...) ...) ...).
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 19 Dec 2005 02:17:38 +0000
parents 4666e86efb1a
children 915b73d58795
files lisp/emacs-lisp/cl-extra.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-extra.el	Sun Dec 18 18:03:57 2005 +0000
+++ b/lisp/emacs-lisp/cl-extra.el	Mon Dec 19 02:17:38 2005 +0000
@@ -743,6 +743,11 @@
 	 (let* ((args (cl-macroexpand-body (cdr form) env)) (p args))
 	   (while (and p (symbolp (car p))) (setq p (cddr p)))
 	   (if p (cl-macroexpand-all (cons 'setf args)) (cons 'setq args))))
+        ((consp (car form))
+         (cl-macroexpand-all (list* 'funcall
+                                    (list 'function (car form))
+                                    (cdr form))
+                             env))
 	(t (cons (car form) (cl-macroexpand-body (cdr form) env)))))
 
 (defun cl-macroexpand-body (body &optional env)