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