comparison base/classes.lisp @ 57:f308c2b7b796

base/classes.lisp: add print-object for midi-key-signature

darcs-hash:20070621141636-c0ce4-0b635e10218ab7bb492f2fc46f48bf672de13eb8.gz

   ;; Is mode ever used in real life? Is it ever accurately used in
   ;; real life?
   ((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.
   ((bpm :accessor %tempo-bpm
 	:initarg :bpm)))