anchor.diff:     (test-function
       :type function
       :initarg :function
  -    :accessor test-function
  -    :type function)
  +    :accessor test-function)
      )
     (:documentation
   "A predicate is defined for application in a predicate test session,
  
positive.code:            (funcall (test-cleanup-function test)))))))
  
  
  (defclass values-test (labeled-object)
    ((expect-values
      :initarg :expect
      :accessor test-expect-values)
  
negative.code:           (test-expect-values test)
            (test-results-test test)))
  
  
  ;;;; Predicate-Test
  
  (defclass predicate-test (values-test)
    ;; NOTE: The definition of monadic, diadic, and variadic predicate
  