[elephant-cvs] CVS elephant/src/memutil

[ieslick]

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)