Update of /project/fomus/cvsroot/fomus In directory common-lisp.net:/tmp/cvs-serv6113

Modified Files: backend_mid.lisp Log Message: bug fix Date: Sat Oct 1 19:37:58 2005 Author: dpsenicka

Index: fomus/backend_mid.lisp diff -u fomus/backend_mid.lisp:1.2 fomus/backend_mid.lisp:1.3 --- fomus/backend_mid.lisp:1.2 Sat Oct 1 19:28:29 2005 +++ fomus/backend_mid.lisp Sat Oct 1 19:37:58 2005 @@ -396,5 +396,5 @@ evs)) (setf xta (loop for e in (split-into-groups xta #'type-of) nconc (delete-duplicates e :key #'midi-ch))) (if (typep play 'boolean) - (apply *cm-events* (print (nconc xta evs)) filename :tempo tempo :play play cmargs) + (apply *cm-events* (nconc xta evs) filename :tempo tempo :play play cmargs) (apply *cm-rts* (nconc xta evs) play :tempo tempo cmargs)))))