         (write-object w field true)
         (write-object w value))
       (endList w))))
+
 
 ;;add incognito read-handler
 (defn- record-reader

            [fress.reader :as r :refer [IFressianReader readInt]]
            [fress.writer :as w :refer [IFressianWriter writeInt beginClosedList endList class-sym]]
            [fress.impl.codes :as codes]
            [fress.impl.buffer :as buf]
            [fress.impl.raw-input :as rawIn]))


(defn- record-writer
  [write-handlers]
  (fn [w rec]
    (let [{:keys [tag value] :as r} (if (isa? (type rec) incognito.base.IncognitoTaggedLiteral)
                                      (into {} rec)
                                      (incognito-writer @write-handlers rec))
          tag                       (-> tag
                                        str
                                        (clojure.string/replace-first  #"/" ".")
                                        symbol)]
      (write-tag w "record" 2)
      (write-object w tag)
      (write-tag w "map" 1)
