
(/VERSIONCHECK 2) 

(DEFUN |FSPECF;abs;2F;1| (|x| $) (SPADCALL (QREFELT $ 13) |x| (QREFELT $ 25))) 

(DEFUN |FSPECF;Gamma;2F;2| (|x| $) (SPADCALL (QREFELT $ 14) |x| (QREFELT $ 25))) 

(DEFUN |FSPECF;Gamma;3F;3| (|a| |x| $)
  (SPADCALL (QREFELT $ 15) |a| |x| (QREFELT $ 28))) 

(DEFUN |FSPECF;Beta;3F;4| (|x| |y| $)
  (SPADCALL (QREFELT $ 16) |x| |y| (QREFELT $ 28))) 

(DEFUN |FSPECF;digamma;2F;5| (|x| $)
  (SPADCALL (QREFELT $ 17) |x| (QREFELT $ 25))) 

(DEFUN |FSPECF;polygamma;3F;6| (|k| |x| $)
  (SPADCALL (QREFELT $ 18) |k| |x| (QREFELT $ 28))) 

(DEFUN |FSPECF;besselJ;3F;7| (|a| |x| $)
  (SPADCALL (QREFELT $ 19) |a| |x| (QREFELT $ 28))) 

(DEFUN |FSPECF;besselY;3F;8| (|a| |x| $)
  (SPADCALL (QREFELT $ 20) |a| |x| (QREFELT $ 28))) 

(DEFUN |FSPECF;besselI;3F;9| (|a| |x| $)
  (SPADCALL (QREFELT $ 21) |a| |x| (QREFELT $ 28))) 

(DEFUN |FSPECF;besselK;3F;10| (|a| |x| $)
  (SPADCALL (QREFELT $ 22) |a| |x| (QREFELT $ 28))) 

(DEFUN |FSPECF;airyAi;2F;11| (|x| $)
  (SPADCALL (QREFELT $ 23) |x| (QREFELT $ 25))) 

(DEFUN |FSPECF;airyBi;2F;12| (|x| $)
  (SPADCALL (QREFELT $ 24) |x| (QREFELT $ 25))) 

(DEFUN |FSPECF;belong?;BoB;13| (|op| $)
  (SPADCALL |op| (QREFELT $ 8) (QREFELT $ 40))) 

