# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1230944128 0
# Node ID 18d3480e7ec8d702063b9ed746690df4e76c3851
# Parent  aa2b33f83ac69c9a30cecae468eaf30db3e1f4be
update play-midifile

find-executable-in-search-path was removed in sbcl-1.0.13

darcs-hash:20090103005528-16a00-83ef5cb3f7c00b8c46bc9fed1c0569370bc53963.gz

diff -r aa2b33f83ac6 -r 18d3480e7ec8 tools/midi-output.lisp
--- 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))