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

dpp: create correct signature for functions with only required arguments

Browse source
This commit is contained in:
Marius Gerbershagen 2019-10-20 15:27:32 +02:00 • committed by Daniel Kochmański
parent 32b6f02157
commit 846cf3f377
2 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/dpp.c
View file

@ -693,9 +693,7 @@ put_fhead(void)
fprintf(out, "cl_object %s(cl_narg narg", function_c_name);
for (i = 0; i < nreq; i++)
fprintf(out, ", cl_object %s", required[i]);
if (nopt > 0 || rest_flag || key_flag)
fprintf(out, ", ...");
fprintf(out, ")\n{\n");
fprintf(out, ", ...)\n{\n");
}
void

2
src/h/external.h
View file

@ -533,7 +533,7 @@ extern ECL_API cl_object si_eval_with_env _ECL_ARGS((cl_narg narg, cl_object for
/* interpreter.c */
extern ECL_API cl_object si_interpreter_stack _ECL_ARGS((cl_narg narg));
extern ECL_API cl_object si_interpreter_stack _ECL_ARGS((cl_narg narg, ...));
extern ECL_API cl_object ecl_stack_frame_open(cl_env_ptr env, cl_object f, cl_index size);
extern ECL_API void ecl_stack_frame_push(cl_object f, cl_object o);
extern ECL_API void ecl_stack_frame_push_values(cl_object f);