
(/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 (|sign| |k| $ |scd| |dx|)
    (LETT |sign| (QREFELT $$ 4) . #1=(|ELFUTS;sncndnre|))
    (LETT |k| (QREFELT $$ 3) . #1#)
    (LETT $ (QREFELT $$ 2) . #1#)
    (LETT |scd| (QREFELT $$ 1) . #1#)
    (LETT |dx| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL
       (SPADCALL
        (SPADCALL
         (SPADCALL |sign| (SPADCALL |k| 2 (QREFELT $ 23)) (QREFELT $ 24))
         (SPADCALL |scd| (|spadConstant| $ 21) (QREFELT $ 13)) (QREFELT $ 22))
        (SPADCALL |scd| 2 (QREFELT $ 13)) (QREFELT $ 15))
       |dx| (QREFELT $ 15)))))) 

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

(DEFUN |ELFUTS;sncndnre!0| ($$)
  (PROG (|scd| $ |dx|)
    (LETT |scd| (QREFELT $$ 2) . #1=(|ELFUTS;sncndnre|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |dx| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL
       (SPADCALL (SPADCALL |scd| 2 (QREFELT $ 13))
                 (SPADCALL |scd| 3 (QREFELT $ 13)) (QREFELT $ 15))
       |dx| (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| (|x| $$)
  (PROG (|k| |z| $)
    (LETT |k| (QREFELT $$ 2) . #1=(|ELFUTS;sncndn;SCoefL;2|))
    (LETT |z| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|ELFUTS;sncndnre| |k| |x| (SPADCALL |z| (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 #1=#:G673)
  (PROG ()
    (RETURN
     (PROG (#2=#:G674)
       (RETURN
        (COND
         ((LETT #2#
                (|lassocShiftWithFunction| (|devaluateList| #1#)
                                           (HGET |$ConstructorCache|
                                                 '|EllipticFunctionsUnivariateTaylorSeries|)
                                           '|domainEqualList|)
                . #3=(|EllipticFunctionsUnivariateTaylorSeries|))
          (|CDRwithIncrement| #2#))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (APPLY
                   (|function| |EllipticFunctionsUnivariateTaylorSeries;|) #1#)
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#)
              (HREM |$ConstructorCache|
                    '|EllipticFunctionsUnivariateTaylorSeries|))))))))))) 

(DEFUN |EllipticFunctionsUnivariateTaylorSeries;| (|#1| |#2|)
  (PROG (|pv$| $ |dv$| DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|)
            . #1=(|EllipticFunctionsUnivariateTaylorSeries|))
      (LETT DV$2 (|devaluate| |#2|) . #1#)
      (LETT |dv$| (LIST '|EllipticFunctionsUnivariateTaylorSeries| DV$1 DV$2)
            . #1#)
      (LETT $ (GETREFV 41) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|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|)) 
