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