(define impc:aot:currently-compiling? (lambda () (or (output-port? *impc:aot:current-output-port*) ;; this will be #t in a suppress-aot-do form *impc:aot:current-output-port*)))