anchor.diff:    (declare (ignore print-name print-label))
     (let (args-changedp)
       (when namep
  -      (unless (or pnp (slot-boundp instance 'utils::print-name))
  +      (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 'utils::print-label))
  +      (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-metod)))))
  +      (t (call-next-method)))))
   
   (defmethod print-label ((object test-suite) (stream stream))
     (let ((name (ignore-errors (object-name object)))
  
positive.code: 
  
  (defgeneric %test-suite-tests (suite))
  
  (defgeneric test-suite-default-test-class (suite))
  (defgeneric (setf test-suite-default-test-class) (new-value suite))
  
negative.code:   ((%tests
      :reader %test-suite-tests
      :initform (make-hash-table :test #'eq))
     (%tests-lock
      ;; NB: The TEST-SUITE registry functions will use a lock contained
      ;; in the the class TEST-SUITE, when accessing the global, top
      ;; level registry for test suites.
      ;;
      ;; This slot provides a lock for test registry within any single
      ;; test suite.
      :reader %test-suite-test-lock
      :initform (make-lock "%tests-lock"))
     (default-test-class
         :initarg :default-test-class
       :initform (find-class 'lisp-test)
       :type class-designator 
       :accessor test-suite-default-test-class))
    (:metaclass associative-class)
    (:key-slot . mcicl.utils::name)
    (:default-initargs :key-function #'object-name))
  
  
  