anchor.diff:            :extras (when extras (funcall extras))
             :test test)))
       (if (passed result)
  -        (push result *pass*)
  +        (push (if *keep-passing-asserts* result type)
  +              *pass*)
           (push result *fail*))
       ;; Return the result
       (passed result)))
  
positive.code: (defun use-debugger (&optional (flag t))
    "Use the debugger when testing, or not."
    (setq *use-debugger* flag))
  
  ;;; Global unit test database
  
  
negative.code:            :print-failures
             :print-errors
             :summarize-results)
    ;; behavioral parameters
    (:export :*keep-passing-asserts*)
    ;; Utility predicates
    (:export :logically-equal :set-equal))
  
  