I think this is a bug, or am I wrong?
[EMAIL PROTECTED] cmucl-2006-05 # lisp
CMU Common Lisp Snapshot 2006-05 (19C), running on sunct1
With core: /opt/local/lib/cmucl/lib/lisp.core
Dumped on: Tue, 2006-05-02 01:29:24Z on lorien
Send questions and bug reports to your local CMUCL maintainer,
or see <http://www.cons.org/cmucl/support.html>.
Loaded subsystems:
Python 1.1, target Intel x86
CLOS based on Gerd's PCL 2004/04/14 03:32:47
* (let ((a 4)) (declare (special a))
(let ((a 2))
(cons a (locally (declare (special a)) a))))
(2 . 4)
* (setq a 3)
Warning: Declaring A special.
3
* (let ((a 4)) (declare (special a))
(let ((a 2))
(cons a (locally (declare (special a)) a))))
(2 . 2)
* (quit)
Anatoly