# HG changeset patch
# User m.pearce <m.pearce@gold.ac.uk>
# Date 1181910018 -3600
# Node ID cace0cf82aee61f1f7d70ab96131ee31e26d487d
# Parent  e3d86a0f25b39242eeb263a383e6a1e0952868d1
make basic-time-signature a subclass of time-signature

darcs-hash:20070615122018-aa3d6-eaed6e10f34a7de1aa4af1bb3f57b3c4d29d09ad.gz

diff -r e3d86a0f25b3 -r cace0cf82aee base/classes.lisp
--- a/base/classes.lisp	Fri Jun 15 12:24:17 2007 +0100
+++ b/base/classes.lisp	Fri Jun 15 13:20:18 2007 +0100
@@ -60,7 +60,7 @@
 
 (defclass time-signature (anchored-period) ())
 
-(defclass basic-time-signature (anchored-period)
+(defclass basic-time-signature (time-signature)
   ;; N.B. Can only deal with numeric signatures
   ((numerator :accessor %basic-time-signature-numerator
 	      :initarg :numerator)