From da3b1064c8ad1072d8950f8aad4e6c40d2825112 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 24 Feb 2021 10:47:41 -0700 Subject: DATA.PGP: set DATA-VERSION slot Signed-off-by: Sean Whitton --- src/data/pgp.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/data') 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) -- cgit v1.2.3