X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fgc.lisp;h=eb7f13dc644382a0daebeb596ee8b1a0d4e48f68;hb=d84e1dbbbf11e76663cfaa0b1a5b7591f39f01b6;hp=c76ca43d6ae0ec904d30b91751b5a9458f4bb8db;hpb=e384c7c09cd6ab73396963c7661b0b14b15e95da;p=sbcl.git

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index c76ca43..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
@@ -358,7 +360,7 @@ collection is initiated. This can be set with SETF."
                 (defun ,(symbolicate "GENERATION-" slot) (generation)
                   #!+sb-doc
                   ,doc
-		  #!+gencgc
+                  #!+gencgc
                   (declare (generation-index generation))
                   #!-gencgc
                   (declare (ignore generation))
@@ -369,7 +371,7 @@ collection is initiated. This can be set with SETF."
                   (slot (deref generations generation) ',slot))
                 ,@(when setfp
                         `((defun (setf ,(symbolicate "GENERATION-" slot)) (value generation)
-			    #!+gencgc
+                            #!+gencgc
                             (declare (generation-index generation))
                             #!-gencgc
                             (declare (ignore value generation))