From 7f67b0959d97239e206543a2044916a2e46743ab Mon Sep 17 00:00:00 2001 From: saturn Date: Wed, 14 Oct 2020 13:05:41 -0500 Subject: [PATCH] Fix text encoding error in cache-get. --- src/lmdb.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/lmdb.lisp b/src/lmdb.lisp index 6408a7ae..d20dc39e 100644 --- a/src/lmdb.lisp +++ b/src/lmdb.lisp @@ -175,8 +175,12 @@ (defparameter *type-accessors* '((:byte-vector (vector (unsigned-byte 8)) x x :byte-vector) (:string string (and x (string-to-octets x :external-format :utf-8)) x :string) - (:json t (and x (string-to-octets (json:encode-json-to-string x) :external-format :utf-8)) (and x (json:decode-json (flex:make-flexi-stream x))) 'binary-stream) - (:lisp t (and x (string-to-octets (write-to-string x :pretty nil :readably t :circle nil) :external-format :utf-8)) (and x (read (flex:make-flexi-stream x))) 'binary-stream))) + (:json t + (and x (string-to-octets (json:encode-json-to-string x) :external-format :utf-8)) + (and x (json:decode-json (flex:make-flexi-stream x :external-format :utf-8))) 'binary-stream) + (:lisp t + (and x (string-to-octets (write-to-string x :pretty nil :readably t :circle nil) :external-format :utf-8)) + (and x (read (flex:make-flexi-stream x :external-format :utf-8))) 'binary-stream))) (defun map-type-accessors (fn) (map 'list (lambda (accessor) (apply fn accessor)) *type-accessors*)) -- 2.11.4.GIT