anchor.diff:  (in-package :sheeple)
   
   (def-fixture with-std-object ()
  -  (let ((object (cons-std-object)))
  +  (let ((object (std-allocate-object =standard-metaobject=)))
       (&body)))
   
   (def-fixture allocate-object (metaobject)
  
positive.code:   (is (equal '(bar foo) (push 'bar (%object-roles object))))
    (is (equal '(bar foo) (%object-roles object))))
  
  (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))))
  
negative.code:   (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))
  