X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsaptran.lisp;h=ea6b603f0391fe8f5ef668e656b0d8849bade295;hb=d25e3478acccec70402ff32554669a982be8e281;hp=5ed9b8d34854e55a87eeebd1b72b3d06b74dd0be;hpb=51e63f301624e39febdd85b5feba19b7c980f307;p=sbcl.git

diff --git a/src/compiler/saptran.lisp b/src/compiler/saptran.lisp
index 5ed9b8d..ea6b603 100644
--- a/src/compiler/saptran.lisp
+++ b/src/compiler/saptran.lisp
@@ -48,7 +48,7 @@
 
 (defknown sap-int (system-area-pointer)
   (unsigned-byte #.sb!vm::n-machine-word-bits)
-  (movable flushable))
+  (movable flushable foldable))
 (defknown int-sap ((unsigned-byte #.sb!vm::n-machine-word-bits))
   system-area-pointer (movable))
 
@@ -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)