(cl-transform-lambda): Recognize `declare' as well as `interactive',

so that defmacro* would recognize `declare' forms.

lisp/ChangeLog

+2005-05-07  Johan  Bockg,Ae(Brd  <bojohan@dd.chalmers.se>
+
+	* emacs-lisp/cl-macs.el (cl-transform-lambda): Recognize `declare'
+	as well as `interactive', so that defmacro* would recognize
+	`declare' forms.
+
 2005-05-07  Eli Zaretskii  <eliz@gnu.org>
 	* emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name): Explain

lisp/emacs-lisp/cl-macs.el

@@ -233,7 +233,8 @@ ARGLIST allows full Common Lisp conventions."
 	 (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)))))