(read-unicode-char reader initch)
(defn read-unicode-char [reader initch] (reader-error reader "Unicode characters not supported by reader (yet)"))