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

Modified Files: bdb-controller.lisp Log Message: Small changes for lispworks; mainly fixing pointer types

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2007/02/18 10:58:58 1.30 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2007/03/16 14:44:44 1.31 @@ -76,7 +76,7 @@ (recover-fatal nil) (thread t) (deadlock-detect nil)) (let ((env (db-env-create)) - (new-p (not (probe-file (make-pathname :directory (second (controller-spec sc)) + (new-p (not (probe-file (make-pathname :defaults (second (controller-spec sc)) :name "%ELEPHANT"))))) (setf (controller-environment sc) env) (db-env-set-flags env 0 :auto-commit t) @@ -95,7 +95,7 @@

;; Open metadata database (setf (controller-metadata sc) metadata) - (db-open metadata :file "%ELEPHANT" :database "%METADATA" + (db-open metadata :file "%ELEPHANT" :database "%METADATA" :auto-commit t :type DB-BTREE :create t :thread t)

;; Establish database version if new