Try something like:
(let ((signal (aref s 0))
(impulse (extract-abs 0 0.1 (aref s 1))))
(vector
(convolve signal impulse)
(aref s 1)))
where the sound that you wish to process is the left (upper) channel of a stereo track, and the impulse is the first 0.1 seconds of the right (lower) channel.