Method: (DB-SEQU-GET DB-SEQUENCE-TXN)

Source

(defmethod db-sequ-get ((sequ db-sequence-txn) &key txn (delta 1) no-sync)
  (with-txn (txn (db-get-env sequ) :txn txn)
    (call-next-method sequ
		      :txn txn
		      :delta delta
		      :no-sync no-sync)))