anchor.diff:  structure objects."
     (let ((class (class-of object)))
       (inspector-table (object pane)
  -      (print (class-name class) pane)
  -      (when (clim-mop:class-direct-superclasses class)
  -	(inspector-table-row (pane)
  -	  (princ "Superclasses" pane)
  -	  (inspect-vertical-list (clim-mop:class-direct-superclasses class)
  -				 pane)))
  -      (when (clim-mop:class-direct-subclasses class)
  -	(inspector-table-row (pane)
  -	  (princ "Subclasses" pane)
  -	  (inspect-vertical-list (clim-mop:class-direct-subclasses class)
  -				 pane)))
  -      (loop for slot in (reverse (clim-mop:class-slots class))
  -	    do (let ((slot-name (clim-mop:slot-definition-name slot)))
  -		 (inspector-table-row (pane)
  -		   (with-output-as-presentation
  -		       (pane (cons object slot-name) 'settable-slot)
  -		     (format pane "~a:" slot-name))
  -		   (if (slot-boundp object slot-name)
  -		       (inspect-object (slot-value object slot-name) pane)
  -		       (format pane "#<unbound slot>"))))))))
  +	(print (class-name class) pane)
  +      ;; Display superclasses and subclasses
  +      (display-class-superclasses class pane)
  +      (display-class-subclasses class pane)
  +      (dolist (slot (reverse (clim-mop:class-slots class)))
  +	(display-object-slot object slot pane)))))
  +
  +(defun inspect-standard-class (object pane)
  +  "Inspect a STANDARD-CLASS. This works almost the same way as
  +inspecting a standard object, but with a few differences. This should
  +also be used to inspect BUILD-IN-CLASSes."
  +  (let ((class (class-of object)))
  +    (inspector-table (object pane)
  +	(print (class-name class) pane)
  +      ;; Display superclasses and subclasses
  +      (display-class-superclasses class pane)
  +      (display-class-subclasses class pane)
  +      (dolist (slot (reverse (clim-mop:class-slots class)))
  +	(display-object-slot object slot pane
  +			     :display-lists-vertically t)))))
   
   ;; Try to print the normal, textual representation of an object, but
   ;; if that's too long, make an abbreviated "instance of ~S" version.
  
positive.code:   "Cause text output from BODY to be formatted in a heading font. This
  could be boldface, or a different style, or even another font."
    `(with-text-face (,stream :bold)
       ,@body))
  
  (defmacro inspector-table ((object pane) header &body body)
    "Present OBJECT in tabular form on PANE, with HEADER evaluated to
  
negative.code: (defmethod inspect-object-briefly (object pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (princ "..." pane)))
  
  (defmethod inspect-object (object pane)
    (with-output-as-presentation
  