anchor.diff:    (cond ((member object *inspected-objects*)
            (with-output-as-presentation
                (pane object (presentation-type-of object)) 
  -           (princ "===")))		; Prevent infinite loops
  +           (princ "===" pane)))		; Prevent infinite loops
           ((not (gethash object (dico *application-frame*)))
            (inspect-object-briefly object pane))
           (t
  
positive.code: (defmethod inspect-object-briefly (object pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (princ "...")))
  
  (defmethod inspect-object (object pane)
    (with-output-as-presentation
  
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)
  