[gsharp-cvs] CVS gsharp

[rstrandh]

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