[elephant-cvs] CVS elephant/src/db-bdb

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/db-bdb
In directory clnet:/tmp/cvs-serv10674/src/db-bdb

Modified Files:
	bdb-controller.lisp sleepycat.lisp 
Log Message:
Extended thread support in thread-safe serializer to other lisps

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2006/09/04 00:09:12	1.11
+++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2006/09/05 03:23:16	1.12
@@ -212,7 +212,12 @@
   "Tell the backend to optimize storage between key values"
   (with-buffer-streams (start stop end)
     (if (null start)
-	(db-compact (controller-db ctrl) nil nil end)
+	(progn 
+	  (db-compact (controller-db ctrl) nil nil end)
+	  (db-compact (controller-btrees ctrl) nil nil end)
+	  (db-compact (controller-indices ctrl) nil nil end)
+	  (db-compact (controller-indices-assoc ctrl) nil nil end)
+	  (db-compact (controller-oid-db ctrl) nil nil end))
 	(progn
 	  (serialize start-key start)
 	  (db-compact (controller-db ctrl) start
--- /project/elephant/cvsroot/elephant/src/db-bdb/sleepycat.lisp	2006/09/04 00:09:12	1.6
+++ /project/elephant/cvsroot/elephant/src/db-bdb/sleepycat.lisp	2006/09/05 03:23:16	1.7
@@ -934,7 +934,8 @@
      (flags :unsigned-int)
      (end array-or-pointer-char)
      (end-length :unsigned-int)
-     (end-size :unsigned-int :out)))
+     (end-size :unsigned-int :out))
+  :returning :int)
 
 (defun db-compact (db start stop end &key (transaction *current-transaction*)
 		   freelist-only free-space)