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