
(SDEFUN |DFSFUN2;erf;2Df;1| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)))
                    (EXIT
                     (|finally|
                      (SEQ (SPADCALL 68 (QREFELT $ 9))
                           (EXIT
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                       (QREFELT $ 13))
                             (QREFELT $ 14))))
                      (SPADCALL |obits| (QREFELT $ 9))))))) 

(SDEFUN |DFSFUN2;erfi;2Df;2| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)))
                    (EXIT
                     (|finally|
                      (SEQ (SPADCALL 68 (QREFELT $ 9))
                           (EXIT
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                       (QREFELT $ 16))
                             (QREFELT $ 14))))
                      (SPADCALL |obits| (QREFELT $ 9))))))) 

(SDEFUN |DFSFUN2;fresnelC;2Df;3| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)))
                    (EXIT
                     (|finally|
                      (SEQ (SPADCALL 68 (QREFELT $ 9))
                           (EXIT
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                       (QREFELT $ 18))
                             (QREFELT $ 14))))
                      (SPADCALL |obits| (QREFELT $ 9))))))) 

(SDEFUN |DFSFUN2;fresnelS;2Df;4| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)))
                    (EXIT
                     (|finally|
                      (SEQ (SPADCALL 68 (QREFELT $ 9))
                           (EXIT
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                       (QREFELT $ 20))
                             (QREFELT $ 14))))
                      (SPADCALL |obits| (QREFELT $ 9))))))) 

(SDEFUN |DFSFUN2;Ei;2Df;5| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)))
                    (EXIT
                     (|finally|
                      (SEQ (SPADCALL 68 (QREFELT $ 9))
                           (EXIT
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                       (QREFELT $ 22))
                             (QREFELT $ 14))))
                      (SPADCALL |obits| (QREFELT $ 9))))))) 

(SDEFUN |DFSFUN2;li;2Df;6| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)))
                    (EXIT
                     (|finally|
                      (SEQ (SPADCALL 68 (QREFELT $ 9))
                           (EXIT
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                       (QREFELT $ 24))
                             (QREFELT $ 14))))
                      (SPADCALL |obits| (QREFELT $ 9))))))) 

(SDEFUN |DFSFUN2;Ci;2Df;7| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)))
                    (EXIT
                     (|finally|
                      (SEQ (SPADCALL 68 (QREFELT $ 9))
                           (EXIT
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                       (QREFELT $ 26))
                             (QREFELT $ 14))))
                      (SPADCALL |obits| (QREFELT $ 9))))))) 

(SDEFUN |DFSFUN2;Si;2Df;8| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)))
                    (EXIT
                     (|finally|
                      (SEQ (SPADCALL 68 (QREFELT $ 9))
                           (EXIT
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                       (QREFELT $ 28))
                             (QREFELT $ 14))))
                      (SPADCALL |obits| (QREFELT $ 9))))))) 

(SDEFUN |DFSFUN2;Chi;2Df;9| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)))
                    (EXIT
                     (|finally|
                      (SEQ (SPADCALL 68 (QREFELT $ 9))
                           (EXIT
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                       (QREFELT $ 30))
                             (QREFELT $ 14))))
                      (SPADCALL |obits| (QREFELT $ 9))))))) 

(SDEFUN |DFSFUN2;Shi;2Df;10| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)))
                    (EXIT
                     (|finally|
                      (SEQ (SPADCALL 68 (QREFELT $ 9))
                           (EXIT
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                       (QREFELT $ 32))
                             (QREFELT $ 14))))
                      (SPADCALL |obits| (QREFELT $ 9))))))) 

(DECLAIM (NOTINLINE |DoubleFloatSpecialFunctions2;|)) 

