[gsharp-devel] play.lisp

[Magnus Jonsson]

Thanks for your suggestions Stas! I have now fixed these problems. Please 
see the changes in the CVS.

On Wed, 27 Jun 2007, Stas Boukarev wrote:

> 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"))
>
>