[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-serv25620/src

Modified Files:
	elephant.lisp 
Log Message:
doc-strings
slot-makunbound-using-class

Date: Thu Sep 16 06:16:15 2004
Author: blee

Index: elephant/src/elephant.lisp
diff -u elephant/src/elephant.lisp:1.10 elephant/src/elephant.lisp:1.11
--- elephant/src/elephant.lisp:1.10	Sat Sep  4 10:17:24 2004
+++ elephant/src/elephant.lisp	Thu Sep 16 06:16:14 2004
@@ -41,16 +41,39 @@
 ;;;
 
 (defpackage elephant
+  (:documentation 
+   "Elephant: an object-oriented database for Common Lisp.
+Uses the SLEEPYCAT package to talk to Berkeley DB /
+Sleepycat.")
   (:nicknames ele :ele)
-  (:use common-lisp sleepycat)
+  (:use common-lisp sleepycat uffi)
   (:shadow #:with-transaction)
   (:export #:*store-controller* #:*current-transaction* #:*auto-commit*
 	   #: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
+
 	   #:persistent #:persistent-object #:persistent-metaclass
+
 	   #:persistent-collection #:btree #:get-value #:remove-kv
+	   #:indexed-btree #:add-index #:get-index #:remove-index
+	   #:btree-index #:get-primary-key
+	   #:indices #:primary #:key-form #:key-fn
+
+	   #:cursor #:secondary-cursor #:make-cursor
+	   #:with-btree-cursor #:map-btree #:cursor-close
+	   #:cursor-duplicate #:cursor-current #:cursor-first
+	   #:cursor-last #:cursor-next #:cursor-next-dup
+	   #:cursor-next-nodup #:cursor-prev #:cursor-prev-nodup
+	   #:cursor-set #:cursor-set-range #:cursor-get-both
+	   #:cursor-get-both-range #:cursor-delete #:cursor-put
+	   #:cursor-pcurrent #:cursor-pfirst #:cursor-plast
+	   #:cursor-pnext #:cursor-pnext-dup #:cursor-pnext-nodup
+	   #:cursor-pprev #:cursor-pprev-nodup #:cursor-pset
+	   #:cursor-pset-range #:cursor-pget-both
+	   #:cursor-pget-both-range
+
 	   #:db-transaction-begin #:db-transaction-abort 
 	   #:db-transaction-commit #:with-transaction
 	   #:db-env-set-lock-detect #:db-env-get-lock-detect
@@ -76,6 +99,7 @@
 		class-slots
 		slot-value-using-class
 		slot-boundp-using-class
+		slot-makunbound-using-class
 		slot-definition-allocation
 		slot-definition-initargs
 		compute-slots
@@ -113,6 +137,7 @@
 		class-slots
 		slot-value-using-class
 		slot-boundp-using-class
+		slot-makunbound-using-class
 		slot-definition-allocation
 		slot-definition-initargs
 		compute-slots)                                
@@ -151,6 +176,7 @@
 		class-slots
 		slot-value-using-class
 		slot-boundp-using-class
+		slot-makunbound-using-class
 		slot-definition-allocation
 		slot-definition-initargs
 		compute-slots)
@@ -173,6 +199,7 @@
 		class-slots
 		slot-value-using-class
 		slot-boundp-using-class
+		slot-makunbound-using-class
 		slot-definition-allocation
 		slot-definition-initargs
 		compute-slots
@@ -203,10 +230,15 @@
 		class-slots
 		slot-value-using-class
 		slot-boundp-using-class
+		slot-makunbound-using-class
 		slot-definition-allocation
 		slot-definition-initargs
 		compute-slots)
 
   )
 
-(in-package "ELE")
\ No newline at end of file
+(in-package "ELE")
+
+#+cmu
+(eval-when (:compile-toplevel)
+  (proclaim '(optimize (ext:inhibit-warnings 3))))
\ No newline at end of file