1.1--- a/lisp/ffi/rocksdb/compaction.lisp	Fri Aug 16 21:23:35 2024 -0400
     1.2+++ b/lisp/ffi/rocksdb/compaction.lisp	Fri Aug 16 21:27:00 2024 -0400
     1.3@@ -24,6 +24,11 @@
     1.4             (* (array unsigned-char))
     1.5             (* size-t)
     1.6             (* unsigned-char)))
     1.7+
     1.8+(define-alien-type rocksdb-create-compaction-filter-function
     1.9+    (function (* rocksdb-compactionfilter)
    1.10+              (* t)
    1.11+              (* rocksdb-compactionfiltercontext)))
    1.12             
    1.13 (define-alien-routine rocksdb-compactionfilter-set-ignore-snapshots void
    1.14   (self (* rocksdb-compactionfilter)) (val unsigned-char))
    1.15@@ -48,11 +53,6 @@
    1.16 (define-alien-routine rocksdb-compacitonfilter-destroy void
    1.17   (factory (* rocksdb-compactionfilterfactory)))
    1.18 
    1.19-(define-alien-type rocksdb-create-compaction-filter-function
    1.20-    (function (* rocksdb-compactionfilter)
    1.21-              (* t)
    1.22-              (* rocksdb-compactionfiltercontext)))
    1.23-
    1.24 ;; maybe not possible? test
    1.25 (define-alien-callable rocksdb-create-compaction-filter (* rocksdb-compactionfilter)
    1.26     ((state (* t))