projects
/
irc-logger.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8351: updates
[irc-logger.git]
/
logger.lisp
diff --git
a/logger.lisp
b/logger.lisp
index a1b8f5b2be15b62d2dcce262d8ff7c9674a63068..1382ef49e434480fb596d29794c809abac14f3d6 100644
(file)
--- a/
logger.lisp
+++ b/
logger.lisp
@@
-222,7
+222,7
@@
(:kick
(format stream "-!- ~A [~A] has been kicked from ~A" source user-address channel))
(:quit
(:kick
(format stream "-!- ~A [~A] has been kicked from ~A" source user-address channel))
(:quit
- (format stream "-!- ~A [~A] has quit [~A]" source user-address
text
))
+ (format stream "-!- ~A [~A] has quit [~A]" source user-address
(if text text "")
))
(:mode
(format stream "-!- ~A has set mode ~A" source text))
(:topic
(:mode
(format stream "-!- ~A has set mode ~A" source text))
(:topic
@@
-269,7
+269,7
@@
(output-event msg :part (first (arguments msg))))
(defun quit-hook (msg)
(output-event msg :part (first (arguments msg))))
(defun quit-hook (msg)
- (output-event msg :quit (trailing-argument msg)))
+ (output-event msg :quit
nil
(trailing-argument msg)))
(defun join-hook (msg)
(output-event msg :join (trailing-argument msg)))
(defun join-hook (msg)
(output-event msg :join (trailing-argument msg)))