X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fshared.lisp;h=8c94fb9301ff25ce5e6749b424502f6dbb12e34d;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=d8d6f446925728c75d58063337b5adaf2e8fcf69;hpb=b42c75203a3f077e8f59373a48af5e3a304addbf;p=sbcl.git

diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index d8d6f44..8c94fb9 100644
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -416,7 +416,6 @@
 
 ;;; like HOST-CLOAD-STEM, except that we don't bother to compile
 (defun host-load-stem (stem flags)
-  (declare (ignore flags)) ; (It's only relevant when compiling.)
   (load (stem-object-path stem flags :host-compile)))
 (compile 'host-load-stem)