(DEFUN |FSPECF;operator;2Bo;14| (|op| $)
  (COND ((SPADCALL |op| '|abs| (QREFELT $ 42)) (QREFELT $ 13))
        ((SPADCALL |op| '|Gamma| (QREFELT $ 42)) (QREFELT $ 14))
        ((SPADCALL |op| '|Gamma2| (QREFELT $ 42)) (QREFELT $ 15))
        ((SPADCALL |op| '|Beta| (QREFELT $ 42)) (QREFELT $ 16))
        ((SPADCALL |op| '|digamma| (QREFELT $ 42)) (QREFELT $ 17))
        ((SPADCALL |op| '|polygamma| (QREFELT $ 42)) (QREFELT $ 18))
        ((SPADCALL |op| '|besselJ| (QREFELT $ 42)) (QREFELT $ 19))
        ((SPADCALL |op| '|besselY| (QREFELT $ 42)) (QREFELT $ 20))
        ((SPADCALL |op| '|besselI| (QREFELT $ 42)) (QREFELT $ 21))
        ((SPADCALL |op| '|besselK| (QREFELT $ 42)) (QREFELT $ 22))
        ((SPADCALL |op| '|airyAi| (QREFELT $ 42)) (QREFELT $ 23))
        ((SPADCALL |op| '|airyBi| (QREFELT $ 42)) (QREFELT $ 24))
        ('T (|error| "Not a special operator")))) 

(DEFUN |FSPECF;iGamma| (|x| $)
  (COND ((SPADCALL |x| (|spadConstant| $ 45) (QREFELT $ 46)) |x|)
        ('T (SPADCALL (QREFELT $ 14) |x| (QREFELT $ 47))))) 

(DEFUN |FSPECF;iabs| (|x| $)
  (COND ((SPADCALL |x| (QREFELT $ 48)) (|spadConstant| $ 49))
        ((SPADCALL |x| (QREFELT $ 13) (QREFELT $ 50)) |x|)
        ((SPADCALL |x| (|spadConstant| $ 49) (QREFELT $ 52))
         (SPADCALL (QREFELT $ 13) (SPADCALL |x| (QREFELT $ 53))
                   (QREFELT $ 47)))
        ('T (SPADCALL (QREFELT $ 13) |x| (QREFELT $ 47))))) 

(DEFUN |FSPECF;iBeta| (|x| |y| $)
  (SPADCALL (QREFELT $ 16) (LIST |x| |y|) (QREFELT $ 55))) 

(DEFUN |FSPECF;idigamma| (|x| $) (SPADCALL (QREFELT $ 17) |x| (QREFELT $ 47))) 

(DEFUN |FSPECF;iiipolygamma| (|n| |x| $)
  (SPADCALL (QREFELT $ 18) (LIST |n| |x|) (QREFELT $ 55))) 

(DEFUN |FSPECF;iiiBesselJ| (|x| |y| $)
  (SPADCALL (QREFELT $ 19) (LIST |x| |y|) (QREFELT $ 55))) 

(DEFUN |FSPECF;iiiBesselY| (|x| |y| $)
  (SPADCALL (QREFELT $ 20) (LIST |x| |y|) (QREFELT $ 55))) 

(DEFUN |FSPECF;iiiBesselI| (|x| |y| $)
  (SPADCALL (QREFELT $ 21) (LIST |x| |y|) (QREFELT $ 55))) 

(DEFUN |FSPECF;iiiBesselK| (|x| |y| $)
  (SPADCALL (QREFELT $ 22) (LIST |x| |y|) (QREFELT $ 55))) 

(DEFUN |FSPECF;iAiryAi| (|x| $) (SPADCALL (QREFELT $ 23) |x| (QREFELT $ 47))) 

(DEFUN |FSPECF;iAiryBi| (|x| $) (SPADCALL (QREFELT $ 24) |x| (QREFELT $ 47))) 

(DEFUN |FSPECF;iiabs;2F;26| (|x| $)
  (PROG (#1=#:G732 |b| |a| |f| |r|)
    (RETURN
     (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 57)) . #2=(|FSPECF;iiabs;2F;26|))
          (EXIT
           (COND ((QEQCAR |r| 1) (|FSPECF;iabs| |x| $))
                 (#3='T
                  (SEQ
                   (EXIT
                    (SEQ (LETT |f| (QCDR |r|) . #2#)
                         (SEQ
                          (LETT |a|
                                (SPADCALL (SPADCALL |f| (QREFELT $ 60))
                                          (QREFELT $ 62))
                                . #2#)
                          (EXIT
                           (COND
                            ((QEQCAR |a| 1)
                             (PROGN
                              (LETT #1# (|FSPECF;iabs| |x| $) . #2#)
                              (GO #1#)))
                            (#3#
                             (SEQ
                              (LETT |b|
                                    (SPADCALL (SPADCALL |f| (QREFELT $ 63))
                                              (QREFELT $ 62))
                                    . #2#)
                              (EXIT
                               (COND
                                ((QEQCAR |b| 1)
                                 (PROGN
                                  (LETT #1# (|FSPECF;iabs| |x| $) . #2#)
                                  (GO #1#))))))))))
                         (EXIT
                          (SPADCALL
                           (SPADCALL (SPADCALL (QCDR |a|) (QREFELT $ 64))
                                     (QREFELT $ 65))
                           (SPADCALL (SPADCALL (QCDR |b|) (QREFELT $ 64))
                                     (QREFELT $ 65))
                           (QREFELT $ 66)))))
                   #1# (EXIT #1#))))))))) 

(DEFUN |FSPECF;iiabs;2F;27| (|x| $) (|FSPECF;iabs| |x| $)) 

(DEFUN |FSPECF;iiGamma;2F;28| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 68)) |FSPECF;iiGamma;2F;28|)
          (EXIT
           (COND ((QEQCAR |r| 1) (|FSPECF;iGamma| |x| $))
                 ('T
                  (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 69))
                            (QREFELT $ 65))))))))) 

(DEFUN |FSPECF;iiBeta;LF;29| (|l| $)
  (PROG (#1=#:G746 |s| |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 68))
               . #2=(|FSPECF;iiBeta;LF;29|))
         (EXIT
          (COND
           ((QEQCAR |r| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iBeta| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 72)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |s| (SPADCALL (SPADCALL |l| (QREFELT $ 72)) (QREFELT $ 68))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |s| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iBeta| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 72)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |r|) (QCDR |s|) (QREFELT $ 73))
                   (QREFELT $ 65)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iidigamma;2F;30| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 68)) |FSPECF;iidigamma;2F;30|)
          (EXIT
           (COND ((QEQCAR |r| 1) (|FSPECF;idigamma| |x| $))
                 ('T
                  (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 75))
                            (QREFELT $ 65))))))))) 

(DEFUN |FSPECF;iipolygamma;LF;31| (|l| $)
  (PROG (#1=#:G758 |r| |s|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |s| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 68))
               . #2=(|FSPECF;iipolygamma;LF;31|))
         (EXIT
          (COND
           ((QEQCAR |s| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iiipolygamma| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 72)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |r| (SPADCALL (SPADCALL |l| (QREFELT $ 72)) (QREFELT $ 68))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |r| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iiipolygamma| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 72)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |s|) (QCDR |r|) (QREFELT $ 77))
                   (QREFELT $ 65)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiBesselJ;LF;32| (|l| $)
  (PROG (#1=#:G765 |s| |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 68))
               . #2=(|FSPECF;iiBesselJ;LF;32|))
         (EXIT
          (COND
           ((QEQCAR |r| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iiiBesselJ| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 72)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |s| (SPADCALL (SPADCALL |l| (QREFELT $ 72)) (QREFELT $ 68))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |s| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iiiBesselJ| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 72)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |r|) (QCDR |s|) (QREFELT $ 79))
                   (QREFELT $ 65)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiBesselY;LF;33| (|l| $)
  (PROG (#1=#:G772 |s| |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 68))
               . #2=(|FSPECF;iiBesselY;LF;33|))
         (EXIT
          (COND
           ((QEQCAR |r| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iiiBesselY| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 72)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |s| (SPADCALL (SPADCALL |l| (QREFELT $ 72)) (QREFELT $ 68))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |s| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iiiBesselY| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 72)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |r|) (QCDR |s|) (QREFELT $ 81))
                   (QREFELT $ 65)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiBesselI;LF;34| (|l| $)
  (PROG (#1=#:G779 |s| |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 68))
               . #2=(|FSPECF;iiBesselI;LF;34|))
         (EXIT
          (COND
           ((QEQCAR |r| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iiiBesselI| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 72)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |s| (SPADCALL (SPADCALL |l| (QREFELT $ 72)) (QREFELT $ 68))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |s| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iiiBesselI| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 72)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |r|) (QCDR |s|) (QREFELT $ 83))
                   (QREFELT $ 65)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiBesselK;LF;35| (|l| $)
  (PROG (#1=#:G786 |s| |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 68))
               . #2=(|FSPECF;iiBesselK;LF;35|))
         (EXIT
          (COND
           ((QEQCAR |r| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iiiBesselK| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 72)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |s| (SPADCALL (SPADCALL |l| (QREFELT $ 72)) (QREFELT $ 68))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |s| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iiiBesselK| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 72)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |r|) (QCDR |s|) (QREFELT $ 85))
                   (QREFELT $ 65)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiAiryAi;2F;36| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 68)) |FSPECF;iiAiryAi;2F;36|)
          (EXIT
           (COND ((QEQCAR |r| 1) (|FSPECF;iAiryAi| |x| $))
                 ('T
                  (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 87))
                            (QREFELT $ 65))))))))) 

(DEFUN |FSPECF;iiAiryBi;2F;37| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 68)) |FSPECF;iiAiryBi;2F;37|)
          (EXIT
           (COND ((QEQCAR |r| 1) (|FSPECF;iAiryBi| |x| $))
                 ('T
                  (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 89))
                            (QREFELT $ 65))))))))) 

(DEFUN |FSPECF;iiGamma;2F;38| (|x| $)
  (PROG (#1=#:G805 |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL |x| (QREFELT $ 92)) . #2=(|FSPECF;iiGamma;2F;38|))
         (EXIT
          (COND
           ((QEQCAR |r| 0)
            (COND
             ((NULL (< (QCDR |r|) 1))
              (PROGN
               (LETT #1#
                     (SPADCALL (SPADCALL (- (QCDR |r|) 1) (QREFELT $ 94))
                               (QREFELT $ 95))
                     . #2#)
               (GO #1#))))))))
        (EXIT (|FSPECF;iGamma| |x| $))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiGamma;2F;39| (|x| $) (|FSPECF;iGamma| |x| $)) 

(DEFUN |FSPECF;iiBeta;LF;40| (|l| $)
  (|FSPECF;iBeta| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 72)) $)) 

(DEFUN |FSPECF;iidigamma;2F;41| (|x| $) (|FSPECF;idigamma| |x| $)) 

(DEFUN |FSPECF;iipolygamma;LF;42| (|l| $)
  (|FSPECF;iiipolygamma| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 72)) $)) 

(DEFUN |FSPECF;iiBesselJ;LF;43| (|l| $)
  (|FSPECF;iiiBesselJ| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 72)) $)) 

(DEFUN |FSPECF;iiBesselY;LF;44| (|l| $)
  (|FSPECF;iiiBesselY| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 72)) $)) 

(DEFUN |FSPECF;iiBesselI;LF;45| (|l| $)
  (|FSPECF;iiiBesselI| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 72)) $)) 

(DEFUN |FSPECF;iiBesselK;LF;46| (|l| $)
  (|FSPECF;iiiBesselK| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 72)) $)) 

(DEFUN |FSPECF;iiAiryAi;2F;47| (|x| $) (|FSPECF;iAiryAi| |x| $)) 

(DEFUN |FSPECF;iiAiryBi;2F;48| (|x| $) (|FSPECF;iAiryBi| |x| $)) 

(DEFUN |FSPECF;iBesselJ| (|l| |t| $)
  (PROG (|x| |n|)
    (RETURN
     (SEQ (LETT |n| (|SPADfirst| |l|) . #1=(|FSPECF;iBesselJ|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 72)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |n| |t| (QREFELT $ 119))
                      (SPADCALL (QREFELT $ 117)
                                (LIST
                                 (SPADCALL (QREFELT $ 19)
                                           (LIST (QREFELT $ 118) |x|)
                                           (QREFELT $ 120))
                                 (QREFELT $ 118) |n|)
                                (QREFELT $ 55))
                      (QREFELT $ 121))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 119)) (QREFELT $ 103)
                       (QREFELT $ 121))
             (SPADCALL
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 45) (QREFELT $ 122))
                        |x| (QREFELT $ 33))
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 45) (QREFELT $ 123))
                        |x| (QREFELT $ 33))
              (QREFELT $ 122))
             (QREFELT $ 121))
            (QREFELT $ 123))))))) 

(DEFUN |FSPECF;iBesselY| (|l| |t| $)
  (PROG (|x| |n|)
    (RETURN
     (SEQ (LETT |n| (|SPADfirst| |l|) . #1=(|FSPECF;iBesselY|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 72)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |n| |t| (QREFELT $ 119))
                      (SPADCALL (QREFELT $ 117)
                                (LIST
                                 (SPADCALL (QREFELT $ 20)
                                           (LIST (QREFELT $ 118) |x|)
                                           (QREFELT $ 120))
                                 (QREFELT $ 118) |n|)
                                (QREFELT $ 55))
                      (QREFELT $ 121))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 119)) (QREFELT $ 103)
                       (QREFELT $ 121))
             (SPADCALL
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 45) (QREFELT $ 122))
                        |x| (QREFELT $ 34))
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 45) (QREFELT $ 123))
                        |x| (QREFELT $ 34))
              (QREFELT $ 122))
             (QREFELT $ 121))
            (QREFELT $ 123))))))) 

(DEFUN |FSPECF;iBesselI| (|l| |t| $)
  (PROG (|x| |n|)
    (RETURN
     (SEQ (LETT |n| (|SPADfirst| |l|) . #1=(|FSPECF;iBesselI|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 72)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |n| |t| (QREFELT $ 119))
                      (SPADCALL (QREFELT $ 117)
                                (LIST
                                 (SPADCALL (QREFELT $ 21)
                                           (LIST (QREFELT $ 118) |x|)
                                           (QREFELT $ 120))
                                 (QREFELT $ 118) |n|)
                                (QREFELT $ 55))
                      (QREFELT $ 121))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 119)) (QREFELT $ 103)
                       (QREFELT $ 121))
             (SPADCALL
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 45) (QREFELT $ 122))
                        |x| (QREFELT $ 35))
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 45) (QREFELT $ 123))
                        |x| (QREFELT $ 35))
              (QREFELT $ 123))
             (QREFELT $ 121))
            (QREFELT $ 123))))))) 

