anchor.diff:  
   
   
  -(defmethod shared-initialize :around ((instance test-suite)
  -                                      slot-names &rest initargs
  -                                      &key 
  -                                        (print-name nil pnp)
  -                                        (print-label nil plp)
  -                                        (name nil namep))
  -  (declare (ignore print-name print-label))
  -  (let (args-changedp)
  -    (when namep
  -      (unless (or pnp (slot-boundp instance 'mcicl.utils::print-name))
  -        (setf args-changedp t
  -              (getf initargs :print-name)
  -              (symbol-name name)))
  -      (unless (or plp (slot-boundp instance 'mcicl.utils::print-label))
  -        (setf args-changedp t
  -              (getf initargs :print-label)
  -              (symbol-name name))))
  -    (cond
  -      (args-changedp (apply #'call-next-method instance slot-names initargs))
  -      (t (call-next-method)))))
  -
   (defmethod print-label ((object test-suite) (stream stream))
     (let ((name (ignore-errors (object-name object)))
           (%tests (ignore-errors (%test-suite-tests object))))
  
positive.code: (defgeneric test-suite-default-test-class (suite))
  (defgeneric (setf test-suite-default-test-class) (new-value suite))
  
  (defclass test-suite (simple-associative-index 
                        associative-object
                        pretty-printable-object)
    ((%tests
      :reader %test-suite-tests
      :initform (make-hash-table :test #'eq))
  
negative.code: 
  ;;;; Test
  
  (defclass test (associative-object)
    ;; FIXME: add slot SUITE (?)
    ((object
      :initarg :object
  