From 0480f341d8f57f0d3e44f33b00bb2e7efdb1264b Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 17 Dec 2003 00:10:11 +0000
Subject: [PATCH] r8350: conditionalize user-address

---
 logger.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/logger.lisp b/logger.lisp
index a1b8f5b..277a783 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
-- 
2.34.1