diff lisp/emacs-lisp/cl-macs.el @ 62152:7ff52a21de9d

(cl-transform-lambda): Recognize `declare' as well as `interactive', so that defmacro* would recognize `declare' forms.

--- a/lisp/emacs-lisp/cl-macs.el	Sat May 07 15:28:12 2005 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Sat May 07 15:43:44 2005 +0000
@@ -233,7 +233,8 @@
 	 (bind-defs nil) (bind-enquote nil)
 	 (bind-inits nil) (bind-lets nil) (bind-forms nil)
 	 (header nil) (simple-args nil))
-    (while (or (stringp (car body)) (eq (car-safe (car body)) 'interactive))
+    (while (or (stringp (car body))
+	       (memq (car-safe (car body)) '(interactive declare)))
       (push (pop body) header))
     (setq args (if (listp args) (copy-list args) (list '&rest args)))
     (let ((p (last args))) (if (cdr p) (setcdr p (list '&rest (cdr p)))))