[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-extra.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-extra.el |
Date: |
Mon, 19 Dec 2005 02:17:38 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-extra.el,
Stefan Monnier <=