mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-03-09 22:50:34 -07:00
exceptions: make cfun_dispatch use exception trampolines
This commit is contained in:
Daniel Kochmański
parent
96de2e24ad
commit
eff8a495de
1 changed files with 64 additions and 64 deletions
|
|
@ -14,7 +14,7 @@
|
|||
static cl_object fixed_dispatch0 (cl_narg narg, ...) {
|
||||
const cl_env_ptr the_env = ecl_process_env();
|
||||
cl_object fun = the_env->function;
|
||||
if (ecl_unlikely(narg != 0)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 0)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
return ((cl_objectfn_fixed0) fun->cfunfixed.entry_fixed)();
|
||||
}
|
||||
|
||||
|
|
@ -23,7 +23,7 @@ static cl_object fixed_dispatch1 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[1];
|
||||
if (ecl_unlikely(narg != 1)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 1)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 1; i++)
|
||||
|
|
@ -38,7 +38,7 @@ static cl_object fixed_dispatch2 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[2];
|
||||
if (ecl_unlikely(narg != 2)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 2)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 2; i++)
|
||||
|
|
@ -53,7 +53,7 @@ static cl_object fixed_dispatch3 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[3];
|
||||
if (ecl_unlikely(narg != 3)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 3)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 3; i++)
|
||||
|
|
@ -68,7 +68,7 @@ static cl_object fixed_dispatch4 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[4];
|
||||
if (ecl_unlikely(narg != 4)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 4)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 4; i++)
|
||||
|
|
@ -83,7 +83,7 @@ static cl_object fixed_dispatch5 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[5];
|
||||
if (ecl_unlikely(narg != 5)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 5)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 5; i++)
|
||||
|
|
@ -98,7 +98,7 @@ static cl_object fixed_dispatch6 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[6];
|
||||
if (ecl_unlikely(narg != 6)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 6)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 6; i++)
|
||||
|
|
@ -113,7 +113,7 @@ static cl_object fixed_dispatch7 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[7];
|
||||
if (ecl_unlikely(narg != 7)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 7)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 7; i++)
|
||||
|
|
@ -128,7 +128,7 @@ static cl_object fixed_dispatch8 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[8];
|
||||
if (ecl_unlikely(narg != 8)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 8)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 8; i++)
|
||||
|
|
@ -143,7 +143,7 @@ static cl_object fixed_dispatch9 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[9];
|
||||
if (ecl_unlikely(narg != 9)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 9)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 9; i++)
|
||||
|
|
@ -158,7 +158,7 @@ static cl_object fixed_dispatch10 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[10];
|
||||
if (ecl_unlikely(narg != 10)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 10)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 10; i++)
|
||||
|
|
@ -173,7 +173,7 @@ static cl_object fixed_dispatch11 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[11];
|
||||
if (ecl_unlikely(narg != 11)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 11)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 11; i++)
|
||||
|
|
@ -188,7 +188,7 @@ static cl_object fixed_dispatch12 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[12];
|
||||
if (ecl_unlikely(narg != 12)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 12)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 12; i++)
|
||||
|
|
@ -203,7 +203,7 @@ static cl_object fixed_dispatch13 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[13];
|
||||
if (ecl_unlikely(narg != 13)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 13)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 13; i++)
|
||||
|
|
@ -218,7 +218,7 @@ static cl_object fixed_dispatch14 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[14];
|
||||
if (ecl_unlikely(narg != 14)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 14)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 14; i++)
|
||||
|
|
@ -233,7 +233,7 @@ static cl_object fixed_dispatch15 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[15];
|
||||
if (ecl_unlikely(narg != 15)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 15)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 15; i++)
|
||||
|
|
@ -248,7 +248,7 @@ static cl_object fixed_dispatch16 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[16];
|
||||
if (ecl_unlikely(narg != 16)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 16)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 16; i++)
|
||||
|
|
@ -263,7 +263,7 @@ static cl_object fixed_dispatch17 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[17];
|
||||
if (ecl_unlikely(narg != 17)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 17)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 17; i++)
|
||||
|
|
@ -278,7 +278,7 @@ static cl_object fixed_dispatch18 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[18];
|
||||
if (ecl_unlikely(narg != 18)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 18)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 18; i++)
|
||||
|
|
@ -293,7 +293,7 @@ static cl_object fixed_dispatch19 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[19];
|
||||
if (ecl_unlikely(narg != 19)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 19)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 19; i++)
|
||||
|
|
@ -308,7 +308,7 @@ static cl_object fixed_dispatch20 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[20];
|
||||
if (ecl_unlikely(narg != 20)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 20)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 20; i++)
|
||||
|
|
@ -323,7 +323,7 @@ static cl_object fixed_dispatch21 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[21];
|
||||
if (ecl_unlikely(narg != 21)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 21)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 21; i++)
|
||||
|
|
@ -338,7 +338,7 @@ static cl_object fixed_dispatch22 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[22];
|
||||
if (ecl_unlikely(narg != 22)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 22)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 22; i++)
|
||||
|
|
@ -353,7 +353,7 @@ static cl_object fixed_dispatch23 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[23];
|
||||
if (ecl_unlikely(narg != 23)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 23)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 23; i++)
|
||||
|
|
@ -368,7 +368,7 @@ static cl_object fixed_dispatch24 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[24];
|
||||
if (ecl_unlikely(narg != 24)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 24)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 24; i++)
|
||||
|
|
@ -383,7 +383,7 @@ static cl_object fixed_dispatch25 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[25];
|
||||
if (ecl_unlikely(narg != 25)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 25)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 25; i++)
|
||||
|
|
@ -398,7 +398,7 @@ static cl_object fixed_dispatch26 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[26];
|
||||
if (ecl_unlikely(narg != 26)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 26)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 26; i++)
|
||||
|
|
@ -413,7 +413,7 @@ static cl_object fixed_dispatch27 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[27];
|
||||
if (ecl_unlikely(narg != 27)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 27)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 27; i++)
|
||||
|
|
@ -428,7 +428,7 @@ static cl_object fixed_dispatch28 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[28];
|
||||
if (ecl_unlikely(narg != 28)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 28)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 28; i++)
|
||||
|
|
@ -443,7 +443,7 @@ static cl_object fixed_dispatch29 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[29];
|
||||
if (ecl_unlikely(narg != 29)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 29)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 29; i++)
|
||||
|
|
@ -458,7 +458,7 @@ static cl_object fixed_dispatch30 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[30];
|
||||
if (ecl_unlikely(narg != 30)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 30)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 30; i++)
|
||||
|
|
@ -473,7 +473,7 @@ static cl_object fixed_dispatch31 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[31];
|
||||
if (ecl_unlikely(narg != 31)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 31)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 31; i++)
|
||||
|
|
@ -488,7 +488,7 @@ static cl_object fixed_dispatch32 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[32];
|
||||
if (ecl_unlikely(narg != 32)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 32)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 32; i++)
|
||||
|
|
@ -503,7 +503,7 @@ static cl_object fixed_dispatch33 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[33];
|
||||
if (ecl_unlikely(narg != 33)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 33)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 33; i++)
|
||||
|
|
@ -518,7 +518,7 @@ static cl_object fixed_dispatch34 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[34];
|
||||
if (ecl_unlikely(narg != 34)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 34)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 34; i++)
|
||||
|
|
@ -533,7 +533,7 @@ static cl_object fixed_dispatch35 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[35];
|
||||
if (ecl_unlikely(narg != 35)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 35)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 35; i++)
|
||||
|
|
@ -548,7 +548,7 @@ static cl_object fixed_dispatch36 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[36];
|
||||
if (ecl_unlikely(narg != 36)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 36)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 36; i++)
|
||||
|
|
@ -563,7 +563,7 @@ static cl_object fixed_dispatch37 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[37];
|
||||
if (ecl_unlikely(narg != 37)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 37)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 37; i++)
|
||||
|
|
@ -578,7 +578,7 @@ static cl_object fixed_dispatch38 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[38];
|
||||
if (ecl_unlikely(narg != 38)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 38)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 38; i++)
|
||||
|
|
@ -593,7 +593,7 @@ static cl_object fixed_dispatch39 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[39];
|
||||
if (ecl_unlikely(narg != 39)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 39)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 39; i++)
|
||||
|
|
@ -608,7 +608,7 @@ static cl_object fixed_dispatch40 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[40];
|
||||
if (ecl_unlikely(narg != 40)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 40)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 40; i++)
|
||||
|
|
@ -623,7 +623,7 @@ static cl_object fixed_dispatch41 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[41];
|
||||
if (ecl_unlikely(narg != 41)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 41)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 41; i++)
|
||||
|
|
@ -638,7 +638,7 @@ static cl_object fixed_dispatch42 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[42];
|
||||
if (ecl_unlikely(narg != 42)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 42)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 42; i++)
|
||||
|
|
@ -653,7 +653,7 @@ static cl_object fixed_dispatch43 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[43];
|
||||
if (ecl_unlikely(narg != 43)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 43)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 43; i++)
|
||||
|
|
@ -668,7 +668,7 @@ static cl_object fixed_dispatch44 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[44];
|
||||
if (ecl_unlikely(narg != 44)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 44)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 44; i++)
|
||||
|
|
@ -683,7 +683,7 @@ static cl_object fixed_dispatch45 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[45];
|
||||
if (ecl_unlikely(narg != 45)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 45)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 45; i++)
|
||||
|
|
@ -698,7 +698,7 @@ static cl_object fixed_dispatch46 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[46];
|
||||
if (ecl_unlikely(narg != 46)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 46)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 46; i++)
|
||||
|
|
@ -713,7 +713,7 @@ static cl_object fixed_dispatch47 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[47];
|
||||
if (ecl_unlikely(narg != 47)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 47)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 47; i++)
|
||||
|
|
@ -728,7 +728,7 @@ static cl_object fixed_dispatch48 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[48];
|
||||
if (ecl_unlikely(narg != 48)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 48)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 48; i++)
|
||||
|
|
@ -743,7 +743,7 @@ static cl_object fixed_dispatch49 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[49];
|
||||
if (ecl_unlikely(narg != 49)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 49)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 49; i++)
|
||||
|
|
@ -758,7 +758,7 @@ static cl_object fixed_dispatch50 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[50];
|
||||
if (ecl_unlikely(narg != 50)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 50)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 50; i++)
|
||||
|
|
@ -773,7 +773,7 @@ static cl_object fixed_dispatch51 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[51];
|
||||
if (ecl_unlikely(narg != 51)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 51)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 51; i++)
|
||||
|
|
@ -788,7 +788,7 @@ static cl_object fixed_dispatch52 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[52];
|
||||
if (ecl_unlikely(narg != 52)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 52)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 52; i++)
|
||||
|
|
@ -803,7 +803,7 @@ static cl_object fixed_dispatch53 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[53];
|
||||
if (ecl_unlikely(narg != 53)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 53)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 53; i++)
|
||||
|
|
@ -818,7 +818,7 @@ static cl_object fixed_dispatch54 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[54];
|
||||
if (ecl_unlikely(narg != 54)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 54)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 54; i++)
|
||||
|
|
@ -833,7 +833,7 @@ static cl_object fixed_dispatch55 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[55];
|
||||
if (ecl_unlikely(narg != 55)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 55)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 55; i++)
|
||||
|
|
@ -848,7 +848,7 @@ static cl_object fixed_dispatch56 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[56];
|
||||
if (ecl_unlikely(narg != 56)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 56)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 56; i++)
|
||||
|
|
@ -863,7 +863,7 @@ static cl_object fixed_dispatch57 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[57];
|
||||
if (ecl_unlikely(narg != 57)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 57)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 57; i++)
|
||||
|
|
@ -878,7 +878,7 @@ static cl_object fixed_dispatch58 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[58];
|
||||
if (ecl_unlikely(narg != 58)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 58)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 58; i++)
|
||||
|
|
@ -893,7 +893,7 @@ static cl_object fixed_dispatch59 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[59];
|
||||
if (ecl_unlikely(narg != 59)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 59)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 59; i++)
|
||||
|
|
@ -908,7 +908,7 @@ static cl_object fixed_dispatch60 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[60];
|
||||
if (ecl_unlikely(narg != 60)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 60)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 60; i++)
|
||||
|
|
@ -923,7 +923,7 @@ static cl_object fixed_dispatch61 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[61];
|
||||
if (ecl_unlikely(narg != 61)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 61)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 61; i++)
|
||||
|
|
@ -938,7 +938,7 @@ static cl_object fixed_dispatch62 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[62];
|
||||
if (ecl_unlikely(narg != 62)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 62)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 62; i++)
|
||||
|
|
@ -953,7 +953,7 @@ static cl_object fixed_dispatch63 (cl_narg narg, ...) {
|
|||
cl_object fun = the_env->function;
|
||||
va_list args;
|
||||
cl_object x[63];
|
||||
if (ecl_unlikely(narg != 63)) FEwrong_num_arguments(fun);
|
||||
if (ecl_unlikely(narg != 63)) ecl_ferror(ECL_EX_F_NARGS, fun, ECL_NIL);
|
||||
|
||||
va_start(args, narg);
|
||||
for (int i = 0; i < 63; i++)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue