anchor.diff:  	(formatting-column (pane)
   	  (formatting-cell (pane)
               (with-output-as-presentation
  -                (pane object (presentation-type-of object))
  +                (pane object 'cons)
                 (draw-rectangle* pane 0 0 20 10 :filled nil))
   	    (draw-line* pane 10 0 10 10)
   	    (draw-arrow* pane 5 5 5 30)
  
positive.code:                    (print (method-qualifiers method)))
                   (loop for specializer in (clim-mop:method-specializers method)
                      do (formatting-cell (pane)
                           (format pane "~s " (class-name specializer)))))))))
  
  (defun pretty-print-function (fun)
    "Print a function in a readable way, returning a string. On most
  
negative.code:   (destructuring-bind (object . slot-name) slot
      (let* ((stream (get-frame-pane *application-frame* 'int))
  	   (class (class-of object))
  	   (documentation (handler-bind ((warning #'muffle-warning))
  			    (slot-documentation class slot-name)))
  	   (slot-object (find slot-name (clim-mop:class-slots class)
  			      :key #'clim-mop:slot-definition-name)))
        (when documentation
  