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