diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-26 13:00:14 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-26 13:00:14 -0700 |
| commit | 03e93e96fdc7b4dd17e24a101202a25fb6d20c1e (patch) | |
| tree | 4e301cf3fdec521e3f5c4c1d12dc046fedf9a89b | |
| parent | 3c04fc76a24b75760c39504f40e8653c5b657ecc (diff) | |
| download | consfigurator-03e93e96fdc7b4dd17e24a101202a25fb6d20c1e.tar.gz | |
add TODO
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/data.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/data.lisp b/src/data.lisp index 9159332..8bb81f3 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -280,6 +280,8 @@ appropriate. Falls back to CONNECTION-WRITEFILE." (mrun "mkdir" "-p" (pathname-directory-pathname *dest*)) (format t "Uploading (~@{~S~^ ~}) ... " iden1 iden2 data-version) (call-next-method) + ;; TODO eliminate *{THIS,LAST}-HOP-INFO* and just store this in a field + ;; of *CONNECTION* (push (list iden1 iden2 *dest*) (getf *this-hop-info* :cached-data)) (format t "done.~%")))) |