diff options
-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) |