Commit 9893534c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Tweak make load in lisp-scripting

Only redirect error-output in logging mode.
parent af5efa25
......@@ -228,8 +228,9 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s=
(output (if (eq output *stdout*) :interactive output)))
(log! log "~A" (print-process-spec command nil))
(multiple-value-bind (out err code)
(run `((>& 2 1) ,@(when interactive '(rlwrap)) ,@command
,@(when log `((>> ,log)))) ;; unhappily, | tee -a log eats error codes :-(
(run `(,@(when interactive '(rlwrap))
,@command
,@(when log `((>> ,log) (>& 2 1)))) ;; unhappily, | tee -a log eats error codes :-(
:input interactive :output output :error-output (or interactive :output) :on-error nil)
(declare (ignore out err))
(let ((okp (eql code 0)))
......
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