X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstatic-alloc.impure.lisp;h=a23a7085e1e1fbeffd44f5e151a699d70021eb8d;hb=062283b901155792f65775491aea51481c56faaa;hp=b5d4b66d5de954387615303fe10d4117073bc41e;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/static-alloc.impure.lisp b/tests/static-alloc.impure.lisp
index b5d4b66..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)))
@@ -11,4 +11,3 @@
                    saps
                    (mapcar #'sb-sys:vector-sap vectors)))))
 
-(quit :unix-status 104)