File: symbol-macrolet-test.lisp

package info (click to toggle)
sbcl 1%3A0.9.16.0-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 19,960 kB
  • ctags: 16,537
  • sloc: lisp: 231,164; ansic: 19,558; asm: 2,539; sh: 1,925; makefile: 308
file content (6 lines) | stat: -rw-r--r-- 223 bytes parent folder | download | duplicates (9)
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))