anchor.diff:  (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
   
  
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:            :print-failures
             :print-errors
             :summarize-results)
    ;; behavioral parameters
    (:export :*keep-passing-asserts*)
    ;; Utility predicates
    (:export :logically-equal :set-equal))
  
  