(bind-type XTM_MIDI_EVT <i32,i32,i32,i32,i32,double> (printer? . #f)) (bind-func get_midi_evt_type (lambda (obj:XTM_MIDI_EVT*) (if (null? obj) -1 (tref obj 0))))