array index out of bounds error.

[notthetup]

Happens sometimes when I try to compress using compress-advanced.ny. Here is the debug output.

error: array index out of bounds - -52
Function: #<Subr-AREF: #3bebe4c>
Arguments:
  #(9717.18 9276.46 8850.49 8438.96 8041.56 7657.98 7287.91 6931.06 6587.11 6255.78 5936.77 5629.78 5334.53 5050.73 4778.1 4516.36 4265.23 4024.43 3793.7 3572.77 3361.37 3159.24 2966.11 2781.74 2605.87 2438.24 2278.62 2126.75 1982.4 1845.32 1715.29 1592.07 1475.43 1365.15 1261 1162.77 1070.23 983.189 901.422 824.728 752.904 685.751 623.074 564.68 510.381 459.991 413.329 370.216 330.477 293.943 260.445 229.819 201.907 176.551 153.6 132.904 114.319 97.7044 82.9236 69.8437 58.3363 48.2769 39.5452 32.0254 25.606 20.1797 15.6441 11.9012 8.85762 6.42506 4.52 3.06403 1.98399 1.21213 0.686304 0.350217 0.153723 0.053176 0.0119107 0.000922865 0 0.294751 0.93146 1.8259 2.94357 4.26329 5.77013 7.45276 9.30216 11.3109 13.4727 15.7822 18.2346 20.8257 23.552 26.4099 29.3964 32.5087 35.7443 39.1008 42.576 46.1677 49.8742 53.6936 57.6242 61.6645 65.8128 70.0678 74.4281 78.8924 83.4595 88.1282 92.8974 97.766 102.733 107.797 112.958 118.214 123.565 129.01 134.547 140.177 145.898 151.709 157.611 163.602 169.681 175.848 182.102 188.443 194.87 201.382 207.979 214.661 221.426 228.274 235.205 242.218 249.313 256.489 263.746 271.083 278.5 285.996 293.571 301.225 308.957 316.766 324.653 332.617 340.657 348.773 356.966 365.233 373.576 381.994 390.486 399.052 407.691 416.405 425.191 434.05 442.981 451.985 461.061 470.208 479.426 488.716 498.076 507.507 517.008 526.579 536.219 545.929 555.708 565.556 575.473 585.458 595.511 605.632 615.821 626.077 636.401 646.792 657.249 667.773 678.363 689.02 699.742 710.53 721.384 732.303 743.287 754.336 765.45 776.628 787.87 799.177 810.548 821.982 833.48 845.042 856.667 868.354 880.105 891.919 903.794 915.733 927.733 939.796 951.92 964.106 976.354 988.663 1001.03 1013.46 1025.96 1038.51 1051.12 1063.8 1076.53 1089.33 1102.18 1115.1 1128.07 1141.1 1154.2 1167.35 1180.56 1193.83 1207.16 1220.55 1234 1247.51 1261.07 1274.69 1288.37 1302.11 1315.91 1329.76 1343.67 1357.64 1371.67 1385.75 1399.89 1414.09 1428.35 1442.66 1457.03 1471.45 1485.93 1500.47 1515.07 1529.72 1544.42 1559.19 1574 1588.88 1603.81 1618.79 1633.83 1648.93 1664.08 1679.28 1694.54 1709.86 1725.23 1740.65 1756.13 1771.66 1787.25 1802.89 1818.59 1834.34 1850.14 1866 1881.91 1897.88 1913.9 1929.97 1946.1 1962.28 1978.51 1994.79 2011.13 2027.52 2043.97 2060.47 2077.02 2093.62 2110.27 2126.98 2143.74 2160.55 2177.42 2194.33 2211.3 2228.32 2245.39 2262.52 2279.69 2296.92 2314.2 2331.53 2348.91 2366.34 2383.83 2401.36 2418.95 2436.58 2454.27 2472.01 2489.8 2507.64 2525.53 2543.47 2561.47 2579.51 2597.6 2615.74 2633.94 2652.18 2670.47 2688.82 2707.21 2725.65 2744.14 2762.69 2781.28 2799.92 2818.61 2837.35 2856.14 2874.98 2893.87 2912.8 2931.79 2950.83 2969.91 2989.04 3008.23 3027.46 3046.74 3066.06 3085.44 3104.87 3124.34 3143.86 3163.43 3183.05 3202.72 3222.43 3242.19 3262 3281.86 3301.77 3321.72 3341.73 3361.78 3381.87 3402.02 3422.21 3442.45 3462.74 3483.08 3503.46 3523.89 3544.37 3564.89 3585.46 3606.08 3626.74 3647.46 3668.22 3689.02 3709.87 3730.77 3751.72 3772.71 3793.75 3814.84 3835.97 3857.15 3878.37 3899.64 3920.96 3942.32 3963.73 3985.19 4006.69 4028.24 4049.83 4071.47 4093.15 4114.89 4136.66 4158.48 4180.35 4202.27 4224.23 4246.23 4268.28 4290.38 4312.52 4334.7 4356.93 4379.21 4401.53 4423.9 4446.31 4468.77 4491.27 4513.82 4536.41 4559.04 4581.72 4604.45 4627.22 4650.04 4672.9 4695.8 4718.75 4741.74 4764.78 4787.86 4810.99 4834.16 4857.37 4880.63 4903.94 4927.28 4950.67 4974.11 4997.59 5021.11 5044.68 5068.29 5091.95 5115.64 5139.39 5163.17 5187 5210.88 5234.79 5258.75 5282.76 5306.81 5330.9 5355.03 5379.21 5403.43 5427.69 5452 5476.35 5500.74 5525.18 5549.66 5574.18 5598.75 5623.36 5648.01 5672.7 5697.44 5722.22 5747.04 5771.91 5796.82 5821.77 5846.76 5871.8 5896.87 5921.99 5947.16 5972.36 5997.61 6022.9 6048.23 6073.61 6099.03 6124.49 6149.99 6175.53 6201.12 6226.74 6252.41 6278.12 6303.88 6329.67 6355.51 6381.39 6407.31 6433.27 6459.28 6485.32 6511.41 6537.54 6563.71 6589.92 6616.18 6642.47 6668.81 6695.19 6721.61 6748.07 6774.57 6801.12 6827.7 6854.33 6880.99 6907.7 6934.45 6961.24 6988.08 7014.95 7041.86 7068.82 7095.81 7122.85 7149.93 7177.05 7204.2 7231.4 7258.64 7285.93 7313.25 7340.61 7368.01 7395.46 7422.94 7450.47 7478.03 7505.64 7533.28 7560.97 7588.7 7616.47 7644.27 7672.12 7700.01 7727.94 7755.91 7783.92 7811.96 7840.05 7868.18 7896.35 7924.56 7952.81 7981.1 8009.43 8037.8 8066.21 8094.65 8123.14 8151.67 8180.24 8208.85 8237.49 8266.18 8294.91 8323.67 8352.48 8381.32 8410.21 8439.13 8468.1 8497.1 8526.14 8555.23 8584.35 8613.51 8642.71 8671.95 8701.23 8730.54 8759.9 8789.3 8818.73 8848.21 8877.72 8907.27 8936.87 8966.5 8996.17 9025.87 9055.62 9085.41 9115.23 9145.1 9175 9204.94 9234.92 9264.94 9295 9325.1 9355.23 9385.41 9415.62 9445.87 9476.16 9506.49 9536.86 9567.26 9597.7 9628.19 9658.71 9689.27 9719.86 9750.5 9781.17 9811.89 9842.64 9873.43 9904.25 9935.12 9966.02 9996.96)
  -52
