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

Modified Files: buffer.lisp Log Message: Allow clefs to be put on lines 0 and 8 of a staff. (Necessary for the Soprano C clef, found in early music). Note that key signature display code will probably have to be reworked to cater for such outlandish clefs.

--- /project/gsharp/cvsroot/gsharp/buffer.lisp 2007/09/14 15:48:05 1.51 +++ /project/gsharp/cvsroot/gsharp/buffer.lisp 2007/09/14 15:57:21 1.52 @@ -59,11 +59,11 @@ (defclass clef (gsharp-object name-mixin) ((print-character :allocation :class :initform #\K) (lineno :reader lineno :initarg :lineno - :type (or (integer 2 6) null)))) + :type (or (integer 0 8) null))))

(defun make-clef (name &key lineno) (declare (type (member :treble :treble8 :bass :c :percussion) name) - (type (or (integer 2 6) null) lineno)) + (type (or (integer 0 8) null) lineno)) (when (null lineno) (setf lineno (ecase name