anchor.diff:  called by the INSPECT-OBJECT methods for both standard objects and
   structure objects."
     (let ((class (class-of object)))
  -    (inspector-table
  -     (print (class-name class) pane)
  -     (when (clim-mop:class-direct-superclasses class)
  -       (inspector-table-row
  -	(princ "Superclasses" pane)
  -	(inspect-vertical-list (clim-mop:class-direct-superclasses class)
  -			       pane)))
  -     (when (clim-mop:class-direct-subclasses class)
  -       (inspector-table-row
  -	(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
  -		 (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>"))))))))
  +    (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>"))))))))
   
   ;; 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:       (pane object (presentation-type-of object))
      (princ 'hash-table pane)))
  (defmethod inspect-object ((object hash-table) pane)
    (inspector-table
        (format pane "~A (test: ~A)" 'hash-table (hash-table-test object))
      (loop for key being the hash-keys of object
            do (formatting-row (pane)
  	       (formatting-cell (pane :align-x :right)
  
negative.code:   (inspect-complex object pane))
  
  (defmethod inspect-object ((object float) pane)
    (inspector-table (object pane)
      (format pane "float ~S" object)
      (multiple-value-bind (significand exponent sign)
          (decode-float object)
        (inspector-table-row (pane)
          (princ "sign:")
          (inspect-object sign pane))
        (inspector-table-row (pane)
          (princ "significand:")
          (inspect-object significand pane))
        (inspector-table-row (pane)
          (princ "exponent:")
          (inspect-object exponent pane)))
      (inspector-table-row (pane)
        (princ "radix:")
        (inspect-object (float-radix object) pane))))
  
  (defmethod inspect-object-briefly ((object symbol) pane)
    (with-output-as-presentation
  