ReplayGain

Share your Audacity/Nyquist plug-ins here, or test drive the latest plug-ins submitted by Audacity users.

After testing a plug-in from this forum, please post feedback for the plug-in author.
esquishems
Posts: 12
Joined: Mon Sep 09, 2013 12:02 pm
Operating System: Please select

Re: ReplayGain

Post by esquishems » Mon Sep 09, 2013 12:07 pm

This seems to be exactly the plug-in I am looking for, but I can't get it to work. I'm running Audacity 2.0.0 on Mac OS X 10.7.5. Whether I have one track open or multiple track open, when I select a track and choose ReplayGain from the Effects menu set to Normalize to 0.0, the track shifts to the left without changing volume; i.e., the result is that the track starts ~0.05 s later. If I select a track and choose ReplayGain set to Analyze and 0.0, I get an error message saying "Nyquist did not return audio." Any idea what the problem is?

Thanks!

steve
Site Admin
Posts: 81306
Joined: Sat Dec 01, 2007 11:43 am
Operating System: Linux *buntu

Re: ReplayGain

Post by steve » Mon Sep 09, 2013 4:27 pm

esquishems wrote:the result is that the track starts ~0.05 s later
I've no idea how that can be happening. I don't see anything in the code that is able to do that.
esquishems wrote:f I select a track and choose ReplayGain set to Analyze and 0.0, I get an error message saying "Nyquist did not return audio." Any idea what the problem is?
No idea at all, I don't see any of those issues here.

Try rebooting the computer and then start Audacity (this will ensure that the effect is running with defaults). Import one audio track and apply the effect using the Debug button instead of the OK button. After the track has been processed, a "debug" window will appear - copy and paste anything that appears in the debug window into your reply.
9/10 questions are answered in the FREQUENTLY ASKED QUESTIONS (FAQ)

esquishems
Posts: 12
Joined: Mon Sep 09, 2013 12:02 pm
Operating System: Please select

Re: ReplayGain

Post by esquishems » Mon Sep 09, 2013 5:09 pm

Thanks for your prompt reply! I'm so confused :-/

The output is super long, but I'm pasting the whole thing. This is what happens when I run it set to normalize.

Thanks again!

Code: Select all

a0 < 1 in biquad
error: bad argument type - NIL
Function: #<Subr-ERROR: #2731e18>
Arguments:
  NIL
Function: #<FSubr-IF: #27331b0>
Arguments:
  (< A0 1)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201b60>
  0.576282
  1.15256
  0.576282
  0.241453
  -0.305127
  -1.75855
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201b60>
  0.576282
  1.15256
  0.576282
  0.241453
  0.305127
  1.75855
Function: #<FSubr-LET*: #27319d4>
Arguments:
  ((W (* 2 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1 ALPHA)) (A1 (* -2 CW)) (A2 (- 1 ALPHA)) (B1 (- 1 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201b60>
  16000
  0.7071
Function: #<Subr-APPLY: #2730bac>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201b60> 16000 0.7071)
Function: #<FSubr-COND: #2731e90>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #272fb2c>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201b60>
  16000
  0.7071
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201b60>
  16000
Function: #<Closure-EQLOUD: #272f508>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #272fb2c>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #272f10c>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1))
1> #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
1> NIL
1> error: array index out of bounds - -2147483648
Function: #<Subr-AREF: #2732634>
Arguments:
  #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 3 0 2 0 1 0 1 0 0 2 3 4 0 2 5 1 0 6 5 5 0 2 1 0 3 3 0 1 0 0 2 0 2 0 4 2 0 9 0 2 0 7 0 6 3 0 7 0 2 0 1 0 0 1 0 1 0 1 0 4 0 0 0 0 2 0 3 0 0 3 0 3 0 0 0 0 0 2 0 0 2 0 0 2 0 0 2 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  -2147483648
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  (AREF LEVELS SVAL)
  (1+ (AREF LEVELS SVAL))
Function: #<FSubr-DO: #2733204>
Arguments:
  ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S))))
  ((NOT SVAL) SAMP)
  (SETQ SVAL (ABS (ROUND (* 10 (LINEAR-TO-DB SVAL)))))
  (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  NUM-SAMPLES
  (1- (DO ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S)))) ((NOT SVAL) SAMP) (SETQ SVAL (ABS (ROUND (* 10 (LINEAR-TO-DB SVAL))))) (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))))
Function: #<Subr-ERROR: #2731e18>
Arguments:
  NIL
Function: #<FSubr-IF: #27331b0>
Arguments:
  (< A0 1)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201b60>
  0.576282
  1.15256
  0.576282
  0.241453
  -0.305127
  -1.75855
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201b60>
  0.576282
  1.15256
  0.576282
  0.241453
  0.305127
  1.75855
