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