anchor.diff:        (prin1 object))))
   
   (defmethod inspect-object ((object symbol) pane)
  -  (inspector-table
  +  (inspector-table (object pane)
       (format pane "Symbol ~S" (symbol-name object))
  -    (inspector-table-row
  -       (princ "value:")
  -       (if (boundp object)
  -         (inspect-object (symbol-value object) pane)
  -         (princ "unbound")))
  -    (inspector-table-row
  -       (princ "function:")
  -       (if (fboundp object)
  -         (inspect-object (symbol-function object) pane)
  -         (princ "unbound")))
  +    (inspector-table-row (pane)
  +      (princ "value:")
  +      (if (boundp object)
  +	  (inspect-object (symbol-value object) pane)
  +	  (princ "unbound")))
  +    (inspector-table-row (pane)
  +      (princ "function:")
  +      (if (fboundp object)
  +	  (inspect-object (symbol-function object) pane)
  +	  (princ "unbound")))
       ;; This is not, strictly speaking, a property of the
       ;; symbol. However, this is useful enough that I think it's worth
       ;; including here, since it can eliminate some minor annoyances.
  -    (inspector-table-row
  -       (princ "class:")
  -       (if (find-class object nil)
  -         (inspect-object (find-class object) pane)
  -         (princ "unbound")))
  -    (inspector-table-row
  -       (princ "package:")
  -       (inspect-object (symbol-package object) pane))
  -    (inspector-table-row
  -       (princ "propery list:")
  -       (dolist (property (symbol-plist object))
  -         (inspect-object property pane)))))
  +    (inspector-table-row (pane)
  +      (princ "class:")
  +      (if (find-class object nil)
  +	  (inspect-object (find-class object) pane)
  +	  (princ "unbound")))
  +    (inspector-table-row (pane)
  +      (princ "package:")
  +      (inspect-object (symbol-package object) pane))
  +    (inspector-table-row (pane)
  +      (princ "propery list:")
  +      (dolist (property (symbol-plist object))
  +	(inspect-object property pane)))))
   
   ;; Characters are so short that displaying them as "..."  takes almost
   ;; as much space as just showing them, and this way is more
  
positive.code: 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>"))))))))
  
  ;; Try to print the normal, textual representation of an object, but
  ;; if that's too long, make an abbreviated "instance of ~S" version.
  
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
  