mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
5 lines
138 B
Common Lisp
5 lines
138 B
Common Lisp
(load "compiler-test-util.lisp")
|
|
|
|
(with-test (:name :fop-compile-bad-macro)
|
|
(assert (nth-value 1 (ctu:file-compile '((let () (do)))))))
|