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)