# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID e3353261523ed1b3bec111946dfc3614566a6b7a
# Parent  eb4d239f5437860be55fa1ef3cab78dbdf759ea3
add FIXME to midi constructors.lisp

Ignore-this: d72d4902c4662d6885c19abc3f635e14

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

committer: Jamie Forth <j.forth@gold.ac.uk>

diff -r eb4d239f5437 -r e3353261523e implementations/midi/constructors.lisp
--- a/implementations/midi/constructors.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/implementations/midi/constructors.lisp	Thu Feb 24 11:23:18 2011 +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 (sound velocity patch
 				   channel track onset duration)
+  "FIXME: This is never called."
   (make-instance 'midi-percussive-event
 		 :sound sound
 		 :velocity velocity