TO_EXTERNAL_FORMAT (LISP_STRING, value,
ALLOCA, (value_ext, value_ext_len),
Qnative);
TO_EXTERNAL_FORMAT (LISP_STRING, value,
ALLOCA, (value_ext, value_ext_len),
Qnative);
- tt_message_arg_bval_set (m, n, value_ext, value_ext_len);
+ tt_message_arg_bval_set (m, n, (unsigned char *) value_ext, value_ext_len);