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

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index ddff614..2d72ec1 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -526,6 +526,7 @@
            (push (sb-thread:make-thread #'exercise-binding) threads)
            (push (sb-thread:make-thread (lambda ()
                                           (loop
+                                           (sleep 0.1)
                                            (send-gc))))
                  threads)
            (sleep 4))