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

Modified Files: controller.lisp serializer.lisp Log Message:

Added a convenient delete script for cleaning up prior state. BUGFIX: populate created incomplete secondary indices in add-index BUGFIX: generic function mistmatch with new optimize-storage method in bdb

--- /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2006/09/04 00:09:15 1.12 +++ /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2006/09/04 05:01:06 1.13 @@ -323,7 +323,7 @@ (:documentation "Provides a persistent source of unique id's"))

-(defgeneric optimize-storage ((sc store-controller) &allow-other-keys) +(defgeneric optimize-storage (sc &key &allow-other-keys) (:documentation "Tell the backend to reclaim any storage caused by key deletion, if possible. This should default to return space to the filesystem rather than just to the free list.")) --- /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp 2006/09/04 00:09:15 1.10 +++ /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp 2006/09/04 05:01:06 1.11 @@ -60,16 +60,6 @@ (defconstant +fill-pointer-p+ #x40) (defconstant +adjustable-p+ #x80)

-(defun clear-circularity-hash () - "This handles the case where we store an object with lots - of object references. CLRHASH then starts to dominate - performance as it has to visit every spot in the table so - we're better off GCing the old table than clearing it" - (declare (optimize (speed 3) (safety 0))) - (if (> (hash-table-size *circularity-hash*) 100) - (setf *circularity-hash* (make-hash-table :test 'eq :size 50)) - (clrhash *circularity-hash*))) - (defvar *circularity-hash-queue* nil "Circularity ids for the serializer.")