0.8.14.28:
[sbcl/lichteblau.git] / tests / symbol-macrolet-test.lisp
blob0343065d317ed6ec745bb6507127b5863e353a34
1 (symbol-macrolet ((s1 (push 1 *symbol-macrolet-test-status*))
2 (s2 (push 2 *symbol-macrolet-test-status*)))
3 (eval-when (:compile-toplevel)
4 s1)
5 (eval-when (:compile-toplevel :load-toplevel)
6 s2))