cljs.reader/read-literal

(defn read-literal
  [rdr ch]
  (let [token (read-token rdr ch)
        chars (subs token 1)]
    (cond (identical? (.-length chars) 1) chars
          (identical? chars "tab")       "\t"
          (identical? chars "return")    "\r"
          (identical? chars "newline")   "\n"
          (identical? chars "space")     " "
          (identical? chars "backspace") "\b"
          (identical? chars "formfeed")  "\f"
          (identical? (.charAt chars 0) "u") (make-unicode-char (subs chars 1))
          (identical? (.charAt chars 0) "o") (not-implemented rdr token)
          :else (reader-error rdr "Unknown character literal: " token))))