Support IPersistentVector interface

Fixes e/patch with diffs

Author: codeboost

src/xitdb/array_list.clj

@@ -31,6 +31,13 @@
 
   clojure.lang.Sequential  ;; Add this to mark as sequential
 
+  clojure.lang.IPersistentVector
+  (assocN [this i val]
+    (throw (UnsupportedOperationException. "XITDBArrayList is read-only")))
+
+  (length [this]
+    (.count ral))
+
   clojure.lang.Indexed
   (nth [_ i]
     (let [cursor (.getCursor ral (long i))]
@@ -88,6 +95,12 @@
         (aset result len nil))
       result))
 
+  clojure.lang.IPersistentVector
+  (assocN [this i val]
+    (throw (UnsupportedOperationException. "XITDBArrayList is read-only")))
+
+  (length [this]
+    (.count ral))
 
   common/IUnwrap
   (-unwrap [this]
@@ -139,6 +152,14 @@
       (common/-read-from-cursor (.putCursor wal i))
       not-found))
 
+  clojure.lang.IPersistentVector
+  (assocN [this i val]
+    (util/array-list-assoc-value! wal i (common/unwrap val))
+    this)
+
+  (length [this]
+    (.count wal))
+
   clojure.lang.Associative
   (assoc [this k v]
     (when-not (integer? k)