X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos-cache.impure.lisp;h=c3e07d62caf7925fb4db4c1f7b77d843423b21fe;hb=5fdb9edd71a21b3697ba6f407aca270060ef173c;hp=4959a3f8e63314d3f4ffb83e8993f45bf7a49927;hpb=f7e1341ea5056cca7ab196552feec7039ba86854;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))