Merge pull request #67 from michaeldelago:patch-1

PiperOrigin-RevId: 644142365

shared.lisp

@@ -367,7 +367,7 @@ i of grpc_byte_buffer BUFFER."
 
 (defun convert-bytes-to-grpc-byte-buffer (bytes)
   "Given a lisp-vector of BYTES convert them to a grpc_byte_buffer."
-  (let ((array (cffi:foreign-alloc :char :initial-contents bytes)))
+  (let ((array (cffi:foreign-alloc :unsigned-char :initial-contents bytes)))
     (prog1
         (cffi:foreign-funcall "convert_bytes_to_grpc_byte_buffer"
                                :pointer array
@@ -536,7 +536,7 @@ want. Returns a plist containing keys being the op type and values being the ind
 (defun convert-bytes-to-grpc-slice (bytes)
   "Takes a list of bytes BYTES and returns a pointer to the corresponding
 grpc_slice*."
-  (let ((array (cffi:foreign-alloc :char :initial-contents bytes)))
+  (let ((array (cffi:foreign-alloc :unsigned-char :initial-contents bytes)))
     (cffi:foreign-funcall "convert_bytes_to_grpc_slice"
                           :pointer array
                           :size (length bytes)