From fda12d8fe029f5b75874ab746e30d1561ad258cc Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 10 Apr 2022 14:14:27 -0700 Subject: tidy up slots of DATA class - Rename IDEN1->DATA-IDEN1, IDEN2->DATA-IDEN2. - Require values for DATA-IDEN1, DATA-IDEN2 AND DATA-VERSION slots. - Leave DATA-MIME unbound rather than initialising to NIL. Signed-off-by: Sean Whitton --- src/connection/rehome.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/connection') diff --git a/src/connection/rehome.lisp b/src/connection/rehome.lisp index b8adb8f..0a8a74c 100644 --- a/src/connection/rehome.lisp +++ b/src/connection/rehome.lisp @@ -31,10 +31,10 @@ (upload-all-prerequisite-data connection)) (defmethod connection-upload ((connection rehome-connection) (data file-data)) - (with-slots (iden1 iden2 data-version) data + (with-slots (data-iden1 data-iden2 data-version) data (let ((inside (data-pathname - (datadir connection) iden1 iden2 data-version)) - (outside (remote-data-pathname iden1 iden2 data-version))) + (datadir connection) data-iden1 data-iden2 data-version)) + (outside (remote-data-pathname data-iden1 data-iden2 data-version))) (mrun "mkdir" "-p" (pathname-directory-pathname inside)) (if (remote-exists-p outside) (mrun "cp" outside inside) -- cgit v1.2.3