changeset 257:30b6b848ec75

add comment explaining the linked events loop in %init-midifile-comp
author Jamie Forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 18:40:23 +0000
parents bc893627f92d
children aac79c0ac1b9
files implementations/midi/midifile-import.lisp
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/implementations/midi/midifile-import.lisp	Thu Feb 24 18:39:57 2011 +0000
+++ b/implementations/midi/midifile-import.lisp	Thu Feb 24 18:40:23 2011 +0000
@@ -129,7 +129,7 @@
       (sequence:adjust-sequence composition
 				(length notes)
 				:initial-contents (sort notes #'time<))
-      (sequence:dosequence (e composition t)
+      (sequence:dosequence (e composition t) ;; link events to composition
 	(%set-composition composition e))
       composition)))