Hello,
(defun foo () (symbol-macrolet ((x 3)) (symbol-macrolet ((y (nth-value 0 x))) y)))
Compiling this with COMPILE (C-c-c in slime) warns about X being undefined, and an unbound X error occurs when FOO is run.
(macroexpand-1 '(defun foo () (symbol-macrolet ((x 3)) (symbol-macrolet ((y (nth-value 0 x))) y))))
;;=> (PROG1 (SYSTEM:%DEFUN 'FOO (SYSTEM:NAMED-LAMBDA FOO NIL (BLOCK FOO (LOCALLY (LOCALLY (NTH-VALUE 0 X)))))))
X didn't get expanded.
There is no problem when compiling the DEFUN form with COMPILE-FILE (C-c-k).
_______________________________________________ Armedbear-devel mailing list Armedbear-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel