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: 	    ,left))
  	(formatting-cell (,evaluated-pane)
  	  ,right)))))
  
  (defmacro inspector-table-rows ((pane) &body rows)
    "Output a bunch of rows with INSPECTOR-TABLE-ROW on PANE. Each row
  is a list of a label and a value."
    (let ((evaluated-pane (gensym "pane")))
      `(let ((,evaluated-pane ,pane))
        ,@(loop for row in rows
  	      collect (destructuring-bind (label value) row
  			`(inspector-table-row (,evaluated-pane)
  			  (princ ,label ,evaluated-pane)
  			  (inspect-object ,value ,evaluated-pane)))))))
  
  (defun print-documentation (object pane)
    "Print OBJECT's documentation, if any, to PANE"
  