Re: Declaring a local dynamic variable?

[WJ]

Pascal J. Bourguignon wrote:

> (defun split-special-variables (declarations)
>   (loop
>      for decl in declarations
>      if (eq 'special (car decl))
>      append (cdr decl) into specials
>      else
>      collect decl into other-decls
>      finally (return (list specials other-decls))))

(defun split-special-variables (declarations)
  (let (specials others)
    (dolist (x declarations)
      (if (eq 'special (car x))
        (setq specials (nconc specials (cdr x)))
        (push x others)))
    (list specials others)))