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

[ieslick]

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