From: Paul Khuong <pvk@pvk.ca>
Date: Fri, 8 Jul 2011 17:04:07 +0000 (-0400)
Subject: Fix a non-gencgc build failure in UNSAFE-CLEAR-ROOTS
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=26cad2d1328901538c3b57f6571321df4cad90e1;p=sbcl.git

Fix a non-gencgc build failure in UNSAFE-CLEAR-ROOTS

 Introduced in 4084b6b9 (armload of DEFINE-HASH-CACHE changes).
---

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index fb4a0e1..5ea3669 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -317,6 +317,7 @@ NIL as the pathname."
 (define-alien-routine scrub-control-stack sb!alien:void)
 
 (defun unsafe-clear-roots (gen)
+  #!-gencgc (declare (ignore gen))
   ;; KLUDGE: Do things in an attempt to get rid of extra roots. Unsafe
   ;; as having these cons more then we have space left leads to huge
   ;; badness.