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

printer: use si_do_write_sequence in recently optimized printing routines

Browse source 
We don't need cl_write_string, since the CLOS stuff inside there
    is just for optimization. Improves performance for ANSI streams.
This commit is contained in:
Marius Gerbershagen 2018-06-05 21:30:29 +02:00
parent 25e1417dac
commit 706847293d
4 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/printer/write_array.d
View file

@ -149,19 +149,19 @@ void
_ecl_write_string(cl_object x, cl_object stream)
{
if (!ecl_print_escape() && !ecl_print_readably()) {
cl_write_string(2, x, stream);
si_do_write_sequence(x, stream, ecl_make_fixnum(0), ECL_NIL);
} else {
cl_index ndx, ndx_start;
ecl_write_char('"', stream);
for (ndx = ndx_start = 0; ndx < x->string.fillp; ndx++) {
ecl_character c = x->string.self[ndx];
if (c == '"' || c == '\\') {
cl_write_string(6, x, stream, @':start', ecl_make_fixnum(ndx_start), @':end', ecl_make_fixnum(ndx));
si_do_write_sequence(x, stream, ecl_make_fixnum(ndx_start), ecl_make_fixnum(ndx));
ecl_write_char('\\', stream);
ndx_start = ndx;
}
}
cl_write_string(4, x, stream, @':start', ecl_make_fixnum(ndx_start));
si_do_write_sequence(x, stream, ecl_make_fixnum(ndx_start), ECL_NIL);
ecl_write_char('"', stream);
}
}
@ -171,19 +171,19 @@ void
_ecl_write_base_string(cl_object x, cl_object stream)
{
if (!ecl_print_escape() && !ecl_print_readably()) {
cl_write_string(2, x, stream);
si_do_write_sequence(x, stream, ecl_make_fixnum(0), ECL_NIL);
} else {
cl_index ndx, ndx_start;
ecl_write_char('"', stream);
for (ndx = ndx_start = 0; ndx < x->base_string.fillp; ndx++) {
ecl_character c = x->base_string.self[ndx];
if (c == '"' || c == '\\') {
cl_write_string(6, x, stream, @':start', ecl_make_fixnum(ndx_start), @':end', ecl_make_fixnum(ndx));
si_do_write_sequence(x, stream, ecl_make_fixnum(ndx_start), ecl_make_fixnum(ndx));
ecl_write_char('\\', stream);
ndx_start = ndx;
}
}
cl_write_string(4, x, stream, @':start', ecl_make_fixnum(ndx_start));
si_do_write_sequence(x, stream, ecl_make_fixnum(ndx_start), ECL_NIL);
ecl_write_char('"', stream);
}
}