From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 13 Jul 2004 04:36:02 +0000 (+0000)
Subject: r9761: new version, add print-object
X-Git-Tag: v0.9.3~12
X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=commitdiff_plain;h=16ac0a894c208a354443b0165d710b96f1da4982

r9761: new version, add print-object
---

diff --git a/debian/changelog b/debian/changelog
index c5c1170..10f5efc 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-irc-logger (0.9.2-1) unstable; urgency=low
+
+  * Add print-object
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 12 Jul 2004 22:35:43 -0600
+
 cl-irc-logger (0.9.1-1) unstable; urgency=low
 
   * More changes for new version of cl-irc
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*