r9761: new version, add print-object

diff --git a/debian/changelog b/debian/changelog
index c5c117090aafb0e16670c8ab6ccb925c2ce5e224..10f5efccd9b008587f0d29294f5aef7846d06f28 100644 (file)
--- 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 0b442ce49e7daab0e485f05ca9eed54a0bfd1dfa..82b784c5670fe4abad80e13ad88422d42671e61c 100644 (file)
--- 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*