[elephant-cvs] CVS elephant/src/memutil

[ieslick]

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

Modified Files:
	memutil.lisp 
Log Message:
Fixes submitted by Henrik; some OpenMCL changes

--- /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp	2007/03/16 14:44:46	1.26
+++ /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp	2007/03/21 14:29:31	1.27
@@ -550,7 +550,7 @@
     (let ((needed (+ size 1)))
       (when (> needed len)
 	(resize-buffer-stream bs needed))
-      (setf (deref-array buf '(:array :char) size) b)
+      (setf (deref-array buf '(:array :unsigned-char) size) b)
       (setf size needed))))
 
 (defun buffer-write-int32 (i bs)
@@ -677,7 +677,7 @@
   (declare (type buffer-stream bs))
   (let ((position (buffer-stream-position bs)))
     (incf (buffer-stream-position bs))
-    (deref-array (buffer-stream-buffer bs) '(:array :unsigned-byte) position)))
+    (deref-array (buffer-stream-buffer bs) '(:array :unsigned-char) position)))
 
 
 (defun buffer-read-byte-vector (bs)