Mercurial > hg > amuse
changeset 189:70c8d723fb8a
fix undefined *default-tempo* warning
darcs-hash:20090103010419-16a00-54f1baa3eb4d382c6c533d17af89d2b7cd73bfca.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Sat, 03 Jan 2009 01:04:19 +0000 |
| parents | 18d3480e7ec8 |
| children | 725ce7ce77ba |
| files | tools/midi-output.lisp |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))