diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 16:05:54 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 16:05:54 -0700 |
| commit | bcdeb80ebf6affe4af43e6aed288eebce8ff115b (patch) | |
| tree | 8a89136e11aa7d2ca5df3a14dc5575759a77e947 /src/data | |
| parent | b8c6df9f520f8a8bb929a2589163e665eab5a3c8 (diff) | |
| download | consfigurator-bcdeb80ebf6affe4af43e6aed288eebce8ff115b.tar.gz | |
DATA.PGP: fix cache flushing
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data')
| -rw-r--r-- | src/data/pgp.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/data/pgp.lisp b/src/data/pgp.lisp index 6963b53..8650ce9 100644 --- a/src/data/pgp.lisp +++ b/src/data/pgp.lisp @@ -34,9 +34,10 @@ (let ((mod (file-write-date location)) (cache (read-store location))) (labels ((update-cache () - (when-let ((new-mod (> (file-write-date location) mod))) - (setq mod new-mod - cache (read-store location)))) + (let ((new-mod (file-write-date location))) + (when (> new-mod mod) + (setq mod new-mod + cache (read-store location))))) (check (iden1 iden2) (update-cache) (cadr (data-assoc iden1 iden2 cache))) |