- (note "/~S waiting for permission to run" sb-thread:*current-thread*)
- (loop until *run-cache-test*)
- (note "/~S joining the tundering herd" sb-thread:*current-thread*)
+ (note "/~S waiting for permission to run" sb-thread:*current-thread*)
+ (loop until *run-cache-test* do (sb-thread:thread-yield))
+ (note "/~S joining the thundering herd" sb-thread:*current-thread*)