Skip to content
Snippets Groups Projects
Commit a9113a12 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Distinguish *quit-when-done* from *debug-asdf* in script-support.

parent 3d3b65d4
No related branches found
No related tags found
No related merge requests found
...@@ -37,6 +37,7 @@ Some constraints: ...@@ -37,6 +37,7 @@ Some constraints:
)) ))
(defvar *debug-asdf* nil) (defvar *debug-asdf* nil)
(defvar *quit-when-done* t)
;;; Minimal compatibility layer ;;; Minimal compatibility layer
(eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute)
...@@ -216,7 +217,7 @@ is bound, write a message and exit on an error. If ...@@ -216,7 +217,7 @@ is bound, write a message and exit on an error. If
(leave-test "Script failed" 1)))))) (leave-test "Script failed" 1))))))
(funcall thunk) (funcall thunk)
(leave-test "Script succeeded" 0))))) (leave-test "Script succeeded" 0)))))
(unless *debug-asdf* (when *quit-when-done*
(exit-lisp result)))) (exit-lisp result))))
;;; These are used by the upgrade tests ;;; These are used by the upgrade tests
...@@ -368,6 +369,7 @@ is bound, write a message and exit on an error. If ...@@ -368,6 +369,7 @@ is bound, write a message and exit on an error. If
(defun debug-asdf () (defun debug-asdf ()
(setf *debug-asdf* t) (setf *debug-asdf* t)
(setf *quit-when-done* nil)
(setf *package* (find-package :asdf-test))) (setf *package* (find-package :asdf-test)))
;; Actual scripts rely on this function: ;; Actual scripts rely on this function:
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment