[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: address@hidden: Re: The `defmacro*' macro in `cl-macs' does not reco
From: |
Eli Zaretskii |
Subject: |
Re: address@hidden: Re: The `defmacro*' macro in `cl-macs' does not recognize `declare' forms] |
Date: |
Sat, 07 May 2005 18:44:11 +0300 |
> To: address@hidden
> From: address@hidden (Johan =?iso-8859-1?Q?Bockg=E5rd?=)
> Date: Fri, 29 Apr 2005 15:36:28 +0200
> Subject: Re: The `defmacro*' macro in `cl-macs' does not recognize `declare'
> forms
> address@hidden (Johan Bockgard) writes:
>
> > The `defmacro*' macro in `cl-macs' does not recognize `declare' forms.
>
> > (macroexpand '(defmacro* foo () (declare (indent 1)) nil))
> > =>
> > (defmacro foo nil (block foo (declare (indent 1)) nil))
>
> And i believe this fixes it:
>
> - --- cl-macs.el 29 Mar 2005 22:25:54 +0200 1.48
> +++ cl-macs.el 29 Apr 2005 15:26:30 +0200
> @@ -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)))))
Thanks, I installed this.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Re: address@hidden: Re: The `defmacro*' macro in `cl-macs' does not recognize `declare' forms],
Eli Zaretskii <=