Function: #<FSubr-LET: #3be9308>
Arguments:
  ((YSTART (- (AREF PARA (+ START X)) (AREF PARA START))) (YEND (- (AREF PARA (+ END X)) (AREF PARA END))))
  (WHEN (IF LEFT (> Y YEND) (< Y YSTART)) (ERROR "internal math problem"))
Function: #<Closure-BOUNDS-CHECK: #3a8b564>
Arguments:
  -52
  484
Function: #<FSubr-LET*: #3beb1c8>
Arguments:
  ((START (IF LEFT 0 (1- (- PARA-MID X)))) (END (IF LEFT (MIN PARA-MID (1- (- (LENGTH PARA) X))) (1- (- (LENGTH PARA) X)))))
  (BOUNDS-CHECK START END)
  (DO ((I (+ START 1) (+ START (/ (- END START) 2)))) ((OR (= I START) (= I END)) I) (LET ((YI (- (AREF PARA (+ I X)) (AREF PARA I)))) (IF (> YI Y) (SETF END I) (SETF START I))))
Function: #<FSubr-LABELS: #3bea274>
Arguments:
  ((BOUNDS-CHECK (START END) (LET ((YSTART (- (AREF PARA (+ START X)) (AREF PARA START))) (YEND (- (AREF PARA (+ END X)) (AREF PARA END)))) (WHEN (IF LEFT (> Y YEND) (< Y YSTART)) (ERROR "internal math problem")))))
  (LET* ((START (IF LEFT 0 (1- (- PARA-MID X)))) (END (IF LEFT (MIN PARA-MID (1- (- (LENGTH PARA) X))) (1- (- (LENGTH PARA) X))))) (BOUNDS-CHECK START END) (DO ((I (+ START 1) (+ START (/ (- END START) 2)))) ((OR (= I START) (= I END)) I) (LET ((YI (- (AREF PARA (+ I X)) (AREF PARA I)))) (IF (> YI Y) (SETF END I) (SETF START I)))))
