Update of /project/gsharp/cvsroot/gsharp In directory clnet:/tmp/cvs-serv9336

Modified Files: buffer.lisp Log Message: Save ties when writing a buffer to disk. (thanks to Christophe Rhodes)

--- /project/gsharp/cvsroot/gsharp/buffer.lisp 2006/02/15 02:54:26 1.34 +++ /project/gsharp/cvsroot/gsharp/buffer.lisp 2006/02/28 23:42:12 1.35 @@ -199,10 +199,11 @@ (apply #'make-instance 'note :pitch pitch :staff staff args))

(defmethod print-gsharp-object :after ((n note) stream) - (with-slots (pitch staff head accidentals dots) n + (with-slots (pitch staff head accidentals dots %tie-right %tie-left) n (format stream - "~_:pitch ~W ~_:staff ~W ~_:head ~W ~_:accidentals ~W ~_:dots ~W " - pitch staff head accidentals dots))) + "~_:pitch ~W ~_:staff ~W ~_:head ~W ~_:accidentals ~W ~_:dots ~W ~ + ~@[~_:tie-right ~W ~]~@[~_:tie-left ~W ~]" + pitch staff head accidentals dots %tie-right %tie-left)))

(defun read-note-v3 (stream char n) (declare (ignore char n))