[slime-devel] Re: significance of *error-output*/*standard-output* in the REPL

[thompson at fresno.edu]

Quoting Nikodemus Siivola <nikodemus at random-state.net>:

> hbabcockos1 at 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