tests/symbol-macrolet-test.lisp


1
2
3
4
5
6

(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))