X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstatic-alloc.impure.lisp;h=a23a7085e1e1fbeffd44f5e151a699d70021eb8d;hb=518493eab883e50237043153c0d45b245e929c7d;hp=4bdd538b1a379fae32573da7f922045af069ce86;hpb=175c318c892b0627b36fa3c4db66f59680242204;p=sbcl.git

diff --git a/tests/static-alloc.impure.lisp b/tests/static-alloc.impure.lisp
index 4bdd538..a23a708 100644
--- a/tests/static-alloc.impure.lisp
+++ b/tests/static-alloc.impure.lisp
@@ -2,7 +2,7 @@
 (dolist (type '(single-float double-float (unsigned-byte 8)
                 (unsigned-byte 32) (signed-byte 32)))
   (let* ((vectors (loop
-                     for i upto 1024
+                     for i upto 128
                      collect (sb-int:make-static-vector
                               256 :element-type type)))
          (saps (mapcar #'sb-sys:vector-sap vectors)))