[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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.")