anchor.diff:  
   (defgeneric find-test-suite (name &optional errorp)
     (:method ((name symbol) &optional (errorp t))
  -    (find-object name (find-class 'test-suite) errorp)))
  +    (let  ((instance
  +            (find-object name (find-class 'test-suite) nil)))
  +      (cond
  +        (instance (values instance))
  +        (errorp (error 'test-suite-not-found :name name))
  +        (t (values nil))))))
   
   (defgeneric remove-test-suite (instance)
     (:method ((instance test-suite))
  
positive.code:   (:key-slot . mcicl.utils::name)
    (:default-initargs :key-function #'object-name))
  
  
  
  (defmethod print-label ((object test-suite) (stream stream))
  
negative.code:       (remove-object test suite))))
  
  (defgeneric find-test (name suite &optional errorp)
    (:method (name (suite symbol) &optional (errorp t))
      (let ((suite (find-test-suite suite)))
        (find-test name suite errorp)))
    (:method ((name symbol) (suite test-suite) &optional (errorp t))
      (with-lock-held ((%test-suite-test-lock suite))
        (let ((test (find-object name suite nil)))
          (cond
            (test (values test))
            (errorp (error 'test-not-found
                           :name name :container suite))
            (t (values nil)))))))
  
  (defgeneric map-tests (function suite)
    (:method (function (suite test-suite))
  