From: Thomas M. Hermann <thomas.m.hermann@odonata-research.com>
Date: Mon, 26 Nov 2012 22:36:09 +0000 (-0600)
Subject: Resurrect the use-debugger function.
X-Git-Tag: 0.9.4~10^2
X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/2a4dd3cc3710f91c240250f774e2a18868e2f48c

Resurrect the use-debugger function.

A victim of over-zealous factoring.
---

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)