X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=blobdiff_plain;f=logger.lisp;fp=logger.lisp;h=82b784c5670fe4abad80e13ad88422d42671e61c;hp=0b442ce49e7daab0e485f05ca9eed54a0bfd1dfa;hb=16ac0a894c208a354443b0165d710b96f1da4982;hpb=5516c70e7bfcb8e8dce5e2e82383cb85f476745f

diff --git a/logger.lisp b/logger.lisp
index 0b442ce..82b784c 100644
--- a/logger.lisp
+++ b/logger.lisp
@@ -67,6 +67,10 @@
 		  :documentation
 		  "Time of last, potentially active, warning message.")))
 
+(defmethod print-object ((obj logger) stream)
+  (print-unreadable-object (obj stream :type t :identity t)
+    (format stream "~A" (l-nickname obj))))
+
 (defvar *loggers* nil "List of active loggers.")
 
 (defparameter *user-address-scanner*