From 7454e3a739fb14526b3d9d01f76c91396c2de17a Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Tue, 25 May 2021 16:37:03 -0700
Subject: DATA.PGP: use SAFE-READ-FROM-STRING

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
---
 src/data/pgp.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/data')

diff --git a/src/data/pgp.lisp b/src/data/pgp.lisp
index 05ac255..25d447a 100644
--- a/src/data/pgp.lisp
+++ b/src/data/pgp.lisp
@@ -52,7 +52,7 @@
 
 (defun read-store (location)
   (handler-case
-      (read-from-string
+      (safe-read-from-string
        (run-program
         (escape-sh-command (list "gpg" "--decrypt" (unix-namestring location)))
         :output :string))
-- 
cgit v1.2.3