(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
(defun ,(symbolicate "GENERATION-" slot) (generation)
#!+sb-doc
,doc
- #!+gencgc
+ #!+gencgc
(declare (generation-index generation))
#!-gencgc
(declare (ignore generation))
(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))