[CM] Applying a function to every file in dir?

[Kenneth Flak]

Hi guys,

What is the appropriate way to apply this transformation to every 
file in a directory? Can't find a way to list the files...

(let ((stretch 8)
      (file "/home/kf/Documents/REAPER Media/keen/keen-002.wav"))
  (with-sound (:output "/home/kf/mySamples/keen/keen-002.wav" 
  :scaled-to (db->linear 0))
              (open-sound file)
              (sndwarp 
                0 ; beginning
                (* stretch (/ (framples) (srate))) ; duration
                file
                :stretch stretch
                :randw 0.2
                :rev 0.01
                :overlaps 40
                )
              ))

Best,
Kenneth