changelog shortlog graph tags branches changeset file revisions annotate raw help

Mercurial > core / lisp/lib/rdb/obj.lisp

revision 678: 2b7d5a8d63ac
parent 624: 97dd03beda03
child 679: 12287fab15d0
     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)