(DEFUN |FSPECF;iBesselK| (|l| |t| $)
  (PROG (|x| |n|)
    (RETURN
     (SEQ (LETT |n| (|SPADfirst| |l|) . #1=(|FSPECF;iBesselK|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 72)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |n| |t| (QREFELT $ 119))
                      (SPADCALL (QREFELT $ 117)
                                (LIST
                                 (SPADCALL (QREFELT $ 22)
                                           (LIST (QREFELT $ 118) |x|)
                                           (QREFELT $ 120))
                                 (QREFELT $ 118) |n|)
                                (QREFELT $ 55))
                      (QREFELT $ 121))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 119)) (QREFELT $ 103)
                       (QREFELT $ 121))
             (SPADCALL
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 45) (QREFELT $ 122))
                        |x| (QREFELT $ 36))
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 45) (QREFELT $ 123))
                        |x| (QREFELT $ 36))
              (QREFELT $ 123))
             (QREFELT $ 121))
            (QREFELT $ 122))))))) 

(DEFUN |FSPECF;ipolygamma| (|l| |x| $)
  (PROG (|y| |n|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |x| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 125))
                  (QREFELT $ 126))
        (|error|
         "cannot differentiate polygamma with respect to the first argument"))
       ('T
        (SEQ (LETT |n| (|SPADfirst| |l|) . #1=(|FSPECF;ipolygamma|))
             (LETT |y| (SPADCALL |l| (QREFELT $ 72)) . #1#)
             (EXIT
              (SPADCALL (SPADCALL |y| |x| (QREFELT $ 119))
                        (SPADCALL
                         (SPADCALL |n| (|spadConstant| $ 45) (QREFELT $ 123))
                         |y| (QREFELT $ 32))
                        (QREFELT $ 121)))))))))) 

