
(/VERSIONCHECK 2) 

(DEFUN |FSCINT;K2KG| (|k| $)
  (SPADCALL
      (SPADCALL
          (SPADCALL (|SPADfirst| (SPADCALL |k| (QREFELT $ 14)))
              (QREFELT $ 17))
          (QREFELT $ 18))
      (QREFELT $ 20))) 

(DEFUN |FSCINT;complexIntegrate;FSF;2| (|f| |x| $)
  (SPADCALL (SPADCALL (SPADCALL |f| |x| (QREFELT $ 22)) (QREFELT $ 24))
      |x| (QREFELT $ 26))) 

(DEFUN |FSCINT;internalIntegrate0;FSIr;3| (|f| |x| $)
  (SPADCALL |f| |x| (ELT $ 30) (ELT $ 34) (QREFELT $ 37))) 

(DEFUN |FSCINT;internalIntegrate0;FSIr;4| (|f| |x| $)
  (SPADCALL |f| |x| (QREFELT $ 30))) 

(DEFUN |FSCINT;internalIntegrate0;FSIr;5| (|f| |x| $)
  (SPADCALL |f| |x| (QREFELT $ 30))) 

(DEFUN |FSCINT;internalIntegrate0;FSIr;6| (|f| |x| $)
  (SPADCALL |f| |x| (QREFELT $ 30))) 

