
(/VERSIONCHECK 2) 

(DEFUN |FFFGF;multiplyRows!| (|v| M $)
  (PROG (|j| |i| |n|)
    (RETURN
     (SEQ (LETT |n| (QVSIZE |v|) . #1=(|FFFGF;multiplyRows!|))
          (SEQ (LETT |i| 1 . #1#) G190
               (COND ((QSGREATERP |i| |n|) #2=(GO G191)))
               (SEQ
                (EXIT
                 (SEQ (LETT |j| 1 . #1#) G190 (COND ((QSGREATERP |j| |n|) #2#))
                      (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|) . #1#) #3=(GO G190) G191
                      (EXIT NIL))))
               (LETT |i| (QSADD1 |i|) . #1#) #3# G191 (EXIT NIL))
          (EXIT M))))) 

(DEFUN |FFFGF;generalInterpolation;LMVLM;2| (C |coeffAction| |f| |eta| $)
  (PROG (M |c| |i| |den| |g| |n|)
    (RETURN
     (SEQ (LETT |n| (QVSIZE |f|) . #1=(|FFFGF;generalInterpolation;LMVLM;2|))
          (LETT |g| (SPADCALL |n| (|spadConstant| $ 18) (QREFELT $ 21)) . #1#)
          (LETT |den| (SPADCALL |n| (|spadConstant| $ 17) (QREFELT $ 22))
                . #1#)
          (SEQ (LETT |i| 1 . #1#) G190 (COND ((QSGREATERP |i| |n|) (GO G191)))
               (SEQ
                (LETT |c|
                      (SPADCALL (SPADCALL |f| |i| (QREFELT $ 24))
                                (QREFELT $ 26))
                      . #1#)
                (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|) . #1#) (GO G190) G191 (EXIT NIL))
          (LETT M (SPADCALL C |coeffAction| |g| |eta| (QREFELT $ 41)) . #1#)
          (EXIT (|FFFGF;multiplyRows!| |den| M $)))))) 

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

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

(DEFUN |FFFGF;generalInterpolation;LMV2NniS;3!2| (|x| $$)
  (PROG (|den| $)
    (LETT |den| (QREFELT $$ 1) . #1=(|FFFGF;generalInterpolation;LMV2NniS;3|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|FFFGF;multiplyRows!| |den| |x| $))))) 

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

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

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

(DEFUN |FractionFreeFastGaussianFractions;| (|#1| |#2| |#3|)
  (PROG (|pv$| $ |dv$| DV$3 DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|FractionFreeFastGaussianFractions|))
      (LETT DV$2 (|devaluate| |#2|) . #1#)
      (LETT DV$3 (|devaluate| |#3|) . #1#)
      (LETT |dv$| (LIST '|FractionFreeFastGaussianFractions| DV$1 DV$2 DV$3)
            . #1#)
      (LETT $ (GETREFV 55) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|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|)) 
