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

[bknr at bknr.net]

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)