anchor.diff:  ;; 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.5 2005-04-23 16:48:49 espen Exp $
  +;; $Id: ginspect.lisp,v 1.6 2006-02-02 22:48:53 espen Exp $
   
   (in-package :gtk)
   
  
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:   (values 
     (call-next-method) t
     (cons "Name" (symbol-name object)) 
     (cons "Package" (symbol-package object))
     (cons "Value" (if (boundp object)
  		     (symbol-value object)
  		   *ginspect-unbound-object-marker*))
  