projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.5.12
[sbcl.git]
/
tests
/
threads.impure.lisp
diff --git
a/tests/threads.impure.lisp
b/tests/threads.impure.lisp
index
8d00ae7
..
e0973ff
100644
(file)
--- a/
tests/threads.impure.lisp
+++ b/
tests/threads.impure.lisp
@@
-131,8
+131,9
@@
(defun alloc-stuff () (copy-list '(1 2 3 4 5)))
(let ((c (test-interrupt (lambda () (loop (alloc-stuff))))))
(defun alloc-stuff () (copy-list '(1 2 3 4 5)))
(let ((c (test-interrupt (lambda () (loop (alloc-stuff))))))
- ;; NB this only works on x86
- (loop
+ ;; NB this only works on x86: other ports don't have a symbol for
+ ;; pseudo-atomic atomicity
+ (dotimes (i 100)
(sleep (random 1d0))
(interrupt-thread c
(lambda ()
(sleep (random 1d0))
(interrupt-thread c
(lambda ()
@@
-153,4
+154,4
@@
;; overall exit status is 0, not 104
(sleep 2)
;; overall exit status is 0, not 104
(sleep 2)
-;(sb-ext:quit :unix-status 104)
+(sb-ext:quit :unix-status 104)