0.9.4.6:

[sbcl.git] / tests / float.impure.lisp

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index baf2c0f..aaf7eb8 100644 (file)
--- a/tests/float.impure.lisp
+++ b/tests/float.impure.lisp
@@ -119,6 +119,3 @@
 (defun new-pu-label-from-pu-labels (array)
   (setf (aref (the myarraytype array) 0) 
         sb-ext:double-float-positive-infinity))
-
-;;; success
-(quit :unix-status 104)