X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=7ba3b3b3e05f7e3a2e50819992006df7b7018cec;hb=2419deec84b45d81610dc8d3db610c3e2f7b9486;hp=bc6f6cdbe61b6b6f6bc0b2c374d0ee0b51193308;hpb=f318d0b1654042ed8f1b887852a9ba1f539208e4;p=sbcl.git

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index bc6f6cd..7ba3b3b 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -198,7 +198,7 @@ run in any thread.")
 
 (defun sub-gc (&key (gen 0))
   (unless (eq sb!thread:*current-thread*
-              (sb!thread::mutex-value *already-in-gc*))
+              (sb!thread:mutex-value *already-in-gc*))
     ;; With gencgc, unless *GC-PENDING* every allocation in this
     ;; function triggers another gc, potentially exceeding maximum
     ;; interrupt nesting. If *GC-INHIBIT* is not true, however,