diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-17 14:25:07 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-17 17:01:18 -0700 |
commit | 00edad8b9cb66197e626a9a20ff542de6ea2d95a (patch) | |
tree | d4c6c0d9adccd139c1b1ea56a163f4fdbf59216d /src/data.lisp | |
parent | b2fbc36eedd14e0eb6c012554810a5b75a2e015a (diff) | |
download | consfigurator-00edad8b9cb66197e626a9a20ff542de6ea2d95a.tar.gz |
actually print the compile and/or load output on error
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 6 |
1 files 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 |