(define-macro (sys:with-noisy-compiler . form) `(let ((msglvl *impc:compiler:message:level*)) (set! *impc:compiler:message:level* 'high) (let ((res (catch #f ,@form))) (set! *impc:compiler:message:level* msglvl) res)))