Fix build on non-GENCGC targets.
authorAlastair Bridgewater <nyef@kana.lisphacker.com>
Wed, 14 Dec 2011 19:43:39 +0000 (14:43 -0500)
committerAlastair Bridgewater <nyef@kana.lisphacker.com>
Wed, 14 Dec 2011 19:43:39 +0000 (14:43 -0500)
  * Commit 8ee61a7761181511d15690246eb52d100e233935 introduced a
function with a parameter that is only used on gencgc targets.
Declare it to be ignored on non-gencgc targets.

src/code/load.lisp

index 68a6e22..7960ff6 100644 (file)
 
 (defun nuke-fop-vector (vector)
   (declare (simple-vector vector)
+           #!-gencgc (ignore vector)
            (optimize speed))
   ;; Make sure we don't keep any garbage.
   #!+gencgc