[elephant-cvs] CVS elephant/src/db-bdb

ieslick ieslick at common-lisp.net
Sat Feb 3 00:57:34 UTC 2007


Update of /project/elephant/cvsroot/elephant/src/db-bdb
In directory clnet:/tmp/cvs-serv12026/src/db-bdb

Modified Files:
	bdb-controller.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/src/db-bdb/bdb-controller.lisp	2007/02/02 23:51:58	1.20
+++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2007/02/03 00:57:33	1.21
@@ -111,8 +111,7 @@
 	  (db-sequence-set-flags oid-seq :seq-inc t :seq-wrap t)
 	  (db-sequence-set-range oid-seq 0 most-positive-fixnum)
 	  (db-sequence-initial-value oid-seq 0)
-	  (db-sequence-open oid-seq "%ELEPHANTOID"
-			    :auto-commit t :create t :thread t)
+	  (db-sequence-open oid-seq "%ELEPHANTOID" :create t :thread t)
 	  (setf (controller-oid-seq sc) oid-seq)))
 
       (setf (slot-value sc 'root)




More information about the Elephant-cvs mailing list