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