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))))
  
positive.code: (in-package :sheeple)
  
  (def-fixture with-std-object ()
    (let ((object (cons-std-object)))
      (&body)))
  
  (def-fixture allocate-object (metaobject)
  
negative.code: (test std-object-initial-values
    (let ((object (std-allocate-object =standard-metaobject=)))
      (is (eq =standard-metaobject= (%object-metaobject object)))
      (is (null (%object-mold object)))
      (is (null (%object-property-values object)))
      (is (null (%object-roles object)))))
  
  #+nil
  (test allocate-object
    (let ((object (allocate-object =standard-metaobject=)))
      (is (eq =standard-metaobject= (%object-metaobject object)))
  