 (defn- write-json-null [x ^PrintWriter out]
   (.print out "null"))
 
-(defn- write-json-named [x ^PrintWriter out]
+(defn- write-json-named [x out]
   (write-json-string (name x) out))
 
 (defn- write-json-generic [x out]

    "Print object to PrintWriter out as JSON"))

(defn- write-json-string [^CharSequence s ^PrintWriter out]
  (let [sb (StringBuilder. ^Integer (count s))]
    (.append sb \")
    (dotimes [i (count s)]
      (let [cp (int (.charAt s i))]

  clojure.data.json-new
  (:require [clojure.pprint :as pprint])
  (:import (java.io PrintWriter PushbackReader StringWriter
                    Writer StringReader EOFException)))

;;; JSON READER

