mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-03 11:01:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

MAKE-STRING always produced a BASE-STRING

Browse source
This commit is contained in:
jgarcia 2006-11-10 18:42:35 +00:00
parent d715216ac2
commit 6fd5899a64
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/string.d
View file

@ -34,10 +34,11 @@ do_make_base_string(cl_index s, int code)
static cl_object
do_make_string(cl_index s, cl_index code)
{
cl_object x = cl_alloc_simple_base_string(s);
cl_object x = cl_alloc_simple_extended_string(s);
cl_object c = CODE_CHAR(code);
cl_index i;
for (i = 0; i < s; i++)
x->base_string.self[i] = code;
x->string.self[i] = c;
return x;
}
#else