Function: #<FSubr-LET*: #27319d4>
Arguments:
  ((W (* 2 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1 ALPHA)) (A1 (* -2 CW)) (A2 (- 1 ALPHA)) (B1 (- 1 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201b60>
  16000
  0.7071
Function: #<Subr-APPLY: #2730bac>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201b60> 16000 0.7071)
Function: #<FSubr-COND: #2731e90>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #272fb2c>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201b60>
  16000
  0.7071
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201b60>
  16000
Function: #<Closure-EQLOUD: #272f508>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #272fb2c>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #272f10c>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1))
2> error: unbound variable - NUM-SAMPLES
if continued: try evaluating symbol again
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  TARGET
  (* NUM-SAMPLES 0.95)
Function: #<Subr-AREF: #2732634>
Arguments:
  #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 3 0 2 0 1 0 1 0 0 2 3 4 0 2 5 1 0 6 5 5 0 2 1 0 3 3 0 1 0 0 2 0 2 0 4 2 0 9 0 2 0 7 0 6 3 0 7 0 2 0 1 0 0 1 0 1 0 1 0 4 0 0 0 0 2 0 3 0 0 3 0 3 0 0 0 0 0 2 0 0 2 0 0 2 0 0 2 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  -2147483648
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  (AREF LEVELS SVAL)
  (1+ (AREF LEVELS SVAL))
Function: #<FSubr-DO: #2733204>
Arguments:
  ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S))))
  ((NOT SVAL) SAMP)
  (SETQ SVAL (ABS (ROUND (* 10 (LINEAR-TO-DB SVAL)))))
  (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  NUM-SAMPLES
  (1- (DO ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S)))) ((NOT SVAL) SAMP) (SETQ SVAL (ABS (ROUND (* 10 (LINEAR-TO-DB SVAL))))) (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))))
Function: #<Subr-ERROR: #2731e18>
Arguments:
  NIL
Function: #<FSubr-IF: #27331b0>
Arguments:
  (< A0 1)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201b60>
  0.576282
  1.15256
  0.576282
  0.241453
  -0.305127
  -1.75855
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201b60>
  0.576282
  1.15256
  0.576282
  0.241453
  0.305127
  1.75855
Function: #<FSubr-LET*: #27319d4>
Arguments:
  ((W (* 2 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1 ALPHA)) (A1 (* -2 CW)) (A2 (- 1 ALPHA)) (B1 (- 1 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201b60>
  16000
  0.7071
Function: #<Subr-APPLY: #2730bac>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201b60> 16000 0.7071)
Function: #<FSubr-COND: #2731e90>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #272fb2c>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201b60>
  16000
  0.7071
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201b60>
  16000
Function: #<Closure-EQLOUD: #272f508>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #272fb2c>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #272f10c>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1))
3> 0
3> "%1.1f"
3> error: unbound variable - TARGET
if continued: try evaluating symbol again
Function: #<FSubr-DO: #2733204>
Arguments:
  ((I 960 (SETQ I (1- I))))
  ((>= SUMSAMP TARGET) I)
  (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  RG
  (* 0.1 (- (DO ((I 960 (SETQ I (1- I)))) ((>= SUMSAMP TARGET) I) (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))) 256))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  TARGET
  (* NUM-SAMPLES 0.9)
Function: #<Subr-AREF: #2732634>
Arguments:
  #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 3 0 2 0 1 0 1 0 0 2 3 4 0 2 5 1 0 6 5 5 0 2 1 0 3 3 0 1 0 0 2 0 2 0 4 2 0 9 0 2 0 7 0 6 3 0 7 0 2 0 1 0 0 1 0 1 0 1 0 4 0 0 0 0 2 0 3 0 0 3 0 3 0 0 0 0 0 2 0 0 2 0 0 2 0 0 2 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  -2147483648
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  (AREF LEVELS SVAL)
  (1+ (AREF LEVELS SVAL))
Function: #<FSubr-DO: #2733204>
Arguments:
  ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S))))
  ((NOT SVAL) SAMP)
  (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL)))))
  (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  NUM-SAMPLES
  (1- (DO ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S)))) ((NOT SVAL) SAMP) (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL))))) (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))))
Function: #<Subr-ERROR: #2731e18>
Arguments:
  NIL
Function: #<FSubr-IF: #27331b0>
Arguments:
  (< A0 1.0)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1.0 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201b60>
  0.6
  1.2
  0.6
  0.2
  -0.3
  -1.8
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201b60>
  0.6
  1.2
  0.6
  0.2
  0.3
  1.8
