# HG changeset patch
# User Marcus Pearce <m.pearce@gold.ac.uk>
# Date 1184686931 -3600
# Node ID 7ce34ccdcbdab511d9b13302940cdd3f6be238c6
# Parent  ae06767e84c53f08e176cac943d486ae3dd27b05
implementations/mtp: implement ASA-PITCH-STRING for MTP-EVENTs

darcs-hash:20070717154211-c0ce4-ac78fbe5b1cc5ff2fa659783d6ff09925e04a645.gz

diff -r ae06767e84c5 -r 7ce34ccdcbda implementations/mtp/methods.lisp
--- a/implementations/mtp/methods.lisp	Tue Jul 17 16:34:57 2007 +0100
+++ b/implementations/mtp/methods.lisp	Tue Jul 17 16:42:11 2007 +0100
@@ -216,6 +216,9 @@
 (defmethod diatonic-pitch ((e mtp-event))
   (diatonic-pitch (mips-pitch e)))
 
+(defmethod asa-pitch-string ((e mtp-event))
+  (asa-pitch-string (mips-pitch e)))
+
 #.(clsql:locally-enable-sql-reader-syntax)
 (defmethod middle-c ((e mtp-event))
   (let ((cpitch (car (clsql:select [midc] :from [dataset]