[gsharp-cvs] CVS gsharp

[rstrandh]

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