Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv28359
Modified Files: serializer2.lisp Log Message: Last of Henrik's changes
--- /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp 2007/02/08 15:51:01 1.19 +++ /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp 2007/02/08 15:58:26 1.20 @@ -165,7 +165,7 @@ (%serialize (frob) (etypecase frob (fixnum - (if (< #.most-positive-fixnum +2^32+) ;; should be compiled away + (if (< #.most-positive-fixnum +2^31+) ;; should be compiled away (progn (buffer-write-byte +fixnum32+ bs) (buffer-write-int32 frob bs))