Function: #<FSubr-LET*: #27319d4>
Arguments:
  ((W (* 2.0 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1.0 ALPHA)) (A1 (* -2.0 CW)) (A2 (- 1.0 ALPHA)) (B1 (- 1.0 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201b60>
  16000
  0.7
Function: #<Subr-APPLY: #2730bac>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201b60> 16000 0.7)
Function: #<FSubr-COND: #2731e90>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #272fb2c>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201b60>
  16000
  0.7
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201b60>
  16000
Function: #<Closure-EQLOUD: #272f508>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #272fb2c>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20.0))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #272f10c>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1.0))
4> error: unbound variable - RG
if continued: try evaluating symbol again
Function: #<FSubr-IF: #27331b0>
Arguments:
  (> RG 0)
  "+"
  ""
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  SIGN
  (IF (> RG 0) "+" "")
Function: #<FSubr-DO: #2733204>
Arguments:
  ((I 960 (SETQ I (1- I))))
  ((>= SUMSAMP TARGET) I)
  (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  RG
  (* 0.1 (- (DO ((I 960 (SETQ I (1- I)))) ((>= SUMSAMP TARGET) I) (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))) 256))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  TARGET
  (* NUM-SAMPLES 0.9)
Function: #<Subr-AREF: #2732634>
Arguments:
  #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 3 0 2 0 1 0 1 0 0 2 3 4 0 2 5 1 0 6 5 5 0 2 1 0 3 3 0 1 0 0 2 0 2 0 4 2 0 9 0 2 0 7 0 6 3 0 7 0 2 0 1 0 0 1 0 1 0 1 0 4 0 0 0 0 2 0 3 0 0 3 0 3 0 0 0 0 0 2 0 0 2 0 0 2 0 0 2 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  -2147483648
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  (AREF LEVELS SVAL)
  (1+ (AREF LEVELS SVAL))
Function: #<FSubr-DO: #2733204>
Arguments:
  ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S))))
  ((NOT SVAL) SAMP)
  (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL)))))
  (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  NUM-SAMPLES
  (1- (DO ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S)))) ((NOT SVAL) SAMP) (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL))))) (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))))
Function: #<Subr-ERROR: #2731e18>
Arguments:
  NIL
Function: #<FSubr-IF: #27331b0>
Arguments:
  (< A0 1.0)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1.0 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201b60>
  0.6
  1.2
  0.6
  0.2
  -0.3
  -1.8
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201b60>
  0.6
  1.2
  0.6
  0.2
  0.3
  1.8
Function: #<FSubr-LET*: #27319d4>
Arguments:
  ((W (* 2.0 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1.0 ALPHA)) (A1 (* -2.0 CW)) (A2 (- 1.0 ALPHA)) (B1 (- 1.0 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201b60>
  16000
  0.7
Function: #<Subr-APPLY: #2730bac>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201b60> 16000 0.7)
Function: #<FSubr-COND: #2731e90>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #272fb2c>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201b60>
  16000
  0.7
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201b60>
  16000
Function: #<Closure-EQLOUD: #272f508>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #272fb2c>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20.0))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #272f10c>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1.0))
5> error: unbound variable - RG
if continued: try evaluating symbol again
Function: #<FSubr-IF: #27331b0>
Arguments:
  (> RG 70)
  (FORMAT NIL "Error.~%Audio level too low.")
  (IF (= ACTION 0) (MULT S2 (/ (DB-TO-LINEAR AMP) (DB-TO-LINEAR (- RG)))) (FORMAT NIL "ReplayGain level: ~a~a dB.~%" SIGN RG))
Function: #<FSubr-IF: #27331b0>
Arguments:
  (> RG 0)
  "+"
  ""
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  SIGN
  (IF (> RG 0) "+" "")
Function: #<FSubr-DO: #2733204>
Arguments:
  ((I 960 (SETQ I (1- I))))
  ((>= SUMSAMP TARGET) I)
  (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  RG
  (* 0.1 (- (DO ((I 960 (SETQ I (1- I)))) ((>= SUMSAMP TARGET) I) (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))) 256))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  TARGET
  (* NUM-SAMPLES 0.9)
Function: #<Subr-AREF: #2732634>
Arguments:
  #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 3 0 2 0 1 0 1 0 0 2 3 4 0 2 5 1 0 6 5 5 0 2 1 0 3 3 0 1 0 0 2 0 2 0 4 2 0 9 0 2 0 7 0 6 3 0 7 0 2 0 1 0 0 1 0 1 0 1 0 4 0 0 0 0 2 0 3 0 0 3 0 3 0 0 0 0 0 2 0 0 2 0 0 2 0 0 2 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  -2147483648
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  (AREF LEVELS SVAL)
  (1+ (AREF LEVELS SVAL))
Function: #<FSubr-DO: #2733204>
Arguments:
  ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S))))
  ((NOT SVAL) SAMP)
  (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL)))))
  (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))
