From metawilm at gmail.com  Thu Oct 23 19:46:33 2008
From: metawilm at gmail.com (Willem Broekema)
Date: Thu, 23 Oct 2008 21:46:33 +0200
Subject: [gsharp-devel] play-tracks for Allegro
Message-ID: <f6bc9b490810231246w3781bfd1w75c0c8592efc21c2@mail.gmail.com>

With the below addition, I've got GSharp starting up and playing a
buffer on Allegro 8.1 in ANSI mode. Nice!
There's a warning though, about
GSHARP-MEASURE:FINAL-RELATIVE-DOT-XOFFSET (called in
/Users/willem/dev/lisp/gsharp/drawing.lisp) being undefined.

- Willem

===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/play.lisp,v
retrieving revision 1.11
diff -u -r1.11 play.lisp
--- play.lisp	27 Oct 2007 02:10:55 -0000	1.11
+++ play.lisp	23 Oct 2008 19:42:40 -0000
@@ -112,7 +112,9 @@
     (ext:run-program *midi-player*
                      :arguments (append *midi-player-arguments*
                                         (list *midi-temp-file*)))
-    #-(or cmu sbcl clisp)
+    #+allegro
+    (excl:run-shell-command (format nil "~A ~{~A~^ ~} ~A"
*midi-player* *midi-player-arguments* *midi-temp-file*) :wait nil)
+    #-(or cmu sbcl clisp allegro)
     (error "write compatibility layer for RUN-PROGRAM")))

 (defun play-layer (layer)