(defmethod %output-event ((format (eql :sexp)) stream utime type channel source text
msg unichannel)
(with-standard-io-syntax
- (if unichannel
- (format stream "(~S ~S ~S ~S ~S)~%" utime type source text (last-sexp-field type msg))
+ (let ((cl:*print-case* :downcase))
+ (if unichannel
+ (format stream "(~S ~S ~S ~S ~S)~%" utime type source text (last-sexp-field type msg))
(format stream "(~S ~S ~S ~S ~S ~S)~%" utime type source channel text
- (last-sexp-field type msg)))))
+ (last-sexp-field type msg))))))
(defmethod %output-event ((format (eql :text)) stream utime type channel
source text msg unichannel)