Function: #<FSubr-SETQ: #2733ca8>
Arguments:
  NUM-SAMPLES
  (1- (DO ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S)))) ((NOT SVAL) SAMP) (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL))))) (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))))
Function: #<Subr-ERROR: #2731e18>
Arguments:
  NIL
Function: #<FSubr-IF: #27331b0>
Arguments:
  (< A0 1.0)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1.0 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201b60>
  0.6
  1.2
  0.6
  0.2
  -0.3
  -1.8
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201b60>
  0.6
  1.2
  0.6
  0.2
  0.3
  1.8
Function: #<FSubr-LET*: #27319d4>
Arguments:
  ((W (* 2.0 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1.0 ALPHA)) (A1 (* -2.0 CW)) (A2 (- 1.0 ALPHA)) (B1 (- 1.0 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201b60>
  16000
  0.7
Function: #<Subr-APPLY: #2730bac>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201b60> 16000 0.7)
Function: #<FSubr-COND: #2731e90>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #272fb2c>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201b60>
  16000
  0.7
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201b60>
  16000
Function: #<Closure-EQLOUD: #272f508>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #272fb2c>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20.0))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #272f10c>
Arguments:
  #<Sound: #a2012c8>
Function: #<FSubr-SETF: #272f9c4>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1.0))
6> 5> 4> 3> 2> 1> 

esquishems
Posts: 12
Joined: Mon Sep 09, 2013 12:02 pm
Operating System: Please select

Re: ReplayGain

Post by esquishems » Mon Sep 09, 2013 6:45 pm

It means nothing to me, but I suppose it might be helpful to include the debugger output for running it as "analyze" as well:

Code: Select all

a0 < 1 in biquad
error: bad argument type - NIL
Function: #<Subr-ERROR: #271ce3c>
Arguments:
  NIL
Function: #<FSubr-IF: #271e1d4>
Arguments:
  (< A0 1)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201c28>
  0.576282
  1.15256
  0.576282
  0.241453
  -0.305127
  -1.75855
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201c28>
  0.576282
  1.15256
  0.576282
  0.241453
  0.305127
  1.75855
Function: #<FSubr-LET*: #271c9f8>
Arguments:
  ((W (* 2 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1 ALPHA)) (A1 (* -2 CW)) (A2 (- 1 ALPHA)) (B1 (- 1 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201c28>
  16000
  0.7071
Function: #<Subr-APPLY: #271bbd0>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201c28> 16000 0.7071)
Function: #<FSubr-COND: #271ceb4>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #271ab50>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201c28>
  16000
  0.7071
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201c28>
  16000
Function: #<Closure-EQLOUD: #271a52c>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #271ab50>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #271a130>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1))
1> #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
1> NIL
1> error: array index out of bounds - -2147483648
Function: #<Subr-AREF: #271d658>
Arguments:
  #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 2 1 0 0 2 1 2 1 1 0 0 2 0 1 0 2 6 2 1 2 4 2 1 1 2 0 0 2 1 3 0 4 0 1 0 1 0 0 0 2 2 0 0 1 2 0 0 0 0 0 0 4 0 1 0 0 1 2 0 1 0 1 1 0 1 0 1 0 0 0 1 0 0 0 0 0 1 3 0 0 1 0 1 0 1 2 0 1 0 2 2 0 2 0 1 0 4 0 0 1 0 3 0 2 0 3 0 0 0 0 4 0 2 0 2 0 0 0 0 4 0 1 0 0 6 0 1 0 0 1 0 0 3 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  -2147483648
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  (AREF LEVELS SVAL)
  (1+ (AREF LEVELS SVAL))
Function: #<FSubr-DO: #271e228>
Arguments:
  ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S))))
  ((NOT SVAL) SAMP)
  (SETQ SVAL (ABS (ROUND (* 10 (LINEAR-TO-DB SVAL)))))
  (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  NUM-SAMPLES
  (1- (DO ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S)))) ((NOT SVAL) SAMP) (SETQ SVAL (ABS (ROUND (* 10 (LINEAR-TO-DB SVAL))))) (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))))
Function: #<Subr-ERROR: #271ce3c>
Arguments:
  NIL
Function: #<FSubr-IF: #271e1d4>
Arguments:
  (< A0 1)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201c28>
  0.576282
  1.15256
  0.576282
  0.241453
  -0.305127
  -1.75855
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201c28>
  0.576282
  1.15256
  0.576282
  0.241453
  0.305127
  1.75855
