X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fthreads.impure.lisp;h=3672c92abc727d4ab7800d1cb627270d6de75e6a;hb=f81f78b9a2a4ec8e2bef6074de121885c6f19e44;hp=bbe99345e0dcbe632a95ba16f8e6dbd4c4d391ce;hpb=ce027af4a3f623440d33e7be119fe46caaecee65;p=sbcl.git

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index bbe9934..3672c92 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -914,7 +914,7 @@
                   ;; but the same can happen because of a regular
                   ;; MAKE-THREAD or LIST-ALL-THREADS, and various
                   ;; session functions.
-                  (sb-thread:with-mutex (sb-thread::*all-threads-lock*)
+                  (sb-thread::with-all-threads-lock
                     (sb-thread::with-session-lock (sb-thread::*session*)
                       (sb-ext:gc))))
                 :name (list :gc i)))