anchor.diff:         (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.
  
positive.code:   (destructuring-bind (object . slot-name) slot
      (let* ((stream (get-frame-pane *application-frame* 'int))
  	   (class (class-of object))
  	   (documentation (slot-documentation class slot-name))
  	   (slot-object (find slot-name (clim-mop:class-slots class)
  			      :key #'clim-mop:slot-definition-name)))
        (when documentation
  
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
  