# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1265969940 0
# Node ID 819277b20b9867273c97e98862efddb6a5fcc87f
# Parent  a85c59bcd88b40140044d4388fa0f176239cffb4
add FIXME to midi constructors.lisp

Ignore-this: d72d4902c4662d6885c19abc3f635e14

darcs-hash:20100212101900-16a00-ca88b828e6abd2ed694620a08b874e68c7ee9201.gz

diff -r a85c59bcd88b -r 819277b20b98 implementations/midi/constructors.lisp
--- a/implementations/midi/constructors.lisp	Fri Feb 12 10:15:20 2010 +0000
+++ b/implementations/midi/constructors.lisp	Fri Feb 12 10:19:00 2010 +0000
@@ -5,6 +5,7 @@
 
 (defun make-midi-pitched-event (pitch-number velocity patch
 				channel track onset duration)
+  "FIXME: This is never called."
   (make-instance 'midi-pitched-event
 		 :number pitch-number
 		 :velocity velocity
@@ -16,6 +17,7 @@
 
 (defun make-midi-percussive-event (pitch-number velocity patch
 				   channel track onset duration)
+  "FIXME: This is never called."
   (make-instance 'midi-percussive-event
 		 :sound pitch-number
 		 :velocity velocity