add handler for fressian/list

Author: jpalharini

src/main/clojure/clojure/data/fressian.clj

@@ -14,11 +14,11 @@
    [clojure.java.io :as io]
    [clojure.string :as str])
   (:import
-   [clojure.lang IRecord Ratio]
+   [clojure.lang IRecord LazilyPersistentVector Ratio]
    [java.io InputStream OutputStream]
    [java.nio ByteBuffer]
    [org.fressian FressianWriter StreamingWriter FressianReader TaggedObject Writer Reader]
-   [org.fressian.handlers WriteHandler ReadHandler ILookup WriteHandlerLookup]
+   [org.fressian.handlers ConvertList WriteHandler ReadHandler ILookup WriteHandlerLookup]
    [org.fressian.impl ByteBufferInputStream BytesOutputStream InheritanceLookup]))
 
 (set! *warn-on-reflection* true)
@@ -188,7 +188,10 @@
                             (let [kvs ^java.util.List (.readObject rdr)]
                               (if (< (.size kvs) 16)
                                 (clojure.lang.PersistentArrayMap. (.toArray kvs))
-                                (clojure.lang.PersistentHashMap/create (seq kvs))))))})
+                                (clojure.lang.PersistentHashMap/create (seq kvs))))))
+   "fressian/list"
+   (reify ConvertList (convertList [_ items]
+                       (LazilyPersistentVector/createOwning items)))})
 
 (defn ^Writer create-writer
   "Create a fressian writer targeting out. Handlers must be