
(/VERSIONCHECK 2) 

(DEFUN |FFFGF;multiplyRows!| (|v| M $)
  (PROG (|n| |i| |j|)
    (RETURN
      (SEQ (LETT |n| (QVSIZE |v|) . #0=(|FFFGF;multiplyRows!|))
           (SEQ (LETT |i| 1 . #0#) G190
                (COND ((QSGREATERP |i| |n|) #1=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #0#) G190
                                (COND ((QSGREATERP |j| |n|) #1#))
                                (SEQ (EXIT
                                      (SPADCALL M |i| |j|
                                       (SPADCALL
                                        (SPADCALL |v| |i|
                                         (QREFELT $ 11))
                                        (SPADCALL M |i| |j|
                                         (QREFELT $ 14))
                                        (QREFELT $ 15))
                                       (QREFELT $ 16))))
                                (LETT |j| (QSADD1 |j|) . #0#)
                                #2=(GO G190) G191 (EXIT NIL))))
                (LETT |i| (QSADD1 |i|) . #0#) #2# G191 (EXIT NIL))
           (EXIT M))))) 

(DEFUN |FFFGF;generalInterpolation;LMVLM;2|
       (C |coeffAction| |f| |eta| $)
  (PROG (|n| |g| |den| |i| |c| M)
    (RETURN
      (SEQ (LETT |n| (QVSIZE |f|)
                 . #0=(|FFFGF;generalInterpolation;LMVLM;2|))
           (LETT |g|
                 (SPADCALL |n| (|spadConstant| $ 18) (QREFELT $ 21)) . #0#)
           (LETT |den|
                 (SPADCALL |n| (|spadConstant| $ 17) (QREFELT $ 22)) . #0#)
           (SEQ (LETT |i| 1 . #0#) G190
                (COND ((QSGREATERP |i| |n|) (GO G191)))
                (SEQ (LETT |c|
                           (SPADCALL (SPADCALL |f| |i| (QREFELT $ 24))
                               (QREFELT $ 26)) . #0#)
                     (SPADCALL |den| |i| (SPADCALL |c| (QREFELT $ 28))
                         (QREFELT $ 29))
                     (EXIT (SPADCALL |g| |i|
                               (SPADCALL
                                   (CONS
                                    #'|FFFGF;generalInterpolation;LMVLM;2!0|
                                    (VECTOR $ |i| |den|))
                                   (SPADCALL |f| |i| (QREFELT $ 24))
                                   (QREFELT $ 35))
                               (QREFELT $ 36))))
                (LETT |i| (QSADD1 |i|) . #0#) (GO G190) G191
                (EXIT NIL))
           (LETT M
                 (SPADCALL C |coeffAction| |g| |eta| (QREFELT $ 41)) . #0#)
           (EXIT (|FFFGF;multiplyRows!| |den| M $)))))) 

(DEFUN |FFFGF;generalInterpolation;LMVLM;2!0| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 0) |FFFGF;generalInterpolation;LMVLM;2|)
    (RETURN
      (PROGN
        (SPADCALL
            (SPADCALL |#1|
                (SPADCALL (QREFELT $$ 2) (QREFELT $$ 1) (QREFELT $ 11))
                (QREFELT $ 31))
            (QREFELT $ 32)))))) 

(DEFUN |FFFGF;generalInterpolation;LMV2NniS;3|
       (C |coeffAction| |f| |sumEta| |maxEta| $)
  (PROG (|n| |g| |den| |i| |c| MS)
    (RETURN
      (SEQ (LETT |n| (QVSIZE |f|)
                 . #0=(|FFFGF;generalInterpolation;LMV2NniS;3|))
           (LETT |g|
                 (SPADCALL |n| (|spadConstant| $ 18) (QREFELT $ 21)) . #0#)
           (LETT |den|
                 (SPADCALL |n| (|spadConstant| $ 17) (QREFELT $ 22)) . #0#)
           (SEQ (LETT |i| 1 . #0#) G190
                (COND ((QSGREATERP |i| |n|) (GO G191)))
                (SEQ (LETT |c|
                           (SPADCALL (SPADCALL |f| |i| (QREFELT $ 24))
                               (QREFELT $ 26)) . #0#)
                     (SPADCALL |den| |i| (SPADCALL |c| (QREFELT $ 28))
                         (QREFELT $ 29))
                     (EXIT (SPADCALL |g| |i|
                               (SPADCALL
                                   (CONS
                                    #'|FFFGF;generalInterpolation;LMV2NniS;3!0|
                                    (VECTOR $ |i| |den|))
                                   (SPADCALL |f| |i| (QREFELT $ 24))
                                   (QREFELT $ 35))
                               (QREFELT $ 36))))
                (LETT |i| (QSADD1 |i|) . #0#) (GO G190) G191
                (EXIT NIL))
           (LETT |c|
                 (CONS #'|FFFGF;generalInterpolation;LMV2NniS;3!1|
                       (VECTOR $ |g| |coeffAction|)) . #0#)
           (LETT MS
                 (SPADCALL C |coeffAction| |g| |sumEta| |maxEta|
                     (QREFELT $ 51)) . #0#)
           (EXIT (SPADCALL
                     (CONS #'|FFFGF;generalInterpolation;LMV2NniS;3!2|
                           (VECTOR $ |den|))
                     MS (QREFELT $ 53))))))) 

(DEFUN |FFFGF;generalInterpolation;LMV2NniS;3!2| (|#1| $$)
  (|FFFGF;multiplyRows!| (QREFELT $$ 1) |#1| (QREFELT $$ 0))) 

(DEFUN |FFFGF;generalInterpolation;LMV2NniS;3!1| (|#1| |#2| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 0) |FFFGF;generalInterpolation;LMV2NniS;3|)
    (RETURN
      (PROGN
        (PROG (#0=#:G36575)
          (RETURN
            (SPADCALL (QREFELT $$ 2) (QREFELT $$ 1)
                      (PROG1 (LETT #0#
                                   (SPADCALL |#1| (|spadConstant| $ 46)
                                    (QREFELT $ 47))
                                   NIL)
                        (|check-subtype| (>= #0# 0)
                            '(|NonNegativeInteger|) #0#))
                      |#2| (QREFELT $ 49)))))))) 

(DEFUN |FFFGF;generalInterpolation;LMV2NniS;3!0| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 0) |FFFGF;generalInterpolation;LMV2NniS;3|)
    (RETURN
      (PROGN
        (SPADCALL
            (SPADCALL |#1|
                (SPADCALL (QREFELT $$ 2) (QREFELT $$ 1) (QREFELT $ 11))
                (QREFELT $ 31))
            (QREFELT $ 32)))))) 

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

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

(MAKEPROP '|FractionFreeFastGaussianFractions| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|local| |#3|) (|Integer|) (|Vector| 6) (0 . |elt|)
             (|SparseUnivariatePolynomial| 6) (|Matrix| 12) (6 . |elt|)
             (13 . *) (19 . |setelt|) (27 . |Zero|) (31 . |Zero|)
             (|NonNegativeInteger|) (|Vector| 7) (35 . |new|)
             (41 . |new|) (|Vector| 8) (47 . |elt|) (|List| 30)
             (53 . |coefficients|) (|CommonDenominator| 6 30 25)
             (58 . |commonDenominator|) (63 . |setelt|) (|Fraction| 6)
             (70 . *) (76 . |retract|) (|Mapping| 6 30)
             (|FiniteAbelianMonoidRingFunctions2| 19 30 8 6 7)
             (81 . |map|) (87 . |setelt|) (|List| 6)
             (|Mapping| 6 19 19 7) (|List| 19)
             (|FractionFreeFastGaussian| 6 7)
             (94 . |generalInterpolation|)
             |FFFGF;generalInterpolation;LMVLM;2| (102 . |One|)
             (106 . |One|) (|PositiveInteger|) (110 . |One|) (114 . -)
             (|Vector| 12) (120 . |generalCoefficient|) (|Stream| 13)
             (128 . |generalInterpolation|) (|Mapping| 13 13)
             (137 . |map|) |FFFGF;generalInterpolation;LMV2NniS;3|)
          '#(|generalInterpolation| 143) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 54
                                '(2 10 6 0 9 11 3 13 12 0 9 9 14 2 12 0
                                  6 0 15 4 13 12 0 9 9 12 16 0 6 0 17 0
                                  7 0 18 2 20 0 19 7 21 2 10 0 19 6 22
                                  2 23 8 0 9 24 1 8 25 0 26 1 27 6 25
                                  28 3 10 6 0 9 6 29 2 30 0 0 6 31 1 30
                                  6 0 32 2 34 7 33 8 35 3 20 7 0 9 7 36
                                  4 40 13 37 38 20 39 41 0 6 0 43 0 7 0
                                  44 0 45 0 46 2 9 0 0 0 47 4 40 6 38
                                  20 19 48 49 5 40 50 37 38 20 19 19 51
                                  2 50 0 52 0 53 5 0 50 37 38 23 19 19
                                  54 4 0 13 37 38 23 39 42)))))
          '|lookupComplete|)) 
