anchor.diff:    (values 
      (call-next-method) t
      (cons "Name" (symbol-name object)) 
  -   (cons "Package" (symbol-package objecy))
  +   (cons "Package" (symbol-package object))
      (cons "Value" (if (boundp object)
   		     (symbol-value object)
   		   *ginspect-unbound-object-marker*))
  
positive.code:     (if (equal parts (list object))
  	(values description nil nil)
        (values description named-p parts)))
    (sb-impl::inspected-parts object))
  
  (defmethod decompose-describe-object ((object (eql t)))
    (values (call-next-method) nil nil))
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: ginspect.lisp,v 1.6 2006-02-02 22:48:53 espen Exp $
  
  (in-package :gtk)
  
  