anchor.diff:  (in-package :inspector)
   
   (define-application-frame inspector ()
  -  ((dico :initform (make-hash-table :test #'eq) :reader dico)
  +  ((dico :initform (make-hash-table) :reader dico)
      (obj :initarg :obj :reader obj))
     (:pointer-documentation t)
     (:panes
  
positive.code:   (declare (ignore args))
    (setf (gethash (obj frame) (dico frame)) t))
  
  (defun inspector (obj)
    (let ((*print-length* 10)
  	(*print-level* 10))
  
negative.code: 
  (defparameter *inspected-objects* '())
  
  (defgeneric inspect-object-briefly (object pane))
  (defgeneric inspect-object (object pane))
  
  (defmethod inspect-object :around (object pane)
    (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
  