From b8c6df9f520f8a8bb929a2589163e665eab5a3c8 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 22 Feb 2021 16:05:24 -0700 Subject: DATA.PGP: wrap extracted data in correct object Signed-off-by: Sean Whitton --- src/data/pgp.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/data') diff --git a/src/data/pgp.lisp b/src/data/pgp.lisp index 8fb7ca2..6963b53 100644 --- a/src/data/pgp.lisp +++ b/src/data/pgp.lisp @@ -42,7 +42,8 @@ (cadr (data-assoc iden1 iden2 cache))) (extract (iden1 iden2) (update-cache) - (cddr (data-assoc iden1 iden2 cache)))) + (make-instance 'string-data + :string (cddr (data-assoc iden1 iden2 cache))))) (cons #'check #'extract)))) (defun read-store (location) -- cgit v1.2.3