[elephant-cvs] CVS update: elephant/src/elephant.lisp

[blee at common-lisp.net]

Update of /project/elephant/cvsroot/elephant/src
In directory common-lisp.net:/tmp/cvs-serv12700/src

Modified Files:
	elephant.lisp 
Log Message:
update

Date: Sat Sep  4 10:17:24 2004
Author: blee

Index: elephant/src/elephant.lisp
diff -u elephant/src/elephant.lisp:1.9 elephant/src/elephant.lisp:1.10
--- elephant/src/elephant.lisp:1.9	Thu Sep  2 16:47:53 2004
+++ elephant/src/elephant.lisp	Sat Sep  4 10:17:24 2004
@@ -45,7 +45,7 @@
   (:use common-lisp sleepycat)
   (:shadow #:with-transaction)
   (:export #:*store-controller* #:*current-transaction* #:*auto-commit*
-	   #:open-store #:close-store
+	   #:open-store #:close-store #:with-open-store
 	   #:store-controller #:open-controller #:close-controller 
 	   #:with-open-controller #:controller-path #:controller-environment
 	   #:controller-db #:controller-root #:add-to-root #:get-from-root
@@ -62,6 +62,7 @@
 	   )
   #+cmu  
   (:import-from :pcl
+		compute-class-precedence-list
 		validate-superclass
 		standard-slot-definition
 		standard-direct-slot-definition
@@ -69,6 +70,7 @@
 		direct-slot-definition-class
 		effective-slot-definition-class
 		slot-definition-name
+		slot-definition-initform
 		slot-definition-initfunction
 		compute-effective-slot-definition
 		class-slots
@@ -91,8 +93,13 @@
   (:import-from :ext
 		make-weak-pointer weak-pointer-value finalize)
 
+  #+cmu  
+  (:import-from :bignum
+		%bignum-ref)
+
   #+sbcl 
   (:import-from :sb-mop 
+		compute-class-precedence-list
 		validate-superclass
 		standard-slot-definition
 		standard-direct-slot-definition
@@ -100,6 +107,7 @@
 		direct-slot-definition-class
 		effective-slot-definition-class
 		slot-definition-name
+		slot-definition-initform
 		slot-definition-initfunction
 		compute-effective-slot-definition
 		class-slots
@@ -123,8 +131,13 @@
   (:import-from :sb-ext
 		make-weak-pointer weak-pointer-value finalize)
 
+  #+sbcl
+  (:import-from :sb-bignum
+		%bignum-ref)
+
   #+allegro
   (:import-from :clos
+		compute-class-precedence-list
 		validate-superclass
 		standard-slot-definition
 		standard-direct-slot-definition
@@ -132,6 +145,7 @@
 		direct-slot-definition-class
 		effective-slot-definition-class
 		slot-definition-name
+		slot-definition-initform
 		slot-definition-initfunction
 		compute-effective-slot-definition
 		class-slots
@@ -145,6 +159,7 @@
 		compute-effective-slot-definition-initargs)
   #+openmcl
   (:import-from :ccl
+		compute-class-precedence-list
 		validate-superclass
 		standard-slot-definition
 		standard-direct-slot-definition
@@ -152,6 +167,7 @@
 		direct-slot-definition-class
 		effective-slot-definition-class
 		slot-definition-name
+		slot-definition-initform
 		slot-definition-initfunction
 		compute-effective-slot-definition
 		class-slots
@@ -173,6 +189,7 @@
 		%slot-definition-type)
   #+lispworks  
   (:import-from :clos
+		compute-class-precedence-list
 		validate-superclass
 		standard-slot-definition
 		standard-direct-slot-definition
@@ -180,6 +197,7 @@
 		direct-slot-definition-class
 		effective-slot-definition-class
 		slot-definition-name
+		slot-definition-initform
 		slot-definition-initfunction
 		compute-effective-slot-definition
 		class-slots