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:       (remove-object test suite))))
  
  (defgeneric find-test (name suite &optional errorp)
    (:method ((name symbol) (suite test-suite) &optional (errorp t))
      (with-lock-held ((%test-suite-test-lock suite)) 
        (find-object name suite errorp))))
  
  (defgeneric map-tests (function suite)
    (:method (function (suite test-suite))
  
negative.code:     :accessor %test-cleanup-function)
     ))
  
  (define-condition test-not-found (container-condition entity-not-found)
    ()
    (:report format-condition))
  
  (defmethod format-condition ((condition test-not-found)
                               (stream stream))
    (format stream
            "No test found for name ~S within suite ~S"
            (entity-condition-name condition)
            (object-name (container-condition-container condition))))
  
  
  
  (defmethod test-setup-function ((test test))
    ;;
    ;; (values (or null function) boolean)
  