diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-24 10:47:41 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-24 10:47:41 -0700 |
| commit | da3b1064c8ad1072d8950f8aad4e6c40d2825112 (patch) | |
| tree | c4f6f6feb16ef8710b3e6f5468a5de1e55871bf1 /src/data | |
| parent | 9490953e268b89f4219ed9f724e71cc6e4526665 (diff) | |
| download | consfigurator-da3b1064c8ad1072d8950f8aad4e6c40d2825112.tar.gz | |
DATA.PGP: set DATA-VERSION slot
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data')
| -rw-r--r-- | src/data/pgp.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/data/pgp.lisp b/src/data/pgp.lisp index 74717a1..0324177 100644 --- a/src/data/pgp.lisp +++ b/src/data/pgp.lisp @@ -43,10 +43,10 @@ (cadr (data-assoc iden1 iden2 cache))) (extract (iden1 iden2) (update-cache) - (make-instance 'string-data - :iden1 iden1 - :iden2 iden2 - :string (cddr (data-assoc iden1 iden2 cache))))) + (let ((data (data-assoc iden1 iden2 cache))) + (make-instance 'string-data + :iden1 iden1 :iden2 iden2 + :string (cddr data) :version (cadr data))))) (cons #'check #'extract)))) (defun read-store (location) |