X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffloat.impure.lisp;fp=tests%2Ffloat.impure.lisp;h=aaf7eb8c57abbda00634373e064d35aa88c572a1;hb=175c318c892b0627b36fa3c4db66f59680242204;hp=baf2c0fd9d669e2f53fef77ffcdafa1d1136adb6;hpb=862c0325616a991a5bd7b50d79f7176d2115493b;p=sbcl.git

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index baf2c0f..aaf7eb8 100644
--- 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)