diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 13:48:16 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 14:29:20 -0700 |
commit | 74cc4beeeb8a53f4a8e2199622b38b5968dfb4cc (patch) | |
tree | 9cf19867703976dc916768bb7f3fe0f42a2c144b /src/data.lisp | |
parent | 0924619a15e0c01499dbefed2fad29686e876c2e (diff) | |
download | consfigurator-74cc4beeeb8a53f4a8e2199622b38b5968dfb4cc.tar.gz |
add a DEFGENERIC for CONNECTION-CLEAR-DATA-CACHE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/data.lisp b/src/data.lisp index 2c3a7d9..11d9779 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -287,6 +287,12 @@ This is not allowed for security reasons.")) (push (list iden1 iden2 (remote-data-pathname iden1 iden2 data-version)) (slot-value connection 'cached-data)))) +(defgeneric connection-clear-data-cache (connection iden1 iden2) + (:documentation + "Delete all versions of the data identified by IDEN1 and IDEN2 from the remote +cache of CONNECTION. Called by UPLOAD-ALL-PREREQUISITE-DATA before uploading +new versions of data, to avoid them piling up.")) + (defmethod connection-clear-data-cache ((connection connection) iden1 iden2) (let* ((*connection* connection) (dir (ensure-directory-pathname (remote-data-pathname iden1 iden2)))) |