impc:aot:suppress-aot-do   macro

(define-macro (impc:aot:suppress-aot-do . forms)
  `(if ,*impc:aot:current-output-port*
       (let ((aot-compilation-port *impc:aot:current-output-port*))
         (set! *impc:aot:current-output-port* #t)
         (begin ,@forms)
         ;; whatever happens, set the port back to the original value
         (set! *impc:aot:current-output-port* aot-compilation-port))
       (begin ,@forms)))