anchor.diff:    (is (equal '(bar foo) (push 'bar (%sheep-children sheep))))
     (is (equal '(bar foo) (%sheep-children sheep))))
   
  -(def-suite inheritance :in sheeple)
  -(in-suite inheritance)
  +(def-suite inheritance :in sheep-objects)
  +(def-suite inheritance-basic :in inheritance)
  +(in-suite inheritance-basic)
   
   (test collect-ancestors
     (let ((sheep1 (allocate-std-sheep))
  
positive.code: (test (sheepp :fixture (allocate-sheep =standard-sheep=))
    (is (sheepp sheep)))
  
  (def-suite low-level-accessors :in sheeple)
  (in-suite low-level-accessors)
  
  (test (sheep-metasheep :fixture allocate-std-sheep)
  
negative.code: ;;;
  ;;; Allocation
  ;;;
  (def-suite sheep-objects :in sheeple)
  (def-suite creation :in sheep-objects)
  (def-suite allocation :in creation)
  
  (def-suite allocate-std-sheep :in allocation)
  (in-suite allocate-std-sheep)
  