# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1230944659 0
# Node ID 70c8d723fb8aeb91fb918e2cac6398d82ecdd115
# Parent  18d3480e7ec8d702063b9ed746690df4e76c3851
fix undefined *default-tempo* warning

darcs-hash:20090103010419-16a00-54f1baa3eb4d382c6c533d17af89d2b7cd73bfca.gz

diff -r 18d3480e7ec8 -r 70c8d723fb8a tools/midi-output.lisp
--- a/tools/midi-output.lisp	Sat Jan 03 00:55:28 2009 +0000
+++ b/tools/midi-output.lisp	Sat Jan 03 01:04:19 2009 +0000
@@ -92,11 +92,11 @@
 			     :status (+ channel 192))
 	      patch-list)
 	(setf (aref patches channel) patch)))))
-		
+
+(defparameter *default-tempo* 80)
 (defgeneric default-tempo-for-midi (anchored-period)
   (:method ((o standard-anchored-period))
     (make-standard-tempo-period *default-tempo* (timepoint o) (duration o))))
-(defparameter *default-tempo* 80)
 
 (defgeneric global-messages (sequence)
   (:method (s) (declare (ignore s)) nil))