
(SDEFUN |TRANFUN-;pi;S;1| ((% (S)))
        (SPADCALL 2 (SPADCALL (|spadConstant| % 7) (QREFELT % 8))
                  (QREFELT % 10))) 

(SDEFUN |TRANFUN-;acsch;2S;2| ((|x| (S)) (% (S)))
        (SPROG ((|a| (|Union| S "failed")))
               (SEQ (LETT |a| (SPADCALL |x| (QREFELT % 13)))
                    (EXIT
                     (COND ((QEQCAR |a| 1) (|error| "acsch: no reciprocal"))
                           ('T (SPADCALL (QCDR |a|) (QREFELT % 14)))))))) 

(SDEFUN |TRANFUN-;asech;2S;3| ((|x| (S)) (% (S)))
        (SPROG ((|a| (|Union| S "failed")))
               (SEQ (LETT |a| (SPADCALL |x| (QREFELT % 13)))
                    (EXIT
                     (COND ((QEQCAR |a| 1) (|error| "asech: no reciprocal"))
                           ('T (SPADCALL (QCDR |a|) (QREFELT % 16)))))))) 

(SDEFUN |TRANFUN-;acoth;2S;4| ((|x| (S)) (% (S)))
        (SPROG ((|a| (|Union| S "failed")))
               (SEQ (LETT |a| (SPADCALL |x| (QREFELT % 13)))
                    (EXIT
                     (COND ((QEQCAR |a| 1) (|error| "acoth: no reciprocal"))
                           ('T (SPADCALL (QCDR |a|) (QREFELT % 18)))))))) 

(SDEFUN |TRANFUN-;asin;2S;5| ((|x| (S)) (% (S)))
        (SPADCALL
         (SPADCALL |x|
                   (SPADCALL
                    (SPADCALL (|spadConstant| % 7)
                              (SPADCALL |x| 2 (QREFELT % 20)) (QREFELT % 21))
                    (QREFELT % 22))
                   (QREFELT % 23))
         (QREFELT % 24))) 

(SDEFUN |TRANFUN-;acos;2S;6| ((|x| (S)) (% (S)))
        (SPADCALL
         (SPADCALL (SPADCALL (QREFELT % 26)) (SPADCALL 2 (QREFELT % 28))
                   (QREFELT % 23))
         (SPADCALL |x| (QREFELT % 8)) (QREFELT % 21))) 

(SDEFUN |TRANFUN-;acot;2S;7| ((|x| (S)) (% (S)))
        (SPADCALL
         (SPADCALL (SPADCALL (QREFELT % 26)) (SPADCALL 2 (QREFELT % 28))
                   (QREFELT % 23))
         (SPADCALL |x| (QREFELT % 24)) (QREFELT % 21))) 

(SDEFUN |TRANFUN-;asinh;2S;8| ((|x| (S)) (% (S)))
        (SPADCALL
         (SPADCALL |x|
                   (SPADCALL
                    (SPADCALL (SPADCALL |x| 2 (QREFELT % 20))
                              (|spadConstant| % 7) (QREFELT % 31))
                    (QREFELT % 22))
                   (QREFELT % 31))
         (QREFELT % 32))) 

(SDEFUN |TRANFUN-;acosh;2S;9| ((|x| (S)) (% (S)))
        (SPADCALL 2
                  (SPADCALL
                   (SPADCALL
                    (SPADCALL
                     (SPADCALL
                      (SPADCALL |x| (|spadConstant| % 7) (QREFELT % 31))
                      (SPADCALL 2 (QREFELT % 28)) (QREFELT % 23))
                     (QREFELT % 22))
                    (SPADCALL
                     (SPADCALL
                      (SPADCALL |x| (|spadConstant| % 7) (QREFELT % 21))
                      (SPADCALL 2 (QREFELT % 28)) (QREFELT % 23))
                     (QREFELT % 22))
                    (QREFELT % 31))
                   (QREFELT % 32))
                  (QREFELT % 10))) 

(SDEFUN |TRANFUN-;atanh;2S;10| ((|x| (S)) (% (S)))
        (SPADCALL
         (SPADCALL
          (SPADCALL (SPADCALL (|spadConstant| % 7) |x| (QREFELT % 31))
                    (QREFELT % 32))
          (SPADCALL (SPADCALL (|spadConstant| % 7) |x| (QREFELT % 21))
                    (QREFELT % 32))
          (QREFELT % 21))
         (SPADCALL 2 (QREFELT % 28)) (QREFELT % 23))) 

(DECLAIM (NOTINLINE |TranscendentalFunctionCategory&;|)) 

(DEFUN |TranscendentalFunctionCategory&| (|#1|)
  (SPROG ((|pv$| NIL) (% NIL) (|dv$| NIL) (DV$1 NIL))
         (PROGN
          (LETT DV$1 (|devaluate| |#1|))
          (LETT |dv$| (LIST '|TranscendentalFunctionCategory&| DV$1))
          (LETT % (GETREFV 36))
          (QSETREFV % 0 |dv$|)
          (QSETREFV % 3 (LETT |pv$| (|buildPredVector| 0 0 NIL)))
          (|stuffDomainSlots| %)
          (QSETREFV % 6 |#1|)
          (SETF |pv$| (QREFELT % 3))
          (COND
           ((|HasCategory| |#1| '(|Ring|))
            (PROGN
             (QSETREFV % 11 (CONS (|dispatchFunction| |TRANFUN-;pi;S;1|) %))
             (QSETREFV % 15
                       (CONS (|dispatchFunction| |TRANFUN-;acsch;2S;2|) %))
             (QSETREFV % 17
                       (CONS (|dispatchFunction| |TRANFUN-;asech;2S;3|) %))
             (QSETREFV % 19
                       (CONS (|dispatchFunction| |TRANFUN-;acoth;2S;4|) %)))))
          (COND
           ((|HasCategory| |#1| '(|Field|))
            (COND
             ((|HasSignature| |#1|
                              (LIST '|sqrt|
                                    (LIST (|devaluate| |#1|)
                                          (|devaluate| |#1|))))
              (PROGN
               (QSETREFV % 25
                         (CONS (|dispatchFunction| |TRANFUN-;asin;2S;5|) %))
               (QSETREFV % 29
                         (CONS (|dispatchFunction| |TRANFUN-;acos;2S;6|) %))
               (QSETREFV % 30
                         (CONS (|dispatchFunction| |TRANFUN-;acot;2S;7|) %))
               (QSETREFV % 33
                         (CONS (|dispatchFunction| |TRANFUN-;asinh;2S;8|) %))
               (QSETREFV % 34
                         (CONS (|dispatchFunction| |TRANFUN-;acosh;2S;9|) %))
               (QSETREFV % 35
                         (CONS (|dispatchFunction| |TRANFUN-;atanh;2S;10|)
                               %)))))))
          %))) 

(MAKEPROP '|TranscendentalFunctionCategory&| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (0 . |One|) (4 . |asin|)
              (|PositiveInteger|) (9 . *) (15 . |pi|) (|Union| % '"failed")
              (19 . |recip|) (24 . |asinh|) (29 . |acsch|) (34 . |acosh|)
              (39 . |asech|) (44 . |atanh|) (49 . |acoth|) (54 . ^) (60 . -)
              (66 . |sqrt|) (71 . /) (77 . |atan|) (82 . |asin|) (87 . |pi|)
              (|Integer|) (91 . |coerce|) (96 . |acos|) (101 . |acot|)
              (106 . +) (112 . |log|) (117 . |asinh|) (122 . |acosh|)
              (127 . |atanh|))
           '#(|pi| 132 |atanh| 136 |asinh| 141 |asin| 146 |asech| 151 |acsch|
              156 |acoth| 161 |acot| 166 |acosh| 171 |acos| 176)
           'NIL
           (CONS (|makeByteWordVec2| 1 '(0))
                 (CONS '#(NIL)
                       (CONS
                        '#((|Join|
                            (|mkCategory|
                             (LIST '((|pi| (|#1|)) T)
                                   '((|atanh| (|#1| |#1|)) T)
                                   '((|asinh| (|#1| |#1|)) T)
                                   '((|asech| (|#1| |#1|)) T)
                                   '((|acsch| (|#1| |#1|)) T)
                                   '((|acoth| (|#1| |#1|)) T)
                                   '((|acosh| (|#1| |#1|)) T)
                                   '((|asin| (|#1| |#1|)) T)
                                   '((|acot| (|#1| |#1|)) T)
                                   '((|acos| (|#1| |#1|)) T))
                             (LIST) NIL NIL)))
                        (|makeByteWordVec2| 35
                                            '(0 6 0 7 1 6 0 0 8 2 6 0 9 0 10 0
                                              0 0 11 1 6 12 0 13 1 6 0 0 14 1 0
                                              0 0 15 1 6 0 0 16 1 0 0 0 17 1 6
                                              0 0 18 1 0 0 0 19 2 6 0 0 9 20 2
                                              6 0 0 0 21 1 6 0 0 22 2 6 0 0 0
                                              23 1 6 0 0 24 1 0 0 0 25 0 6 0 26
                                              1 6 0 27 28 1 0 0 0 29 1 0 0 0 30
                                              2 6 0 0 0 31 1 6 0 0 32 1 0 0 0
                                              33 1 0 0 0 34 1 0 0 0 35 0 0 0 11
                                              1 0 0 0 35 1 0 0 0 33 1 0 0 0 25
                                              1 0 0 0 17 1 0 0 0 15 1 0 0 0 19
                                              1 0 0 0 30 1 0 0 0 34 1 0 0 0
                                              29)))))
           '|lookupComplete|)) 
