
(SDEFUN |DFSFUN2;erf;2Df;1| ((|x| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|obits| (|PositiveInteger|)))
               (SEQ (LETT |obits| (SPADCALL (QREFELT $ 8)) |DFSFUN2;erf;2Df;1|)
                    (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)) |DFSFUN2;erfi;2Df;2|)
                (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))
                      |DFSFUN2;fresnelC;2Df;3|)
                (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))
                      |DFSFUN2;fresnelS;2Df;4|)
                (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)) |DFSFUN2;Ei;2Df;5|)
                    (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)) |DFSFUN2;li;2Df;6|)
                    (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)) |DFSFUN2;Ci;2Df;7|)
                    (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)) |DFSFUN2;Si;2Df;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)) |DFSFUN2;Chi;2Df;9|)
                    (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)) |DFSFUN2;Shi;2Df;10|)
                (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|)
                    . #2=(|DoubleFloatSpecialFunctions2|))
              (|CDRwithIncrement| (CDAR #1#)))
             ('T
              (UNWIND-PROTECT
                  (PROG1
                      (CDDAR
                       (HPUT |$ConstructorCache|
                             '|DoubleFloatSpecialFunctions2|
                             (LIST
                              (CONS NIL
                                    (CONS 1
                                          (|DoubleFloatSpecialFunctions2;|))))))
                    (LETT #1# T . #2#))
                (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache|
                        '|DoubleFloatSpecialFunctions2|)))))))))) 

(DEFUN |DoubleFloatSpecialFunctions2;| ()
  (SPROG ((|dv$| NIL) ($ NIL) (|pv$| NIL))
         (PROGN
          (LETT |dv$| '(|DoubleFloatSpecialFunctions2|)
                . #1=(|DoubleFloatSpecialFunctions2|))
          (LETT $ (GETREFV 34) . #1#)
          (QSETREFV $ 0 |dv$|)
          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
          (|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 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|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) 
