add some output as Consfigurator executes deployments

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 8 insertions, 8 deletions

diff --git a/src/data.lisp b/src/data.lisp
index 5ec2c2a..5f9846c 100644
--- a/src/data.lisp
+++ b/src/data.lisp
@@ -274,14 +274,14 @@ appropriate.  Falls back to CONNECTION-WRITEFILE."
   (when (subtypep (class-of *connection*)
 		  'consfigurator.connection.local:local-connection)
     (error "Attempt to upload data to the root Lisp; this is not allowed"))
-  (let ((*dest* (remote-data-pathname (iden1 data)
-				      (iden2 data)
-				      (data-version data))))
-    (declare (special *dest*))
-    (run "mkdir" "-p" (pathname-directory-pathname *dest*))
-    (call-next-method)
-    (push (list (iden1 data) (iden2 data) *dest*)
-	  (getf *this-hop-info* :cached-data))))
+  (with-slots (iden1 iden2 data-version) data
+    (let ((*dest* (remote-data-pathname iden1 iden2 data-version)))
+      (declare (special *dest*))
+      (mrun "mkdir" "-p" (pathname-directory-pathname *dest*))
+      (format t "Uploading (~@{~S~^ ~}) ... " iden1 iden2 data-version)
+      (call-next-method)
+      (push (list iden1 iden2 *dest*) (getf *this-hop-info* :cached-data))
+      (format t "done.~%"))))
 
 (defmethod connection-upload-data ((data file-data))
   (declare (special *dest*))