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

[ieslick]

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

Modified Files:
	bdb-controller.lisp 
Log Message:
User parameter if; deadlock detector param support

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2007/02/14 04:36:10	1.23
+++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2007/02/14 17:41:29	1.24
@@ -236,8 +236,7 @@
       (launch-background-program 
        (second (controller-spec ctrl))
        (namestring 
-	(make-pathname :directory '(:ABSOLUTE "opt" "local" "bin" "db45_deadlock")
-		       :name "db_deadlock"))
+	(make-pathname :defaults (get-user-configuration-parameter :berkeley-db-deadlock)))
        :args `("-a" ,(lookup-deadlock-type type)
 		    "-t" ,(format nil "~D" time)
 		    ,@(when log (list "-L" (format nil "~A" log)))))