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

Replaced ecl_check_type_string with FEwrong_type_*_arg

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-25 22:22:12 +01:00
parent c41efce884
commit 9da71f93a9
11 changed files with 23 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/string.d
View file

@ -865,7 +865,8 @@ 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);
strng = ecl_check_type_string(fun,strng);
if (!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);
b = TRUE;