X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fthreads.impure.lisp;h=8d00ae767194b13318452da762622318d75bbc0a;hb=17794352c2ef078a1fc3cdd306f17f7328edf40b;hp=18a337661b3c2af773e26e961bb109f51c29c098;hpb=2378b4fe567a8fea78b1e4915b9497d8c18ca92f;p=sbcl.git

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index 18a3376..8d00ae7 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -121,7 +121,8 @@
 		 (lambda ()
 		   (with-mutex (lock)
 		     (assert (eql (mutex-value lock) (current-thread-id))))
-		   (assert (not (eql (mutex-value lock) (current-thread-id)))))))
+		   (assert (not (eql (mutex-value lock) (current-thread-id))))
+		   (sleep 60))))
     ;;hold onto lock for long enough that child can't get it immediately
     (sleep 20)
     (interrupt-thread child (lambda () (format t "l ~A~%" (mutex-value lock))))
@@ -131,7 +132,7 @@
 (defun alloc-stuff () (copy-list '(1 2 3 4 5)))
 (let ((c (test-interrupt (lambda () (loop (alloc-stuff))))))
   ;; NB this only works on x86
-  (dotimes (i 70)
+  (loop
     (sleep (random 1d0))
     (interrupt-thread c
 		      (lambda ()
@@ -152,4 +153,4 @@
 ;; overall exit status is 0, not 104
 (sleep 2) 
 
-(sb-ext:quit :unix-status 104)
+;(sb-ext:quit :unix-status 104)