From 26cad2d1328901538c3b57f6571321df4cad90e1 Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Fri, 8 Jul 2011 13:04:07 -0400 Subject: [PATCH] Fix a non-gencgc build failure in UNSAFE-CLEAR-ROOTS Introduced in 4084b6b9 (armload of DEFINE-HASH-CACHE changes). --- src/code/gc.lisp | 1 + 1 file changed, 1 insertion(+) 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. -- 1.7.10.4