X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fthreads.impure.lisp;h=c68b61518da484e4fe9ebcd79245da81760d058f;hb=e59ce23faa19fe7995e59186c114e865ce3bfcd1;hp=867f40830b994f99014ba5f51a4b01f6f165bf9b;hpb=119c1bcd2cfff74d2968209207ea34ba0e1739f7;p=sbcl.git

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index 867f408..c68b615 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -73,7 +73,8 @@
                (loop repeat 10
                      collect (sb-thread:make-thread
                               (lambda ()
-                                (loop until run)
+                                (loop until run
+                                   do (sb-thread:thread-yield))
                                 (loop repeat n do (,incf x)))))))
          (setf run t)
          (dolist (th threads)