X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-concurrency%2Ftests%2Ftest-gate.lisp;fp=contrib%2Fsb-concurrency%2Ftests%2Ftest-gate.lisp;h=64aa864552063a25181e3abb74604ca53e3ad950;hb=f0da2f63aa0b4e6d4dbf884854a4bf2dfdd01fc0;hp=9575d3c7923e51d0a0e1c6ce4daf5d2ed1616251;hpb=4ce962e92568e52624959d8abc83f609abc3605c;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))