
(/VERSIONCHECK 2) 

(DEFUN |ODEPAL;algDsolve;LodoRR;1| (|l| |g| $)
  (PROG (|rec| |sol| #0=#:G1843 |v| #1=#:G1844 |bas| |u|)
    (RETURN
      (SEQ (LETT |rec| (SPADCALL |l| |g| (QREFELT $ 13))
                 . #2=(|ODEPAL;algDsolve;LodoRR;1|))
           (LETT |sol|
                 (SPADCALL (QCAR |rec|) (QCDR |rec|) (ELT $ 19)
                     (QREFELT $ 26)) . #2#)
           (LETT |bas|
                 (PROGN
                   (LETT #0# NIL . #2#)
                   (SEQ (LETT |v| NIL . #2#)
                        (LETT #1# (QCDR |sol|) . #2#) G190
                        (COND
                          ((OR (ATOM #1#)
                               (PROGN (LETT |v| (CAR #1#) . #2#) NIL))
                           (GO G191)))
                        (SEQ (EXIT (LETT #0#
                                    (CONS (SPADCALL |v| (QREFELT $ 29))
                                     #0#) . #2#)))
                        (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                        (EXIT (NREVERSE0 #0#)))) . #2#)
           (LETT |u| (QCAR |sol|) . #2#)
           (EXIT (COND
                   ((QEQCAR |u| 0)
                    (CONS (CONS 0 (SPADCALL (QCDR |u|) (QREFELT $ 29)))
                          |bas|))
                   ('T (CONS (CONS 1 "failed") |bas|)))))))) 

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

(DEFUN |PureAlgebraicLODE;| (|#1| |#2| |#3| |#4|)
  (PROG (DV$1 DV$2 DV$3 DV$4 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|PureAlgebraicLODE|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT DV$3 (|devaluate| |#3|) . #0#)
        (LETT DV$4 (|devaluate| |#4|) . #0#)
        (LETT |dv$|
              (LIST '|PureAlgebraicLODE| DV$1 DV$2 DV$3 DV$4) . #0#)
        (LETT $ (GETREFV 33) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|PureAlgebraicLODE|
            (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 '|PureAlgebraicLODE| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|local| |#3|) (|local| |#4|)
             (|Record| (|:| |mat| 22) (|:| |vec| 23))
             (|LinearOrdinaryDifferentialOperator1| 9)
             (|ReduceLODE| 17 16 8 9 11) (0 . |reduceLODE|)
             (|Union| 17 '"failed")
             (|Record| (|:| |particular| 14) (|:| |basis| (|List| 17)))
             (|LinearOrdinaryDifferentialOperator1| 17) (|Fraction| 7)
             (|RationalLODE| 6 7) (6 . |ratDsolve|)
             (|Union| 23 '"failed")
             (|Record| (|:| |particular| 20) (|:| |basis| (|List| 23)))
             (|Matrix| 16) (|Vector| 17) (|Mapping| 15 16 17)
             (|SystemODESolver| 17 16) (12 . |solveInField|)
             (|Vector| $) (19 . |basis|) (23 . |represents|)
             (|Union| 9 '"failed")
             (|Record| (|:| |particular| 30) (|:| |basis| (|List| 9)))
             |ODEPAL;algDsolve;LodoRR;1|)
          '#(|algDsolve| 28) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 32
                                '(2 12 10 11 9 13 2 18 15 16 17 19 3 25
                                  21 22 23 24 26 0 9 27 28 1 9 0 23 29
                                  2 0 31 11 9 32)))))
          '|lookupComplete|)) 