Function: #<Closure-BINARY-SEARCH-INT: #32d012c>
Arguments:
  975.823
  132
  NIL
Function: #<FSubr-LET*: #3beb1c8>
Arguments:
  ((LEFT (< Y 0)) (RES (BINARY-SEARCH-INT Y X LEFT)) (I (IF (OR (= RES 0) (= RES (1- (LENGTH PARA)))) RES (BINARY-SEARCH-FLOAT RES Y X LEFT))) (YOFF (- Y1 (INTERP I))) (I (- I X1)))
  (LAMBDA (X) (+ (INTERP (+ X I)) YOFF))
Function: #<FSubr-LET: #3be9308>
Arguments:
  ((Y (- Y2 Y1)) (X (- X2 X1)))
  (WHEN (> (ABS Y) (AREF PARA (1- (LENGTH PARA)))) (ERROR "y is too big"))
  (WHEN (<= X 0) (ERROR "x is too small"))
  (WHEN (>= X (LENGTH PARA)) (RETURN NIL))
  (LET* ((LEFT (< Y 0)) (RES (BINARY-SEARCH-INT Y X LEFT)) (I (IF (OR (= RES 0) (= RES (1- (LENGTH PARA)))) RES (BINARY-SEARCH-FLOAT RES Y X LEFT))) (YOFF (- Y1 (INTERP I))) (I (- I X1))) (LAMBDA (X) (+ (INTERP (+ X I)) YOFF)))
Function: #<Closure-SOLVE-PARA: #32d0d14>
Arguments:
  2257
  -1000
  2389
  -24.1774
Function: #<FSubr-SETF: #3be91a0>
Arguments:
  CUR-PARA
  (SOLVE-PARA I IY J JY)
Function: #<FSubr-PROGN: #3bed094>
Arguments:
  (SETF CUR-PARA (SOLVE-PARA I IY J JY))
  (SETF CUR-PARA-END J)
Function: #<FSubr-WHEN: #3beb2e8>
Arguments:
  (OR (< PARY JY) IY-CHANGED (NULL CUR-PARA))
  (PROGN (SETF CUR-PARA (SOLVE-PARA I IY J JY)) (SETF CUR-PARA-END J))
