(define suppress-compiler-messages (lambda (bool) (if bool (set! *impc:compiler:message:level* 'low) (set! *impc:compiler:message:level* 'high))))