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