projects
/
irc-logger.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f4a678d
)
r8584: add downcasing to sexp output
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 1 Feb 2004 06:43:53 +0000
(06:43 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 1 Feb 2004 06:43:53 +0000
(06:43 +0000)
logger.lisp
patch
|
blob
|
history
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
(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
(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)
(defmethod %output-event ((format (eql :text)) stream utime type channel
source text msg unichannel)