Update of /project/elephant/cvsroot/elephant/src/db-clsql In directory clnet:/tmp/cvs-serv3920/src/db-clsql

Modified Files: package.lisp sql-controller.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-clsql/package.lisp 2007/04/12 02:47:24 1.4 +++ /project/elephant/cvsroot/elephant/src/db-clsql/package.lisp 2007/04/21 17:22:39 1.5 @@ -20,7 +20,7 @@

(defpackage db-clsql (:use :common-lisp :uffi :cl-base64 - :elephant :elephant-memutil :elephant-backend + :elephant :elephant-memutil :elephant-data-store :elephant-utils #+sbcl :sb-thread )) --- /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp 2007/04/12 02:47:24 1.24 +++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp 2007/04/21 17:22:40 1.25 @@ -88,10 +88,10 @@

(eval-when (:compile-toplevel :load-toplevel) - (register-backend-con-init :clsql 'sql-test-and-construct)) + (register-data-store-con-init :clsql 'sql-test-and-construct))

(defun sql-test-and-construct (spec) - "Entry function for making SQL backend controllers" + "Entry function for making SQL data store controllers" (if (sql-store-spec-p spec) (make-instance 'sql-store-controller :spec (if spec spec @@ -167,7 +167,7 @@ ;; ISE NOTE: Much of the index management functionality is common between ;; bdb and sql - we could lift this along with indices and indices-cache ;; up to the main elephant code base and introduce a new update-index -;; generic function to handle the backend specific method for updating +;; generic function to handle the data store specific method for updating (defmethod map-indices (fn (bt sql-indexed-btree)) (maphash fn (indices-cache bt)))