diff --git a/src/c/cfun_dispatch.d b/src/c/cfun_dispatch.d
index f8966fc4a..4fbf78ce9 100644
--- a/src/c/cfun_dispatch.d
+++ b/src/c/cfun_dispatch.d
@@ -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++)