为什么我可以使用CL-JSON库中的通用LISP中将A列表转换为JSON？

Question

我正在使用钢库普通LISP（SBCL），emacs，slime和一个称为 cl-json 。

我可以做：

CL-USER> (ql:quickload :cl-json)
To load "cl-json":
  Load 1 ASDF system:
    cl-json
; Loading "cl-json"

CL-USER> (json:encode-json-alist-to-string '(("name" .  "Pedro")))
"{\"name\":\"Pedro\"}"

好。现在，假设用户通过接口输入此ALIST。用户输入alist后，系统将其读取为字符串，因此：

CL-USER> (defvar input-from-user "'((\"name\" . \"John\"))")
INPUT-FROM-USER

CL-USER> input-from-user
"'((\"name\" . \"John\"))"

现在，我尝试：

CL-USER> (read-from-string input-from-user)
'(("name" . "John"))
20

CL-USER> (nth-value 0 (read-from-string input-from-user))
'(("name" . "John"))

CL-USER> (json:encode-json-alist-to-string
             (nth-value 0 (read-from-string input-from-user )))

; Evaluation aborted on #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: '(("name" . "John"))>.

出于某种原因，粘液引发错误：

Value '(("name" . "John")) is not of a type which can be encoded by ENCODE-JSON-ALIST.
   [Condition of type JSON:UNENCODABLE-VALUE-ERROR]

为什么会发生这种情况？我该如何解决？

Answer 1

您不应该在输入from-user中使用单个报价。您只需要在评估文字列表时就引用文字列表，但是当您使用读取时，不会进行评估。

* (defvar input-from-user "((\"name\" . \"John\"))")
INPUT-FROM-USER
* (read-from-string input-from-user)
(("name" . "John"))
19
* (nth-value 0 (read-from-string input-from-user))
(("name" . "John"))