             [fress.reader :as r :refer [IFressianReader readInt]]
             [fress.writer :as w :refer [IFressianWriter writeInt beginClosedList endList class-sym]]
             [fress.impl.codes :as codes]
+            [cljs.reader :refer [read-string
+                                 *tag-table* *default-data-reader-fn*]]
             [fress.impl.buffer :as buf]
             [fress.impl.raw-input :as rawIn]))
 

(defn- record-writer
  [write-handlers]
  (fn [w rec]
    (let [{:keys [tag] :as r} (if (isa? (type rec) incognito.base.IncognitoTaggedLiteral)
                                (into {} rec)
                                (incognito-writer @write-handlers rec))]
      (write-tag w "record" 2)
      (write-object w tag)
      (write-tag w "map" 1)

        (write-object w field true)
        (write-object w value))
      (endList w))))


;;add incognito read-handler
(defn- record-reader