(DEFUN |FSPECF;iBetaGrad1| (|l| $)
  (PROG (|y| |x|)
    (RETURN
     (SEQ (LETT |x| (|SPADfirst| |l|) . #1=(|FSPECF;iBetaGrad1|))
          (LETT |y| (SPADCALL |l| (QREFELT $ 72)) . #1#)
          (EXIT
           (SPADCALL (SPADCALL |x| |y| (QREFELT $ 30))
                     (SPADCALL (SPADCALL |x| (QREFELT $ 31))
                               (SPADCALL (SPADCALL |x| |y| (QREFELT $ 123))
                                         (QREFELT $ 31))
                               (QREFELT $ 122))
                     (QREFELT $ 121))))))) 

(DEFUN |FSPECF;iBetaGrad2| (|l| $)
  (PROG (|y| |x|)
    (RETURN
     (SEQ (LETT |x| (|SPADfirst| |l|) . #1=(|FSPECF;iBetaGrad2|))
          (LETT |y| (SPADCALL |l| (QREFELT $ 72)) . #1#)
          (EXIT
           (SPADCALL (SPADCALL |x| |y| (QREFELT $ 30))
                     (SPADCALL (SPADCALL |y| (QREFELT $ 31))
                               (SPADCALL (SPADCALL |x| |y| (QREFELT $ 123))
                                         (QREFELT $ 31))
                               (QREFELT $ 122))
                     (QREFELT $ 121))))))) 

(DEFUN |FSPECF;iGamma2| (|l| |t| $)
  (PROG (|x| |a|)
    (RETURN
     (SEQ (LETT |a| (|SPADfirst| |l|) . #1=(|FSPECF;iGamma2|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 72)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |a| |t| (QREFELT $ 119))
                      (SPADCALL (QREFELT $ 117)
                                (LIST
                                 (SPADCALL (QREFELT $ 15)
                                           (LIST (QREFELT $ 118) |x|)
                                           (QREFELT $ 120))
                                 (QREFELT $ 118) |a|)
                                (QREFELT $ 55))
                      (QREFELT $ 121))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 119))
                       (SPADCALL |x|
                                 (SPADCALL |a| (|spadConstant| $ 45)
                                           (QREFELT $ 122))
                                 (QREFELT $ 127))
                       (QREFELT $ 121))
             (SPADCALL (SPADCALL |x| (QREFELT $ 53)) (QREFELT $ 128))
             (QREFELT $ 121))
            (QREFELT $ 122))))))) 

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

