X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-concurrency%2Ftests%2Ftest-gate.lisp;h=64aa864552063a25181e3abb74604ca53e3ad950;hb=d0f4d5a8caeb1982083cb973cb1e6844457ed58f;hp=9575d3c7923e51d0a0e1c6ce4daf5d2ed1616251;hpb=18a1f7605aa95cb84282900298c369514e9d49c2;p=sbcl.git

diff --git a/contrib/sb-concurrency/tests/test-gate.lisp b/contrib/sb-concurrency/tests/test-gate.lisp
index 9575d3c..64aa864 100644
--- 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))