# Pastebin w5Q899Sw
(BLOCK NIL
  (LET* ((INDICES INDICES) (R (ARRAY-RANK ARRAY)) (I 0))
    (DECLARE (FTYPE INDEX I) (FTYPE INDEX R))
    (UNTIL (>= I R)
           (IF INDICES
               (LET* ((INDEX (CONS-CAR INDICES)))
                 (WHEN
                     (OR (NOT (FIXNUMP INDEX))
                         (MINUSP (TRULY-THE FIXNUM INDEX))
                         (>= (TRULY-THE FIXNUM INDEX)
                             (ARRAY-DIMENSION ARRAY I)))
                   (RETURN NIL)))
               (ERROR "The rank of the array is ~R,~%~
               ~7@Tbut ~R ~:*~[indices are~;index is~:;indices are~] ~
               supplied."
                      R
                      I))
           (SETQ INDICES (CONS-CDR INDICES) I (1+ I)))
    T))