X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpackages.impure.lisp;h=0e782181ebe30e68e43786e07feae83da3b20fb1;hb=d8422b9967f465801891907396bcc5bfde0f3297;hp=82ef917ef5e1fcf3378fe0201f71398b0631136e;hpb=b14aefb22fd710673b1a1005add3c0425713d2a0;p=sbcl.git

diff --git a/tests/packages.impure.lisp b/tests/packages.impure.lisp
index 82ef917..0e78218 100644
--- a/tests/packages.impure.lisp
+++ b/tests/packages.impure.lisp
@@ -294,12 +294,12 @@ if a restart was invoked."
   (let* ((p (make-package :bug-511072))
          (sem1 (sb-thread:make-semaphore))
          (sem2 (sb-thread:make-semaphore))
-         (t2 (sb-thread:make-thread (lambda ()
-                                      (handler-bind ((error (lambda (c)
-                                                              (sb-thread:signal-semaphore sem1)
-                                                              (sb-thread:wait-on-semaphore sem2)
-                                                              (abort c))))
-                                        (make-package :bug-511072))))))
+         (t2 (make-join-thread (lambda ()
+                                 (handler-bind ((error (lambda (c)
+                                                         (sb-thread:signal-semaphore sem1)
+                                                         (sb-thread:wait-on-semaphore sem2)
+                                                         (abort c))))
+                                   (make-package :bug-511072))))))
     (sb-thread:wait-on-semaphore sem1)
     (with-timeout 10
       (assert (eq 'cons (read-from-string "CL:CONS"))))