* (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