Index: beirc.lisp
===================================================================
RCS file: /project/beirc/cvsroot/beirc/beirc.lisp,v
retrieving revision 1.17
diff -r1.17 beirc.lisp
69a70,79
> (defun slot-value-or-something (object &key (slot 'name) (something "without name"))
>   (if (slot-boundp object slot)
>       (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)))
> 
222a233
>    (pointer-doc :pointer-documentation)
248a260
>          (20 pointer-doc)
404c416,420
<     (receiver-pane receiver beirc)
---
>     (receiver-pane receiver beirc
>        :documentation ((object stream)
>                        (format stream "Reiceiver: ~A"
>                                (title (receiver-from-tab-pane
>                                        (find-in-tab-panes-list object 'tab-layout-pane))))))