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

[ieslick]

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

Modified Files:
	bdb-controller.lisp berkeley-db.lisp 
Log Message:
Unsure why this doesn't compile, probably due to strings, but I'll comment it out for now

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2007/01/31 20:05:37	1.17
+++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2007/01/31 22:24:16	1.18
@@ -136,8 +136,8 @@
       (setf (slot-value sc 'class-root)
 	    (make-instance 'bdb-btree :from-oid -2 :sc sc))
 
-      (when errfile
-	(db-set-error-file (controller-db sc) errfile))
+;;      (when errfile
+;;	(db-set-error-file (controller-db sc) errfile))
 
       (when deadlock-detect
 	(start-deadlock-detector sc))
--- /project/elephant/cvsroot/elephant/src/db-bdb/berkeley-db.lisp	2007/01/31 20:05:37	1.5
+++ /project/elephant/cvsroot/elephant/src/db-bdb/berkeley-db.lisp	2007/01/31 22:24:16	1.6
@@ -485,13 +485,13 @@
 	    :flags (force)
 	    :documentation "Make a checkpoint.")
 
-(def-function ("db_set_error_file" %db-set-error-file)
-    ((db :pointer-void)
-     (file :cstring)))
-
-(defun db-set-error-file (db filename)
-  (with-cstrings ((fname filename))
-    (%db-set-error-file db fname)))
+;;(def-function ("db_set_error_file" %db-set-error-file)
+;;    ((db :pointer-void)
+;;     (file :cstring)))
+
+;;(defun db-set-error-file (db filename)
+;;  (with-cstrings ((fname filename))
+;;    (%db-set-error-file db fname)))
 
 ;; Database