Update of /project/gsharp/cvsroot/gsharp In directory common-lisp:/tmp/cvs-serv26590

Modified Files: play.lisp Log Message: Make it easier for timidity to find its argument.

--- /project/gsharp/cvsroot/gsharp/play.lisp 2005/10/31 02:16:27 1.2 +++ /project/gsharp/cvsroot/gsharp/play.lisp 2006/02/14 18:16:03 1.3 @@ -57,11 +57,11 @@ :format 1 :division 25 :tracks tracks))) - (write-midi-file midifile "test.mid") + (write-midi-file midifile "/tmp/test.mid") #+cmu - (ext:run-program "timidity" '("test.mid")) + (ext:run-program "timidity" '("/tmp/test.mid")) #+sbcl - (sb-ext:run-program "timidity" '("test.mid") :search t) + (sb-ext:run-program "timidity" '("/tmp/test.mid") :search t) #-(or cmu sbcl) (error "write compatibility layer for RUN-PROGRAM")))