Re: Declaring a local dynamic variable?

[WJ]

Pascal J. Bourguignon wrote:

>  
> (defun split-declarations (body) 
>   (loop
>      for b on body
>      while (and (listp (car b)) (eq 'declare (caar b)))
>      append (cdar b) into declarations
>      finally (return (list declarations b))))

(defun split-declarations (body &optional decs)
  (while (and (listp (car body)) (eq 'declare (caar body)))
    (setq decs (nconc decs (cdr (pop body)))))
  (list decs body))