X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompare-and-swap.impure.lisp;h=e1dc09bfa94064376aae6302334e17addfeb94b6;hb=3cd0a9aafc20ce12075f38ebaed86676c922fde2;hp=1bbecf9d5b9709f196ab738f11a9bbbbba75e4c9;hpb=ec58ac28523a2e9a296e3f84ad0928ee04842eae;p=sbcl.git

diff --git a/tests/compare-and-swap.impure.lisp b/tests/compare-and-swap.impure.lisp
index 1bbecf9..e1dc09b 100644
--- a/tests/compare-and-swap.impure.lisp
+++ b/tests/compare-and-swap.impure.lisp
@@ -436,7 +436,7 @@
       (dotimes (i n)
         (push i y))
       (mapc #'sb-thread:join-thread
-            (loop repeat 1000
+            (loop repeat (ecase sb-vm:n-word-bits (32 100) (64 1000))
                   collect (sb-thread:make-thread
                            (lambda ()
                              (loop for z = (atomic-pop y)