X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Finsts.lisp;h=050946875f6e3cc5fa2ed195d70a37561b2bc0eb;hb=bcd323c39d6f5f80020ba4a5d9eb8d348c6cc499;hp=cc6b53ebb34b51d7789c660b78dc3c57d8e55a9c;hpb=c8ef1a3b83ce08f35ee3e481eb334decc837d214;p=sbcl.git

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index cc6b53e..0509468 100644
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -2884,7 +2884,7 @@
                            :disp (make-fixup nil :code-object label)))))
 
 (defun emit-constant-segment-header (segment constants optimize)
-  (declare (ignore constants))
+  (declare (ignore segment constants))
   (loop repeat (if optimize 64 16) do (inst byte #x90)))
 
 (defun size-nbyte (size)