comparison implementations/midi/midifile-import.lisp @ 249:bba5e8571b92

Hack in linked-events for the midi package.

Some refactoring of the constructors for this and geerdes might be helpful,
since neither lend themselves to using initialize-instance for performing
the linking.

 				      :key-signatures (sort key-sigs #'time<)
 				      :identifier identifier
 				      :midi-timebase division)))
       (sequence:adjust-sequence composition
 				(length notes)
-				:initial-contents (sort notes #'time<)))))
+				:initial-contents (sort notes #'time<))
+      (sequence:dosequence (e composition t)
+	(%set-composition composition e))
+      composition)))
 
 (defun make-event-from-on-off-pair (note-on cut-off divisions track patch)
   (cond
     ((or (= (midi:message-channel note-on) 9)
 	 (> patch 111))