From db97566b1ba200c3a72db5389e9ecfa0de6169f6 Mon Sep 17 00:00:00 2001 From: "Thomas M. Hermann" Date: Sun, 15 Dec 2013 11:14:50 -0600 Subject: [PATCH] Organization --- lisp-unit.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp-unit.lisp b/lisp-unit.lisp index fbecfcd..8d941fe 100644 --- a/lisp-unit.lisp +++ b/lisp-unit.lisp @@ -126,8 +126,9 @@ functions or even macros does not require reloading any tests. "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 (&optional (flag t)) + "Use the debugger when testing, or not." + (setq *use-debugger* flag)) (defun use-debugger-p (condition) "Debug or ignore errors." @@ -136,9 +137,8 @@ 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)) +(defparameter *signal-results* nil + "Signal the result if non NIL.") (defun signal-results (&optional (flag t)) "Signal the results for extensibility." -- 2.11.4.GIT