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)