
(SDEFUN |STTF;expre|
        ((|r| |Coef|) (|e| |Stream| |Coef|) (|dx| |Stream| |Coef|)
         ($ |Stream| |Coef|))
        (SPROG NIL
               (SPADCALL |r| (CONS #'|STTF;expre!0| (VECTOR $ |dx| |e|))
                         (QREFELT $ 20)))) 

(SDEFUN |STTF;expre!0| (($$ NIL))
        (PROG (|e| |dx| $)
          (LETT |e| (QREFELT $$ 2) . #1=(|STTF;expre|))
          (LETT |dx| (QREFELT $$ 1) . #1#)
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN (PROGN (SPADCALL |e| |dx| (QREFELT $ 18)))))) 

(SDEFUN |STTF;exp;2S;2| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((|coef| (|Coef|)))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24)))
                 (#1='T
                  (SEQ
                   (LETT |coef| (SPADCALL |z| (QREFELT $ 25)) |STTF;exp;2S;2|)
                   (EXIT
                    (COND
                     ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                      (SPADCALL (CONS #'|STTF;exp;2S;2!0| (VECTOR |z| $))
                                (QREFELT $ 31)))
                     ((QREFELT $ 7)
                      (SPADCALL
                       (CONS #'|STTF;exp;2S;2!1| (VECTOR |z| $ |coef|))
                       (QREFELT $ 31)))
                     (#1# (|error| (STRCONC "exp: " (QREFELT $ 8)))))))))))) 

(SDEFUN |STTF;exp;2S;2!1| ((|y| NIL) ($$ NIL))
        (PROG (|coef| $ |z|)
          (LETT |coef| (QREFELT $$ 2) . #1=(|STTF;exp;2S;2|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;expre| (SPADCALL |coef| (QREFELT $ 32)) |y|
             (SPADCALL |z| (QREFELT $ 28)) $))))) 

(SDEFUN |STTF;exp;2S;2!0| ((|y| NIL) ($$ NIL))
        (PROG ($ |z|)
          (LETT $ (QREFELT $$ 1) . #1=(|STTF;exp;2S;2|))
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;expre| (|spadConstant| $ 23) |y|
             (SPADCALL |z| (QREFELT $ 28)) $))))) 

(SDEFUN |STTF;log;2S;3| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((|coef| (|Coef|)))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (|error| "log: constant coefficient should not be 0"))
                 (#1='T
                  (SEQ
                   (LETT |coef| (SPADCALL |z| (QREFELT $ 25)) |STTF;log;2S;3|)
                   (EXIT
                    (COND
                     ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                      (|error| "log: constant coefficient should not be 0"))
                     ((SPADCALL |coef| (|spadConstant| $ 23) (QREFELT $ 27))
                      (SPADCALL (|spadConstant| $ 26)
                                (CONS #'|STTF;log;2S;3!0| (VECTOR $ |z|))
                                (QREFELT $ 20)))
                     ((QREFELT $ 7)
                      (SPADCALL (SPADCALL |coef| (QREFELT $ 35))
                                (CONS #'|STTF;log;2S;3!1| (VECTOR $ |z|))
                                (QREFELT $ 20)))
                     (#1# (|error| (STRCONC "log: " (QREFELT $ 8)))))))))))) 

(SDEFUN |STTF;log;2S;3!1| (($$ NIL))
        (PROG (|z| $)
          (LETT |z| (QREFELT $$ 1) . #1=(|STTF;log;2S;3|))
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |z| (QREFELT $ 28)) |z| (QREFELT $ 34)))))) 

(SDEFUN |STTF;log;2S;3!0| (($$ NIL))
        (PROG (|z| $)
          (LETT |z| (QREFELT $$ 1) . #1=(|STTF;log;2S;3|))
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |z| (QREFELT $ 28)) |z| (QREFELT $ 34)))))) 

(SDEFUN |STTF;^;3S;4|
        ((|z1| |Stream| |Coef|) (|z2| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPADCALL (SPADCALL |z2| (SPADCALL |z1| (QREFELT $ 36)) (QREFELT $ 18))
                  (QREFELT $ 33))) 

(SDEFUN |STTF;sincosre|
        ((|rs| |Coef|) (|rc| |Coef|) (|sc| |List| (|Stream| |Coef|))
         (|dx| |Stream| |Coef|) (|sign| |Coef|) ($ |List| (|Stream| |Coef|)))
        (SPROG NIL
               (LIST
                (SPADCALL |rs| (CONS #'|STTF;sincosre!0| (VECTOR |dx| $ |sc|))
                          (QREFELT $ 20))
                (SPADCALL |rc|
                          (CONS #'|STTF;sincosre!1|
                                (VECTOR |dx| $ |sc| |sign|))
                          (QREFELT $ 20))))) 

(SDEFUN |STTF;sincosre!1| (($$ NIL))
        (PROG (|sign| |sc| $ |dx|)
          (LETT |sign| (QREFELT $$ 3) . #1=(|STTF;sincosre|))
          (LETT |sc| (QREFELT $$ 2) . #1#)
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |dx| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL
             (SPADCALL |sign| (SPADCALL |sc| (QREFELT $ 40)) (QREFELT $ 41))
             |dx| (QREFELT $ 18)))))) 

(SDEFUN |STTF;sincosre!0| (($$ NIL))
        (PROG (|sc| $ |dx|)
          (LETT |sc| (QREFELT $$ 2) . #1=(|STTF;sincosre|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |dx| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |sc| (QREFELT $ 39)) |dx| (QREFELT $ 18)))))) 

(SDEFUN |STTF;sincos;SR;6|
        ((|z| |Stream| |Coef|)
         ($ |Record| (|:| |sin| (|Stream| |Coef|))
          (|:| |cos| (|Stream| |Coef|))))
        (SPROG ((|l| (|List| (|Stream| |Coef|))) (|coef| (|Coef|)))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (CONS (SPADCALL (|spadConstant| $ 26) (QREFELT $ 24))
                        (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))))
                 (#1='T
                  (SEQ
                   (LETT |l|
                         (SEQ
                          (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                                . #2=(|STTF;sincos;SR;6|))
                          (EXIT
                           (COND
                            ((SPADCALL |coef| (|spadConstant| $ 26)
                                       (QREFELT $ 27))
                             (SPADCALL
                              (CONS #'|STTF;sincos;SR;6!0| (VECTOR |z| $)) 2
                              (QREFELT $ 45)))
                            ((QREFELT $ 7)
                             (SPADCALL
                              (CONS #'|STTF;sincos;SR;6!1|
                                    (VECTOR |z| $ |coef|))
                              2 (QREFELT $ 45)))
                            (#1#
                             (|error| (STRCONC "sincos: " (QREFELT $ 8)))))))
                         . #2#)
                   (EXIT
                    (CONS (|SPADfirst| |l|)
                          (SPADCALL |l| (QREFELT $ 39)))))))))) 

(SDEFUN |STTF;sincos;SR;6!1| ((|y| NIL) ($$ NIL))
        (PROG (|coef| $ |z|)
          (LETT |coef| (QREFELT $$ 2) . #1=(|STTF;sincos;SR;6|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;sincosre| (SPADCALL |coef| (QREFELT $ 46))
             (SPADCALL |coef| (QREFELT $ 47)) |y| (SPADCALL |z| (QREFELT $ 28))
             (SPADCALL (|spadConstant| $ 23) (QREFELT $ 42)) $))))) 

(SDEFUN |STTF;sincos;SR;6!0| ((|y| NIL) ($$ NIL))
        (PROG ($ |z|)
          (LETT $ (QREFELT $$ 1) . #1=(|STTF;sincos;SR;6|))
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;sincosre| (|spadConstant| $ 26) (|spadConstant| $ 23) |y|
             (SPADCALL |z| (QREFELT $ 28))
             (SPADCALL (|spadConstant| $ 23) (QREFELT $ 42)) $))))) 

(SDEFUN |STTF;sin;2S;7| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (QCAR (SPADCALL |z| (QREFELT $ 50)))) 

(SDEFUN |STTF;cos;2S;8| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (QCDR (SPADCALL |z| (QREFELT $ 50)))) 

(SDEFUN |STTF;tanre|
        ((|r| |Coef|) (|t| |Stream| |Coef|) (|dx| |Stream| |Coef|)
         (|sign| |Coef|) ($ |Stream| |Coef|))
        (SPROG NIL
               (SPADCALL |r| (CONS #'|STTF;tanre!0| (VECTOR |dx| |t| |sign| $))
                         (QREFELT $ 20)))) 

(SDEFUN |STTF;tanre!0| (($$ NIL))
        (PROG ($ |sign| |t| |dx|)
          (LETT $ (QREFELT $$ 3) . #1=(|STTF;tanre|))
          (LETT |sign| (QREFELT $$ 2) . #1#)
          (LETT |t| (QREFELT $$ 1) . #1#)
          (LETT |dx| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL
             (SPADCALL (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                       (SPADCALL (SPADCALL |sign| |t| (QREFELT $ 41)) |t|
                                 (QREFELT $ 18))
                       (QREFELT $ 55))
             |dx| (QREFELT $ 18)))))) 

(SDEFUN |STTF;tan;2S;10| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((|coef| (|Coef|)))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (SPADCALL (|spadConstant| $ 26) (QREFELT $ 24)))
                 (#1='T
                  (SEQ
                   (LETT |coef| (SPADCALL |z| (QREFELT $ 25)) |STTF;tan;2S;10|)
                   (EXIT
                    (COND
                     ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                      (SPADCALL (CONS #'|STTF;tan;2S;10!0| (VECTOR |z| $))
                                (QREFELT $ 31)))
                     ((QREFELT $ 7)
                      (SPADCALL
                       (CONS #'|STTF;tan;2S;10!1| (VECTOR |z| $ |coef|))
                       (QREFELT $ 31)))
                     (#1# (|error| (STRCONC "tan: " (QREFELT $ 8)))))))))))) 

(SDEFUN |STTF;tan;2S;10!1| ((|y| NIL) ($$ NIL))
        (PROG (|coef| $ |z|)
          (LETT |coef| (QREFELT $$ 2) . #1=(|STTF;tan;2S;10|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;tanre| (SPADCALL |coef| (QREFELT $ 56)) |y|
             (SPADCALL |z| (QREFELT $ 28)) (|spadConstant| $ 23) $))))) 

(SDEFUN |STTF;tan;2S;10!0| ((|y| NIL) ($$ NIL))
        (PROG ($ |z|)
          (LETT $ (QREFELT $$ 1) . #1=(|STTF;tan;2S;10|))
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;tanre| (|spadConstant| $ 26) |y|
             (SPADCALL |z| (QREFELT $ 28)) (|spadConstant| $ 23) $))))) 

(SDEFUN |STTF;cotre|
        ((|r| |Coef|) (|t| |Stream| |Coef|) (|dx| |Stream| |Coef|)
         ($ |Stream| |Coef|))
        (SPROG NIL
               (SPADCALL |r| (CONS #'|STTF;cotre!0| (VECTOR |dx| |t| $))
                         (QREFELT $ 20)))) 

(SDEFUN |STTF;cotre!0| (($$ NIL))
        (PROG ($ |t| |dx|)
          (LETT $ (QREFELT $$ 2) . #1=(|STTF;cotre|))
          (LETT |t| (QREFELT $$ 1) . #1#)
          (LETT |dx| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL
             (SPADCALL
              (SPADCALL (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                        (SPADCALL |t| |t| (QREFELT $ 18)) (QREFELT $ 55))
              |dx| (QREFELT $ 18))
             (QREFELT $ 58)))))) 

(SDEFUN |STTF;cot;2S;12| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((|coef| (|Coef|)))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (|error| "cot: cot(0) is undefined"))
                 (#1='T
                  (SEQ
                   (LETT |coef| (SPADCALL |z| (QREFELT $ 25)) |STTF;cot;2S;12|)
                   (EXIT
                    (COND
                     ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                      (|error| (STRCONC "cot: " (QREFELT $ 9))))
                     ((QREFELT $ 7)
                      (SPADCALL
                       (CONS #'|STTF;cot;2S;12!0| (VECTOR |z| $ |coef|))
                       (QREFELT $ 31)))
                     (#1# (|error| (STRCONC "cot: " (QREFELT $ 8)))))))))))) 

(SDEFUN |STTF;cot;2S;12!0| ((|y| NIL) ($$ NIL))
        (PROG (|coef| $ |z|)
          (LETT |coef| (QREFELT $$ 2) . #1=(|STTF;cot;2S;12|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;cotre| (SPADCALL |coef| (QREFELT $ 59)) |y|
             (SPADCALL |z| (QREFELT $ 28)) $))))) 

(SDEFUN |STTF;sec;2S;13| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((#1=#:G811 NIL) (|cosz| (|Stream| |Coef|)))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24)))
                 ((SPADCALL (SPADCALL |z| (QREFELT $ 25)) (|spadConstant| $ 26)
                            (QREFELT $ 27))
                  (PROG2
                      (LETT #1#
                            (SPADCALL (SPADCALL |z| (QREFELT $ 52))
                                      (QREFELT $ 62))
                            . #2=(|STTF;sec;2S;13|))
                      (QCDR #1#)
                    (|check_union2| (QEQCAR #1# 0) (|Stream| (QREFELT $ 6))
                                    (|Union| (|Stream| (QREFELT $ 6))
                                             #3="failed")
                                    #1#)))
                 ((QREFELT $ 7)
                  (SEQ (LETT |cosz| (SPADCALL |z| (QREFELT $ 52)) . #2#)
                       (EXIT
                        (COND
                         ((SPADCALL (SPADCALL |cosz| (QREFELT $ 63))
                                    (|spadConstant| $ 26) (QREFELT $ 27))
                          (|error| (STRCONC "sec: " (QREFELT $ 9))))
                         (#4='T
                          (PROG2
                              (LETT #1# (SPADCALL |cosz| (QREFELT $ 62)) . #2#)
                              (QCDR #1#)
                            (|check_union2| (QEQCAR #1# 0)
                                            (|Stream| (QREFELT $ 6))
                                            (|Union| (|Stream| (QREFELT $ 6))
                                                     #3#)
                                            #1#)))))))
                 (#4# (|error| (STRCONC "sec: " (QREFELT $ 8)))))))) 

(SDEFUN |STTF;csc;2S;14| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((#1=#:G818 NIL) (|sinz| (|Stream| |Coef|)))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (|error| "csc: csc(0) is undefined"))
                 ((QREFELT $ 7)
                  (SEQ
                   (LETT |sinz| (SPADCALL |z| (QREFELT $ 51))
                         . #2=(|STTF;csc;2S;14|))
                   (EXIT
                    (COND
                     ((SPADCALL (SPADCALL |sinz| (QREFELT $ 63))
                                (|spadConstant| $ 26) (QREFELT $ 27))
                      (|error| (STRCONC "csc: " (QREFELT $ 9))))
                     (#3='T
                      (PROG2 (LETT #1# (SPADCALL |sinz| (QREFELT $ 62)) . #2#)
                          (QCDR #1#)
                        (|check_union2| (QEQCAR #1# 0) (|Stream| (QREFELT $ 6))
                                        (|Union| (|Stream| (QREFELT $ 6))
                                                 "failed")
                                        #1#)))))))
                 (#3# (|error| (STRCONC "csc: " (QREFELT $ 8)))))))) 

(SDEFUN |STTF;orderOrFailed|
        ((|x| |Stream| |Coef|) ($ |Union| (|Integer|) "failed"))
        (SPROG ((#1=#:G832 NIL) (|n| NIL))
               (SEQ
                (EXIT
                 (SEQ
                  (SEQ (LETT |n| 0 . #2=(|STTF;orderOrFailed|)) G190
                       (COND ((|greater_SI| |n| 1000) (GO G191)))
                       (SEQ
                        (EXIT
                         (COND
                          ((SPADCALL |x| (QREFELT $ 22))
                           (PROGN (LETT #1# (CONS 0 -1) . #2#) (GO #3=#:G831)))
                          ((NULL
                            (SPADCALL (SPADCALL |x| (QREFELT $ 25))
                                      (QREFELT $ 66)))
                           (PROGN (LETT #1# (CONS 0 |n|) . #2#) (GO #3#)))
                          ('T
                           (LETT |x| (SPADCALL |x| (QREFELT $ 67)) . #2#)))))
                       (LETT |n| (|inc_SI| |n|) . #2#) (GO G190) G191
                       (EXIT NIL))
                  (EXIT (CONS 1 "failed"))))
                #3# (EXIT #1#)))) 

(SDEFUN |STTF;asin;2S;16| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG
         ((|quot| (|Union| (|Stream| |Coef|) "failed"))
          (|squirt| (|Stream| |Coef|)) (#1=#:G852 NIL) (|order| (|Integer|))
          (|ord| (|Union| (|Integer|) "failed")) (|x| (|Stream| |Coef|))
          (|coef| (|Coef|)))
         (SEQ
          (EXIT
           (COND
            ((SPADCALL |z| (QREFELT $ 22))
             (SPADCALL (|spadConstant| $ 26) (QREFELT $ 24)))
            (#2='T
             (SEQ
              (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                    . #3=(|STTF;asin;2S;16|))
              (EXIT
               (COND
                ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                 (SPADCALL (|spadConstant| $ 26)
                           (SPADCALL
                            (SPADCALL
                             (SPADCALL (SPADCALL 1 2 (QREFELT $ 70))
                                       (QREFELT $ 71))
                             (SPADCALL
                              (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                              (SPADCALL |z| |z| (QREFELT $ 18)) (QREFELT $ 72))
                             (QREFELT $ 73))
                            (SPADCALL |z| (QREFELT $ 28)) (QREFELT $ 18))
                           (QREFELT $ 74)))
                ((QREFELT $ 7)
                 (COND
                  ((OR (SPADCALL |coef| (|spadConstant| $ 23) (QREFELT $ 27))
                       (SPADCALL |coef|
                                 (SPADCALL (|spadConstant| $ 23)
                                           (QREFELT $ 42))
                                 (QREFELT $ 27)))
                   (SEQ
                    (LETT |x|
                          (SPADCALL
                           (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                           (SPADCALL |z| |z| (QREFELT $ 18)) (QREFELT $ 72))
                          . #3#)
                    (LETT |ord| (|STTF;orderOrFailed| |x| $) . #3#)
                    (EXIT
                     (COND
                      ((QEQCAR |ord| 1)
                       (|error| (STRCONC "asin: " (QREFELT $ 11))))
                      ((EQL (LETT |order| (QCDR |ord|) . #3#) -1)
                       (PROGN
                        (LETT #1#
                              (SPADCALL (SPADCALL |coef| (QREFELT $ 75))
                                        (QREFELT $ 24))
                              . #3#)
                        (GO #4=#:G851)))
                      ((ODDP |order|)
                       (|error| (STRCONC "asin: " (QREFELT $ 10))))
                      (#2#
                       (SEQ
                        (LETT |squirt|
                              (SPADCALL (SPADCALL 1 2 (QREFELT $ 70)) |x|
                                        (QREFELT $ 73))
                              . #3#)
                        (LETT |quot|
                              (SPADCALL (SPADCALL |z| (QREFELT $ 28)) |squirt|
                                        (QREFELT $ 76))
                              . #3#)
                        (EXIT
                         (COND
                          ((QEQCAR |quot| 1)
                           (|error| (STRCONC "asin: " (QREFELT $ 15))))
                          (#2#
                           (SPADCALL (SPADCALL |coef| (QREFELT $ 75))
                                     (QCDR |quot|) (QREFELT $ 74)))))))))))
                  ('T
                   (SPADCALL (SPADCALL |coef| (QREFELT $ 75))
                             (SPADCALL
                              (SPADCALL
                               (SPADCALL (SPADCALL 1 2 (QREFELT $ 70))
                                         (QREFELT $ 71))
                               (SPADCALL
                                (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                                (SPADCALL |z| |z| (QREFELT $ 18))
                                (QREFELT $ 72))
                               (QREFELT $ 73))
                              (SPADCALL |z| (QREFELT $ 28)) (QREFELT $ 18))
                             (QREFELT $ 74)))))
                (#2# (|error| (STRCONC "asin: " (QREFELT $ 8))))))))))
          #4# (EXIT #1#)))) 

(SDEFUN |STTF;acos;2S;17| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG
         ((|quot| (|Union| (|Stream| |Coef|) "failed"))
          (|squirt| (|Stream| |Coef|)) (#1=#:G871 NIL) (|order| (|Integer|))
          (|ord| (|Union| (|Integer|) "failed")) (|x| (|Stream| |Coef|))
          (|coef| (|Coef|)))
         (SEQ
          (EXIT
           (COND
            ((SPADCALL |z| (QREFELT $ 22))
             (COND
              ((QREFELT $ 7)
               (SPADCALL (SPADCALL (|spadConstant| $ 26) (QREFELT $ 78))
                         (QREFELT $ 24)))
              (#2='T (|error| (STRCONC "acos: " (QREFELT $ 8))))))
            ((QREFELT $ 7)
             (SEQ
              (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                    . #3=(|STTF;acos;2S;17|))
              (COND
               ((OR (SPADCALL |coef| (|spadConstant| $ 23) (QREFELT $ 27))
                    (SPADCALL |coef|
                              (SPADCALL (|spadConstant| $ 23) (QREFELT $ 42))
                              (QREFELT $ 27)))
                (EXIT
                 (SEQ
                  (LETT |x|
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                         (SPADCALL |z| |z| (QREFELT $ 18)) (QREFELT $ 72))
                        . #3#)
                  (LETT |ord| (|STTF;orderOrFailed| |x| $) . #3#)
                  (EXIT
                   (COND
                    ((QEQCAR |ord| 1)
                     (|error| (STRCONC "acos: " (QREFELT $ 11))))
                    ((EQL (LETT |order| (QCDR |ord|) . #3#) -1)
                     (PROGN
                      (LETT #1#
                            (SPADCALL (SPADCALL |coef| (QREFELT $ 78))
                                      (QREFELT $ 24))
                            . #3#)
                      (GO #4=#:G870)))
                    ((ODDP |order|)
                     (|error| (STRCONC "acos: " (QREFELT $ 10))))
                    (#2#
                     (SEQ
                      (LETT |squirt|
                            (SPADCALL (SPADCALL 1 2 (QREFELT $ 70)) |x|
                                      (QREFELT $ 73))
                            . #3#)
                      (LETT |quot|
                            (SPADCALL
                             (SPADCALL (SPADCALL |z| (QREFELT $ 28))
                                       (QREFELT $ 58))
                             |squirt| (QREFELT $ 76))
                            . #3#)
                      (EXIT
                       (COND
                        ((QEQCAR |quot| 1)
                         (|error| (STRCONC "acos: " (QREFELT $ 15))))
                        (#2#
                         (SPADCALL (SPADCALL |coef| (QREFELT $ 78))
                                   (QCDR |quot|) (QREFELT $ 74)))))))))))))
              (EXIT
               (SPADCALL (SPADCALL |coef| (QREFELT $ 78))
                         (SPADCALL
                          (SPADCALL
                           (SPADCALL
                            (SPADCALL (SPADCALL 1 2 (QREFELT $ 70))
                                      (QREFELT $ 71))
                            (SPADCALL
                             (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                             (SPADCALL |z| |z| (QREFELT $ 18)) (QREFELT $ 72))
                            (QREFELT $ 73))
                           (SPADCALL |z| (QREFELT $ 28)) (QREFELT $ 18))
                          (QREFELT $ 58))
                         (QREFELT $ 74)))))
            (#2# (|error| (STRCONC "acos: " (QREFELT $ 8))))))
          #4# (EXIT #1#)))) 

(SDEFUN |STTF;atan;2S;18| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG
         ((|y| (|Union| (|Stream| |Coef|) #1="failed")) (#2=#:G873 NIL)
          (|coef| (|Coef|)))
         (SEQ
          (COND
           ((SPADCALL |z| (QREFELT $ 22))
            (SPADCALL (|spadConstant| $ 26) (QREFELT $ 24)))
           (#3='T
            (SEQ
             (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                   . #4=(|STTF;atan;2S;18|))
             (EXIT
              (COND
               ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                (SPADCALL (|spadConstant| $ 26)
                          (SPADCALL
                           (PROG2
                               (LETT #2#
                                     (SPADCALL
                                      (SPADCALL
                                       (SPADCALL (|spadConstant| $ 23)
                                                 (QREFELT $ 24))
                                       (SPADCALL |z| |z| (QREFELT $ 18))
                                       (QREFELT $ 55))
                                      (QREFELT $ 62))
                                     . #4#)
                               (QCDR #2#)
                             (|check_union2| (QEQCAR #2# 0)
                                             (|Stream| (QREFELT $ 6))
                                             (|Union| (|Stream| (QREFELT $ 6))
                                                      #1#)
                                             #2#))
                           (SPADCALL |z| (QREFELT $ 28)) (QREFELT $ 18))
                          (QREFELT $ 74)))
               ((QREFELT $ 7)
                (SEQ
                 (LETT |y|
                       (SPADCALL
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                         (SPADCALL |z| |z| (QREFELT $ 18)) (QREFELT $ 55))
                        (QREFELT $ 62))
                       . #4#)
                 (EXIT
                  (COND
                   ((QEQCAR |y| 1) (|error| (STRCONC "atan: " (QREFELT $ 12))))
                   (#3#
                    (SPADCALL (SPADCALL |coef| (QREFELT $ 80))
                              (SPADCALL (QCDR |y|)
                                        (SPADCALL |z| (QREFELT $ 28))
                                        (QREFELT $ 18))
                              (QREFELT $ 74)))))))
               (#3# (|error| (STRCONC "atan: " (QREFELT $ 8)))))))))))) 

(SDEFUN |STTF;acot;2S;19| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((|y| (|Union| (|Stream| |Coef|) "failed")))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (COND
                   ((QREFELT $ 7)
                    (SPADCALL (SPADCALL (|spadConstant| $ 26) (QREFELT $ 82))
                              (QREFELT $ 24)))
                   (#1='T (|error| (STRCONC "acot: " (QREFELT $ 8))))))
                 ((QREFELT $ 7)
                  (SEQ
                   (LETT |y|
                         (SPADCALL
                          (SPADCALL
                           (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                           (SPADCALL |z| |z| (QREFELT $ 18)) (QREFELT $ 55))
                          (QREFELT $ 62))
                         |STTF;acot;2S;19|)
                   (EXIT
                    (COND
                     ((QEQCAR |y| 1)
                      (|error| (STRCONC "acot: " (QREFELT $ 12))))
                     (#1#
                      (SPADCALL
                       (SPADCALL (SPADCALL |z| (QREFELT $ 25)) (QREFELT $ 82))
                       (SPADCALL
                        (SPADCALL (QCDR |y|) (SPADCALL |z| (QREFELT $ 28))
                                  (QREFELT $ 18))
                        (QREFELT $ 58))
                       (QREFELT $ 74)))))))
                 (#1# (|error| (STRCONC "acot: " (QREFELT $ 8)))))))) 

(SDEFUN |STTF;asec;2S;20| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG
         ((|quot2| #1=(|Union| (|Stream| |Coef|) "failed")) (|quot| #1#)
          (|squirt| (|Stream| |Coef|)) (#2=#:G906 NIL) (|order| (|Integer|))
          (|ord| (|Union| (|Integer|) "failed")) (|x| (|Stream| |Coef|))
          (|coef| (|Coef|)))
         (SEQ
          (EXIT
           (COND
            ((SPADCALL |z| (QREFELT $ 22))
             (|error| "asec: constant coefficient should not be 0"))
            ((QREFELT $ 7)
             (SEQ
              (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                    . #3=(|STTF;asec;2S;20|))
              (EXIT
               (COND
                ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                 (|error| "asec: constant coefficient should not be 0"))
                ((OR (SPADCALL |coef| (|spadConstant| $ 23) (QREFELT $ 27))
                     (SPADCALL |coef|
                               (SPADCALL (|spadConstant| $ 23) (QREFELT $ 42))
                               (QREFELT $ 27)))
                 (SEQ
                  (LETT |x|
                        (SPADCALL (SPADCALL |z| |z| (QREFELT $ 18))
                                  (SPADCALL (|spadConstant| $ 23)
                                            (QREFELT $ 24))
                                  (QREFELT $ 72))
                        . #3#)
                  (LETT |ord| (|STTF;orderOrFailed| |x| $) . #3#)
                  (EXIT
                   (COND
                    ((QEQCAR |ord| 1)
                     (|error| (STRCONC "asec: " (QREFELT $ 11))))
                    ((EQL (LETT |order| (QCDR |ord|) . #3#) -1)
                     (PROGN
                      (LETT #2#
                            (SPADCALL (SPADCALL |coef| (QREFELT $ 84))
                                      (QREFELT $ 24))
                            . #3#)
                      (GO #4=#:G905)))
                    ((ODDP |order|)
                     (|error| (STRCONC "asec: " (QREFELT $ 10))))
                    (#5='T
                     (SEQ
                      (LETT |squirt|
                            (SPADCALL (SPADCALL 1 2 (QREFELT $ 70)) |x|
                                      (QREFELT $ 73))
                            . #3#)
                      (LETT |quot|
                            (SPADCALL (SPADCALL |z| (QREFELT $ 28)) |squirt|
                                      (QREFELT $ 76))
                            . #3#)
                      (EXIT
                       (COND
                        ((QEQCAR |quot| 1)
                         (|error| (STRCONC "asec: " (QREFELT $ 15))))
                        (#5#
                         (SEQ
                          (LETT |quot2|
                                (SPADCALL (QCDR |quot|) |z| (QREFELT $ 76))
                                . #3#)
                          (EXIT
                           (COND
                            ((QEQCAR |quot2| 1)
                             (|error| (STRCONC "asec: " (QREFELT $ 15))))
                            (#5#
                             (SPADCALL (SPADCALL |coef| (QREFELT $ 84))
                                       (QCDR |quot2|)
                                       (QREFELT $ 74)))))))))))))))
                ('T
                 (SPADCALL (SPADCALL |coef| (QREFELT $ 84))
                           (SPADCALL
                            (SPADCALL
                             (SPADCALL
                              (SPADCALL (SPADCALL 1 2 (QREFELT $ 70))
                                        (QREFELT $ 71))
                              (SPADCALL (SPADCALL |z| |z| (QREFELT $ 18))
                                        (SPADCALL (|spadConstant| $ 23)
                                                  (QREFELT $ 24))
                                        (QREFELT $ 72))
                              (QREFELT $ 73))
                             (SPADCALL |z| (QREFELT $ 28)) (QREFELT $ 18))
                            |z| (QREFELT $ 34))
                           (QREFELT $ 74)))))))
            (#5# (|error| (STRCONC "asec: " (QREFELT $ 8))))))
          #4# (EXIT #2#)))) 

(SDEFUN |STTF;acsc;2S;21| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG
         ((|quot2| #1=(|Union| (|Stream| |Coef|) "failed")) (|quot| #1#)
          (|squirt| (|Stream| |Coef|)) (#2=#:G928 NIL) (|order| (|Integer|))
          (|ord| (|Union| (|Integer|) "failed")) (|x| (|Stream| |Coef|))
          (|coef| (|Coef|)))
         (SEQ
          (EXIT
           (COND
            ((SPADCALL |z| (QREFELT $ 22))
             (|error| "acsc: constant coefficient should not be zero"))
            ((QREFELT $ 7)
             (SEQ
              (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                    . #3=(|STTF;acsc;2S;21|))
              (EXIT
               (COND
                ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                 (|error| "acsc: constant coefficient should not be zero"))
                ((OR (SPADCALL |coef| (|spadConstant| $ 23) (QREFELT $ 27))
                     (SPADCALL |coef|
                               (SPADCALL (|spadConstant| $ 23) (QREFELT $ 42))
                               (QREFELT $ 27)))
                 (SEQ
                  (LETT |x|
                        (SPADCALL (SPADCALL |z| |z| (QREFELT $ 18))
                                  (SPADCALL (|spadConstant| $ 23)
                                            (QREFELT $ 24))
                                  (QREFELT $ 72))
                        . #3#)
                  (LETT |ord| (|STTF;orderOrFailed| |x| $) . #3#)
                  (EXIT
                   (COND
                    ((QEQCAR |ord| 1)
                     (|error| (STRCONC "acsc: " (QREFELT $ 11))))
                    ((EQL (LETT |order| (QCDR |ord|) . #3#) -1)
                     (PROGN
                      (LETT #2#
                            (SPADCALL (SPADCALL |coef| (QREFELT $ 86))
                                      (QREFELT $ 24))
                            . #3#)
                      (GO #4=#:G927)))
                    ((ODDP |order|)
                     (|error| (STRCONC "acsc: " (QREFELT $ 10))))
                    (#5='T
                     (SEQ
                      (LETT |squirt|
                            (SPADCALL (SPADCALL 1 2 (QREFELT $ 70)) |x|
                                      (QREFELT $ 73))
                            . #3#)
                      (LETT |quot|
                            (SPADCALL
                             (SPADCALL (SPADCALL |z| (QREFELT $ 28))
                                       (QREFELT $ 58))
                             |squirt| (QREFELT $ 76))
                            . #3#)
                      (EXIT
                       (COND
                        ((QEQCAR |quot| 1)
                         (|error| (STRCONC "acsc: " (QREFELT $ 15))))
                        (#5#
                         (SEQ
                          (LETT |quot2|
                                (SPADCALL (QCDR |quot|) |z| (QREFELT $ 76))
                                . #3#)
                          (EXIT
                           (COND
                            ((QEQCAR |quot2| 1)
                             (|error| (STRCONC "acsc: " (QREFELT $ 15))))
                            (#5#
                             (SPADCALL (SPADCALL |coef| (QREFELT $ 86))
                                       (QCDR |quot2|)
                                       (QREFELT $ 74)))))))))))))))
                ('T
                 (SPADCALL (SPADCALL |coef| (QREFELT $ 86))
                           (SPADCALL
                            (SPADCALL
                             (SPADCALL
                              (SPADCALL
                               (SPADCALL (SPADCALL 1 2 (QREFELT $ 70))
                                         (QREFELT $ 71))
                               (SPADCALL (SPADCALL |z| |z| (QREFELT $ 18))
                                         (SPADCALL (|spadConstant| $ 23)
                                                   (QREFELT $ 24))
                                         (QREFELT $ 72))
                               (QREFELT $ 73))
                              (SPADCALL |z| (QREFELT $ 28)) (QREFELT $ 18))
                             |z| (QREFELT $ 34))
                            (QREFELT $ 58))
                           (QREFELT $ 74)))))))
            (#5# (|error| (STRCONC "acsc: " (QREFELT $ 8))))))
          #4# (EXIT #2#)))) 

(SDEFUN |STTF;sinhcosh;SR;22|
        ((|z| |Stream| |Coef|)
         ($ |Record| (|:| |sinh| (|Stream| |Coef|))
          (|:| |cosh| (|Stream| |Coef|))))
        (SPROG ((|l| (|List| (|Stream| |Coef|))) (|coef| (|Coef|)))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (CONS (SPADCALL (|spadConstant| $ 26) (QREFELT $ 24))
                        (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))))
                 (#1='T
                  (SEQ
                   (LETT |l|
                         (SEQ
                          (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                                . #2=(|STTF;sinhcosh;SR;22|))
                          (EXIT
                           (COND
                            ((SPADCALL |coef| (|spadConstant| $ 26)
                                       (QREFELT $ 27))
                             (SPADCALL
                              (CONS #'|STTF;sinhcosh;SR;22!0| (VECTOR |z| $)) 2
                              (QREFELT $ 45)))
                            ((QREFELT $ 7)
                             (SPADCALL
                              (CONS #'|STTF;sinhcosh;SR;22!1|
                                    (VECTOR |z| $ |coef|))
                              2 (QREFELT $ 45)))
                            (#1#
                             (|error| (STRCONC "sinhcosh: " (QREFELT $ 8)))))))
                         . #2#)
                   (EXIT
                    (CONS (|SPADfirst| |l|)
                          (SPADCALL |l| (QREFELT $ 39)))))))))) 

(SDEFUN |STTF;sinhcosh;SR;22!1| ((|y| NIL) ($$ NIL))
        (PROG (|coef| $ |z|)
          (LETT |coef| (QREFELT $$ 2) . #1=(|STTF;sinhcosh;SR;22|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;sincosre| (SPADCALL |coef| (QREFELT $ 88))
             (SPADCALL |coef| (QREFELT $ 89)) |y| (SPADCALL |z| (QREFELT $ 28))
             (|spadConstant| $ 23) $))))) 

(SDEFUN |STTF;sinhcosh;SR;22!0| ((|y| NIL) ($$ NIL))
        (PROG ($ |z|)
          (LETT $ (QREFELT $$ 1) . #1=(|STTF;sinhcosh;SR;22|))
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;sincosre| (|spadConstant| $ 26) (|spadConstant| $ 23) |y|
             (SPADCALL |z| (QREFELT $ 28)) (|spadConstant| $ 23) $))))) 

(SDEFUN |STTF;sinh;2S;23| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (QCAR (SPADCALL |z| (QREFELT $ 91)))) 

(SDEFUN |STTF;cosh;2S;24| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (QCDR (SPADCALL |z| (QREFELT $ 91)))) 

(SDEFUN |STTF;tanh;2S;25| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((|coef| (|Coef|)))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (SPADCALL (|spadConstant| $ 26) (QREFELT $ 24)))
                 (#1='T
                  (SEQ
                   (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                         |STTF;tanh;2S;25|)
                   (EXIT
                    (COND
                     ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                      (SPADCALL (CONS #'|STTF;tanh;2S;25!0| (VECTOR |z| $))
                                (QREFELT $ 31)))
                     ((QREFELT $ 7)
                      (SPADCALL
                       (CONS #'|STTF;tanh;2S;25!1| (VECTOR |z| $ |coef|))
                       (QREFELT $ 31)))
                     (#1# (|error| (STRCONC "tanh: " (QREFELT $ 8)))))))))))) 

(SDEFUN |STTF;tanh;2S;25!1| ((|y| NIL) ($$ NIL))
        (PROG (|coef| $ |z|)
          (LETT |coef| (QREFELT $$ 2) . #1=(|STTF;tanh;2S;25|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;tanre| (SPADCALL |coef| (QREFELT $ 94)) |y|
             (SPADCALL |z| (QREFELT $ 28))
             (SPADCALL (|spadConstant| $ 23) (QREFELT $ 42)) $))))) 

(SDEFUN |STTF;tanh;2S;25!0| ((|y| NIL) ($$ NIL))
        (PROG ($ |z|)
          (LETT $ (QREFELT $$ 1) . #1=(|STTF;tanh;2S;25|))
          (LETT |z| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|STTF;tanre| (|spadConstant| $ 26) |y|
             (SPADCALL |z| (QREFELT $ 28))
             (SPADCALL (|spadConstant| $ 23) (QREFELT $ 42)) $))))) 

(SDEFUN |STTF;coth;2S;26| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((#1=#:G947 NIL) (|tanhz| (|Stream| |Coef|)))
               (SEQ
                (LETT |tanhz| (SPADCALL |z| (QREFELT $ 95))
                      . #2=(|STTF;coth;2S;26|))
                (EXIT
                 (COND
                  ((SPADCALL |tanhz| (QREFELT $ 22))
                   (|error| "coth: coth(0) is undefined"))
                  ((SPADCALL (SPADCALL |tanhz| (QREFELT $ 25))
                             (|spadConstant| $ 26) (QREFELT $ 27))
                   (|error| (STRCONC "coth: " (QREFELT $ 9))))
                  ('T
                   (PROG2 (LETT #1# (SPADCALL |tanhz| (QREFELT $ 62)) . #2#)
                       (QCDR #1#)
                     (|check_union2| (QEQCAR #1# 0) (|Stream| (QREFELT $ 6))
                                     (|Union| (|Stream| (QREFELT $ 6))
                                              "failed")
                                     #1#)))))))) 

(SDEFUN |STTF;sech;2S;27| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((#1=#:G955 NIL) (|coshz| (|Stream| |Coef|)))
               (SEQ
                (LETT |coshz| (SPADCALL |z| (QREFELT $ 93))
                      . #2=(|STTF;sech;2S;27|))
                (COND
                 ((OR (SPADCALL |coshz| (QREFELT $ 22))
                      (SPADCALL (SPADCALL |coshz| (QREFELT $ 25))
                                (|spadConstant| $ 26) (QREFELT $ 27)))
                  (EXIT (|error| (STRCONC "sech: " (QREFELT $ 9))))))
                (EXIT
                 (PROG2 (LETT #1# (SPADCALL |coshz| (QREFELT $ 62)) . #2#)
                     (QCDR #1#)
                   (|check_union2| (QEQCAR #1# 0) (|Stream| (QREFELT $ 6))
                                   (|Union| (|Stream| (QREFELT $ 6)) "failed")
                                   #1#)))))) 

(SDEFUN |STTF;csch;2S;28| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((#1=#:G962 NIL) (|sinhz| (|Stream| |Coef|)))
               (SEQ
                (LETT |sinhz| (SPADCALL |z| (QREFELT $ 92))
                      . #2=(|STTF;csch;2S;28|))
                (COND
                 ((OR (SPADCALL |sinhz| (QREFELT $ 22))
                      (SPADCALL (SPADCALL |sinhz| (QREFELT $ 25))
                                (|spadConstant| $ 26) (QREFELT $ 27)))
                  (EXIT (|error| (STRCONC "csch: " (QREFELT $ 9))))))
                (EXIT
                 (PROG2 (LETT #1# (SPADCALL |sinhz| (QREFELT $ 62)) . #2#)
                     (QCDR #1#)
                   (|check_union2| (QEQCAR #1# 0) (|Stream| (QREFELT $ 6))
                                   (|Union| (|Stream| (QREFELT $ 6)) "failed")
                                   #1#)))))) 

(SDEFUN |STTF;asinh;2S;29| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG
         ((#1=#:G975 NIL) (|order| (|Integer|))
          (|ord| (|Union| (|Integer|) "failed")) (|x| (|Stream| |Coef|))
          (|coef| (|Coef|)))
         (SEQ
          (EXIT
           (COND
            ((SPADCALL |z| (QREFELT $ 22))
             (SPADCALL (|spadConstant| $ 26) (QREFELT $ 24)))
            (#2='T
             (SEQ
              (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                    . #3=(|STTF;asinh;2S;29|))
              (EXIT
               (COND
                ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                 (SPADCALL
                  (SPADCALL |z|
                            (SPADCALL (SPADCALL 1 2 (QREFELT $ 70))
                                      (SPADCALL
                                       (SPADCALL (|spadConstant| $ 23)
                                                 (QREFELT $ 24))
                                       (SPADCALL |z| |z| (QREFELT $ 18))
                                       (QREFELT $ 55))
                                      (QREFELT $ 73))
                            (QREFELT $ 55))
                  (QREFELT $ 36)))
                ((QREFELT $ 7)
                 (SEQ
                  (LETT |x|
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                         (SPADCALL |z| |z| (QREFELT $ 18)) (QREFELT $ 55))
                        . #3#)
                  (LETT |ord| (|STTF;orderOrFailed| |x| $) . #3#)
                  (EXIT
                   (COND
                    ((QEQCAR |ord| 1)
                     (|error| (STRCONC "asinh: " (QREFELT $ 11))))
                    ((EQL (LETT |order| (QCDR |ord|) . #3#) -1)
                     (PROGN
                      (LETT #1#
                            (SPADCALL (SPADCALL |coef| (QREFELT $ 99))
                                      (QREFELT $ 24))
                            . #3#)
                      (GO #4=#:G974)))
                    ((ODDP |order|)
                     (|error| (STRCONC "asinh: " (QREFELT $ 10))))
                    (#2#
                     (SPADCALL
                      (SPADCALL |z|
                                (SPADCALL (SPADCALL 1 2 (QREFELT $ 70)) |x|
                                          (QREFELT $ 73))
                                (QREFELT $ 55))
                      (QREFELT $ 36)))))))
                (#2# (|error| (STRCONC "asinh: " (QREFELT $ 8))))))))))
          #4# (EXIT #1#)))) 

(SDEFUN |STTF;acosh;2S;30| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG
         ((#1=#:G989 NIL) (|order| (|Integer|))
          (|ord| (|Union| (|Integer|) "failed")) (|x| (|Stream| |Coef|))
          (|coef| (|Coef|)))
         (SEQ
          (EXIT
           (COND
            ((SPADCALL |z| (QREFELT $ 22))
             (COND
              ((QREFELT $ 7)
               (SPADCALL (SPADCALL (|spadConstant| $ 26) (QREFELT $ 101))
                         (QREFELT $ 24)))
              (#2='T (|error| (STRCONC "acosh: " (QREFELT $ 8))))))
            ((QREFELT $ 7)
             (SEQ
              (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                    . #3=(|STTF;acosh;2S;30|))
              (COND
               ((OR (SPADCALL |coef| (|spadConstant| $ 23) (QREFELT $ 27))
                    (SPADCALL |coef|
                              (SPADCALL (|spadConstant| $ 23) (QREFELT $ 42))
                              (QREFELT $ 27)))
                (EXIT
                 (SEQ
                  (LETT |x|
                        (SPADCALL (SPADCALL |z| |z| (QREFELT $ 18))
                                  (SPADCALL (|spadConstant| $ 23)
                                            (QREFELT $ 24))
                                  (QREFELT $ 72))
                        . #3#)
                  (LETT |ord| (|STTF;orderOrFailed| |x| $) . #3#)
                  (EXIT
                   (COND
                    ((QEQCAR |ord| 1)
                     (|error| (STRCONC "acosh: " (QREFELT $ 11))))
                    ((EQL (LETT |order| (QCDR |ord|) . #3#) -1)
                     (PROGN
                      (LETT #1#
                            (SPADCALL (SPADCALL |coef| (QREFELT $ 101))
                                      (QREFELT $ 24))
                            . #3#)
                      (GO #4=#:G988)))
                    ((ODDP |order|)
                     (|error| (STRCONC "acosh: " (QREFELT $ 10))))
                    (#2#
                     (SPADCALL
                      (SPADCALL |z|
                                (SPADCALL (SPADCALL 1 2 (QREFELT $ 70)) |x|
                                          (QREFELT $ 73))
                                (QREFELT $ 55))
                      (QREFELT $ 36)))))))))
              (EXIT
               (SPADCALL
                (SPADCALL |z|
                          (SPADCALL (SPADCALL 1 2 (QREFELT $ 70))
                                    (SPADCALL (SPADCALL |z| |z| (QREFELT $ 18))
                                              (SPADCALL (|spadConstant| $ 23)
                                                        (QREFELT $ 24))
                                              (QREFELT $ 72))
                                    (QREFELT $ 73))
                          (QREFELT $ 55))
                (QREFELT $ 36)))))
            (#2# (|error| (STRCONC "acosh: " (QREFELT $ 8))))))
          #4# (EXIT #1#)))) 

(SDEFUN |STTF;atanh;2S;31| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG ((|coef| (|Coef|)))
               (SEQ
                (COND
                 ((SPADCALL |z| (QREFELT $ 22))
                  (SPADCALL (|spadConstant| $ 26) (QREFELT $ 24)))
                 (#1='T
                  (SEQ
                   (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                         |STTF;atanh;2S;31|)
                   (EXIT
                    (COND
                     ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                      (SPADCALL
                       (SPADCALL
                        (SPADCALL (SPADCALL 2 (QREFELT $ 103)) (QREFELT $ 104))
                        (QREFELT $ 105))
                       (SPADCALL
                        (SPADCALL
                         (SPADCALL
                          (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24)) |z|
                          (QREFELT $ 55))
                         (SPADCALL
                          (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24)) |z|
                          (QREFELT $ 72))
                         (QREFELT $ 34))
                        (QREFELT $ 36))
                       (QREFELT $ 41)))
                     ((QREFELT $ 7)
                      (COND
                       ((OR
                         (SPADCALL |coef| (|spadConstant| $ 23) (QREFELT $ 27))
                         (SPADCALL |coef|
                                   (SPADCALL (|spadConstant| $ 23)
                                             (QREFELT $ 42))
                                   (QREFELT $ 27)))
                        (|error| (STRCONC "atanh: " (QREFELT $ 12))))
                       ('T
                        (SPADCALL
                         (SPADCALL
                          (SPADCALL (SPADCALL 2 (QREFELT $ 103))
                                    (QREFELT $ 104))
                          (QREFELT $ 105))
                         (SPADCALL
                          (SPADCALL
                           (SPADCALL
                            (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24)) |z|
                            (QREFELT $ 55))
                           (SPADCALL
                            (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24)) |z|
                            (QREFELT $ 72))
                           (QREFELT $ 34))
                          (QREFELT $ 36))
                         (QREFELT $ 41)))))
                     (#1# (|error| (STRCONC "atanh: " (QREFELT $ 8)))))))))))) 

(SDEFUN |STTF;acoth;2S;32| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (COND
         ((SPADCALL |z| (QREFELT $ 22))
          (COND
           ((QREFELT $ 7)
            (SPADCALL (SPADCALL (|spadConstant| $ 26) (QREFELT $ 107))
                      (QREFELT $ 24)))
           (#1='T (|error| (STRCONC "acoth: " (QREFELT $ 8))))))
         ((QREFELT $ 7)
          (COND
           ((OR
             (SPADCALL (SPADCALL |z| (QREFELT $ 25)) (|spadConstant| $ 23)
                       (QREFELT $ 27))
             (SPADCALL (SPADCALL |z| (QREFELT $ 25))
                       (SPADCALL (|spadConstant| $ 23) (QREFELT $ 42))
                       (QREFELT $ 27)))
            (|error| (STRCONC "acoth: " (QREFELT $ 12))))
           ('T
            (SPADCALL
             (SPADCALL (SPADCALL (SPADCALL 2 (QREFELT $ 103)) (QREFELT $ 104))
                       (QREFELT $ 105))
             (SPADCALL
              (SPADCALL
               (SPADCALL |z| (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                         (QREFELT $ 55))
               (SPADCALL |z| (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                         (QREFELT $ 72))
               (QREFELT $ 34))
              (QREFELT $ 36))
             (QREFELT $ 41)))))
         (#1# (|error| (STRCONC "acoth: " (QREFELT $ 8)))))) 

(SDEFUN |STTF;asech;2S;33| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG
         ((#1=#:G1014 NIL) (|order| (|Integer|))
          (|ord| (|Union| (|Integer|) "failed")) (|x| (|Stream| |Coef|))
          (|coef| (|Coef|)))
         (SEQ
          (EXIT
           (COND
            ((SPADCALL |z| (QREFELT $ 22))
             (|error| "asech: asech(0) is undefined"))
            ((QREFELT $ 7)
             (SEQ
              (LETT |coef| (SPADCALL |z| (QREFELT $ 25))
                    . #2=(|STTF;asech;2S;33|))
              (EXIT
               (COND
                ((SPADCALL |coef| (|spadConstant| $ 26) (QREFELT $ 27))
                 (|error| (STRCONC "asech: " (QREFELT $ 13))))
                ((OR (SPADCALL |coef| (|spadConstant| $ 23) (QREFELT $ 27))
                     (SPADCALL |coef|
                               (SPADCALL (|spadConstant| $ 23) (QREFELT $ 42))
                               (QREFELT $ 27)))
                 (SEQ
                  (LETT |x|
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                         (SPADCALL |z| |z| (QREFELT $ 18)) (QREFELT $ 72))
                        . #2#)
                  (LETT |ord| (|STTF;orderOrFailed| |x| $) . #2#)
                  (EXIT
                   (COND
                    ((QEQCAR |ord| 1)
                     (|error| (STRCONC "asech: " (QREFELT $ 11))))
                    ((EQL (LETT |order| (QCDR |ord|) . #2#) -1)
                     (PROGN
                      (LETT #1#
                            (SPADCALL (SPADCALL |coef| (QREFELT $ 109))
                                      (QREFELT $ 24))
                            . #2#)
                      (GO #3=#:G1013)))
                    ((ODDP |order|)
                     (|error| (STRCONC "asech: " (QREFELT $ 10))))
                    (#4='T
                     (SPADCALL
                      (SPADCALL
                       (SPADCALL
                        (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                        (SPADCALL (SPADCALL 1 2 (QREFELT $ 70)) |x|
                                  (QREFELT $ 73))
                        (QREFELT $ 55))
                       |z| (QREFELT $ 34))
                      (QREFELT $ 36)))))))
                ('T
                 (SPADCALL
                  (SPADCALL
                   (SPADCALL (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                             (SPADCALL (SPADCALL 1 2 (QREFELT $ 70))
                                       (SPADCALL
                                        (SPADCALL (|spadConstant| $ 23)
                                                  (QREFELT $ 24))
                                        (SPADCALL |z| |z| (QREFELT $ 18))
                                        (QREFELT $ 72))
                                       (QREFELT $ 73))
                             (QREFELT $ 55))
                   |z| (QREFELT $ 34))
                  (QREFELT $ 36)))))))
            (#4# (|error| (STRCONC "asech: " (QREFELT $ 8))))))
          #3# (EXIT #1#)))) 

(SDEFUN |STTF;acsch;2S;34| ((|z| |Stream| |Coef|) ($ |Stream| |Coef|))
        (SPROG
         ((#1=#:G1024 NIL) (|order| (|Integer|))
          (|ord| (|Union| (|Integer|) "failed")) (|x| (|Stream| |Coef|)))
         (SEQ
          (EXIT
           (COND
            ((SPADCALL |z| (QREFELT $ 22))
             (|error| "acsch: acsch(0) is undefined"))
            ((QREFELT $ 7)
             (COND
              ((SPADCALL (SPADCALL |z| (QREFELT $ 25)) (|spadConstant| $ 26)
                         (QREFELT $ 27))
               (|error| (STRCONC "acsch: " (QREFELT $ 13))))
              (#2='T
               (SEQ
                (LETT |x|
                      (SPADCALL (SPADCALL |z| |z| (QREFELT $ 18))
                                (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                                (QREFELT $ 55))
                      . #3=(|STTF;acsch;2S;34|))
                (LETT |ord| (|STTF;orderOrFailed| |x| $) . #3#)
                (EXIT
                 (COND
                  ((QEQCAR |ord| 1)
                   (|error| (STRCONC "acsc: " (QREFELT $ 11))))
                  ((EQL (LETT |order| (QCDR |ord|) . #3#) -1)
                   (PROGN
                    (LETT #1#
                          (SPADCALL
                           (SPADCALL (SPADCALL |z| (QREFELT $ 25))
                                     (QREFELT $ 111))
                           (QREFELT $ 24))
                          . #3#)
                    (GO #4=#:G1023)))
                  ((ODDP |order|) (|error| (STRCONC "acsch: " (QREFELT $ 10))))
                  (#2#
                   (SPADCALL
                    (SPADCALL
                     (SPADCALL (SPADCALL (|spadConstant| $ 23) (QREFELT $ 24))
                               (SPADCALL (SPADCALL 1 2 (QREFELT $ 70)) |x|
                                         (QREFELT $ 73))
                               (QREFELT $ 55))
                     |z| (QREFELT $ 34))
                    (QREFELT $ 36)))))))))
            (#2# (|error| (STRCONC "acsch: " (QREFELT $ 8))))))
          #4# (EXIT #1#)))) 

(DECLAIM (NOTINLINE |StreamTranscendentalFunctions;|)) 

(DEFUN |StreamTranscendentalFunctions| (#1=#:G1025)
  (SPROG NIL
         (PROG (#2=#:G1026)
           (RETURN
            (COND
             ((LETT #2#
                    (|lassocShiftWithFunction| (LIST (|devaluate| #1#))
                                               (HGET |$ConstructorCache|
                                                     '|StreamTranscendentalFunctions|)
                                               '|domainEqualList|)
                    . #3=(|StreamTranscendentalFunctions|))
              (|CDRwithIncrement| #2#))
             ('T
              (UNWIND-PROTECT
                  (PROG1 (|StreamTranscendentalFunctions;| #1#)
                    (LETT #2# T . #3#))
                (COND
                 ((NOT #2#)
                  (HREM |$ConstructorCache|
                        '|StreamTranscendentalFunctions|)))))))))) 

(DEFUN |StreamTranscendentalFunctions;| (|#1|)
  (SPROG ((|pv$| NIL) ($ NIL) (|dv$| NIL) (DV$1 NIL))
         (PROGN
          (LETT DV$1 (|devaluate| |#1|) . #1=(|StreamTranscendentalFunctions|))
          (LETT |dv$| (LIST '|StreamTranscendentalFunctions| DV$1) . #1#)
          (LETT $ (GETREFV 113) . #1#)
          (QSETREFV $ 0 |dv$|)
          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
          (|haddProp| |$ConstructorCache| '|StreamTranscendentalFunctions|
                      (LIST DV$1) (CONS 1 $))
          (|stuffDomainSlots| $)
          (QSETREFV $ 6 |#1|)
          (SETF |pv$| (QREFELT $ 3))
          (QSETREFV $ 7
                    (|HasCategory| |#1| '(|TranscendentalFunctionCategory|)))
          (QSETREFV $ 8 "series expansion involves transcendental constants")
          (QSETREFV $ 9 "series expansion has terms of negative degree")
          (QSETREFV $ 10 "series expansion has terms of fractional degree")
          (QSETREFV $ 11
                    "series expansion may have terms of fractional degree")
          (QSETREFV $ 12 "series expansion has logarithmic term")
          (QSETREFV $ 13
                    "series expansion has terms of negative degree or logarithmic term")
          (QSETREFV $ 14
                    "series expansion has terms of fractional degree or logarithmic term")
          (QSETREFV $ 15 "leading coefficient not invertible")
          $))) 

(MAKEPROP '|StreamTranscendentalFunctions| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) 'TRANSFCN 'TRCONST
              'NPOWERS 'FPOWERS 'MAYFPOW 'LOGS 'NPOWLOG 'FPOWLOG 'NOTINV
              (|Stream| 6) (|StreamTaylorSeriesOperations| 6) (0 . *)
              (|Mapping| 16) (6 . |lazyIntegrate|) (|Boolean|) (12 . |empty?|)
              (17 . |One|) (21 . |coerce|) (26 . |frst|) (31 . |Zero|) (35 . =)
              (41 . |deriv|) (|Mapping| 16 16)
              (|ParadoxicalCombinatorsForStreams| 6) (46 . Y) (51 . |exp|)
              |STTF;exp;2S;2| (56 . /) (62 . |log|) |STTF;log;2S;3|
              |STTF;^;3S;4| (|List| 16) (67 . |second|) (72 . |first|) (77 . *)
              (83 . -) (|Mapping| 38 38) (|Integer|) (88 . Y) (94 . |sin|)
              (99 . |cos|) (104 . |One|)
              (|Record| (|:| |sin| 16) (|:| |cos| 16)) |STTF;sincos;SR;6|
              |STTF;sin;2S;7| |STTF;cos;2S;8| (|PositiveInteger|) (108 . |One|)
              (112 . +) (118 . |tan|) |STTF;tan;2S;10| (123 . -) (128 . |cot|)
              |STTF;cot;2S;12| (|Union| 16 '"failed") (133 . |recip|)
              (138 . |first|) |STTF;sec;2S;13| |STTF;csc;2S;14| (143 . |zero?|)
              (148 . |rst|) (|Fraction| 44) (153 . |One|) (157 . /) (163 . -)
              (168 . -) (174 . |powern|) (180 . |integrate|) (186 . |asin|)
              (191 . |exquo|) |STTF;asin;2S;16| (197 . |acos|)
              |STTF;acos;2S;17| (202 . |atan|) |STTF;atan;2S;18| (207 . |acot|)
              |STTF;acot;2S;19| (212 . |asec|) |STTF;asec;2S;20| (217 . |acsc|)
              |STTF;acsc;2S;21| (222 . |sinh|) (227 . |cosh|)
              (|Record| (|:| |sinh| 16) (|:| |cosh| 16)) |STTF;sinhcosh;SR;22|
              |STTF;sinh;2S;23| |STTF;cosh;2S;24| (232 . |tanh|)
              |STTF;tanh;2S;25| |STTF;coth;2S;26| |STTF;sech;2S;27|
              |STTF;csch;2S;28| (237 . |asinh|) |STTF;asinh;2S;29|
              (242 . |acosh|) |STTF;acosh;2S;30| (247 . |coerce|) (252 . |inv|)
              (257 . |coerce|) |STTF;atanh;2S;31| (262 . |acoth|)
              |STTF;acoth;2S;32| (267 . |asech|) |STTF;asech;2S;33|
              (272 . |acsch|) |STTF;acsch;2S;34|)
           '#(|tanh| 277 |tan| 282 |sinhcosh| 287 |sinh| 292 |sincos| 297 |sin|
              302 |sech| 307 |sec| 312 |log| 317 |exp| 322 |csch| 327 |csc| 332
              |coth| 337 |cot| 342 |cosh| 347 |cos| 352 |atanh| 357 |atan| 362
              |asinh| 367 |asin| 372 |asech| 377 |asec| 382 |acsch| 387 |acsc|
              392 |acoth| 397 |acot| 402 |acosh| 407 |acos| 412 ^ 417)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 112
                                                 '(2 17 16 16 16 18 2 17 16 6
                                                   19 20 1 16 21 0 22 0 6 0 23
                                                   1 17 16 6 24 1 16 6 0 25 0 6
                                                   0 26 2 6 21 0 0 27 1 17 16
                                                   16 28 1 30 16 29 31 1 6 0 0
                                                   32 2 17 16 16 16 34 1 6 0 0
                                                   35 1 38 16 0 39 1 38 16 0 40
                                                   2 17 16 6 16 41 1 6 0 0 42 2
                                                   30 38 43 44 45 1 6 0 0 46 1
                                                   6 0 0 47 0 44 0 48 0 53 0 54
                                                   2 17 16 16 16 55 1 6 0 0 56
                                                   1 17 16 16 58 1 6 0 0 59 1
                                                   17 61 16 62 1 16 6 0 63 1 6
                                                   21 0 66 1 16 0 0 67 0 68 0
                                                   69 2 68 0 44 44 70 1 68 0 0
                                                   71 2 17 16 16 16 72 2 17 16
                                                   68 16 73 2 17 16 6 16 74 1 6
                                                   0 0 75 2 17 61 16 16 76 1 6
                                                   0 0 78 1 6 0 0 80 1 6 0 0 82
                                                   1 6 0 0 84 1 6 0 0 86 1 6 0
                                                   0 88 1 6 0 0 89 1 6 0 0 94 1
                                                   6 0 0 99 1 6 0 0 101 1 68 0
                                                   44 103 1 68 0 0 104 1 6 0 68
                                                   105 1 6 0 0 107 1 6 0 0 109
                                                   1 6 0 0 111 1 0 16 16 95 1 0
                                                   16 16 57 1 0 90 16 91 1 0 16
                                                   16 92 1 0 49 16 50 1 0 16 16
                                                   51 1 0 16 16 97 1 0 16 16 64
                                                   1 0 16 16 36 1 0 16 16 33 1
                                                   0 16 16 98 1 0 16 16 65 1 0
                                                   16 16 96 1 0 16 16 60 1 0 16
                                                   16 93 1 0 16 16 52 1 0 16 16
                                                   106 1 0 16 16 81 1 0 16 16
                                                   100 1 0 16 16 77 1 0 16 16
                                                   110 1 0 16 16 85 1 0 16 16
                                                   112 1 0 16 16 87 1 0 16 16
                                                   108 1 0 16 16 83 1 0 16 16
                                                   102 1 0 16 16 79 2 0 16 16
                                                   16 37)))))
           '|lookupComplete|)) 
