1.0.26.12: Don't allow (LOOP FOR X ACROSS A ...) where A evaluates to NIL

[sbcl.git] / tests / mop-5.impure-cload.lisp

diff --git a/tests/mop-5.impure-cload.lisp b/tests/mop-5.impure-cload.lisp
index 213d5fd..f9cfec5 100644 (file)
--- a/tests/mop-5.impure-cload.lisp
+++ b/tests/mop-5.impure-cload.lisp
@@ -51,5 +51,3 @@
 (defparameter *counter* (make-counter :start 666))
 
 (assert (eq (funcall *counter*) *counter*))
-
-(sb-ext:quit :unix-status 104)