anchor.diff:  
   (defparameter *inspected-objects* '())
   
  -(defun currently-viewable (obj)
  -  (multiple-value-bind (value present)
  -      (gethash obj (dico *application-frame*))
  -    (if present
  -        value
  -        (setf (gethash obj
  -                       (dico *application-frame*))
  -              (or (symbolp obj)
  -                  (numberp obj)
  -                  (stringp obj))))))
  -
  +(defgeneric inspect-object-briefly (object pane))
   (defgeneric inspect-object (object pane))
   
   (defmethod inspect-object :around (object pane)
  -  (cond ((not (currently-viewable object))
  -	 (with-output-as-presentation
  -	     (pane object (presentation-type-of object)) 
  -	   (princ "...")))
  -	((member object *inspected-objects*)
  -	 (with-output-as-presentation
  -	     (pane object (presentation-type-of object)) 
  -	   (princ "===")))
  -	(t
  -	 (let ((*inspected-objects* (cons object *inspected-objects*)))
  -	   (call-next-method)))))
  +  (cond ((member object *inspected-objects*)
  +         (with-output-as-presentation
  +             (pane object (presentation-type-of object)) 
  +           (princ "===")))
  +        ((not (gethash object (dico *application-frame*)))
  +         (inspect-object-briefly object pane))
  +        (t
  +         (let ((*inspected-objects* (cons object *inspected-objects*)))
  +           (call-next-method)))))
  +
  +(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
  
positive.code: 	  (formatting-cell (pane)
  	    (inspect-object (cdr object) pane))))))
  
  (defmethod inspect-object ((object hash-table) pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (formatting-table (pane)
        (formatting-column (pane)
          (formatting-cell (pane)
            (surrounding-output-with-border (pane)
              (format pane "~A (test: ~A)" 'hash-table (hash-table-test object))))
          (formatting-cell (pane)
            (formatting-table (pane)
              (loop for key being the hash-keys of object
                 do (formatting-row (pane)
                      (formatting-cell (pane :align-x :right)
                        (inspect-object key pane)
                        (princ "=" pane))
                      (formatting-cell (pane)
                        (inspect-object (gethash key object) pane))))))))))
  
  (defmethod inspect-object ((object generic-function) pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (formatting-table (pane)
        (formatting-row (pane)
  	(formatting-cell (pane)
  	  (surrounding-output-with-border (pane)
  	    (format pane "Generic Function: ~s" (generic-function-name object)))))
        (formatting-row (pane)
  	(formatting-cell (pane)
  	  (formatting-table (pane)
  	    (loop for method in (generic-function-methods object)
  		  do (with-output-as-presentation
  			 (pane method (presentation-type-of method))
  		       (formatting-row (pane)
  			 (formatting-cell (pane)
  			   (print (method-qualifiers method)))
  			 (loop for specializer in (method-specializers method)
  			       do (formatting-cell (pane)
  				    (format pane "~s " (class-name specializer)))))))))))))
  
  (defun display-app (frame pane)
    (inspect-object (obj frame) pane))
  
negative.code: (in-package :inspector)
  
  (define-application-frame inspector ()
    ((dico :initform (make-hash-table) :reader dico)
     (obj :initarg :obj :reader obj))
    (:pointer-documentation t)
    (:panes
  