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