killing lutexes, adding timeouts

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

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 96ef1d9..bc5c920 100644 (file)
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -380,9 +380,7 @@ collection is initiated. This can be set with SETF."
             (number-of-gcs int)
             (number-of-gcs-before-promotion int)
             (cum-sum-bytes-allocated unsigned-long)
-            (minimum-age-before-gc double)
-            ;; `struct lutex *' or `void *', depending.
-            (lutexes (* char))))
+            (minimum-age-before-gc double)))
 
 #!+gencgc
 (define-alien-variable generations