From 2a4dd3cc3710f91c240250f774e2a18868e2f48c Mon Sep 17 00:00:00 2001
From: "Thomas M. Hermann" <thomas.m.hermann@odonata-research.com>
Date: Mon, 26 Nov 2012 16:36:09 -0600
Subject: [PATCH] Resurrect the use-debugger function.

A victim of over-zealous factoring.
---
 lisp-unit.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index 70ace4f..e4e2d95 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -123,6 +123,10 @@ assertion.")
     (y-or-n-p "~A -- debug?" condition))
    (*use-debugger*)))
 
+(defun use-debugger (&optional (flag t))
+  "Use the debugger when testing, or not."
+  (setq *use-debugger* flag))
+
 ;;; Failure control strings
 
 (defgeneric print-failure (type form expected actual extras)
-- 
2.11.4.GIT