[beirc-cvs] CVS update: beirc/receivers.lisp

[Max-Gerd Retzlaff]

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 ())