Function: #<FSubr-LET*: #271c9f8>
Arguments:
  ((W (* 2 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1 ALPHA)) (A1 (* -2 CW)) (A2 (- 1 ALPHA)) (B1 (- 1 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201c28>
  16000
  0.7071
Function: #<Subr-APPLY: #271bbd0>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201c28> 16000 0.7071)
Function: #<FSubr-COND: #271ceb4>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #271ab50>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201c28>
  16000
  0.7071
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201c28>
  16000
Function: #<Closure-EQLOUD: #271a52c>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #271ab50>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #271a130>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1))
2> error: unbound variable - NUM-SAMPLES
if continued: try evaluating symbol again
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  TARGET
  (* NUM-SAMPLES 0.95)
Function: #<Subr-AREF: #271d658>
Arguments:
  #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 2 1 0 0 2 1 2 1 1 0 0 2 0 1 0 2 6 2 1 2 4 2 1 1 2 0 0 2 1 3 0 4 0 1 0 1 0 0 0 2 2 0 0 1 2 0 0 0 0 0 0 4 0 1 0 0 1 2 0 1 0 1 1 0 1 0 1 0 0 0 1 0 0 0 0 0 1 3 0 0 1 0 1 0 1 2 0 1 0 2 2 0 2 0 1 0 4 0 0 1 0 3 0 2 0 3 0 0 0 0 4 0 2 0 2 0 0 0 0 4 0 1 0 0 6 0 1 0 0 1 0 0 3 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  -2147483648
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  (AREF LEVELS SVAL)
  (1+ (AREF LEVELS SVAL))
Function: #<FSubr-DO: #271e228>
Arguments:
  ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S))))
  ((NOT SVAL) SAMP)
  (SETQ SVAL (ABS (ROUND (* 10 (LINEAR-TO-DB SVAL)))))
  (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  NUM-SAMPLES
  (1- (DO ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S)))) ((NOT SVAL) SAMP) (SETQ SVAL (ABS (ROUND (* 10 (LINEAR-TO-DB SVAL))))) (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))))
Function: #<Subr-ERROR: #271ce3c>
Arguments:
  NIL
Function: #<FSubr-IF: #271e1d4>
Arguments:
  (< A0 1)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201c28>
  0.576282
  1.15256
  0.576282
  0.241453
  -0.305127
  -1.75855
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201c28>
  0.576282
  1.15256
  0.576282
  0.241453
  0.305127
  1.75855
Function: #<FSubr-LET*: #271c9f8>
Arguments:
  ((W (* 2 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1 ALPHA)) (A1 (* -2 CW)) (A2 (- 1 ALPHA)) (B1 (- 1 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201c28>
  16000
  0.7071
Function: #<Subr-APPLY: #271bbd0>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201c28> 16000 0.7071)
Function: #<FSubr-COND: #271ceb4>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #271ab50>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201c28>
  16000
  0.7071
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201c28>
  16000
Function: #<Closure-EQLOUD: #271a52c>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #271ab50>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #271a130>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1))
3> 0
3> "%1.1f"
3> error: unbound variable - TARGET
if continued: try evaluating symbol again
Function: #<FSubr-DO: #271e228>
Arguments:
  ((I 960 (SETQ I (1- I))))
  ((>= SUMSAMP TARGET) I)
  (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  RG
  (* 0.1 (- (DO ((I 960 (SETQ I (1- I)))) ((>= SUMSAMP TARGET) I) (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))) 256))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  TARGET
  (* NUM-SAMPLES 0.9)
Function: #<Subr-AREF: #271d658>
Arguments:
  #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 2 1 0 0 2 1 2 1 1 0 0 2 0 1 0 2 6 2 1 2 4 2 1 1 2 0 0 2 1 3 0 4 0 1 0 1 0 0 0 2 2 0 0 1 2 0 0 0 0 0 0 4 0 1 0 0 1 2 0 1 0 1 1 0 1 0 1 0 0 0 1 0 0 0 0 0 1 3 0 0 1 0 1 0 1 2 0 1 0 2 2 0 2 0 1 0 4 0 0 1 0 3 0 2 0 3 0 0 0 0 4 0 2 0 2 0 0 0 0 4 0 1 0 0 6 0 1 0 0 1 0 0 3 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  -2147483648
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  (AREF LEVELS SVAL)
  (1+ (AREF LEVELS SVAL))
Function: #<FSubr-DO: #271e228>
Arguments:
  ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S))))
  ((NOT SVAL) SAMP)
  (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL)))))
  (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  NUM-SAMPLES
  (1- (DO ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S)))) ((NOT SVAL) SAMP) (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL))))) (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))))
Function: #<Subr-ERROR: #271ce3c>
Arguments:
  NIL
