# HG changeset patch
# User Jamie Forth <j.forth@gold.ac.uk>
# Date 1298572823 0
# Node ID 30b6b848ec75aca8607393fecdcc56847474c6dc
# Parent  bc893627f92d204a8e4cc551ed33d7647539c2d8
add comment explaining the linked events loop in %init-midifile-comp

diff -r bc893627f92d -r 30b6b848ec75 implementations/midi/midifile-import.lisp
--- 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)))