From 0e8649cf907d26f111864e4e29c7f9787828efbd Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Fri, 8 Nov 2013 16:08:46 -0500 Subject: [PATCH] Eliminate "unused variable" warning from ARRAY-ROW-MAJOR-INDEX --- src/compiler/array-tran.lisp | 1 + 1 file changed, 1 insertion(+) 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 -- 1.7.10.4