r8350: conditionalize user-address

[irc-logger.git] / logger.lisp

diff --git a/logger.lisp b/logger.lisp
index a1b8f5b2be15b62d2dcce262d8ff7c9674a63068..277a7830dbc670f7a4b8a6ff853ccf336a5d6ad1 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
-       (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