Author: hhubner Date: 2007-11-15 09:10:11 -0500 (Thu, 15 Nov 2007) New Revision: 2283 Modified: branches/trunk-reorg/bknr/datastore/src/data/txn.lisp Log: Remove redundant call to ensure-store-random-state Modified: branches/trunk-reorg/bknr/datastore/src/data/txn.lisp =================================================================== --- branches/trunk-reorg/bknr/datastore/src/data/txn.lisp 2007-11-15 07:42:51 UTC (rev 2282) +++ branches/trunk-reorg/bknr/datastore/src/data/txn.lisp 2007-11-15 14:10:11 UTC (rev 2283) @@ -79,7 +79,6 @@ (setf *store* store) (let ((store-existed-p (probe-file (store-current-directory store)))) (ensure-store-current-directory store) - (ensure-store-random-state store) (dolist (subsystem (store-subsystems store)) (when *store-debug* (format *trace-output* "Initializing subsystem ~A of ~A~%" subsystem store))