为什么我不能使用 CL-JSON 库将 a-list 转换为 Common Lisp 中的 JSON？

Question

我正在使用 Steel Bank Common 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\"}"

好的。现在，假设这个列表是由用户通过界面输入的。用户输入列表后，系统将其读取为字符串，因此：

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"))>.

出于某种原因，Slime 抛出错误：

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

input-from-user 中不应该有单引号。求值的时候只需要引用一个文字列表，使用read-from-string.

就不会求值了

* (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"))

为什么我不能使用 CL-JSON 库将 a-list 转换为 Common Lisp 中的 JSON？

Why I can't convert an a-list to JSON in Common Lisp using the CL-JSON library?

json

list

type-conversion

typeerror

common-lisp