anchor.diff:  
   (in-package :clouseau)
   
  +(define-modify-macro togglef () not)
  +
   (define-application-frame inspector ()
     ((dico :initform (make-hash-table) :reader dico)
  +   (cons-cell-dico :initform (make-hash-table) :reader cons-cell-dico)
      (obj :initarg :obj :reader obj))
     (:pointer-documentation t)
     (:panes
  
positive.code:                     do (formatting-cell (pane)
                           (format pane "~s " (class-name specializer)))))))))
  
  (defmethod inspect-object-briefly ((object package) pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
  
negative.code:        (princ "propery list:")
         (dolist (property (symbol-plist object))
           (inspect-object property pane)))))
  (make-instance 'packrat)
  ;; Characters are so short that displaying them as "..."  takes almost
  ;; as much space as just showing them, and this way is more
  ;; informative.
  (defmethod inspect-object-briefly ((object character) pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (print object pane)))
  
  (defun display-app (frame pane)
    "Display the APP frame of the inspector"
    (inspect-object (obj frame) pane))
  
  (define-inspector-command (com-quit :name t) ()
  