
(/VERSIONCHECK 2) 

(DEFUN |ARR2CAT-;any?;MSB;1| (|f| |m| $)
  (PROG (#1=#:G5858 #2=#:G5862 #3=#:G5864 |j| #4=#:G5863 |i|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #5=(|ARR2CAT-;any?;MSB;1|))
         (LETT #4# (SPADCALL |m| (QREFELT $ 12)) . #5#) G190
         (COND ((> |i| #4#) #6=(GO G191)))
         (SEQ
          (EXIT
           (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #5#)
                (LETT #3# (SPADCALL |m| (QREFELT $ 14)) . #5#) G190
                (COND ((> |j| #3#) #6#))
                (SEQ
                 (EXIT
                  (COND
                   ((SPADCALL (SPADCALL |m| |i| |j| (QREFELT $ 15)) |f|)
                    (PROGN
                     (LETT #1# (PROGN (LETT #2# 'T . #5#) (GO #2#)) . #5#)
                     (GO #1#))))))
                (LETT |j| (+ |j| 1) . #5#) #7=(GO G190) G191 (EXIT NIL)))
          #1# (EXIT #1#))
         (LETT |i| (+ |i| 1) . #5#) #7# G191 (EXIT NIL))
        (EXIT 'NIL)))
      #2# (EXIT #2#))))) 

(DEFUN |ARR2CAT-;every?;MSB;2| (|f| |m| $)
  (PROG (#1=#:G5866 #2=#:G5869 #3=#:G5871 |j| #4=#:G5870 |i|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |i| (SPADCALL |m| (QREFELT $ 11))
               . #5=(|ARR2CAT-;every?;MSB;2|))
         (LETT #4# (SPADCALL |m| (QREFELT $ 12)) . #5#) G190
         (COND ((> |i| #4#) #6=(GO G191)))
         (SEQ
          (EXIT
           (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #5#)
                (LETT #3# (SPADCALL |m| (QREFELT $ 14)) . #5#) G190
                (COND ((> |j| #3#) #6#))
                (SEQ
                 (EXIT
                  (COND
                   ((NULL (SPADCALL (SPADCALL |m| |i| |j| (QREFELT $ 15)) |f|))
                    (PROGN
                     (LETT #1# (PROGN (LETT #2# 'NIL . #5#) (GO #2#)) . #5#)
                     (GO #1#))))))
                (LETT |j| (+ |j| 1) . #5#) #7=(GO G190) G191 (EXIT NIL)))
          #1# (EXIT #1#))
         (LETT |i| (+ |i| 1) . #5#) #7# G191 (EXIT NIL))
        (EXIT 'T)))
      #2# (EXIT #2#))))) 

(DEFUN |ARR2CAT-;size?;SNniB;3| (|m| |n| $)
  (EQL (* (SPADCALL |m| (QREFELT $ 21)) (SPADCALL |m| (QREFELT $ 22))) |n|)) 

(DEFUN |ARR2CAT-;less?;SNniB;4| (|m| |n| $)
  (< (* (SPADCALL |m| (QREFELT $ 21)) (SPADCALL |m| (QREFELT $ 22))) |n|)) 

(DEFUN |ARR2CAT-;more?;SNniB;5| (|m| |n| $)
  (< |n| (* (SPADCALL |m| (QREFELT $ 21)) (SPADCALL |m| (QREFELT $ 22))))) 

(DEFUN |ARR2CAT-;#;SNni;6| (|m| $)
  (* (SPADCALL |m| (QREFELT $ 21)) (SPADCALL |m| (QREFELT $ 22)))) 

(DEFUN |ARR2CAT-;elt;S2I2R;7| (|m| |i| |j| |r| $)
  (COND
   ((OR (< |i| (SPADCALL |m| (QREFELT $ 11)))
        (< (SPADCALL |m| (QREFELT $ 12)) |i|))
    |r|)
   ((OR (< |j| (SPADCALL |m| (QREFELT $ 13)))
        (< (SPADCALL |m| (QREFELT $ 14)) |j|))
    |r|)
   ('T (SPADCALL |m| |i| |j| (QREFELT $ 15))))) 

(DEFUN |ARR2CAT-;count;MSNni;8| (|f| |m| $)
  (PROG (|num| #1=#:G5888 |j| #2=#:G5887 |i|)
    (RETURN
     (SEQ (LETT |num| 0 . #3=(|ARR2CAT-;count;MSNni;8|))
          (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #3#)
               (LETT #2# (SPADCALL |m| (QREFELT $ 12)) . #3#) G190
               (COND ((> |i| #2#) #4=(GO G191)))
               (SEQ
                (EXIT
                 (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #3#)
                      (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #3#) G190
                      (COND ((> |j| #1#) #4#))
                      (SEQ
                       (EXIT
                        (COND
                         ((SPADCALL (SPADCALL |m| |i| |j| (QREFELT $ 15)) |f|)
                          (LETT |num| (+ |num| 1) . #3#)))))
                      (LETT |j| (+ |j| 1) . #3#) #5=(GO G190) G191
                      (EXIT NIL))))
               (LETT |i| (+ |i| 1) . #3#) #5# G191 (EXIT NIL))
          (EXIT |num|))))) 

(DEFUN |ARR2CAT-;parts;SL;9| (|m| $)
  (PROG (|entryList| #1=#:G5895 |j| #2=#:G5894 |i|)
    (RETURN
     (SEQ (LETT |entryList| NIL . #3=(|ARR2CAT-;parts;SL;9|))
          (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 12)) . #3#)
               (LETT #2# (SPADCALL |m| (QREFELT $ 11)) . #3#) G190
               (COND ((< |i| #2#) #4=(GO G191)))
               (SEQ
                (EXIT
                 (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 14)) . #3#)
                      (LETT #1# (SPADCALL |m| (QREFELT $ 13)) . #3#) G190
                      (COND ((< |j| #1#) #4#))
                      (SEQ
                       (EXIT
                        (LETT |entryList|
                              (CONS (SPADCALL |m| |i| |j| (QREFELT $ 15))
                                    |entryList|)
                              . #3#)))
                      (LETT |j| (+ |j| -1) . #3#) #5=(GO G190) G191
                      (EXIT NIL))))
               (LETT |i| (+ |i| -1) . #3#) #5# G191 (EXIT NIL))
          (EXIT |entryList|))))) 

(DEFUN |ARR2CAT-;copy;2S;10| (|m| $)
  (PROG (#1=#:G5901 |j| #2=#:G5900 |i| |ans|)
    (RETURN
     (SEQ
      (LETT |ans|
            (SPADCALL (SPADCALL |m| (QREFELT $ 21))
                      (SPADCALL |m| (QREFELT $ 22)) NIL (QREFELT $ 31))
            . #3=(|ARR2CAT-;copy;2S;10|))
      (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #3#)
           (LETT #2# (SPADCALL |m| (QREFELT $ 12)) . #3#) G190
           (COND ((> |i| #2#) #4=(GO G191)))
           (SEQ
            (EXIT
             (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #3#)
                  (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #3#) G190
                  (COND ((> |j| #1#) #4#))
                  (SEQ
                   (EXIT
                    (SPADCALL |ans| |i| |j|
                              (SPADCALL |m| |i| |j| (QREFELT $ 15))
                              (QREFELT $ 32))))
                  (LETT |j| (+ |j| 1) . #3#) #5=(GO G190) G191 (EXIT NIL))))
           (LETT |i| (+ |i| 1) . #3#) #5# G191 (EXIT NIL))
      (EXIT |ans|))))) 

(DEFUN |ARR2CAT-;fill!;SRS;11| (|m| |r| $)
  (PROG (#1=#:G5907 |j| #2=#:G5906 |i|)
    (RETURN
     (SEQ
      (SEQ
       (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #3=(|ARR2CAT-;fill!;SRS;11|))
       (LETT #2# (SPADCALL |m| (QREFELT $ 12)) . #3#) G190
       (COND ((> |i| #2#) #4=(GO G191)))
       (SEQ
        (EXIT
         (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #3#)
              (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #3#) G190
              (COND ((> |j| #1#) #4#))
              (SEQ (EXIT (SPADCALL |m| |i| |j| |r| (QREFELT $ 32))))
              (LETT |j| (+ |j| 1) . #3#) #5=(GO G190) G191 (EXIT NIL))))
       (LETT |i| (+ |i| 1) . #3#) #5# G191 (EXIT NIL))
      (EXIT |m|))))) 

(DEFUN |ARR2CAT-;map;M2S;12| (|f| |m| $)
  (PROG (#1=#:G5914 |j| #2=#:G5913 |i| |ans|)
    (RETURN
     (SEQ
      (LETT |ans|
            (SPADCALL (SPADCALL |m| (QREFELT $ 21))
                      (SPADCALL |m| (QREFELT $ 22)) NIL (QREFELT $ 31))
            . #3=(|ARR2CAT-;map;M2S;12|))
      (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #3#)
           (LETT #2# (SPADCALL |m| (QREFELT $ 12)) . #3#) G190
           (COND ((> |i| #2#) #4=(GO G191)))
           (SEQ
            (EXIT
             (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #3#)
                  (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #3#) G190
                  (COND ((> |j| #1#) #4#))
                  (SEQ
                   (EXIT
                    (SPADCALL |ans| |i| |j|
                              (SPADCALL (SPADCALL |m| |i| |j| (QREFELT $ 15))
                                        |f|)
                              (QREFELT $ 32))))
                  (LETT |j| (+ |j| 1) . #3#) #5=(GO G190) G191 (EXIT NIL))))
           (LETT |i| (+ |i| 1) . #3#) #5# G191 (EXIT NIL))
      (EXIT |ans|))))) 

(DEFUN |ARR2CAT-;map!;M2S;13| (|f| |m| $)
  (PROG (#1=#:G5920 |j| #2=#:G5919 |i|)
    (RETURN
     (SEQ
      (SEQ
       (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #3=(|ARR2CAT-;map!;M2S;13|))
       (LETT #2# (SPADCALL |m| (QREFELT $ 12)) . #3#) G190
       (COND ((> |i| #2#) #4=(GO G191)))
       (SEQ
        (EXIT
         (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #3#)
              (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #3#) G190
              (COND ((> |j| #1#) #4#))
              (SEQ
               (EXIT
                (SPADCALL |m| |i| |j|
                          (SPADCALL (SPADCALL |m| |i| |j| (QREFELT $ 15)) |f|)
                          (QREFELT $ 32))))
              (LETT |j| (+ |j| 1) . #3#) #5=(GO G190) G191 (EXIT NIL))))
       (LETT |i| (+ |i| 1) . #3#) #5# G191 (EXIT NIL))
      (EXIT |m|))))) 

(DEFUN |ARR2CAT-;map;M3S;14| (|f| |m| |n| $)
  (PROG (#1=#:G5929 |j| #2=#:G5928 |i| |ans|)
    (RETURN
     (SEQ
      (COND
       ((EQL (SPADCALL |m| (QREFELT $ 21)) (SPADCALL |n| (QREFELT $ 21)))
        (COND
         ((NULL
           (EQL (SPADCALL |m| (QREFELT $ 22)) (SPADCALL |n| (QREFELT $ 22))))
          (EXIT (|error| #3="map: arguments must have same dimensions")))))
       ('T (EXIT (|error| #3#))))
      (LETT |ans|
            (SPADCALL (SPADCALL |m| (QREFELT $ 21))
                      (SPADCALL |m| (QREFELT $ 22)) NIL (QREFELT $ 31))
            . #4=(|ARR2CAT-;map;M3S;14|))
      (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #4#)
           (LETT #2# (SPADCALL |m| (QREFELT $ 12)) . #4#) G190
           (COND ((> |i| #2#) #5=(GO G191)))
           (SEQ
            (EXIT
             (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #4#)
                  (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #4#) G190
                  (COND ((> |j| #1#) #5#))
                  (SEQ
                   (EXIT
                    (SPADCALL |ans| |i| |j|
                              (SPADCALL (SPADCALL |m| |i| |j| (QREFELT $ 15))
                                        (SPADCALL |n| |i| |j| (QREFELT $ 15))
                                        |f|)
                              (QREFELT $ 32))))
                  (LETT |j| (+ |j| 1) . #4#) #6=(GO G190) G191 (EXIT NIL))))
           (LETT |i| (+ |i| 1) . #4#) #6# G191 (EXIT NIL))
      (EXIT |ans|))))) 

(DEFUN |ARR2CAT-;map;M2SRS;15| (|f| |m| |n| |r| $)
  (PROG (|j| |i| |ans| |maxCol| |maxRow|)
    (RETURN
     (SEQ
      (LETT |maxRow|
            (MAX (SPADCALL |m| (QREFELT $ 12)) (SPADCALL |n| (QREFELT $ 12)))
            . #1=(|ARR2CAT-;map;M2SRS;15|))
      (LETT |maxCol|
            (MAX (SPADCALL |m| (QREFELT $ 14)) (SPADCALL |n| (QREFELT $ 14)))
            . #1#)
      (LETT |ans|
            (SPADCALL
             (MAX (SPADCALL |m| (QREFELT $ 21)) (SPADCALL |n| (QREFELT $ 21)))
             (MAX (SPADCALL |m| (QREFELT $ 22)) (SPADCALL |n| (QREFELT $ 22)))
             NIL (QREFELT $ 31))
            . #1#)
      (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #1#) G190
           (COND ((> |i| |maxRow|) #2=(GO G191)))
           (SEQ
            (EXIT
             (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #1#) G190
                  (COND ((> |j| |maxCol|) #2#))
                  (SEQ
                   (EXIT
                    (SPADCALL |ans| |i| |j|
                              (SPADCALL
                               (SPADCALL |m| |i| |j| |r| (QREFELT $ 40))
                               (SPADCALL |n| |i| |j| |r| (QREFELT $ 40)) |f|)
                              (QREFELT $ 32))))
                  (LETT |j| (+ |j| 1) . #1#) #3=(GO G190) G191 (EXIT NIL))))
           (LETT |i| (+ |i| 1) . #1#) #3# G191 (EXIT NIL))
      (EXIT |ans|))))) 

(DEFUN |ARR2CAT-;setRow!;SIRowS;16| (|m| |i| |v| $)
  (PROG (#1=#:G5939 |j| #2=#:G5940 |k|)
    (RETURN
     (SEQ
      (COND
       ((OR (< |i| (SPADCALL |m| (QREFELT $ 11)))
            (< (SPADCALL |m| (QREFELT $ 12)) |i|))
        (|error| "setRow!: index out of range"))
       ('T
        (SEQ
         (SEQ
          (LETT |k| (SPADCALL |v| (QREFELT $ 42))
                . #3=(|ARR2CAT-;setRow!;SIRowS;16|))
          (LETT #2# (SPADCALL |v| (QREFELT $ 43)) . #3#)
          (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #3#)
          (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #3#) G190
          (COND ((OR (> |j| #1#) (> |k| #2#)) (GO G191)))
          (SEQ
           (EXIT
            (SPADCALL |m| |i| |j| (SPADCALL |v| |k| (QREFELT $ 44))
                      (QREFELT $ 32))))
          (LETT |j| (PROG1 (+ |j| 1) (LETT |k| (+ |k| 1) . #3#)) . #3#)
          (GO G190) G191 (EXIT NIL))
         (EXIT |m|)))))))) 

(DEFUN |ARR2CAT-;setColumn!;SIColS;17| (|m| |j| |v| $)
  (PROG (#1=#:G5946 |i| #2=#:G5947 |k|)
    (RETURN
     (SEQ
      (COND
       ((OR (< |j| (SPADCALL |m| (QREFELT $ 13)))
            (< (SPADCALL |m| (QREFELT $ 14)) |j|))
        (|error| "setColumn!: index out of range"))
       ('T
        (SEQ
         (SEQ
          (LETT |k| (SPADCALL |v| (QREFELT $ 46))
                . #3=(|ARR2CAT-;setColumn!;SIColS;17|))
          (LETT #2# (SPADCALL |v| (QREFELT $ 47)) . #3#)
          (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #3#)
          (LETT #1# (SPADCALL |m| (QREFELT $ 12)) . #3#) G190
          (COND ((OR (> |i| #1#) (> |k| #2#)) (GO G191)))
          (SEQ
           (EXIT
            (SPADCALL |m| |i| |j| (SPADCALL |v| |k| (QREFELT $ 48))
                      (QREFELT $ 32))))
          (LETT |i| (PROG1 (+ |i| 1) (LETT |k| (+ |k| 1) . #3#)) . #3#)
          (GO G190) G191 (EXIT NIL))
         (EXIT |m|)))))))) 

(DEFUN |ARR2CAT-;=;2SB;18| (|m| |n| $)
  (PROG (#1=#:G5951 #2=#:G5955 #3=#:G5957 |j| #4=#:G5956 |i|)
    (RETURN
     (SEQ
      (EXIT
       (COND ((SPADCALL |m| |n| (QREFELT $ 50)) 'T)
             (#5='T
              (SEQ
               (COND
                ((EQL (SPADCALL |m| (QREFELT $ 21))
                      (SPADCALL |n| (QREFELT $ 21)))
                 (COND
                  ((NULL
                    (EQL (SPADCALL |m| (QREFELT $ 22))
                         (SPADCALL |n| (QREFELT $ 22))))
                   (EXIT 'NIL))))
                (#5# (EXIT 'NIL)))
               (SEQ
                (LETT |i| (SPADCALL |m| (QREFELT $ 11))
                      . #6=(|ARR2CAT-;=;2SB;18|))
                (LETT #4# (SPADCALL |m| (QREFELT $ 12)) . #6#) G190
                (COND ((> |i| #4#) #7=(GO G191)))
                (SEQ
                 (EXIT
                  (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #6#)
                       (LETT #3# (SPADCALL |m| (QREFELT $ 14)) . #6#) G190
                       (COND ((> |j| #3#) #7#))
                       (SEQ
                        (EXIT
                         (COND
                          ((NULL
                            (SPADCALL (SPADCALL |m| |i| |j| (QREFELT $ 15))
                                      (SPADCALL |n| |i| |j| (QREFELT $ 15))
                                      (QREFELT $ 51)))
                           (PROGN
                            (LETT #1# (PROGN (LETT #2# 'NIL . #6#) (GO #2#))
                                  . #6#)
                            (GO #1#))))))
                       (LETT |j| (+ |j| 1) . #6#) #8=(GO G190) G191
                       (EXIT NIL)))
                 #1# (EXIT #1#))
                (LETT |i| (+ |i| 1) . #6#) #8# G191 (EXIT NIL))
               (EXIT 'T)))))
      #2# (EXIT #2#))))) 

(DEFUN |ARR2CAT-;member?;RSB;19| (|r| |m| $)
  (PROG (#1=#:G5959 #2=#:G5962 #3=#:G5964 |j| #4=#:G5963 |i|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |i| (SPADCALL |m| (QREFELT $ 11))
               . #5=(|ARR2CAT-;member?;RSB;19|))
         (LETT #4# (SPADCALL |m| (QREFELT $ 12)) . #5#) G190
         (COND ((> |i| #4#) #6=(GO G191)))
         (SEQ
          (EXIT
           (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #5#)
                (LETT #3# (SPADCALL |m| (QREFELT $ 14)) . #5#) G190
                (COND ((> |j| #3#) #6#))
                (SEQ
                 (EXIT
                  (COND
                   ((SPADCALL (SPADCALL |m| |i| |j| (QREFELT $ 15)) |r|
                              (QREFELT $ 51))
                    (PROGN
                     (LETT #1# (PROGN (LETT #2# 'T . #5#) (GO #2#)) . #5#)
                     (GO #1#))))))
                (LETT |j| (+ |j| 1) . #5#) #7=(GO G190) G191 (EXIT NIL)))
          #1# (EXIT #1#))
         (LETT |i| (+ |i| 1) . #5#) #7# G191 (EXIT NIL))
        (EXIT 'NIL)))
      #2# (EXIT #2#))))) 

(DEFUN |ARR2CAT-;count;RSNni;20| (|r| |m| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|ARR2CAT-;count;RSNni;20!0| (VECTOR $ |r|)) |m|
               (QREFELT $ 54))))) 

(DEFUN |ARR2CAT-;count;RSNni;20!0| (|x| $$)
  (PROG (|r| $)
    (LETT |r| (QREFELT $$ 1) . #1=(|ARR2CAT-;count;RSNni;20|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL |x| |r| (QREFELT $ 51)))))) 

(DEFUN |ARR2CAT-;row;SIRow;21| (|m| |i| $)
  (PROG (#1=#:G5971 |j| #2=#:G5972 |k| |v|)
    (RETURN
     (SEQ
      (COND
       ((OR (< |i| (SPADCALL |m| (QREFELT $ 11)))
            (< (SPADCALL |m| (QREFELT $ 12)) |i|))
        (|error| "row: index out of range"))
       ('T
        (SEQ
         (LETT |v| (SPADCALL (SPADCALL |m| (QREFELT $ 22)) NIL (QREFELT $ 56))
               . #3=(|ARR2CAT-;row;SIRow;21|))
         (SEQ (LETT |k| (SPADCALL |v| (QREFELT $ 42)) . #3#)
              (LETT #2# (SPADCALL |v| (QREFELT $ 43)) . #3#)
              (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #3#)
              (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #3#) G190
              (COND ((OR (> |j| #1#) (> |k| #2#)) (GO G191)))
              (SEQ
               (EXIT
                (SPADCALL |v| |k| (SPADCALL |m| |i| |j| (QREFELT $ 15))
                          (QREFELT $ 57))))
              (LETT |j| (PROG1 (+ |j| 1) (LETT |k| (+ |k| 1) . #3#)) . #3#)
              (GO G190) G191 (EXIT NIL))
         (EXIT |v|)))))))) 

(DEFUN |ARR2CAT-;column;SICol;22| (|m| |j| $)
  (PROG (#1=#:G5978 |i| #2=#:G5979 |k| |v|)
    (RETURN
     (SEQ
      (COND
       ((OR (< |j| (SPADCALL |m| (QREFELT $ 13)))
            (< (SPADCALL |m| (QREFELT $ 14)) |j|))
        (|error| "column: index out of range"))
       ('T
        (SEQ
         (LETT |v| (SPADCALL (SPADCALL |m| (QREFELT $ 21)) NIL (QREFELT $ 59))
               . #3=(|ARR2CAT-;column;SICol;22|))
         (SEQ (LETT |k| (SPADCALL |v| (QREFELT $ 46)) . #3#)
              (LETT #2# (SPADCALL |v| (QREFELT $ 47)) . #3#)
              (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #3#)
              (LETT #1# (SPADCALL |m| (QREFELT $ 12)) . #3#) G190
              (COND ((OR (> |i| #1#) (> |k| #2#)) (GO G191)))
              (SEQ
               (EXIT
                (SPADCALL |v| |k| (SPADCALL |m| |i| |j| (QREFELT $ 15))
                          (QREFELT $ 60))))
              (LETT |i| (PROG1 (+ |i| 1) (LETT |k| (+ |k| 1) . #3#)) . #3#)
              (GO G190) G191 (EXIT NIL))
         (EXIT |v|)))))))) 

(DEFUN |ARR2CAT-;coerce;SOf;23| (|m| $)
  (PROG (|l| #1=#:G5987 |j| #2=#:G5986 #3=#:G5985 |i| #4=#:G5984)
    (RETURN
     (SEQ
      (LETT |l|
            (PROGN
             (LETT #4# NIL . #5=(|ARR2CAT-;coerce;SOf;23|))
             (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #5#)
                  (LETT #3# (SPADCALL |m| (QREFELT $ 12)) . #5#) G190
                  (COND ((> |i| #3#) #6=(GO G191)))
                  (SEQ
                   (EXIT
                    (LETT #4#
                          (CONS
                           (PROGN
                            (LETT #2# NIL . #5#)
                            (SEQ (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #5#)
                                 (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #5#)
                                 G190 (COND ((> |j| #1#) #6#))
                                 (SEQ
                                  (EXIT
                                   (LETT #2#
                                         (CONS
                                          (SPADCALL
                                           (SPADCALL |m| |i| |j|
                                                     (QREFELT $ 15))
                                           (QREFELT $ 63))
                                          #2#)
                                         . #5#)))
                                 (LETT |j| (+ |j| 1) . #5#) #7=(GO G190) G191
                                 (EXIT (NREVERSE0 #2#))))
                           #4#)
                          . #5#)))
                  (LETT |i| (+ |i| 1) . #5#) #7# G191 (EXIT (NREVERSE0 #4#))))
            . #5#)
      (EXIT (SPADCALL |l| (QREFELT $ 65))))))) 

(DEFUN |TwoDimensionalArrayCategory&| (|#1| |#2| |#3| |#4|)
  (PROG (|pv$| $ |dv$| DV$4 DV$3 DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|TwoDimensionalArrayCategory&|))
      (LETT DV$2 (|devaluate| |#2|) . #1#)
      (LETT DV$3 (|devaluate| |#3|) . #1#)
      (LETT DV$4 (|devaluate| |#4|) . #1#)
      (LETT |dv$| (LIST '|TwoDimensionalArrayCategory&| DV$1 DV$2 DV$3 DV$4)
            . #1#)
      (LETT $ (GETREFV 67) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (QSETREFV $ 8 |#3|)
      (QSETREFV $ 9 |#4|)
      (COND
       ((|HasSignature| |#2|
                        (LIST '=
                              (LIST '(|Boolean|) (|devaluate| |#2|)
                                    (|devaluate| |#2|))))
        (PROGN
         (QSETREFV $ 52 (CONS (|dispatchFunction| |ARR2CAT-;=;2SB;18|) $))
         (QSETREFV $ 53
                   (CONS (|dispatchFunction| |ARR2CAT-;member?;RSB;19|) $))
         (QSETREFV $ 55
                   (CONS (|dispatchFunction| |ARR2CAT-;count;RSNni;20|) $)))))
      (COND
       ((|HasCategory| |#3| '(|shallowlyMutable|))
        (QSETREFV $ 58 (CONS (|dispatchFunction| |ARR2CAT-;row;SIRow;21|) $))))
      (COND
       ((|HasCategory| |#4| '(|shallowlyMutable|))
        (QSETREFV $ 61
                  (CONS (|dispatchFunction| |ARR2CAT-;column;SICol;22|) $))))
      (COND
       ((|HasCategory| |#2| '(|CoercibleTo| (|OutputForm|)))
        (QSETREFV $ 66
                  (CONS (|dispatchFunction| |ARR2CAT-;coerce;SOf;23|) $))))
      $)))) 

(MAKEPROP '|TwoDimensionalArrayCategory&| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
              (|local| |#3|) (|local| |#4|) (|Integer|) (0 . |minRowIndex|)
              (5 . |maxRowIndex|) (10 . |minColIndex|) (15 . |maxColIndex|)
              (20 . |qelt|) (|Boolean|) (|Mapping| 16 7) |ARR2CAT-;any?;MSB;1|
              |ARR2CAT-;every?;MSB;2| (|NonNegativeInteger|) (27 . |nrows|)
              (32 . |ncols|) |ARR2CAT-;size?;SNniB;3| |ARR2CAT-;less?;SNniB;4|
              |ARR2CAT-;more?;SNniB;5| |ARR2CAT-;#;SNni;6|
              |ARR2CAT-;elt;S2I2R;7| |ARR2CAT-;count;MSNni;8| (|List| 7)
              |ARR2CAT-;parts;SL;9| (37 . |new|) (44 . |qsetelt!|)
              |ARR2CAT-;copy;2S;10| |ARR2CAT-;fill!;SRS;11| (|Mapping| 7 7)
              |ARR2CAT-;map;M2S;12| |ARR2CAT-;map!;M2S;13| (|Mapping| 7 7 7)
              |ARR2CAT-;map;M3S;14| (52 . |elt|) |ARR2CAT-;map;M2SRS;15|
              (60 . |minIndex|) (65 . |maxIndex|) (70 . |elt|)
              |ARR2CAT-;setRow!;SIRowS;16| (76 . |minIndex|) (81 . |maxIndex|)
              (86 . |elt|) |ARR2CAT-;setColumn!;SIColS;17| (92 . |eq?|)
              (98 . =) (104 . =) (110 . |member?|) (116 . |count|)
              (122 . |count|) (128 . |new|) (134 . |qsetelt!|) (141 . |row|)
              (147 . |new|) (153 . |qsetelt!|) (160 . |column|) (|OutputForm|)
              (166 . |coerce|) (|List| (|List| $)) (171 . |matrix|)
              (176 . |coerce|))
           '#(|size?| 181 |setRow!| 187 |setColumn!| 194 |row| 201 |parts| 207
              |more?| 212 |member?| 218 |map!| 224 |map| 230 |less?| 251
              |fill!| 257 |every?| 263 |elt| 269 |count| 277 |copy| 289
              |column| 294 |coerce| 300 |any?| 305 = 311 |#| 317)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 66
                                                 '(1 6 10 0 11 1 6 10 0 12 1 6
                                                   10 0 13 1 6 10 0 14 3 6 7 0
                                                   10 10 15 1 6 20 0 21 1 6 20
                                                   0 22 3 6 0 20 20 7 31 4 6 7
                                                   0 10 10 7 32 4 6 7 0 10 10 7
                                                   40 1 8 10 0 42 1 8 10 0 43 2
                                                   8 7 0 10 44 1 9 10 0 46 1 9
                                                   10 0 47 2 9 7 0 10 48 2 6 16
                                                   0 0 50 2 7 16 0 0 51 2 0 16
                                                   0 0 52 2 0 16 7 0 53 2 6 20
                                                   17 0 54 2 0 20 7 0 55 2 8 0
                                                   20 7 56 3 8 7 0 10 7 57 2 0
                                                   8 0 10 58 2 9 0 20 7 59 3 9
                                                   7 0 10 7 60 2 0 9 0 10 61 1
                                                   7 62 0 63 1 62 0 64 65 1 0
                                                   62 0 66 2 0 16 0 20 23 3 0 0
                                                   0 10 8 45 3 0 0 0 10 9 49 2
                                                   0 8 0 10 58 1 0 29 0 30 2 0
                                                   16 0 20 25 2 0 16 7 0 53 2 0
                                                   0 35 0 37 4 0 0 38 0 0 7 41
                                                   3 0 0 38 0 0 39 2 0 0 35 0
                                                   36 2 0 16 0 20 24 2 0 0 0 7
                                                   34 2 0 16 17 0 19 4 0 7 0 10
                                                   10 7 27 2 0 20 7 0 55 2 0 20
                                                   17 0 28 1 0 0 0 33 2 0 9 0
                                                   10 61 1 0 62 0 66 2 0 16 17
                                                   0 18 2 0 16 0 0 52 1 0 20 0
                                                   26)))))
           '|lookupComplete|)) 
