Update of /project/elephant/cvsroot/elephant/src/memutil In directory clnet:/tmp/cvs-serv14219/src/memutil
Modified Files: memutil.lisp Log Message: Fix bug where BDB tests failing with running SQL backend tests; initial x86/64-bit support for CMUCL/SBCL
--- /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp 2006/11/11 06:27:38 1.11 +++ /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp 2006/11/11 22:53:13 1.12 @@ -164,7 +164,7 @@ (type fixnum offset)) (the (signed-byte 32) (deref (cast (sap-alien (sap+ (alien-sap buf) offset) (* char)) - (* integer))))) + (* (signed 32)))))
#+(or cmu sbcl) (defun read-uint (buf offset) @@ -204,7 +204,7 @@ (type (signed-byte 32) num) (type fixnum offset)) (setf (deref (cast (sap-alien (sap+ (alien-sap buf) offset) (* char)) - (* integer))) num)) + (* (signed 32)))) num))
#+(or cmu sbcl) (defun write-uint (buf num offset)