1.1--- a/lisp/ffi/rocksdb/rocksdb.lisp	Sat Oct 21 01:11:32 2023 -0400
     1.2+++ b/lisp/ffi/rocksdb/rocksdb.lisp	Sun Oct 22 00:27:32 2023 -0400
     1.3@@ -142,7 +142,6 @@
     1.4    :rocksdb-block-based-options-create
     1.5    :rocksdb-block-based-options-destroy
     1.6    :rocksdb-block-based-options-set-block-cache
     1.7-   :set-block-based-options-cache-index-and-filter-blocks
     1.8    ;; OPTIONS
     1.9    ;; opt-utils
    1.10    :rocksdb-load-latest-options
    1.11@@ -281,11 +280,13 @@
    1.12 (define-alien-type rocksdb-cache (struct rocksdb-cache-t))
    1.13 (define-alien-type rocksdb-checkpoint (struct rocksdb-checkpoint-t))
    1.14 (define-alien-type rocksdb-snapshot (struct rocksdb-snapshot-t))
    1.15+(define-alien-type rocksdb-comparator (struct rocksdb-comparator-t))
    1.16 (define-alien-type rocksdb-transaction (struct rocksdb-transaction-t))
    1.17 (define-alien-type rocksdb-transactiondb (struct rocksdb-transactiondb-t))
    1.18 (define-alien-type rocksdb-livefiles (struct rocksdb-column-family-livefiles-t))
    1.19 (define-alien-type rocksdb-writebatch (struct rocksdb-column-family-writebatch-t))
    1.20 (define-alien-type rocksdb-mergeoperator (struct rocksdb-mergeoperator-t))
    1.21+(define-alien-type rocksdb-env (struct rocksdb-env-t))
    1.22 ;;;; column-family
    1.23 (define-alien-type rocksdb-column-family-handle (struct rocksdb-column-family-handler-t))
    1.24 (define-alien-type rocksdb-column-family-metadata (struct rocksdb-column-family-metadata-t))
    1.25@@ -315,7 +316,37 @@
    1.26 (define-alien-routine rocksdb-cache-create-lru (* rocksdb) (capacity unsigned-int))
    1.27 
    1.28 ;;; Options
    1.29+(define-alien-routine rocksdb-load-latest-options void
    1.30+  (db-path c-string)
    1.31+  (env (* rocksdb-env))
    1.32+  (ignore-unknown-options boolean)
    1.33+  (cache (* rocksdb-cache))
    1.34+  (db-options (* (* rocksdb-options)))
    1.35+  (num-column-families (* size-t))
    1.36+  (column-family-names (* (* c-string)))
    1.37+  (column-family-options (* (* (* rocksdb-options))))
    1.38+  (errptr rocksdb-errptr))
    1.39 
    1.40+(define-alien-routine rocksdb-load-latest-options-destroy void
    1.41+  (db-options (* (* rocksdb-options)))
    1.42+  (list-column-family-names (* c-string))
    1.43+  (list-column-family-options (* (* rocksdb-options)))
    1.44+  (len size-t))
    1.45+
    1.46+(define-alien-routine rocksdb-set-options void
    1.47+  (db (* rocksdb))
    1.48+  (count int)
    1.49+  (keys (array c-string))
    1.50+  (values (array c-string))
    1.51+  (errptr rocksdb-errptr))
    1.52+
    1.53+(define-alien-routine rocksdb-set-options-cf void
    1.54+  (db (* rocksdb))
    1.55+  (handle (* rocksdb-column-family-handle))
    1.56+  (count int)
    1.57+  (keys (array c-string))
    1.58+  (values (array c-string))
    1.59+  (errptr (rocksdb-errptr)))
    1.60 ;;;; bb-opts
    1.61 (define-alien-routine rocksdb-block-based-options-create (* rocksdb-block-based-table-options))
    1.62 (define-alien-routine rocksdb-block-based-options-destroy void 
    1.63@@ -342,6 +373,13 @@
    1.64 (define-alien-routine rocksdb-options-set-block-based-table-factory void
    1.65   (opt (* rocksdb-options))
    1.66   (table-options (* rocksdb-block-based-table-options)))
    1.67+(define-alien-routine rocksdb-options-set-allow-ingest-behind void
    1.68+  (opts (* rocksdb-options))
    1.69+  (val unsigned-char))
    1.70+(define-alien-routine rocksdb-options-set-merge-operator void
    1.71+  (opts (* rocksdb-options))
    1.72+  (comparator (* rocksdb-comparator)))
    1.73+
    1.74 ;;;; write-opts
    1.75 (define-alien-routine rocksdb-writeoptions-create (* rocksdb-writeoptions))
    1.76 (define-alien-routine rocksdb-writeoptions-destroy void