
(/VERSIONCHECK 2) 

(DEFUN |LPEFRAC;pullback| (|pF| $)
  (PROG (|c| |r|)
    (RETURN
      (SEQ (COND
             ((SPADCALL |pF| (|spadConstant| $ 11) (QREFELT $ 13))
              (CONS 0 (|spadConstant| $ 9)))
             (#0='T
              (SEQ (LETT |c|
                         (SPADCALL (SPADCALL |pF| (QREFELT $ 15))
                             (QREFELT $ 17))
                         . #1=(|LPEFRAC;pullback|))
                   (EXIT (COND
                           ((QEQCAR |c| 1) (CONS 1 "failed"))
                           (#0#
                            (SEQ (LETT |r|
                                       (|LPEFRAC;pullback|
                                        (SPADCALL |pF| (QREFELT $ 18))
                                        $) . #1#)
                                 (EXIT (COND
                                         ((QEQCAR |r| 1)
                                          (CONS 1 "failed"))
                                         (#0#
                                          (CONS 0
                                           (SPADCALL
                                            (SPADCALL (QCDR |c|)
                                             (SPADCALL |pF|
                                              (QREFELT $ 20))
                                             (QREFELT $ 21))
                                            (QCDR |r|) (QREFELT $ 22))))))))))))))))) 

(DEFUN |LPEFRAC;solveLinearPolynomialEquationByFractions;LSupU;2|
       (|lp| |pp| $)
  (PROG (#0=#:G1845 |u| #1=#:G1846 |lpF| |pF| |ans| #2=#:G1847 |v|
            #3=#:G1848 |vv| #4=#:G1844)
    (RETURN
      (SEQ (EXIT (SEQ (LETT |lpF|
                            (PROGN
                              (LETT #0# NIL
                                    . #5=(|LPEFRAC;solveLinearPolynomialEquationByFractions;LSupU;2|))
                              (SEQ (LETT |u| NIL . #5#)
                                   (LETT #1# |lp| . #5#) G190
                                   (COND
                                     ((OR (ATOM #1#)
                                       (PROGN
                                         (LETT |u| (CAR #1#) . #5#)
                                         NIL))
                                      #6=(GO G191)))
                                   (SEQ
                                    (EXIT
                                     (LETT #0#
                                      (CONS
                                       (SPADCALL
                                        (CONS
                                         #'|LPEFRAC;solveLinearPolynomialEquationByFractions;LSupU;2!0|
                                         $)
                                        |u| (QREFELT $ 26))
                                       #0#) . #5#)))
                                   (LETT #1# (CDR #1#) . #5#)
                                   #7=(GO G190) G191
                                   (EXIT (NREVERSE0 #0#)))) . #5#)
                      (LETT |pF|
                            (SPADCALL
                                (CONS #'|LPEFRAC;solveLinearPolynomialEquationByFractions;LSupU;2!1|
                                      $)
                                |pp| (QREFELT $ 26)) . #5#)
                      (LETT |ans|
                            (SPADCALL |lpF| |pF| (QREFELT $ 30)) . #5#)
                      (EXIT (COND
                              ((QEQCAR |ans| 1) (CONS 1 "failed"))
                              ('T
                               (CONS 0
                                     (PROGN
                                       (LETT #2# NIL . #5#)
                                       (SEQ (LETT |v| NIL . #5#)
                                        (LETT #3# (QCDR |ans|) . #5#)
                                        G190
                                        (COND
                                          ((OR (ATOM #3#)
                                            (PROGN
                                              (LETT |v|
                                               (CAR #3#) . #5#)
                                              NIL))
                                           #6#))
                                        (SEQ
                                         (EXIT
                                          (LETT #2#
                                           (CONS
                                            (SEQ
                                             (LETT |vv|
                                              (|LPEFRAC;pullback| |v|
                                               $) . #5#)
                                             (EXIT
                                              (COND
                                                ((QEQCAR |vv| 1)
                                                 (PROGN
                                                   (LETT #4#
                                                    (CONS 1 "failed") . #5#)
                                                   (GO #4#)))
                                                ('T (QCDR |vv|)))))
                                            #2#) . #5#)))
                                        (LETT #3# (CDR #3#) . #5#) #7#
                                        G191 (EXIT (NREVERSE0 #2#))))))))))
           #4# (EXIT #4#))))) 

(DEFUN |LPEFRAC;solveLinearPolynomialEquationByFractions;LSupU;2!1|
       (|#1| $)
  (SPADCALL |#1| (QREFELT $ 23))) 

(DEFUN |LPEFRAC;solveLinearPolynomialEquationByFractions;LSupU;2!0|
       (|#1| $)
  (SPADCALL |#1| (QREFELT $ 23))) 

(DEFUN |LinearPolynomialEquationByFractions| (#0=#:G1849)
  (PROG ()
    (RETURN
      (PROG (#1=#:G1850)
        (RETURN
          (COND
            ((LETT #1#
                   (|lassocShiftWithFunction| (LIST (|devaluate| #0#))
                       (HGET |$ConstructorCache|
                             '|LinearPolynomialEquationByFractions|)
                       '|domainEqualList|)
                   . #2=(|LinearPolynomialEquationByFractions|))
             (|CDRwithIncrement| #1#))
            ('T
             (UNWIND-PROTECT
               (PROG1 (|LinearPolynomialEquationByFractions;| #0#)
                 (LETT #1# T . #2#))
               (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache|
                        '|LinearPolynomialEquationByFractions|))))))))))) 

(DEFUN |LinearPolynomialEquationByFractions;| (|#1|)
  (PROG (DV$1 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|)
              . #0=(|LinearPolynomialEquationByFractions|))
        (LETT |dv$|
              (LIST '|LinearPolynomialEquationByFractions| DV$1) . #0#)
        (LETT $ (GETREFV 34) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache|
            '|LinearPolynomialEquationByFractions| (LIST DV$1)
            (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        $)))) 

(MAKEPROP '|LinearPolynomialEquationByFractions| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (0 . |Zero|)
             (|SparseUnivariatePolynomial| 6) (4 . |Zero|)
             (|SparseUnivariatePolynomial| 14) (8 . |Zero|) (|Boolean|)
             (12 . =) (|Fraction| 6) (18 . |leadingCoefficient|)
             (|Union| 6 '"failed") (23 . |retractIfCan|)
             (28 . |reductum|) (|NonNegativeInteger|) (33 . |degree|)
             (38 . |monomial|) (44 . +) (50 . |coerce|)
             (|Mapping| 14 6)
             (|UnivariatePolynomialCategoryFunctions2| 6 8 14 10)
             (55 . |map|) (|Union| 28 '"failed") (|List| 29)
             (|SparseUnivariatePolynomial| $)
             (61 . |solveLinearPolynomialEquation|)
             (|Union| 32 '"failed") (|List| 8)
             |LPEFRAC;solveLinearPolynomialEquationByFractions;LSupU;2|)
          '#(|solveLinearPolynomialEquationByFractions| 67) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 33
                                '(0 6 0 7 0 8 0 9 0 10 0 11 2 10 12 0 0
                                  13 1 10 14 0 15 1 14 16 0 17 1 10 0 0
                                  18 1 10 19 0 20 2 8 0 6 19 21 2 8 0 0
                                  0 22 1 14 0 6 23 2 25 10 24 8 26 2 14
                                  27 28 29 30 2 0 31 32 8 33)))))
          '|lookupComplete|)) 
