From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 1 Feb 2004 06:43:53 +0000 (+0000)
Subject: r8584: add downcasing to sexp output
X-Git-Tag: v0.9.3~26
X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=commitdiff_plain;h=3161d0d5e88c7c9e9a29fac9dca67c082f807651

r8584: add downcasing to sexp output
---

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)