anchor.diff:  (defun use-debugger (&optional (flag t))
     "Use the debugger when testing, or not."
     (setq *use-debugger* flag))
  +
  +(defun signal-results (&optional (flag t))
  +  "Signal the results for extensibility."
  +  (setq *signal-results* flag))
  +
  +(define-condition test-run-complete ()
  +  ((results
  +    :initarg :results
  +    :reader results))
  +  (:documentation
  +   "Signaled when a test run is finished."))
   
   ;;; Global unit test database
   
  
positive.code:    else do
     (push test-name (missing-tests results))
     finally
     (summarize-results results)
      (signal 'test-run-complete :results results)
     (return results)))
  
  (defun run-tests (test-names &optional (package *package*))
  
negative.code: (defparameter *use-debugger* nil
    "If not NIL, enter the debugger when an error is encountered in an
  assertion.")
  
  (defparameter *signal-results* nil
    "Signal the result if non NIL.")
  
  (defun use-debugger-p (condition)
    "Debug or ignore errors."
  