tests/symbol-macrolet-test.lisp

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