[elephant-cvs] CVS elephant/src/elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv4653/src/elephant

Modified Files:
	backend.lisp package.lisp 
Log Message:
Add exported symbols that were missing from backend.lisp

--- /project/elephant/cvsroot/elephant/src/elephant/backend.lisp	2007/03/30 14:34:35	1.12
+++ /project/elephant/cvsroot/elephant/src/elephant/backend.lisp	2007/03/30 14:55:54	1.13
@@ -19,57 +19,21 @@
 
 (in-package :cl-user)
 
-(defpackage :elephant-backend
+(defmacro defpackage-import-exported (name source-package &rest args)
+  "Define an export list, a source package and this macro will automatically
+   import from that package the exported symbol names."
+  (let* ((exports (find :export args :key #'car))
+	 (imports `(:import-from ,source-package ,@(cdr exports))))
+    `(defpackage ,name
+       ,@(append args (list imports)))))
+
+(defpackage-import-exported :elephant-backend :elephant
   (:documentation "Backends should use this to get access to internal symbols
    of elephant that importers of elephant shouldn't see.  Backends should also
    import elephant to get use-api generic function symbols, classes and globals")
   (:use #:elephant)
-  (:import-from #:elephant
-		;; Variables
-		#:*dbconnection-spec* 
-		#:connection-is-indeed-open
-
-		;; Persistent objects
-		#:oid #:get-con 
-		#:next-oid
-		#:persistent-slot-writer
-		#:persistent-slot-reader
-		#:persistent-slot-boundp
-		#:persistent-slot-makunbound
-
-		;; Controllers
-		#:*elephant-code-version*
-		#:open-controller
-		#:close-controller
-		#:database-version
-		#:controller-spec
-		#:controller-serialize
-		#:controller-deserialize
-		#:root #:spec #:class-root
-		;; Serialization
-		#:deserialize-from-base64-string
-		#:serialize-to-base64-string
-		;; Cursor accessors
-		#:cursor-btree
-		#:cursor-oid
-		#:cursor-initialized-p
-		;; Transactions
-		#:*current-transaction*
-		#:make-transaction-record
-		#:transaction-store
-		#:transaction-object
-		;; Registration
-		#:register-backend-con-init
-		#:lookup-backend-con-init
-		;; Misc
-		#:slot-definition-name
-		#:slots-and-values
-		#:struct-slots-and-values
-		#:remove-indexed-element-and-adjust
-		)
   (:export 
    ;; Variables
-   #:*cachesize*
    #:*dbconnection-spec* 
    #:connection-is-indeed-open
 
@@ -87,25 +51,37 @@
    #:close-controller
    #:database-version
    #:controller-spec
-   #:controller-version
+   #:controller-serializer-version
    #:controller-serialize
    #:controller-deserialize
    #:root #:spec #:class-root
-   ;; Serialization
+
+   ;; Serializer tools/api's
+   #:serialize #:deserialize
    #:deserialize-from-base64-string
    #:serialize-to-base64-string
+   #:initialize-serializer
+   #:serialize-database-version-key
+   #:serialize-database-version-value
+   #:deserialize-database-version-value
+
    ;; Cursor accessors
    #:cursor-btree
    #:cursor-oid
    #:cursor-initialized-p
+
    ;; Transactions
    #:*current-transaction*
    #:make-transaction-record
    #:transaction-store
    #:transaction-object
+   #:execute-transaction
+
    ;; Registration
    #:register-backend-con-init
    #:lookup-backend-con-init
+   #:get-user-configuration-parameter
+
    ;; Misc
    #:slot-definition-name
    #:slots-and-values
--- /project/elephant/cvsroot/elephant/src/elephant/package.lisp	2007/03/30 14:34:35	1.26
+++ /project/elephant/cvsroot/elephant/src/elephant/package.lisp	2007/03/30 14:55:54	1.27
@@ -206,9 +206,10 @@
    #:persistent #:persistent-object #:persistent-metaclass #:defpclass
    #:persistent-collection #:drop-pobject
 
-   #:btree #:make-btree 
-   #:get-value #:remove-kv #:existp
-   #:indexed-btree #:make-indexed-btree 
+   #:btree #:build-btree
+   #:get-value #:remove-kv #:existsp
+   #:indexed-btree #:build-indexed-btree 
+   #:btree-index
    #:add-index #:get-index #:remove-index #:map-indices
    #:get-primary-key #:primary #:key-form #:key-fn
    #:with-btree-cursor #:map-btree #:map-index