(DEFUN |FunctionalSpecialFunction;| (|#1| |#2|)
  (PROG (#1=#:G823 |pv$| $ |dv$| DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #2=(|FunctionalSpecialFunction|))
      (LETT DV$2 (|devaluate| |#2|) . #2#)
      (LETT |dv$| (LIST '|FunctionalSpecialFunction| DV$1 DV$2) . #2#)
      (LETT $ (GETREFV 135) . #2#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #2#))
      (|haddProp| |$ConstructorCache| '|FunctionalSpecialFunction|
                  (LIST DV$1 DV$2) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (QSETREFV $ 8 '|special|)
      (QSETREFV $ 13 (SPADCALL '|abs| (QREFELT $ 12)))
      (QSETREFV $ 14 (SPADCALL '|Gamma| (QREFELT $ 12)))
      (QSETREFV $ 15 (SPADCALL '|Gamma2| (QREFELT $ 12)))
      (QSETREFV $ 16 (SPADCALL '|Beta| (QREFELT $ 12)))
      (QSETREFV $ 17 (SPADCALL '|digamma| (QREFELT $ 12)))
      (QSETREFV $ 18 (SPADCALL '|polygamma| (QREFELT $ 12)))
      (QSETREFV $ 19 (SPADCALL '|besselJ| (QREFELT $ 12)))
      (QSETREFV $ 20 (SPADCALL '|besselY| (QREFELT $ 12)))
      (QSETREFV $ 21 (SPADCALL '|besselI| (QREFELT $ 12)))
      (QSETREFV $ 22 (SPADCALL '|besselK| (QREFELT $ 12)))
      (QSETREFV $ 23 (SPADCALL '|airyAi| (QREFELT $ 12)))
      (QSETREFV $ 24 (SPADCALL '|airyBi| (QREFELT $ 12)))
      (COND
       ((|HasSignature| |#1|
                        (LIST '|abs|
                              (LIST (|devaluate| |#1|) (|devaluate| |#1|))))
        (QSETREFV $ 67 (CONS (|dispatchFunction| |FSPECF;iiabs;2F;26|) $)))
       ('T (QSETREFV $ 67 (CONS (|dispatchFunction| |FSPECF;iiabs;2F;27|) $))))
      (COND
       ((|HasCategory| |#1| '(|SpecialFunctionCategory|))
        (PROGN
         (QSETREFV $ 70 (CONS (|dispatchFunction| |FSPECF;iiGamma;2F;28|) $))
         (QSETREFV $ 74 (CONS (|dispatchFunction| |FSPECF;iiBeta;LF;29|) $))
         (QSETREFV $ 76 (CONS (|dispatchFunction| |FSPECF;iidigamma;2F;30|) $))
         (QSETREFV $ 78
                   (CONS (|dispatchFunction| |FSPECF;iipolygamma;LF;31|) $))
         (QSETREFV $ 80 (CONS (|dispatchFunction| |FSPECF;iiBesselJ;LF;32|) $))
         (QSETREFV $ 82 (CONS (|dispatchFunction| |FSPECF;iiBesselY;LF;33|) $))
         (QSETREFV $ 84 (CONS (|dispatchFunction| |FSPECF;iiBesselI;LF;34|) $))
         (QSETREFV $ 86 (CONS (|dispatchFunction| |FSPECF;iiBesselK;LF;35|) $))
         (QSETREFV $ 88 (CONS (|dispatchFunction| |FSPECF;iiAiryAi;2F;36|) $))
         (QSETREFV $ 90
                   (CONS (|dispatchFunction| |FSPECF;iiAiryBi;2F;37|) $))))
       ('T
        (PROGN
         (COND
          ((|HasCategory| |#1| '(|RetractableTo| (|Integer|)))
           (QSETREFV $ 70
                     (CONS (|dispatchFunction| |FSPECF;iiGamma;2F;38|) $)))
          ('T
           (QSETREFV $ 70
                     (CONS (|dispatchFunction| |FSPECF;iiGamma;2F;39|) $))))
         (QSETREFV $ 74 (CONS (|dispatchFunction| |FSPECF;iiBeta;LF;40|) $))
         (QSETREFV $ 76 (CONS (|dispatchFunction| |FSPECF;iidigamma;2F;41|) $))
         (QSETREFV $ 78
                   (CONS (|dispatchFunction| |FSPECF;iipolygamma;LF;42|) $))
         (QSETREFV $ 80 (CONS (|dispatchFunction| |FSPECF;iiBesselJ;LF;43|) $))
         (QSETREFV $ 82 (CONS (|dispatchFunction| |FSPECF;iiBesselY;LF;44|) $))
         (QSETREFV $ 84 (CONS (|dispatchFunction| |FSPECF;iiBesselI;LF;45|) $))
         (QSETREFV $ 86 (CONS (|dispatchFunction| |FSPECF;iiBesselK;LF;46|) $))
         (QSETREFV $ 88 (CONS (|dispatchFunction| |FSPECF;iiAiryAi;2F;47|) $))
         (QSETREFV $ 90
                   (CONS (|dispatchFunction| |FSPECF;iiAiryBi;2F;48|) $)))))
      (SPADCALL (QREFELT $ 14) (ELT $ 70) (QREFELT $ 98))
      (SPADCALL (QREFELT $ 13) (ELT $ 67) (QREFELT $ 98))
      (SPADCALL (QREFELT $ 16) (ELT $ 74) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 17) (ELT $ 76) (QREFELT $ 98))
      (SPADCALL (QREFELT $ 18) (ELT $ 78) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 19) (ELT $ 80) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 20) (ELT $ 82) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 21) (ELT $ 84) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 22) (ELT $ 86) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 23) (ELT $ 88) (QREFELT $ 98))
      (SPADCALL (QREFELT $ 24) (ELT $ 90) (QREFELT $ 98))
      (QSETREFV $ 103
                (PROG2
                    (LETT #1#
                          (SPADCALL (SPADCALL 2 (QREFELT $ 95))
                                    (QREFELT $ 102))
                          . #2#)
                    (QCDR #1#)
                  (|check-union| (QEQCAR #1# 0) |#2| #1#)))
      (QSETREFV $ 104
                (PROG2
                    (LETT #1#
                          (SPADCALL (SPADCALL 2 (QREFELT $ 95))
                                    (QREFELT $ 102))
                          . #2#)
                    (QCDR #1#)
                  (|check-union| (QEQCAR #1# 0) |#2| #1#)))
      (QSETREFV $ 107
                (SPADCALL 2
                          (PROG2
                              (LETT #1#
                                    (SPADCALL (SPADCALL 3 (QREFELT $ 95))
                                              (QREFELT $ 102))
                                    . #2#)
                              (QCDR #1#)
                            (|check-union| (QEQCAR #1# 0) |#2| #1#))
                          (QREFELT $ 106)))
      (QSETREFV $ 109 (SPADCALL (QREFELT $ 108)))
      (QSETREFV $ 117
                (SPADCALL
                 (|SPADfirst|
                  (SPADCALL
                   (SPADCALL
                    (SPADCALL
                     (SPADCALL (SPADCALL (QREFELT $ 108)) (QREFELT $ 110))
                     (SPADCALL (QREFELT $ 109) (QREFELT $ 111)) (QREFELT $ 25))
                    (QREFELT $ 109) (QREFELT $ 112))
                   (QREFELT $ 114)))
                 (QREFELT $ 116)))
      (QSETREFV $ 118 (SPADCALL (SPADCALL (QREFELT $ 108)) (QREFELT $ 111)))
      (COND
       ((|HasCategory| |#2| '(|ElementaryFunctionCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 15) '|%specialDiff|
                   (CONS (|function| |FSPECF;iGamma2|) $) (QREFELT $ 130)))))
      (SPADCALL (QREFELT $ 13) (CONS #'|FunctionalSpecialFunction!0| $)
                (QREFELT $ 132))
      (SPADCALL (QREFELT $ 14) (CONS #'|FunctionalSpecialFunction!1| $)
                (QREFELT $ 132))
      (SPADCALL (QREFELT $ 16)
                (LIST (CONS (|function| |FSPECF;iBetaGrad1|) $)
                      (CONS (|function| |FSPECF;iBetaGrad2|) $))
                (QREFELT $ 134))
      (SPADCALL (QREFELT $ 17) (CONS #'|FunctionalSpecialFunction!2| $)
                (QREFELT $ 132))
      (SPADCALL (QREFELT $ 18) '|%specialDiff|
                (CONS (|function| |FSPECF;ipolygamma|) $) (QREFELT $ 130))
      (SPADCALL (QREFELT $ 19) '|%specialDiff|
                (CONS (|function| |FSPECF;iBesselJ|) $) (QREFELT $ 130))
      (SPADCALL (QREFELT $ 20) '|%specialDiff|
                (CONS (|function| |FSPECF;iBesselY|) $) (QREFELT $ 130))
      (SPADCALL (QREFELT $ 21) '|%specialDiff|
                (CONS (|function| |FSPECF;iBesselI|) $) (QREFELT $ 130))
      (SPADCALL (QREFELT $ 22) '|%specialDiff|
                (CONS (|function| |FSPECF;iBesselK|) $) (QREFELT $ 130))
      $)))) 

(DEFUN |FunctionalSpecialFunction!2| (|x| $)
  (SPADCALL (|spadConstant| $ 45) |x| (QREFELT $ 32))) 

(DEFUN |FunctionalSpecialFunction!1| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 31)) (SPADCALL |x| (QREFELT $ 27))
            (QREFELT $ 121))) 

(DEFUN |FunctionalSpecialFunction!0| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 26)) (SPADCALL |x| (QREFELT $ 131))
            (QREFELT $ 121))) 

(MAKEPROP '|FunctionalSpecialFunction| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) 'SPECIAL
              (|BasicOperator|) (|Symbol|) (|CommonOperators|) (0 . |operator|)
              '|opabs| '|opGamma| '|opGamma2| '|opBeta| '|opdigamma|
              '|oppolygamma| '|opBesselJ| '|opBesselY| '|opBesselI|
              '|opBesselK| '|opAiryAi| '|opAiryBi| (5 . |elt|)
              |FSPECF;abs;2F;1| |FSPECF;Gamma;2F;2| (11 . |elt|)
              |FSPECF;Gamma;3F;3| |FSPECF;Beta;3F;4| |FSPECF;digamma;2F;5|
              |FSPECF;polygamma;3F;6| |FSPECF;besselJ;3F;7|
              |FSPECF;besselY;3F;8| |FSPECF;besselI;3F;9|
              |FSPECF;besselK;3F;10| |FSPECF;airyAi;2F;11|
              |FSPECF;airyBi;2F;12| (|Boolean|) (18 . |has?|)
              |FSPECF;belong?;BoB;13| (24 . |is?|) |FSPECF;operator;2Bo;14|
              (30 . |One|) (34 . |One|) (38 . =) (44 . |kernel|) (50 . |zero?|)
              (55 . |Zero|) (59 . |is?|) (65 . |Zero|) (69 . |smaller?|)
              (75 . -) (|List| $) (80 . |kernel|) (|Union| 59 '#1="failed")
              (86 . |retractIfCan|) (|Polynomial| 6) (|Fraction| 58)
              (91 . |numer|) (|Union| 6 '#1#) (96 . |retractIfCan|)
              (101 . |denom|) (106 . |abs|) (111 . |coerce|) (116 . /)
              (122 . |iiabs|) (127 . |retractIfCan|) (132 . |Gamma|)
              (137 . |iiGamma|) (|List| 7) (142 . |second|) (147 . |Beta|)
              (153 . |iiBeta|) (158 . |digamma|) (163 . |iidigamma|)
              (168 . |polygamma|) (174 . |iipolygamma|) (179 . |besselJ|)
              (185 . |iiBesselJ|) (190 . |besselY|) (196 . |iiBesselY|)
              (201 . |besselI|) (207 . |iiBesselI|) (212 . |besselK|)
              (218 . |iiBesselK|) (223 . |airyAi|) (228 . |iiAiryAi|)
              (233 . |airyBi|) (238 . |iiAiryBi|) (|Union| 93 '#1#)
              (243 . |retractIfCan|) (|Integer|) (248 . |factorial|)
              (253 . |coerce|) (|Mapping| 7 7) (|BasicOperatorFunctions1| 7)
              (258 . |evaluate|) (|Mapping| 7 71) (264 . |evaluate|)
              (|Union| $ '"failed") (270 . |recip|) '|ahalf| '|athird|
              (|PositiveInteger|) (275 . *) '|twothirds| (281 . |new|)
              '|dummyArg| (285 . |operator|) (290 . |coerce|) (295 . D)
              (|List| (|Kernel| $)) (301 . |kernels|) (|Kernel| 7)
              (306 . |operator|) '|opdiff| '|dm| (311 . |differentiate|)
              (317 . |elt|) (323 . *) (329 . -) (335 . +) (|List| 10)
              (341 . |variables|) (346 . |member?|) (352 . ^) (358 . |exp|)
              (|None|) (363 . |setProperty|) (370 . |inv|) (375 . |derivative|)
              (|List| 99) (381 . |derivative|))
           '#(|polygamma| 387 |operator| 393 |iipolygamma| 398 |iidigamma| 403
              |iiabs| 408 |iiGamma| 413 |iiBeta| 418 |iiBesselY| 423
              |iiBesselK| 428 |iiBesselJ| 433 |iiBesselI| 438 |iiAiryBi| 443
              |iiAiryAi| 448 |digamma| 453 |besselY| 458 |besselK| 464
              |besselJ| 470 |besselI| 476 |belong?| 482 |airyBi| 487 |airyAi|
              492 |abs| 497 |Gamma| 502 |Beta| 513)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 134
                                                 '(1 11 9 10 12 2 7 0 9 0 25 3
                                                   7 0 9 0 0 28 2 9 39 0 10 40
                                                   2 9 39 0 10 42 0 6 0 44 0 7
                                                   0 45 2 7 39 0 0 46 2 7 0 9 0
                                                   47 1 7 39 0 48 0 7 0 49 2 7
                                                   39 0 9 50 0 6 0 51 2 7 39 0
                                                   0 52 1 7 0 0 53 2 7 0 9 54
                                                   55 1 7 56 0 57 1 59 58 0 60
                                                   1 58 61 0 62 1 59 58 0 63 1
                                                   6 0 0 64 1 7 0 6 65 2 7 0 0
                                                   0 66 1 0 7 7 67 1 7 61 0 68
                                                   1 6 0 0 69 1 0 7 7 70 1 71 7
                                                   0 72 2 6 0 0 0 73 1 0 7 71
                                                   74 1 6 0 0 75 1 0 7 7 76 2 6
                                                   0 0 0 77 1 0 7 71 78 2 6 0 0
                                                   0 79 1 0 7 71 80 2 6 0 0 0
                                                   81 1 0 7 71 82 2 6 0 0 0 83
                                                   1 0 7 71 84 2 6 0 0 0 85 1 0
                                                   7 71 86 1 6 0 0 87 1 0 7 7
                                                   88 1 6 0 0 89 1 0 7 7 90 1 7
                                                   91 0 92 1 93 0 0 94 1 7 0 93
                                                   95 2 97 9 9 96 98 2 97 9 9
                                                   99 100 1 7 101 0 102 2 7 0
                                                   105 0 106 0 10 0 108 1 9 0
                                                   10 110 1 7 0 10 111 2 7 0 0
                                                   10 112 1 7 113 0 114 1 115 9
                                                   0 116 2 7 0 0 10 119 2 7 0 9
                                                   54 120 2 7 0 0 0 121 2 7 0 0
                                                   0 122 2 7 0 0 0 123 1 7 124
                                                   0 125 2 124 39 10 0 126 2 7
                                                   0 0 0 127 1 7 0 0 128 3 9 0
                                                   0 10 129 130 1 7 0 0 131 2
                                                   97 9 9 96 132 2 97 9 9 133
                                                   134 2 0 7 7 7 32 1 0 9 9 43
                                                   1 0 7 71 78 1 0 7 7 76 1 0 7
                                                   7 67 1 0 7 7 70 1 0 7 71 74
                                                   1 0 7 71 82 1 0 7 71 86 1 0
                                                   7 71 80 1 0 7 71 84 1 0 7 7
                                                   90 1 0 7 7 88 1 0 7 7 31 2 0
                                                   7 7 7 34 2 0 7 7 7 36 2 0 7
                                                   7 7 33 2 0 7 7 7 35 1 0 39 9
                                                   41 1 0 7 7 38 1 0 7 7 37 1 0
                                                   7 7 26 1 0 7 7 27 2 0 7 7 7
                                                   29 2 0 7 7 7 30)))))
           '|lookupComplete|)) 
