anchor.diff:             :print-failures
              :print-errors
              :summarize-results)
  +  ;; behavioral parameters
  +  (:export :*keep-passing-asserts*)
     ;; Utility predicates
     (:export :logically-equal :set-equal))
   
  
positive.code:           :extras (when extras (funcall extras))
            :test test)))
      (if (passed result)
          (push result *pass*)
          (push result *fail*))
      ;; Return the result
      (passed result)))
  
negative.code: (defun use-debugger (&optional (flag t))
    "Use the debugger when testing, or not."
    (setq *use-debugger* flag))
  
  (defparameter *keep-passing-asserts* T
    "when non-nil, passing test assertions will be collected as objects and
    accessible in test-result objects.  When nil, only the type of the passing
    assertion will be collected, saving memory."  )
  
  ;;; Global unit test database
  
  