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: (test std-object-initial-values
    (let ((object (std-allocate-object =standard-metaobject=)))
      (is (eq =standard-metaobject= (%object-metaobject object)))
      (is (eq nil (%object-parents object)))
      (is (eq nil (%object-properties object)))
      (is (eq nil (%object-roles object)))
      (is (eq nil (%object-hierarchy-cache object)))
      (is (eq nil (%object-children object)))))
  
  (test allocate-object
    (let ((object (allocate-object =standard-metaobject=)))
      (is (eq =standard-metaobject= (%object-metaobject object)))
  
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))
  