[CM] [PATCH] midi sequencer event import

[Mario Lang]

Hi.

Since I just tripped over this while trying to IMPORT-EVENTS one
of the midi files lying around on my hard disk, here is a patch to make
sequencer event import correctly:

Index: src/midi3.scm
===================================================================
RCS file: /cvsroot/commonmusic/cm/src/midi3.scm,v
retrieving revision 1.32
diff -u -r1.32 midi3.scm
--- src/midi3.scm	5 Jul 2005 13:08:13 -0000	1.32
+++ src/midi3.scm	3 Aug 2005 12:11:31 -0000
@@ -254,6 +254,10 @@
                           :time time
                           :offset (loop for i from 1 to 5
                                        collect (vector-ref data i))))
+		   ((sequencer-event-p m)
+                    (make <midi-sequencer-event>
+                          :time time
+                          :data data))
                    ;; FIX! add classes..,
                    ;;((midi-channel-p m) )
                    (else

-- 
CYa,
  Mario