Mercurial > hg > amuse
changeset 57:f308c2b7b796
base/classes.lisp: add print-object for midi-key-signature
darcs-hash:20070621141636-c0ce4-0b635e10218ab7bb492f2fc46f48bf672de13eb8.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Thu, 21 Jun 2007 15:16:36 +0100 |
| parents | 13033824fa7d |
| children | 48661eb2da71 |
| files | base/classes.lisp |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/base/classes.lisp Thu Jun 21 15:15:36 2007 +0100 +++ b/base/classes.lisp Thu Jun 21 15:16:36 2007 +0100 @@ -81,6 +81,12 @@ ((mode :accessor %midi-key-signature-mode :initarg :mode))) +(defmethod print-object ((mks midi-key-signature) stream) + (format stream "#<~A ~A ~A>" + (symbol-name (class-name (class-of mks))) + (%basic-key-signature-sharp-count mks) + (%midi-key-signature-mode mks))) + (defclass tempo (anchored-period) ;; accel and rit in symbolic encoding will need other structures, as ;; will textual tempo markings.