Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory clnet:/tmp/cvs-serv2282/db-bdb
Modified Files: bdb-collections.lisp Log Message: Removing vestigial directory
--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-collections.lisp 2007/02/04 10:08:27 1.16 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-collections.lisp 2007/02/08 23:05:46 1.17 @@ -306,17 +306,17 @@
(defmethod cursor-first ((cursor bdb-cursor)) (let ((sc (get-con (cursor-btree cursor)))) - (with-buffer-streams (key-buf value-buf) - (buffer-write-oid (cursor-oid cursor) key-buf) - (multiple-value-bind (key val) - (db-cursor-set-buffered (cursor-handle cursor) - key-buf value-buf :set-range t) - (if (and key (= (buffer-read-oid key) (cursor-oid cursor))) - (progn (setf (cursor-initialized-p cursor) t) - (values t - (deserialize key sc) - (deserialize val sc))) - (setf (cursor-initialized-p cursor) nil)))))) + (with-buffer-streams (key-buf value-buf) + (buffer-write-oid (cursor-oid cursor) key-buf) + (multiple-value-bind (key val) + (db-cursor-set-buffered (cursor-handle cursor) + key-buf value-buf :set-range t) + (if (and key (= (buffer-read-oid key) (cursor-oid cursor))) + (progn (setf (cursor-initialized-p cursor) t) + (values t + (deserialize key sc) + (deserialize val sc))) + (setf (cursor-initialized-p cursor) nil)))))) (defmethod cursor-last ((cursor bdb-cursor)) "A fast cursor last, but a bit 'hackish' by exploiting oid ordering"