OK. How's this?

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



On Fri, Nov 8, 2013 at 7:31 AM, Stas Boukarev <stassats@gmail.com> wrote:
Douglas Katzman <dougk@google.com> writes:

> * (defun foo (a) (array-row-major-index a))
>
> ; in: DEFUN FOO
> ;     (ARRAY-ROW-MAJOR-INDEX NEW-EVAL::A)
> ;
> ; caught STYLE-WARNING:
> ;   The variable ARRAY is defined but never used.
> ;
> ; compilation unit finished
> ;   caught 1 STYLE-WARNING condition
Wouldn't that make a good first commit?
--
With best regards, Stas.