From 00edad8b9cb66197e626a9a20ff542de6ea2d95a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 17 May 2021 14:25:07 -0700 Subject: actually print the compile and/or load output on error Signed-off-by: Sean Whitton --- src/data.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/data.lisp b/src/data.lisp index 32c4d28..92f62df 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -633,8 +633,10 @@ Preprocessing must occur in the root Lisp.")) (*standard-output* stream)) ,(wrap (asdf-requirements-load-forms asdf-requirements)))) (serious-condition (c) - (format *error-output* - "~&Failed to compile and/or load:~%~A" c) + (format + *error-output* + "~&Failed to compile and/or load:~%~A~&~%Compile and/or load output:~%~%~A" + c string) (uiop:quit 2)))) ,(wrap `((%consfigure ',remaining-connections ,*host*)))))) (handler-case -- cgit v1.2.3