Ignore an argument in x86's EMIT-CONSTANT-SEGMENT-HEADER

[sbcl.git] / src / compiler / x86 / insts.lisp

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index cc6b53e..0509468 100644 (file)
--- 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)