[elephant-cvs] CVS elephant/tests
ieslick
ieslick at common-lisp.net
Sat Feb 3 00:57:35 UTC 2007
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)
More information about the Elephant-cvs
mailing list