Plaster

(defmacro stfu (&body body) "I mean it." (let ((nowhere (gensym))) `(let (,nowhere) (unwind-protect (progn ;; A broadcast stream with no output streams. (setf ,nowhere (make-broadcast-stream)) (let ((*standard-output* ,nowhere) (*error-output* ,nowhere) (*debug-io* ,nowhere) (*trace-output* ,nowhere) (*load-print* nil) (*load-verbose* nil) (asdf::*verbose-out* nil)) ,@body)) (when ,nowhere (close ,nowhere))))))