redesign exiting SBCL

[sbcl.git] / contrib / sb-concurrency / tests / test-gate.lisp

diff --git a/contrib/sb-concurrency/tests/test-gate.lisp b/contrib/sb-concurrency/tests/test-gate.lisp
index 9575d3c..64aa864 100644 (file)
--- a/contrib/sb-concurrency/tests/test-gate.lisp
+++ b/contrib/sb-concurrency/tests/test-gate.lisp
@@ -39,7 +39,7 @@
         (interrupt-thread (car threads) (lambda ()
                                           (unwind-protect
                                                (when (gate-open-p gate)
-                                                 (sb-ext:quit))
+                                                 (abort-thread))
                                             (open-gate int-gate))))
         (wait-on-gate int-gate)
         (assert (every #'null marks))