Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv12026/tests

Modified Files: testbdb.lisp Log Message: Fixed bug from last checkin; implemented abstraction for fast-locks for systems that have such a thing (such as without-interrupts in non-parallel lisps)

--- /project/elephant/cvsroot/elephant/tests/testbdb.lisp 2007/02/02 23:52:00 1.3 +++ /project/elephant/cvsroot/elephant/tests/testbdb.lisp 2007/02/03 00:57:35 1.4 @@ -70,8 +70,7 @@ (db-bdb::db-sequence-set-flags seq :seq-inc t :seq-wrap t) (db-bdb::db-sequence-set-range seq 0 most-positive-fixnum) (db-bdb::db-sequence-initial-value seq (- most-positive-fixnum 99)) - (db-bdb::db-sequence-open seq "testseq1" - :auto-commit t :create t :thread t) + (db-bdb::db-sequence-open seq "testseq1" :create t :thread t) (loop for i = (db-bdb::db-sequence-get-fixnum seq 1 :txn-nosync t) for j from (- most-positive-fixnum 99) to most-positive-fixnum while (> i 0)