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)