Function: #<FSubr-LET: #3be9308>
Arguments:
  (IY-CHANGED (PARY -1))
  (WHEN (AND FIRST (> (/ (/ (- JY IY) RIGHT-WIDTH) (- J I)) 0.01)) (PROGN (SETF IY-CHANGED T) (SETF IY (- JY (* 0.01 (* RIGHT-WIDTH (- J I)))))))
  (WHEN CUR-PARA (SETF PARY (FUNCALL CUR-PARA J)))
  (WHEN (>= PARY 0) (RETURN))
  (WHEN (OR (< PARY JY) IY-CHANGED (NULL CUR-PARA)) (PROGN (SETF CUR-PARA (SOLVE-PARA I IY J JY)) (SETF CUR-PARA-END J)))
Function: #<FSubr-LOOP: #3bea634>
Arguments:
  (INCF J)
  (WHEN (NULL (SAMP J)) (PROGN (WHEN (NULL CUR-PARA) (SETF CUR-PARA (SOLVE-PARA I IY J JY))) (RETURN)))
  (SETF JY (SAMP J))
  (LET (IY-CHANGED (PARY -1)) (WHEN (AND FIRST (> (/ (/ (- JY IY) RIGHT-WIDTH) (- J I)) 0.01)) (PROGN (SETF IY-CHANGED T) (SETF IY (- JY (* 0.01 (* RIGHT-WIDTH (- J I))))))) (WHEN CUR-PARA (SETF PARY (FUNCALL CUR-PARA J))) (WHEN (>= PARY 0) (RETURN)) (WHEN (OR (< PARY JY) IY-CHANGED (NULL CUR-PARA)) (PROGN (SETF CUR-PARA (SOLVE-PARA I IY J JY)) (SETF CUR-PARA-END J))))
Function: #<FSubr-TAGBODY: #3beb540>
Arguments:
  AGAIN
  (SETF J (1+ I) JY (SAMP J))
  (SETF CUR-PARA (SOLVE-PARA I IY J JY) CUR-PARA-END J)
  (LOOP (INCF J) (WHEN (NULL (SAMP J)) (PROGN (WHEN (NULL CUR-PARA) (SETF CUR-PARA (SOLVE-PARA I IY J JY))) (RETURN))) (SETF JY (SAMP J)) (LET (IY-CHANGED (PARY -1)) (WHEN (AND FIRST (> (/ (/ (- JY IY) RIGHT-WIDTH) (- J I)) 0.01)) (PROGN (SETF IY-CHANGED T) (SETF IY (- JY (* 0.01 (* RIGHT-WIDTH (- J I))))))) (WHEN CUR-PARA (SETF PARY (FUNCALL CUR-PARA J))) (WHEN (>= PARY 0) (RETURN)) (WHEN (OR (< PARY JY) IY-CHANGED (NULL CUR-PARA)) (PROGN (SETF CUR-PARA (SOLVE-PARA I IY J JY)) (SETF CUR-PARA-END J)))))
  (WHEN FIRST (PROGN (SETF FIRST NIL) (GO AGAIN)))
Function: #<FSubr-LET: #3be9308>
Arguments:
  ((IY (SAMP I)) (FIRST (NULL CUR-PARA)) J JY)
  (TAGBODY AGAIN (SETF J (1+ I) JY (SAMP J)) (SETF CUR-PARA (SOLVE-PARA I IY J JY) CUR-PARA-END J) (LOOP (INCF J) (WHEN (NULL (SAMP J)) (PROGN (WHEN (NULL CUR-PARA) (SETF CUR-PARA (SOLVE-PARA I IY J JY))) (RETURN))) (SETF JY (SAMP J)) (LET (IY-CHANGED (PARY -1)) (WHEN (AND FIRST (> (/ (/ (- JY IY) RIGHT-WIDTH) (- J I)) 0.01)) (PROGN (SETF IY-CHANGED T) (SETF IY (- JY (* 0.01 (* RIGHT-WIDTH (- J I))))))) (WHEN CUR-PARA (SETF PARY (FUNCALL CUR-PARA J))) (WHEN (>= PARY 0) (RETURN)) (WHEN (OR (< PARY JY) IY-CHANGED (NULL CUR-PARA)) (PROGN (SETF CUR-PARA (SOLVE-PARA I IY J JY)) (SETF CUR-PARA-END J))))) (WHEN FIRST (PROGN (SETF FIRST NIL) (GO AGAIN))))