Function: #<FSubr-IF: #271e1d4>
Arguments:
  (< A0 1.0)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1.0 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201c28>
  0.6
  1.2
  0.6
  0.2
  -0.3
  -1.8
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201c28>
  0.6
  1.2
  0.6
  0.2
  0.3
  1.8
Function: #<FSubr-LET*: #271c9f8>
Arguments:
  ((W (* 2.0 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1.0 ALPHA)) (A1 (* -2.0 CW)) (A2 (- 1.0 ALPHA)) (B1 (- 1.0 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201c28>
  16000
  0.7
Function: #<Subr-APPLY: #271bbd0>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201c28> 16000 0.7)
Function: #<FSubr-COND: #271ceb4>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #271ab50>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201c28>
  16000
  0.7
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201c28>
  16000
Function: #<Closure-EQLOUD: #271a52c>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #271ab50>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20.0))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #271a130>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1.0))
4> error: unbound variable - RG
if continued: try evaluating symbol again
Function: #<FSubr-IF: #271e1d4>
Arguments:
  (> RG 0)
  "+"
  ""
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  SIGN
  (IF (> RG 0) "+" "")
Function: #<FSubr-DO: #271e228>
Arguments:
  ((I 960 (SETQ I (1- I))))
  ((>= SUMSAMP TARGET) I)
  (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  RG
  (* 0.1 (- (DO ((I 960 (SETQ I (1- I)))) ((>= SUMSAMP TARGET) I) (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))) 256))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  TARGET
  (* NUM-SAMPLES 0.9)
Function: #<Subr-AREF: #271d658>
Arguments:
  #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 2 1 0 0 2 1 2 1 1 0 0 2 0 1 0 2 6 2 1 2 4 2 1 1 2 0 0 2 1 3 0 4 0 1 0 1 0 0 0 2 2 0 0 1 2 0 0 0 0 0 0 4 0 1 0 0 1 2 0 1 0 1 1 0 1 0 1 0 0 0 1 0 0 0 0 0 1 3 0 0 1 0 1 0 1 2 0 1 0 2 2 0 2 0 1 0 4 0 0 1 0 3 0 2 0 3 0 0 0 0 4 0 2 0 2 0 0 0 0 4 0 1 0 0 6 0 1 0 0 1 0 0 3 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  -2147483648
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  (AREF LEVELS SVAL)
  (1+ (AREF LEVELS SVAL))
Function: #<FSubr-DO: #271e228>
Arguments:
  ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S))))
  ((NOT SVAL) SAMP)
  (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL)))))
  (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  NUM-SAMPLES
  (1- (DO ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S)))) ((NOT SVAL) SAMP) (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL))))) (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))))
Function: #<Subr-ERROR: #271ce3c>
Arguments:
  NIL
Function: #<FSubr-IF: #271e1d4>
Arguments:
  (< A0 1.0)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1.0 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201c28>
  0.6
  1.2
  0.6
  0.2
  -0.3
  -1.8
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201c28>
  0.6
  1.2
  0.6
  0.2
  0.3
  1.8
Function: #<FSubr-LET*: #271c9f8>
Arguments:
  ((W (* 2.0 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1.0 ALPHA)) (A1 (* -2.0 CW)) (A2 (- 1.0 ALPHA)) (B1 (- 1.0 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201c28>
  16000
  0.7
Function: #<Subr-APPLY: #271bbd0>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201c28> 16000 0.7)
Function: #<FSubr-COND: #271ceb4>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #271ab50>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201c28>
  16000
  0.7
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201c28>
  16000
Function: #<Closure-EQLOUD: #271a52c>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #271ab50>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20.0))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #271a130>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1.0))
5> error: unbound variable - RG
if continued: try evaluating symbol again
Function: #<FSubr-IF: #271e1d4>
Arguments:
  (> RG 70)
  (FORMAT NIL "Error.~%Audio level too low.")
  (IF (= ACTION 0) (MULT S2 (/ (DB-TO-LINEAR AMP) (DB-TO-LINEAR (- RG)))) (FORMAT NIL "ReplayGain level: ~a~a dB.~%" SIGN RG))
Function: #<FSubr-IF: #271e1d4>
Arguments:
  (> RG 0)
  "+"
  ""
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  SIGN
  (IF (> RG 0) "+" "")
Function: #<FSubr-DO: #271e228>
Arguments:
  ((I 960 (SETQ I (1- I))))
  ((>= SUMSAMP TARGET) I)
  (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  RG
  (* 0.1 (- (DO ((I 960 (SETQ I (1- I)))) ((>= SUMSAMP TARGET) I) (SETQ SUMSAMP (+ SUMSAMP (AREF LEVELS I)))) 256))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  TARGET
  (* NUM-SAMPLES 0.9)
Function: #<Subr-AREF: #271d658>
Arguments:
  #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 2 1 0 0 2 1 2 1 1 0 0 2 0 1 0 2 6 2 1 2 4 2 1 1 2 0 0 2 1 3 0 4 0 1 0 1 0 0 0 2 2 0 0 1 2 0 0 0 0 0 0 4 0 1 0 0 1 2 0 1 0 1 1 0 1 0 1 0 0 0 1 0 0 0 0 0 1 3 0 0 1 0 1 0 1 2 0 1 0 2 2 0 2 0 1 0 4 0 0 1 0 3 0 2 0 3 0 0 0 0 4 0 2 0 2 0 0 0 0 4 0 1 0 0 6 0 1 0 0 1 0 0 3 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  -2147483648
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  (AREF LEVELS SVAL)
  (1+ (AREF LEVELS SVAL))
Function: #<FSubr-DO: #271e228>
Arguments:
  ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S))))
  ((NOT SVAL) SAMP)
  (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL)))))
  (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))
