1.0.25.15: less compilation warnings

[sbcl.git] / src / compiler / saptran.lisp

diff --git a/src/compiler/saptran.lisp b/src/compiler/saptran.lisp
index 10a08c5..ea6b603 100644 (file)
--- a/src/compiler/saptran.lisp
+++ b/src/compiler/saptran.lisp
@@ -109,7 +109,8 @@
             (sap+ sap (+ offset1 offset2))))))
 
 (macrolet ((def (fun element-size &optional setp value-type)
-             (declare (ignorable value-type))
+             (declare (ignorable value-type)
+                      #!-x86 (ignore element-size))
              `(progn
                 (deftransform ,fun ((sap offset ,@(when setp `(new-value))) * *)
                   (splice-fun-args sap 'sap+ 2)