Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory clnet:/tmp/cvs-serv3920/src/db-bdb
Modified Files: bdb-controller.lisp package.lisp Log Message: Check for cross-store loading errors in multi-store operation; more documentation; backend language to data store language
--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2007/04/12 02:47:23 1.33 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2007/04/21 17:22:36 1.34 @@ -43,7 +43,7 @@ et cetera."))
;; -;; Backend Registry Support +;; Data store Registry Support ;;
(defun bdb-test-and-construct (spec) @@ -52,7 +52,7 @@ (error (format nil "uninterpretable spec specifier: ~A" spec))))
(eval-when (:compile-toplevel :load-toplevel) - (register-backend-con-init :bdb 'bdb-test-and-construct)) + (register-data-store-con-init :bdb 'bdb-test-and-construct))
(defun bdb-store-spec-p (spec) (and (eq (first spec) :bdb) @@ -192,7 +192,7 @@ ;; ;; Store the database version ;; -;; For BDB this can be in a file; different backends may require a different approach. +;; For BDB this can be in a file; different data stores may require a different approach.
(defmethod database-version ((sc bdb-store-controller)) "Elephant protocol to provide the version tag or nil if unmarked" @@ -282,7 +282,7 @@ (defmethod optimize-layout ((ctrl bdb-store-controller) &key start-key stop-key (freelist-only t) (free-space nil) &allow-other-keys) - "Tell the backend to optimize and reclaim storage between key values" + "Tell the data store to optimize and reclaim storage between key values" (with-buffer-streams (start stop end) (if (null start-key) (progn --- /project/elephant/cvsroot/elephant/src/db-bdb/package.lisp 2007/04/12 02:47:23 1.9 +++ /project/elephant/cvsroot/elephant/src/db-bdb/package.lisp 2007/04/21 17:22:37 1.10 @@ -33,7 +33,7 @@ Elephant, but with some magic for Elephant. In general there is a 1-1 mapping from functions here and functions in Berkeley DB, so refer to their documentation for details.") - (:use common-lisp uffi elephant-memutil elephant elephant-backend elephant-utils) + (:use common-lisp uffi elephant-memutil elephant elephant-data-store elephant-utils) #+cmu (:use alien) #+sbcl