1.0.3.39: larger heap size for x86-64/darwin
[sbcl.git] / tests / float.impure.lisp
index baf2c0f..04609a4 100644 (file)
 
 (assert (= (test 1.0d0) 2.0d0))
 
-(deftype myarraytype (&optional (length '*)) 
+(deftype myarraytype (&optional (length '*))
   `(simple-array double-float (,length)))
 (defun new-pu-label-from-pu-labels (array)
-  (setf (aref (the myarraytype array) 0) 
+  (setf (aref (the myarraytype array) 0)
         sb-ext:double-float-positive-infinity))
-
-;;; success
-(quit :unix-status 104)