Function: #<FSubr-SETQ: #271eccc>
Arguments:
  NUM-SAMPLES
  (1- (DO ((SAMP 1 (+ SAMP 1)) (SVAL (SND-FETCH S) (SETQ SVAL (SND-FETCH S)))) ((NOT SVAL) SAMP) (SETQ SVAL (ABS (ROUND (* 10.0 (LINEAR-TO-DB SVAL))))) (SETF (AREF LEVELS SVAL) (1+ (AREF LEVELS SVAL)))))
Function: #<Subr-ERROR: #271ce3c>
Arguments:
  NIL
Function: #<FSubr-IF: #271e1d4>
Arguments:
  (< A0 1.0)
  (ERROR (FORMAT T "a0 < 1 in biquad~%"))
  (LET ((A0R (/ 1.0 A0))) (SND-BIQUAD X (* A0R B0) (* A0R B1) (* A0R B2) (* A0R A1) (* A0R A2) 0 0))
Function: #<Closure-NYQ:BIQUAD: #1dd54c0>
Arguments:
  #<Sound: #a201c28>
  0.6
  1.2
  0.6
  0.2
  -0.3
  -1.8
Function: #<Closure-NYQ:BIQUAD-M: #1dd4f50>
Arguments:
  #<Sound: #a201c28>
  0.6
  1.2
  0.6
  0.2
  0.3
  1.8
Function: #<FSubr-LET*: #271c9f8>
Arguments:
  ((W (* 2.0 PI (/ HZ (SND-SRATE X)))) (CW (COS W)) (SW (SIN W)) (ALPHA (* SW (SINH (/ 0.5 Q)))) (A0 (+ 1.0 ALPHA)) (A1 (* -2.0 CW)) (A2 (- 1.0 ALPHA)) (B1 (- 1.0 CW)) (B0 (* 0.5 B1)) (B2 B0))
  (NYQ:BIQUAD-M X B0 B1 B2 A0 A1 A2)
Function: #<Closure-NYQ:LOWPASS2: #1dd46e0>
Arguments:
  #<Sound: #a201c28>
  16000
  0.7
Function: #<Subr-APPLY: #271bbd0>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  (#<Sound: #a201c28> 16000 0.7)
Function: #<FSubr-COND: #271ceb4>
Arguments:
  (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT)
  (T (APPLY FN ARGS))
Function: #<FSubr-LET: #271ab50>
Arguments:
  (LEN NEWLEN RESULT)
  (DOLIST (A ARGS) (COND ((ARRAYP A) (SETF NEWLEN (LENGTH A)) (COND ((AND LEN (/= LEN NEWLEN)) (ERROR (FORMAT NIL "In ~A, two arguments are vectors of differing length." FN)))) (SETF LEN NEWLEN))))
  (COND (LEN (SETF RESULT (MAKE-ARRAY LEN)) (DOTIMES (I LEN) (SETF (AREF RESULT I) (APPLY FN (MAPCAR (FUNCTION (LAMBDA (A) (COND ((ARRAYP A) (AREF A I)) (T A)))) ARGS)))) RESULT) (T (APPLY FN ARGS)))
Function: #<Closure-MULTICHAN-EXPAND: #26d9b78>
Arguments:
  #<Closure-NYQ:LOWPASS2: #1dd46e0>
  #<Sound: #a201c28>
  16000
  0.7
Function: #<Closure-LOWPASS2: #1dd4d64>
Arguments:
  #<Sound: #a201c28>
  16000
Function: #<Closure-EQLOUD: #271a52c>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S-IN
  (EQLOUD S-IN)
