anchor.diff:      (is (not (ancestorp c b)))))
   
   (test descendantp
  -  (let ((a (cons-std-object))
  -        (b (cons-std-object))
  -        (c (cons-std-object)))
  +  (let ((a (std-allocate-object =standard-metaobject=))
  +        (b (std-allocate-object =standard-metaobject=))
  +        (c (std-allocate-object =standard-metaobject=)))
       (add-parent a b)
       (add-parent b c)
       (is (descendantp b a))
  
positive.code: )
  
  (test object-hierarchy-list
    (let ((a (cons-std-object))
          (b (cons-std-object))
          (c (cons-std-object)))
      (is (eql a (add-parent b a)))
      (is (eql b (add-parent c b)))
      (is (equal (list a b c) (object-hierarchy-list a)))))
  
negative.code:     (is (not (childp b c)))))
  
  (test ancestorp
    (let ((a (std-allocate-object =standard-metaobject=))
          (b (std-allocate-object =standard-metaobject=))
          (c (std-allocate-object =standard-metaobject=)))
      (add-parent a b)
      (add-parent b c)
      (is (ancestorp a b))
  