Mercurial > hg > amuse
diff base/classes.lisp @ 48:cace0cf82aee
make basic-time-signature a subclass of time-signature
darcs-hash:20070615122018-aa3d6-eaed6e10f34a7de1aa4af1bb3f57b3c4d29d09ad.gz
| author | m.pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Fri, 15 Jun 2007 13:20:18 +0100 |
| parents | 085c1728480c |
| children | f308c2b7b796 |
line wrap: on
line diff
--- 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)