r8584: add downcasing to sexp output

diff --git a/logger.lisp b/logger.lisp
index 16a47aff2e5336703a96456c2aba9f48803629ce..64d94c3feb7fa6c98536c7640f88f766285702e7 100644 (file)
--- 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)