anchor.diff:    (inspector-table (object pane)
         (format pane "Symbol ~S" (symbol-name object))
       (inspector-table-row (pane)
  -	(princ "value:")
  +	(princ "value:" pane)
         (if (boundp object)
   	  (inspect-object (symbol-value object) pane)
  -	  (princ "unbound")))
  -    (inspector-table-row (pane)
  -	(princ "function:")
  +	  (princ "unbound" pane)))
  +    (inspector-table-row (pane)
  +	(princ "function:" pane)
         (if (fboundp object)
   	  (inspect-object (symbol-function object) pane)
  -	  (princ "unbound")))
  +	  (princ "unbound" pane)))
       ;; 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 (pane)
  -	(princ "class:")
  +	(princ "class:" pane)
         (if (find-class object nil)
   	  (inspect-object (find-class object) pane)
  -	  (princ "unbound")))
  -    (inspector-table-row (pane)
  -	(princ "package:")
  +	  (princ "unbound" pane)))
  +    (inspector-table-row (pane)
  +	(princ "package:" pane)
         (inspect-object (symbol-package object) pane))
       (inspector-table-row (pane)
  -	(princ "propery list:")
  +	(princ "propery list:" pane)
         (dolist (property (symbol-plist object))
   	(inspect-object property pane)))))
   
  
positive.code:       (format pane "Float ~S" object)
      (multiple-value-bind (significand exponent sign)
          (decode-float object)
        (inspector-table-row (pane)
  	  (princ "sign:" pane)
          (inspect-object sign pane))
        (inspector-table-row (pane)
  	  (princ "significand:" pane)
          (inspect-object significand pane))
        (inspector-table-row (pane)
  	  (princ "exponent:" pane)
          (inspect-object exponent pane)))
      (inspector-table-row (pane)
  	(princ "radix:" pane)
        (inspect-object (float-radix object) pane))))
  
  (defmethod inspect-object ((object integer) pane)
    (inspector-table (object pane)
        (format pane "Integer ~S" object)
      (inspector-table-row (pane)
  	(princ "value:" pane)
        (formatting-table (pane)
  	(formatting-row (pane)
  	  (formatting-cell (pane)
  	    (with-output-as-presentation
  		(pane object (presentation-type-of object))
  	      (princ object pane)))
  	  (formatting-cell (pane)
  	    (princ "=" pane))
  	  (formatting-cell (pane)
  	    (with-output-as-presentation
  		(pane object (presentation-type-of object))
  	      (write object :radix t :base 16 :stream pane)))
  	  (formatting-cell (pane)
  	    (princ "=" pane))
  	  (formatting-cell (pane)
  	    (with-output-as-presentation
  		(pane object (presentation-type-of object))
  	      (write object :radix t :base 8 :stream pane)))
  	  (formatting-cell (pane)
  	    (princ "=" pane))
  	  (formatting-cell (pane)
  	    (with-output-as-presentation
  		(pane object (presentation-type-of object))
  	      (write object :radix t :base 2 :stream pane))))))
      (when (<= 0 object 255)
        (inspector-table-row (pane)
  	  (princ "character:" pane)
  	(inspect-object (code-char object) pane)))
      (inspector-table-row (pane)
  	(princ "length:" pane)
        (inspect-object (integer-length object) pane))))
  
  (defmethod inspect-object-briefly ((object symbol) pane)
    (with-output-as-presentation
  
negative.code: (defmethod inspect-object ((object character) pane)
    (inspector-table (object pane)
        (format pane "Character ~S" object)
      (inspector-table-rows (pane)
        ("code:" (char-code object))
        ("int:"  (char-int object))
        ("name:" (char-name object)))))
  
  (defmethod inspect-object ((object pathname) pane)
    (inspector-table (object pane)
        (princ (if (wild-pathname-p object)
  		 "Wild pathname"
  		 "Pathname"))
      (inspector-table-rows (pane)
        ("namestring:" (namestring object))
        ("host:"       (pathname-host object))
        ("device:"     (pathname-device object))
        ("directory:"  (pathname-directory object))
        ("name:"       (pathname-name object))
        ("type:"       (pathname-type object))
        ("version:"    (pathname-version object)))
      (unless (or (wild-pathname-p object)
  		(not (probe-file object)))
        (inspector-table-row (pane)
  	  (princ "truename:" pane)
  	(inspect-object (truename object) pane)))))
  
  (defun display-app (frame pane)
    "Display the APP frame of the inspector"
  