[Openmcl-devel] macro, symbol value and declare special

[Taoufik Dachraoui]

Hi

I run the following test

? (defmacro m1 (a) `,(let ((i a)) (declare (special i)) (symbol-value 'i)))
M1
? (m1 3)
3
? (let ((k 45)) (m1 k))
45
? (defmacro m1 (a) `,(let ((i a)) (declare (special i)) (1+ (symbol-value
'i))))
M1
? (m1 3)
4
? (let ((k 45)) (m1 k))
return  "value K is not of the expected type NUMBER."

Could someone please explain to me this?

Kind regards
Taoufik
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20101208/be259aa4/attachment.htm>