execute tests in 7ql package

This commit is contained in:
septeql
2007-08-11 19:42:56 +00:00
parent fd7b52cf45
commit 0210b3db57

View File

@@ -5,6 +5,7 @@
(let ((failed nil))
(loop
(let* ((eof (gensym))
(*package* #.*package*)
(send (read stream nil eof))
(expect (read stream nil eof)))
(when (eql send eof) (return failed))