diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 17:21:11 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 17:22:25 -0700 |
commit | 3a7b35372040ca245969826bd5fa9f85a6980486 (patch) | |
tree | d42c5d2c28d4883e406606e2152f9f9bffc12741 /src/propspec.lisp | |
parent | d6e52cbd4a178bdae7961c6f199a99724bb9d04e (diff) | |
download | consfigurator-3a7b35372040ca245969826bd5fa9f85a6980486.tar.gz |
add facility for more regular progress and debug printing
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/propspec.lisp')
-rw-r--r-- | src/propspec.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
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 |