X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftimer.impure.lisp;h=19bc3347b0e4d4a64aae57a966ce7250a9419b5b;hb=69990bc42314706e9d646ddd8f6b911f46d0052c;hp=e4bd2d5e62f264437be686f69c07bd0141af5d2f;hpb=5c6755ecd95f037009d394665ae3d964bac088a7;p=sbcl.git

diff --git a/tests/timer.impure.lisp b/tests/timer.impure.lisp
index e4bd2d5..19bc334 100644
--- a/tests/timer.impure.lisp
+++ b/tests/timer.impure.lisp
@@ -114,7 +114,7 @@
     (assert (zerop (length (sb-impl::%pqueue-contents sb-impl::*schedule*))))))
 
 (with-test (:name (:timer :other-thread) :skipped-on '(not :sb-thread))
-  (let* ((thread (sb-thread:make-thread (lambda () (sleep 2))))
+  (let* ((thread (make-kill-thread (lambda () (sleep 2))))
          (timer (make-timer (lambda ()
                               (assert (eq thread sb-thread:*current-thread*)))
                             :thread thread)))
@@ -214,7 +214,7 @@
       (assert ok))))
 
 (with-test (:name (:with-timeout :dead-thread) :skipped-on '(not :sb-thread))
-  (sb-thread:make-thread
+  (make-join-thread
    (lambda ()
      (let ((timer (make-timer (lambda ()))))
        (schedule-timer timer 3)