(DEFUN |DoubleFloatSpecialFunctions2| ()
  (SPROG NIL
         (PROG (#1=#:G730)
           (RETURN
            (COND
             ((LETT #1#
                    (HGET |$ConstructorCache| '|DoubleFloatSpecialFunctions2|))
              (|CDRwithIncrement| (CDAR #1#)))
             ('T
              (UNWIND-PROTECT
                  (PROG1
                      (CDDAR
                       (HPUT |$ConstructorCache|
                             '|DoubleFloatSpecialFunctions2|
                             (LIST
                              (CONS NIL
                                    (CONS 1
                                          (|DoubleFloatSpecialFunctions2;|))))))
                    (LETT #1# T))
                (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache|
                        '|DoubleFloatSpecialFunctions2|)))))))))) 

(DEFUN |DoubleFloatSpecialFunctions2;| ()
  (SPROG ((|dv$| NIL) ($ NIL) (|pv$| NIL))
         (PROGN
          (LETT |dv$| '(|DoubleFloatSpecialFunctions2|))
          (LETT $ (GETREFV 34))
          (QSETREFV $ 0 |dv$|)
          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL)))
          (|haddProp| |$ConstructorCache| '|DoubleFloatSpecialFunctions2| NIL
                      (CONS 1 $))
          (|stuffDomainSlots| $)
          (SETF |pv$| (QREFELT $ 3))
          $))) 

(MAKEPROP '|DoubleFloatSpecialFunctions2| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|PositiveInteger|) (|Float|)
              (0 . |bits|) (4 . |bits|) (|DoubleFloat|) (9 . |convert|)
              (|FloatLiouvilianFunctions|) (14 . |erf|) (19 . |convert|)
              |DFSFUN2;erf;2Df;1| (24 . |erfi|) |DFSFUN2;erfi;2Df;2|
              (29 . |fresnelC|) |DFSFUN2;fresnelC;2Df;3| (34 . |fresnelS|)
              |DFSFUN2;fresnelS;2Df;4| (39 . |Ei|) |DFSFUN2;Ei;2Df;5|
              (44 . |li|) |DFSFUN2;li;2Df;6| (49 . |Ci|) |DFSFUN2;Ci;2Df;7|
              (54 . |Si|) |DFSFUN2;Si;2Df;8| (59 . |Chi|) |DFSFUN2;Chi;2Df;9|
              (64 . |Shi|) |DFSFUN2;Shi;2Df;10|)
           '#(|li| 69 |fresnelS| 74 |fresnelC| 79 |erfi| 84 |erf| 89 |Si| 94
              |Shi| 99 |Ei| 104 |Ci| 109 |Chi| 114)
           'NIL
           (CONS (|makeByteWordVec2| 1 '(0))
                 (CONS '#(NIL)
                       (CONS
                        '#((|Join|
                            (|mkCategory|
                             (LIST
                              '((|erf| ((|DoubleFloat|) (|DoubleFloat|))) T)
                              '((|erfi| ((|DoubleFloat|) (|DoubleFloat|))) T)
                              '((|fresnelC| ((|DoubleFloat|) (|DoubleFloat|)))
                                T)
                              '((|fresnelS| ((|DoubleFloat|) (|DoubleFloat|)))
                                T)
                              '((|Ei| ((|DoubleFloat|) (|DoubleFloat|))) T)
                              '((|li| ((|DoubleFloat|) (|DoubleFloat|))) T)
                              '((|Ci| ((|DoubleFloat|) (|DoubleFloat|))) T)
                              '((|Si| ((|DoubleFloat|) (|DoubleFloat|))) T)
                              '((|Chi| ((|DoubleFloat|) (|DoubleFloat|))) T)
                              '((|Shi| ((|DoubleFloat|) (|DoubleFloat|))) T))
                             (LIST) NIL NIL)))
                        (|makeByteWordVec2| 33
                                            '(0 7 6 8 1 7 6 6 9 1 10 7 0 11 1
                                              12 7 7 13 1 7 10 0 14 1 12 7 7 16
                                              1 12 7 7 18 1 12 7 7 20 1 12 7 7
                                              22 1 12 7 7 24 1 12 7 7 26 1 12 7
                                              7 28 1 12 7 7 30 1 12 7 7 32 1 0
                                              10 10 25 1 0 10 10 21 1 0 10 10
                                              19 1 0 10 10 17 1 0 10 10 15 1 0
                                              10 10 29 1 0 10 10 33 1 0 10 10
                                              23 1 0 10 10 27 1 0 10 10 31)))))
           '|lookupComplete|)) 

(MAKEPROP '|DoubleFloatSpecialFunctions2| 'NILADIC T) 
