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:
goffioul 2005-06-07 09:14:03 +00:00
parent 15f645dba6
commit ce4640bd69

View file

@ -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