
(/VERSIONCHECK 2) 

(DEFUN |FLOATCP;complexRoots;FParL;1| (|q| |eps| $)
  (PROG (|p|)
    (RETURN
      (SEQ (LETT |p| (SPADCALL |q| (QREFELT $ 9))
                 |FLOATCP;complexRoots;FParL;1|)
           (EXIT (SPADCALL (SPADCALL |p| (QREFELT $ 11)) |eps|
                     (QREFELT $ 14))))))) 

(DEFUN |FLOATCP;complexRoots;LLParL;2| (|lp| |lv| |eps| $)
  (PROG (#0=#:G1823 #1=#:G1824 |lnum| #2=#:G1825 |p| #3=#:G1826 |dp|
            |lden|)
    (RETURN
      (SEQ (LETT |lnum|
                 (PROGN
                   (LETT #0# NIL
                         . #4=(|FLOATCP;complexRoots;LLParL;2|))
                   (SEQ (LETT |p| NIL . #4#) (LETT #1# |lp| . #4#) G190
                        (COND
                          ((OR (ATOM #1#)
                               (PROGN (LETT |p| (CAR #1#) . #4#) NIL))
                           #5=(GO G191)))
                        (SEQ (EXIT (LETT #0#
                                    (CONS (SPADCALL |p| (QREFELT $ 9))
                                     #0#) . #4#)))
                        (LETT #1# (CDR #1#) . #4#) #6=(GO G190) G191
                        (EXIT (NREVERSE0 #0#)))) . #4#)
           (LETT |lden|
                 (PROGN
                   (LETT #2# NIL . #4#)
                   (SEQ (LETT |p| NIL . #4#) (LETT #3# |lp| . #4#) G190
                        (COND
                          ((OR (ATOM #3#)
                               (PROGN (LETT |p| (CAR #3#) . #4#) NIL))
                           #5#))
                        (SEQ (EXIT (COND
                                     ((SEQ
                                       (LETT |dp|
                                        (SPADCALL |p| (QREFELT $ 16)) . #4#)
                                       (EXIT
                                        (COND
                                          ((SPADCALL |dp|
                                            (|spadConstant| $ 19)
                                            (QREFELT $ 21))
                                           'NIL)
                                          ('T 'T))))
                                      (LETT #2# (CONS |dp| #2#) . #4#)))))
                        (LETT #3# (CDR #3#) . #4#) #6# G191
                        (EXIT (NREVERSE0 #2#)))) . #4#)
           (EXIT (SPADCALL |lnum| |lden| |lv| |eps| (QREFELT $ 26))))))) 

(DEFUN |FLOATCP;complexSolve;LParL;3| (|lp| |eps| $)
  (PROG (#0=#:G1840 #1=#:G1841 |lnum| #2=#:G1842 |p| #3=#:G1843 |lden|
            |np| #4=#:G1844 #5=#:G1832 #6=#:G1830 #7=#:G1831 |dp|
            #8=#:G1845 #9=#:G1835 #10=#:G1833 #11=#:G1834 |lv|
            #12=#:G1846 |nres| #13=#:G1847 #14=#:G1848 |r| #15=#:G1850
            |x| #16=#:G1849)
    (RETURN
      (SEQ (LETT |lnum|
                 (PROGN
                   (LETT #0# NIL
                         . #17=(|FLOATCP;complexSolve;LParL;3|))
                   (SEQ (LETT |p| NIL . #17#) (LETT #1# |lp| . #17#)
                        G190
                        (COND
                          ((OR (ATOM #1#)
                               (PROGN (LETT |p| (CAR #1#) . #17#) NIL))
                           #18=(GO G191)))
                        (SEQ (EXIT (LETT #0#
                                    (CONS (SPADCALL |p| (QREFELT $ 9))
                                     #0#) . #17#)))
                        (LETT #1# (CDR #1#) . #17#) #19=(GO G190) G191
                        (EXIT (NREVERSE0 #0#)))) . #17#)
           (LETT |lden|
                 (PROGN
                   (LETT #2# NIL . #17#)
                   (SEQ (LETT |p| NIL . #17#) (LETT #3# |lp| . #17#)
                        G190
                        (COND
                          ((OR (ATOM #3#)
                               (PROGN (LETT |p| (CAR #3#) . #17#) NIL))
                           #18#))
                        (SEQ (EXIT (COND
                                     ((SEQ
                                       (LETT |dp|
                                        (SPADCALL |p| (QREFELT $ 16)) . #17#)
                                       (EXIT
                                        (COND
                                          ((SPADCALL |dp|
                                            (|spadConstant| $ 19)
                                            (QREFELT $ 21))
                                           'NIL)
                                          (#20='T 'T))))
                                      (LETT #2# (CONS |dp| #2#) . #17#)))))
                        (LETT #3# (CDR #3#) . #17#) #19# G191
                        (EXIT (NREVERSE0 #2#)))) . #17#)
           (LETT |lv|
                 (PROGN
                   (LETT #7# NIL . #17#)
                   (SEQ (LETT |np| NIL . #17#) (LETT #4# |lnum| . #17#)
                        G190
                        (COND
                          ((OR (ATOM #4#)
                               (PROGN
                                 (LETT |np| (CAR #4#) . #17#)
                                 NIL))
                           #18#))
                        (SEQ (EXIT (PROGN
                                     (LETT #5#
                                      (SPADCALL |np| (QREFELT $ 29)) . #17#)
                                     (COND
                                       (#7#
                                        (LETT #6#
                                         (SPADCALL #6# #5#
                                          (QREFELT $ 30)) . #17#))
                                       ('T
                                        (PROGN
                                          (LETT #6# #5# . #17#)
                                          (LETT #7# 'T . #17#)))))))
                        (LETT #4# (CDR #4#) . #17#) #19# G191
                        (EXIT NIL))
                   (COND
                     (#7# #6#)
                     (#20# (|IdentityError| '|setUnion|)))) . #17#)
           (COND
             ((NULL (SPADCALL |lden| NIL (QREFELT $ 31)))
              (LETT |lv|
                    (SPADCALL |lv|
                        (PROGN
                          (LETT #11# NIL . #17#)
                          (SEQ (LETT |dp| NIL . #17#)
                               (LETT #8# |lden| . #17#) G190
                               (COND
                                 ((OR (ATOM #8#)
                                      (PROGN
                                        (LETT |dp| (CAR #8#) . #17#)
                                        NIL))
                                  #18#))
                               (SEQ (EXIT
                                     (PROGN
                                       (LETT #9#
                                        (SPADCALL |dp| (QREFELT $ 29)) . #17#)
                                       (COND
                                         (#11#
                                          (LETT #10#
                                           (SPADCALL #10# #9#
                                            (QREFELT $ 30)) . #17#))
                                         ('T
                                          (PROGN
                                            (LETT #10# #9# . #17#)
                                            (LETT #11# 'T . #17#)))))))
                               (LETT #8# (CDR #8#) . #17#) #19# G191
                               (EXIT NIL))
                          (COND
                            (#11# #10#)
                            (#20# (|IdentityError| '|setUnion|))))
                        (QREFELT $ 30)) . #17#)))
           (EXIT (PROGN
                   (LETT #12# NIL . #17#)
                   (SEQ (LETT |nres| NIL . #17#)
                        (LETT #13#
                              (SPADCALL |lnum| |lden| |lv| |eps|
                                  (QREFELT $ 26)) . #17#)
                        G190
                        (COND
                          ((OR (ATOM #13#)
                               (PROGN
                                 (LETT |nres| (CAR #13#) . #17#)
                                 NIL))
                           #18#))
                        (SEQ (EXIT (LETT #12#
                                    (CONS
                                     (PROGN
                                       (LETT #14# NIL . #17#)
                                       (SEQ (LETT |r| NIL . #17#)
                                        (LETT #15# |nres| . #17#)
                                        (LETT |x| NIL . #17#)
                                        (LETT #16# |lv| . #17#) G190
                                        (COND
                                          ((OR (ATOM #16#)
                                            (PROGN
                                              (LETT |x|
                                               (CAR #16#) . #17#)
                                              NIL)
                                            (ATOM #15#)
                                            (PROGN
                                              (LETT |r|
                                               (CAR #15#) . #17#)
                                              NIL))
                                           #18#))
                                        (SEQ
                                         (EXIT
                                          (LETT #14#
                                           (CONS
                                            (SPADCALL
                                             (SPADCALL |x|
                                              (QREFELT $ 34))
                                             (SPADCALL |r|
                                              (QREFELT $ 36))
                                             (QREFELT $ 38))
                                            #14#) . #17#)))
                                        (LETT #16#
                                         (PROG1 (CDR #16#)
                                           (LETT #15#
                                            (CDR #15#) . #17#)) . #17#)
                                        #19# G191
                                        (EXIT (NREVERSE0 #14#))))
                                     #12#) . #17#)))
                        (LETT #13# (CDR #13#) . #17#) #19# G191
                        (EXIT (NREVERSE0 #12#))))))))) 

(DEFUN |FLOATCP;complexSolve;LParL;4| (|le| |eps| $)
  (PROG (#0=#:G1865 |ep| #1=#:G1866 |lp| #2=#:G1867 #3=#:G1868 |lnum|
            #4=#:G1869 |p| #5=#:G1870 |lden| |np| #6=#:G1871 #7=#:G1857
            #8=#:G1855 #9=#:G1856 |dp| #10=#:G1872 #11=#:G1860
            #12=#:G1858 #13=#:G1859 |lv| #14=#:G1873 |nres| #15=#:G1874
            #16=#:G1875 |r| #17=#:G1877 |x| #18=#:G1876)
    (RETURN
      (SEQ (LETT |lp|
                 (PROGN
                   (LETT #0# NIL
                         . #19=(|FLOATCP;complexSolve;LParL;4|))
                   (SEQ (LETT |ep| NIL . #19#) (LETT #1# |le| . #19#)
                        G190
                        (COND
                          ((OR (ATOM #1#)
                               (PROGN
                                 (LETT |ep| (CAR #1#) . #19#)
                                 NIL))
                           #20=(GO G191)))
                        (SEQ (EXIT (LETT #0#
                                    (CONS
                                     (SPADCALL
                                      (SPADCALL |ep| (QREFELT $ 42))
                                      (SPADCALL |ep| (QREFELT $ 43))
                                      (QREFELT $ 44))
                                     #0#) . #19#)))
                        (LETT #1# (CDR #1#) . #19#) #21=(GO G190) G191
                        (EXIT (NREVERSE0 #0#)))) . #19#)
           (LETT |lnum|
                 (PROGN
                   (LETT #2# NIL . #19#)
                   (SEQ (LETT |p| NIL . #19#) (LETT #3# |lp| . #19#)
                        G190
                        (COND
                          ((OR (ATOM #3#)
                               (PROGN (LETT |p| (CAR #3#) . #19#) NIL))
                           #20#))
                        (SEQ (EXIT (LETT #2#
                                    (CONS (SPADCALL |p| (QREFELT $ 9))
                                     #2#) . #19#)))
                        (LETT #3# (CDR #3#) . #19#) #21# G191
                        (EXIT (NREVERSE0 #2#)))) . #19#)
           (LETT |lden|
                 (PROGN
                   (LETT #4# NIL . #19#)
                   (SEQ (LETT |p| NIL . #19#) (LETT #5# |lp| . #19#)
                        G190
                        (COND
                          ((OR (ATOM #5#)
                               (PROGN (LETT |p| (CAR #5#) . #19#) NIL))
                           #20#))
                        (SEQ (EXIT (COND
                                     ((SEQ
                                       (LETT |dp|
                                        (SPADCALL |p| (QREFELT $ 16)) . #19#)
                                       (EXIT
                                        (COND
                                          ((SPADCALL |dp|
                                            (|spadConstant| $ 19)
                                            (QREFELT $ 21))
                                           'NIL)
                                          (#22='T 'T))))
                                      (LETT #4# (CONS |dp| #4#) . #19#)))))
                        (LETT #5# (CDR #5#) . #19#) #21# G191
                        (EXIT (NREVERSE0 #4#)))) . #19#)
           (LETT |lv|
                 (PROGN
                   (LETT #9# NIL . #19#)
                   (SEQ (LETT |np| NIL . #19#) (LETT #6# |lnum| . #19#)
                        G190
                        (COND
                          ((OR (ATOM #6#)
                               (PROGN
                                 (LETT |np| (CAR #6#) . #19#)
                                 NIL))
                           #20#))
                        (SEQ (EXIT (PROGN
                                     (LETT #7#
                                      (SPADCALL |np| (QREFELT $ 29)) . #19#)
                                     (COND
                                       (#9#
                                        (LETT #8#
                                         (SPADCALL #8# #7#
                                          (QREFELT $ 30)) . #19#))
                                       ('T
                                        (PROGN
                                          (LETT #8# #7# . #19#)
                                          (LETT #9# 'T . #19#)))))))
                        (LETT #6# (CDR #6#) . #19#) #21# G191
                        (EXIT NIL))
                   (COND
                     (#9# #8#)
                     (#22# (|IdentityError| '|setUnion|)))) . #19#)
           (COND
             ((NULL (SPADCALL |lden| NIL (QREFELT $ 31)))
              (LETT |lv|
                    (SPADCALL |lv|
                        (PROGN
                          (LETT #13# NIL . #19#)
                          (SEQ (LETT |dp| NIL . #19#)
                               (LETT #10# |lden| . #19#) G190
                               (COND
                                 ((OR (ATOM #10#)
                                      (PROGN
                                        (LETT |dp| (CAR #10#) . #19#)
                                        NIL))
                                  #20#))
                               (SEQ (EXIT
                                     (PROGN
                                       (LETT #11#
                                        (SPADCALL |dp| (QREFELT $ 29)) . #19#)
                                       (COND
                                         (#13#
                                          (LETT #12#
                                           (SPADCALL #12# #11#
                                            (QREFELT $ 30)) . #19#))
                                         ('T
                                          (PROGN
                                            (LETT #12# #11# . #19#)
                                            (LETT #13# 'T . #19#)))))))
                               (LETT #10# (CDR #10#) . #19#) #21# G191
                               (EXIT NIL))
                          (COND
                            (#13# #12#)
                            (#22# (|IdentityError| '|setUnion|))))
                        (QREFELT $ 30)) . #19#)))
           (EXIT (PROGN
                   (LETT #14# NIL . #19#)
                   (SEQ (LETT |nres| NIL . #19#)
                        (LETT #15#
                              (SPADCALL |lnum| |lden| |lv| |eps|
                                  (QREFELT $ 26)) . #19#)
                        G190
                        (COND
                          ((OR (ATOM #15#)
                               (PROGN
                                 (LETT |nres| (CAR #15#) . #19#)
                                 NIL))
                           #20#))
                        (SEQ (EXIT (LETT #14#
                                    (CONS
                                     (PROGN
                                       (LETT #16# NIL . #19#)
                                       (SEQ (LETT |r| NIL . #19#)
                                        (LETT #17# |nres| . #19#)
                                        (LETT |x| NIL . #19#)
                                        (LETT #18# |lv| . #19#) G190
                                        (COND
                                          ((OR (ATOM #18#)
                                            (PROGN
                                              (LETT |x|
                                               (CAR #18#) . #19#)
                                              NIL)
                                            (ATOM #17#)
                                            (PROGN
                                              (LETT |r|
                                               (CAR #17#) . #19#)
                                              NIL))
                                           #20#))
                                        (SEQ
                                         (EXIT
                                          (LETT #16#
                                           (CONS
                                            (SPADCALL
                                             (SPADCALL |x|
                                              (QREFELT $ 34))
                                             (SPADCALL |r|
                                              (QREFELT $ 36))
                                             (QREFELT $ 38))
                                            #16#) . #19#)))
                                        (LETT #18#
                                         (PROG1 (CDR #18#)
                                           (LETT #17#
                                            (CDR #17#) . #19#)) . #19#)
                                        #21# G191
                                        (EXIT (NREVERSE0 #16#))))
                                     #14#) . #19#)))
                        (LETT #15# (CDR #15#) . #19#) #21# G191
                        (EXIT (NREVERSE0 #14#))))))))) 

(DEFUN |FLOATCP;complexSolve;FParL;5| (|p| |eps| $)
  (PROG (|mvar| |x| #0=#:G1888 |val| #1=#:G1889)
    (RETURN
      (SEQ (LETT |mvar|
                 (SPADCALL (SPADCALL |p| (QREFELT $ 9)) (QREFELT $ 49))
                 . #2=(|FLOATCP;complexSolve;FParL;5|))
           (EXIT (COND
                   ((QEQCAR |mvar| 1) (|error| "no variable found"))
                   ('T
                    (SEQ (LETT |x|
                               (SPADCALL (QCDR |mvar|) (QREFELT $ 34)) . #2#)
                         (EXIT (PROGN
                                 (LETT #0# NIL . #2#)
                                 (SEQ (LETT |val| NIL . #2#)
                                      (LETT #1#
                                       (SPADCALL |p| |eps|
                                        (QREFELT $ 15)) . #2#)
                                      G190
                                      (COND
                                        ((OR (ATOM #1#)
                                          (PROGN
                                            (LETT |val|
                                             (CAR #1#) . #2#)
                                            NIL))
                                         (GO G191)))
                                      (SEQ
                                       (EXIT
                                        (LETT #0#
                                         (CONS
                                          (SPADCALL |x|
                                           (SPADCALL |val|
                                            (QREFELT $ 36))
                                           (QREFELT $ 38))
                                          #0#) . #2#)))
                                      (LETT #1# (CDR #1#) . #2#)
                                      (GO G190) G191
                                      (EXIT (NREVERSE0 #0#))))))))))))) 

(DEFUN |FLOATCP;complexSolve;EParL;6| (|eq| |eps| $)
  (SPADCALL
      (SPADCALL (SPADCALL |eq| (QREFELT $ 42))
          (SPADCALL |eq| (QREFELT $ 43)) (QREFELT $ 44))
      |eps| (QREFELT $ 51))) 

(DEFUN |FloatingComplexPackage| (#0=#:G1891)
  (PROG ()
    (RETURN
      (PROG (#1=#:G1892)
        (RETURN
          (COND
            ((LETT #1#
                   (|lassocShiftWithFunction| (LIST (|devaluate| #0#))
                       (HGET |$ConstructorCache|
                             '|FloatingComplexPackage|)
                       '|domainEqualList|)
                   . #2=(|FloatingComplexPackage|))
             (|CDRwithIncrement| #1#))
            ('T
             (UNWIND-PROTECT
               (PROG1 (|FloatingComplexPackage;| #0#)
                 (LETT #1# T . #2#))
               (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache| '|FloatingComplexPackage|))))))))))) 

(DEFUN |FloatingComplexPackage;| (|#1|)
  (PROG (DV$1 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|FloatingComplexPackage|))
        (LETT |dv$| (LIST '|FloatingComplexPackage| DV$1) . #0#)
        (LETT $ (GETREFV 53) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|FloatingComplexPackage|
            (LIST DV$1) (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        $)))) 

(MAKEPROP '|FloatingComplexPackage| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|)
             (|Polynomial| (|Complex| (|Integer|))) (|Fraction| 7)
             (0 . |numer|)
             (|SparseUnivariatePolynomial| (|Complex| (|Integer|)))
             (5 . |univariate|) (|List| 35) (|ComplexRootPackage| 10 6)
             (10 . |complexZeros|) |FLOATCP;complexRoots;FParL;1|
             (16 . |denom|) (21 . |One|) (25 . |One|) (29 . |One|)
             (|Boolean|) (33 . =) (|List| 12) (|List| 7) (|List| 32)
             (|InnerNumericFloatSolvePackage| (|Complex| (|Integer|))
                 35 6)
             (39 . |innerSolve|) (|List| 8)
             |FLOATCP;complexRoots;LLParL;2| (47 . |variables|)
             (52 . |setUnion|) (58 . =) (|Symbol|) (|Polynomial| 35)
             (64 . |coerce|) (|Complex| 6) (69 . |coerce|)
             (|Equation| 33) (74 . |equation|) (|List| 50)
             |FLOATCP;complexSolve;LParL;3| (|Equation| 8) (80 . |lhs|)
             (85 . |rhs|) (90 . -) (96 . |One|) (|List| 41)
             |FLOATCP;complexSolve;LParL;4| (|Union| 32 '"failed")
             (100 . |mainVariable|) (|List| 37)
             |FLOATCP;complexSolve;FParL;5|
             |FLOATCP;complexSolve;EParL;6|)
          '#(|complexSolve| 105 |complexRoots| 129) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 52
                                '(1 8 7 0 9 1 7 10 0 11 2 13 12 10 6 14
                                  1 8 7 0 16 0 6 0 17 0 8 0 18 0 7 0 19
                                  2 7 20 0 0 21 4 25 22 23 23 24 6 26 1
                                  7 24 0 29 2 24 0 0 0 30 2 23 20 0 0
                                  31 1 33 0 32 34 1 33 0 35 36 2 37 0
                                  33 33 38 1 41 8 0 42 1 41 8 0 43 2 8
                                  0 0 0 44 0 41 0 45 1 7 48 0 49 2 0 39
                                  27 6 40 2 0 50 8 6 51 2 0 39 46 6 47
                                  2 0 50 41 6 52 3 0 22 27 24 6 28 2 0
                                  12 8 6 15)))))
          '|lookupComplete|)) 
