[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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))))