X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefbangconstant.lisp;h=fefa23a131a9bd49a91ba06f03e1debea661ad57;hb=35697e2c02e7b29f7953ae318d50305561927a16;hp=539b95be81f108628b57ee7c4ebf51ba0710e5fb;hpb=7f0f521aa3f6b45259c5dfd5f7f11adcd1a7cac6;p=sbcl.git

diff --git a/src/code/defbangconstant.lisp b/src/code/defbangconstant.lisp
index 539b95b..fefa23a 100644
--- a/src/code/defbangconstant.lisp
+++ b/src/code/defbangconstant.lisp
@@ -23,6 +23,7 @@
 ;;; but my head is currently spinning (host? target? both?) so I'll go
 ;;; for the minimal changeset... -- CSR, 2002-05-11
 (defmacro def!constant (&whole whole name value &optional doc)
+  (declare (ignore value doc #-sb-xc-host name))
   `(progn
      #-sb-xc-host
      (defconstant ,@(cdr whole))