From 3161d0d5e88c7c9e9a29fac9dca67c082f807651 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 1 Feb 2004 06:43:53 +0000 Subject: [PATCH] r8584: add downcasing to sexp output --- logger.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/logger.lisp b/logger.lisp index 16a47af..64d94c3 100644 --- a/logger.lisp +++ b/logger.lisp @@ -269,10 +269,11 @@ (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) -- 2.34.1