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:        (princ "propery list:")
         (dolist (property (symbol-plist object))
           (inspect-object property pane)))))
  (make-instance 'packrat)
  ;; Characters are so short that displaying them as "..."  takes almost
  ;; as much space as just showing them, and this way is more
  ;; informative.
  
negative.code:   (let ((class (class-of object)))
      (inspector-table
       (print (class-name class) pane)
       (when (clim-mop:class-direct-superclasses class)
         (inspector-table-row
  	(format pane "Superclasses")
  	(dolist (superclass (clim-mop:class-direct-superclasses class))
  	  (inspect-object superclass pane)
  	  (terpri pane))))
       (when (clim-mop:class-direct-subclasses class)
         (inspector-table-row
  	(format pane "Subclasses")
  	(dolist (subclass (clim-mop:class-direct-subclasses class))
  	  (inspect-object subclass pane)
  	  (terpri pane))))
       (loop for slot in (reverse (clim-mop:class-slots class))
  	   do (let ((slot-name (clim-mop:slot-definition-name slot)))
  		(inspector-table-row
  