mcc   macro

(impc:aot:do-or-emit
  (define-macro (mcc . args)
    (if (symbol? (car args))
        `(send-midi-cc (+ (*metro* beat) *midioffset*) ,(car args)
                        (real->integer ,(cadr args))
                        (real->integer ,(caddr args))
                        (real->integer ,(car (cdddr args))))
        `(send-midi-cc (+ (*metro* (+ beat ,(car args))) *midioffset*) ,(cadr args)
                        (real->integer ,(caddr args))
                        (real->integer ,(car (cdddr args)))
                        (real->integer ,(car (cddddr args)))))))