anchor.diff:  ;;;
   ;;; Allocation
   ;;;
  -(def-suite allocation :in sheeple)
  +(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)
  
positive.code:   ;; todo - write tests for this once bootstrapping is set...
  )
  
  (test remove-parent
    (let ((sheep1 (allocate-std-sheep))
          (sheep2 (allocate-std-sheep)))
  
negative.code:     (is (eql a (add-parent b a)))
      (is (eql b (add-parent c b)))
      (is (equal (list a b c) (sheep-hierarchy-list a)))))
  
  (def-suite inheritance-predicates :in inheritance)
  (in-suite inheritance-predicates)
  
  (test parentp
    (let ((a (allocate-std-sheep))
  