diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-19 10:48:50 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-09 11:19:43 -0700 |
commit | 48c516a33dbd6a56e7082c498c62b888d9e12fb9 (patch) | |
tree | 7699e6a27c137180a3cee849afec8f206b51755d /src/image.lisp | |
parent | a7fc8887794a1c2a2fad04252c96c5f6332c7007 (diff) | |
download | consfigurator-48c516a33dbd6a56e7082c498c62b888d9e12fb9.tar.gz |
also redirect *DEBUG-IO* output when compiling and loading systems
CFFI outputs C toolchain commands it runs to *DEBUG-IO*.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/image.lisp')
-rw-r--r-- | src/image.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/image.lisp b/src/image.lisp index a933ab8..c1d1a48 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -438,7 +438,9 @@ Preprocessing must occur in the root Lisp.")) (handler-case (with-output-to-string (stream string) (let ((*error-output* stream) - (*standard-output* stream)) + (*standard-output* stream) + (*debug-io* + (make-two-way-stream *debug-io* stream))) ,(asdf-requirements-load-form asdf-requirements))) (serious-condition (c) |