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

Modified Files: unicode2.lisp Log Message: Bug fix for utf16/32 unicode serialization

--- /project/elephant/cvsroot/elephant/src/elephant/unicode2.lisp 2007/04/29 02:10:55 1.9 +++ /project/elephant/cvsroot/elephant/src/elephant/unicode2.lisp 2007/06/04 21:14:04 1.10 @@ -244,7 +244,7 @@ (setf code (dpb (next-byte 1) (byte 8 0) code)) (setf (schar string i) (code-char code))) (incf (elephant-memutil::buffer-stream-position bstream) - (+ pos (* length 2)))) + (* length 2))) (the simple-string string)))

(defmethod deserialize-string ((type (eql :utf32le)) bstream &optional temp-string) @@ -266,7 +266,7 @@ (setf code (dpb (next-byte 3) (byte 8 0) code)) (setf (char string i) (code-char code))) (incf (elephant-memutil::buffer-stream-position bstream) - (+ pos (* length 4))) + (* length 4)) (the simple-string string))))