anchor.diff:    ;; todo - write tests for this once bootstrapping is set...
   )
   
  +(def-suite add/remove-parents :in inheritance)
  +(in-suite add/remove-parents)
  +
   (test remove-parent
     (let ((sheep1 (allocate-std-sheep))
           (sheep2 (allocate-std-sheep)))
  
positive.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)))))
  
  (test parentp
    (let ((a (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)
  