anchor.diff:  ;;;
   ;;; Protos
   ;;;
  -(def-suite protos :in spawning)
  +(def-suite protos :in creation)
   (in-suite protos)
   
   (test defproto
  
positive.code:     (is (not (descendantp a b)))
      (is (not (descendantp b c)))))
  
  ;;;
  ;;; Spawning
  ;;;
  (def-suite spawning :in objects)
  
  (def-suite spawn-general :in spawning)
  (in-suite spawn-general)
  
  (test object
    ;; basic
    (let ((object (object)))
  
negative.code:     (is (eql test-metaobject (object-metaobject object)))
      (is (eql =standard-object= (car (object-parents object))))))
  
  (test object-nickname
    (let ((object (object)))
      (setf (object-nickname object) 'test)
      (is (eq 'test (object-nickname object)))
      (is (eq 'test (object-nickname (object :parents (list object)))))))
  
  ;;;
  ;;; DEFOBJECT
  ;;;
  (def-suite defobject :in creation)
  (in-suite defobject)
  
  ;;; macro processing
  