[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Declaring a local dynamic variable?
From: |
WJ |
Subject: |
Re: Declaring a local dynamic variable? |
Date: |
2 Nov 2013 23:56:47 GMT |
User-agent: |
XanaNews/1.18.1.6 |
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))
- Re: Declaring a local dynamic variable?,
WJ <=