[gsharp-cvs] CVS gsharp

[rstrandh]

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

Modified Files:
	buffer.lisp 
Log Message:
Added a few comments


--- /project/gsharp/cvsroot/gsharp/buffer.lisp	2007/01/16 05:36:40	1.41
+++ /project/gsharp/cvsroot/gsharp/buffer.lisp	2007/01/17 12:21:01	1.42
@@ -81,12 +81,17 @@
   #'read-clef-v3
   *gsharp-readtable-v3*)
 
+;;; given a clef, return the staff step of the B that should have
+;;; the first flat sign in key signatures with flats
 (defmethod b-position ((clef clef))
   (ecase (name clef)
     (:bass (- (lineno clef) 4))
     ((:treble :treble8) (+ (lineno clef) 2))
     (:c (- (lineno clef) 1))))
 
+
+;;; given a clef, return the staff step of the F that should have
+;;; the first sharp sign in key signatures with sharps
 (defmethod f-position ((clef clef))
   (ecase (name clef)
     (:bass (lineno clef))