Index: play.lisp
===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/play.lisp,v
retrieving revision 1.3
diff -u -r1.3 play.lisp
--- play.lisp	14 Feb 2006 18:16:03 -0000	1.3
+++ play.lisp	28 Feb 2006 15:41:17 -0000
@@ -24,13 +24,13 @@
 				     :time time
 				     :status (+ #x90 channel)
 				     :key (midi-pitch note) :velocity 100))
-		    (notes element))
+		    (remove-if #'tie-left (notes element)))
 	    (mapcar (lambda (note)
 		      (make-instance 'note-off-message
 				     :time (+ time (* 128 (duration element)))
 				     :status (+ #x80 channel)
 				     :key (midi-pitch note) :velocity 100))
-		    (notes element)))))
+		    (remove-if #'tie-right (notes element))))))
 
 (defun events-from-bar (bar time channel)
   (mapcan (lambda (element)
