diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-05 16:51:49 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-05 17:25:13 -0700 |
commit | 7d12f6962db3a81d4108a63a9d09c64087fd170d (patch) | |
tree | d285e1e792066ce4c10d941fee38f7b8d81ace60 /src/combinator.lisp | |
parent | b5b11a65664638f1f72d6300eb79661c41965d29 (diff) | |
download | consfigurator-7d12f6962db3a81d4108a63a9d09c64087fd170d.tar.gz |
WITH-SKIP-FAILED-CHANGES: fix call to INFORMAT
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
-rw-r--r-- | src/combinator.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index 0403c96..f9e1409 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -60,9 +60,9 @@ `(handler-bind ((failed-change (lambda (c) (with-indented-inform - (informat t - (simple-condition-format-control c) - (simple-condition-format-arguments c))) + (apply #'informat t + (simple-condition-format-control c) + (simple-condition-format-arguments c))) (invoke-restart 'skip-property)))) ,@forms)) |