(impc:aot:do-or-emit (define send-midi-cc (lambda (time device cc val channel) (callback time 'pm_send device *midi-cc* channel (real->integer cc) (real->integer val)))))