projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.26.4: less pessimal waitqueues
[sbcl.git]
/
tests
/
threads.pure.lisp
diff --git
a/tests/threads.pure.lisp
b/tests/threads.pure.lisp
index
fbffaaa
..
cb1a827
100644
(file)
--- a/
tests/threads.pure.lisp
+++ b/
tests/threads.pure.lisp
@@
-110,12
+110,12
@@
(values
(loop for r from 0 below n
collect
(values
(loop for r from 0 below n
collect
- (let ((r r))
- (sb-thread:make-thread (lambda ()
- (let ((sem semaphore))
- (dotimes (s i)
- (sb-thread:wait-on-semaphore sem))))
- :name "reader")))
+ (sb-thread:make-thread
+ (lambda ()
+ (let ((sem semaphore))
+ (dotimes (s i)
+ (sb-thread:wait-on-semaphore sem))))
+ :name "reader"))
(* n i)))
(make-writers (n readers i)
(let ((j (* readers i)))
(* n i)))
(make-writers (n readers i)
(let ((j (* readers i)))
@@
-124,12
+124,12
@@
(let ((writers
(loop for w from 0 below n
collect
(let ((writers
(loop for w from 0 below n
collect
- (let ((w w))
- (sb-thread:make-thread (lambda ()
- (let ((sem semaphore))
- (dotimes (s k)
- (sb-thread:signal-semaphore sem))))
- :name "writer")))))
+ (sb-thread:make-thread
+ (lambda ()
+ (let ((sem semaphore))
+ (dotimes (s k)
+ (sb-thread:signal-semaphore sem))))
+ :name "writer"))))
(assert (zerop rem))
writers)
(+ rem (* n k))))))
(assert (zerop rem))
writers)
(+ rem (* n k))))))