(impc:aot:do-or-emit
(define play-midi-note
(lambda (time device pitch velocity duration channel)
(callback time 'pm_send device *midi-note-on* channel pitch velocity)
(callback (+ time duration) 'pm_send device *midi-note-off* channel pitch velocity))))