4 Apr
2011
4 Apr
'11
5:59 p.m.
Hi,
For ACCESS-LOG-DESIGNATION default value is *ERROR-OUTPUT*. It is the cause of littering REPL for SLIME users. Maybe better use NIL as default and for suppress logging use a keyword :suppress?
(defmethod acceptor-access-log-destination ((acceptor acceptor)) (let ((destination (slot-value acceptor 'access-log-destination))) (case destination ((nil) *error-output*) (:suppress nil) (otherwise destination))))
In this case, the logging will be sent to *inferior-lisp* and will not interfere with.
Andrey