diff options
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 |