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

Tag many error checks using ecl_unlikely

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-26 10:43:37 +01:00
parent 53a1d16b4d
commit 6e4d572bfb
23 changed files with 217 additions and 194 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/string.d
View file

@ -865,7 +865,7 @@ nstring_case(cl_narg narg, cl_object fun, ecl_casefun casefun, cl_va_list ARGS)
KEYS[1]=@':end';
cl_parse_key(ARGS, 2, KEYS, KEY_VARS, NULL, FALSE);
if (!ECL_STRINGP(strng))
if (ecl_unlikely(!ECL_STRINGP(strng)))
FEwrong_type_nth_arg(fun, 1, strng, @'string');
if (startp == Cnil) start = MAKE_FIXNUM(0);
get_string_start_end(strng, start, end, &s, &e);