From 3a7b35372040ca245969826bd5fa9f85a6980486 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 21 Mar 2021 17:21:11 -0700 Subject: add facility for more regular progress and debug printing Signed-off-by: Sean Whitton --- src/propspec.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/propspec.lisp') diff --git a/src/propspec.lisp b/src/propspec.lisp index dec1c3e..6a06d1f 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -322,14 +322,15 @@ apply the elements of REQUIREMENTS in reverse order." (defun apply-and-print (propapps &optional unapply) (dolist (pa (if unapply (reverse propapps) propapps)) (let* ((result (restart-case - (if unapply (propappunapply pa) (propappapply pa)) + (with-indented-inform + (if unapply (propappunapply pa) (propappapply pa))) (skip-property () :failed-change))) (status (case result (:no-change "ok") (:failed-change "failed") (t "done")))) - (format t "~@[~A :: ~]~@[~A ... ~]~A~%" - (get-hostname) (propappdesc pa) status)))) + (informat t "~&~@[~A :: ~]~@[~A ... ~]~A~%" + (get-hostname) (propappdesc pa) status)))) (define-function-property-combinator unapply (propapp) (destructuring-bind (psym . args) propapp -- cgit v1.2.3