mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-26 16:50:45 -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

2
src/c/dpp.c
View file

@ -644,7 +644,7 @@ put_declaration(void)
fprintf(out, "\tKEYS[%d]=K%s;\n", i, keyword[i].k_key);
}
put_lineno();
fprintf(out, "\tparse_key(narg-%d, ARGS, %d, KEYS, KEY_VARS, %s, %d);\n",
fprintf(out, "\tva_parse_key(narg-%d, ARGS, %d, KEYS, KEY_VARS, %s, %d);\n",
nreq+nopt, nkey, rest_flag ? rest_var : "OBJNULL", allow_other_keys_flag);
for (i = 0; i < nkey; i++) {
put_lineno();

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);