mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-08 02:10:36 -08:00
Explicitely set null character at the end of the string. In at least one test (Win32/MSVC), this is not the case.
This commit is contained in:
parent
15f645dba6
commit
ce4640bd69
1 changed files with 1 additions and 0 deletions
|
|
@ -417,6 +417,7 @@
|
|||
cl_index size = lisp_string->string.fillp;
|
||||
cl_object output = ecl_allocate_foreign_data(@(* :char), size+1);
|
||||
memcpy(output->foreign.data, lisp_string->string.self, size);
|
||||
output->foreign.data[size] = '\\0';
|
||||
@(return) = output;
|
||||
}"
|
||||
:one-liner nil
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue