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

[David Psenicka]

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

Modified Files:
	classes.lisp fomus.asd test.lisp version.lisp 
Removed Files:
	CHANGELOG 
Log Message:
bug fixes
Date: Sat Sep  3 21:57:14 2005
Author: dpsenicka

Index: fomus/classes.lisp
diff -u fomus/classes.lisp:1.11 fomus/classes.lisp:1.12
--- fomus/classes.lisp:1.11	Tue Aug 30 00:28:03 2005
+++ fomus/classes.lisp	Sat Sep  3 21:57:14 2005
@@ -21,7 +21,7 @@
   ((time :type cons :accessor timesig-time :initform '(4 4) :initarg :time)
    (div :type list :accessor timesig-div :initform nil :initarg :div) ; list of divisions to force, ex: '((3 3 2) (3 2 3)) or '((3/2 1) (1 3/2))
    (comp :type boolean :accessor timesig-comp :initform nil :initarg :comp) ; t or nil
-   (beat :type (or (rational 0) null) :accessor timesig-beat :initform 1/4 :initarg :beat) ; what actually gets the beat (ex: 1/4 = quarter note, 1/4 + 1/8 = dotted quarter), compound is deterined from signature
+   (beat :type (or (rational 0) null) :accessor timesig-beat :initform nil :initarg :beat) ; what actually gets the beat (ex: 1/4 = quarter note, 1/4 + 1/8 = dotted quarter), compound is deterined from signature
    (props :type list :accessor timesig-props :initform nil :initarg :props))) 
 (defclass timesig (timesig-repl event-base)
   ((off :type (rational 0))


Index: fomus/fomus.asd
diff -u fomus/fomus.asd:1.10 fomus/fomus.asd:1.11
--- fomus/fomus.asd:1.10	Fri Sep  2 07:56:45 2005
+++ fomus/fomus.asd	Sat Sep  3 21:57:14 2005
@@ -4,7 +4,7 @@
 (asdf:defsystem "fomus"
   
   :description "Lisp music notation formatter"
-  :version "0.1.14"
+  :version "0.1.15"
   :author "David Psenicka"
   :licence "LLGPL"
 


Index: fomus/test.lisp
diff -u fomus/test.lisp:1.12 fomus/test.lisp:1.13
--- fomus/test.lisp:1.12	Fri Sep  2 07:56:45 2005
+++ fomus/test.lisp	Sat Sep  3 21:57:14 2005
@@ -808,7 +808,7 @@
 (fomus					; :auto-percussion-durs
  :backend '((:data) (:lilypond :view t))
  :ensemble-type :orchestra
- :auto-percussion-durs nil
+ :auto-percussion-durs t
  :parts (list
 	 (make-part
 	  :name "Percussion"
@@ -866,3 +866,4 @@
 ;; Grace note rests
 ;; Mark Spanners
 ;; Compound meter
+


Index: fomus/version.lisp
diff -u fomus/version.lisp:1.9 fomus/version.lisp:1.10
--- fomus/version.lisp:1.9	Fri Sep  2 07:56:45 2005
+++ fomus/version.lisp	Sat Sep  3 21:57:14 2005
@@ -12,7 +12,7 @@
 (declaim (type string +title+)
 	 (type cons +version+ +banner+))
 (defparameter +title+ "FOMUS")
-(defparameter +version+ '(0 1 14))
+(defparameter +version+ '(0 1 15))
 (defparameter +banner+
   `("Lisp music notation formatter"
     "Copyright (c) 2005 David Psenicka, All Rights Reserved"