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