Suggestion:
(defun json-escaped-char-to-lisp(json-escaped-char)
(or
(cdr (assoc json-escaped-char *json-lisp-escaped-chars*))
json-escaped-char))
The existing implementation is correct, just not particularly
tolerant of what people actually do. In particular it parsing of
json from del.icio.us.
It can handle:
(json:decode-json-from-string "right's of man")
but not
(json:decode-json-from-string "right\\'s of man")
"generous in what you accept", and all that.
- ben
"... no code should do that unless it should." -- Marc Slemko
