[gsharp-cvs] CVS update: gsharp/gui.lisp

[Christophe Rhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv4973

Modified Files:
	gui.lisp 
Log Message:
Make the sbcl version of run-program search through $PATH for timidity

Date: Mon Feb 16 13:43:55 2004
Author: crhodes

Index: gsharp/gui.lisp
diff -u gsharp/gui.lisp:1.2 gsharp/gui.lisp:1.3
--- gsharp/gui.lisp:1.2	Mon Feb 16 11:08:00 2004
+++ gsharp/gui.lisp	Mon Feb 16 13:43:54 2004
@@ -567,7 +567,7 @@
     #+cmu
     (ext:run-program "timidity" '("test.mid"))
     #+sbcl
-    (sb-ext:run-program "timidity" '("test.mid"))
+    (sb-ext:run-program "timidity" '("test.mid") :search t)
     #-(or cmu sbcl)
     (error "write compatibility layer for RUN-PROGRAM")))
 
@@ -583,7 +583,7 @@
     #+cmu
     (ext:run-program "timidity" '("test.mid"))
     #+sbcl
-    (sb-ext:run-program "timidity" '("test.mid"))
+    (sb-ext:run-program "timidity" '("test.mid") :search t)
     #-(or cmu sbcl)
     (error "write compatibility layer for RUN-PROGRAM")))