Function: #<FSubr-WHEN: #3beb2e8>
Arguments:
  (OR (NULL CUR-PARA) (AND (= I CUR-PARA-END) (SAMP (+ I 2))))
  (LET ((IY (SAMP I)) (FIRST (NULL CUR-PARA)) J JY) (TAGBODY AGAIN (SETF J (1+ I) JY (SAMP J)) (SETF CUR-PARA (SOLVE-PARA I IY J JY) CUR-PARA-END J) (LOOP (INCF J) (WHEN (NULL (SAMP J)) (PROGN (WHEN (NULL CUR-PARA) (SETF CUR-PARA (SOLVE-PARA I IY J JY))) (RETURN))) (SETF JY (SAMP J)) (LET (IY-CHANGED (PARY -1)) (WHEN (AND FIRST (> (/ (/ (- JY IY) RIGHT-WIDTH) (- J I)) 0.01)) (PROGN (SETF IY-CHANGED T) (SETF IY (- JY (* 0.01 (* RIGHT-WIDTH (- J I))))))) (WHEN CUR-PARA (SETF PARY (FUNCALL CUR-PARA J))) (WHEN (>= PARY 0) (RETURN)) (WHEN (OR (< PARY JY) IY-CHANGED (NULL CUR-PARA)) (PROGN (SETF CUR-PARA (SOLVE-PARA I IY J JY)) (SETF CUR-PARA-END J))))) (WHEN FIRST (PROGN (SETF FIRST NIL) (GO AGAIN)))))
Function: #<FSubr-LABELS: #3bea274>
Arguments:
  ((SAMP (I) (GET-BUFFER-SAMPLE INPUT-BUF I)))
  (WHEN (OR (NULL CUR-PARA) (AND (= I CUR-PARA-END) (SAMP (+ I 2)))) (LET ((IY (SAMP I)) (FIRST (NULL CUR-PARA)) J JY) (TAGBODY AGAIN (SETF J (1+ I) JY (SAMP J)) (SETF CUR-PARA (SOLVE-PARA I IY J JY) CUR-PARA-END J) (LOOP (INCF J) (WHEN (NULL (SAMP J)) (PROGN (WHEN (NULL CUR-PARA) (SETF CUR-PARA (SOLVE-PARA I IY J JY))) (RETURN))) (SETF JY (SAMP J)) (LET (IY-CHANGED (PARY -1)) (WHEN (AND FIRST (> (/ (/ (- JY IY) RIGHT-WIDTH) (- J I)) 0.01)) (PROGN (SETF IY-CHANGED T) (SETF IY (- JY (* 0.01 (* RIGHT-WIDTH (- J I))))))) (WHEN CUR-PARA (SETF PARY (FUNCALL CUR-PARA J))) (WHEN (>= PARY 0) (RETURN)) (WHEN (OR (< PARY JY) IY-CHANGED (NULL CUR-PARA)) (PROGN (SETF CUR-PARA (SOLVE-PARA I IY J JY)) (SETF CUR-PARA-END J))))) (WHEN FIRST (PROGN (SETF FIRST NIL) (GO AGAIN))))))
  (WHEN (= 0 (REM I 1000)) (SET-BUFFER-POS INPUT-BUF I))
  (LET* ((V (FUNCALL CUR-PARA I)) (RES (IF (> V FLOOR) V (+ (* (- V FLOOR) -1 NOISE-FACTOR) FLOOR)))) (IF FIRST-SAMP (PROGN (SETF FIRST-SAMP NIL) RES) (PROGN (INCF I) (IF (AND (NULL (SAMP I)) (NULL (SAMP (1- I)))) NIL RES))))
Function: #<Subr-SEND: #3bed1f0>
Arguments:
  #<Object: #32cc250>
  #<Object: #32cc250>
1>