1.0.10.51: New function: THREAD-YIELD

[sbcl.git] / tests / clos-cache.impure.lisp

diff --git a/tests/clos-cache.impure.lisp b/tests/clos-cache.impure.lisp
index 4959a3f..c3e07d6 100644 (file)
--- a/tests/clos-cache.impure.lisp
+++ b/tests/clos-cache.impure.lisp
@@ -65,7 +65,7 @@
 
 (defun test-loop ()
   (note "/~S waiting for permission to run" sb-thread:*current-thread*)
-  (loop until *run-cache-test*)
+  (loop until *run-cache-test* do (sb-thread:thread-yield))
   (note "/~S joining the thundering herd" sb-thread:*current-thread*)
   (handler-case
       (loop repeat 1024 do (test-cache))