mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
c831b28281
* Fixed bug 204: (EVAL-WHEN (:COMPILE-TOPLEVEL) ...) inside
MACROLET.
* Expanders, introduced by MACROLET, are defined in a
restricted lexical environment.
* SB-C:LEXENV-FIND works in any package.
7 lines
223 B
Common Lisp
7 lines
223 B
Common Lisp
(symbol-macrolet ((s1 (push 1 *symbol-macrolet-test-status*))
|
|
(s2 (push 2 *symbol-macrolet-test-status*)))
|
|
(eval-when (:compile-toplevel)
|
|
s1)
|
|
(eval-when (:compile-toplevel :load-toplevel)
|
|
s2))
|