freakhill

(ns keyword-reader-macro.core
  (:import [clojure.lang LispReader LispReader$StringReader]))

(defn field []
  (.getDeclaredField LispReader "dispatchMacros"))

(defn dispatch-macros []
  (.get (field) LispReader))

(defn dispatch-reader!