1.1--- a/lisp/ffi/rocksdb/db.lisp	Sun Apr 07 22:07:57 2024 -0400
     1.2+++ b/lisp/ffi/rocksdb/db.lisp	Mon Apr 08 22:55:30 2024 -0400
     1.3@@ -181,22 +181,22 @@
     1.4 ;; malloc-ed null-term value.
     1.5 (define-alien-routine rocksdb-property-value c-string
     1.6   (db (* rocksdb))
     1.7-  (propname (* c-string)))
     1.8+  (propname c-string))
     1.9 
    1.10 ;; return 0 on success, else -1
    1.11 (define-alien-routine rocksdb-property-int int
    1.12   (db (* rocksdb))
    1.13-  (propname (* c-string)))
    1.14+  (propname c-string))
    1.15 
    1.16 (define-alien-routine rocksdb-property-value-cf c-string
    1.17   (db (* rocksdb))
    1.18   (cf (* rocksdb-column-family-handle))
    1.19-  (propname (* c-string)))
    1.20+  (propname c-string))
    1.21 
    1.22 (define-alien-routine rocksdb-property-int-cf int
    1.23   (db (* rocksdb))
    1.24   (cf (* rocksdb-column-family-handle))
    1.25-  (propname (* c-string)))
    1.26+  (propname c-string))
    1.27 
    1.28 (export '(rocksdb-property-value rocksdb-property-value-cf rocksdb-property-int rocksdb-property-int-cf))    
    1.29 
    1.30@@ -630,20 +630,3 @@
    1.31 
    1.32 (export '(rocksdb-filterpolicy-destroy rocksdb-filterpolicy-create-bloom rocksdb-filterpolicy-create-bloom-full
    1.33           rocksdb-filterpolicy-create-ribbon rocksdb-filterpolicy-create-ribbon-hybrid))
    1.34-
    1.35-;;; Merge Operator
    1.36-
    1.37-;; TODO 2023-12-11: 
    1.38-(define-alien-routine rocksdb-mergeoperator-create (* rocksdb-mergeoperator)
    1.39-  (state (* t))
    1.40-  (destructor (* t))
    1.41-  (full-merge (* char))
    1.42-  (partial-merge (* char))
    1.43-  (delete-value (* t))
    1.44-  (name (* unsigned-char)))
    1.45-
    1.46-#| [[file:~/dev/comp/core/c/rocksdb.h::/* Merge Operator */]] |#
    1.47-
    1.48-(define-alien-routine rocksdb-mergeoperator-destroy void (self (* rocksdb-mergeoperator)))
    1.49-
    1.50-(export '(rocksdb-mergeoperator-destroy))