diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 17:22:36 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 17:22:36 -0700 |
commit | 6f54165637547ef5b4c3ad5ae9f744cc7759b4ac (patch) | |
tree | 5c8c95121db589854d487583c768e4ed2b382233 /src/propspec.lisp | |
parent | 3a7b35372040ca245969826bd5fa9f85a6980486 (diff) | |
download | consfigurator-6f54165637547ef5b4c3ad5ae9f744cc7759b4ac.tar.gz |
when skipping failed changes, print the error
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/propspec.lisp')
-rw-r--r-- | src/propspec.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/propspec.lisp b/src/propspec.lisp index 6a06d1f..39b9d48 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -281,7 +281,10 @@ expression." (defmacro with-skip-failed-changes (&body forms) `(handler-bind ((failed-change (lambda (c) - (declare (ignore c)) + (with-indented-inform + (informat t + (simple-condition-format-control c) + (simple-condition-format-arguments c))) (invoke-restart 'skip-property)))) ,@forms)) |