X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=logger.lisp;h=1382ef49e434480fb596d29794c809abac14f3d6;hb=d4a5de1524414db2ad17e5a79c2f84b7799ce91b;hp=a1b8f5b2be15b62d2dcce262d8ff7c9674a63068;hpb=c12932912e292d322e6451aa4357c48863a8ecc0;p=irc-logger.git

diff --git a/logger.lisp b/logger.lisp
index a1b8f5b..1382ef4 100644
--- 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
-       (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
@@ -269,7 +269,7 @@
   (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)))