Function: #<FSubr-LET: #271ab50>
Arguments:
  ((STEP-SIZE (ROUND (/ *SOUND-SRATE* 20.0))))
  (SETF S-IN (EQLOUD S-IN))
  (SETF S-IN (MULT S-IN S-IN))
  (IF (ARRAYP S-IN) (SETF S-IN (MULT 0.5 (SUM (AREF S-IN 0) (AREF S-IN 1)))))
  (S-SQRT (SND-AVG S-IN STEP-SIZE STEP-SIZE OP-AVERAGE))
Function: #<Closure-LRMS: #271a130>
Arguments:
  #<Sound: #a201448>
Function: #<FSubr-SETF: #271a9e8>
Arguments:
  S
  (S-MAX (DB-TO-LINEAR -96) (CLIP (LRMS S) 1.0))
6> 5> 4> 3> 2> 1> 

steve
Site Admin
Posts: 81306
Joined: Sat Dec 01, 2007 11:43 am
Operating System: Linux *buntu

Re: ReplayGain

Post by steve » Mon Sep 09, 2013 6:48 pm

Thanks.

The main problem appears to be that the sample rate of the track is too low.
This plug-in is designed for music with a sample rate 44100 Hz or above.
Actually, the minimum sample rate that it can handle is 32000 Hz.

In order to use this plug-in with low sample rate audio you will need to increase the sample rate of those tracks. To do that, select the track(s) and then from the Tracks menu select "Resample". The default sample rate for audio CDs is 44100 Hz, which is suitable for most audio applications.

Another lesser issue is that your version of Nyquist is a bit out of date. The current version of Nyquist is included in Audacity 2.0.4 which is available here: http://audacityteam.org/download/
9/10 questions are answered in the FREQUENTLY ASKED QUESTIONS (FAQ)

esquishems
Posts: 12
Joined: Mon Sep 09, 2013 12:02 pm
Operating System: Please select

Re: ReplayGain

Post by esquishems » Mon Sep 09, 2013 7:27 pm

Thank you so much!!! Then it seems to work perfectly :)

I have a few hundred short (individual words, so ~1sec) files I need to run this on. Is there any way to do a group of them faster than clicking each in turn and hitting command-R?

Thanks again; this is amazing!

steve
Site Admin
Posts: 81306
Joined: Sat Dec 01, 2007 11:43 am
Operating System: Linux *buntu

Re: ReplayGain

Post by steve » Mon Sep 09, 2013 7:41 pm

You can probably use the ReplayGain effect in a Chain (I've not thoroughly tested this, but it seems to work).
http://manual.audacityteam.org/o/man/ch ... ation.html

Note that the ReplayGain effect was developed for music. I've no idea if it will be effective with recordings of individual words.
9/10 questions are answered in the FREQUENTLY ASKED QUESTIONS (FAQ)

esquishems
Posts: 12
Joined: Mon Sep 09, 2013 12:02 pm
Operating System: Please select

Re: ReplayGain

Post by esquishems » Mon Sep 09, 2013 11:38 pm

steve wrote:You can probably use the ReplayGain effect in a Chain (I've not thoroughly tested this, but it seems to work).
I created a new chain and I see how to add other effects to it, but ReplayGain isn't showing up as an option and the field apparently can't be typed in. Do I need to do something special to make a certain effect show up on the list of chain effects?
steve wrote:Note that the ReplayGain effect was developed for music. I've no idea if it will be effective with recordings of individual words.
It seems to be working! Just to make sure, the effect doesn't change the relative amplitudes within a track, right? Like if I'm running it on only one track, the parts of the track still have the same amplitudes relative to each other (i.e., they're all increased or decreased by the same ratio)?

Thanks!

steve
Site Admin
Posts: 81306
Joined: Sat Dec 01, 2007 11:43 am
Operating System: Linux *buntu

Re: ReplayGain

Post by steve » Mon Sep 09, 2013 11:59 pm

esquishems wrote:ReplayGain isn't showing up as an option
Your version of Audacity is probably too old.
Try updating to Audacity 2.0.4 http://audacityteam.org/download/
esquishems wrote: if I'm running it on only one track, the parts of the track still have the same amplitudes relative to each other
Yes.
9/10 questions are answered in the FREQUENTLY ASKED QUESTIONS (FAQ)

esquishems
Posts: 12
Joined: Mon Sep 09, 2013 12:02 pm
Operating System: Please select

Re: ReplayGain

Post by esquishems » Tue Sep 10, 2013 5:39 pm

I'm now running 2.0.3 (2.0.4 kept crashing because of a bug with illegal characters in file names, I guess). ReplayGain is working amazingly with words and can be put in a chain.

Thank you so much for your help!!

Post Reply