[bknr-cvs] r2268 - branches/trunk-reorg/bknr/datastore/src/data

[bknr at bknr.net]

Author: hhubner
Date: 2007-11-12 01:50:52 -0500 (Mon, 12 Nov 2007)
New Revision: 2268

Modified:
   branches/trunk-reorg/bknr/datastore/src/data/txn.lisp
Log:
Return T from SNAPSHOT-STORE, not the store's random state.


Modified: branches/trunk-reorg/bknr/datastore/src/data/txn.lisp
===================================================================
--- branches/trunk-reorg/bknr/datastore/src/data/txn.lisp	2007-11-12 06:38:32 UTC (rev 2267)
+++ branches/trunk-reorg/bknr/datastore/src/data/txn.lisp	2007-11-12 06:50:52 UTC (rev 2268)
@@ -483,7 +483,8 @@
 			 (format *trace-output* "Successfully snapshotted ~A of ~A~%" subsystem store)))
 		     (setf (store-transaction-run-time store) 0)
 		     (setf error nil))
-		   (update-store-random-state store))
+		   (update-store-random-state store)
+		   t)
               (when error
 		(warn "Restoring backup ~A to current."
 		      backup-directory)