anchor.diff:    ;;
     ;; 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)))))
  +  (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))
  +    (setf (%test-setup-function test) new-value))
     (:method ((new-value list) (test test))
       (let ((fn (compile* new-value)))
         (setf (test-setup-function test) fn))))
  
positive.code:   ;;
    ;; function would be called before the test's primary method is
    ;; evaluated within DO-TEST
    (:method ((test test))
      (cond
        ((slot-boundp test 'setup-function)
         (values (%test-setup-function test) t))
        (t (values nil nil)))))
  
  (defgeneric test-cleanup-function (test)
    ;; 
    ;;
    ;; (values (or null function) boolean)
  
negative.code: 
  (in-package #:info.metacommunity.cltl.test)
  
  (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.
  