From 48c516a33dbd6a56e7082c498c62b888d9e12fb9 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 19 Aug 2021 10:48:50 -0700 Subject: 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 --- src/image.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/image.lisp') 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) -- cgit v1.2.3