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)