
(/VERSIONCHECK 2) 

(DEFUN |TRIMAT;UpTriBddDenomInv;MRM;1| (A |denom| $)
  (PROG (AI |offset| #0=#:G1837 #1=#:G1836 |i| #2=#:G1838 |j|
            #3=#:G1839 |k| #4=#:G1840 #5=#:G1831 #6=#:G1829 #7=#:G1830
            #8=#:G1820)
    (RETURN
      (SEQ (LETT AI
                 (SPADCALL (SPADCALL A (QREFELT $ 11))
                     (SPADCALL A (QREFELT $ 11)) (QREFELT $ 12))
                 . #9=(|TRIMAT;UpTriBddDenomInv;MRM;1|))
           (LETT |offset|
                 (- (SPADCALL AI (QREFELT $ 14))
                    (SPADCALL AI (QREFELT $ 15))) . #9#)
           (SEQ (LETT |j| (SPADCALL AI (QREFELT $ 14)) . #9#)
                (LETT #0# (SPADCALL AI (QREFELT $ 17)) . #9#)
                (LETT |i| (SPADCALL AI (QREFELT $ 15)) . #9#)
                (LETT #1# (SPADCALL AI (QREFELT $ 16)) . #9#) G190
                (COND ((OR (> |i| #1#) (> |j| #0#)) #10=(GO G191)))
                (SEQ (EXIT (SPADCALL AI |i| |j|
                               (PROG2 (LETT #8#
                                       (SPADCALL |denom|
                                        (SPADCALL A |i| |j|
                                         (QREFELT $ 18))
                                        (QREFELT $ 20)) . #9#)
                                      (QCDR #8#)
                                 (|check-union| (QEQCAR #8# 0)
                                     (QREFELT $ 6) #8#))
                               (QREFELT $ 21))))
                (LETT |i|
                      (PROG1 (+ |i| 1) (LETT |j| (+ |j| 1) . #9#)) . #9#)
                #11=(GO G190) G191 (EXIT NIL))
           (SEQ (LETT |i| (SPADCALL AI (QREFELT $ 15)) . #9#)
                (LETT #2# (SPADCALL AI (QREFELT $ 16)) . #9#) G190
                (COND ((> |i| #2#) #10#))
                (SEQ (EXIT (SEQ (LETT |j| (+ (+ |offset| |i|) 1) . #9#)
                                (LETT #3#
                                      (SPADCALL AI (QREFELT $ 17)) . #9#)
                                G190 (COND ((> |j| #3#) #10#))
                                (SEQ (EXIT
                                      (SPADCALL AI |i| |j|
                                       (SPADCALL
                                        (PROG2
                                         (LETT #8#
                                          (SPADCALL
                                           (PROGN
                                             (LETT #7# NIL . #9#)
                                             (SEQ
                                              (LETT |k|
                                               (+ |i| |offset|) . #9#)
                                              (LETT #4#
                                               (- |j| 1) . #9#)
                                              G190
                                              (COND
                                                ((> |k| #4#) #10#))
                                              (SEQ
                                               (EXIT
                                                (PROGN
                                                  (LETT #5#
                                                   (SPADCALL
                                                    (SPADCALL AI |i|
                                                     |k|
                                                     (QREFELT $ 18))
                                                    (SPADCALL A
                                                     (- |k| |offset|)
                                                     |j|
                                                     (QREFELT $ 18))
                                                    (QREFELT $ 23)) . #9#)
                                                  (COND
                                                    (#7#
                                                     (LETT #6#
                                                      (SPADCALL #6# #5#
                                                       (QREFELT $ 24)) . #9#))
                                                    ('T
                                                     (PROGN
                                                       (LETT #6#
                                                        #5# . #9#)
                                                       (LETT #7#
                                                        'T . #9#)))))))
                                              (LETT |k|
                                               (+ |k| 1) . #9#)
                                              #11# G191 (EXIT NIL))
                                             (COND
                                               (#7# #6#)
                                               ('T
                                                (|spadConstant| $ 25))))
                                           (SPADCALL A (- |j| |offset|)
                                            |j| (QREFELT $ 18))
                                           (QREFELT $ 20)) . #9#)
                                         (QCDR #8#)
                                          (|check-union| (QEQCAR #8# 0)
                                           (QREFELT $ 6) #8#))
                                        (QREFELT $ 26))
                                       (QREFELT $ 21))))
                                (LETT |j| (+ |j| 1) . #9#) #11# G191
                                (EXIT NIL))))
                (LETT |i| (+ |i| 1) . #9#) #11# G191 (EXIT NIL))
           (EXIT AI))))) 

(DEFUN |TRIMAT;LowTriBddDenomInv;MRM;2| (A |denom| $)
  (PROG (AI |offset| #0=#:G1859 #1=#:G1858 |i| #2=#:G1860 |j|
            #3=#:G1861 |k| #4=#:G1862 #5=#:G1853 #6=#:G1851 #7=#:G1852
            #8=#:G1842)
    (RETURN
      (SEQ (LETT AI
                 (SPADCALL (SPADCALL A (QREFELT $ 11))
                     (SPADCALL A (QREFELT $ 11)) (QREFELT $ 12))
                 . #9=(|TRIMAT;LowTriBddDenomInv;MRM;2|))
           (LETT |offset|
                 (- (SPADCALL AI (QREFELT $ 14))
                    (SPADCALL AI (QREFELT $ 15))) . #9#)
           (SEQ (LETT |j| (SPADCALL AI (QREFELT $ 14)) . #9#)
                (LETT #0# (SPADCALL AI (QREFELT $ 17)) . #9#)
                (LETT |i| (SPADCALL AI (QREFELT $ 15)) . #9#)
                (LETT #1# (SPADCALL AI (QREFELT $ 16)) . #9#) G190
                (COND ((OR (> |i| #1#) (> |j| #0#)) #10=(GO G191)))
                (SEQ (EXIT (SPADCALL AI |i| |j|
                               (PROG2 (LETT #8#
                                       (SPADCALL |denom|
                                        (SPADCALL A |i| |j|
                                         (QREFELT $ 18))
                                        (QREFELT $ 20)) . #9#)
                                      (QCDR #8#)
                                 (|check-union| (QEQCAR #8# 0)
                                     (QREFELT $ 6) #8#))
                               (QREFELT $ 21))))
                (LETT |i|
                      (PROG1 (+ |i| 1) (LETT |j| (+ |j| 1) . #9#)) . #9#)
                #11=(GO G190) G191 (EXIT NIL))
           (SEQ (LETT |i| (SPADCALL AI (QREFELT $ 14)) . #9#)
                (LETT #2# (SPADCALL AI (QREFELT $ 17)) . #9#) G190
                (COND ((> |i| #2#) #10#))
                (SEQ (EXIT (SEQ (LETT |j| (+ (- |i| |offset|) 1) . #9#)
                                (LETT #3#
                                      (SPADCALL AI (QREFELT $ 16)) . #9#)
                                G190 (COND ((> |j| #3#) #10#))
                                (SEQ (EXIT
                                      (SPADCALL AI |j| |i|
                                       (SPADCALL
                                        (PROG2
                                         (LETT #8#
                                          (SPADCALL
                                           (PROGN
                                             (LETT #7# NIL . #9#)
                                             (SEQ
                                              (LETT |k|
                                               (- |i| |offset|) . #9#)
                                              (LETT #4#
                                               (- |j| 1) . #9#)
                                              G190
                                              (COND
                                                ((> |k| #4#) #10#))
                                              (SEQ
                                               (EXIT
                                                (PROGN
                                                  (LETT #5#
                                                   (SPADCALL
                                                    (SPADCALL A |j|
                                                     (+ |k| |offset|)
                                                     (QREFELT $ 18))
                                                    (SPADCALL AI |k|
                                                     |i|
                                                     (QREFELT $ 18))
                                                    (QREFELT $ 23)) . #9#)
                                                  (COND
                                                    (#7#
                                                     (LETT #6#
                                                      (SPADCALL #6# #5#
                                                       (QREFELT $ 24)) . #9#))
                                                    ('T
                                                     (PROGN
                                                       (LETT #6#
                                                        #5# . #9#)
                                                       (LETT #7#
                                                        'T . #9#)))))))
                                              (LETT |k|
                                               (+ |k| 1) . #9#)
                                              #11# G191 (EXIT NIL))
                                             (COND
                                               (#7# #6#)
                                               ('T
                                                (|spadConstant| $ 25))))
                                           (SPADCALL A |j|
                                            (+ |j| |offset|)
                                            (QREFELT $ 18))
                                           (QREFELT $ 20)) . #9#)
                                         (QCDR #8#)
                                          (|check-union| (QEQCAR #8# 0)
                                           (QREFELT $ 6) #8#))
                                        (QREFELT $ 26))
                                       (QREFELT $ 21))))
                                (LETT |j| (+ |j| 1) . #9#) #11# G191
                                (EXIT NIL))))
                (LETT |i| (+ |i| 1) . #9#) #11# G191 (EXIT NIL))
           (EXIT AI))))) 

(DEFUN |TriangularMatrixOperations| (&REST #0=#:G1863)
  (PROG ()
    (RETURN
      (PROG (#1=#:G1864)
        (RETURN
          (COND
            ((LETT #1#
                   (|lassocShiftWithFunction| (|devaluateList| #0#)
                       (HGET |$ConstructorCache|
                             '|TriangularMatrixOperations|)
                       '|domainEqualList|)
                   . #2=(|TriangularMatrixOperations|))
             (|CDRwithIncrement| #1#))
            ('T
             (UNWIND-PROTECT
               (PROG1 (APPLY (|function| |TriangularMatrixOperations;|)
                             #0#)
                 (LETT #1# T . #2#))
               (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache|
                        '|TriangularMatrixOperations|))))))))))) 

(DEFUN |TriangularMatrixOperations;| (|#1| |#2| |#3| |#4|)
  (PROG (DV$1 DV$2 DV$3 DV$4 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|)
              . #0=(|TriangularMatrixOperations|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT DV$3 (|devaluate| |#3|) . #0#)
        (LETT DV$4 (|devaluate| |#4|) . #0#)
        (LETT |dv$|
              (LIST '|TriangularMatrixOperations| DV$1 DV$2 DV$3 DV$4) . #0#)
        (LETT $ (GETREFV 29) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|TriangularMatrixOperations|
            (LIST DV$1 DV$2 DV$3 DV$4) (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 |#2|)
        (QSETREFV $ 8 |#3|)
        (QSETREFV $ 9 |#4|)
        $)))) 

(MAKEPROP '|TriangularMatrixOperations| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|local| |#3|) (|local| |#4|) (|NonNegativeInteger|)
             (0 . |nrows|) (5 . |zero|) (|Integer|)
             (11 . |minColIndex|) (16 . |minRowIndex|)
             (21 . |maxRowIndex|) (26 . |maxColIndex|) (31 . |qelt|)
             (|Union| $ '"failed") (38 . |exquo|) (44 . |qsetelt!|)
             (52 . |One|) (56 . *) (62 . +) (68 . |Zero|) (72 . -)
             |TRIMAT;UpTriBddDenomInv;MRM;1|
             |TRIMAT;LowTriBddDenomInv;MRM;2|)
          '#(|UpTriBddDenomInv| 77 |LowTriBddDenomInv| 83) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 28
                                '(1 9 10 0 11 2 9 0 10 10 12 1 9 13 0
                                  14 1 9 13 0 15 1 9 13 0 16 1 9 13 0
                                  17 3 9 6 0 13 13 18 2 6 19 0 0 20 4 9
                                  6 0 13 13 6 21 0 6 0 22 2 6 0 0 0 23
                                  2 6 0 0 0 24 0 6 0 25 1 6 0 0 26 2 0
                                  9 9 6 27 2 0 9 9 6 28)))))
          '|lookupComplete|)) 
