X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos-cache.impure.lisp;h=c3e07d62caf7925fb4db4c1f7b77d843423b21fe;hb=a51d83191034919bc76367268929e234d62164db;hp=4959a3f8e63314d3f4ffb83e8993f45bf7a49927;hpb=617d4fa1db5a4a11564e7c59bfb684c7eb25633d;p=sbcl.git

diff --git a/tests/clos-cache.impure.lisp b/tests/clos-cache.impure.lisp
index 4959a3f..c3e07d6 100644
--- 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))