Fix make-array transforms.

[sbcl.git] / tests / static-alloc.impure.lisp

diff --git a/tests/static-alloc.impure.lisp b/tests/static-alloc.impure.lisp
index 4709855..a23a708 100644 (file)
--- 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)