Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv3903/src/elephant
Modified Files: transactions.lisp Log Message: Provide checkpoint function
--- /project/elephant/cvsroot/elephant/src/elephant/transactions.lisp 2007/02/17 19:28:53 1.9 +++ /project/elephant/cvsroot/elephant/src/elephant/transactions.lisp 2007/02/18 10:58:58 1.10 @@ -147,7 +147,7 @@ ,@(remove-keywords '(:store-controller :parent :transaction :retries) keyargs))))))
-(defmacro with-batched-transaction ((batch size list &rest txn-options) &body body) +(defmacro with-batch-transaction ((batch size list &rest txn-options) &body body) "Perform a set of DB operations over a list of elements in batches of size 'size'. Pass specific transaction options after the list reference." `(loop for ,batch in (subsets ,size ,list) do