1.1--- a/lisp/lib/rdb/raw.lisp	Fri Apr 05 21:18:54 2024 -0400
     1.2+++ b/lisp/lib/rdb/raw.lisp	Sat Apr 06 22:53:46 2024 -0400
     1.3@@ -27,7 +27,7 @@
     1.4 
     1.5 (defun destroy-db-raw (path &optional (opt (rocksdb-options-create)))
     1.6   (with-errptr (err 'destroy-db-error (list :db path))
     1.7-    (rocksdb-destroy-db opt path err)
     1.8+    (rocksdb-destroy-db opt (namestring (uiop:ensure-directory-pathname path)) err)
     1.9     (rocksdb-options-destroy opt)))
    1.10 
    1.11 ;; (with-open-db-raw (db "/tmp/tmp-db") (print db))
    1.12@@ -44,8 +44,8 @@
    1.13 (defun put-kv-raw (db key val &optional (opts (rocksdb-writeoptions-create)))
    1.14   (let ((klen (length key))
    1.15 	(vlen (length val)))
    1.16-    (with-alien ((k (* char) (make-alien char klen))
    1.17-		 (v (* char) (make-alien char vlen)))
    1.18+    (with-alien ((k (* unsigned-char) (make-alien unsigned-char klen))
    1.19+		 (v (* unsigned-char) (make-alien unsigned-char vlen)))
    1.20       (setfa k key)
    1.21       (setfa v val)
    1.22       (with-errptr (err 'put-kv-error (list :db db :kv (cons key val)))
    1.23@@ -66,8 +66,8 @@
    1.24   (let ((klen (length key))
    1.25 	(vlen (length val)))
    1.26     (with-errptr (err 'put-kv-error (list :db db :kv (cons key val)))
    1.27-      (with-alien ((k (* char) (make-alien char klen))
    1.28-		   (v (* char) (make-alien char vlen)))
    1.29+      (with-alien ((k (* unsigned-char) (make-alien unsigned-char klen))
    1.30+		   (v (* unsigned-char) (make-alien unsigned-char vlen)))
    1.31         (setfa k key)
    1.32         (setfa v val)
    1.33         (rocksdb-put-cf db
    1.34@@ -86,7 +86,7 @@
    1.35   (let ((klen (length key)))
    1.36     (with-errptr (err 'get-kv-error (list :db db :key key))
    1.37       (with-alien ((vlen (* size-t) (make-alien size-t 0))
    1.38-		   (k (* char) (make-alien char klen)))
    1.39+		   (k (* unsigned-char) (make-alien unsigned-char klen)))
    1.40         (setfa k key)
    1.41         (let* ((val (rocksdb-get db
    1.42 			         opt
    1.43@@ -108,7 +108,7 @@
    1.44   (let ((klen (length key)))
    1.45     (with-errptr (err 'get-kv-error (list :db db :key key))
    1.46       (with-alien ((vlen (* size-t) (make-alien size-t 0))
    1.47-		   (k (* char) (make-alien char klen)))
    1.48+		   (k (* unsigned-char) (make-alien unsigned-char klen)))
    1.49         (setfa k key)
    1.50         (let* ((val (rocksdb-get-cf db
    1.51 			            opt