anchor.diff:      (is (eql test-metaobject (object-metaobject object)))
       (is (eql =standard-object= (car (object-parents object))))))
   
  -(test clone)
  -
  -#+nil
   (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)))))))
   
  -#+nil
  -(test object-documentation
  -  (let ((object (object)))
  -    (setf (object-documentation object) 'test)
  -    (is (eq 'test (object-documentation object)))
  -    (is (eq 'test (object-documentation (object :parents (list object)))))))
  -
   ;;;
   ;;; DEFOBJECT
   ;;;
  -(def-suite defobject :in spawning)
  +(def-suite defobject :in creation)
   (in-suite defobject)
   
   ;;; macro processing
  
positive.code: ;;;
  ;;; Protos
  ;;;
  (def-suite protos :in spawning)
  (in-suite protos)
  
  (test defproto
  
negative.code:     (is (not (descendantp a b)))
      (is (not (descendantp b c)))))
  
  (in-suite creation)
  (test object
    ;; basic
    (let ((object (object)))
  