[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