X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fhash.impure.lisp;h=db4c5fd131aacc43328fc9df9f2b5ae6d7b50378;hb=db0110475c0db5dc3cb1bb12de0b0c475880899e;hp=6f35e1962edaae1a5eead10d343312ecc2fa46c2;hpb=baa495b809aac936baca13b423d2b3201650e719;p=sbcl.git

diff --git a/tests/hash.impure.lisp b/tests/hash.impure.lisp
index 6f35e19..db4c5fd 100644
--- a/tests/hash.impure.lisp
+++ b/tests/hash.impure.lisp
@@ -284,10 +284,10 @@
         (sem (gensym)))
     `(let ((,sem (sb-thread::make-semaphore))
            ,values)
-       (sb-thread:make-thread (lambda ()
-                                (setq ,values
-                                      (multiple-value-list (progn ,@body)))
-                                (sb-thread::signal-semaphore ,sem)))
+       (make-join-thread (lambda ()
+                           (setq ,values
+                                 (multiple-value-list (progn ,@body)))
+                           (sb-thread::signal-semaphore ,sem)))
        (sb-thread::wait-on-semaphore ,sem)
        (values-list ,values))))