anchor.diff:  (in-suite inheritance-predicates)
   
   (test parentp
  -  (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 (parentp a b))
  
positive.code:     (is (not (ancestorp c b)))))
  
  (test descendantp
    (let ((a (cons-std-object))
          (b (cons-std-object))
          (c (cons-std-object)))
      (add-parent a b)
      (add-parent b c)
      (is (descendantp b a))
  
negative.code:   (is (equal '(bar foo) (push 'bar (%object-roles object))))
    (is (equal '(bar foo) (%object-roles object))))
  
  (def-suite interface-accessors :in objects)
  (in-suite interface-accessors)
  
  (test (object-metaobject :fixture with-std-object)
    (is (eql =standard-metaobject= (object-metaobject object)))
    (is (null (fboundp '(setf object-metaobject)))))
  
  (def-suite inheritance :in objects)
  (def-suite inheritance-basic :in inheritance)
  