Simple wav player using java sound

playwav.clj

(ns sound.core
  (:import (java.io File)
           (javax.sound.sampled AudioFormat AudioInputStream AudioSystem DataLine DataLine$Info LineUnavailableException SourceDataLine)))
(defn play-sound [filename]
    (let 
        [
         sfile (new File filename)
         ainput (AudioSystem/getAudioInputStream sfile)
         aformat (.getFormat ainput)
         info (DataLine$Info. SourceDataLine aformat)
         line (AudioSystem/getLine info)
         data (byte-array 128000)
        ]
      (do
        (.open line aformat)
        (.start line)
        (while (not= -1 (.read ainput data 0 128000))
          (.write line data 0 128000))
        (.drain line)
        (.close line)
        )))