[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-extra.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/cl-extra.el
diff -u emacs/lisp/emacs-lisp/cl-extra.el:1.31 
emacs/lisp/emacs-lisp/cl-extra.el:1.32
--- emacs/lisp/emacs-lisp/cl-extra.el:1.31      Sat Aug  6 17:08:59 2005
+++ emacs/lisp/emacs-lisp/cl-extra.el   Mon Dec 19 02:17:38 2005
@@ -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)