procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cl-macroexpand-all): Fix code-walk for

Browse source 
lexical-let when encountering ((lambda (...) ...) ...).
This commit is contained in:
Stefan Monnier 2005-12-19 02:17:38 +00:00
parent 0b0d984ecb
commit 61f03d6f8f
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/cl-extra.el
View file

@ -743,6 +743,11 @@ This also does some trivial optimizations to make the form prettier."
(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)