[fomus-cvs] CVS update: fomus/backend_mid.lisp

[David Psenicka]

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