From: Douglas Katzman <dougk@google.com>
Date: Fri, 8 Nov 2013 21:08:46 +0000 (-0500)
Subject: Eliminate "unused variable" warning from ARRAY-ROW-MAJOR-INDEX
X-Git-Url: http://repo.macrolet.net/gitweb/?p=sbcl.git;a=commitdiff_plain;h=0e8649cf907d26f111864e4e29c7f9787828efbd

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

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index fcf1f60..f3cf136 100644
--- 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