(defmethod db-sequ-get ((sequ db-sequence) &key txn (delta 1) no-sync) (%db-sequ-get sequ txn delta :txn-no-sync no-sync))