1.0.11.34: better SUBSEQ on lists

[sbcl.git] / src / code / gc.lisp

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index bc6f6cd..7ba3b3b 100644 (file)
--- 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,