anchor.diff:    (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))))
  
positive.code:   (is (eql =standard-metaobject= (object-metaobject object)))
    (is (null (fboundp '(setf object-metaobject)))))
  
  (test (object-parents :fixture with-std-object)
    (is (null (object-parents object)))
    (setf (%object-parents object) '(foo))
  
negative.code: (in-package :sheeple)
  
  (def-fixture with-std-object ()
    (let ((object (std-allocate-object =standard-metaobject=)))
      (&body)))
  
  (def-fixture allocate-object (metaobject)
  