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

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

parent bca14a95
No related branches found
No related tags found
No related merge requests found
(defsystem "asdf-tools" (defsystem "asdf-tools"
:description "tools to build, test, maintain and release ASDF itself" :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 "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 "cl-ppcre" "2.0.11")
(:version "optima.ppcre" "1.0") (:version "optima.ppcre" "1.0")
(:version "cl-scripting" "0.2") (:version "cl-scripting" "0.2")
......
...@@ -157,7 +157,7 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s= ...@@ -157,7 +157,7 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s=
(apply ',real args))) (apply ',real args)))
(deftestcmd interactive-command (lisp) (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)))) (return-from interactive-command (cons "rlwrap" command))))
(defparameter *default-test-lisps* (defparameter *default-test-lisps*
...@@ -222,7 +222,7 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s= ...@@ -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) (format t "~&Now ~A...~@[ (log in ~A)~]~%" activity log)
(let* ((eval (compose-non-special-string forms)) ;; at least avoiding ~% is necessary on Windows. (let* ((eval (compose-non-special-string forms)) ;; at least avoiding ~% is necessary on Windows.
(command (lisp-invocation-arglist :implementation-type (get-lisp lisp) (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)) (interactive (if (eq output :interactive) :interactive nil))
(output (if (eq output t) *standard-output* output)) (output (if (eq output t) *standard-output* output))
(output (if (eq output *stdout*) :interactive output))) (output (if (eq output *stdout*) :interactive output)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment