ReplayGain plug-in

[steve]

@Fredsone

For me, I think I may have created a monster…
We have a lot of records, CD’s etc of various ages loaded to the computer and are in the habit of periodically mixing tracks in “this weeks” playlist. I now have to either go back and reconvert all the tracks I have modified (and there are lots) or continue adjusting the loudness of the entire library.

Thanks very much for the feedback Fredsone.

The Effect is really just an attempt at producing an “Equal Loudness Normalization” plug-in and the current version of the effect is based on the ReplayGain algorithm. This is not the only Equal Loudness algorithm, and arguably not the best. There may be a future version of this plug-in that uses a different (superior) algorithm, and the default “loudness reference” may well be different. The “Adjust Normalized output:” basically adjust the reference level.

[Fredsone]

@steve

The Effect is really just an attempt at producing an “Equal Loudness Normalization” plug-in…

I think it is a good plug-in, it certainly does what I need.
I just got into bother by testing it on a file of mixed source, age and genera tracks and, in spite of our library being sourced from older recordings, for some reason I chose to normalise my test tracks and subsequent folders to the loudest, new recordings level.
Not the smartest thing to do, a little thought and I could have saved myself a lot of work

[steve]

@Fredsone

Not the smartest thing to do, a little thought and I could have saved myself a lot of work

Oops.

[dennus]

I am used to changing my MP3 files with MP3GAIN to 95dB.
Which level should I enter on the slider of this PLUGIN?

[steve]

@dennus

I am used to changing my MP3 files with MP3GAIN to 95dB.
Which level should I enter on the slider of this PLUGIN?

Don’t confuse this plug-in with the usual implementations of ReplayGain. This plug-in does not add ReplayGain Metadata. See the first few post of this topic for an explanation of what this plug-in does.

[SirDrexl]

@Fredsone

I just got into bother by testing it on a file of mixed source, age and genera tracks and, in spite of our library being sourced from older recordings, for some reason I chose to normalise my test tracks and subsequent folders to the loudest, new recordings level.
Not the smartest thing to do, a little thought and I could have saved myself a lot of work

I know this is a late response, but I do NOT recommend doing this.

The reason why modern masterings sound so loud is not because their peak levels are high; it’s because the dynamic range has been heavily compressed. The way I understand it, this plugin simply amplifies (or de-amplifies, often) the files by a certain amount of dB based on how far it is from the reference level. If you take an older, quiet mastering and simply amplify it by several dB to reach a “loudness war” level, you will introduce a lot of clipping into the audio. If you really want them to sound that loud, you should do more than just amplify it; you should compress the dynamic range as well with the Compressor plugin or the like.

The only time I’ve had to do that was for a custom soundtrack for a video game, in which the output level was very low. Even then, I used -8 dB as the ReplayGain target rather than something ridiculous like -10 or more. In the end, it’s better to just work with a low RG level, either 0, or maybe 2 or 3 dB louder. That way you don’t have to compromise good masterings and you add little to no clipping.

BTW, I have a question for the author, if he’s around. When you set it to a different level, does it perform 2 different operations to get there? Say you have something with a RG value of -8 dB. Normally it would de-amplify the file by 8 dB to reach 0. But when you have it set to adjust it by +2 dB, does it just de-amplify the file by 6 dB, or does it perform 2 operations, the first being to get to 0 dB, then amplify the result by 2 dB? It seems like one operation would be better, but I’m not sure if it does that or not.

[steve]

@SirDrexl

does it just de-amplify the file by 6 dB, or does it perform 2 operations, the first being to get to 0 dB, then amplify the result by 2 dB? It seems like one operation would be better, but I’m not sure if it does that or not.

I’ve not checked to see what I wrote in the code, but as I remember it, the effect calculates what it thinks is the “perceived loudness”, then amplifies it to a “target loudness” (one operation).

[TriciaG]

Hi! Just another quick post to say thanks for this plugin!

I’m one of the admins over at LibriVox.org, and we almost always have issues with new folks’ volumes. Most readers use Audacity, so this plugin will work wonders for us!

I think I’ll recommend the “old” version, however; that way the reader won’t have the plugin cause clipping if they’ve got some spikes. So please don’t get rid of the “old” version.

[Uli_Nobbe]

Hello Steve, hello board,

I’m new to this board, but I’m active in the german board.

The ReplayGain plugin is quite interesting for me and it works fine, but there is one thing I don’t understand.

@steve

Probably the easiest way to achieve a target level is to apply the effect to each track (one track at a time) with the slider set to zero (default).

Is there any advantage working this way (“one track at a time”) compared to mark all tracks and to gain all at one time?
Will all tracks be gained by the same amount or an average gain level of all tracks? Or does the system gain each track individually even when all tracks are selected?

I tried to figure it out by voice recordings for a longer documentation (each part a new track) but could not find a remarkable difference.
What kind of workflow do you recommend?

There is still another question: Since there are two versions available, is it possible to install both of them parallel?

Regards, Uli

[steve]

Hi Uli,

@Uli Nobbe

Is there any advantage working this way (“one track at a time”) compared to mark all tracks and to gain all at one time?

If all of the tracks are the same duration, then you can select them all together, but that will rarely be the case.

Nyquist plug-ins see no difference between “white space” (no waveform) and “silence” (flat line waveform). If the selection extends beyond the en of the track audio, then Nyquist will see the extra “white space” selection as “silence” and that can throw out the calculations or even cause the plug-in to fail completely.

ReplayGain uses the highest 5% of sample values, so in some cases the result of adding a little white space in the selection will be negligible or even no difference at all, but this is very unreliable and in some cases the difference can be huge, or as previously mentioned may cause the effect to fail (and produce an error message).

@Uli Nobbe

There is still another question: Since there are two versions available, is it possible to install both of them parallel?

The new version includes the same analysis as the old version, so to use the old version you don’t need to install it, just select “Analyze” in the plug-in option.

[esquishems]

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]

@esquishems

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

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.

[esquishems]

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!

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]

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

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]

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/

[esquishems]

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]

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/chains_for_batch_processing_and_effects_automation.html

Note that the ReplayGain effect was developed for music. I’ve no idea if it will be effective with recordings of individual words.

[esquishems]

@steve

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

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]

@esquishems

ReplayGain isn’t showing up as an option

Your version of Audacity is probably too old.
Try updating to Audacity 2.0.4 Audacity ® | Downloads

@esquishems

if I’m running it on only one track, the parts of the track still have the same amplitudes relative to each other

Yes.

[esquishems]

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!!