Commit 47e00c25 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

tools: pass :console t to lisp-invocation 1.0.14.

parent bca14a95
(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")
......
......@@ -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)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment