From 7d12f6962db3a81d4108a63a9d09c64087fd170d Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 5 Jun 2021 16:51:49 -0700 Subject: WITH-SKIP-FAILED-CHANGES: fix call to INFORMAT Signed-off-by: Sean Whitton --- src/combinator.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/combinator.lisp') 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)) -- cgit v1.2.3