X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcondition-wait-sigcont.lisp;h=c4c4312441b891e21c06021533b2cc1555b31f2b;hb=260de2062fca170efdac3e42491d7d866c2d2e56;hp=35adec7dc7ed35545d9e002e26f84f013715832f;hpb=c97e05b47236081529c73981b7624e0e0bb98fad;p=sbcl.git

diff --git a/tests/condition-wait-sigcont.lisp b/tests/condition-wait-sigcont.lisp
index 35adec7..c4c4312 100644
--- a/tests/condition-wait-sigcont.lisp
+++ b/tests/condition-wait-sigcont.lisp
@@ -21,7 +21,10 @@
   (write-line "/waiting")
   (force-output)
   (delete-file "condition-wait-sigcont.tmp")
+  #+sb-thread
   (condition-wait *queue* *lock*)
+  #-sb-thread
+  (loop (sleep 10))
   (write-line "/woken")
   (force-output)
   (with-open-file (f "condition-wait-sigcont.tmp" :direction :output)
@@ -32,4 +35,4 @@
 
 ;; sleep a bit so our runner can kill us
 (sleep 10)
-(quit)
+(exit)