1.1--- a/lisp/ffi/rocksdb/db.lisp	Thu Aug 15 23:36:34 2024 -0400
     1.2+++ b/lisp/ffi/rocksdb/db.lisp	Fri Aug 16 15:52:50 2024 -0400
     1.3@@ -18,9 +18,6 @@
     1.4 (define-alien-routine rocksdb-enable-manual-compaction void
     1.5   (db (* rocksdb)))
     1.6 
     1.7-(export '(rocksdb-close rocksdb-cancel-all-background-work
     1.8-          rocksdb-enable-manual-compaction rocksdb-disable-manual-compaction))
     1.9-
    1.10 (def-with-errptr rocksdb-put 
    1.11   void 
    1.12   (db (* rocksdb))
    1.13@@ -147,13 +144,8 @@
    1.14   (ts-list-sizes (array size-t))
    1.15   (errs (array rocksdb-errptr)))
    1.16 
    1.17-(export '(rocksdb-multi-get rocksdb-multi-get-cf
    1.18-          rocksdb-multi-get-with-ts rocksdb-multi-get-cf-with-ts))
    1.19-
    1.20 (define-alien-routine rocksdb-cache-create-lru (* rocksdb-cache) (capacity size-t))
    1.21 
    1.22-(export '(rocksdb-cache-create-lru))
    1.23-
    1.24 (def-with-errptr rocksdb-flush void 
    1.25   (db (* rocksdb))
    1.26   (options (* rocksdb-flushoptions)))
    1.27@@ -182,8 +174,6 @@
    1.28   (db (* rocksdb))
    1.29   (name c-string))
    1.30 
    1.31-(export '(rocksdb-delete-file rocksdb-livefile))
    1.32-
    1.33 ;; return NULL if prop name is unknown, else return pointer to
    1.34 ;; malloc-ed null-term value.
    1.35 (define-alien-routine rocksdb-property-value c-string
    1.36@@ -205,8 +195,6 @@
    1.37   (cf (* rocksdb-column-family-handle))
    1.38   (propname c-string))
    1.39 
    1.40-(export '(rocksdb-property-value rocksdb-property-value-cf rocksdb-property-int rocksdb-property-int-cf))    
    1.41-
    1.42 ;;; CF
    1.43 (def-with-errptr rocksdb-create-column-family 
    1.44   (* rocksdb-column-family-handle)
    1.45@@ -235,9 +223,6 @@
    1.46   (handle (* rocksdb-column-family-handle))
    1.47   (name-len (* size-t)))
    1.48 
    1.49-(export '(rocksdb-create-column-families-destroy rocksdb-column-family-handle-destroy
    1.50-          rocksdb-column-family-handle-get-id rocksdb-column-family-handle-get-name))
    1.51-
    1.52 (def-with-errptr rocksdb-drop-column-family 
    1.53   void
    1.54   (db (* rocksdb))
    1.55@@ -262,8 +247,6 @@
    1.56   (list (array c-string))
    1.57   (len size-t))
    1.58 
    1.59-(export '(rocksdb-list-column-families-destroy))
    1.60-
    1.61 (def-with-errptr rocksdb-put-cf 
    1.62   void
    1.63   (db (* rocksdb))
    1.64@@ -356,13 +339,6 @@
    1.65 (define-alien-routine rocksdb-wal-iter-destroy void
    1.66   (iter (* rocksdb-wal-iterator)))
    1.67 
    1.68-(export '(rocksdb-create-iterator rocksdb-iter-destroy rocksdb-iter-seek-to-first rocksdb-iter-valid
    1.69-          rocksdb-iter-seek-to-last rocksdb-iter-seek rocksdb-iter-seek-for-prev
    1.70-          rocksdb-iter-next rocksdb-iter-prev rocksdb-iter-key rocksdb-iter-value rocksdb-create-iterator-cf
    1.71-          rocksdb-iter-timestamp rocksdb-iter-get-error rocksdb-wal-iter-next rocksdb-wal-iter-valid
    1.72-          rocksdb-wal-iter-get-batch rocksdb-get-latest-sequence-number rocksdb-wal-iter-destroy))
    1.73-
    1.74-
    1.75 ;;; Backup
    1.76 (def-with-errptr rocksdb-backup-engine-open
    1.77   (* rocksdb-backup-engine)
    1.78@@ -392,8 +368,6 @@
    1.79 (define-alien-routine rocksdb-backup-engine-close void
    1.80   (be (* rocksdb-backup-engine)))
    1.81 
    1.82-(export '(rocksdb-backup-engine-close))
    1.83-
    1.84 ;;; Transactions
    1.85 (def-with-errptr rocksdb-transactiondb-create-column-family (* rocksdb-column-family-handle)
    1.86   (txn-db (* rocksdb-transactiondb))
    1.87@@ -578,17 +552,6 @@
    1.88 (def-with-errptr rocksdb-optimistictransactiondb-checkpoint-object-create (* rocksdb-checkpoint)
    1.89   (otxn-db (* rocksdb-optimistictransactiondb)))
    1.90 
    1.91-(export '(rocksdb-transaction-begin rocksdb-transaction-close rocksdb-transactiondb-create-snapshot
    1.92-          rocksdb-transactiondb-release-snapshot rocksdb-transactiondb-property-value
    1.93-          rocksdb-transactiondb-property-int rocksdb-transactiondb-get-base-db
    1.94-          rocksdb-transactiondb-get-close-db rocksdb-transaction-get-name
    1.95-          rocksdb-transaction-set-savepoint rocksdb-transaction-destroy
    1.96-          rocksdb-transaction-create-iterator rocksdb-transaction-create-iterator-cf
    1.97-          rocksdb-transactiondb-create-iterator rocksdb-transactiondb-create-iterator-cf
    1.98-          rocksdb-optimistictransactiondb-get-base-db rocksdb-optimistictransactiondb-close-base-db
    1.99-          rocksdb-optimistictransaction-begin rocksdb-optimistictransactiondb-close
   1.100-          rocksdb-transactiondb-flush-wal))
   1.101-
   1.102 ;;; Perfcontext
   1.103 (define-alien-routine rocksdb-set-perf-level void (val int))
   1.104 
   1.105@@ -606,9 +569,6 @@
   1.106 ;; TODO 2024-05-24: causes compile error - pass-by-struct not supported
   1.107 ;; (define-alien-routine rocksdb-perfcontext-destroy void (* rocksdb-perfcontext))
   1.108 
   1.109-(export '(rocksdb-perfcontext-reset rocksdb-perfcontext-report
   1.110-          rocksdb-perfcontext-metric rocksdb-perfcontext-destroy rocksdb-set-perf-level))
   1.111-
   1.112 ;;; Filter Policy
   1.113 (define-alien-routine rocksdb-filterpolicy-destroy void (self (* rocksdb-filterpolicy)))
   1.114 
   1.115@@ -625,9 +585,6 @@
   1.116   (bloom-equivalent-bits-per-key double)
   1.117   (bloom-before-level int))
   1.118 
   1.119-(export '(rocksdb-filterpolicy-destroy rocksdb-filterpolicy-create-bloom rocksdb-filterpolicy-create-bloom-full
   1.120-          rocksdb-filterpolicy-create-ribbon rocksdb-filterpolicy-create-ribbon-hybrid))
   1.121-
   1.122 ;;; Snapshot
   1.123 (define-alien-routine rocksdb-create-snapshot (* rocksdb-snapshot)
   1.124   (db (* rocksdb)))
   1.125@@ -638,5 +595,3 @@
   1.126 (define-alien-routine rocksdb-release-snapshot void
   1.127   (db (* rocksdb))
   1.128   (snapshot (* rocksdb-snapshot)))
   1.129-
   1.130-(export '(rocksdb-create-snapshot rocksdb-snapshot-get-sequence-number rocksdb-release-snapshot))