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

diff --git a/tests/clos-cache.impure.lisp b/tests/clos-cache.impure.lisp
index 4959a3f..46e1a1a 100644
--- a/tests/clos-cache.impure.lisp
+++ b/tests/clos-cache.impure.lisp
@@ -65,14 +65,14 @@
 
 (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))
     (error (e)
       (note "~&Error in cache test in ~S:~%~A~%...aborting"
             sb-thread:*current-thread* e)
-      (sb-ext:quit :unix-status 1)))
+      (sb-ext:exit :code 1)))
   (note "/~S done" sb-thread:*current-thread*))
 
 #+sb-thread