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

Removed unused function.

Browse source
This commit is contained in:
jjgarcia 2006-01-09 09:16:05 +00:00
parent 8de21d278a
commit 0dcf6bbfe5
4 changed files with 0 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

1
msvc/ecl-threads.def
View file

@ -167,7 +167,6 @@ EXPORTS
cl_go
cl_parse_key
cl_grab_rest_args
check_other_key
; compiler.c

1
msvc/ecl.def
View file

@ -167,7 +167,6 @@ EXPORTS
cl_go
cl_parse_key
cl_grab_rest_args
check_other_key
; compiler.c

32
src/c/cmpaux.d
View file

@ -258,35 +258,3 @@ cl_parse_key(
supplied_allow_other_keys == OBJNULL))
FEprogram_error("Unknown keyword ~S", 1, unknown_keyword);
}
/* Used in compiled macros */
void
check_other_key(cl_object l, int n, ...)
{
cl_object other_key = OBJNULL;
cl_object k;
int i;
bool allow_other_keys = FALSE;
for (; !endp(l); l = CDDR(l)) {
k = CAR(l);
if (!keywordp(k))
FEprogram_error("~S is not a keyword.", 1, k);
if (endp(CDR(l)))
FEprogram_error("Odd number of arguments for keywords.",0);
if (k == @':allow-other-keys' && CADR(l) != Cnil) {
allow_other_keys = TRUE;
} else {
va_list ktab;
va_start(ktab, n); /* extracting arguments */
for (i = 0; i < n; i++)
if (va_arg(ktab,cl_object) == k)
break;
va_end(ktab);
if (i >= n) other_key = k;
}
}
if (other_key != OBJNULL && !allow_other_keys)
FEprogram_error("The keyword ~S is not allowed or is duplicated.",
1, other_key);
}

1
src/h/external.h
View file

@ -392,7 +392,6 @@ extern void cl_return_from(cl_object block_id, cl_object block_name) /*__attribu
extern void cl_go(cl_object tag_id, cl_object label) /*__attribute__((noreturn))*/;
extern void cl_parse_key(cl_va_list args, int nkey, cl_object *keys, cl_object *vars, cl_object *rest, bool allow_other_keys);
extern cl_object cl_grab_rest_args(cl_va_list args);
extern void check_other_key(cl_object l, int n, ...);
/* compiler.c */