From 8599006947b2cc3ec905f11e6e814a1ff8d43ab6 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@real-time.com> Date: Thu, 4 Feb 2010 19:18:38 -0500 Subject: [PATCH] Signed-off-by: Francois-Rene Rideau <fare@tunes.org> --- test/script-support.lisp | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/test/script-support.lisp b/test/script-support.lisp index c0c23f5f..bdcea582 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -27,20 +27,13 @@ (error "Don't know how to quit Lisp; wanting to use exit code ~a" return)) - -(defparameter *asdf-test-debug* - (test-getenv "ASDF_DEBUG") - "Global variable initialized from ASDF_DEBUG environment variable. -Controls whether errors are muffled and dumped to the shell.") - (defmacro quit-on-error (&body body) `(call-quitting-on-error (lambda () ,@body))) (defun call-quitting-on-error (thunk) - "Unless the global *asdf-test-debug* is true, -write a message and exit on an error. If -*asdf-test-debug* is true, enter the debugger -as normal." + "Unless the environment variable DEBUG_ASDF_TEST +is bound, write a message and exit on an error. If +*asdf-test-debug* is true, enter the debugger." (handler-case (progn (funcall thunk) (leave-lisp "~&Script succeeded~%" 0)) -- GitLab