X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=eb7f13dc644382a0daebeb596ee8b1a0d4e48f68;hb=57bf8a7e65a81a8cff946a65e7e33e3f9b948ac6;hp=8839b3e3005e4b81188ef654416af3f9f3f30222;hpb=d3a20211cd639081185d5d3de1aa2e3e080042de;p=sbcl.git

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 8839b3e..eb7f13d 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -346,7 +346,9 @@ 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)))
+            (minimum-age-before-gc double)
+            ;; `struct lutex *' or `void *', depending.
+            (lutexes (* char))))
 
 #!+gencgc
 (define-alien-variable generations