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

parse_key is now named va_parse_key

Browse source
This commit is contained in:
jjgarcia 2001-07-29 15:51:08 +00:00
parent 7c2af5c4ca
commit af2d5baf84
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/string.d
View file

@ -322,7 +322,7 @@ string_cmp(int narg, int sign, int boundary, va_list ARGS)
KEYS[1]=@':end1';
KEYS[2]=@':start2';
KEYS[3]=@':end2';
parse_key(narg-2, ARGS, 4, KEYS, KEY_VARS, OBJNULL, 0);
va_parse_key(narg-2, ARGS, 4, KEYS, KEY_VARS, OBJNULL, 0);
string1 = coerce_to_string_designator(string1);
string2 = coerce_to_string_designator(string2);
@ -407,7 +407,7 @@ string_compare(int narg, int sign, int boundary, va_list ARGS)
KEYS[1]=@':end1';
KEYS[2]=@':start2';
KEYS[3]=@':end2';
parse_key(narg-2, ARGS, 4, KEYS, KEY_VARS, OBJNULL, 0);
va_parse_key(narg-2, ARGS, 4, KEYS, KEY_VARS, OBJNULL, 0);
string1 = coerce_to_string_designator(string1);
string2 = coerce_to_string_designator(string2);
@ -565,7 +565,7 @@ string_case(int narg, int (*casefun)(), va_list ARGS)
if (narg < 1) FEtoo_few_arguments(&narg);
KEYS[0]=@':start';
KEYS[1]=@':end';
parse_key(narg-1, ARGS, 2, KEYS, KEY_VARS, OBJNULL, 0);
va_parse_key(narg-1, ARGS, 2, KEYS, KEY_VARS, OBJNULL, 0);
strng = coerce_to_string_designator(strng);
conv = copy_simple_string(strng);
@ -639,7 +639,7 @@ nstring_case(int narg, int (*casefun)(), va_list ARGS)
if (narg < 1) FEtoo_few_arguments(&narg);
KEYS[0]=@':start';
KEYS[1]=@':end';
parse_key(narg-1, ARGS, 2, KEYS, KEY_VARS, OBJNULL, 0);
va_parse_key(narg-1, ARGS, 2, KEYS, KEY_VARS, OBJNULL, 0);
assert_type_string(strng);
if (startp == Cnil) start = MAKE_FIXNUM(0);