projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.33.22: fix WITH-MUTEX docstring
[sbcl.git]
/
tests
/
clos-cache.impure.lisp
diff --git
a/tests/clos-cache.impure.lisp
b/tests/clos-cache.impure.lisp
index
4959a3f
..
c3e07d6
100644
(file)
--- 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*)
(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))
(note "/~S joining the thundering herd" sb-thread:*current-thread*)
(handler-case
(loop repeat 1024 do (test-cache))