anchor.diff:  
   (in-package #:info.metacommunity.cltl.test)
   
  -(defgeneric test-predicate (test))
  -
  -(defgeneric test-predicate-function (test))
  -;; ^ FIXME: Remove?
  -
  -(defgeneric test-name (test))
  -;; ^ FIXXME: Replaced by OBJECT-NAME
  -
   (defgeneric test-object (test))
  +(defgeneric (setf test-object) (new-value test))
  +
  +(defgeneric test-summary (test))
  +(defgeneric (setf test-summary) (new-value test))
   
   (defgeneric test-setup-function (test)
     (:documentation "Functional test setup protocol.
  
positive.code:   ;;
    ;; function would be called within the cleanup forms of an
    ;; unwind-protect form within DO-TEST
    (:method ((test test))
      (cond
        ((slot-boundp test 'cleanup-function)
         (values (%test-cleanup-function test) t))
        (t (values nil nil)))))
  
  (defgeneric (setf test-setup-function) (new-value test)
    (:method ((new-value function) (test test))
      (setf (%test-cleanup-function test) new-value))
    (:method ((new-value list) (test test))
      (let ((fn (compile* new-value)))
        (setf (test-setup-function test) fn))))
  
negative.code:     :accessor %test-cleanup-function)
     ))
  
  (defmethod test-setup-function ((test test))
    ;;
    ;; (values (or null function) boolean)
    ;;
  