move checking for constant ALIEN-INFO into a separate function

[sbcl.git] / src / code / gc.lisp

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index fb4a0e1..5ea3669 100644 (file)
--- 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.