[fomus-cvs] CVS update: fomus/classes.lisp fomus/version.lisp

[David Psenicka]

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"