(bind-func rtmidi_send (lambda (dev:RtMidiOutPtr type chan a b) (let ((msg:i8* (salloc 3))) (pfill! msg (+ (<< type 4) chan) a b) (rtmidi_out_send_message dev msg 3))))