[secret] print/read

secrets.lisp

@@ -16,10 +16,16 @@
         (close input-stream)))))
 
 (defun secret/get (path)
-  (%secret/pass "show" path))
+  (handler-case
+      (let ((*read-eval* nil))
+        (values (read-from-string (%secret/pass "show" path))))
+    (error (e)
+      (log:error "~A" e)
+      (values))))
 
 (defun secret/set (path value)
-  (%secret/pass "insert --force --multiline" path :input value))
+  (%secret/pass "insert --force --multiline" path
+                :input (prin1-to-string value)))
 
 (defun secret/del (path)
   (%secret/pass "rm --force" path))