X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftype.pure.lisp;h=af467d7d0337f31f90b00e9f0f412a88668bc8be;hb=68ea71d0f020f2726e3c56c1ec491d0af734b3a4;hp=f92c3b7e487bced4e10139f86521766497c939d3;hpb=140751b3289f9eb5837b6ff153b0cb7372c83f64;p=sbcl.git

diff --git a/tests/type.pure.lisp b/tests/type.pure.lisp
index f92c3b7..af467d7 100644
--- a/tests/type.pure.lisp
+++ b/tests/type.pure.lisp
@@ -332,11 +332,11 @@ ACTUAL ~D DERIVED ~D~%"
    (sb-kernel:specifier-type '(simple-array an-unkown-type (8))))))
 
 (assert
- (sb-kernel:type/= (sb-kernel:specifier-type 'cons) 
+ (sb-kernel:type/= (sb-kernel:specifier-type 'cons)
                    (sb-kernel:specifier-type '(cons single-float single-float))))
 
 (multiple-value-bind (match win)
-    (sb-kernel:type= (sb-kernel:specifier-type '(cons integer)) 
+    (sb-kernel:type= (sb-kernel:specifier-type '(cons integer))
                      (sb-kernel:specifier-type '(cons)))
   (assert (and (not match) win)))