Mercurial > hg > amuse

diff base/methods.lisp @ 45:0f31919a855d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implement and export KEY-SIGNATURE-MODE, export {MAKE-,}MIDI-KEY-SIGNATURE. darcs-hash:20070614181742-aa3d6-8a81a04b3df6db990c71a8aef653b69249e331c8.gz
author m.pearce <m.pearce@gold.ac.uk>
date Thu, 14 Jun 2007 19:17:42 +0100
parents 81b4228e26f5
children 8b31d54c95be
line wrap: on
line diff
--- a/base/methods.lisp	Thu Jun 14 17:02:42 2007 +0100
+++ b/base/methods.lisp	Thu Jun 14 19:17:42 2007 +0100
@@ -33,6 +33,9 @@
 (defmethod key-signature-sharps ((key-signature basic-key-signature))
   (%basic-key-signature-sharp-count key-signature))
 
+(defmethod key-signature-mode ((ks midi-key-signature))
+  (%midi-key-signature-mode ks))
+
 (defmethod bpm ((tempo tempo))
   (%tempo-bpm tempo))