# HG changeset patch
# User David Lewis <d.lewis@gold.ac.uk>
# Date 1185535469 -3600
# Node ID f07d4596290b4e031d601448e00b906f559aced8
# Parent  d574d015f5af4a3df04129131399400c6c841532
Key-sig support in midi library

darcs-hash:20070727112429-f76cc-0e47bea65bc3f0eb90749a023442e992104a88b2.gz

diff -r d574d015f5af -r f07d4596290b implementations/midi/midifile-import.lisp
--- a/implementations/midi/midifile-import.lisp	Fri Jul 27 12:23:32 2007 +0100
+++ b/implementations/midi/midifile-import.lisp	Fri Jul 27 12:24:29 2007 +0100
@@ -91,8 +91,8 @@
 	     (push (make-instance 'midi-key-signature
 				  :time (/ (midi:message-time event)
 					   division)
-				  :sharp-count (message-sf event)
-				  :mode (message-mi event))
+				  :sharp-count (midi:message-sf event)
+				  :mode (midi:message-mi event))
 		   key-sigs))
 	    ((typep event 'midi:tempo-message)
 	     (when tempi
@@ -127,7 +127,7 @@
 										:numerator 4
 										:denominator 4)))
 				      :tempi (sort tempi #'time<)
-				      :key-signatures (sort key-signatures #'time<))))
+				      :key-signatures (sort key-sigs #'time<))))
       (sequence:adjust-sequence composition
 				(length notes)
 				:initial-contents (sort notes #'time<)))))