(define impc:compiler:print-not-during-aot-error
(lambda (message)
(print-with-colors *impc:compiler:pretty-print-error-color*
'default #t (print "Compiler Error"))
(print " cannot access LLVM during AOT-compilation.")
(println)
(if (impc:aot:currently-compiling?)
(quit 2)
(throw ""))))