Mercurial > hg > amuse
changeset 188:18d3480e7ec8
update play-midifile
find-executable-in-search-path was removed in sbcl-1.0.13
darcs-hash:20090103005528-16a00-83ef5cb3f7c00b8c46bc9fed1c0569370bc53963.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Sat, 03 Jan 2009 00:55:28 +0000 |
| parents | aa2b33f83ac6 |
| children | 70c8d723fb8a |
| files | tools/midi-output.lisp |
| diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/tools/midi-output.lisp Sat Jan 03 00:54:52 2009 +0000 +++ b/tools/midi-output.lisp Sat Jan 03 00:55:28 2009 +0000 @@ -24,13 +24,10 @@ ;; on this first. That said, is there a CoreAudio midi file player ;; routine? (midi:write-midi-file midifile "tmp.mid") - #+darwin - (when (sb-impl::find-executable-in-search-path "open") - (asdf:run-shell-command "open tmp.mid") - (return-from play-midifile T)) - (when (sb-impl::find-executable-in-search-path "timidity") - (asdf:run-shell-command "timidity tmp.mid") - (return-from play-midifile T))) + #+darwin + (sb-ext:run-program "open" '("tmp.mid") :search t) + #+linux + (sb-ext:run-program "xdg-open" '("tmp.mid") :search t)) (defgeneric make-midi (sequence)) (defmethod make-midi ((sequence sequence))