[elephant-cvs] CVS elephant/src/db-bdb

[ieslick]

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