1.1--- a/lisp/lib/rdb/obj.lisp Tue Sep 24 22:19:05 2024 -0400
1.2+++ b/lisp/lib/rdb/obj.lisp Wed Sep 25 21:39:39 2024 -0400
1.3@@ -471,6 +471,11 @@
1.4 (make-rdb-stats (get-stats-raw (rdb-opts-sap (rdb-opts self)) htype)))
1.5
1.6 (defmethod create-iter ((self rdb) &optional cf (opts (rocksdb-readoptions-create)))
1.7+ (when cf
1.8+ (setf cf (etypecase cf
1.9+ (rdb-cf (rdb-cf-sap cf))
1.10+ (string (rdb-cf-sap (find-cf cf self)))
1.11+ (alien cf))))
1.12 (unless-null-db () self
1.13 (make-instance 'rdb-iter :sap (if cf
1.14 (create-cf-iter-raw db cf opts)