{"body":"(BLOCK NIL\n  (LET* ((INDICES INDICES) (R (ARRAY-RANK ARRAY)) (I 0))\n    (DECLARE (FTYPE INDEX I) (FTYPE INDEX R))\n    (UNTIL (>= I R)\n           (IF INDICES\n               (LET* ((INDEX (CONS-CAR INDICES)))\n                 (WHEN\n                     (OR (NOT (FIXNUMP INDEX))\n                         (MINUSP (TRULY-THE FIXNUM INDEX))\n                         (>= (TRULY-THE FIXNUM INDEX)\n                             (ARRAY-DIMENSION ARRAY I)))\n                   (RETURN NIL)))\n               (ERROR \"The rank of the array is ~R,~%~\n               ~7@Tbut ~R ~:*~[indices are~;index is~:;indices are~] ~\n               supplied.\"\n                      R\n                      I))\n           (SETQ INDICES (CONS-CDR INDICES) I (1+ I)))\n    T))","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/w5Q899Sw","modified":1517379583,"id":"w5Q899Sw","size":745,"lines":19,"own_paste":false,"theme":"","date":1517379583}