From: David Lichteblau <david@lichteblau.com>
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;hp=debae3c18d31b5222be4d5de8dcb2601336e24a4;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)