[CM] Selecting a sound

[e deleflie]

I still cant manage to properly select a sound. Why would this code:

                (let ((outsound (new-sound "out.snd" :channels 4)))
                        (display (format #f "Currently selected Sound
is ~a \n" (selected-sound)))
                (let ((insound (open-sound fullfilename)))
                        (display (format #f "Currently selected Sound
is ~a \n" (selected-sound)))
                        select-sound outsound;
                        (display (format #f "Currently selected Sound
is ~a \n" (selected-sound)))

print out this:

Currently selected Sound is 0
Currently selected Sound is 1
Currently selected Sound is 1

Etienne