X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fload.lisp;h=7960ff6f1b427c6492bdb1b16b097c2602275825;hb=3f3033a6c0ddf0af8dd1b5a17c2a4b82ea59b94f;hp=68a6e227c0087427e2c65d87294d97edb0a7846b;hpb=b69fe40e09e86e60f96a61208ee0a6afa100d3b4;p=sbcl.git

diff --git a/src/code/load.lisp b/src/code/load.lisp
index 68a6e22..7960ff6 100644
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -168,6 +168,7 @@
 
 (defun nuke-fop-vector (vector)
   (declare (simple-vector vector)
+           #!-gencgc (ignore vector)
            (optimize speed))
   ;; Make sure we don't keep any garbage.
   #!+gencgc