(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