From: David Lichteblau Date: Fri, 29 Nov 2013 20:23:48 +0000 (+0200) Subject: Fix the cheneygc build X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3db292921fabecad0ba8107097d763ba2a044136;p=sbcl.git Fix the cheneygc build Cheneygc takes a generation argument, but ignores it. --- diff --git a/src/code/gc.lisp b/src/code/gc.lisp index f869788..f94068d 100644 --- a/src/code/gc.lisp +++ b/src/code/gc.lisp @@ -356,8 +356,10 @@ which may in turn trigger a collection of one or more older generations as well. If FULL is true, all generations are collected. If GEN is provided, it can be used to specify the oldest generation guaranteed to be collected." - (when (eq t (sub-gc :gen (if full sb!vm:+pseudo-static-generation+ gen))) - (post-gc))) + #!-gencgc (declare (ignore full)) + (let (#!+gencgc (gen (if full sb!vm:+pseudo-static-generation+ gen))) + (when (eq t (sub-gc :gen gen)) + (post-gc)))) (define-alien-routine scrub-control-stack sb!alien:void)