cljs.repl.reflect/handle-reflect-query

(defmulti handle-reflect-query (fn [[param _] & _] param))

(defmethod handle-reflect-query [[_ sym] req conn opts]
  (let [sym (read-url-string sym)]
    (compile-and-return conn (get-meta sym))))

(defmethod handle-reflect-query [[_ mform] req conn opts]
  (let [mform (-> mform read-url-string macroexpand)]
    (server/send-and-close conn 200 (with-out-str (pprint/pprint mform)))))