Update of /project/fomus/cvsroot/fomus In directory common-lisp.net:/tmp/cvs-serv1703

Modified Files: classes.lisp version.lisp Log Message: another bug fix Date: Fri Nov 11 23:38:17 2005 Author: dpsenicka

Index: fomus/classes.lisp diff -u fomus/classes.lisp:1.12 fomus/classes.lisp:1.13 --- fomus/classes.lisp:1.12 Sat Sep 3 21:57:14 2005 +++ fomus/classes.lisp Fri Nov 11 23:38:17 2005 @@ -37,7 +37,7 @@ (voice :type (or (integer 1 4) cons) :accessor event-voice :initform 1 :initarg :voice))) ;

(defclass dur-base (mark) - ((dur :type (or (real 0) symbol cons) :accessor event-dur :initform 1 :initarg :dur))) ; rational number or (num . grace), grace = integer <0 if w/ slash (in some situations, effects how algorithm sees vertical alignment) + ((dur :type (or real symbol cons) :accessor event-dur :initform 1 :initarg :dur))) ; rational number or (num . grace), grace = integer <0 if w/ slash (in some situations, effects how algorithm sees vertical alignment) (defclass note (dur-base) ((note :type (or real symbol cons) :accessor event-note :initform nil :initarg :note))) ; number, symbol, or cons of note num/sym and accidental: -1, 0 or 1 (or -2 or 2), or list of possibilities #+sbcl

Index: fomus/version.lisp diff -u fomus/version.lisp:1.16 fomus/version.lisp:1.17 --- fomus/version.lisp:1.16 Fri Nov 11 23:03:16 2005 +++ fomus/version.lisp Fri Nov 11 23:38:17 2005 @@ -12,7 +12,7 @@ (declaim (type string +title+) (type cons +version+ +banner+)) (defparameter +title+ "FOMUS") -(defparameter +version+ '(0 1 21)) +(defparameter +version+ '(0 1 22)) (defparameter +banner+ `("Lisp music notation formatter" "Copyright (c) 2005 David Psenicka, All Rights Reserved"