1.1--- a/lisp/ffi/rocksdb/comparator.lisp	Tue Aug 13 22:05:23 2024 -0400
     1.2+++ b/lisp/ffi/rocksdb/comparator.lisp	Wed Aug 14 21:49:56 2024 -0400
     1.3@@ -1,11 +1,36 @@
     1.4 ;;; rocksdb/comparator.lisp --- RocksDB Comparators
     1.5 
     1.6-;;
     1.7+;; RocksDB Lisp Comparator API
     1.8 
     1.9 ;;; Code:
    1.10 (in-package :rocksdb)
    1.11 
    1.12-;; TODO 2023-12-11: 
    1.13+(define-alien-type rocksdb-compare-function
    1.14+  (function int
    1.15+            (* t)
    1.16+            c-string
    1.17+            size-t
    1.18+            c-string
    1.19+            size-t))
    1.20+
    1.21+(define-alien-type rocksdb-compare-ts-function
    1.22+  (function int
    1.23+            (* t)
    1.24+            c-string
    1.25+            size-t
    1.26+            c-string
    1.27+            size-t))
    1.28+
    1.29+(define-alien-type rocksdb-compare-without-ts-function
    1.30+  (function int
    1.31+            (* t)
    1.32+            c-string
    1.33+            size-t
    1.34+            unsigned-char
    1.35+            c-string
    1.36+            size-t
    1.37+            unsigned-char))
    1.38+
    1.39 (define-alien-routine rocksdb-comparator-create (* rocksdb-comparator)
    1.40   (state (* t))
    1.41   (destructor (* t))