From 3db292921fabecad0ba8107097d763ba2a044136 Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Fri, 29 Nov 2013 22:23:48 +0200 Subject: [PATCH] Fix the cheneygc build Cheneygc takes a generation argument, but ignores it. --- src/code/gc.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) -- 1.7.10.4