diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-10 14:14:27 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-10 16:41:53 -0700 |
commit | fda12d8fe029f5b75874ab746e30d1561ad258cc (patch) | |
tree | e0fe6c617124bcbd7f8cb29d571b6592db41d279 /src/connection | |
parent | 220548126a4c93a7205f78cabdda66ca77bae7dd (diff) | |
download | consfigurator-fda12d8fe029f5b75874ab746e30d1561ad258cc.tar.gz |
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 <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection')
-rw-r--r-- | src/connection/rehome.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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) |