Quoting Nikodemus Siivola nikodemus@random-state.net:
hbabcockos1@mac.com writes:
You might try: (declaim (sb-ext:muffle-conditions sb-ext:compiler-note))
Unfortunately the messages he describes are from ERRORs, which cannot be muffled.
If you call COMPILE-FILE yourself, then the old
(let ((*error-output* (make-broadcase-stream))) (compile-file "foo.lisp" :print nil))
should work perfecctly. No room for slime to snarf the stream there.
Thanks! The limited muffling ability of SBCL was indeed a problem...
CL-USER> (locally (declare (sb-ext:muffle-conditions sb-ext:compiler-note style-warning error)) (eval '(KSAND ((((KDWT) (KSOR))) D1 KSOR) KNOT))) ; in: LAMBDA NIL ; ((((KDWT) (KSOR))) D1 KSOR) ; ; caught ERROR: ; illegal function call ; ; compilation unit finished ; caught 1 ERROR condition ; Evaluation aborted CL-USER> (let ((*error-output* (make-broadcast-stream))) (eval '(KSAND ((((KDWT) (KSOR))) D1 KSOR) KNOT))) ; Evaluation aborted CL-USER>
---------------------------------------------------------------- This email was scanned for viruses, FPU