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

Fix va_lambda_apply() and add va_gcall().

Browse source
This commit is contained in:
jjgarcia 2001-08-11 13:30:29 +00:00
parent 5d5c0495a4
commit a5e550dce9
1 changed files with 20 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/c/interpreter.d
View file

@ -255,11 +255,28 @@ get_sp_at(cl_index where) {
cl_object
va_lambda_apply(int narg, cl_object fun, va_list args)
{
cl_object sp = get_sp();
while (narg--)
cl_object out;
int i;
for (i=narg; i; i--)
push1(cl_nextarg(args));
lambda_apply(narg, fun, sp);
out = lambda_apply(narg, fun, get_sp()-narg);
dec_sp_index(narg);
return out;
}
#ifdef CLOS
cl_object
va_gcall(int narg, cl_object fun, va_list args)
{
cl_object out;
int i;
for (i=narg; i; i--)
push1(cl_nextarg(args));
out = gcall(narg, fun, get_sp()-narg);
dec_sp_index(narg);
return out;
}
#endif
#endif
/* -------------------- AIDS TO THE INTERPRETER -------------------- */