
(SDEFUN |CMPLXRT;complexZeros;UPParL;1|
        ((|p| UP) (|eps| |Par|) ($ |List| (|Complex| |Par|)))
        (SPROG
         ((|ris| (|List| (|Complex| |Par|))) (#1=#:G663 NIL) (|z| NIL)
          (#2=#:G662 NIL) (|lz| (|List| (|List| |Par|)))
          (|p2| #3=(|Polynomial| (|Integer|))) (|p1| #3#)
          (|q| (|Polynomial| (|Complex| (|Integer|))))
          (|pp| (|SparseUnivariatePolynomial| (|Complex| (|Integer|))))
          (#4=#:G661 NIL) (|pf| NIL)
          (|lpf|
           (|List| (|Record| (|:| |factor| UP) (|:| |exponent| (|Integer|)))))
          (|vv| #5=(|Symbol|)) (|x2| #5#) (|x1| #5#))
         (SEQ
          (LETT |x1| (SPADCALL (QREFELT $ 9))
                . #6=(|CMPLXRT;complexZeros;UPParL;1|))
          (LETT |x2| (SPADCALL (QREFELT $ 9)) . #6#)
          (LETT |vv| (SPADCALL (QREFELT $ 9)) . #6#)
          (LETT |lpf| (SPADCALL (SPADCALL |p| (QREFELT $ 12)) (QREFELT $ 15))
                . #6#)
          (LETT |ris| NIL . #6#)
          (SEQ (LETT |pf| NIL . #6#) (LETT #4# |lpf| . #6#) G190
               (COND
                ((OR (ATOM #4#) (PROGN (LETT |pf| (CAR #4#) . #6#) NIL))
                 (GO G191)))
               (SEQ (LETT |pp| (QCAR |pf|) . #6#)
                    (LETT |q| (SPADCALL |pp| |vv| (QREFELT $ 18)) . #6#)
                    (LETT |q|
                          (SPADCALL |q| |vv|
                                    (SPADCALL (SPADCALL |x1| (QREFELT $ 19))
                                              (SPADCALL
                                               (SPADCALL 0 1 (QREFELT $ 25))
                                               (SPADCALL |x2| (QREFELT $ 19))
                                               (QREFELT $ 26))
                                              (QREFELT $ 27))
                                    (QREFELT $ 28))
                          . #6#)
                    (LETT |p1| (SPADCALL (ELT $ 29) |q| (QREFELT $ 33)) . #6#)
                    (LETT |p2| (SPADCALL (ELT $ 34) |q| (QREFELT $ 33)) . #6#)
                    (LETT |lz|
                          (SPADCALL (LIST |p1| |p2|) NIL (LIST |x1| |x2|) |eps|
                                    (QREFELT $ 39))
                          . #6#)
                    (EXIT
                     (LETT |ris|
                           (APPEND
                            (PROGN
                             (LETT #2# NIL . #6#)
                             (SEQ (LETT |z| NIL . #6#) (LETT #1# |lz| . #6#)
                                  G190
                                  (COND
                                   ((OR (ATOM #1#)
                                        (PROGN (LETT |z| (CAR #1#) . #6#) NIL))
                                    (GO G191)))
                                  (SEQ
                                   (EXIT
                                    (LETT #2#
                                          (CONS
                                           (SPADCALL (|SPADfirst| |z|)
                                                     (SPADCALL |z|
                                                               (QREFELT $ 41))
                                                     (QREFELT $ 43))
                                           #2#)
                                          . #6#)))
                                  (LETT #1# (CDR #1#) . #6#) (GO G190) G191
                                  (EXIT (NREVERSE #2#))))
                            |ris|)
                           . #6#)))
               (LETT #4# (CDR #4#) . #6#) (GO G190) G191 (EXIT NIL))
          (EXIT |ris|)))) 

(DECLAIM (NOTINLINE |ComplexRootPackage;|)) 

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

(DEFUN |ComplexRootPackage;| (|#1| |#2|)
  (SPROG ((|pv$| NIL) ($ NIL) (|dv$| NIL) (DV$2 NIL) (DV$1 NIL))
         (PROGN
          (LETT DV$1 (|devaluate| |#1|) . #1=(|ComplexRootPackage|))
          (LETT DV$2 (|devaluate| |#2|) . #1#)
          (LETT |dv$| (LIST '|ComplexRootPackage| DV$1 DV$2) . #1#)
          (LETT $ (GETREFV 46) . #1#)
          (QSETREFV $ 0 |dv$|)
          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
          (|haddProp| |$ConstructorCache| '|ComplexRootPackage|
                      (LIST DV$1 DV$2) (CONS 1 $))
          (|stuffDomainSlots| $)
          (QSETREFV $ 6 |#1|)
          (QSETREFV $ 7 |#2|)
          (SETF |pv$| (QREFELT $ 3))
          $))) 

(MAKEPROP '|ComplexRootPackage| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) (|Symbol|)
              (0 . |new|) (|Factored| 6) (|ComplexFactorization| 23 6)
              (4 . |factor|) (|Record| (|:| |factor| 6) (|:| |exponent| 23))
              (|List| 13) (9 . |factors|) (|SparseUnivariatePolynomial| 24)
              (|Polynomial| 24) (14 . |multivariate|) (20 . |coerce|)
              (25 . |Zero|) (29 . |Zero|) (33 . |One|) (|Integer|)
              (|Complex| 23) (37 . |complex|) (43 . *) (49 . +) (55 . |eval|)
              (62 . |real|) (|Polynomial| 23) (|Mapping| 23 24)
              (|PolynomialFunctions2| 24 23) (67 . |map|) (73 . |imag|)
              (|List| 40) (|List| 30) (|List| 8)
              (|InnerNumericFloatSolvePackage| 23 7 7) (78 . |innerSolve|)
              (|List| 7) (86 . |second|) (|Complex| 7) (91 . |complex|)
              (|List| 42) |CMPLXRT;complexZeros;UPParL;1|)
           '#(|complexZeros| 97) 'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 45
                                                 '(0 8 0 9 1 11 10 6 12 1 10 14
                                                   0 15 2 17 0 16 8 18 1 17 0 8
                                                   19 0 6 0 20 0 7 0 21 0 6 0
                                                   22 2 24 0 23 23 25 2 17 0 24
                                                   0 26 2 17 0 0 0 27 3 17 0 0
                                                   8 0 28 1 24 23 0 29 2 32 30
                                                   31 17 33 1 24 23 0 34 4 38
                                                   35 36 36 37 7 39 1 40 7 0 41
                                                   2 42 0 7 7 43 2 0 44 6 7
                                                   45)))))
           '|lookupComplete|)) 
