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

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/db-bdb
In directory common-lisp:/tmp/cvs-serv21166/src/db-bdb

Modified Files:
	bdb-controller.lisp 
Log Message:
Bug fixes to indexing tests for failures under SBCL

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2006/02/20 15:45:37	1.3
+++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2006/02/22 17:15:49	1.4
@@ -150,6 +150,8 @@
 ;;
 
 (defmethod persistent-slot-reader ((sc bdb-store-controller) instance name)
+  (declare (optimize (speed 3) (safety 1) (space 1))
+	   (type string name))
   (with-buffer-streams (key-buf value-buf)
     (buffer-write-int (oid instance) key-buf)
     (serialize name key-buf)
@@ -162,6 +164,8 @@
 	  (error 'unbound-slot :instance instance :name name)))))
 
 (defmethod persistent-slot-writer ((sc bdb-store-controller) new-value instance name)
+  (declare (optimize (speed 3) (safety 1) (space 1))
+	   (type string name))
   (with-buffer-streams (key-buf value-buf)
     (buffer-write-int (oid instance) key-buf)
     (serialize name key-buf)
@@ -173,6 +177,8 @@
     new-value))
 
 (defmethod persistent-slot-boundp ((sc bdb-store-controller) instance name)
+  (declare (optimize (speed 3) (safety 1) (space 1))
+	   (type string name))
   (with-buffer-streams (key-buf value-buf)
     (buffer-write-int (oid instance) key-buf)
     (serialize name key-buf)
@@ -181,6 +187,8 @@
       (if buf t nil))))
 
 (defmethod persistent-slot-makunbound ((sc bdb-store-controller) instance name)
+  (declare (optimize (speed 3) (safety 1) (space 1))
+	   (type string name))
   (with-buffer-streams (key-buf)
     (buffer-write-int (oid instance) key-buf)
     (serialize name key-buf)