Mercurial > hg > amuse
changeset 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 | e3d86a0f25b3 |
| children | ce12c691e661 |
| files | base/classes.lisp |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
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)