1.1--- a/lisp/ffi/rocksdb/tests.lisp	Sun Aug 18 21:37:07 2024 -0400
     1.2+++ b/lisp/ffi/rocksdb/tests.lisp	Sun Aug 18 21:41:47 2024 -0400
     1.3@@ -451,4 +451,14 @@
     1.4          '(alien (* rocksdb-compactionfilterfactory))))))
     1.5     
     1.6 (deftest logger ()
     1.7-  "Test logging functionality.")
     1.8+  "Test logging functionality."
     1.9+  (with-alien ((state (* t))
    1.10+               (lev unsigned 0)
    1.11+               (msg c-string)
    1.12+               (log (* rocksdb-log-function) (alien-sap (alien-callable-function 'rocksdb-log-default))))
    1.13+    (is (typep
    1.14+         (rocksdb-logger-create-stderr-logger lev msg)
    1.15+         '(alien (* rocksdb-logger))))
    1.16+    (is (typep
    1.17+         (rocksdb-logger-create-callback-logger lev log state)
    1.18+         '(alien (* rocksdb-logger))))))