Fast string encoder that doesn't coerce the string into a character list.
(json-encode-str x acc) → *
Function:
(defun json-encode-str$inline (x acc) (declare (type string x)) (let ((__function__ 'json-encode-str)) (declare (ignorable __function__)) (mbe :logic (json-encode-chars (explode x) acc) :exec (json-encode-str-aux x 0 (length x) acc))))