[elephant-cvs] CVS elephant/src/elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv14219/src/elephant

Modified Files:
	serializer.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/elephant/serializer.lisp	2006/11/11 15:30:26	1.13
+++ /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp	2006/11/11 22:53:13	1.14
@@ -140,7 +140,7 @@
 	((%serialize (frob)
 	 (declare (optimize (speed 3) (safety 0)))
 	 (etypecase frob
-	   (fixnum
+	   ((integer #.(- 1 (expt 2 31)) #.(1- (expt 2 31))) ;; fixnum
 	    (buffer-write-byte +fixnum+ bs)
 	    (buffer-write-int frob bs))
 	   (null
@@ -240,7 +240,7 @@
 		    ;; and non-cons
 		    do
 		    #+(or cmu sbcl)
-		    (buffer-write-uint (%bignum-ref num i) bs)
+		    (buffer-write-uint (ldb (int-byte-spec i) num) bs) ;; (%bignum-ref num i) bs)
 		    #+(or allegro lispworks openmcl)
 		    (buffer-write-uint (ldb (int-byte-spec i) num) bs))))
 	   (rational