From 8c7ef62380d17edccd0c7286aa15f74f332535ec Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Sun, 5 Feb 2017 22:34:58 -0500 Subject: [PATCH] tools: pass :console t to lisp-invocation 1.0.14. --- tools/asdf-tools.asd | 4 ++-- tools/test-environment.lisp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/tools/asdf-tools.asd b/tools/asdf-tools.asd index cfd00bb7f..2a7b45289 100644 --- a/tools/asdf-tools.asd +++ b/tools/asdf-tools.asd @@ -1,8 +1,8 @@ (defsystem "asdf-tools" :description "tools to build, test, maintain and release ASDF itself" - :depends-on ((:version "asdf" "3.1.6") + :depends-on ((:version "asdf" "3.2.0") (:version "inferior-shell" "2.0.3.4") - (:version "lisp-invocation/all" "1.0.12") + (:version "lisp-invocation/all" "1.0.14") (:version "cl-ppcre" "2.0.11") (:version "optima.ppcre" "1.0") (:version "cl-scripting" "0.2") diff --git a/tools/test-environment.lisp b/tools/test-environment.lisp index a4e48802a..d6571d179 100644 --- a/tools/test-environment.lisp +++ b/tools/test-environment.lisp @@ -157,7 +157,7 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s= (apply ',real args))) (deftestcmd interactive-command (lisp) - (let* ((command (lisp-invocation-arglist :implementation-type lisp :debugger t))) + (let* ((command (lisp-invocation-arglist :implementation-type lisp :debugger t :console t))) (return-from interactive-command (cons "rlwrap" command)))) (defparameter *default-test-lisps* @@ -222,7 +222,7 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s= (format t "~&Now ~A...~@[ (log in ~A)~]~%" activity log) (let* ((eval (compose-non-special-string forms)) ;; at least avoiding ~% is necessary on Windows. (command (lisp-invocation-arglist :implementation-type (get-lisp lisp) - :eval eval :debugger debugger)) + :eval eval :debugger debugger :console t)) (interactive (if (eq output :interactive) :interactive nil)) (output (if (eq output t) *standard-output* output)) (output (if (eq output *stdout*) :interactive output))) -- GitLab