
(/VERSIONCHECK 2) 

(DEFUN |GENUPS;genStream| (|f| |n| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GENUPS;genStream!0| (VECTOR $ |f| |n|))
               (QREFELT $ 16))))) 

(DEFUN |GENUPS;genStream!0| ($$)
  (PROG (|n| |f| $)
    (LETT |n| (QREFELT $$ 2) . #1=(|GENUPS;genStream|))
    (LETT |f| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |n| |f|)
                (|GENUPS;genStream| |f|
                 (SPADCALL |n| (|spadConstant| $ 11) (QREFELT $ 12)) $)
                (QREFELT $ 14)))))) 

(DEFUN |GENUPS;genFiniteStream| (|f| |n| |m| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GENUPS;genFiniteStream!0| (VECTOR |f| $ |n| |m|))
               (QREFELT $ 16))))) 

(DEFUN |GENUPS;genFiniteStream!0| ($$)
  (PROG (|m| |n| $ |f|)
    (LETT |m| (QREFELT $$ 3) . #1=(|GENUPS;genFiniteStream|))
    (LETT |n| (QREFELT $$ 2) . #1#)
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |f| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (COND ((SPADCALL |m| |n| (QREFELT $ 18)) (SPADCALL (QREFELT $ 19)))
            ('T
             (SPADCALL (SPADCALL |n| |f|)
                       (|GENUPS;genFiniteStream| |f|
                        (SPADCALL |n| (|spadConstant| $ 11) (QREFELT $ 12)) |m|
                        $)
                       (QREFELT $ 14)))))))) 

(DEFUN |GENUPS;taylor;MEA;3| (|f| |eq| $)
  (PROG (|a| |x| |xx|)
    (RETURN
     (SEQ
      (LETT |xx| (SPADCALL (SPADCALL |eq| (QREFELT $ 21)) (QREFELT $ 23))
            . #1=(|GENUPS;taylor;MEA;3|))
      (EXIT
       (COND
        ((QEQCAR |xx| 1) (|error| "taylor: left hand side must be a variable"))
        ('T
         (SEQ (LETT |x| (QCDR |xx|) . #1#)
              (LETT |a| (SPADCALL |eq| (QREFELT $ 24)) . #1#)
              (EXIT
               (SPADCALL
                (SPADCALL (|GENUPS;genStream| |f| 0 $)
                          (|compiledLookupCheck| '|series|
                                                 (LIST '$
                                                       (LIST '|Stream|
                                                             (|devaluate|
                                                              (ELT $ 7))))
                                                 (|UnivariateTaylorSeries|
                                                  (ELT $ 7) |x| |a|)))
                (|compiledLookupCheck| '|coerce|
                                       (LIST (LIST '|Any|)
                                             (LIST '|UnivariateTaylorSeries|
                                                   (|devaluate| (ELT $ 7)) |x|
                                                   |a|))
                                       (|AnyFunctions1|
                                        (|UnivariateTaylorSeries| (ELT $ 7) |x|
                                                                  |a|))))))))))))) 

(DEFUN |GENUPS;taylor;FESEA;4| (|an| |n| |eq| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GENUPS;taylor;FESEA;4!0| (VECTOR $ |n| |an|)) |eq|
               (QREFELT $ 27))))) 

(DEFUN |GENUPS;taylor;FESEA;4!0| (|i| $$)
  (PROG (|an| |n| $)
    (LETT |an| (QREFELT $$ 2) . #1=(|GENUPS;taylor;FESEA;4|))
    (LETT |n| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |an|
                (SPADCALL (SPADCALL |n| (QREFELT $ 29))
                          (SPADCALL |i| (QREFELT $ 30)) (QREFELT $ 32))
                (QREFELT $ 34)))))) 

