(define-macro (impc:aot:do-or-emit . forms) (if (not (output-port? *impc:aot:current-output-port*)) `(begin ,@forms) `(impc:aot:insert-forms ,@forms)))