[gsharp-devel] play.lisp

[Stas Boukarev]

There is a code duplication in play.lisp file in functions play-layer & play-segment.
New function should also help to deal with compatibility layer.

And I have no timidity, and I think 
it is beterr to make player changeable.

(defvar *midi-player* "timidity")
(defvar *midi-player-arguments* nil)

(defun play-midi-file (midifile)
    #+cmu
    (ext:run-program *midi-player* (list *midi-player-arguments* midifile))
    #+sbcl
    (sb-ext:run-program *midi-player* (list *midi-player-arguments* midifile) :search t)
    #+clisp
    (ext:run-program *midi-player* :arguments (list *midi-player-arguments* midifile))
    #-(or cmu sbcl clisp)
    (error "write compatibility layer for RUN-PROGRAM"))

-- 
With Best Regards, Stas.