anchor.diff:  (defmethod decompose-describe-object ((object (eql *ginspect-unbound-object-marker*)))
     (values "The slot is unbound" nil nil))
   
  -#+cmu
  +#+(or cmu clisp)
   (defmethod decompose-describe-object ((object symbol))
     (values 
      (call-next-method) t
  
positive.code: 
  (defmethod decompose-describe-object ((object standard-object))
    (values 
     (format nil "The instance is an object of type ~A." 
      (class-name (class-of object)))
     t
     (loop
  
negative.code: 				 *ginspect-unbound-object-marker*)))
  	      (cons (string slot-name) slot-value)))))
  
  #+clisp
  (defmethod decompose-describe-object ((object vector))
    (values   
     (format nil "The object is a ~A of length ~A" (type-of object) (length object))
     nil
     (coerce object 'list)))
  
  
  (defmethod object-has-parts-p ((object t))
    (nth-value 2 (decompose-describe-object object)))
  