anchor.diff:    (inspect-complex object pane))
   
   (defmethod inspect-object ((object float) pane)
  -  (inspector-table
  +  (inspector-table (object pane)
       (format pane "float ~S" object)
       (multiple-value-bind (significand exponent sign)
           (decode-float object)
  -      (inspector-table-row
  +      (inspector-table-row (pane)
           (princ "sign:")
           (inspect-object sign pane))
  -      (inspector-table-row
  +      (inspector-table-row (pane)
           (princ "significand:")
           (inspect-object significand pane))
  -      (inspector-table-row
  +      (inspector-table-row (pane)
           (princ "exponent:")
           (inspect-object exponent pane)))
  -    (inspector-table-row
  -       (princ "radix:")
  -       (inspect-object (float-radix object) pane))))
  +    (inspector-table-row (pane)
  +      (princ "radix:")
  +      (inspect-object (float-radix object) pane))))
   
   (defmethod inspect-object-briefly ((object symbol) pane)
     (with-output-as-presentation
  
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:       (princ (package-name object) pane))))
  
  (defmethod inspect-object ((object package) pane)
    (inspector-table (object pane)
      (format pane "Package: ~S" (package-name object))
      (inspector-table-row (pane)
        (princ "Name:" pane)
        (inspect-object (package-name object) pane))
      (inspector-table-row (pane)
        (princ "Nicknames:" pane)
        (inspect-vertical-list (package-nicknames object) pane))
      (inspector-table-row (pane)
        (princ "Used by:")
        (inspect-vertical-list (package-used-by-list object) pane))
      (inspector-table-row (pane)
        (princ "Uses:")
        (inspect-vertical-list (package-use-list object) pane))))
  
  