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)