Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
8c7ef623
Commit
8c7ef623
authored
Feb 05, 2017
by
Francois-Rene Rideau
Browse files
tools: pass :console t to lisp-invocation 1.0.14.
parent
c642179d
Changes
2
Hide whitespace changes
Inline
Side-by-side
tools/asdf-tools.asd
View file @
8c7ef623
(
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.1
2
"
)
(
:version
"lisp-invocation/all"
"1.0.1
4
"
)
(
:version
"cl-ppcre"
"2.0.11"
)
(
:version
"optima.ppcre"
"1.0"
)
(
:version
"cl-scripting"
"0.2"
)
...
...
tools/test-environment.lisp
View file @
8c7ef623
...
...
@@ -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
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment