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

The array element type is stored in the arrays, vectors and strings, thus simplifying identification and code. Slight speedup in ecl_aref.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-02 23:48:20 +02:00
parent bb2c54296d
commit 866d8c8604
7 changed files with 36 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/string.d
View file

@ -78,6 +78,7 @@ cl_alloc_simple_base_string(cl_index length)
cl_object x;
x = ecl_alloc_object(t_base_string);
x->base_string.elttype = aet_bc;
x->base_string.hasfillp = FALSE;
x->base_string.adjustable = FALSE;
x->base_string.displaced = Cnil;
@ -95,6 +96,7 @@ cl_alloc_simple_extended_string(cl_index length)
/* should this call si_make_vector? */
x = ecl_alloc_object(t_string);
x->string.elttype = aet_ch;
x->string.hasfillp = FALSE;
x->string.adjustable = FALSE;
x->string.displaced = Cnil;
@ -143,6 +145,7 @@ make_simple_base_string(char *s)
cl_index l = strlen(s);
x = ecl_alloc_object(t_base_string);
x->base_string.elttype = aet_bc;
x->base_string.hasfillp = FALSE;
x->base_string.adjustable = FALSE;
x->base_string.displaced = Cnil;