Update of /project/beirc/cvsroot/beirc In directory common-lisp.net:/tmp/cvs-serv635
Modified Files: receivers.lisp Log Message: The method PRINT-OBJECT ((receiver receiver) stream) is changed: As we have the needed accept-methods for the presentation-type RECEIVER, we can just write the receiver's title (if it is available).
Date: Wed Oct 5 15:08:30 2005 Author: mretzlaff
Index: beirc/receivers.lisp diff -u beirc/receivers.lisp:1.11 beirc/receivers.lisp:1.12 --- beirc/receivers.lisp:1.11 Mon Oct 3 01:47:51 2005 +++ beirc/receivers.lisp Wed Oct 5 15:08:29 2005 @@ -16,10 +16,14 @@ (slot-value object slot) something))
+;;; (defmethod print-object ((receiver receiver) stream) +;;; (print-unreadable-object (receiver stream :type t) +;;; (write-string (slot-value-or-something receiver :slot 'title :something "without title") +;;; stream))) +;;; We have the needed accept-methods for the presentation-type receiver, so we can just write: (defmethod print-object ((receiver receiver) stream) - (print-unreadable-object (receiver stream :type t) - (write-string (slot-value-or-something receiver :slot 'title :something "without title") - stream))) + (write-string (slot-value-or-something receiver :slot 'title :something "#<RECEIVER without title>") + stream))
(define-presentation-type receiver-pane ())