Resurrect the use-debugger function.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Mon, 26 Nov 2012 22:36:09 +0000 (26 16:36 -0600)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Mon, 26 Nov 2012 22:36:09 +0000 (26 16:36 -0600)
A victim of over-zealous factoring.

lisp-unit.lisp

index 70ace4f..e4e2d95 100644 (file)
@@ -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)