Incomplete JSON string

[anranyicheng]

If the json string is an array of :adjustable keywords, an error will be reported.

(let* ((test-string "{\"a\": 1234}")
       (test-string-array (make-array (length test-string)
				      :element-type 'character :adjustable t
				      :initial-contents test-string)))
  (print (parse test-string))
  (print (parse test-string-array)))

Incomplete JSON string:
{"a": 1234}
[Condition of type ]

Restarts:
0: [RETRY] Retry SLIME REPL evaluation request.
1: [*ABORT] Return to SLIME's top level.
2: [ABORT] abort thread (#<THREAD tid=4660 "repl-thread" RUNNING {1000B70093}>)

Refer to this modification link[https://github.com/edicl/drakma/pull/143]

[anranyicheng]

What do you think of this?