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

[ieslick]

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"