anchor.diff:    (is (equal '(bar foo) (push 'bar (%object-roles object))))
     (is (equal '(bar foo) (%object-roles object))))
   
  -#+nil
  -(test (%object-hierarchy-cache :fixture with-std-object)
  -  (is (equal (list object) (%object-hierarchy-cache object)))
  -  (is (equal '(foo) (setf (%object-hierarchy-cache object) '(foo))))
  -  (is (equal '(foo) (%object-hierarchy-cache object)))
  -  (is (equal '(bar foo) (push 'bar (%object-hierarchy-cache object))))
  -  (is (equal '(bar foo) (%object-hierarchy-cache object))))
  -
  -#+nil
  -(test (%object-children :fixture with-std-object)
  -  (is (null (%object-children object)))
  -  (is (equal '(foo) (setf (%object-children object) '(foo))))
  -  (is (equal '(foo) (%object-children object)))
  -  (is (equal '(bar foo) (push 'bar (%object-children object))))
  -  (is (equal '(bar foo) (%object-children 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)))))
  -
  -#+nil
  -(test (object-parents :fixture with-std-object)
  -  (is (null (object-parents object)))
  -  (setf (%object-parents object) '(foo))
  -  (is (equal '(foo) (object-parents object)))
  -  (push 'bar (%object-parents object))
  -  (is (equal '(bar foo) (object-parents object)))
  -  (is (null (fboundp '(setf object-parents)))))
   
   (def-suite inheritance :in objects)
   (def-suite inheritance-basic :in inheritance)
  
positive.code:     (is (not (parentp c b)))))
  
  (test childp
    (let ((a (cons-std-object))
          (b (cons-std-object))
          (c (cons-std-object)))
      (add-parent a b)
      (add-parent b c)
      (is (childp b a))
  
negative.code: (in-suite inheritance-predicates)
  
  (test parentp
    (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))
  