X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fthreads.impure.lisp;h=e0973ff8b04d572eff7b06bad7c6a9ef2476e5fe;hb=e855e0537e05f315d26cf8778353a3be02ee760b;hp=8d00ae767194b13318452da762622318d75bbc0a;hpb=e29e89b56564b0d302f0ded969a298b948722add;p=sbcl.git

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index 8d00ae7..e0973ff 100644
--- 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))))))
-  ;; 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 ()
@@ -153,4 +154,4 @@
 ;; overall exit status is 0, not 104
 (sleep 2) 
 
-;(sb-ext:quit :unix-status 104)
+(sb-ext:quit :unix-status 104)