
(/VERSIONCHECK 2) 

(DEFUN |ARR2CAT-;any?;MSB;1| (|f| |m| $)
  (PROG (|i| #0=#:G1847 |j| #1=#:G1848 #2=#:G1846 #3=#:G1842)
    (RETURN
      (SEQ (EXIT (SEQ (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11))
                                 . #4=(|ARR2CAT-;any?;MSB;1|))
                           (LETT #0#
                                 (SPADCALL |m| (QREFELT $ 12)) . #4#)
                           G190 (COND ((> |i| #0#) #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
                                         (COND
                                           ((SPADCALL
                                             (SPADCALL |m| |i| |j|
                                              (QREFELT $ 15))
                                             |f|)
                                            (PROGN
                                              (LETT #3#
                                               (PROGN
                                                 (LETT #2# 'T . #4#)
                                                 (GO #2#)) . #4#)
                                              (GO #3#))))))
                                       (LETT |j| (+ |j| 1) . #4#)
                                       #6=(GO G190) G191 (EXIT NIL)))
                                #3# (EXIT #3#))
                           (LETT |i| (+ |i| 1) . #4#) #6# G191
                           (EXIT NIL))
                      (EXIT 'NIL)))
           #2# (EXIT #2#))))) 

(DEFUN |ARR2CAT-;every?;MSB;2| (|f| |m| $)
  (PROG (|i| #0=#:G1854 |j| #1=#:G1855 #2=#:G1853 #3=#:G1850)
    (RETURN
      (SEQ (EXIT (SEQ (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11))
                                 . #4=(|ARR2CAT-;every?;MSB;2|))
                           (LETT #0#
                                 (SPADCALL |m| (QREFELT $ 12)) . #4#)
                           G190 (COND ((> |i| #0#) #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
                                         (COND
                                           ((NULL
                                             (SPADCALL
                                              (SPADCALL |m| |i| |j|
                                               (QREFELT $ 15))
                                              |f|))
                                            (PROGN
                                              (LETT #3#
                                               (PROGN
                                                 (LETT #2# 'NIL . #4#)
                                                 (GO #2#)) . #4#)
                                              (GO #3#))))))
                                       (LETT |j| (+ |j| 1) . #4#)
                                       #6=(GO G190) G191 (EXIT NIL)))
                                #3# (EXIT #3#))
                           (LETT |i| (+ |i| 1) . #4#) #6# 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 (|i| #0=#:G1871 |j| #1=#:G1872 |num|)
    (RETURN
      (SEQ (LETT |num| 0 . #2=(|ARR2CAT-;count;MSNni;8|))
           (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #2#)
                (LETT #0# (SPADCALL |m| (QREFELT $ 12)) . #2#) G190
                (COND ((> |i| #0#) #3=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j|
                                      (SPADCALL |m| (QREFELT $ 13)) . #2#)
                                (LETT #1#
                                      (SPADCALL |m| (QREFELT $ 14)) . #2#)
                                G190 (COND ((> |j| #1#) #3#))
                                (SEQ (EXIT
                                      (COND
                                        ((SPADCALL
                                          (SPADCALL |m| |i| |j|
                                           (QREFELT $ 15))
                                          |f|)
                                         (LETT |num| (+ |num| 1) . #2#)))))
                                (LETT |j| (+ |j| 1) . #2#) #4=(GO G190)
                                G191 (EXIT NIL))))
                (LETT |i| (+ |i| 1) . #2#) #4# G191 (EXIT NIL))
           (EXIT |num|))))) 

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

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

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

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

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

(DEFUN |ARR2CAT-;map;M3S;14| (|f| |m| |n| $)
  (PROG (|ans| |i| #0=#:G1911 |j| #1=#:G1912)
    (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| "map: arguments must have same dimensions")))))
             ('T
              (EXIT (|error| "map: arguments must have same dimensions"))))
           (LETT |ans|
                 (SPADCALL (SPADCALL |m| (QREFELT $ 21))
                     (SPADCALL |m| (QREFELT $ 22)) NIL (QREFELT $ 31))
                 . #2=(|ARR2CAT-;map;M3S;14|))
           (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #2#)
                (LETT #0# (SPADCALL |m| (QREFELT $ 12)) . #2#) G190
                (COND ((> |i| #0#) #3=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j|
                                      (SPADCALL |m| (QREFELT $ 13)) . #2#)
                                (LETT #1#
                                      (SPADCALL |m| (QREFELT $ 14)) . #2#)
                                G190 (COND ((> |j| #1#) #3#))
                                (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) . #2#) #4=(GO G190)
                                G191 (EXIT NIL))))
                (LETT |i| (+ |i| 1) . #2#) #4# G191 (EXIT NIL))
           (EXIT |ans|))))) 

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

(DEFUN |ARR2CAT-;setRow!;SIRowS;16| (|m| |i| |v| $)
  (PROG (|k| #0=#:G1923 |j| #1=#:G1922)
    (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))
                              . #2=(|ARR2CAT-;setRow!;SIRowS;16|))
                        (LETT #0# (SPADCALL |v| (QREFELT $ 43)) . #2#)
                        (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #2#)
                        (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #2#)
                        G190
                        (COND
                          ((OR (> |j| #1#) (> |k| #0#)) (GO G191)))
                        (SEQ (EXIT (SPADCALL |m| |i| |j|
                                    (SPADCALL |v| |k| (QREFELT $ 44))
                                    (QREFELT $ 32))))
                        (LETT |j|
                              (PROG1 (+ |j| 1)
                                (LETT |k| (+ |k| 1) . #2#)) . #2#)
                        (GO G190) G191 (EXIT NIL))
                   (EXIT |m|)))))))) 

(DEFUN |ARR2CAT-;setColumn!;SIColS;17| (|m| |j| |v| $)
  (PROG (|k| #0=#:G1930 |i| #1=#:G1929)
    (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))
                              . #2=(|ARR2CAT-;setColumn!;SIColS;17|))
                        (LETT #0# (SPADCALL |v| (QREFELT $ 47)) . #2#)
                        (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #2#)
                        (LETT #1# (SPADCALL |m| (QREFELT $ 12)) . #2#)
                        G190
                        (COND
                          ((OR (> |i| #1#) (> |k| #0#)) (GO G191)))
                        (SEQ (EXIT (SPADCALL |m| |i| |j|
                                    (SPADCALL |v| |k| (QREFELT $ 48))
                                    (QREFELT $ 32))))
                        (LETT |i|
                              (PROG1 (+ |i| 1)
                                (LETT |k| (+ |k| 1) . #2#)) . #2#)
                        (GO G190) G191 (EXIT NIL))
                   (EXIT |m|)))))))) 

(DEFUN |ARR2CAT-;=;2SB;18| (|m| |n| $)
  (PROG (|i| #0=#:G1939 |j| #1=#:G1940 #2=#:G1938 #3=#:G1934)
    (RETURN
      (SEQ (EXIT (COND
                   ((SPADCALL |m| |n| (QREFELT $ 50)) 'T)
                   ('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))))
                           ('T (EXIT 'NIL)))
                         (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11))
                                    . #4=(|ARR2CAT-;=;2SB;18|))
                              (LETT #0#
                                    (SPADCALL |m| (QREFELT $ 12)) . #4#)
                              G190 (COND ((> |i| #0#) #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
                                       (COND
                                         ((NULL
                                           (SPADCALL
                                            (SPADCALL |m| |i| |j|
                                             (QREFELT $ 15))
                                            (SPADCALL |n| |i| |j|
                                             (QREFELT $ 15))
                                            (QREFELT $ 51)))
                                          (PROGN
                                            (LETT #3#
                                             (PROGN
                                               (LETT #2# 'NIL . #4#)
                                               (GO #2#)) . #4#)
                                            (GO #3#))))))
                                     (LETT |j| (+ |j| 1) . #4#)
                                     #6=(GO G190) G191 (EXIT NIL)))
                                   #3# (EXIT #3#))
                              (LETT |i| (+ |i| 1) . #4#) #6# G191
                              (EXIT NIL))
                         (EXIT 'T)))))
           #2# (EXIT #2#))))) 

(DEFUN |ARR2CAT-;member?;RSB;19| (|r| |m| $)
  (PROG (|i| #0=#:G1946 |j| #1=#:G1947 #2=#:G1945 #3=#:G1942)
    (RETURN
      (SEQ (EXIT (SEQ (SEQ (LETT |i| (SPADCALL |m| (QREFELT $ 11))
                                 . #4=(|ARR2CAT-;member?;RSB;19|))
                           (LETT #0#
                                 (SPADCALL |m| (QREFELT $ 12)) . #4#)
                           G190 (COND ((> |i| #0#) #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
                                         (COND
                                           ((SPADCALL
                                             (SPADCALL |m| |i| |j|
                                              (QREFELT $ 15))
                                             |r| (QREFELT $ 51))
                                            (PROGN
                                              (LETT #3#
                                               (PROGN
                                                 (LETT #2# 'T . #4#)
                                                 (GO #2#)) . #4#)
                                              (GO #3#))))))
                                       (LETT |j| (+ |j| 1) . #4#)
                                       #6=(GO G190) G191 (EXIT NIL)))
                                #3# (EXIT #3#))
                           (LETT |i| (+ |i| 1) . #4#) #6# G191
                           (EXIT NIL))
                      (EXIT 'NIL)))
           #2# (EXIT #2#))))) 

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

(DEFUN |ARR2CAT-;count;RSNni;20!0| (|#1| $$)
  (SPADCALL |#1| (QREFELT $$ 1) (QREFELT (QREFELT $$ 0) 51))) 

(DEFUN |ARR2CAT-;row;SIRow;21| (|m| |i| $)
  (PROG (|v| |k| #0=#:G1955 |j| #1=#:G1954)
    (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))
                         . #2=(|ARR2CAT-;row;SIRow;21|))
                   (SEQ (LETT |k| (SPADCALL |v| (QREFELT $ 42)) . #2#)
                        (LETT #0# (SPADCALL |v| (QREFELT $ 43)) . #2#)
                        (LETT |j| (SPADCALL |m| (QREFELT $ 13)) . #2#)
                        (LETT #1# (SPADCALL |m| (QREFELT $ 14)) . #2#)
                        G190
                        (COND
                          ((OR (> |j| #1#) (> |k| #0#)) (GO G191)))
                        (SEQ (EXIT (SPADCALL |v| |k|
                                    (SPADCALL |m| |i| |j|
                                     (QREFELT $ 15))
                                    (QREFELT $ 57))))
                        (LETT |j|
                              (PROG1 (+ |j| 1)
                                (LETT |k| (+ |k| 1) . #2#)) . #2#)
                        (GO G190) G191 (EXIT NIL))
                   (EXIT |v|)))))))) 

(DEFUN |ARR2CAT-;column;SICol;22| (|m| |j| $)
  (PROG (|v| |k| #0=#:G1962 |i| #1=#:G1961)
    (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))
                         . #2=(|ARR2CAT-;column;SICol;22|))
                   (SEQ (LETT |k| (SPADCALL |v| (QREFELT $ 46)) . #2#)
                        (LETT #0# (SPADCALL |v| (QREFELT $ 47)) . #2#)
                        (LETT |i| (SPADCALL |m| (QREFELT $ 11)) . #2#)
                        (LETT #1# (SPADCALL |m| (QREFELT $ 12)) . #2#)
                        G190
                        (COND
                          ((OR (> |i| #1#) (> |k| #0#)) (GO G191)))
                        (SEQ (EXIT (SPADCALL |v| |k|
                                    (SPADCALL |m| |i| |j|
                                     (QREFELT $ 15))
                                    (QREFELT $ 60))))
                        (LETT |i|
                              (PROG1 (+ |i| 1)
                                (LETT |k| (+ |k| 1) . #2#)) . #2#)
                        (GO G190) G191 (EXIT NIL))
                   (EXIT |v|)))))))) 

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

(DEFUN |TwoDimensionalArrayCategory&| (|#1| |#2| |#3| |#4|)
  (PROG (DV$1 DV$2 DV$3 DV$4 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|)
              . #0=(|TwoDimensionalArrayCategory&|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT DV$3 (|devaluate| |#3|) . #0#)
        (LETT DV$4 (|devaluate| |#4|) . #0#)
        (LETT |dv$|
              (LIST '|TwoDimensionalArrayCategory&| DV$1 DV$2 DV$3
                    DV$4) . #0#)
        (LETT $ (GETREFV 67) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|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|)) 
