Author: hhubner Date: 2007-11-12 02:02:43 -0500 (Mon, 12 Nov 2007) New Revision: 2270
Modified: branches/trunk-reorg/bknr/datastore/src/data/txn.lisp Log: Don't bind *random-state* for subsystem snapshots.
Modified: branches/trunk-reorg/bknr/datastore/src/data/txn.lisp =================================================================== --- branches/trunk-reorg/bknr/datastore/src/data/txn.lisp 2007-11-12 06:57:46 UTC (rev 2269) +++ branches/trunk-reorg/bknr/datastore/src/data/txn.lisp 2007-11-12 07:02:43 UTC (rev 2270) @@ -471,17 +471,13 @@ (let ((error t)) (unwind-protect (with-store-state (:snapshot) - (let ((*random-state* (store-random-state store))) - (dolist (subsystem (store-subsystems store)) + (update-store-random-state store) + (dolist (subsystem (store-subsystems store)) (when *store-debug* (format *trace-output* "Snapshotting subsystem ~A of ~A~%" subsystem store)) (snapshot-subsystem store subsystem) (when *store-debug* - (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) - t) + (format *trace-output* "Successfully snapshotted ~A of ~A~%" subsystem store)))) (when error (warn "Restoring backup ~A to current." backup-directory)