anchor.diff:  
   (defmethod inspect-object ((object symbol) pane)
     (inspector-table (object pane)
  -    (format pane "Symbol ~S" (symbol-name object))
  -    (inspector-table-row (pane)
  -      (princ "value:")
  +      (format pane "Symbol ~S" (symbol-name object))
  +    (inspector-table-row (pane)
  +	(princ "value:")
         (if (boundp object)
   	  (inspect-object (symbol-value object) pane)
   	  (princ "unbound")))
       (inspector-table-row (pane)
  -      (princ "function:")
  +	(princ "function:")
         (if (fboundp object)
   	  (inspect-object (symbol-function object) pane)
   	  (princ "unbound")))
  
positive.code: 	  (formatting-cell (pane)
  	    (inspect-object (cdr object) pane))))))
  
  (defun inspect-vertical-list (object pane)
    "Inspect a list without the parentheses, putting each element on a
  new line. This is useful for showing things like direct class
  subclasses, since displaying those as a plain list looks ugly and is
  inconvenient to use."
    ;; Ordinarily this would be taken care of in the :around method for
    ;; INSPECT-OBJECT, but since this is not a normal inspection view,
    ;; we need to do it ourselves. Yes, it would be better if we could
  
negative.code:     (princ 'hash-table pane)))
  (defmethod inspect-object ((object hash-table) pane)
    (inspector-table (object pane)
        (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)
  