Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory clnet:/tmp/cvs-serv32343/src/db-bdb
Modified Files: bdb-transactions.lisp Log Message: Bug fixes to change-class; drop-btree; enable :from-end and :collect on map-btree (not map-class though); export and documentation edits
--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp 2007/04/25 02:27:58 1.14 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp 2007/04/27 13:32:14 1.15 @@ -57,7 +57,12 @@ (db-transaction-abort txn))))) (when success (return (values-list result))))) - finally (error "Too many retries in transaction")))) + finally (cerror "Retry transaction again?" + 'transaction-retry-count-exceeded + :format-control "Transaction exceeded the ~A retries limit" + :format-arguments (list retries) + :count retries)))) +
(defmethod controller-start-transaction ((sc bdb-store-controller) &key