From a62d55d0df11e529b923dab1fb07a6e9b036fb9a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 5 Mar 2021 13:53:31 -0700 Subject: EVAL-PROPSPEC prints as it works through properties Signed-off-by: Sean Whitton --- src/propspec.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/propspec.lisp') diff --git a/src/propspec.lisp b/src/propspec.lisp index e0dcff6..8b5d74f 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -188,7 +188,11 @@ an atomic property application." do (asdf:load-system system))) (loop for form in (slot-value propspec 'applications) for propapp = (compile-propapp form) - do (propappapply propapp))) + do (let ((change-made (not (eq :no-change (propappapply propapp))))) + (format t "~@[~A :: ~]~@[~A ... ~]~:[ok~;done~]~%" + (get-hostname) + (propappdesc propapp) + change-made)))) (defmethod propspec->type ((propspec propspec)) "Return :lisp if any types of the properties to be applied by PROPSPEC is -- cgit v1.2.3