Eliminate "unused variable" warning from ARRAY-ROW-MAJOR-INDEX

[sbcl.git] / src / compiler / array-tran.lisp

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index fcf1f60..f3cf136 100644 (file)
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -1065,6 +1065,7 @@
                 (setf dims (nreverse dims))
                 `(lambda (,@',(when new-value (list new-value))
                           ,',array ,@n-indices)
+                   (declare (ignorable ,',array))
                    (let* (,@(let ((,index -1))
                               (mapcar (lambda (name)
                                         `(,name (array-dimension