anchor.diff:           (let ((*inspected-objects* (cons object *inspected-objects*)))
              (call-next-method)))))
   
  +;; This behavior should be overridden by methods for specific object
  +;; types that have a more informative short representation. For
  +;; example, the symbol FOO would be printed as "FOO" instead of "...",
  +;; since that's just as short and more informative. When it's clicked
  +;; on, it can then go to a more verbose view.
   (defmethod inspect-object-briefly (object pane)
     (with-output-as-presentation
         (pane object (presentation-type-of object))
  
positive.code: only the class name would be shown."))
  
  (defgeneric inspect-object (object pane)
    (:documentation "Inspect an object, displaying it on PANE"))
  
  (defmethod inspect-object :around (object pane)
    (cond ((member object *inspected-objects*)
  
negative.code: ;;;           Robert Strandh (strandh@labri.fr)
  ;;;  (c) copyright 2005 by
  ;;;           Vincent Arkesteijn
  ;;;  (c) copyright 2005 by
  ;;;           Peter Scott (sketerpot@gmail.com)
  
  ;;; This library is free software; you can redistribute it and/or
  ;;; modify it under the terms of the GNU Library General Public
  