(defmethod db-sequ-open ((db db-txn) key &key txn initial-value create exclusive threaded seq-dec seq-inc seq-wrap) (with-txn (txn (db-get-env db) :txn txn) (call-next-method db key :txn txn :initial-value initial-value :create create :exclusive exclusive :threaded threaded :seq-dec seq-dec :seq-inc seq-inc :seq-wrap seq-wrap)))Source Context