(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)
(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)