X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=a57dc9361b6336ac324f8847c1ba74153fb1e3f4;hb=74a1797f60e26c7adbc491840f89bbaab08e504d;hp=9762e0cc350b52b05c3999023928fb4e29941dcc;hpb=7024c08bf4d44b8eb0c555bc45783bdcefd9eb88;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index 9762e0c..a57dc93 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -827,6 +827,7 @@
 ;;; available, switch back to the normal one to give other transforms
 ;;; a stab at it.
 (macrolet ((define (name transform-to extra extra-type)
+             (declare (ignore extra-type))
              `(deftransform ,name ((array index ,@extra))
                 (let ((type (lvar-type array))
                       (element-type (extract-upgraded-element-type array)))