
(/VERSIONCHECK 2) 

(DEFUN |FFFG;ShiftAction;2NniVD;1| (|k| |l| |f| $)
  (SPADCALL (EXPT |k| |l|) (SPADCALL |f| |k| (QREFELT $ 9))
      (QREFELT $ 10))) 

(DEFUN |FFFG;ShiftC;NniL;2| (|total| $)
  (PROG (#0=#:G16180 |i| #1=#:G16181)
    (RETURN
      (SEQ (PROGN
             (LETT #0# NIL . #2=(|FFFG;ShiftC;NniL;2|))
             (SEQ (LETT |i| 0 . #2#) (LETT #1# (- |total| 1) . #2#)
                  G190 (COND ((QSGREATERP |i| #1#) (GO G191)))
                  (SEQ (EXIT (LETT #0#
                                   (CONS (SPADCALL |i| (QREFELT $ 15))
                                    #0#) . #2#)))
                  (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191
                  (EXIT (NREVERSE0 #0#)))))))) 

(DEFUN |FFFG;qShiftAction;D2NniVD;3| (|q| |k| |l| |f| $)
  (SPADCALL (SPADCALL |q| (* |k| |l|) (QREFELT $ 18))
      (SPADCALL |f| |k| (QREFELT $ 9)) (QREFELT $ 19))) 

(DEFUN |FFFG;qShiftC;DNniL;4| (|q| |total| $)
  (PROG (#0=#:G16185 |i| #1=#:G16186)
    (RETURN
      (SEQ (PROGN
             (LETT #0# NIL . #2=(|FFFG;qShiftC;DNniL;4|))
             (SEQ (LETT |i| 0 . #2#) (LETT #1# (- |total| 1) . #2#)
                  G190 (COND ((QSGREATERP |i| #1#) (GO G191)))
                  (SEQ (EXIT (LETT #0#
                                   (CONS
                                    (SPADCALL |q| |i| (QREFELT $ 18))
                                    #0#) . #2#)))
                  (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191
                  (EXIT (NREVERSE0 #0#)))))))) 

(DEFUN |FFFG;DiffAction;2NniVD;5| (|k| |l| |f| $)
  (PROG (#0=#:G16187)
    (RETURN
      (SPADCALL |f|
          (PROG1 (LETT #0# (- |k| |l|) |FFFG;DiffAction;2NniVD;5|)
            (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#))
          (QREFELT $ 9))))) 

(DEFUN |FFFG;DiffC;NniL;6| (|total| $)
  (PROG (#0=#:G16191 |i|)
    (RETURN
      (SEQ (PROGN
             (LETT #0# NIL . #1=(|FFFG;DiffC;NniL;6|))
             (SEQ (LETT |i| 1 . #1#) G190
                  (COND ((QSGREATERP |i| |total|) (GO G191)))
                  (SEQ (EXIT (LETT #0#
                                   (CONS (|spadConstant| $ 23) #0#) . #1#)))
                  (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191
                  (EXIT (NREVERSE0 #0#)))))))) 

(DEFUN |FFFG;generalCoefficient;MVNniVD;7|
       (|coeffAction| |f| |k| |p| $)
  (PROG (|i| #0=#:G16199 |a| |b| |l| #1=#:G16200 |res|)
    (RETURN
      (SEQ (LETT |res| (|spadConstant| $ 23)
                 . #2=(|FFFG;generalCoefficient;MVNniVD;7|))
           (SEQ (LETT |i| 1 . #2#) (LETT #0# (QVSIZE |f|) . #2#) G190
                (COND ((QSGREATERP |i| #0#) #3=(GO G191)))
                (SEQ (LETT |a| (SPADCALL |f| |i| (QREFELT $ 26)) . #2#)
                     (LETT |b| (SPADCALL |p| |i| (QREFELT $ 29)) . #2#)
                     (EXIT (SEQ (LETT |l|
                                      (SPADCALL |b| (QREFELT $ 30)) . #2#)
                                (LETT #1#
                                      (SPADCALL |b| (QREFELT $ 31)) . #2#)
                                G190 (COND ((> |l| #1#) #3#))
                                (SEQ (EXIT
                                      (COND
                                        ((NULL
                                          (SPADCALL
                                           (SPADCALL |b| |l|
                                            (QREFELT $ 32))
                                           (QREFELT $ 34)))
                                         (LETT |res|
                                          (SPADCALL |res|
                                           (SPADCALL
                                            (SPADCALL |b| |l|
                                             (QREFELT $ 32))
                                            (SPADCALL |k| |l| |a|
                                             |coeffAction|)
                                            (QREFELT $ 19))
                                           (QREFELT $ 35)) . #2#)))))
                                (LETT |l| (+ |l| 1) . #2#) #4=(GO G190)
                                G191 (EXIT NIL))))
                (LETT |i| (QSADD1 |i|) . #2#) #4# G191 (EXIT NIL))
           (EXIT |res|))))) 

(DEFUN |FFFG;generalInterpolation;LMVLM;8|
       (C |coeffAction| |f| |eta| $)
  (PROG (|c|)
    (RETURN
      (SEQ (LETT |c|
                 (CONS #'|FFFG;generalInterpolation;LMVLM;8!0|
                       (VECTOR $ |f| |coeffAction|))
                 |FFFG;generalInterpolation;LMVLM;8|)
           (EXIT (SPADCALL C |c| |eta| (QREFELT $ 43))))))) 

(DEFUN |FFFG;generalInterpolation;LMVLM;8!0| (|#1| |#2| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 0) |FFFG;generalInterpolation;LMVLM;8|)
    (RETURN
      (PROGN
        (PROG (#0=#:G16201)
          (RETURN
            (SPADCALL (QREFELT $$ 2) (QREFELT $$ 1)
                      (PROG1 (LETT #0#
                                   (SPADCALL |#1| (|spadConstant| $ 38)
                                    (QREFELT $ 39))
                                   NIL)
                        (|check-subtype| (>= #0# 0)
                            '(|NonNegativeInteger|) #0#))
                      |#2| (QREFELT $ 37)))))))) 

(DEFUN |FFFG;nextVector!| (|p| |v| $)
  (PROG (|n| |pos| |i| |j| #0=#:G16222 #1=#:G16210 |sum| #2=#:G16221
             #3=#:G16217)
    (RETURN
      (SEQ (EXIT (SEQ (LETT |n| (SPADCALL |v| (QREFELT $ 45))
                            . #4=(|FFFG;nextVector!|))
                      (LETT |pos|
                            (SPADCALL
                                (CONS #'|FFFG;nextVector!!0|
                                      (VECTOR $ |p|))
                                |v| (QREFELT $ 48)) . #4#)
                      (EXIT (COND
                              ((ZEROP |pos|)
                               (PROGN
                                 (LETT #2# (CONS 0 "failed") . #4#)
                                 (GO #2#)))
                              ('T
                               (SEQ (COND
                                      ((EQL |pos| 1)
                                       (SEQ
                                        (LETT |sum|
                                         (SPADCALL |v| 1
                                          (QREFELT $ 49)) . #4#)
                                        (SEQ (LETT |i| 2 . #4#) G190
                                         (COND
                                           ((QSGREATERP |i| |n|)
                                            #5=(GO G191)))
                                         (SEQ
                                          (EXIT
                                           (COND
                                             ((<
                                               (SPADCALL |v| |i|
                                                (QREFELT $ 49))
                                               |p|)
                                              (COND
                                                ((< 0 |sum|)
                                                 (SEQ
                                                  (SPADCALL |v| |i|
                                                   (+
                                                    (SPADCALL |v| |i|
                                                     (QREFELT $ 49))
                                                    1)
                                                   (QREFELT $ 51))
                                                  (LETT |sum|
                                                   (- |sum| 1) . #4#)
                                                  (SEQ
                                                   (LETT |j| 1 . #4#)
                                                   (LETT #0#
                                                    (- |i| 1) . #4#)
                                                   G190
                                                   (COND
                                                     ((QSGREATERP |j|
                                                       #0#)
                                                      #5#))
                                                   (SEQ
                                                    (EXIT
                                                     (COND
                                                       ((< |p| |sum|)
                                                        (SEQ
                                                         (SPADCALL |v|
                                                          |j| |p|
                                                          (QREFELT $
                                                           51))
                                                         (EXIT
                                                          (LETT |sum|
                                                           (- |sum|
                                                            |p|) . #4#))))
                                                       ('T
                                                        (SEQ
                                                         (SPADCALL |v|
                                                          |j|
                                                          (PROG1
                                                           (LETT #1#
                                                            |sum| . #4#)
                                                            (|check-subtype|
                                                             (>= #1# 0)
                                                             '(|NonNegativeInteger|)
                                                             #1#))
                                                          (QREFELT $
                                                           51))
                                                         (EXIT
                                                          (LETT |sum|
                                                           0 . #4#)))))))
                                                   (LETT |j|
                                                    (QSADD1 |j|) . #4#)
                                                   #6=(GO G190) G191
                                                   (EXIT NIL))
                                                  (EXIT
                                                   (PROGN
                                                     (LETT #2#
                                                      (CONS 1 |v|) . #4#)
                                                     (GO #2#)))))
                                                ('T
                                                 (LETT |sum|
                                                  (+ |sum|
                                                   (SPADCALL |v| |i|
                                                    (QREFELT $ 49))) . #4#))))
                                             ('T
                                              (LETT |sum|
                                               (+ |sum|
                                                (SPADCALL |v| |i|
                                                 (QREFELT $ 49))) . #4#)))))
                                         (LETT |i| (QSADD1 |i|) . #4#)
                                         #6# G191 (EXIT NIL))
                                        (EXIT
                                         (PROGN
                                           (LETT #2#
                                            (CONS 0 "failed") . #4#)
                                           (GO #2#)))))
                                      ('T
                                       (SEQ
                                        (SPADCALL |v| |pos|
                                         (+
                                          (SPADCALL |v| |pos|
                                           (QREFELT $ 49))
                                          1)
                                         (QREFELT $ 51))
                                        (EXIT
                                         (SPADCALL |v| (- |pos| 1)
                                          (PROG1
                                           (LETT #3#
                                            (-
                                             (SPADCALL |v| (- |pos| 1)
                                              (QREFELT $ 49))
                                             1) . #4#)
                                            (|check-subtype| (>= #3# 0)
                                             '(|NonNegativeInteger|)
                                             #3#))
                                          (QREFELT $ 51))))))
                                    (EXIT (CONS 1 |v|))))))))
           #2# (EXIT #2#))))) 

(DEFUN |FFFG;nextVector!!0| (|#1| $$)
  (SPADCALL |#1| (QREFELT $$ 1) (QREFELT (QREFELT $$ 0) 46))) 

(DEFUN |FFFG;vectorStream| (|p| |v| $)
  (PROG ()
    (RETURN
      (SEQ (SPADCALL (CONS #'|FFFG;vectorStream!0| (VECTOR $ |v| |p|))
               (QREFELT $ 57)))))) 

(DEFUN |FFFG;vectorStream!0| ($$)
  (PROG (|p| $)
    (LETT |p| (QREFELT $$ 2) . #0=(|FFFG;vectorStream|))
    (LETT $ (QREFELT $$ 0) . #0#)
    (RETURN
      (PROGN
        (PROG (|next|)
          (RETURN
            (SEQ (LETT |next|
                       (|FFFG;nextVector!| |p|
                           (SPADCALL (QREFELT $$ 1) (QREFELT $ 52)) $)
                       NIL)
                 (EXIT (COND
                         ((QEQCAR |next| 0) (SPADCALL (QREFELT $ 54)))
                         ('T
                          (SPADCALL (QCDR |next|)
                              (|FFFG;vectorStream| |p| (QCDR |next|) $)
                              (QREFELT $ 55)))))))))))) 

(DEFUN |FFFG;vectorStream2| (|p| |v| $)
  (PROG ()
    (RETURN
      (SEQ (SPADCALL (CONS #'|FFFG;vectorStream2!0| (VECTOR $ |v| |p|))
               (QREFELT $ 57)))))) 

(DEFUN |FFFG;vectorStream2!0| ($$)
  (PROG (|p| $)
    (LETT |p| (QREFELT $$ 2) . #0=(|FFFG;vectorStream2|))
    (LETT $ (QREFELT $$ 0) . #0#)
    (RETURN
      (PROGN
        (PROG (|next| |next2|)
          (RETURN
            (SEQ (LETT |next|
                       (|FFFG;nextVector!| |p|
                           (SPADCALL (QREFELT $$ 1) (QREFELT $ 52)) $)
                       NIL)
                 (EXIT (COND
                         ((QEQCAR |next| 0) (SPADCALL (QREFELT $ 54)))
                         ('T
                          (SEQ (LETT |next2|
                                     (|FFFG;nextVector!| |p|
                                      (SPADCALL (QCDR |next|)
                                       (QREFELT $ 52))
                                      $)
                                     NIL)
                               (EXIT (COND
                                       ((QEQCAR |next2| 0)
                                        (SPADCALL (QCDR |next|)
                                         (SPADCALL (QREFELT $ 54))
                                         (QREFELT $ 55)))
                                       ('T
                                        (SPADCALL (QCDR |next2|)
                                         (|FFFG;vectorStream2| |p|
                                          (QCDR |next2|) $)
                                         (QREFELT $ 55)))))))))))))))) 

(DEFUN |FFFG;generalInterpolation;LMV2NniS;12|
       (C |coeffAction| |f| |sumEta| |maxEta| $)
  (PROG (#0=#:G16249 |i| #1=#:G16250 |entry| |sum| #2=#:G16243 |eta|)
    (RETURN
      (SEQ (LETT |sum| |sumEta|
                 . #3=(|FFFG;generalInterpolation;LMV2NniS;12|))
           (LETT |eta|
                 (PROGN
                   (LETT #0# NIL . #3#)
                   (SEQ (LETT |i| 1 . #3#)
                        (LETT #1# (QVSIZE |f|) . #3#) G190
                        (COND ((QSGREATERP |i| #1#) (GO G191)))
                        (SEQ (EXIT (LETT #0#
                                    (CONS
                                     (SEQ
                                      (COND
                                        ((< |sum| |maxEta|)
                                         (SEQ
                                          (LETT |entry| |sum| . #3#)
                                          (EXIT (LETT |sum| 0 . #3#))))
                                        ('T
                                         (SEQ
                                          (LETT |entry| |maxEta| . #3#)
                                          (EXIT
                                           (LETT |sum|
                                            (- |sum| |maxEta|) . #3#)))))
                                      (EXIT
                                       (PROG1 (LETT #2# |entry| . #3#)
                                         (|check-subtype| (>= #2# 0)
                                          '(|NonNegativeInteger|) #2#))))
                                     #0#) . #3#)))
                        (LETT |i| (QSADD1 |i|) . #3#) (GO G190) G191
                        (EXIT (NREVERSE0 #0#)))) . #3#)
           (EXIT (COND
                   ((EQL (QVSIZE |f|) 2)
                    (SPADCALL
                        (CONS #'|FFFG;generalInterpolation;LMV2NniS;12!0|
                              (VECTOR $ |f| |coeffAction| C))
                        (SPADCALL |eta|
                            (|FFFG;vectorStream2| |maxEta| |eta| $)
                            (QREFELT $ 55))
                        (QREFELT $ 61)))
                   ('T
                    (SPADCALL
                        (CONS #'|FFFG;generalInterpolation;LMV2NniS;12!1|
                              (VECTOR $ |f| |coeffAction| C))
                        (SPADCALL |eta|
                            (|FFFG;vectorStream| |maxEta| |eta| $)
                            (QREFELT $ 55))
                        (QREFELT $ 61))))))))) 

(DEFUN |FFFG;generalInterpolation;LMV2NniS;12!1| (|#1| $$)
  (SPADCALL (QREFELT $$ 3) (QREFELT $$ 2) (QREFELT $$ 1) |#1|
      (QREFELT (QREFELT $$ 0) 44))) 

(DEFUN |FFFG;generalInterpolation;LMV2NniS;12!0| (|#1| $$)
  (SPADCALL (QREFELT $$ 3) (QREFELT $$ 2) (QREFELT $$ 1) |#1|
      (QREFELT (QREFELT $$ 0) 44))) 

(DEFUN |FFFG;interpolate;2LNniF;13| (|x| |y| |d| $)
  (PROG (|gx| |gy| |r|)
    (RETURN
      (SEQ (LETT |gx| (SPADCALL |x| (QREFELT $ 66))
                 . #0=(|FFFG;interpolate;2LNniF;13|))
           (LETT |gy| (SPADCALL |y| (QREFELT $ 66)) . #0#)
           (LETT |r|
                 (SPADCALL (QCAR |gx|) (QCAR |gy|) |d| (QREFELT $ 68)) . #0#)
           (EXIT (SPADCALL
                     (SPADCALL (SPADCALL |r| (QREFELT $ 69))
                         (SPADCALL (QCDR |gx|) 1 (QREFELT $ 70))
                         (QREFELT $ 71))
                     (SPADCALL (QCDR |gy|)
                         (SPADCALL (SPADCALL |r| (QREFELT $ 72))
                             (SPADCALL (QCDR |gx|) 1 (QREFELT $ 70))
                             (QREFELT $ 71))
                         (QREFELT $ 73))
                     (QREFELT $ 74))))))) 

(DEFUN |FFFG;interpolate;2LNniF;14| (|x| |y| |d| $)
  (PROG (N |c| #0=#:G16256 |eta| M)
    (RETURN
      (SEQ (COND
             ((SPADCALL
                  (LETT N (LENGTH |x|)
                        . #1=(|FFFG;interpolate;2LNniF;14|))
                  (LENGTH |y|) (QREFELT $ 76))
              (|error| "interpolate: number of points and values must match")))
           (COND
             ((NULL (< |d| N))
              (|error| "interpolate: numerator degree must be smaller than number of data points")))
           (LETT |c|
                 (CONS #'|FFFG;interpolate;2LNniF;14!0|
                       (VECTOR |x| $ |y|)) . #1#)
           (LETT |eta|
                 (LIST |d|
                       (PROG1 (LETT #0# (- N |d|) . #1#)
                         (|check-subtype| (>= #0# 0)
                             '(|NonNegativeInteger|) #0#))) . #1#)
           (LETT M (SPADCALL |x| |c| |eta| (QREFELT $ 43)) . #1#)
           (EXIT (COND
                   ((SPADCALL (SPADCALL M 2 1 (QREFELT $ 82))
                        (QREFELT $ 83))
                    (SPADCALL (SPADCALL M 1 2 (QREFELT $ 82))
                        (SPADCALL M 2 2 (QREFELT $ 82)) (QREFELT $ 74)))
                   ('T
                    (SPADCALL (SPADCALL M 1 1 (QREFELT $ 82))
                        (SPADCALL M 2 1 (QREFELT $ 82)) (QREFELT $ 74))))))))) 

(DEFUN |FFFG;interpolate;2LNniF;14!0| (|#1| |#2| $$)
  (PROG ($ |x|)
    (LETT $ (QREFELT $$ 1) . #0=(|FFFG;interpolate;2LNniF;14|))
    (LETT |x| (QREFELT $$ 0) . #0#)
    (RETURN
      (PROGN
        (SPADCALL
            (SPADCALL (SPADCALL (QREFELT $$ 2) |#1| (QREFELT $ 77))
                (SPADCALL (SPADCALL |#2| 2 (QREFELT $ 29))
                    (SPADCALL |x| |#1| (QREFELT $ 77)) (QREFELT $ 78))
                (QREFELT $ 19))
            (SPADCALL
                (SPADCALL |#2| (|spadConstant| $ 80) (QREFELT $ 29))
                (SPADCALL |x| |#1| (QREFELT $ 77)) (QREFELT $ 78))
            (QREFELT $ 81)))))) 

(DEFUN |FFFG;recurrence| (M |pi| |m| |r| |d| |z| |Ck| |p| $)
  (PROG (|rPi| |polyf| |i| |MiPi| |l| |rl| |Mil| |pl| |newMiPi|
               #0=#:G16263)
    (RETURN
      (SEQ (LETT |rPi| (SPADCALL |r| |pi| (QREFELT $ 85))
                 . #1=(|FFFG;recurrence|))
           (LETT |polyf|
                 (SPADCALL |rPi|
                     (SPADCALL |z| (SPADCALL |Ck| (QREFELT $ 86))
                         (QREFELT $ 87))
                     (QREFELT $ 73)) . #1#)
           (SEQ (LETT |i| 1 . #1#) G190
                (COND ((QSGREATERP |i| |m|) #2=(GO G191)))
                (SEQ (LETT |MiPi|
                           (SPADCALL M |i| |pi| (QREFELT $ 88)) . #1#)
                     (LETT |newMiPi|
                           (SPADCALL |polyf| |MiPi| (QREFELT $ 89)) . #1#)
                     (SEQ (LETT |l| 1 . #1#) G190
                          (COND ((QSGREATERP |l| |m|) #2#))
                          (SEQ (EXIT (COND
                                       ((SPADCALL |l| |pi|
                                         (QREFELT $ 76))
                                        (SEQ
                                         (LETT |rl|
                                          (SPADCALL |r| |l|
                                           (QREFELT $ 85)) . #1#)
                                         (LETT |Mil|
                                          (PROG2
                                           (LETT #0#
                                            (SPADCALL
                                             (SPADCALL
                                              (SPADCALL
                                               (SPADCALL M |i| |l|
                                                (QREFELT $ 88))
                                               |rPi| (QREFELT $ 90))
                                              (SPADCALL |MiPi| |rl|
                                               (QREFELT $ 90))
                                              (QREFELT $ 87))
                                             |d| (QREFELT $ 92)) . #1#)
                                           (QCDR #0#)
                                            (|check-union|
                                             (QEQCAR #0# 0)
                                             (|SparseUnivariatePolynomial|
                                              (QREFELT $ 6))
                                             #0#)) . #1#)
                                         (SPADCALL M |i| |l| |Mil|
                                          (QREFELT $ 93))
                                         (LETT |pl|
                                          (SPADCALL |p| |l|
                                           (QREFELT $ 85)) . #1#)
                                         (EXIT
                                          (LETT |newMiPi|
                                           (SPADCALL |newMiPi|
                                            (SPADCALL |pl| |Mil|
                                             (QREFELT $ 73))
                                            (QREFELT $ 87)) . #1#)))))))
                          (LETT |l| (QSADD1 |l|) . #1#) #3=(GO G190)
                          G191 (EXIT NIL))
                     (EXIT (SPADCALL M |i| |pi|
                               (PROG2 (LETT #0#
                                       (SPADCALL |newMiPi| |d|
                                        (QREFELT $ 92)) . #1#)
                                      (QCDR #0#)
                                 (|check-union| (QEQCAR #0# 0)
                                     (|SparseUnivariatePolynomial|
                                      (QREFELT $ 6))
                                     #0#))
                               (QREFELT $ 93))))
                (LETT |i| (QSADD1 |i|) . #1#) #3# G191 (EXIT NIL))
           (EXIT M))))) 

(DEFUN |FFFG;fffg;LMLM;16| (C |c| |eta| $)
  (PROG (|z| |m| K |etak| |r| |p| |k| #0=#:G16285 |Lambda| |lambdaMax|
             |lambda| |l| #1=#:G16277 M |d|)
    (RETURN
      (SEQ (LETT |z| (SPADCALL (|spadConstant| $ 12) 1 (QREFELT $ 70))
                 . #2=(|FFFG;fffg;LMLM;16|))
           (LETT |m| (SPADCALL |eta| (QREFELT $ 45)) . #2#)
           (LETT M
                 (SPADCALL |m| (|spadConstant| $ 94) (QREFELT $ 95)) . #2#)
           (LETT |d| (|spadConstant| $ 12) . #2#)
           (LETT K (SPADCALL (ELT $ 96) |eta| (QREFELT $ 98)) . #2#)
           (LETT |etak| (SPADCALL |m| (QREFELT $ 100)) . #2#)
           (LETT |r| (SPADCALL |m| (QREFELT $ 101)) . #2#)
           (LETT |p| (SPADCALL |m| (QREFELT $ 101)) . #2#)
           (SEQ (LETT |k| 1 . #2#) G190
                (COND ((QSGREATERP |k| K) #3=(GO G191)))
                (SEQ (SEQ (LETT |l| 1 . #2#) G190
                          (COND ((QSGREATERP |l| |m|) #3#))
                          (SEQ (EXIT (SPADCALL |r| |l|
                                      (SPADCALL |k|
                                       (SPADCALL M |l| (QREFELT $ 102))
                                       |c|)
                                      (QREFELT $ 103))))
                          (LETT |l| (QSADD1 |l|) . #2#) #4=(GO G190)
                          G191 (EXIT NIL))
                     (LETT |Lambda|
                           (PROGN
                             (LETT #0# NIL . #2#)
                             (SEQ (LETT |l| 1 . #2#) G190
                                  (COND ((QSGREATERP |l| |m|) #3#))
                                  (SEQ (EXIT
                                        (COND
                                          ((SPADCALL
                                            (SPADCALL |r| |l|
                                             (QREFELT $ 104))
                                            (|spadConstant| $ 23)
                                            (QREFELT $ 105))
                                           (LETT #0#
                                            (CONS
                                             (-
                                              (SPADCALL |eta| |l|
                                               (QREFELT $ 49))
                                              (SPADCALL |etak| |l|
                                               (QREFELT $ 106)))
                                             #0#) . #2#)))))
                                  (LETT |l| (QSADD1 |l|) . #2#) #4#
                                  G191 (EXIT (NREVERSE0 #0#)))) . #2#)
                     (EXIT (COND
                             ((NULL |Lambda|) "iterate")
                             ('T
                              (SEQ (LETT |lambdaMax|
                                    (SPADCALL (ELT $ 108) |Lambda|
                                     (QREFELT $ 111)) . #2#)
                                   (LETT |lambda| 1 . #2#)
                                   (SEQ G190
                                    (COND
                                      ((NULL
                                        (COND
                                          ((<
                                            (-
                                             (SPADCALL |eta| |lambda|
                                              (QREFELT $ 49))
                                             (SPADCALL |etak| |lambda|
                                              (QREFELT $ 106)))
                                            |lambdaMax|)
                                           'T)
                                          ('T
                                           (SPADCALL
                                            (SPADCALL |r| |lambda|
                                             (QREFELT $ 104))
                                            (|spadConstant| $ 23)
                                            (QREFELT $ 112)))))
                                       #3#))
                                    (SEQ
                                     (EXIT
                                      (LETT |lambda|
                                       (+ |lambda| 1) . #2#)))
                                    NIL #4# G191 (EXIT NIL))
                                   (SEQ (LETT |l| 1 . #2#) G190
                                    (COND ((QSGREATERP |l| |m|) #3#))
                                    (SEQ
                                     (EXIT
                                      (COND
                                        ((SPADCALL |l| |lambda|
                                          (QREFELT $ 76))
                                         (COND
                                           ((< 0
                                             (SPADCALL |etak| |l|
                                              (QREFELT $ 106)))
                                            (SPADCALL |p| |l|
                                             (SPADCALL
                                              (SPADCALL M |l| |lambda|
                                               (QREFELT $ 82))
                                              (PROG1
                                               (LETT #1#
                                                (-
                                                 (SPADCALL |etak| |l|
                                                  (QREFELT $ 106))
                                                 1) . #2#)
                                                (|check-subtype|
                                                 (>= #1# 0)
                                                 '(|NonNegativeInteger|)
                                                 #1#))
                                              (QREFELT $ 32))
                                             (QREFELT $ 103)))
                                           ('T
                                            (SPADCALL |p| |l|
                                             (|spadConstant| $ 23)
                                             (QREFELT $ 103))))))))
                                    (LETT |l| (QSADD1 |l|) . #2#) #4#
                                    G191 (EXIT NIL))
                                   (LETT M
                                    (|FFFG;recurrence| M |lambda| |m|
                                     |r| |d| |z|
                                     (SPADCALL C |k| (QREFELT $ 77))
                                     |p| $) . #2#)
                                   (LETT |d|
                                    (SPADCALL |r| |lambda|
                                     (QREFELT $ 104)) . #2#)
                                   (EXIT
                                    (SPADCALL |etak| |lambda|
                                     (+
                                      (SPADCALL |etak| |lambda|
                                       (QREFELT $ 106))
                                      1)
                                     (QREFELT $ 113))))))))
                (LETT |k| (QSADD1 |k|) . #2#) #4# G191 (EXIT NIL))
           (EXIT M))))) 

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

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

(MAKEPROP '|FractionFreeFastGaussian| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|NonNegativeInteger|) (0 . |coefficient|) (6 . *)
             |FFFG;ShiftAction;2NniVD;1| (12 . |One|) (16 . |One|)
             (|Integer|) (20 . |coerce|) (|List| 6)
             |FFFG;ShiftC;NniL;2| (25 . **) (31 . *)
             |FFFG;qShiftAction;D2NniVD;3| |FFFG;qShiftC;DNniL;4|
             |FFFG;DiffAction;2NniVD;5| (37 . |Zero|)
             |FFFG;DiffC;NniL;6| (|Vector| 7) (41 . |elt|)
             (|SparseUnivariatePolynomial| 6) (|Vector| 27)
             (47 . |elt|) (53 . |minimumDegree|) (58 . |degree|)
             (63 . |coefficient|) (|Boolean|) (69 . |zero?|) (74 . +)
             (|Mapping| 6 8 8 7) |FFFG;generalCoefficient;MVNniVD;7|
             (80 . |One|) (84 . -) (|Matrix| 27) (|Mapping| 6 8 28)
             (|List| 8) |FFFG;fffg;LMLM;16|
             |FFFG;generalInterpolation;LMVLM;8| (90 . |#|) (95 . <)
             (|Mapping| 33 8) (101 . |position|) (107 . |elt|)
             (113 . |Zero|) (117 . |setelt|) (124 . |copy|)
             (|Stream| 42) (129 . |empty|) (133 . |cons|) (|Mapping| $)
             (139 . |delay|) (|Stream| 40) (|Mapping| 40 42)
             (|StreamFunctions2| 42 40) (144 . |map|)
             |FFFG;generalInterpolation;LMV2NniS;12|
             (|Record| (|:| |num| 16) (|:| |den| 6))
             (|List| (|Fraction| 6))
             (|InnerCommonDenominator| 6 (|Fraction| 6) 16 64)
             (150 . |splitDenominator|) (|Fraction| 27)
             |FFFG;interpolate;2LNniF;14| (155 . |numer|)
             (160 . |monomial|) (166 . |elt|) (172 . |denom|) (177 . *)
             (183 . /) |FFFG;interpolate;2LNniF;13| (189 . ~=)
             (195 . |elt|) (201 . |elt|) (|PositiveInteger|)
             (207 . |One|) (211 . -) (217 . |elt|) (224 . |zero?|)
             (|Vector| 6) (229 . |qelt|) (235 . |coerce|) (240 . -)
             (246 . |qelt|) (253 . *) (259 . *) (|Union| $ '"failed")
             (265 . |exquo|) (271 . |qsetelt!|) (279 . |One|)
             (283 . |scalarMatrix|) (289 . +) (|Mapping| 8 8 8)
             (295 . |reduce|) (|Vector| 8) (301 . |zero|)
             (306 . |zero|) (311 . |column|) (317 . |setelt|)
             (324 . |elt|) (330 . ~=) (336 . |elt|) (342 . |max|)
             (348 . |max|) (|Mapping| 14 14 14) (|List| 14)
             (354 . |reduce|) (360 . =) (366 . |setelt|))
          '#(|qShiftC| 373 |qShiftAction| 379 |interpolate| 387
             |generalInterpolation| 401 |generalCoefficient| 418 |fffg|
             426 |ShiftC| 433 |ShiftAction| 438 |DiffC| 445
             |DiffAction| 450)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 113
                                '(2 7 6 0 8 9 2 6 0 8 0 10 0 6 0 12 0 7
                                  0 13 1 6 0 14 15 2 6 0 0 8 18 2 6 0 0
                                  0 19 0 6 0 23 2 25 7 0 14 26 2 28 27
                                  0 14 29 1 27 8 0 30 1 27 8 0 31 2 27
                                  6 0 8 32 1 6 33 0 34 2 6 0 0 0 35 0 8
                                  0 38 2 14 0 0 0 39 1 42 8 0 45 2 8 33
                                  0 0 46 2 42 14 47 0 48 2 42 8 0 14 49
                                  0 7 0 50 3 42 8 0 14 8 51 1 42 0 0 52
                                  0 53 0 54 2 53 0 42 0 55 1 53 0 56 57
                                  2 60 58 59 53 61 1 65 63 64 66 1 67
                                  27 0 69 2 27 0 6 8 70 2 27 0 0 0 71 1
                                  67 27 0 72 2 27 0 6 0 73 2 67 0 27 27
                                  74 2 8 33 0 0 76 2 16 6 0 14 77 2 27
                                  6 0 6 78 0 79 0 80 2 6 0 0 0 81 3 40
                                  27 0 14 14 82 1 27 33 0 83 2 84 6 0
                                  14 85 1 27 0 6 86 2 27 0 0 0 87 3 40
                                  27 0 14 14 88 2 27 0 0 0 89 2 27 0 0
                                  6 90 2 27 91 0 6 92 4 40 27 0 14 14
                                  27 93 0 27 0 94 2 40 0 8 27 95 2 8 0
                                  0 0 96 2 42 8 97 0 98 1 99 0 8 100 1
                                  84 0 8 101 2 40 28 0 14 102 3 84 6 0
                                  14 6 103 2 84 6 0 14 104 2 6 33 0 0
                                  105 2 99 8 0 14 106 2 8 0 0 0 107 2
                                  14 0 0 0 108 2 110 14 109 0 111 2 6
                                  33 0 0 112 3 99 8 0 14 8 113 2 0 16 6
                                  8 21 4 0 6 6 8 8 7 20 3 0 67 64 64 8
                                  75 3 0 67 16 16 8 68 4 0 40 16 36 25
                                  42 44 5 0 58 16 36 25 8 8 62 4 0 6 36
                                  25 8 28 37 3 0 40 16 41 42 43 1 0 16
                                  8 17 3 0 6 8 8 7 11 1 0 16 8 24 3 0 6
                                  8 8 7 22)))))
          '|lookupComplete|)) 
