From 16ac0a894c208a354443b0165d710b96f1da4982 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 13 Jul 2004 04:36:02 +0000 Subject: [PATCH] r9761: new version, add print-object --- debian/changelog | 6 ++++++ logger.lisp | 4 ++++ 2 files changed, 10 insertions(+) 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 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* -- 2.34.1