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

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index aaf7eb8..04609a4 100644
--- a/tests/float.impure.lisp
+++ b/tests/float.impure.lisp
@@ -114,8 +114,8 @@
 
 (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))