X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstatic-alloc.impure.lisp;h=a23a7085e1e1fbeffd44f5e151a699d70021eb8d;hb=260de2062fca170efdac3e42491d7d866c2d2e56;hp=470985500287a7bde00ce26ed4802667be66c0ce;hpb=9b55754d5328a5f44ee224d32865fc8dadee123b;p=sbcl.git

diff --git a/tests/static-alloc.impure.lisp b/tests/static-alloc.impure.lisp
index 4709855..a23a708 100644
--- a/tests/static-alloc.impure.lisp
+++ b/tests/static-alloc.impure.lisp
@@ -1,14 +1,13 @@
 
 (dolist (type '(single-float double-float (unsigned-byte 8)
-		(unsigned-byte 32) (signed-byte 32)))
-  (let* ((vectors (loop 
-		     for i upto 1024
-		     collect (sb-int:make-static-vector
-			      256 :element-type type)))
-	 (saps (mapcar #'sb-sys:vector-sap vectors)))
+                (unsigned-byte 32) (signed-byte 32)))
+  (let* ((vectors (loop
+                     for i upto 128
+                     collect (sb-int:make-static-vector
+                              256 :element-type type)))
+         (saps (mapcar #'sb-sys:vector-sap vectors)))
     (gc :full t)
     (assert (every #'sb-sys:sap=
-		   saps
-		   (mapcar #'sb-sys:vector-sap vectors)))))
+                   saps
+                   (mapcar #'sb-sys:vector-sap vectors)))))
 
-(quit :unix-status 104)