
(/VERSIONCHECK 2) 

(DEFUN |ELFUTS;sncndnre| (|k| |scd| |dx| |sign| $)
  (PROG ()
    (RETURN
      (LIST (SPADCALL (|spadConstant| $ 8)
                (CONS #'|ELFUTS;sncndnre!0| (VECTOR |dx| $ |scd|))
                (QREFELT $ 17))
            (SPADCALL (|spadConstant| $ 18)
                (CONS #'|ELFUTS;sncndnre!1|
                      (VECTOR |dx| $ |scd| |sign|))
                (QREFELT $ 17))
            (SPADCALL (|spadConstant| $ 18)
                (CONS #'|ELFUTS;sncndnre!2|
                      (VECTOR |dx| |scd| $ |k| |sign|))
                (QREFELT $ 17)))))) 

(DEFUN |ELFUTS;sncndnre!2| ($$)
  (PROG ($ |scd|)
    (LETT $ (QREFELT $$ 2) . #0=(|ELFUTS;sncndnre|))
    (LETT |scd| (QREFELT $$ 1) . #0#)
    (RETURN
      (PROGN
        (SPADCALL
            (SPADCALL
                (SPADCALL
                    (SPADCALL (QREFELT $$ 4)
                        (SPADCALL (QREFELT $$ 3) 2 (QREFELT $ 23))
                        (QREFELT $ 24))
                    (SPADCALL |scd| (|spadConstant| $ 21)
                        (QREFELT $ 13))
                    (QREFELT $ 22))
                (SPADCALL |scd| 2 (QREFELT $ 13)) (QREFELT $ 15))
            (QREFELT $$ 0) (QREFELT $ 15)))))) 

(DEFUN |ELFUTS;sncndnre!1| ($$)
  (PROG (|scd| $)
    (LETT |scd| (QREFELT $$ 2) . #0=(|ELFUTS;sncndnre|))
    (LETT $ (QREFELT $$ 1) . #0#)
    (RETURN
      (PROGN
        (SPADCALL
            (SPADCALL
                (SPADCALL (QREFELT $$ 3)
                    (SPADCALL |scd| (|spadConstant| $ 21)
                        (QREFELT $ 13))
                    (QREFELT $ 22))
                (SPADCALL |scd| 3 (QREFELT $ 13)) (QREFELT $ 15))
            (QREFELT $$ 0) (QREFELT $ 15)))))) 

(DEFUN |ELFUTS;sncndnre!0| ($$)
  (PROG (|scd| $)
    (LETT |scd| (QREFELT $$ 2) . #0=(|ELFUTS;sncndnre|))
    (LETT $ (QREFELT $$ 1) . #0#)
    (RETURN
      (PROGN
        (SPADCALL
            (SPADCALL (SPADCALL |scd| 2 (QREFELT $ 13))
                (SPADCALL |scd| 3 (QREFELT $ 13)) (QREFELT $ 15))
            (QREFELT $$ 0) (QREFELT $ 15)))))) 

(DEFUN |ELFUTS;sncndn;SCoefL;2| (|z| |k| $)
  (PROG ()
    (RETURN
      (COND
        ((SPADCALL |z| (QREFELT $ 26))
         (LIST (SPADCALL (|spadConstant| $ 8) (QREFELT $ 27))
               (SPADCALL (|spadConstant| $ 18) (QREFELT $ 27))
               (SPADCALL (|spadConstant| $ 18) (QREFELT $ 27))))
        ((SPADCALL (SPADCALL |z| (QREFELT $ 28)) (|spadConstant| $ 8)
             (QREFELT $ 29))
         (SPADCALL
             (CONS #'|ELFUTS;sncndn;SCoefL;2!0| (VECTOR $ |z| |k|)) 3
             (QREFELT $ 34)))
        ('T
         (|error| "ELFUTS:sncndn: constant coefficient should be 0")))))) 

(DEFUN |ELFUTS;sncndn;SCoefL;2!0| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 0) |ELFUTS;sncndn;SCoefL;2|)
    (RETURN
      (PROGN
        (|ELFUTS;sncndnre| (QREFELT $$ 2) |#1|
            (SPADCALL (QREFELT $$ 1) (QREFELT $ 30))
            (SPADCALL (|spadConstant| $ 18) (QREFELT $ 31)) $))))) 

(DEFUN |ELFUTS;sn;UTSCoefUTS;3| (|x| |k| $)
  (SPADCALL
      (SPADCALL
          (SPADCALL (SPADCALL |x| (QREFELT $ 36)) |k| (QREFELT $ 35)) 1
          (QREFELT $ 13))
      (QREFELT $ 37))) 

(DEFUN |ELFUTS;cn;UTSCoefUTS;4| (|x| |k| $)
  (SPADCALL
      (SPADCALL
          (SPADCALL (SPADCALL |x| (QREFELT $ 36)) |k| (QREFELT $ 35)) 2
          (QREFELT $ 13))
      (QREFELT $ 37))) 

(DEFUN |ELFUTS;dn;UTSCoefUTS;5| (|x| |k| $)
  (SPADCALL
      (SPADCALL
          (SPADCALL (SPADCALL |x| (QREFELT $ 36)) |k| (QREFELT $ 35)) 3
          (QREFELT $ 13))
      (QREFELT $ 37))) 

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

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

(MAKEPROP '|EllipticFunctionsUnivariateTaylorSeries| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (0 . |Zero|) (4 . |Zero|) (|Stream| 6) (|Integer|)
             (|List| 10) (8 . |elt|) (|StreamTaylorSeriesOperations| 6)
             (14 . *) (|Mapping| 10) (20 . |lazyIntegrate|)
             (26 . |One|) (30 . |One|) (|PositiveInteger|) (34 . |One|)
             (38 . *) (44 . **) (50 . *) (|Boolean|) (56 . |empty?|)
             (61 . |coerce|) (66 . |frst|) (71 . =) (77 . |deriv|)
             (82 . -) (|Mapping| 12 12)
             (|ParadoxicalCombinatorsForStreams| 6) (87 . Y)
             |ELFUTS;sncndn;SCoefL;2| (93 . |coefficients|)
             (98 . |series|) |ELFUTS;sn;UTSCoefUTS;3|
             |ELFUTS;cn;UTSCoefUTS;4| |ELFUTS;dn;UTSCoefUTS;5|)
          '#(|sncndn| 103 |sn| 109 |dn| 115 |cn| 121) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 40
                                '(0 6 0 8 0 7 0 9 2 12 10 0 11 13 2 14
                                  10 10 10 15 2 14 10 6 16 17 0 6 0 18
                                  0 7 0 19 0 20 0 21 2 14 10 6 10 22 2
                                  6 0 0 20 23 2 6 0 0 0 24 1 10 25 0 26
                                  1 14 10 6 27 1 10 6 0 28 2 6 25 0 0
                                  29 1 14 10 10 30 1 6 0 0 31 2 33 12
                                  32 11 34 1 7 10 0 36 1 7 0 10 37 2 0
                                  12 10 6 35 2 0 7 7 6 38 2 0 7 7 6 40
                                  2 0 7 7 6 39)))))
          '|lookupComplete|)) 