(DEFUN |FSCINT;internalIntegrate;FSIr;7| (|f| |x| $)
  (PROG (#0=#:G1850 #1=#:G1851 #2=#:G1852 |k| #3=#:G1853 |h| |g|)
    (RETURN
      (SEQ (LETT |f|
                 (SPADCALL |f| (SPADCALL |x| (QREFELT $ 39))
                     (QREFELT $ 40))
                 . #4=(|FSCINT;internalIntegrate;FSIr;7|))
           (EXIT (COND
                   ((SPADCALL
                        (CONS #'|FSCINT;internalIntegrate;FSIr;7!0|
                              (VECTOR (QREFELT $ 11) $))
                        (PROGN
                          (LETT #0# NIL . #4#)
                          (SEQ (LETT |k| NIL . #4#)
                               (LETT #1#
                                     (SPADCALL
                                      (LETT |g|
                                       (SPADCALL |f| |x|
                                        (QREFELT $ 46)) . #4#)
                                      (QREFELT $ 48)) . #4#)
                               G190
                               (COND
                                 ((OR (ATOM #1#)
                                      (PROGN
                                        (LETT |k| (CAR #1#) . #4#)
                                        NIL))
                                  #5=(GO G191)))
                               (SEQ (EXIT
                                     (COND
                                       ((SPADCALL |x|
                                         (SPADCALL
                                          (SPADCALL |k| (QREFELT $ 49))
                                          (QREFELT $ 51))
                                         (QREFELT $ 52))
                                        (LETT #0# (CONS |k| #0#) . #4#)))))
                               (LETT #1# (CDR #1#) . #4#) #6=(GO G190)
                               G191 (EXIT (NREVERSE0 #0#))))
                        (QREFELT $ 55))
                    (SEQ (LETT |h|
                               (SPADCALL (SPADCALL |g| (QREFELT $ 17))
                                   (PROGN
                                     (LETT #2# NIL . #4#)
                                     (SEQ (LETT |k| NIL . #4#)
                                      (LETT #3#
                                       (SPADCALL |f| (QREFELT $ 48)) . #4#)
                                      G190
                                      (COND
                                        ((OR (ATOM #3#)
                                          (PROGN
                                            (LETT |k| (CAR #3#) . #4#)
                                            NIL))
                                         #5#))
                                      (SEQ
                                       (EXIT
                                        (COND
                                          ((COND
                                             ((SPADCALL |k|
                                               (SPADCALL "tan"
                                                (QREFELT $ 10))
                                               (QREFELT $ 56))
                                              'T)
                                             ('T
                                              (SPADCALL |k|
                                               (SPADCALL "cot"
                                                (QREFELT $ 10))
                                               (QREFELT $ 56))))
                                           (LETT #2#
                                            (CONS (|FSCINT;K2KG| |k| $)
                                             #2#) . #4#)))))
                                      (LETT #3# (CDR #3#) . #4#) #6#
                                      G191 (EXIT (NREVERSE0 #2#))))
                                   (LIST |x|) (QREFELT $ 58)) . #4#)
                         (EXIT (COND
                                 ((SPADCALL
                                      (LETT |g|
                                       (SPADCALL |h| (QREFELT $ 59)) . #4#)
                                      (QREFELT $ 61))
                                  (SPADCALL
                                      (SPADCALL
                                       (QVELT
                                        (SPADCALL |g| |x|
                                         (QREFELT $ 63))
                                        0)
                                       (QREFELT $ 65))
                                      |x| (QREFELT $ 38)))
                                 ((SPADCALL
                                      (LETT |g|
                                       (SPADCALL
                                        (LETT |h|
                                         (SPADCALL
                                          (QVELT
                                           (SPADCALL |h| |x|
                                            (QREFELT $ 68))
                                           0)
                                          (QREFELT $ 70)) . #4#)
                                        (QREFELT $ 59)) . #4#)
                                      (QREFELT $ 61))
                                  (SPADCALL |g| |x| (QREFELT $ 38)))
                                 ('T
                                  (SPADCALL (ELT $ 59)
                                      (SPADCALL |h| |x| (QREFELT $ 73))
                                      (QREFELT $ 76)))))))
                   ('T
                    (SPADCALL
                        (SPADCALL
                            (QVELT (SPADCALL |g| |x| (QREFELT $ 63)) 0)
                            (QREFELT $ 65))
                        |x| (QREFELT $ 38))))))))) 

(DEFUN |FSCINT;internalIntegrate;FSIr;7!0| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 1) |FSCINT;internalIntegrate;FSIr;7|)
    (RETURN
      (PROGN
        (SPADCALL (SPADCALL |#1| (QREFELT $ 42)) (QREFELT $$ 0)
            (QREFELT $ 44)))))) 

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

(DEFUN |FunctionSpaceComplexIntegration;| (|#1| |#2|)
  (PROG (DV$1 DV$2 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|)
              . #0=(|FunctionSpaceComplexIntegration|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT |dv$|
              (LIST '|FunctionSpaceComplexIntegration| DV$1 DV$2) . #0#)
        (LETT $ (GETREFV 77) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache|
            '|FunctionSpaceComplexIntegration| (LIST DV$1 DV$2)
            (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 |#2|)
        (QSETREFV $ 11 (SPADCALL "rtrig" (QREFELT $ 10)))
        (COND
          ((|HasCategory| |#1|
               '(|ConvertibleTo| (|Pattern| (|Integer|))))
           (COND
             ((|HasCategory| |#1| '(|PatternMatchable| (|Integer|)))
              (PROGN
                (QSETREFV $ 28
                    (COND
                      ((|HasCategory| |#2|
                           '(|LiouvillianFunctionCategory|))
                       (|HasCategory| |#2|
                           '(|RetractableTo| (|Symbol|))))
                      ('T 'NIL)))
                (COND
                  ((QREFELT $ 28)
                   (PROGN
                     (QSETREFV $ 38
                         (CONS (|dispatchFunction|
                                   |FSCINT;internalIntegrate0;FSIr;3|)
                               $))))
                  ('T
                   (QSETREFV $ 38
                       (CONS (|dispatchFunction|
                                 |FSCINT;internalIntegrate0;FSIr;4|)
                             $))))))
             ('T
              (QSETREFV $ 38
                  (CONS (|dispatchFunction|
                            |FSCINT;internalIntegrate0;FSIr;5|)
                        $)))))
          ('T
           (QSETREFV $ 38
               (CONS (|dispatchFunction|
                         |FSCINT;internalIntegrate0;FSIr;6|)
                     $))))
        $)))) 

(MAKEPROP '|FunctionSpaceComplexIntegration| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|String|) (|Symbol|) (0 . |coerce|) 'RTRIG (|List| 7)
             (|Kernel| 7) (5 . |argument|) (|Expression| (|Complex| 6))
             (|InnerTrigonometricManipulations| 6 7 15) (10 . F2FG)
             (15 . |tan|) (|Kernel| $) (20 . |retract|)
             (|IntegrationResult| 7) |FSCINT;internalIntegrate;FSIr;7|
             (|IntegrationResultToFunction| 6 7) (25 . |complexExpand|)
             (|IntegrationTools| 6 7) (30 . |removeConstantTerm|)
             |FSCINT;complexIntegrate;FSF;2| '#:G1815
             (|ElementaryIntegration| 6 7) (36 . |lfintegrate|)
             (|Record| (|:| |special| 7) (|:| |integrand| 7))
             (|Union| 31 '"failed") (|PatternMatchIntegration| 6 7)
             (42 . |pmComplexintegrate|) (|Mapping| 21 7 9)
             (|Mapping| 32 7 9) (48 . |intPatternMatch|)
             (56 . |internalIntegrate0|) (62 . |coerce|)
             (67 . |distribute|) (|BasicOperator|) (73 . |operator|)
             (|Boolean|) (78 . |has?|)
             (|ElementaryFunctionStructurePackage| 6 7)
             (84 . |realElementary|) (|List| 19) (90 . |tower|)
             (95 . |coerce|) (|List| 9) (100 . |variables|)
             (105 . |member?|) (|Mapping| 43 13) (|List| 13)
             (111 . |any?|) (117 . |is?|) (|List| (|Kernel| 15))
             (123 . |trigs2explogs|) (130 . FG2F)
             (|TrigonometricManipulations| 6 7) (135 . |real?|)
             (|Record| (|:| |func| 7) (|:| |kers| 54) (|:| |vals| 12))
             (140 . |rischNormalize|) (|AlgebraicManipulations| 6 7)
             (146 . |rootSimp|)
             (|Record| (|:| |func| 15) (|:| |kers| 57)
                       (|:| |vals| (|List| 15)))
             (|ElementaryFunctionStructurePackage| (|Complex| 6) 15)
             (151 . |rischNormalize|)
             (|AlgebraicManipulations| (|Complex| 6) 15)
             (157 . |rootSimp|) (|IntegrationResult| 15)
             (|ElementaryIntegration| (|Complex| 6) 15)
             (162 . |lfintegrate|) (|Mapping| 7 15)
             (|IntegrationResultFunctions2| 15 7) (168 . |map|))
          '#(|internalIntegrate0| 174 |internalIntegrate| 180
             |complexIntegrate| 186)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 76
                                '(1 9 0 8 10 1 13 12 0 14 1 16 15 7 17
                                  1 15 0 0 18 1 15 19 0 20 1 23 7 21 24
                                  2 25 7 7 9 26 2 29 21 7 9 30 2 33 32
                                  7 9 34 4 25 21 7 9 35 36 37 2 0 21 7
                                  9 38 1 7 0 9 39 2 7 0 0 0 40 1 13 41
                                  0 42 2 41 43 0 9 44 2 45 7 7 9 46 1 7
                                  47 0 48 1 7 0 19 49 1 7 50 0 51 2 50
                                  43 9 0 52 2 54 43 53 0 55 2 13 43 0 9
                                  56 3 16 15 15 57 50 58 1 16 7 15 59 1
                                  60 43 7 61 2 45 62 7 9 63 1 64 7 7 65
                                  2 67 66 15 9 68 1 69 15 15 70 2 72 71
                                  15 9 73 2 75 21 74 71 76 2 0 21 7 9
                                  38 2 0 21 7 9 22 2 0 7 7 9 27)))))
          '|lookupComplete|)) 
