X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=5ea36699fb622d168f1cebfabe37e5c173069fc2;hb=beddcfe1ea23d2cfdddde2fa7cde6436799715a2;hp=fb4a0e1bb685de97981cc0179aaeccae40b57952;hpb=4084b6b95c1d5e0a45e073a9b875d8471efd8505;p=sbcl.git

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.