(DEFUN |GENUPS;taylor;MEUsA;5| (|f| |eq| |seg| $)
  (PROG (|uts| |n0| |n1| |#G18| |#G17| |a| |x| |xx|)
    (RETURN
     (SEQ
      (LETT |xx| (SPADCALL (SPADCALL |eq| (QREFELT $ 21)) (QREFELT $ 23))
            . #1=(|GENUPS;taylor;MEUsA;5|))
      (EXIT
       (COND
        ((QEQCAR |xx| 1) (|error| "taylor: left hand side must be a variable"))
        (#2='T
         (SEQ (LETT |x| (QCDR |xx|) . #1#)
              (LETT |a| (SPADCALL |eq| (QREFELT $ 24)) . #1#)
              (EXIT
               (COND
                ((SPADCALL |seg| (QREFELT $ 37))
                 (SEQ (LETT |n0| (SPADCALL |seg| (QREFELT $ 39)) . #1#)
                      (LETT |n1| (SPADCALL |seg| (QREFELT $ 40)) . #1#)
                      (COND
                       ((< |n1| |n0|)
                        (PROGN
                         (LETT |#G17| |n1| . #1#)
                         (LETT |#G18| |n0| . #1#)
                         (LETT |n0| |#G17| . #1#)
                         (LETT |n1| |#G18| . #1#))))
                      (LETT |uts|
                            (SPADCALL
                             (|GENUPS;genFiniteStream| |f| |n0| |n1| $)
                             (|compiledLookupCheck| '|series|
                                                    (LIST '$
                                                          (LIST '|Stream|
                                                                (|devaluate|
                                                                 (ELT $ 7))))
                                                    (|UnivariateTaylorSeries|
                                                     (ELT $ 7) |x| |a|)))
                            . #1#)
                      (LETT |uts|
                            (SPADCALL |uts|
                                      (SPADCALL (|spadConstant| $ 9) |n0|
                                                (|compiledLookupCheck|
                                                 '|monomial|
                                                 (LIST '$
                                                       (|devaluate| (ELT $ 7))
                                                       (LIST
                                                        '|NonNegativeInteger|))
                                                 (|UnivariateTaylorSeries|
                                                  (ELT $ 7) |x| |a|)))
                                      (|compiledLookupCheck| '* (LIST '$ '$ '$)
                                                             (|UnivariateTaylorSeries|
                                                              (ELT $ 7) |x|
                                                              |a|)))
                            . #1#)
                      (EXIT
                       (SPADCALL |uts|
                                 (|compiledLookupCheck| '|coerce|
                                                        (LIST (LIST '|Any|)
                                                              (LIST
                                                               '|UnivariateTaylorSeries|
                                                               (|devaluate|
                                                                (ELT $ 7))
                                                               |x| |a|))
                                                        (|AnyFunctions1|
                                                         (|UnivariateTaylorSeries|
                                                          (ELT $ 7) |x|
                                                          |a|)))))))
                (#2#
                 (SEQ (LETT |n0| (SPADCALL |seg| (QREFELT $ 39)) . #1#)
                      (LETT |uts|
                            (SPADCALL (|GENUPS;genStream| |f| |n0| $)
                                      (|compiledLookupCheck| '|series|
                                                             (LIST '$
                                                                   (LIST
                                                                    '|Stream|
                                                                    (|devaluate|
                                                                     (ELT $
                                                                          7))))
                                                             (|UnivariateTaylorSeries|
                                                              (ELT $ 7) |x|
                                                              |a|)))
                            . #1#)
                      (LETT |uts|
                            (SPADCALL |uts|
                                      (SPADCALL (|spadConstant| $ 9) |n0|
                                                (|compiledLookupCheck|
                                                 '|monomial|
                                                 (LIST '$
                                                       (|devaluate| (ELT $ 7))
                                                       (LIST
                                                        '|NonNegativeInteger|))
                                                 (|UnivariateTaylorSeries|
                                                  (ELT $ 7) |x| |a|)))
                                      (|compiledLookupCheck| '* (LIST '$ '$ '$)
                                                             (|UnivariateTaylorSeries|
                                                              (ELT $ 7) |x|
                                                              |a|)))
                            . #1#)
                      (EXIT
                       (SPADCALL |uts|
                                 (|compiledLookupCheck| '|coerce|
                                                        (LIST (LIST '|Any|)
                                                              (LIST
                                                               '|UnivariateTaylorSeries|
                                                               (|devaluate|
                                                                (ELT $ 7))
                                                               |x| |a|))
                                                        (|AnyFunctions1|
                                                         (|UnivariateTaylorSeries|
                                                          (ELT $ 7) |x|
                                                          |a|))))))))))))))))) 

(DEFUN |GENUPS;taylor;FESEUsA;6| (|an| |n| |eq| |seg| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GENUPS;taylor;FESEUsA;6!0| (VECTOR $ |n| |an|)) |eq|
               |seg| (QREFELT $ 41))))) 

(DEFUN |GENUPS;taylor;FESEUsA;6!0| (|i| $$)
  (PROG (|an| |n| $)
    (LETT |an| (QREFELT $$ 2) . #1=(|GENUPS;taylor;FESEUsA;6|))
    (LETT |n| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |an|
                (SPADCALL (SPADCALL |n| (QREFELT $ 29))
                          (SPADCALL |i| (QREFELT $ 30)) (QREFELT $ 32))
                (QREFELT $ 34)))))) 

(DEFUN |GENUPS;laurent;MEUsA;7| (|f| |eq| |seg| $)
  (PROG (|uts| |n0| |n1| |#G28| |#G27| |a| |x| |xx|)
    (RETURN
     (SEQ
      (LETT |xx| (SPADCALL (SPADCALL |eq| (QREFELT $ 21)) (QREFELT $ 23))
            . #1=(|GENUPS;laurent;MEUsA;7|))
      (EXIT
       (COND
        ((QEQCAR |xx| 1) (|error| "taylor: left hand side must be a variable"))
        (#2='T
         (SEQ (LETT |x| (QCDR |xx|) . #1#)
              (LETT |a| (SPADCALL |eq| (QREFELT $ 24)) . #1#)
              (EXIT
               (COND
                ((SPADCALL |seg| (QREFELT $ 44))
                 (SEQ (LETT |n0| (SPADCALL |seg| (QREFELT $ 45)) . #1#)
                      (LETT |n1| (SPADCALL |seg| (QREFELT $ 46)) . #1#)
                      (COND
                       ((< |n1| |n0|)
                        (PROGN
                         (LETT |#G27| |n1| . #1#)
                         (LETT |#G28| |n0| . #1#)
                         (LETT |n0| |#G27| . #1#)
                         (LETT |n1| |#G28| . #1#))))
                      (LETT |uts|
                            (SPADCALL
                             (|GENUPS;genFiniteStream| |f| |n0| |n1| $)
                             (|compiledLookupCheck| '|series|
                                                    (LIST '$
                                                          (LIST '|Stream|
                                                                (|devaluate|
                                                                 (ELT $ 7))))
                                                    (|UnivariateTaylorSeries|
                                                     (ELT $ 7) |x| |a|)))
                            . #1#)
                      (EXIT
                       (SPADCALL
                        (SPADCALL |n0| |uts|
                                  (|compiledLookupCheck| '|laurent|
                                                         (LIST '$
                                                               (LIST
                                                                '|Integer|)
                                                               (LIST
                                                                '|UnivariateTaylorSeries|
                                                                (|devaluate|
                                                                 (ELT $ 7))
                                                                |x| |a|))
                                                         (|UnivariateLaurentSeries|
                                                          (ELT $ 7) |x| |a|)))
                        (|compiledLookupCheck| '|coerce|
                                               (LIST (LIST '|Any|)
                                                     (LIST
                                                      '|UnivariateLaurentSeries|
                                                      (|devaluate| (ELT $ 7))
                                                      |x| |a|))
                                               (|AnyFunctions1|
                                                (|UnivariateLaurentSeries|
                                                 (ELT $ 7) |x| |a|)))))))
                (#2#
                 (SEQ (LETT |n0| (SPADCALL |seg| (QREFELT $ 45)) . #1#)
                      (LETT |uts|
                            (SPADCALL (|GENUPS;genStream| |f| |n0| $)
                                      (|compiledLookupCheck| '|series|
                                                             (LIST '$
                                                                   (LIST
                                                                    '|Stream|
                                                                    (|devaluate|
                                                                     (ELT $
                                                                          7))))
                                                             (|UnivariateTaylorSeries|
                                                              (ELT $ 7) |x|
                                                              |a|)))
                            . #1#)
                      (EXIT
                       (SPADCALL
                        (SPADCALL |n0| |uts|
                                  (|compiledLookupCheck| '|laurent|
                                                         (LIST '$
                                                               (LIST
                                                                '|Integer|)
                                                               (LIST
                                                                '|UnivariateTaylorSeries|
                                                                (|devaluate|
                                                                 (ELT $ 7))
                                                                |x| |a|))
                                                         (|UnivariateLaurentSeries|
                                                          (ELT $ 7) |x| |a|)))
                        (|compiledLookupCheck| '|coerce|
                                               (LIST (LIST '|Any|)
                                                     (LIST
                                                      '|UnivariateLaurentSeries|
                                                      (|devaluate| (ELT $ 7))
                                                      |x| |a|))
                                               (|AnyFunctions1|
                                                (|UnivariateLaurentSeries|
                                                 (ELT $ 7) |x|
                                                 |a|))))))))))))))))) 

(DEFUN |GENUPS;laurent;FESEUsA;8| (|an| |n| |eq| |seg| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GENUPS;laurent;FESEUsA;8!0| (VECTOR $ |n| |an|)) |eq|
               |seg| (QREFELT $ 47))))) 

(DEFUN |GENUPS;laurent;FESEUsA;8!0| (|i| $$)
  (PROG (|an| |n| $)
    (LETT |an| (QREFELT $$ 2) . #1=(|GENUPS;laurent;FESEUsA;8|))
    (LETT |n| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |an|
                (SPADCALL (SPADCALL |n| (QREFELT $ 29))
                          (SPADCALL |i| (QREFELT $ 30)) (QREFELT $ 32))
                (QREFELT $ 34)))))) 

(DEFUN |GENUPS;modifyFcn| (|f| |n0| |nn| |q| |m| $)
  (COND
   ((ZEROP (REMAINDER2 (- |m| |n0|) |nn|))
    (SPADCALL (SPADCALL |m| |q| (QREFELT $ 50)) |f|))
   ('T (|spadConstant| $ 51)))) 

(DEFUN |GENUPS;puiseux;MEUsFA;10| (|f| |eq| |seg| |r| $)
  (PROG (|uls| |ulsUnion| |nn| |n0| |q| |q2| |p2| |q0| |p0| |r0| |n1| |q1| |p1|
         |r1| |#G44| |#G43| |a| |x| |xx|)
    (RETURN
     (SEQ
      (LETT |xx| (SPADCALL (SPADCALL |eq| (QREFELT $ 21)) (QREFELT $ 23))
            . #1=(|GENUPS;puiseux;MEUsFA;10|))
      (EXIT
       (COND
        ((QEQCAR |xx| 1)
         (|error| "puiseux: left hand side must be a variable"))
        (#2='T
         (SEQ (LETT |x| (QCDR |xx|) . #1#)
              (LETT |a| (SPADCALL |eq| (QREFELT $ 24)) . #1#)
              (COND
               ((NULL (SPADCALL |r| (QREFELT $ 52)))
                (EXIT (|error| "puiseux: last argument must be positive"))))
              (EXIT
               (COND
                ((SPADCALL |seg| (QREFELT $ 54))
                 (SEQ (LETT |r0| (SPADCALL |seg| (QREFELT $ 55)) . #1#)
                      (LETT |r1| (SPADCALL |seg| (QREFELT $ 56)) . #1#)
                      (COND
                       ((SPADCALL |r1| |r0| (QREFELT $ 57))
                        (PROGN
                         (LETT |#G43| |r1| . #1#)
                         (LETT |#G44| |r0| . #1#)
                         (LETT |r0| |#G43| . #1#)
                         (LETT |r1| |#G44| . #1#))))
                      (LETT |p0| (SPADCALL |r0| (QREFELT $ 58)) . #1#)
                      (LETT |q0| (SPADCALL |r0| (QREFELT $ 59)) . #1#)
                      (LETT |p1| (SPADCALL |r1| (QREFELT $ 58)) . #1#)
                      (LETT |q1| (SPADCALL |r1| (QREFELT $ 59)) . #1#)
                      (LETT |p2| (SPADCALL |r| (QREFELT $ 58)) . #1#)
                      (LETT |q2| (SPADCALL |r| (QREFELT $ 59)) . #1#)
                      (LETT |q|
                            (SPADCALL (SPADCALL |q0| |q1| (QREFELT $ 60)) |q2|
                                      (QREFELT $ 60))
                            . #1#)
                      (LETT |n0| (* |p0| (QUOTIENT2 |q| |q0|)) . #1#)
                      (LETT |n1| (* |p1| (QUOTIENT2 |q| |q1|)) . #1#)
                      (LETT |nn| (* |p2| (QUOTIENT2 |q| |q2|)) . #1#)
                      (LETT |ulsUnion|
                            (SPADCALL
                             (CONS #'|GENUPS;puiseux;MEUsFA;10!0|
                                   (VECTOR $ |q| |nn| |n0| |f|))
                             |eq| (SPADCALL |n0| |n1| (QREFELT $ 61))
                             (QREFELT $ 47))
                            . #1#)
                      (LETT |uls|
                            (SPADCALL |ulsUnion|
                                      (|compiledLookupCheck| '|retract|
                                                             (LIST
                                                              (LIST
                                                               '|UnivariateLaurentSeries|
                                                               (|devaluate|
                                                                (ELT $ 7))
                                                               |x| |a|)
                                                              (LIST '|Any|))
                                                             (|AnyFunctions1|
                                                              (|UnivariateLaurentSeries|
                                                               (ELT $ 7) |x|
                                                               |a|))))
                            . #1#)
                      (EXIT
                       (SPADCALL
                        (SPADCALL (SPADCALL 1 |q| (QREFELT $ 50)) |uls|
                                  (|compiledLookupCheck| '|puiseux|
                                                         (LIST '$
                                                               (LIST
                                                                '|Fraction|
                                                                (LIST
                                                                 '|Integer|))
                                                               (LIST
                                                                '|UnivariateLaurentSeries|
                                                                (|devaluate|
                                                                 (ELT $ 7))
                                                                |x| |a|))
                                                         (|UnivariatePuiseuxSeries|
                                                          (ELT $ 7) |x| |a|)))
                        (|compiledLookupCheck| '|coerce|
                                               (LIST (LIST '|Any|)
                                                     (LIST
                                                      '|UnivariatePuiseuxSeries|
                                                      (|devaluate| (ELT $ 7))
                                                      |x| |a|))
                                               (|AnyFunctions1|
                                                (|UnivariatePuiseuxSeries|
                                                 (ELT $ 7) |x| |a|)))))))
                (#2#
                 (SEQ
                  (LETT |p0|
                        (SPADCALL
                         (LETT |r0| (SPADCALL |seg| (QREFELT $ 55)) . #1#)
                         (QREFELT $ 58))
                        . #1#)
                  (LETT |q0| (SPADCALL |r0| (QREFELT $ 59)) . #1#)
                  (LETT |p2| (SPADCALL |r| (QREFELT $ 58)) . #1#)
                  (LETT |q2| (SPADCALL |r| (QREFELT $ 59)) . #1#)
                  (LETT |q| (SPADCALL |q0| |q2| (QREFELT $ 60)) . #1#)
                  (LETT |n0| (* |p0| (QUOTIENT2 |q| |q0|)) . #1#)
                  (LETT |nn| (* |p2| (QUOTIENT2 |q| |q2|)) . #1#)
                  (LETT |ulsUnion|
                        (SPADCALL
                         (CONS #'|GENUPS;puiseux;MEUsFA;10!1|
                               (VECTOR $ |q| |nn| |n0| |f|))
                         |eq| (SPADCALL |n0| (QREFELT $ 62)) (QREFELT $ 47))
                        . #1#)
                  (LETT |uls|
                        (SPADCALL |ulsUnion|
                                  (|compiledLookupCheck| '|retract|
                                                         (LIST
                                                          (LIST
                                                           '|UnivariateLaurentSeries|
                                                           (|devaluate|
                                                            (ELT $ 7))
                                                           |x| |a|)
                                                          (LIST '|Any|))
                                                         (|AnyFunctions1|
                                                          (|UnivariateLaurentSeries|
                                                           (ELT $ 7) |x|
                                                           |a|))))
                        . #1#)
                  (EXIT
                   (SPADCALL
                    (SPADCALL (SPADCALL 1 |q| (QREFELT $ 50)) |uls|
                              (|compiledLookupCheck| '|puiseux|
                                                     (LIST '$
                                                           (LIST '|Fraction|
                                                                 (LIST
                                                                  '|Integer|))
                                                           (LIST
                                                            '|UnivariateLaurentSeries|
                                                            (|devaluate|
                                                             (ELT $ 7))
                                                            |x| |a|))
                                                     (|UnivariatePuiseuxSeries|
                                                      (ELT $ 7) |x| |a|)))
                    (|compiledLookupCheck| '|coerce|
                                           (LIST (LIST '|Any|)
                                                 (LIST
                                                  '|UnivariatePuiseuxSeries|
                                                  (|devaluate| (ELT $ 7)) |x|
                                                  |a|))
                                           (|AnyFunctions1|
                                            (|UnivariatePuiseuxSeries|
                                             (ELT $ 7) |x| |a|))))))))))))))))) 

(DEFUN |GENUPS;puiseux;MEUsFA;10!1| (|i| $$)
  (PROG (|f| |n0| |nn| |q| $)
    (LETT |f| (QREFELT $$ 4) . #1=(|GENUPS;puiseux;MEUsFA;10|))
    (LETT |n0| (QREFELT $$ 3) . #1#)
    (LETT |nn| (QREFELT $$ 2) . #1#)
    (LETT |q| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|GENUPS;modifyFcn| |f| |n0| |nn| |q| |i| $))))) 

(DEFUN |GENUPS;puiseux;MEUsFA;10!0| (|i| $$)
  (PROG (|f| |n0| |nn| |q| $)
    (LETT |f| (QREFELT $$ 4) . #1=(|GENUPS;puiseux;MEUsFA;10|))
    (LETT |n0| (QREFELT $$ 3) . #1#)
    (LETT |nn| (QREFELT $$ 2) . #1#)
    (LETT |q| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|GENUPS;modifyFcn| |f| |n0| |nn| |q| |i| $))))) 

(DEFUN |GENUPS;puiseux;FESEUsFA;11| (|an| |n| |eq| |r0| |m| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GENUPS;puiseux;FESEUsFA;11!0| (VECTOR $ |n| |an|)) |eq|
               |r0| |m| (QREFELT $ 64))))) 

(DEFUN |GENUPS;puiseux;FESEUsFA;11!0| (|r| $$)
  (PROG (|an| |n| $)
    (LETT |an| (QREFELT $$ 2) . #1=(|GENUPS;puiseux;FESEUsFA;11|))
    (LETT |n| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |an|
                (SPADCALL (SPADCALL |n| (QREFELT $ 29))
                          (SPADCALL |r| (QREFELT $ 65)) (QREFELT $ 32))
                (QREFELT $ 34)))))) 

(DEFUN |GENUPS;series;MEA;12| (|f| |eq| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GENUPS;series;MEA;12!0| (VECTOR |f| $)) |eq|
               (SPADCALL (|spadConstant| $ 68) (QREFELT $ 69))
               (|spadConstant| $ 70) (QREFELT $ 64))))) 

(DEFUN |GENUPS;series;MEA;12!0| (|r| $$)
  (PROG ($ |f|)
    (LETT $ (QREFELT $$ 1) . #1=(|GENUPS;series;MEA;12|))
    (LETT |f| (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL (SPADCALL |r| (QREFELT $ 58)) |f|))))) 

(DEFUN |GENUPS;series;FESEA;13| (|an| |n| |eq| $)
  (SPADCALL |an| |n| |eq| (SPADCALL (|spadConstant| $ 68) (QREFELT $ 69))
            (|spadConstant| $ 70) (QREFELT $ 66))) 

(DEFUN |GENUPS;series;MEUsA;14| (|f| |eq| |seg| $)
  (PROG (|ratSeg|)
    (RETURN
     (SEQ
      (LETT |ratSeg| (SPADCALL (ELT $ 73) |seg| (QREFELT $ 76))
            |GENUPS;series;MEUsA;14|)
      (EXIT
       (SPADCALL (CONS #'|GENUPS;series;MEUsA;14!0| (VECTOR |f| $)) |eq|
                 |ratSeg| (|spadConstant| $ 70) (QREFELT $ 64))))))) 

(DEFUN |GENUPS;series;MEUsA;14!0| (|r| $$)
  (PROG ($ |f|)
    (LETT $ (QREFELT $$ 1) . #1=(|GENUPS;series;MEUsA;14|))
    (LETT |f| (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL (SPADCALL |r| (QREFELT $ 58)) |f|))))) 

(DEFUN |GENUPS;series;FESEUsA;15| (|an| |n| |eq| |seg| $)
  (PROG (|ratSeg|)
    (RETURN
     (SEQ
      (LETT |ratSeg| (SPADCALL (ELT $ 73) |seg| (QREFELT $ 76))
            |GENUPS;series;FESEUsA;15|)
      (EXIT
       (SPADCALL |an| |n| |eq| |ratSeg| (|spadConstant| $ 70)
                 (QREFELT $ 66))))))) 

(DEFUN |GENUPS;series;MEUsFA;16| (|f| |eq| |seg| |r| $)
  (SPADCALL |f| |eq| |seg| |r| (QREFELT $ 64))) 

(DEFUN |GENUPS;series;FESEUsFA;17| (|an| |n| |eq| |seg| |r| $)
  (SPADCALL |an| |n| |eq| |seg| |r| (QREFELT $ 66))) 

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

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

(MAKEPROP '|GenerateUnivariatePowerSeries| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) (0 . |One|)
              (4 . |One|) (|Integer|) (8 . |One|) (12 . +) (|Stream| 7)
              (18 . |concat|) (|Mapping| $) (24 . |delay|) (|Boolean|) (29 . <)
              (35 . |empty|) (|Equation| 7) (39 . |lhs|) (|Union| 28 '"failed")
              (44 . |retractIfCan|) (49 . |rhs|) (|Any|) (|Mapping| 7 10)
              |GENUPS;taylor;MEA;3| (|Symbol|) (54 . |coerce|) (59 . |coerce|)
              (64 . =) (70 . =) (|Equation| $) (76 . |eval|)
              |GENUPS;taylor;FESEA;4| (|UniversalSegment| 38) (82 . |hasHi|)
              (|NonNegativeInteger|) (87 . |lo|) (92 . |hi|)
              |GENUPS;taylor;MEUsA;5| |GENUPS;taylor;FESEUsA;6|
              (|UniversalSegment| 10) (97 . |hasHi|) (102 . |lo|) (107 . |hi|)
              |GENUPS;laurent;MEUsA;7| |GENUPS;laurent;FESEUsA;8|
              (|Fraction| 10) (112 . /) (118 . |Zero|) (122 . |positive?|)
              (|UniversalSegment| 49) (127 . |hasHi|) (132 . |lo|) (137 . |hi|)
              (142 . <) (148 . |numer|) (153 . |denom|) (158 . |lcm|)
              (164 . |segment|) (170 . |segment|) (|Mapping| 7 49)
              |GENUPS;puiseux;MEUsFA;10| (175 . |coerce|)
              |GENUPS;puiseux;FESEUsFA;11| (180 . |Zero|) (184 . |Zero|)
              (188 . |segment|) (193 . |One|) |GENUPS;series;MEA;12|
              |GENUPS;series;FESEA;13| (197 . |coerce|) (|Mapping| 49 10)
              (|UniversalSegmentFunctions2| 10 49) (202 . |map|)
              |GENUPS;series;MEUsA;14| |GENUPS;series;FESEUsA;15|
              |GENUPS;series;MEUsFA;16| |GENUPS;series;FESEUsFA;17|)
           '#(|taylor| 208 |series| 236 |puiseux| 281 |laurent| 298) 'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 80
                                                 '(0 6 0 8 0 7 0 9 0 10 0 11 2
                                                   10 0 0 0 12 2 13 0 7 0 14 1
                                                   13 0 15 16 2 10 17 0 0 18 0
                                                   13 0 19 1 20 7 0 21 1 7 22 0
                                                   23 1 20 7 0 24 1 7 0 28 29 1
                                                   7 0 10 30 2 7 17 0 0 31 2 20
                                                   0 7 7 32 2 7 0 0 33 34 1 36
                                                   17 0 37 1 36 38 0 39 1 36 38
                                                   0 40 1 43 17 0 44 1 43 10 0
                                                   45 1 43 10 0 46 2 49 0 10 10
                                                   50 0 7 0 51 1 49 17 0 52 1
                                                   53 17 0 54 1 53 49 0 55 1 53
                                                   49 0 56 2 49 17 0 0 57 1 49
                                                   10 0 58 1 49 10 0 59 2 10 0
                                                   0 0 60 2 43 0 10 10 61 1 43
                                                   0 10 62 1 7 0 49 65 0 6 0 67
                                                   0 49 0 68 1 53 0 49 69 0 49
                                                   0 70 1 49 0 10 73 2 75 53 74
                                                   43 76 2 0 25 26 20 27 3 0 25
                                                   26 20 36 41 3 0 25 7 28 20
                                                   35 4 0 25 7 28 20 36 42 3 0
                                                   25 7 28 20 72 2 0 25 26 20
                                                   71 4 0 25 7 28 20 43 78 3 0
                                                   25 26 20 43 77 5 0 25 7 28
                                                   20 53 49 80 4 0 25 63 20 53
                                                   49 79 4 0 25 63 20 53 49 64
                                                   5 0 25 7 28 20 53 49 66 3 0
                                                   25 26 20 43 47 4 0 25 7 28
                                                   20 43 48)))))
           '|lookupComplete|)) 
