Commit fa0338c6 authored by Jean-Claude Beaudoin's avatar Jean-Claude Beaudoin
Browse files

Improve reporting of argument count mismatch on function call by stating...

Improve reporting of argument count mismatch on function call by stating actual and expected counts.
parent 826b358a
......@@ -24,15 +24,51 @@
#include "cfun_dispatch.d"
static mkcl_object wrong_num_args(MKCL)
static mkcl_object wrong_num_args_cfun_0(MKCL)
{
mkcl_FEwrong_num_arguments(env, env->function);
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, 0);
return mk_cl_Cnil;
}
static mkcl_object (wrong_num_args_va)(MKCL, mkcl_narg narg, ...)
static mkcl_object wrong_num_args_cfun_1(MKCL)
{
mkcl_FEwrong_num_arguments(env, env->function);
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, 1);
return mk_cl_Cnil;
}
static mkcl_object wrong_num_args_cfun_2(MKCL)
{
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, 2);
return mk_cl_Cnil;
}
static mkcl_object wrong_num_args_cfun_3(MKCL)
{
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, 3);
return mk_cl_Cnil;
}
static mkcl_object wrong_num_args_cfun_4(MKCL)
{
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, 4);
return mk_cl_Cnil;
}
static mkcl_object wrong_num_args_cfun_va(MKCL, mkcl_narg narg, ...)
{
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return mk_cl_Cnil;
}
......@@ -49,12 +85,12 @@ mkcl_make_cfun(MKCL, mkcl_objectfn_fixed c_function, mkcl_object name,
2, name, MKCL_MAKE_FIXNUM(narg));
cf = mkcl_alloc_raw_cfun(env);
cf->cfun.f.entry = (((narg < 0) || (narg > 4)) ? dispatch_table[narg] : (mkcl_objectfn) wrong_num_args_va);
cf->cfun.f._[0] = ((narg == 0) ? c_function : (mkcl_objectfn_fixed) wrong_num_args);
cf->cfun.f._[1] = ((narg == 1) ? c_function : (mkcl_objectfn_fixed) wrong_num_args);
cf->cfun.f._[2] = ((narg == 2) ? c_function : (mkcl_objectfn_fixed) wrong_num_args);
cf->cfun.f._[3] = ((narg == 3) ? c_function : (mkcl_objectfn_fixed) wrong_num_args);
cf->cfun.f._[4] = ((narg == 4) ? c_function : (mkcl_objectfn_fixed) wrong_num_args);
cf->cfun.f.entry = (((narg < 0) || (narg > 4)) ? dispatch_table[narg] : (mkcl_objectfn) wrong_num_args_cfun_va);
cf->cfun.f._[0] = ((narg == 0) ? c_function : (mkcl_objectfn_fixed) wrong_num_args_cfun_0);
cf->cfun.f._[1] = ((narg == 1) ? c_function : (mkcl_objectfn_fixed) wrong_num_args_cfun_1);
cf->cfun.f._[2] = ((narg == 2) ? c_function : (mkcl_objectfn_fixed) wrong_num_args_cfun_2);
cf->cfun.f._[3] = ((narg == 3) ? c_function : (mkcl_objectfn_fixed) wrong_num_args_cfun_3);
cf->cfun.f._[4] = ((narg == 4) ? c_function : (mkcl_objectfn_fixed) wrong_num_args_cfun_4);
cf->cfun.old_entry_fixed = c_function;
cf->cfun.name = name;
cf->cfun.block = cblock;
......@@ -213,6 +249,55 @@ mk_si_untrace_closure_creation(MKCL)
static mkcl_object wrong_num_args_cclosure_0(MKCL)
{
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cclosure.narg, fun->cclosure.narg, 0);
return mk_cl_Cnil;
}
static mkcl_object wrong_num_args_cclosure_1(MKCL)
{
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cclosure.narg, fun->cclosure.narg, 1);
return mk_cl_Cnil;
}
static mkcl_object wrong_num_args_cclosure_2(MKCL)
{
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cclosure.narg, fun->cclosure.narg, 2);
return mk_cl_Cnil;
}
static mkcl_object wrong_num_args_cclosure_3(MKCL)
{
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cclosure.narg, fun->cclosure.narg, 3);
return mk_cl_Cnil;
}
static mkcl_object wrong_num_args_cclosure_4(MKCL)
{
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cclosure.narg, fun->cclosure.narg, 4);
return mk_cl_Cnil;
}
static mkcl_object wrong_num_args_cclosure_va(MKCL, mkcl_narg narg, ...)
{
mkcl_object fun = env->function;
mkcl_FEwrong_num_arguments(env, fun, fun->cclosure.narg, fun->cclosure.narg, narg);
return mk_cl_Cnil;
}
mkcl_object
mkcl_make_cclosure(MKCL, mkcl_object producer, mkcl_objectfn_fixed c_function, int narg,
mkcl_index depth, mkcl_object syms_cenv, mkcl_object cenv,
......@@ -221,12 +306,12 @@ mkcl_make_cclosure(MKCL, mkcl_object producer, mkcl_objectfn_fixed c_function, i
mkcl_object cc;
cc = mkcl_alloc_raw_cclosure(env);
cc->cclosure.f.entry = wrong_num_args_va;
cc->cclosure.f._[0] = ((narg == 0) ? c_function : (mkcl_objectfn_fixed) wrong_num_args);
cc->cclosure.f._[1] = ((narg == 1) ? c_function : (mkcl_objectfn_fixed) wrong_num_args);
cc->cclosure.f._[2] = ((narg == 2) ? c_function : (mkcl_objectfn_fixed) wrong_num_args);
cc->cclosure.f._[3] = ((narg == 3) ? c_function : (mkcl_objectfn_fixed) wrong_num_args);
cc->cclosure.f._[4] = ((narg == 4) ? c_function : (mkcl_objectfn_fixed) wrong_num_args);
cc->cclosure.f.entry = wrong_num_args_cclosure_va;
cc->cclosure.f._[0] = ((narg == 0) ? c_function : (mkcl_objectfn_fixed) wrong_num_args_cclosure_0);
cc->cclosure.f._[1] = ((narg == 1) ? c_function : (mkcl_objectfn_fixed) wrong_num_args_cclosure_1);
cc->cclosure.f._[2] = ((narg == 2) ? c_function : (mkcl_objectfn_fixed) wrong_num_args_cclosure_2);
cc->cclosure.f._[3] = ((narg == 3) ? c_function : (mkcl_objectfn_fixed) wrong_num_args_cclosure_3);
cc->cclosure.f._[4] = ((narg == 4) ? c_function : (mkcl_objectfn_fixed) wrong_num_args_cclosure_4);
cc->cclosure.syms_cenv = syms_cenv;
cc->cclosure.block = block;
cc->cclosure.name = mk_cl_Cnil;
......
......@@ -5,392 +5,392 @@
static mkcl_object dispatch0 (MKCL, mkcl_narg narg) {
mkcl_object fun = env->function;
if (narg != 0) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 0) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env);
}
static mkcl_object dispatch1 (MKCL, mkcl_narg narg, mkcl_object x0) {
mkcl_object fun = env->function;
if (narg != 1) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 1) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0);
}
static mkcl_object dispatch2 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1) {
mkcl_object fun = env->function;
if (narg != 2) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 2) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1);
}
static mkcl_object dispatch3 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2) {
mkcl_object fun = env->function;
if (narg != 3) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 3) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2);
}
static mkcl_object dispatch4 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3) {
mkcl_object fun = env->function;
if (narg != 4) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 4) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3);
}
static mkcl_object dispatch5 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4) {
mkcl_object fun = env->function;
if (narg != 5) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 5) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4);
}
static mkcl_object dispatch6 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5) {
mkcl_object fun = env->function;
if (narg != 6) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 6) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5);
}
static mkcl_object dispatch7 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6) {
mkcl_object fun = env->function;
if (narg != 7) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 7) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6);
}
static mkcl_object dispatch8 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7) {
mkcl_object fun = env->function;
if (narg != 8) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 8) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7);
}
static mkcl_object dispatch9 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8) {
mkcl_object fun = env->function;
if (narg != 9) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 9) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8);
}
static mkcl_object dispatch10 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9) {
mkcl_object fun = env->function;
if (narg != 10) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 10) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9);
}
static mkcl_object dispatch11 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10) {
mkcl_object fun = env->function;
if (narg != 11) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 11) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10);
}
static mkcl_object dispatch12 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11) {
mkcl_object fun = env->function;
if (narg != 12) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 12) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11);
}
static mkcl_object dispatch13 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12) {
mkcl_object fun = env->function;
if (narg != 13) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 13) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12);
}
static mkcl_object dispatch14 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13) {
mkcl_object fun = env->function;
if (narg != 14) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 14) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13);
}
static mkcl_object dispatch15 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14) {
mkcl_object fun = env->function;
if (narg != 15) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 15) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14);
}
static mkcl_object dispatch16 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15) {
mkcl_object fun = env->function;
if (narg != 16) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 16) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15);
}
static mkcl_object dispatch17 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16) {
mkcl_object fun = env->function;
if (narg != 17) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 17) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16);
}
static mkcl_object dispatch18 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17) {
mkcl_object fun = env->function;
if (narg != 18) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 18) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17);
}
static mkcl_object dispatch19 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18) {
mkcl_object fun = env->function;
if (narg != 19) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 19) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18);
}
static mkcl_object dispatch20 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19) {
mkcl_object fun = env->function;
if (narg != 20) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 20) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19);
}
static mkcl_object dispatch21 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20) {
mkcl_object fun = env->function;
if (narg != 21) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 21) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20);
}
static mkcl_object dispatch22 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21) {
mkcl_object fun = env->function;
if (narg != 22) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 22) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21);
}
static mkcl_object dispatch23 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22) {
mkcl_object fun = env->function;
if (narg != 23) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 23) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22);
}
static mkcl_object dispatch24 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23) {
mkcl_object fun = env->function;
if (narg != 24) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 24) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23);
}
static mkcl_object dispatch25 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24) {
mkcl_object fun = env->function;
if (narg != 25) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 25) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24);
}
static mkcl_object dispatch26 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25) {
mkcl_object fun = env->function;
if (narg != 26) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 26) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25);
}
static mkcl_object dispatch27 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26) {
mkcl_object fun = env->function;
if (narg != 27) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 27) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26);
}
static mkcl_object dispatch28 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27) {
mkcl_object fun = env->function;
if (narg != 28) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 28) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27);
}
static mkcl_object dispatch29 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28) {
mkcl_object fun = env->function;
if (narg != 29) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 29) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28);
}
static mkcl_object dispatch30 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29) {
mkcl_object fun = env->function;
if (narg != 30) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 30) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29);
}
static mkcl_object dispatch31 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30) {
mkcl_object fun = env->function;
if (narg != 31) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 31) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30);
}
static mkcl_object dispatch32 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31) {
mkcl_object fun = env->function;
if (narg != 32) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 32) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31);
}
static mkcl_object dispatch33 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32) {
mkcl_object fun = env->function;
if (narg != 33) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 33) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32);
}
static mkcl_object dispatch34 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33) {
mkcl_object fun = env->function;
if (narg != 34) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 34) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33);
}
static mkcl_object dispatch35 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34) {
mkcl_object fun = env->function;
if (narg != 35) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 35) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34);
}
static mkcl_object dispatch36 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35) {
mkcl_object fun = env->function;
if (narg != 36) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 36) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35);
}
static mkcl_object dispatch37 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35, mkcl_object x36) {
mkcl_object fun = env->function;
if (narg != 37) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 37) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36);
}
static mkcl_object dispatch38 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35, mkcl_object x36, mkcl_object x37) {
mkcl_object fun = env->function;
if (narg != 38) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 38) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37);
}
static mkcl_object dispatch39 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35, mkcl_object x36, mkcl_object x37, mkcl_object x38) {
mkcl_object fun = env->function;
if (narg != 39) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 39) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38);
}
static mkcl_object dispatch40 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35, mkcl_object x36, mkcl_object x37, mkcl_object x38, mkcl_object x39) {
mkcl_object fun = env->function;
if (narg != 40) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 40) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39);
}
static mkcl_object dispatch41 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35, mkcl_object x36, mkcl_object x37, mkcl_object x38, mkcl_object x39, mkcl_object x40) {
mkcl_object fun = env->function;
if (narg != 41) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 41) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40);
}
static mkcl_object dispatch42 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35, mkcl_object x36, mkcl_object x37, mkcl_object x38, mkcl_object x39, mkcl_object x40, mkcl_object x41) {
mkcl_object fun = env->function;
if (narg != 42) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 42) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41);
}
static mkcl_object dispatch43 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35, mkcl_object x36, mkcl_object x37, mkcl_object x38, mkcl_object x39, mkcl_object x40, mkcl_object x41, mkcl_object x42) {
mkcl_object fun = env->function;
if (narg != 43) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 43) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42);
}
static mkcl_object dispatch44 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35, mkcl_object x36, mkcl_object x37, mkcl_object x38, mkcl_object x39, mkcl_object x40, mkcl_object x41, mkcl_object x42, mkcl_object x43) {
mkcl_object fun = env->function;
if (narg != 44) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 44) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43);
}
static mkcl_object dispatch45 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35, mkcl_object x36, mkcl_object x37, mkcl_object x38, mkcl_object x39, mkcl_object x40, mkcl_object x41, mkcl_object x42, mkcl_object x43, mkcl_object x44) {
mkcl_object fun = env->function;
if (narg != 45) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 45) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44);
}
static mkcl_object dispatch46 (MKCL, mkcl_narg narg, mkcl_object x0, mkcl_object x1, mkcl_object x2, mkcl_object x3, mkcl_object x4, mkcl_object x5, mkcl_object x6, mkcl_object x7, mkcl_object x8, mkcl_object x9, mkcl_object x10, mkcl_object x11, mkcl_object x12, mkcl_object x13, mkcl_object x14, mkcl_object x15, mkcl_object x16, mkcl_object x17, mkcl_object x18, mkcl_object x19, mkcl_object x20, mkcl_object x21, mkcl_object x22, mkcl_object x23, mkcl_object x24, mkcl_object x25, mkcl_object x26, mkcl_object x27, mkcl_object x28, mkcl_object x29, mkcl_object x30, mkcl_object x31, mkcl_object x32, mkcl_object x33, mkcl_object x34, mkcl_object x35, mkcl_object x36, mkcl_object x37, mkcl_object x38, mkcl_object x39, mkcl_object x40, mkcl_object x41, mkcl_object x42, mkcl_object x43, mkcl_object x44, mkcl_object x45) {
mkcl_object fun = env->function;
if (narg != 46) mkcl_FEwrong_num_arguments(env, fun);
if (narg != 46) mkcl_FEwrong_num_arguments(env, fun, fun->cfun.narg, fun->cfun.narg, narg);
return fun->cfun.old_entry_fixed(env, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45);