0.8.2.52:

[sbcl.git] / tests / threads.impure.lisp

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index 36111ea..0477691 100644 (file)
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -125,4 +125,7 @@
     (sleep 5))
   (terminate-thread child))
 
+;; better would be "wait until all child threads have exited"
+(sleep 3)
+
 (sb-ext:quit :unix-status 104)