anchor.diff:  (defmethod inspect-object ((object character) pane)
     (inspector-table (object pane)
         (format pane "Character ~S" object)
  -    (inspector-table-row (pane)
  -	(princ "code:" pane)
  -      (inspect-object (char-code object) pane))
  -    (inspector-table-row (pane)
  -	(princ "int:" pane)
  -      (inspect-object (char-int object) pane))
  -    (inspector-table-row (pane)
  -	(princ "name:" pane)
  -      (inspect-object (char-name object) pane))))
  +    (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"
  
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"
  