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

New function SEQUENCE-START-END

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-20 12:30:52 +02:00
parent 8a29b98f94
commit ec0ddc1174
8 changed files with 52 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

32
src/c/string.d
View file

@ -355,38 +355,6 @@ ecl_char_set(cl_object object, cl_index index, ecl_character value)
}
}
cl_index_pair
ecl_vector_start_end(cl_object fun,
cl_object string, cl_object start, cl_object end)
{
/* INV: works on both t_base_string and t_string */
/* INV: Works with either string or symbol */
cl_index_pair p;
unlikely_if (!ECL_FIXNUMP(start) || ecl_fixnum_minusp(start)) {
FEwrong_type_key_arg(fun, @[:start], start, @[byte]);
}
p.start = fix(start);
if (Null(end)) {
p.end = string->vector.fillp;
} else {
unlikely_if (!FIXNUMP(end) || ecl_fixnum_minusp(end)) {
FEwrong_type_key_arg(fun, @[:end], end,
ecl_read_from_cstring("(OR NULL BYTE)"));
}
p.end = fix(end);
unlikely_if (p.end > string->vector.fillp) {
cl_object fillp = MAKE_FIXNUM(string->vector.fillp);
FEwrong_type_key_arg(fun, @[:end], end,
ecl_make_integer_type(start, fillp));
}
}
unlikely_if (p.end < p.start) {
FEwrong_type_key_arg(fun, @[:start], start,
ecl_make_integer_type(MAKE_FIXNUM(0), end));
}
return p;
}
#ifdef ECL_UNICODE
static int
compare_strings(cl_object string1, cl_index s1, cl_index e1,