/**
 ** This file was automatically generated by the Cyclone scheme compiler
 ** http://justinethier.github.io/cyclone/
 **
 ** (c) 2014-2024 Justin Ethier
 ** Version 0.36.0 
 **
 **/

#define closcall1(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 1, buf ); \
} else { \
   ((clo)->fn)(td, clo, 1, buf); \
;\
}
#define return_closcall1(td, clo,a1) { \
 char top; \
 object buf[1]; buf[0] = a1;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 1); \
     return; \
 } else {\
     closcall1(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc1(td, clo,a1) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[1]; buf[0] = a1;\
     GC(td, clo, buf, 1); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct1(td, _fn,a1) { \
 char top; \
 object buf[1]; buf[0] = a1; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 1); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 1, buf); \
 }}

#define return_direct_with_clo1(td, clo, _fn,a1) { \
 char top; \
 object buf[1]; buf[0] = a1;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 1); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 1, buf); \
 }}

#define closcall2(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 2, buf ); \
} else { \
   ((clo)->fn)(td, clo, 2, buf); \
;\
}
#define return_closcall2(td, clo,a1,a2) { \
 char top; \
 object buf[2]; buf[0] = a1;buf[1] = a2;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 2); \
     return; \
 } else {\
     closcall2(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc2(td, clo,a1,a2) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[2]; buf[0] = a1;buf[1] = a2;\
     GC(td, clo, buf, 2); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct2(td, _fn,a1,a2) { \
 char top; \
 object buf[2]; buf[0] = a1;buf[1] = a2; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 2); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 2, buf); \
 }}

#define return_direct_with_clo2(td, clo, _fn,a1,a2) { \
 char top; \
 object buf[2]; buf[0] = a1;buf[1] = a2;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 2); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 2, buf); \
 }}

#define closcall3(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 3, buf ); \
} else { \
   ((clo)->fn)(td, clo, 3, buf); \
;\
}
#define return_closcall3(td, clo,a1,a2,a3) { \
 char top; \
 object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 3); \
     return; \
 } else {\
     closcall3(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc3(td, clo,a1,a2,a3) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
     GC(td, clo, buf, 3); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct3(td, _fn,a1,a2,a3) { \
 char top; \
 object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 3); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 3, buf); \
 }}

#define return_direct_with_clo3(td, clo, _fn,a1,a2,a3) { \
 char top; \
 object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 3); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 3, buf); \
 }}

#define closcall4(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 4, buf ); \
} else { \
   ((clo)->fn)(td, clo, 4, buf); \
;\
}
#define return_closcall4(td, clo,a1,a2,a3,a4) { \
 char top; \
 object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 4); \
     return; \
 } else {\
     closcall4(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc4(td, clo,a1,a2,a3,a4) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
     GC(td, clo, buf, 4); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct4(td, _fn,a1,a2,a3,a4) { \
 char top; \
 object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 4); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 4, buf); \
 }}

#define return_direct_with_clo4(td, clo, _fn,a1,a2,a3,a4) { \
 char top; \
 object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 4); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 4, buf); \
 }}

#define closcall5(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 5, buf ); \
} else { \
   ((clo)->fn)(td, clo, 5, buf); \
;\
}
#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \
 char top; \
 object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 5); \
     return; \
 } else {\
     closcall5(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc5(td, clo,a1,a2,a3,a4,a5) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\
     GC(td, clo, buf, 5); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \
 char top; \
 object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 5); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 5, buf); \
 }}

#define return_direct_with_clo5(td, clo, _fn,a1,a2,a3,a4,a5) { \
 char top; \
 object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 5); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 5, buf); \
 }}

#define closcall6(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 6, buf ); \
} else { \
   ((clo)->fn)(td, clo, 6, buf); \
;\
}
#define return_closcall6(td, clo,a1,a2,a3,a4,a5,a6) { \
 char top; \
 object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 6); \
     return; \
 } else {\
     closcall6(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc6(td, clo,a1,a2,a3,a4,a5,a6) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\
     GC(td, clo, buf, 6); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct6(td, _fn,a1,a2,a3,a4,a5,a6) { \
 char top; \
 object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 6); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 6, buf); \
 }}

#define return_direct_with_clo6(td, clo, _fn,a1,a2,a3,a4,a5,a6) { \
 char top; \
 object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 6); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 6, buf); \
 }}

#define closcall7(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 7, buf ); \
} else { \
   ((clo)->fn)(td, clo, 7, buf); \
;\
}
#define return_closcall7(td, clo,a1,a2,a3,a4,a5,a6,a7) { \
 char top; \
 object buf[7]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 7); \
     return; \
 } else {\
     closcall7(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc7(td, clo,a1,a2,a3,a4,a5,a6,a7) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[7]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;\
     GC(td, clo, buf, 7); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct7(td, _fn,a1,a2,a3,a4,a5,a6,a7) { \
 char top; \
 object buf[7]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 7); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 7, buf); \
 }}

#define return_direct_with_clo7(td, clo, _fn,a1,a2,a3,a4,a5,a6,a7) { \
 char top; \
 object buf[7]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 7); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 7, buf); \
 }}

#define closcall58(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 58, buf ); \
} else { \
   ((clo)->fn)(td, clo, 58, buf); \
;\
}
#define return_closcall58(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,a50,a51,a52,a53,a54,a55,a56,a57,a58) { \
 char top; \
 object buf[58]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40;buf[40] = a41;buf[41] = a42;buf[42] = a43;buf[43] = a44;buf[44] = a45;buf[45] = a46;buf[46] = a47;buf[47] = a48;buf[48] = a49;buf[49] = a50;buf[50] = a51;buf[51] = a52;buf[52] = a53;buf[53] = a54;buf[54] = a55;buf[55] = a56;buf[56] = a57;buf[57] = a58;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 58); \
     return; \
 } else {\
     closcall58(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc58(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,a50,a51,a52,a53,a54,a55,a56,a57,a58) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[58]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40;buf[40] = a41;buf[41] = a42;buf[42] = a43;buf[43] = a44;buf[44] = a45;buf[45] = a46;buf[46] = a47;buf[47] = a48;buf[48] = a49;buf[49] = a50;buf[50] = a51;buf[51] = a52;buf[52] = a53;buf[53] = a54;buf[54] = a55;buf[55] = a56;buf[56] = a57;buf[57] = a58;\
     GC(td, clo, buf, 58); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct58(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,a50,a51,a52,a53,a54,a55,a56,a57,a58) { \
 char top; \
 object buf[58]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40;buf[40] = a41;buf[41] = a42;buf[42] = a43;buf[43] = a44;buf[44] = a45;buf[45] = a46;buf[46] = a47;buf[47] = a48;buf[48] = a49;buf[49] = a50;buf[50] = a51;buf[51] = a52;buf[52] = a53;buf[53] = a54;buf[54] = a55;buf[55] = a56;buf[56] = a57;buf[57] = a58; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 58); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 58, buf); \
 }}

#define return_direct_with_clo58(td, clo, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,a50,a51,a52,a53,a54,a55,a56,a57,a58) { \
 char top; \
 object buf[58]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40;buf[40] = a41;buf[41] = a42;buf[42] = a43;buf[43] = a44;buf[44] = a45;buf[45] = a46;buf[46] = a47;buf[47] = a48;buf[48] = a49;buf[49] = a50;buf[50] = a51;buf[51] = a52;buf[52] = a53;buf[53] = a54;buf[54] = a55;buf[55] = a56;buf[56] = a57;buf[57] = a58;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 58); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 58, buf); \
 }}

#define closcall74(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 74, buf ); \
} else { \
   ((clo)->fn)(td, clo, 74, buf); \
;\
}
#define return_closcall74(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,a50,a51,a52,a53,a54,a55,a56,a57,a58,a59,a60,a61,a62,a63,a64,a65,a66,a67,a68,a69,a70,a71,a72,a73,a74) { \
 char top; \
 object buf[74]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40;buf[40] = a41;buf[41] = a42;buf[42] = a43;buf[43] = a44;buf[44] = a45;buf[45] = a46;buf[46] = a47;buf[47] = a48;buf[48] = a49;buf[49] = a50;buf[50] = a51;buf[51] = a52;buf[52] = a53;buf[53] = a54;buf[54] = a55;buf[55] = a56;buf[56] = a57;buf[57] = a58;buf[58] = a59;buf[59] = a60;buf[60] = a61;buf[61] = a62;buf[62] = a63;buf[63] = a64;buf[64] = a65;buf[65] = a66;buf[66] = a67;buf[67] = a68;buf[68] = a69;buf[69] = a70;buf[70] = a71;buf[71] = a72;buf[72] = a73;buf[73] = a74;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 74); \
     return; \
 } else {\
     closcall74(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc74(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,a50,a51,a52,a53,a54,a55,a56,a57,a58,a59,a60,a61,a62,a63,a64,a65,a66,a67,a68,a69,a70,a71,a72,a73,a74) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[74]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40;buf[40] = a41;buf[41] = a42;buf[42] = a43;buf[43] = a44;buf[44] = a45;buf[45] = a46;buf[46] = a47;buf[47] = a48;buf[48] = a49;buf[49] = a50;buf[50] = a51;buf[51] = a52;buf[52] = a53;buf[53] = a54;buf[54] = a55;buf[55] = a56;buf[56] = a57;buf[57] = a58;buf[58] = a59;buf[59] = a60;buf[60] = a61;buf[61] = a62;buf[62] = a63;buf[63] = a64;buf[64] = a65;buf[65] = a66;buf[66] = a67;buf[67] = a68;buf[68] = a69;buf[69] = a70;buf[70] = a71;buf[71] = a72;buf[72] = a73;buf[73] = a74;\
     GC(td, clo, buf, 74); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct74(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,a50,a51,a52,a53,a54,a55,a56,a57,a58,a59,a60,a61,a62,a63,a64,a65,a66,a67,a68,a69,a70,a71,a72,a73,a74) { \
 char top; \
 object buf[74]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40;buf[40] = a41;buf[41] = a42;buf[42] = a43;buf[43] = a44;buf[44] = a45;buf[45] = a46;buf[46] = a47;buf[47] = a48;buf[48] = a49;buf[49] = a50;buf[50] = a51;buf[51] = a52;buf[52] = a53;buf[53] = a54;buf[54] = a55;buf[55] = a56;buf[56] = a57;buf[57] = a58;buf[58] = a59;buf[59] = a60;buf[60] = a61;buf[61] = a62;buf[62] = a63;buf[63] = a64;buf[64] = a65;buf[65] = a66;buf[66] = a67;buf[67] = a68;buf[68] = a69;buf[69] = a70;buf[70] = a71;buf[71] = a72;buf[72] = a73;buf[73] = a74; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 74); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 74, buf); \
 }}

#define return_direct_with_clo74(td, clo, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,a50,a51,a52,a53,a54,a55,a56,a57,a58,a59,a60,a61,a62,a63,a64,a65,a66,a67,a68,a69,a70,a71,a72,a73,a74) { \
 char top; \
 object buf[74]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40;buf[40] = a41;buf[41] = a42;buf[42] = a43;buf[43] = a44;buf[44] = a45;buf[45] = a46;buf[46] = a47;buf[47] = a48;buf[48] = a49;buf[49] = a50;buf[50] = a51;buf[51] = a52;buf[52] = a53;buf[53] = a54;buf[54] = a55;buf[55] = a56;buf[56] = a57;buf[57] = a58;buf[58] = a59;buf[59] = a60;buf[60] = a61;buf[61] = a62;buf[62] = a63;buf[63] = a64;buf[64] = a65;buf[65] = a66;buf[66] = a67;buf[67] = a68;buf[68] = a69;buf[69] = a70;buf[70] = a71;buf[71] = a72;buf[72] = a73;buf[73] = a74;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 74); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 74, buf); \
 }}

#include "cyclone/types.h"
object __glo_lib_91init_117schemeeval_scheme_eval = NULL;
object __glo_begin_91_125exps_scheme_eval = NULL;
object __glo__85defined_91macros_85_scheme_eval = NULL;
object __glo_get_91macros_scheme_eval = NULL;
object __glo_list_91_125pair_scheme_eval = NULL;
object __glo_list_91_125lambda_91formals_scheme_eval = NULL;
object __glo__191expand_91body_scheme_eval = NULL;
object __glo_expand_91body_scheme_eval = NULL;
object __glo_expand_91lambda_91body_scheme_eval = NULL;
object __glo_macro_117syntax_91rules_127_scheme_eval = NULL;
object __glo__191expand_scheme_eval = NULL;
object __glo_expand_scheme_eval = NULL;
object __glo_macro_117cleanup_scheme_eval = NULL;
object __glo_macro_117add_91renamed_91vars_67_scheme_eval = NULL;
object __glo_macro_117expand_scheme_eval = NULL;
object __glo_macro_117get_91local_91renames_scheme_eval = NULL;
object __glo_macro_117macro_127_191_191inline_191_191_scheme_eval = NULL;
object __glo_macro_117macro_127_scheme_eval = NULL;
object __glo_macro_117get_91defined_91macros_scheme_eval = NULL;
object __glo_macro_117get_91env_scheme_eval = NULL;
object __glo_macro_117load_91env_67_scheme_eval = NULL;
object __glo_macro_117add_67_scheme_eval = NULL;
object __glo__85macro_117defined_91macros_85_scheme_eval = NULL;
object __glo__85macro_117env_85_scheme_eval = NULL;
object __glo_c_117lib_91loaded_127_scheme_eval = NULL;
object __glo_c_117import_91shared_91obj_scheme_eval = NULL;
object __glo_import_91shared_91object_scheme_eval = NULL;
object __glo_imported_127_scheme_eval = NULL;
object __glo__75import_scheme_eval = NULL;
object __glo_base_91expander_scheme_eval = NULL;
object __glo__75set_91import_91dirs_67_scheme_eval = NULL;
object __glo__85prepend_91dirs_85_scheme_eval = NULL;
object __glo__85append_91dirs_85_scheme_eval = NULL;
object __glo_execute_91application_scheme_eval = NULL;
object __glo_analyze_91application_scheme_eval = NULL;
object __glo_pre_91analyze_91application_scheme_eval = NULL;
object __glo_analyze_91sequence_scheme_eval = NULL;
object __glo_analyze_91lambda_scheme_eval = NULL;
object __glo_analyze_91if_scheme_eval = NULL;
object __glo_analyze_91import_scheme_eval = NULL;
object __glo_analyze_91syntax_scheme_eval = NULL;
object __glo_analyze_91letrec_91syntax_scheme_eval = NULL;
object __glo_analyze_91let_91syntax_scheme_eval = NULL;
object __glo_analyze_91definition_scheme_eval = NULL;
object __glo_analyze_91assignment_scheme_eval = NULL;
object __glo_analyze_91variable_scheme_eval = NULL;
object __glo_assoc_91cdr_scheme_eval = NULL;
object __glo_analyze_91quoted_scheme_eval = NULL;
object __glo_analyze_91self_91evaluating_scheme_eval = NULL;
object __glo_analyze_scheme_eval = NULL;
object __glo__85global_91environment_85_scheme_eval = NULL;
object __glo__85initial_91environment_85_scheme_eval = NULL;
object __glo_create_91initial_91environment_scheme_eval = NULL;
object __glo_setup_91environment_scheme_eval = NULL;
object __glo_apply_91primitive_91procedure_scheme_eval = NULL;
object __glo_primitive_91procedure_91objects_scheme_eval = NULL;
object __glo_primitive_91procedure_91names_scheme_eval = NULL;
object __glo_primitive_91procedures_scheme_eval = NULL;
object __glo_primitive_91implementation_191_191inline_191_191_scheme_eval = NULL;
object __glo_primitive_91implementation_scheme_eval = NULL;
object __glo_primitive_91procedure_127_scheme_eval = NULL;
object __glo_compound_91macro_127_scheme_eval = NULL;
object __glo_macro_91tag_scheme_eval = NULL;
object __glo_make_91macro_scheme_eval = NULL;
object __glo_procedure_91environment_191_191inline_191_191_scheme_eval = NULL;
object __glo_procedure_91environment_scheme_eval = NULL;
object __glo_procedure_91body_191_191inline_191_191_scheme_eval = NULL;
object __glo_procedure_91body_scheme_eval = NULL;
object __glo_procedure_91parameters_191_191inline_191_191_scheme_eval = NULL;
object __glo_procedure_91parameters_scheme_eval = NULL;
object __glo_compound_91procedure_127_scheme_eval = NULL;
object __glo_make_91procedure_scheme_eval = NULL;
object __glo_procedure_91tag_scheme_eval = NULL;
object __glo_operands_191_191inline_191_191_scheme_eval = NULL;
object __glo_operands_scheme_eval = NULL;
object __glo_operator_191_191inline_191_191_scheme_eval = NULL;
object __glo_operator_scheme_eval = NULL;
object __glo_application_127_191_191inline_191_191_scheme_eval = NULL;
object __glo_application_127_scheme_eval = NULL;
object __glo_make_91if_scheme_eval = NULL;
object __glo_if_91alternative_191_191inline_191_191_scheme_eval = NULL;
object __glo_if_91alternative_scheme_eval = NULL;
object __glo_if_91consequent_191_191inline_191_191_scheme_eval = NULL;
object __glo_if_91consequent_scheme_eval = NULL;
object __glo_if_91predicate_191_191inline_191_191_scheme_eval = NULL;
object __glo_if_91predicate_scheme_eval = NULL;
object __glo_make_91lambda_scheme_eval = NULL;
object __glo_lambda_91body_191_191inline_191_191_scheme_eval = NULL;
object __glo_lambda_91body_scheme_eval = NULL;
object __glo_lambda_91parameters_191_191inline_191_191_scheme_eval = NULL;
object __glo_lambda_91parameters_scheme_eval = NULL;
object __glo_definition_91value_scheme_eval = NULL;
object __glo_definition_91variable_191_191inline_191_191_scheme_eval = NULL;
object __glo_definition_91variable_scheme_eval = NULL;
object __glo_definition_127_scheme_eval = NULL;
object __glo_syntax_127_scheme_eval = NULL;
object __glo_assignment_91value_191_191inline_191_191_scheme_eval = NULL;
object __glo_assignment_91value_scheme_eval = NULL;
object __glo_assignment_91variable_191_191inline_191_191_scheme_eval = NULL;
object __glo_assignment_91variable_scheme_eval = NULL;
object __glo_assignment_127_scheme_eval = NULL;
object __glo_quoted_127_scheme_eval = NULL;
object __glo_variable_127_191_191inline_191_191_scheme_eval = NULL;
object __glo_variable_127_scheme_eval = NULL;
object __glo_self_91evaluating_127_scheme_eval = NULL;
object __glo_wrapc_scheme_eval = NULL;
object __glo_eval_91from_91c_scheme_eval = NULL;
object __glo_eval_scheme_eval = NULL;
object __glo_create_91environment_scheme_eval = NULL;
extern object __glo_define_91syntax_127_scheme_cyclone_util;
extern object __glo_let_91syntax_127_scheme_cyclone_util;
extern object __glo_letrec_91syntax_127_scheme_cyclone_util;
extern object __glo_tagged_91list_127_scheme_cyclone_util;
extern object __glo_if_127_scheme_cyclone_util;
extern object __glo_if_91syntax_127_scheme_cyclone_util;
extern object __glo_begin_127_scheme_cyclone_util;
extern object __glo_lambda_127_scheme_cyclone_util;
extern object __glo_pair_91_125list_scheme_cyclone_util;
extern object __glo_define_91lambda_127_scheme_cyclone_util;
extern object __glo_define_91_125lambda_scheme_cyclone_util;
extern object __glo_formals_91_125list_scheme_cyclone_util;
extern object __glo_lambda_91formals_91_125list_scheme_cyclone_util;
extern object __glo_lambda_91varargs_127_scheme_cyclone_util;
extern object __glo_lambda_91_125formals_scheme_cyclone_util;
extern object __glo_lambda_91_125exp_scheme_cyclone_util;
extern object __glo_lambda_91formals_91type_scheme_cyclone_util;
extern object __glo_lambda_91varargs_91var_scheme_cyclone_util;
extern object __glo_pack_91lambda_91arguments_scheme_cyclone_util;
extern object __glo_if_91_125condition_scheme_cyclone_util;
extern object __glo_if_91_125then_scheme_cyclone_util;
extern object __glo_if_91else_127_scheme_cyclone_util;
extern object __glo_if_91_125else_scheme_cyclone_util;
extern object __glo_const_127_scheme_cyclone_util;
extern object __glo_ref_127_scheme_cyclone_util;
extern object __glo_quote_127_scheme_cyclone_util;
extern object __glo_define_91c_127_scheme_cyclone_util;
extern object __glo_set_67_127_scheme_cyclone_util;
extern object __glo_set_67_91_125var_scheme_cyclone_util;
extern object __glo_set_67_91_125exp_scheme_cyclone_util;
extern object __glo_define_127_scheme_cyclone_util;
extern object __glo_define_91_125var_scheme_cyclone_util;
extern object __glo_define_91_125exp_scheme_cyclone_util;
extern object __glo_app_127_scheme_cyclone_util;
extern object __glo_env_117enclosing_91environment_scheme_cyclone_util;
extern object __glo_env_117first_91frame_scheme_cyclone_util;
extern object __glo_env_117the_91empty_91environment_scheme_cyclone_util;
extern object __glo_env_117make_91frame_scheme_cyclone_util;
extern object __glo_env_117frame_91variables_scheme_cyclone_util;
extern object __glo_env_117frame_91values_scheme_cyclone_util;
extern object __glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util;
extern object __glo_env_117all_91variables_scheme_cyclone_util;
extern object __glo_env_117all_91values_scheme_cyclone_util;
extern object __glo_env_117extend_91environment_scheme_cyclone_util;
extern object __glo_env_117lookup_scheme_cyclone_util;
extern object __glo_env_117lookup_91variable_91value_scheme_cyclone_util;
extern object __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util;
extern object __glo_env_117set_91variable_91value_67_scheme_cyclone_util;
extern object __glo_env_117define_91variable_67_scheme_cyclone_util;
extern object __glo_make_91syntactic_91closure_scheme_cyclone_util;
extern object __glo_strip_91syntactic_91closures_scheme_cyclone_util;
extern object __glo_identifier_91_125symbol_scheme_cyclone_util;
extern object __glo_identifier_127_scheme_cyclone_util;
extern object __glo_identifier_123_127_scheme_cyclone_util;
extern object __glo_Cyc_91er_91rename_scheme_cyclone_util;
extern object __glo_Cyc_91er_91compare_127_scheme_cyclone_util;
extern object __glo_mangle_scheme_cyclone_util;
extern object __glo_mangle_91global_scheme_cyclone_util;
extern object __glo_define_91c_91inline_127_scheme_cyclone_util;
extern object __glo_define_91c_91_125inline_91var_scheme_cyclone_util;
extern object __glo_Cyc_91set_91immutable_67_scheme_cyclone_util;
extern object __glo_string_91join_scheme_cyclone_util;
extern object __glo_string_91split_scheme_cyclone_util;
extern object __glo_gensym_scheme_cyclone_util;
extern object __glo_delete_scheme_cyclone_util;
extern object __glo_delete_91duplicates_scheme_cyclone_util;
extern object __glo_flatten_scheme_cyclone_util;
extern object __glo_length_95obj_scheme_cyclone_util;
extern object __glo_list_91index2_scheme_cyclone_util;
extern object __glo_list_91insert_91at_67_scheme_cyclone_util;
extern object __glo_list_91prefix_127_scheme_cyclone_util;
extern object __glo_string_91replace_91all_scheme_cyclone_util;
extern object __glo_take_scheme_cyclone_util;
extern object __glo_drop_scheme_cyclone_util;
extern object __glo_filter_scheme_cyclone_util;
extern object __glo_current_91expand_91filepath_scheme_cyclone_util;
extern object __glo_library_127_scheme_cyclone_libraries;
extern object __glo_library_91exists_127_scheme_cyclone_libraries;
extern object __glo_lib_117list_91_125import_91set_scheme_cyclone_libraries;
extern object __glo_lib_117name_scheme_cyclone_libraries;
extern object __glo_lib_117name_91_125string_scheme_cyclone_libraries;
extern object __glo_lib_117name_91_125symbol_scheme_cyclone_libraries;
extern object __glo_lib_117name_91_125unique_91string_scheme_cyclone_libraries;
extern object __glo_lib_117result_scheme_cyclone_libraries;
extern object __glo_lib_117exports_scheme_cyclone_libraries;
extern object __glo_lib_117rename_91exports_scheme_cyclone_libraries;
extern object __glo_lib_117imports_scheme_cyclone_libraries;
extern object __glo_lib_117body_scheme_cyclone_libraries;
extern object __glo_lib_117cond_91expand_scheme_cyclone_libraries;
extern object __glo_lib_117cond_91expand_91decls_scheme_cyclone_libraries;
extern object __glo_lib_117includes_scheme_cyclone_libraries;
extern object __glo_lib_117include_91c_91headers_scheme_cyclone_libraries;
extern object __glo_lib_117inlines_scheme_cyclone_libraries;
extern object __glo_lib_117import_91set_117library_91name_127_scheme_cyclone_libraries;
extern object __glo_lib_117import_91set_91_125import_91set_scheme_cyclone_libraries;
extern object __glo_lib_117import_91_125library_91name_scheme_cyclone_libraries;
extern object __glo_lib_117import_91_125filename_scheme_cyclone_libraries;
extern object __glo_lib_117import_91_125metalist_scheme_cyclone_libraries;
extern object __glo_lib_117import_91_125path_scheme_cyclone_libraries;
extern object __glo_lib_117check_91system_91path_scheme_cyclone_libraries;
extern object __glo_lib_117read_91imports_scheme_cyclone_libraries;
extern object __glo_lib_117read_91includes_scheme_cyclone_libraries;
extern object __glo_lib_117import_91_125export_91list_scheme_cyclone_libraries;
extern object __glo_lib_117import_91set_95exports_91_125imports_scheme_cyclone_libraries;
extern object __glo_lib_117resolve_91meta_scheme_cyclone_libraries;
extern object __glo_lib_117get_91all_scheme_cyclone_libraries;
extern object __glo_lib_117get_91all_91import_91deps_scheme_cyclone_libraries;
extern object __glo_lib_117get_91dep_91list_scheme_cyclone_libraries;
extern object __glo_lib_117c_91linker_91options_scheme_cyclone_libraries;
extern object __glo_lib_117read_91c_91linker_91options_scheme_cyclone_libraries;
extern object __glo_lib_117get_91all_91c_91linker_91options_scheme_cyclone_libraries;
extern object __glo_lib_117c_91compiler_91options_scheme_cyclone_libraries;
extern object __glo_lib_117read_91c_91compiler_91options_scheme_cyclone_libraries;
extern object __glo_lib_117get_91all_91c_91compiler_91options_scheme_cyclone_libraries;
extern object __glo_lib_117imports_91_125idb_scheme_cyclone_libraries;
extern object __glo_lib_117idb_117ids_scheme_cyclone_libraries;
extern object __glo_lib_117idb_117lookup_scheme_cyclone_libraries;
extern object __glo_lib_117idb_117entry_91_125library_91name_scheme_cyclone_libraries;
extern object __glo_lib_117idb_117entry_91_125library_91id_scheme_cyclone_libraries;
extern object __glo_prim_127_scheme_cyclone_primitives;
extern object __glo__85primitives_85_scheme_cyclone_primitives;
extern object __glo__85primitives_91num_91args_85_scheme_cyclone_primitives;
extern object __glo_prim_91call_127_scheme_cyclone_primitives;
extern object __glo_prim_91_125c_91func_scheme_cyclone_primitives;
extern object __glo_prim_91_125c_91func_91uses_91alloca_127_scheme_cyclone_primitives;
extern object __glo_prim_95data_91arg_127_scheme_cyclone_primitives;
extern object __glo_prim_95c_91var_91pointer_scheme_cyclone_primitives;
extern object __glo_prim_95c_91var_91assign_scheme_cyclone_primitives;
extern object __glo_prim_95cvar_127_scheme_cyclone_primitives;
extern object __glo_prim_117inline_91convert_91prim_91call_scheme_cyclone_primitives;
extern object __glo_prim_117check_91arg_91count_scheme_cyclone_primitives;
extern object __glo_prim_117mutates_127_scheme_cyclone_primitives;
extern object __glo_prim_117cont_127_scheme_cyclone_primitives;
extern object __glo_prim_117cont_95no_91args_127_scheme_cyclone_primitives;
extern object __glo_prim_117arg_91count_127_scheme_cyclone_primitives;
extern object __glo_prim_117allocates_91object_127_scheme_cyclone_primitives;
extern object __glo_prim_117immutable_91args_95result_127_scheme_cyclone_primitives;
extern object __glo_prim_117udf_127_scheme_cyclone_primitives;
extern object __glo_prim_117add_91udf_67_scheme_cyclone_primitives;
extern object __glo_prim_117func_91_125prim_scheme_cyclone_primitives;
extern object __glo_member_scheme_base;
extern object __glo_assoc_scheme_base;
extern object __glo_cons_91source_scheme_base;
extern object __glo_syntax_91rules_scheme_base;
extern object __glo_letrec_85_scheme_base;
extern object __glo_guard_scheme_base;
extern object __glo_guard_91aux_scheme_base;
extern object __glo_define_91record_91type_scheme_base;
extern object __glo_record_127_scheme_base;
extern object __glo_is_91a_127_scheme_base;
extern object __glo_register_91simple_91type_scheme_base;
extern object __glo_make_91type_91predicate_scheme_base;
extern object __glo_make_91constructor_scheme_base;
extern object __glo_make_91constructor_95args_scheme_base;
extern object __glo_make_91getter_scheme_base;
extern object __glo_make_91setter_scheme_base;
extern object __glo_slot_91ref_scheme_base;
extern object __glo_slot_91set_67_scheme_base;
extern object __glo_type_91slot_91offset_scheme_base;
extern object __glo_make_91record_91marker_scheme_base;
extern object __glo_receive_scheme_base;
extern object __glo_abs_scheme_base;
extern object __glo_max_scheme_base;
extern object __glo_min_scheme_base;
extern object __glo_modulo_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_even_127_scheme_base;
extern object __glo_exact_91integer_127_scheme_base;
extern object __glo_exact_91integer_91sqrt_scheme_base;
extern object __glo_exact_127_scheme_base;
extern object __glo_inexact_127_scheme_base;
extern object __glo_odd_127_scheme_base;
extern object __glo_complex_127_scheme_base;
extern object __glo_rational_127_scheme_base;
extern object __glo_bignum_127_scheme_base;
extern object __glo_gcd_scheme_base;
extern object __glo_lcm_scheme_base;
extern object __glo_quotient_scheme_base;
extern object __glo_remainder_scheme_base;
extern object __glo_truncate_91quotient_scheme_base;
extern object __glo_truncate_91remainder_scheme_base;
extern object __glo_truncate_95_scheme_base;
extern object __glo_floor_91quotient_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_floor_95_scheme_base;
extern object __glo_square_scheme_base;
extern object __glo_expt_scheme_base;
extern object __glo_call_91with_91current_91continuation_scheme_base;
extern object __glo_call_95cc_scheme_base;
extern object __glo_call_91with_91values_scheme_base;
extern object __glo_dynamic_91wind_scheme_base;
extern object __glo_values_scheme_base;
extern object __glo_char_123_127_scheme_base;
extern object __glo_char_121_127_scheme_base;
extern object __glo_char_125_127_scheme_base;
extern object __glo_char_121_123_127_scheme_base;
extern object __glo_char_125_123_127_scheme_base;
extern object __glo_string_123_127_scheme_base;
extern object __glo_string_121_127_scheme_base;
extern object __glo_string_121_123_127_scheme_base;
extern object __glo_string_125_127_scheme_base;
extern object __glo_string_125_123_127_scheme_base;
extern object __glo_fast_91string_123_127_scheme_base;
extern object __glo_fast_91string_121_127_scheme_base;
extern object __glo_fast_91string_121_123_127_scheme_base;
extern object __glo_fast_91string_125_127_scheme_base;
extern object __glo_fast_91string_125_123_127_scheme_base;
extern object __glo_foldl_scheme_base;
extern object __glo_foldr_scheme_base;
extern object __glo_not_scheme_base;
extern object __glo_list_127_scheme_base;
extern object __glo_zero_127_scheme_base;
extern object __glo_positive_127_scheme_base;
extern object __glo_negative_127_scheme_base;
extern object __glo_append_scheme_base;
extern object __glo__list_scheme_base;
extern object __glo_make_91list_scheme_base;
extern object __glo_list_91copy_scheme_base;
extern object __glo_map_scheme_base;
extern object __glo_Cyc_91map_91loop_911_scheme_base;
extern object __glo_Cyc_91map_91loop_912_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_911_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_912_scheme_base;
extern object __glo_for_91each_scheme_base;
extern object __glo_list_91tail_scheme_base;
extern object __glo_list_91ref_scheme_base;
extern object __glo_list_91set_67_scheme_base;
extern object __glo_reverse_scheme_base;
extern object __glo_boolean_123_127_scheme_base;
extern object __glo_symbol_123_127_scheme_base;
extern object __glo_Cyc_91obj_123_127_scheme_base;
extern object __glo_vector_scheme_base;
extern object __glo_vector_91append_scheme_base;
extern object __glo_vector_91copy_scheme_base;
extern object __glo_vector_91copy_67_scheme_base;
extern object __glo_vector_91fill_67_scheme_base;
extern object __glo_vector_91_125list_scheme_base;
extern object __glo_vector_91_125string_scheme_base;
extern object __glo_vector_91map_scheme_base;
extern object __glo_vector_91for_91each_scheme_base;
extern object __glo_make_91string_scheme_base;
extern object __glo_string_scheme_base;
extern object __glo_string_91copy_scheme_base;
extern object __glo_string_91copy_67_scheme_base;
extern object __glo_string_91fill_67_scheme_base;
extern object __glo_string_91_125list_scheme_base;
extern object __glo_string_91_125vector_scheme_base;
extern object __glo_string_91map_scheme_base;
extern object __glo_string_91for_91each_scheme_base;
extern object __glo_make_91parameter_scheme_base;
extern object __glo_current_91output_91port_scheme_base;
extern object __glo_current_91input_91port_scheme_base;
extern object __glo_current_91error_91port_scheme_base;
extern object __glo_call_91with_91port_scheme_base;
extern object __glo_error_91object_127_scheme_base;
extern object __glo_error_91object_91message_scheme_base;
extern object __glo_error_91object_91irritants_scheme_base;
extern object __glo_error_95loc_scheme_base;
extern object __glo_error_scheme_base;
extern object __glo_raise_scheme_base;
extern object __glo_raise_91continuable_scheme_base;
extern object __glo_with_91handler_scheme_base;
extern object __glo_with_91exception_91handler_scheme_base;
extern object __glo_Cyc_91add_91exception_91handler_scheme_base;
extern object __glo_Cyc_91remove_91exception_91handler_scheme_base;
extern object __glo_newline_scheme_base;
extern object __glo_write_91char_scheme_base;
extern object __glo_write_91string_scheme_base;
extern object __glo_write_91string_911_scheme_base;
extern object __glo_write_91string_912_scheme_base;
extern object __glo_flush_91output_91port_scheme_base;
extern object __glo_char_91ready_127_scheme_base;
extern object __glo_peek_91char_scheme_base;
extern object __glo_read_91char_scheme_base;
extern object __glo_read_91line_scheme_base;
extern object __glo_read_91string_scheme_base;
extern object __glo_input_91port_127_scheme_base;
extern object __glo_output_91port_127_scheme_base;
extern object __glo_input_91port_91open_127_scheme_base;
extern object __glo_output_91port_91open_127_scheme_base;
extern object __glo_get_91output_91string_scheme_base;
extern object __glo_open_91output_91string_scheme_base;
extern object __glo_open_91input_91string_scheme_base;
extern object __glo_get_91output_91bytevector_scheme_base;
extern object __glo_open_91input_91bytevector_scheme_base;
extern object __glo_open_91output_91bytevector_scheme_base;
extern object __glo_features_scheme_base;
extern object __glo_Cyc_91add_91feature_67_scheme_base;
extern object __glo_Cyc_91version_scheme_base;
extern object __glo_any_scheme_base;
extern object __glo_every_scheme_base;
extern object __glo_and_scheme_base;
extern object __glo_or_scheme_base;
extern object __glo_let_scheme_base;
extern object __glo_let_85_scheme_base;
extern object __glo_letrec_scheme_base;
extern object __glo_let_85_91values_scheme_base;
extern object __glo_let_91values_scheme_base;
extern object __glo_define_91values_scheme_base;
extern object __glo_begin_scheme_base;
extern object __glo__case_scheme_base;
extern object __glo_cond_scheme_base;
extern object __glo_cond_91expand_scheme_base;
extern object __glo__do_scheme_base;
extern object __glo_when_scheme_base;
extern object __glo_unless_scheme_base;
extern object __glo_quasiquote_scheme_base;
extern object __glo_floor_scheme_base;
extern object __glo_ceiling_scheme_base;
extern object __glo_truncate_scheme_base;
extern object __glo_round_scheme_base;
extern object __glo_exact_scheme_base;
extern object __glo_inexact_scheme_base;
extern object __glo_eof_91object_scheme_base;
extern object __glo__void_scheme_base;
extern object __glo_syntax_91error_scheme_base;
extern object __glo_bytevector_91copy_scheme_base;
extern object __glo_bytevector_91copy_67_scheme_base;
extern object __glo_utf8_91_125string_scheme_base;
extern object __glo_string_91_125utf8_scheme_base;
extern object __glo_denominator_scheme_base;
extern object __glo_numerator_scheme_base;
extern object __glo_parameterize_scheme_base;
extern object __glo_read_91bytevector_scheme_base;
extern object __glo_read_91bytevector_67_scheme_base;
extern object __glo_write_91bytevector_scheme_base;
extern object __glo_peek_91u8_scheme_base;
extern object __glo_read_91u8_scheme_base;
extern object __glo_write_91u8_scheme_base;
extern object __glo_binary_91port_127_scheme_base;
extern object __glo_textual_91port_127_scheme_base;
extern object __glo_rationalize_scheme_base;
extern object __glo_call_91with_91input_91file_scheme_file;
extern object __glo_call_91with_91output_91file_scheme_file;
extern object __glo_with_91input_91from_91file_scheme_file;
extern object __glo_with_91output_91to_91file_scheme_file;
extern object __glo_read_scheme_read;
extern object __glo_read_91all_scheme_read;
extern object __glo_read_91all_95source_scheme_read;
extern object __glo_include_scheme_read;
extern object __glo_include_91ci_scheme_read;
extern object __glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_app_127_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_ref_127_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117enclosing_91environment_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117first_91frame_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117frame_91variables_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117frame_91values_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_lib_117import_91set_91_125import_91set_191_191inline_191_191_scheme_cyclone_libraries;
extern object __glo_lib_117idb_117entry_91_125library_91name_191_191inline_191_191_scheme_cyclone_libraries;
extern object __glo_fast_91string_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_123_127_191_191inline_191_191_scheme_base;
extern object __glo__75write_91bytevector_191_191inline_191_191_scheme_base;
extern object __glo_not_191_191inline_191_191_scheme_base;
extern object __glo_list_127_191_191inline_191_191_scheme_base;
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
extern object __glo_floor_191_191inline_191_191_scheme_base;
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
extern object __glo_truncate_191_191inline_191_191_scheme_base;
extern object __glo_round_191_191inline_191_191_scheme_base;
extern object __glo_exact_191_191inline_191_191_scheme_base;
extern object __glo_inexact_191_191inline_191_191_scheme_base;
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
extern object __glo_complex_127_191_191inline_191_191_scheme_base;
extern object __glo_fixnum_127_191_191inline_191_191_scheme_base;
extern object __glo_quotient_191_191inline_191_191_scheme_base;
extern object __glo_square_191_191inline_191_191_scheme_base;
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
extern object __glo_void_191_191inline_191_191_scheme_base;
extern object __glo_make_91record_91marker_191_191inline_191_191_scheme_base;
extern object __glo_Cyc_91opaque_91eq_127_191_191inline_191_191_scheme_read;
extern object __glo_Cyc_91opaque_91unsafe_91eq_127_191_191inline_191_191_scheme_read;
extern object __glo_Cyc_91opaque_91unsafe_91string_127_191_191inline_191_191_scheme_read;
extern object __glo_Cyc_91opaque_91_125string_191_191inline_191_191_scheme_read;
#include "cyclone/runtime.h"
defsymbol(procedure);
defsymbol(procedure_91tag);
defsymbol(macro_91tag);
defsymbol(cddddr);
defsymbol(cdddar);
defsymbol(cddadr);
defsymbol(cddaar);
defsymbol(cdaddr);
defsymbol(cdadar);
defsymbol(cdaadr);
defsymbol(cdaaar);
defsymbol(cadddr);
defsymbol(caddar);
defsymbol(cadadr);
defsymbol(cadaar);
defsymbol(caaddr);
defsymbol(caadar);
defsymbol(caaadr);
defsymbol(caaaar);
defsymbol(cdddr);
defsymbol(cddar);
defsymbol(cdadr);
defsymbol(cdaar);
defsymbol(caddr);
defsymbol(cadar);
defsymbol(caadr);
defsymbol(caaar);
defsymbol(cddr);
defsymbol(cdar);
defsymbol(cadr);
defsymbol(caar);
defsymbol(cdr);
defsymbol(car);
defsymbol(set_91cdr_67);
defsymbol(set_91car_67);
defsymbol(length);
defsymbol(memv);
defsymbol(memq);
defsymbol(assv);
defsymbol(assq);
defsymbol(equal_127);
defsymbol(eqv_127);
defsymbol(eq_127);
defsymbol(cell);
defsymbol(set_91cell_67);
defsymbol(set_91global_67);
defsymbol(cell_91get);
defsymbol(cons);
defsymbol(error);
defsymbol(command_91line_91arguments);
defsymbol(system);
defsymbol(Cyc_91installation_91dir);
defsymbol(Cyc_91compilation_91environment);
defsymbol(exit);
defsymbol(_75halt);
defsymbol(apply);
defsymbol(_121_123);
defsymbol(_125_123);
defsymbol(_121);
defsymbol(_125);
defsymbol(_123);
defsymbol(_95);
defsymbol(_85);
defsymbol(_91);
defsymbol(_87);
defsymbol(Cyc_91current_91exception_91handler);
defsymbol(Cyc_91default_91exception_91handler);
defsymbol(Cyc_91end_91thread_67);
defsymbol(Cyc_91spawn_91thread_67);
defsymbol(Cyc_91has_91cycle_127);
defsymbol(Cyc_91opaque_127);
defsymbol(Cyc_91cvar_127);
defsymbol(Cyc_91set_91cvar_67);
defsymbol(Cyc_91get_91cvar);
defsymbol(Cyc_91global_91vars);
defsymbol(call_95cc);
defsymbol(Cyc_91display);
defsymbol(Cyc_91write);
defsymbol(Cyc_91write_91char);
defsymbol(Cyc_91read_91line);
defsymbol(peek_91char);
defsymbol(read_91char);
defsymbol(delete_91file);
defsymbol(file_91exists_127);
defsymbol(close_91output_91port);
defsymbol(close_91input_91port);
defsymbol(close_91port);
defsymbol(open_91binary_91output_91file);
defsymbol(open_91binary_91input_91file);
defsymbol(open_91output_91file);
defsymbol(open_91input_91file);
defsymbol(symbol_127);
defsymbol(string_127);
defsymbol(bytevector_127);
defsymbol(vector_127);
defsymbol(Cyc_91macro_127);
defsymbol(procedure_127);
defsymbol(port_127);
defsymbol(pair_127);
defsymbol(integer_127);
defsymbol(real_127);
defsymbol(number_127);
defsymbol(null_127);
defsymbol(eof_91object_127);
defsymbol(char_127);
defsymbol(boolean_127);
defsymbol(vector_91set_67);
defsymbol(vector_91ref);
defsymbol(vector_91length);
defsymbol(list_91_125vector);
defsymbol(make_91vector);
defsymbol(bytevector_91u8_91set_67);
defsymbol(bytevector_91u8_91ref);
defsymbol(bytevector);
defsymbol(Cyc_91string_91_125utf8);
defsymbol(Cyc_91utf8_91_125string);
defsymbol(Cyc_91bytevector_91copy);
defsymbol(bytevector_91append);
defsymbol(bytevector_91length);
defsymbol(make_91bytevector);
defsymbol(substring);
defsymbol(string_91set_67);
defsymbol(string_91ref);
defsymbol(string_91length);
defsymbol(number_91_125string);
defsymbol(symbol_91_125string);
defsymbol(string_91_125symbol);
defsymbol(list_91_125string);
defsymbol(string_91append);
defsymbol(string_91cmp);
defsymbol(string_91_125number);
defsymbol(integer_91_125char);
defsymbol(char_91_125integer);
defsymbol(primitive_91procedures);
defsymbol(_85initial_91environment_85);
defsymbol(type);
defsymbol(Unexpected);
defsymbol(varargs);
defsymbol(_for);
defsymbol(args);
defsymbol(many);
defsymbol(Too);
defsymbol(args_117varargs);
defsymbol(args_117fixed_91with_91varargs);
defsymbol(args_117fixed);
defsymbol(_85defined_91macros_85);
defsymbol(_191_191_191_191unused_191_191_191_191);
defsymbol(_85macro_117env_85);
defsymbol(_85macro_117defined_91macros_85);
defsymbol(_85global_91environment_85);
defsymbol(_85append_91dirs_85);
defsymbol(_85prepend_91dirs_85);
defsymbol(begin);
defsymbol(er_91macro_91transformer);
defsymbol(macro);
defsymbol(ok);
defsymbol(import);
defsymbol(letrec_91syntax);
defsymbol(let_91syntax);
defsymbol(primitive);
defsymbol(_if);
defsymbol(lambda);
defsymbol(define);
defsymbol(define_91syntax);
defsymbol(set_67);
defsymbol(quote);
static void __lambda_504(void *data, object clo, int argc, object *args) ;/*closure _,object k_732169*/
static void __lambda_505(void *data, object clo, int argc, object *args) ;/*object self_733000, object r_732171*/
static void __lambda_506(void *data, object clo, int argc, object *args) ;/*object self_733001, object r_732172*/
static void __lambda_507(void *data, object clo, int argc, object *args) ;/*object self_733002, object r_732192*/
static void __lambda_508(void *data, object clo, int argc, object *args) ;/*object self_733003, object r_732193*/
static void __lambda_509(void *data, object clo, int argc, object *args) ;/*object self_733004, object r_732191*/
static void __lambda_510(void *data, object clo, int argc, object *args) ;/*object self_733005, object r_732173*/
static void __lambda_511(void *data, object clo, int argc, object *args) ;/*object self_733006, object r_732190*/
static void __lambda_512(void *data, object clo, int argc, object *args) ;/*object self_733007, object r_732174*/
static void __lambda_513(void *data, object clo, int argc, object *args) ;/*object self_733008, object r_732189*/
static void __lambda_514(void *data, object clo, int argc, object *args) ;/*object self_733009, object r_732188*/
static void __lambda_515(void *data, object clo, int argc, object *args) ;/*object self_733010, object r_732185*/
static void __lambda_516(void *data, object clo, int argc, object *args) ;/*object self_733011, object r_732175*/
static void __lambda_517(void *data, object clo, int argc, object *args) ;/*object self_733012, object r_732176*/
static void __lambda_518(void *data, object clo, int argc, object *args) ;/*object self_733013, object r_732177*/
static void __lambda_519(void *data, object clo, int argc, object *args) ;/*object self_733014, object r_732178*/
static void __lambda_520(void *data, object clo, int argc, object *args) ;/*object self_733015, object r_732179*/
static void __lambda_521(void *data, object clo, int argc, object *args) ;/*object self_733016, object r_732180*/
static void __lambda_503(void *data, object clo, int argc, object *args) ;/*closure _,object k_732166, object exp_73814_731145*/
static void __lambda_502(void *data, object clo, int argc, object *args) ;/*closure _,object k_732161*/
static void __lambda_495(void *data, object clo, int argc, object *args) ;/*closure _,object k_732149, object l_73802_731141*/
static void __lambda_496(void *data, object clo, int argc, object *args) ;/*object self_732993, object lst_73804_731142*/
static void __lambda_497(void *data, object clo, int argc, object *args) ;/*object self_732994, object loop_73805_731143*/
static void __lambda_528(void *data, object clo, int argc, object *args) ;/*object self_732995, object loop_73805_731143*/
static void __lambda_500(void *data, object clo, int argc, object *args) ;/*object self_732996, object k_732152, object lst_73806_731144*/
static void __lambda_501(void *data, object clo, int argc, object *args) ;/*object self_732997, object r_732156*/
static void __lambda_498(void *data, object clo, int argc, object *args) ;/*object self_732998, object r_732151*/
static void __lambda_499(void *data, object clo, int argc, object *args) ;/*object self_732999, object r_732150*/
static void __lambda_494(void *data, object clo, int argc, object *args) ;/*closure _,object k_732120, object args_73784_731139, object type_73785_731140*/
static void __lambda_458(void *data, object clo, int argc, object *args) ;/*closure _,object k_732052, object result_73694_731114, object exp_73695_731115, object env_73696_731116, object rename_91env_73697_731117, object local_91env_73698_731118, object local_91renamed_73699_731119*/
static void __lambda_459(void *data, object clo, int argc, object *args) ;/*object self_732958, object tmp_73705_73707_731121*/
static void __lambda_466(void *data, object clo, int argc, object *args) ;/*object self_732959, object r_732055*/
static void __lambda_468(void *data, object clo, int argc, object *args) ;/*object self_732961, object r_732064*/
static void __lambda_471(void *data, object clo, int argc, object *args) ;/*object self_732964, object tmp_73734_73736_731126*/
static void __lambda_477(void *data, object clo, int argc, object *args) ;/*object self_732965, object r_732068*/
static void __lambda_480(void *data, object clo, int argc, object *args) ;/*object self_732968, object r_732072*/
static void __lambda_493(void *data, object clo, int argc, object *args) ;/*object self_732979, object k_732103, object expr_73782_731138*/
static void __lambda_491(void *data, object clo, int argc, object *args) ;/*object self_732980, object r_732102*/
static void __lambda_492(void *data, object clo, int argc, object *args) ;/*object self_732981, object r_732101*/
static void __lambda_482(void *data, object clo, int argc, object *args) ;/*object self_732970, object local_73780_731137*/
static void __lambda_484(void *data, object clo, int argc, object *args) ;/*object self_732971, object val_73769_731133*/
static void __lambda_485(void *data, object clo, int argc, object *args) ;/*object self_732972, object r_732079*/
static void __lambda_490(void *data, object clo, int argc, object *args) ;/*object self_732975, object k_732093, object expr_73779_731136*/
static void __lambda_488(void *data, object clo, int argc, object *args) ;/*object self_732976, object r_732092*/
static void __lambda_489(void *data, object clo, int argc, object *args) ;/*object self_732977, object r_732091*/
static void __lambda_487(void *data, object clo, int argc, object *args) ;/*object self_732974, object expanded_73777_731135*/
static void __lambda_486(void *data, object clo, int argc, object *args) ;/*object self_732973, object expanded_73773_731134*/
static void __lambda_483(void *data, object clo, int argc, object *args) ;/*object self_732978, object k_732096*/
static void __lambda_481(void *data, object clo, int argc, object *args) ;/*object self_732969, object r_732074*/
static void __lambda_478(void *data, object clo, int argc, object *args) ;/*object self_732966, object r_732071*/
static void __lambda_479(void *data, object clo, int argc, object *args) ;/*object self_732967, object r_732069*/
static void __lambda_472(void *data, object clo, int argc, object *args) ;/*object self_732982, object k_732106*/
static void __lambda_473(void *data, object clo, int argc, object *args) ;/*object self_732983, object tmp_73738_73740_731127*/
static void __lambda_474(void *data, object clo, int argc, object *args) ;/*object self_732984, object tmp_73742_73744_731128*/
static void __lambda_475(void *data, object clo, int argc, object *args) ;/*object self_732985, object tmp_73746_73748_731129*/
static void __lambda_476(void *data, object clo, int argc, object *args) ;/*object self_732986, object tmp_73750_73752_731130*/
static void __lambda_469(void *data, object clo, int argc, object *args) ;/*object self_732962, object r_732067*/
static void __lambda_470(void *data, object clo, int argc, object *args) ;/*object self_732963, object r_732065*/
static void __lambda_467(void *data, object clo, int argc, object *args) ;/*object self_732960, object renamed_73722_731124*/
static void __lambda_460(void *data, object clo, int argc, object *args) ;/*object self_732987, object k_732112*/
static void __lambda_464(void *data, object clo, int argc, object *args) ;/*object self_732988, object tmp_73709_73711_731122*/
static void __lambda_465(void *data, object clo, int argc, object *args) ;/*object self_732989, object tmp_73713_73715_731123*/
static void __lambda_461(void *data, object clo, int argc, object *args) ;/*object self_732990, object k_732115*/
static void __lambda_462(void *data, object clo, int argc, object *args) ;/*object self_732991, object r_732116*/
static void __lambda_463(void *data, object clo, int argc, object *args) ;/*object self_732992, object r_732117*/
static void __lambda_457(void *data, object clo, int argc, object *args) ;/*closure _,object k_732047, object result_73690_731110, object exp_73691_731111, object env_73692_731112, object rename_91env_73693_731113*/
static void __lambda_456(void *data, object clo, int argc, object *args) ;/*closure _,object k_732043, object exp_73687_731107, object env_73688_731108, object rename_91env_73689_731109*/
static void __lambda_455(void *data, object clo, int argc, object *args) ;/*closure _,object k_732035, object exp_73686_731106*/
static void __lambda_361(void *data, object clo, int argc, object *args) ;/*closure _,object k_731869, object exp_73507_731066, object env_73508_731067, object rename_91env_73509_731068, object local_91env_73510_731069, object local_91renamed_73511_731070*/
static void __lambda_362(void *data, object clo, int argc, object *args) ;/*object self_732865, object r_731870*/
static void __lambda_366(void *data, object clo, int argc, object *args) ;/*object self_732866, object r_731873*/
static void __lambda_367(void *data, object clo, int argc, object *args) ;/*object self_732867, object r_731874*/
static void __lambda_369(void *data, object clo, int argc, object *args) ;/*object self_732869, object r_731876*/
static void __lambda_370(void *data, object clo, int argc, object *args) ;/*object self_732870, object r_731877*/
static void __lambda_383(void *data, object clo, int argc, object *args) ;/*object self_732883, object r_731897*/
static void __lambda_391(void *data, object clo, int argc, object *args) ;/*object self_732891, object r_731906*/
static void __lambda_395(void *data, object clo, int argc, object *args) ;/*object self_732895, object r_731915*/
static void __lambda_403(void *data, object clo, int argc, object *args) ;/*object self_732903, object r_731929*/
static void __lambda_404(void *data, object clo, int argc, object *args) ;/*object self_732904, object r_731930*/
static void __lambda_419(void *data, object clo, int argc, object *args) ;/*object self_732919, object r_731965*/
static void __lambda_430(void *data, object clo, int argc, object *args) ;/*object self_732930, object r_731985*/
static void __lambda_441(void *data, object clo, int argc, object *args) ;/*object self_732941, object r_732007*/
static void __lambda_442(void *data, object clo, int argc, object *args) ;/*object self_732942, object r_732026*/
static void __lambda_454(void *data, object clo, int argc, object *args) ;/*object self_732953, object k_732025, object expr_73684_731105*/
static void __lambda_453(void *data, object clo, int argc, object *args) ;/*object self_732954, object r_732024*/
static void __lambda_443(void *data, object clo, int argc, object *args) ;/*object self_732943, object r_732023*/
static void __lambda_444(void *data, object clo, int argc, object *args) ;/*object self_732944, object local_73681_731103*/
static void __lambda_447(void *data, object clo, int argc, object *args) ;/*object self_732945, object val_73672_731101*/
static void __lambda_448(void *data, object clo, int argc, object *args) ;/*object self_732946, object r_732010*/
static void __lambda_452(void *data, object clo, int argc, object *args) ;/*object self_732949, object k_732017, object expr_73680_731102*/
static void __lambda_451(void *data, object clo, int argc, object *args) ;/*object self_732950, object r_732016*/
static void __lambda_450(void *data, object clo, int argc, object *args) ;/*object self_732948, object r_732013*/
static void __lambda_449(void *data, object clo, int argc, object *args) ;/*object self_732947, object r_732011*/
static void __lambda_445(void *data, object clo, int argc, object *args) ;/*object self_732951, object k_732020*/
static void __lambda_446(void *data, object clo, int argc, object *args) ;/*object self_732952, object v_73682_731104*/
static void __lambda_431(void *data, object clo, int argc, object *args) ;/*object self_732931, object body_91env_73647_731094*/
static void __lambda_434(void *data, object clo, int argc, object *args) ;/*object self_732932, object k_731991, object b_73652_731096*/
static void __lambda_435(void *data, object clo, int argc, object *args) ;/*object self_732933, object binding_91body_73661_731099*/
static void __lambda_440(void *data, object clo, int argc, object *args) ;/*object self_732934, object r_731997*/
static void __lambda_436(void *data, object clo, int argc, object *args) ;/*object self_732935, object k_731998*/
static void __lambda_437(void *data, object clo, int argc, object *args) ;/*object self_732936, object r_732001*/
static void __lambda_438(void *data, object clo, int argc, object *args) ;/*object self_732937, object r_731999*/
static void __lambda_439(void *data, object clo, int argc, object *args) ;/*object self_732938, object r_732000*/
static void __lambda_432(void *data, object clo, int argc, object *args) ;/*object self_732939, object r_731990*/
static void __lambda_433(void *data, object clo, int argc, object *args) ;/*object self_732940, object r_731989*/
static void __lambda_423(void *data, object clo, int argc, object *args) ;/*object self_732920, object k_731971, object b_73628_731089*/
static void __lambda_424(void *data, object clo, int argc, object *args) ;/*object self_732921, object binding_91body_73637_731092*/
static void __lambda_429(void *data, object clo, int argc, object *args) ;/*object self_732922, object r_731977*/
static void __lambda_425(void *data, object clo, int argc, object *args) ;/*object self_732923, object k_731978*/
static void __lambda_426(void *data, object clo, int argc, object *args) ;/*object self_732924, object r_731981*/
static void __lambda_427(void *data, object clo, int argc, object *args) ;/*object self_732925, object r_731979*/
static void __lambda_428(void *data, object clo, int argc, object *args) ;/*object self_732926, object r_731980*/
static void __lambda_420(void *data, object clo, int argc, object *args) ;/*object self_732927, object r_731970*/
static void __lambda_421(void *data, object clo, int argc, object *args) ;/*object self_732928, object bindings_91as_91macros_73623_731087*/
static void __lambda_422(void *data, object clo, int argc, object *args) ;/*object self_732929, object new_91local_91macro_91env_73626_731088*/
static void __lambda_405(void *data, object clo, int argc, object *args) ;/*object self_732905, object body_73589_731081*/
static void __lambda_406(void *data, object clo, int argc, object *args) ;/*object self_732906, object r_731963*/
static void __lambda_407(void *data, object clo, int argc, object *args) ;/*object self_732907, object r_731934*/
static void __lambda_409(void *data, object clo, int argc, object *args) ;/*object self_732909, object macro_73598_731082*/
static void __lambda_411(void *data, object clo, int argc, object *args) ;/*object self_732910, object tmp_73600_73602_731083*/
static void __lambda_417(void *data, object clo, int argc, object *args) ;/*object self_732911, object r_731942*/
static void __lambda_418(void *data, object clo, int argc, object *args) ;/*object self_732912, object r_731946*/
static void __lambda_412(void *data, object clo, int argc, object *args) ;/*object self_732913, object k_731949*/
static void __lambda_413(void *data, object clo, int argc, object *args) ;/*object self_732914, object r_731955*/
static void __lambda_414(void *data, object clo, int argc, object *args) ;/*object self_732915, object r_731954*/
static void __lambda_415(void *data, object clo, int argc, object *args) ;/*object self_732916, object r_731950*/
static void __lambda_416(void *data, object clo, int argc, object *args) ;/*object self_732917, object r_731951*/
static void __lambda_410(void *data, object clo, int argc, object *args) ;/*object self_732918, object k_731956*/
static void __lambda_408(void *data, object clo, int argc, object *args) ;/*object self_732908, object r_731939*/
static void __lambda_396(void *data, object clo, int argc, object *args) ;/*object self_732896, object r_731928*/
static void __lambda_397(void *data, object clo, int argc, object *args) ;/*object self_732897, object r_731918*/
static void __lambda_398(void *data, object clo, int argc, object *args) ;/*object self_732898, object r_731927*/
static void __lambda_399(void *data, object clo, int argc, object *args) ;/*object self_732899, object r_731920*/
static void __lambda_402(void *data, object clo, int argc, object *args) ;/*object self_732900, object r_731922*/
static void __lambda_400(void *data, object clo, int argc, object *args) ;/*object self_732901, object k_731924*/
static void __lambda_401(void *data, object clo, int argc, object *args) ;/*object self_732902, object r_731925*/
static void __lambda_392(void *data, object clo, int argc, object *args) ;/*object self_732892, object r_731909*/
static void __lambda_393(void *data, object clo, int argc, object *args) ;/*object self_732893, object r_731913*/
static void __lambda_394(void *data, object clo, int argc, object *args) ;/*object self_732894, object r_731911*/
static void __lambda_384(void *data, object clo, int argc, object *args) ;/*object self_732884, object r_731898*/
static void __lambda_386(void *data, object clo, int argc, object *args) ;/*object self_732886, object r_731905*/
static void __lambda_387(void *data, object clo, int argc, object *args) ;/*object self_732887, object r_731902*/
static void __lambda_388(void *data, object clo, int argc, object *args) ;/*object self_732888, object r_731904*/
static void __lambda_389(void *data, object clo, int argc, object *args) ;/*object self_732889, object r_731903*/
static void __lambda_390(void *data, object clo, int argc, object *args) ;/*object self_732890, object r_731901*/
static void __lambda_385(void *data, object clo, int argc, object *args) ;/*object self_732885, object r_731899*/
static void __lambda_371(void *data, object clo, int argc, object *args) ;/*object self_732871, object use_91env_73538_731072*/
static void __lambda_372(void *data, object clo, int argc, object *args) ;/*object self_732872, object args_73541_731073*/
static void __lambda_373(void *data, object clo, int argc, object *args) ;/*object self_732873, object ltype_73544_731074*/
static void __lambda_381(void *data, object clo, int argc, object *args) ;/*object self_732874, object k_731891, object a_73555_731077*/
static void __lambda_382(void *data, object clo, int argc, object *args) ;/*object self_732875, object r_731893*/
static void __lambda_374(void *data, object clo, int argc, object *args) ;/*object self_732876, object r_731890*/
static void __lambda_375(void *data, object clo, int argc, object *args) ;/*object self_732877, object a_91lookup_73547_731075*/
static void __lambda_376(void *data, object clo, int argc, object *args) ;/*object self_732878, object r_731889*/
static void __lambda_377(void *data, object clo, int argc, object *args) ;/*object self_732879, object new_91formals_73550_731076*/
static void __lambda_378(void *data, object clo, int argc, object *args) ;/*object self_732880, object r_731888*/
static void __lambda_379(void *data, object clo, int argc, object *args) ;/*object self_732881, object r_731885*/
static void __lambda_380(void *data, object clo, int argc, object *args) ;/*object self_732882, object r_731884*/
static void __lambda_368(void *data, object clo, int argc, object *args) ;/*object self_732868, object renamed_73529_731071*/
static void __lambda_363(void *data, object clo, int argc, object *args) ;/*object self_732955, object k_732027*/
static void __lambda_364(void *data, object clo, int argc, object *args) ;/*object self_732956, object r_732028*/
static void __lambda_365(void *data, object clo, int argc, object *args) ;/*object self_732957, object r_732029*/
static void __lambda_357(void *data, object clo, int argc, object *args) ;/*closure _,object k_731853, object exp_73503_731062, object opts_73504_731063_raw, ...*/
static void __lambda_359(void *data, object clo, int argc, object *args) ;/*object self_732862, object r_731855*/
static void __lambda_360(void *data, object clo, int argc, object *args) ;/*object self_732863, object env_73505_731064, object rename_91env_73506_731065*/
static void __lambda_358(void *data, object clo, int argc, object *args) ;/*object self_732864, object k_731858*/
static void __lambda_306(void *data, object clo, int argc, object *args) ;/*closure _,object k_731771, object expr_73443_731050, object rename_91env_73444_731051*/
static void __lambda_307(void *data, object clo, int argc, object *args) ;/*object self_732810, object clean_731053*/
static void __lambda_527(void *data, object clo, int argc, object *args) ;/*object self_732811, object clean_731053*/
static void __lambda_310(void *data, object clo, int argc, object *args) ;/*object self_732812, object k_731776, object expr_73445_731055, object bv_73446_731056*/
static void __lambda_526(void *data, object clo, int argc, object *args) ;/*object self_732813, object bv_73446_731056*/
static void __lambda_313(void *data, object clo, int argc, object *args) ;/*object self_732816, object r_731782*/
static void __lambda_314(void *data, object clo, int argc, object *args) ;/*object self_732817, object r_731784*/
static void __lambda_318(void *data, object clo, int argc, object *args) ;/*object self_732821, object r_731791*/
static void __lambda_319(void *data, object clo, int argc, object *args) ;/*object self_732822, object r_731792*/
static void __lambda_324(void *data, object clo, int argc, object *args) ;/*object self_732827, object r_731797*/
static void __lambda_332(void *data, object clo, int argc, object *args) ;/*object self_732835, object r_731811*/
static void __lambda_339(void *data, object clo, int argc, object *args) ;/*object self_732842, object r_731821*/
static void __lambda_350(void *data, object clo, int argc, object *args) ;/*object self_732853, object r_731836*/
static void __lambda_354(void *data, object clo, int argc, object *args) ;/*object self_732857, object r_731845*/
static void __lambda_356(void *data, object clo, int argc, object *args) ;/*object self_732858, object k_731847, object e_73501_731061*/
static void __lambda_355(void *data, object clo, int argc, object *args) ;/*object self_732859, object r_731846*/
static void __lambda_351(void *data, object clo, int argc, object *args) ;/*object self_732854, object r_731839*/
static void __lambda_352(void *data, object clo, int argc, object *args) ;/*object self_732855, object r_731843*/
static void __lambda_353(void *data, object clo, int argc, object *args) ;/*object self_732856, object r_731841*/
static void __lambda_345(void *data, object clo, int argc, object *args) ;/*object self_732843, object r_731822*/
static void __lambda_346(void *data, object clo, int argc, object *args) ;/*object self_732844, object r_731825*/
static void __lambda_349(void *data, object clo, int argc, object *args) ;/*object self_732845, object k_731829, object e_73491_731060*/
static void __lambda_347(void *data, object clo, int argc, object *args) ;/*object self_732846, object r_731827*/
static void __lambda_348(void *data, object clo, int argc, object *args) ;/*object self_732847, object r_731826*/
static void __lambda_340(void *data, object clo, int argc, object *args) ;/*object self_732848, object k_731830*/
static void __lambda_341(void *data, object clo, int argc, object *args) ;/*object self_732849, object r_731831*/
static void __lambda_343(void *data, object clo, int argc, object *args) ;/*object self_732851, object r_731834*/
static void __lambda_344(void *data, object clo, int argc, object *args) ;/*object self_732852, object r_731835*/
static void __lambda_342(void *data, object clo, int argc, object *args) ;/*object self_732850, object r_731832*/
static void __lambda_333(void *data, object clo, int argc, object *args) ;/*object self_732836, object r_731814*/
static void __lambda_336(void *data, object clo, int argc, object *args) ;/*object self_732837, object k_731818, object e_73484_731059*/
static void __lambda_337(void *data, object clo, int argc, object *args) ;/*object self_732838, object r_731820*/
static void __lambda_338(void *data, object clo, int argc, object *args) ;/*object self_732839, object r_731819*/
static void __lambda_334(void *data, object clo, int argc, object *args) ;/*object self_732840, object r_731816*/
static void __lambda_335(void *data, object clo, int argc, object *args) ;/*object self_732841, object r_731815*/
static void __lambda_325(void *data, object clo, int argc, object *args) ;/*object self_732828, object r_731810*/
static void __lambda_326(void *data, object clo, int argc, object *args) ;/*object self_732829, object r_731800*/
static void __lambda_327(void *data, object clo, int argc, object *args) ;/*object self_732830, object r_731809*/
static void __lambda_328(void *data, object clo, int argc, object *args) ;/*object self_732831, object r_731802*/
static void __lambda_331(void *data, object clo, int argc, object *args) ;/*object self_732832, object r_731804*/
static void __lambda_329(void *data, object clo, int argc, object *args) ;/*object self_732833, object k_731806*/
static void __lambda_330(void *data, object clo, int argc, object *args) ;/*object self_732834, object r_731807*/
static void __lambda_320(void *data, object clo, int argc, object *args) ;/*object self_732823, object val_73470_731058*/
static void __lambda_323(void *data, object clo, int argc, object *args) ;/*object self_732824, object r_731794*/
static void __lambda_321(void *data, object clo, int argc, object *args) ;/*object self_732825, object k_731795*/
static void __lambda_322(void *data, object clo, int argc, object *args) ;/*object self_732826, object r_731796*/
static void __lambda_315(void *data, object clo, int argc, object *args) ;/*object self_732818, object atom_73460_731057*/
static void __lambda_316(void *data, object clo, int argc, object *args) ;/*object self_732819, object r_731786*/
static void __lambda_317(void *data, object clo, int argc, object *args) ;/*object self_732820, object r_731789*/
static void __lambda_311(void *data, object clo, int argc, object *args) ;/*object self_732814, object r_731778*/
static void __lambda_312(void *data, object clo, int argc, object *args) ;/*object self_732815, object r_731779*/
static void __lambda_308(void *data, object clo, int argc, object *args) ;/*object self_732860, object r_731775*/
static void __lambda_309(void *data, object clo, int argc, object *args) ;/*object self_732861, object r_731772*/
static void __lambda_301(void *data, object clo, int argc, object *args) ;/*closure _,object k_731763, object env_73438_731045, object renamed_91env_73439_731046*/
static void __lambda_305(void *data, object clo, int argc, object *args) ;/*object self_732806, object k_731768, object var_73441_731048, object val_73442_731049*/
static void __lambda_302(void *data, object clo, int argc, object *args) ;/*object self_732807, object r_731765*/
static void __lambda_303(void *data, object clo, int argc, object *args) ;/*object self_732808, object r_731766*/
static void __lambda_304(void *data, object clo, int argc, object *args) ;/*object self_732809, object r_731767*/
static void __lambda_280(void *data, object clo, int argc, object *args) ;/*closure _,object k_731724, object exp_73406_731032, object macro_73407_731033, object mac_91env_73408_731034, object rename_91env_73409_731035, object local_91renamed_91lis_73410_731036*/
static void __lambda_281(void *data, object clo, int argc, object *args) ;/*object self_732785, object use_91env_73413_731037*/
static void __lambda_282(void *data, object clo, int argc, object *args) ;/*object self_732786, object local_91renamed_73419_731039*/
static void __lambda_283(void *data, object clo, int argc, object *args) ;/*object self_732787, object result_73422_731040*/
static void __lambda_525(void *data, object clo, int argc, object *args) ;/*object self_732788, object result_73422_731040*/
static void __lambda_288(void *data, object clo, int argc, object *args) ;/*object self_732789, object k_731732, object k_73424_731041*/
static void __lambda_297(void *data, object clo, int argc, object *args) ;/*object self_732790, object k_731747, object obj_73425_731042*/
static void __lambda_298(void *data, object clo, int argc, object *args) ;/*object self_732791, object err_73426_731043*/
static void __lambda_299(void *data, object clo, int argc, object *args) ;/*object self_732792, object r_731749*/
static void __lambda_300(void *data, object clo, int argc, object *args) ;/*object self_732793, object r_731748*/
static void __lambda_289(void *data, object clo, int argc, object *args) ;/*object self_732794, object r_731733*/
static void __lambda_291(void *data, object clo, int argc, object *args) ;/*object self_732795, object k_731735*/
static void __lambda_294(void *data, object clo, int argc, object *args) ;/*object self_732798, object r_731743*/
static void __lambda_295(void *data, object clo, int argc, object *args) ;/*object self_732799, object r_731744*/
static void __lambda_296(void *data, object clo, int argc, object *args) ;/*object self_732800, object r_731740*/
static void __lambda_292(void *data, object clo, int argc, object *args) ;/*object self_732796, object r_731737*/
static void __lambda_293(void *data, object clo, int argc, object *args) ;/*object self_732797, object r_731738*/
static void __lambda_290(void *data, object clo, int argc, object *args) ;/*object self_732801, object r_731734*/
static void __lambda_284(void *data, object clo, int argc, object *args) ;/*object self_732802, object r_731731*/
static void __lambda_285(void *data, object clo, int argc, object *args) ;/*object self_732803, object r_731730*/
static void __lambda_286(void *data, object clo, int argc, object *args) ;/*object self_732804, object r_731728*/
static void __lambda_287(void *data, object clo, int argc, object *args) ;/*object self_732805, object r_731729*/
static void __lambda_279(void *data, object clo, int argc, object *args) ;/*closure _,object k_731715, object macro_73403_731030, object current_91rename_91lis_73404_731031*/
static object __lambda_548(void *data, object ptr,object exp_73401_731028, object defined_91macros_73402_731029) ;
static void __lambda_278(void *data, object clo, int argc, object *args) ;/*closure _,object k_731711, object exp_73401_731028, object defined_91macros_73402_731029*/
static void __lambda_277(void *data, object clo, int argc, object *args) ;/*closure _,object k_731708*/
static void __lambda_276(void *data, object clo, int argc, object *args) ;/*closure _,object k_731705*/
static void __lambda_270(void *data, object clo, int argc, object *args) ;/*closure _,object k_731695, object defined_91macros_73398_731025, object base_91env_73399_731026*/
static void __lambda_271(void *data, object clo, int argc, object *args) ;/*object self_732780, object r_731697*/
static void __lambda_275(void *data, object clo, int argc, object *args) ;/*object self_732781, object k_731700, object v_73400_731027*/
static void __lambda_272(void *data, object clo, int argc, object *args) ;/*object self_732782, object r_731699*/
static void __lambda_273(void *data, object clo, int argc, object *args) ;/*object self_732783, object r_731698*/
static void __lambda_274(void *data, object clo, int argc, object *args) ;/*object self_732784, object r_731696*/
static void __lambda_267(void *data, object clo, int argc, object *args) ;/*closure _,object k_731689, object name_73396_731023, object body_73397_731024*/
static void __lambda_268(void *data, object clo, int argc, object *args) ;/*object self_732778, object r_731691*/
static void __lambda_269(void *data, object clo, int argc, object *args) ;/*object self_732779, object r_731690*/
static void __lambda_547(void *data, object clo, int argc, object *args) ;/*(void *data, int argc, closure _, object k, object name)*/
static void __lambda_546(void *data, object clo, int argc, object *args) ;/*(void *data, int argc, closure _, object k, object fn, object entry_fnc)*/
static void __lambda_266(void *data, object clo, int argc, object *args) ;/*closure _,object k_731682, object filename_73395_731022*/
static void __lambda_263(void *data, object clo, int argc, object *args) ;/*closure _,object k_731677, object lis_73394_731021*/
static void __lambda_264(void *data, object clo, int argc, object *args) ;/*object self_732776, object r_731679*/
static void __lambda_265(void *data, object clo, int argc, object *args) ;/*object self_732777, object r_731678*/
static void __lambda_239(void *data, object clo, int argc, object *args) ;/*closure _,object k_731646, object import_91sets_73377_731012_raw, ...*/
static void __lambda_240(void *data, object clo, int argc, object *args) ;/*object self_732753, object r_731674*/
static void __lambda_241(void *data, object clo, int argc, object *args) ;/*object self_732754, object r_731647*/
static void __lambda_242(void *data, object clo, int argc, object *args) ;/*object self_732755, object r_731673*/
static void __lambda_243(void *data, object clo, int argc, object *args) ;/*object self_732756, object r_731648*/
static void __lambda_244(void *data, object clo, int argc, object *args) ;/*object self_732757, object r_731672*/
static void __lambda_245(void *data, object clo, int argc, object *args) ;/*object self_732758, object r_731671*/
static void __lambda_246(void *data, object clo, int argc, object *args) ;/*object self_732759, object r_731649*/
static void __lambda_247(void *data, object clo, int argc, object *args) ;/*object self_732760, object explicit_91lib_91names_73378_731013, object lib_91names_73379_731014, object renamed_91syms_73380_731015*/
static void __lambda_257(void *data, object clo, int argc, object *args) ;/*object self_732761, object k_731662, object lib_91name_73381_731016*/
static void __lambda_258(void *data, object clo, int argc, object *args) ;/*object self_732762, object us_73384_731017*/
static void __lambda_259(void *data, object clo, int argc, object *args) ;/*object self_732763, object loaded_127_73387_731018*/
static void __lambda_260(void *data, object clo, int argc, object *args) ;/*object self_732764, object r_731666*/
static void __lambda_261(void *data, object clo, int argc, object *args) ;/*object self_732765, object r_731668*/
static void __lambda_262(void *data, object clo, int argc, object *args) ;/*object self_732766, object r_731667*/
static void __lambda_248(void *data, object clo, int argc, object *args) ;/*object self_732767, object r_731661*/
static void __lambda_249(void *data, object clo, int argc, object *args) ;/*object self_732768, object r_731650*/
static void __lambda_250(void *data, object clo, int argc, object *args) ;/*object self_732769, object r_731659*/
static void __lambda_251(void *data, object clo, int argc, object *args) ;/*object self_732770, object r_731660*/
static void __lambda_252(void *data, object clo, int argc, object *args) ;/*object self_732771, object r_731651*/
static void __lambda_255(void *data, object clo, int argc, object *args) ;/*object self_732772, object k_731654, object rename_95base_73393_731020*/
static void __lambda_256(void *data, object clo, int argc, object *args) ;/*object self_732773, object r_731656*/
static void __lambda_253(void *data, object clo, int argc, object *args) ;/*object self_732774, object r_731653*/
static void __lambda_254(void *data, object clo, int argc, object *args) ;/*object self_732775, object r_731652*/
static void __lambda_229(void *data, object clo, int argc, object *args) ;/*closure _,object k_731627*/
static void __lambda_230(void *data, object clo, int argc, object *args) ;/*object self_732744, object r_731628*/
static void __lambda_238(void *data, object clo, int argc, object *args) ;/*object self_732745, object k_731638, object v_73376_731011*/
static void __lambda_231(void *data, object clo, int argc, object *args) ;/*object self_732746, object r_731636*/
static void __lambda_232(void *data, object clo, int argc, object *args) ;/*object self_732747, object r_731629*/
static void __lambda_233(void *data, object clo, int argc, object *args) ;/*object self_732748, object rename_91env_73373_731008, object macros_73374_731009*/
static void __lambda_234(void *data, object clo, int argc, object *args) ;/*object self_732749, object r_731633*/
static void __lambda_235(void *data, object clo, int argc, object *args) ;/*object self_732750, object r_731630*/
static void __lambda_236(void *data, object clo, int argc, object *args) ;/*object self_732751, object k_731631, object ex_73375_731010*/
static void __lambda_237(void *data, object clo, int argc, object *args) ;/*object self_732752, object r_731632*/
static void __lambda_227(void *data, object clo, int argc, object *args) ;/*closure _,object k_731623, object append_91dirs_73371_731006, object prepend_91dirs_73372_731007*/
static void __lambda_228(void *data, object clo, int argc, object *args) ;/*object self_732743, object r_731624*/
static void __lambda_214(void *data, object clo, int argc, object *args) ;/*closure _,object k_731602, object proc_73354_731003, object args_73355_731004*/
static void __lambda_215(void *data, object clo, int argc, object *args) ;/*object self_732731, object r_731603_732553*/
static void __lambda_216(void *data, object clo, int argc, object *args) ;/*object self_732732, object r_731604_732530_732554*/
static void __lambda_226(void *data, object clo, int argc, object *args) ;/*object self_732740, object k_731615_732540_732564, object a_73365_731005_732541_732565*/
static void __lambda_224(void *data, object clo, int argc, object *args) ;/*object self_732741, object r_731614_732538_732562*/
static void __lambda_225(void *data, object clo, int argc, object *args) ;/*object self_732742, object r_731613_732539_732563*/
static void __lambda_217(void *data, object clo, int argc, object *args) ;/*object self_732733, object r_731605_732531_732555*/
static void __lambda_218(void *data, object clo, int argc, object *args) ;/*object self_732734, object r_731611_732532_732543_732556*/
static void __lambda_219(void *data, object clo, int argc, object *args) ;/*object self_732735, object r_731607_732533_732544_732557*/
static void __lambda_220(void *data, object clo, int argc, object *args) ;/*object self_732736, object r_731610_732534_732545_732549_732558*/
static void __lambda_221(void *data, object clo, int argc, object *args) ;/*object self_732737, object r_731608_732535_732546_732550_732559*/
static void __lambda_222(void *data, object clo, int argc, object *args) ;/*object self_732738, object r_731609_732536_732547_732551_732560*/
static void __lambda_223(void *data, object clo, int argc, object *args) ;/*object self_732739, object r_731606_732537_732548_732552_732561*/
static void __lambda_203(void *data, object clo, int argc, object *args) ;/*closure _,object k_731588, object exp_73345_73994, object a_91env_73346_73995, object rename_91env_73347_73996, object local_91renamed_73348_73997*/
static void __lambda_204(void *data, object clo, int argc, object *args) ;/*object self_732721, object r_731589_732516*/
static void __lambda_213(void *data, object clo, int argc, object *args) ;/*object self_732722, object k_731598_732528, object o_73353_731002_732529*/
static void __lambda_205(void *data, object clo, int argc, object *args) ;/*object self_732723, object r_731596_732517*/
static void __lambda_206(void *data, object clo, int argc, object *args) ;/*object self_732724, object r_731590_732518*/
static void __lambda_207(void *data, object clo, int argc, object *args) ;/*object self_732725, object fproc_73349_73998_732519, object aprocs_73350_73999_732520*/
static void __lambda_208(void *data, object clo, int argc, object *args) ;/*object self_732726, object k_731591_732521, object env_73351_731000_732522*/
static void __lambda_209(void *data, object clo, int argc, object *args) ;/*object self_732727, object r_731592_732523*/
static void __lambda_212(void *data, object clo, int argc, object *args) ;/*object self_732728, object k_731595_732526, object aproc_73352_731001_732527*/
static void __lambda_210(void *data, object clo, int argc, object *args) ;/*object self_732729, object r_731594_732524*/
static void __lambda_211(void *data, object clo, int argc, object *args) ;/*object self_732730, object r_731593_732525*/
static void __lambda_185(void *data, object clo, int argc, object *args) ;/*closure _,object k_731555, object exp_73297_73976, object a_91env_73298_73977, object rename_91env_73299_73978, object local_91renamed_73300_73979*/
static void __lambda_186(void *data, object clo, int argc, object *args) ;/*object self_732704, object op_73303_73980_732487*/
static void __lambda_190(void *data, object clo, int argc, object *args) ;/*object self_732705, object var_73306_73981_732491*/
static void __lambda_198(void *data, object clo, int argc, object *args) ;/*object self_732706, object k_731574_732506, object macro_91op_73330_73989_732507*/
static void __lambda_201(void *data, object clo, int argc, object *args) ;/*object self_732709, object expanded_73340_73992_732510*/
static void __lambda_202(void *data, object clo, int argc, object *args) ;/*object self_732710, object cleaned_73343_73993_732511*/
static void __lambda_199(void *data, object clo, int argc, object *args) ;/*object self_732707, object expanded_73333_73990_732508*/
static void __lambda_200(void *data, object clo, int argc, object *args) ;/*object self_732708, object cleaned_73336_73991_732509*/
static void __lambda_191(void *data, object clo, int argc, object *args) ;/*object self_732711, object expand_73309_73982_732492*/
static void __lambda_197(void *data, object clo, int argc, object *args) ;/*object self_732712, object k_731566_732502, object expr_73318_73987_732503*/
static void __lambda_192(void *data, object clo, int argc, object *args) ;/*object self_732713, object r_731564_732494*/
static void __lambda_193(void *data, object clo, int argc, object *args) ;/*object self_732714, object fncs_73314_73983_732495*/
static void __lambda_194(void *data, object clo, int argc, object *args) ;/*object self_732715, object k_731561_732496, object env_73315_73984_732497*/
static void __lambda_196(void *data, object clo, int argc, object *args) ;/*object self_732716, object k_731563_732499, object fnc_73316_73985_732500, object _191_73317_73986_732501*/
static void __lambda_195(void *data, object clo, int argc, object *args) ;/*object self_732717, object r_731562_732498*/
static void __lambda_187(void *data, object clo, int argc, object *args) ;/*object self_732718, object k_731582_732488*/
static void __lambda_189(void *data, object clo, int argc, object *args) ;/*object self_732719, object k_731585_732490*/
static void __lambda_188(void *data, object clo, int argc, object *args) ;/*object self_732720, object r_731584_732489*/
static void __lambda_169(void *data, object clo, int argc, object *args) ;/*closure _,object k_731532, object exps_73286_73959, object a_91env_73287_73960, object rename_91env_73288_73961, object local_91renamed_73289_73962*/
static void __lambda_170(void *data, object clo, int argc, object *args) ;/*object self_732687, object loop_73965, object sequentially_73966*/
static void __lambda_524(void *data, object clo, int argc, object *args) ;/*object self_732688, object loop_73965*/
static void __lambda_523(void *data, object clo, int argc, object *args) ;/*object self_732689, object sequentially_73966*/
static void __lambda_182(void *data, object clo, int argc, object *args) ;/*object self_732690, object k_731550, object proc1_73290_73969, object proc2_73291_73970*/
static void __lambda_183(void *data, object clo, int argc, object *args) ;/*object self_732691, object k_731551, object env_73292_73971*/
static void __lambda_184(void *data, object clo, int argc, object *args) ;/*object self_732692, object r_731552*/
static void __lambda_171(void *data, object clo, int argc, object *args) ;/*object self_732693, object r_731549*/
static void __lambda_172(void *data, object clo, int argc, object *args) ;/*object self_732694, object r_731533*/
static void __lambda_180(void *data, object clo, int argc, object *args) ;/*object self_732695, object k_731544, object first_91proc_73293_73972, object rest_91procs_73294_73973*/
static void __lambda_181(void *data, object clo, int argc, object *args) ;/*object self_732696, object r_731546*/
static void __lambda_173(void *data, object clo, int argc, object *args) ;/*object self_732697, object r_731543*/
static void __lambda_174(void *data, object clo, int argc, object *args) ;/*object self_732698, object r_731534*/
static void __lambda_179(void *data, object clo, int argc, object *args) ;/*object self_732699, object k_731542, object e_73296_73975*/
static void __lambda_175(void *data, object clo, int argc, object *args) ;/*object self_732700, object r_731541*/
static void __lambda_176(void *data, object clo, int argc, object *args) ;/*object self_732701, object procs_73295_73974*/
static void __lambda_178(void *data, object clo, int argc, object *args) ;/*object self_732702, object r_731536*/
static void __lambda_177(void *data, object clo, int argc, object *args) ;/*object self_732703, object k_731539*/
static void __lambda_159(void *data, object clo, int argc, object *args) ;/*closure _,object k_731518, object exp_73266_73948, object a_91env_73267_73949, object rename_91env_73268_73950, object local_91renamed_73269_73951*/
static void __lambda_160(void *data, object clo, int argc, object *args) ;/*object self_732678, object vars_73272_73952*/
static void __lambda_161(void *data, object clo, int argc, object *args) ;/*object self_732679, object args_73275_73953*/
static void __lambda_167(void *data, object clo, int argc, object *args) ;/*object self_732680, object k_731527, object a_73284_73957*/
static void __lambda_168(void *data, object clo, int argc, object *args) ;/*object self_732681, object r_731529*/
static void __lambda_162(void *data, object clo, int argc, object *args) ;/*object self_732682, object r_731526*/
static void __lambda_163(void *data, object clo, int argc, object *args) ;/*object self_732683, object a_91lookup_73278_73954*/
static void __lambda_164(void *data, object clo, int argc, object *args) ;/*object self_732684, object r_731525*/
static void __lambda_165(void *data, object clo, int argc, object *args) ;/*object self_732685, object bproc_73281_73955*/
static void __lambda_166(void *data, object clo, int argc, object *args) ;/*object self_732686, object k_731523, object env_73283_73956*/
static void __lambda_146(void *data, object clo, int argc, object *args) ;/*closure _,object k_731502, object exp_73251_73939, object a_91env_73252_73940, object rename_91env_73253_73941, object local_91renamed_73254_73942*/
static void __lambda_147(void *data, object clo, int argc, object *args) ;/*object self_732666, object args_73255_73943*/
static void __lambda_149(void *data, object clo, int argc, object *args) ;/*object self_732667, object r_731504*/
static void __lambda_150(void *data, object clo, int argc, object *args) ;/*object self_732668, object r_731512*/
static void __lambda_151(void *data, object clo, int argc, object *args) ;/*object self_732669, object r_731505*/
static void __lambda_152(void *data, object clo, int argc, object *args) ;/*object self_732670, object r_731511*/
static void __lambda_153(void *data, object clo, int argc, object *args) ;/*object self_732671, object r_731506*/
static void __lambda_154(void *data, object clo, int argc, object *args) ;/*object self_732672, object r_731510*/
static void __lambda_155(void *data, object clo, int argc, object *args) ;/*object self_732673, object r_731507*/
static void __lambda_156(void *data, object clo, int argc, object *args) ;/*object self_732674, object pproc_73262_73944, object cproc_73263_73945, object aproc_73264_73946*/
static void __lambda_157(void *data, object clo, int argc, object *args) ;/*object self_732675, object k_731508, object env_73265_73947*/
static void __lambda_158(void *data, object clo, int argc, object *args) ;/*object self_732676, object r_731509*/
static void __lambda_148(void *data, object clo, int argc, object *args) ;/*object self_732677, object k_731513*/
static void __lambda_143(void *data, object clo, int argc, object *args) ;/*closure _,object k_731496, object exp_73248_73936, object env_73249_73937*/
static void __lambda_144(void *data, object clo, int argc, object *args) ;/*object self_732664, object k_731497, object env_73250_73938*/
static void __lambda_145(void *data, object clo, int argc, object *args) ;/*object self_732665, object r_731498*/
static void __lambda_132(void *data, object clo, int argc, object *args) ;/*closure _,object k_731473, object exp_73226_73925, object a_91env_73227_73926, object local_91renamed_73228_73927*/
static void __lambda_133(void *data, object clo, int argc, object *args) ;/*object self_732654, object var_73229_73928*/
static void __lambda_134(void *data, object clo, int argc, object *args) ;/*object self_732655, object r_731493*/
static void __lambda_137(void *data, object clo, int argc, object *args) ;/*object self_732658, object rename_91env_73238_73931*/
static void __lambda_138(void *data, object clo, int argc, object *args) ;/*object self_732659, object expanded_73241_73932*/
static void __lambda_139(void *data, object clo, int argc, object *args) ;/*object self_732660, object cleaned_73244_73933*/
static void __lambda_140(void *data, object clo, int argc, object *args) ;/*object self_732661, object sproc_73246_73934_732483*/
static void __lambda_141(void *data, object clo, int argc, object *args) ;/*object self_732662, object k_731485_732484, object env_73247_73935_732485*/
static void __lambda_142(void *data, object clo, int argc, object *args) ;/*object self_732663, object r_731486_732486*/
static void __lambda_135(void *data, object clo, int argc, object *args) ;/*object self_732656, object k_731477_732480, object env_73234_73930_732481*/
static void __lambda_136(void *data, object clo, int argc, object *args) ;/*object self_732657, object r_731478_732482*/
static void __lambda_114(void *data, object clo, int argc, object *args) ;/*closure _,object k_731443, object exp_73194_73908, object a_91env_73195_73909, object rename_91env_73196_73910, object local_91renamed_73197_73911*/
static void __lambda_131(void *data, object clo, int argc, object *args) ;/*object self_732637, object k_731469, object lis_73224_73923, object acc_73225_73924*/
static void __lambda_115(void *data, object clo, int argc, object *args) ;/*object self_732638, object r_731467*/
static void __lambda_116(void *data, object clo, int argc, object *args) ;/*object self_732639, object vars_73200_73912*/
static void __lambda_130(void *data, object clo, int argc, object *args) ;/*object self_732640, object k_731465, object lis_73222_73921, object acc_73223_73922*/
static void __lambda_117(void *data, object clo, int argc, object *args) ;/*object self_732641, object r_731463*/
static void __lambda_118(void *data, object clo, int argc, object *args) ;/*object self_732642, object vals_73203_73913*/
static void __lambda_119(void *data, object clo, int argc, object *args) ;/*object self_732643, object zipped_73206_73914*/
static void __lambda_129(void *data, object clo, int argc, object *args) ;/*object self_732644, object k_731459, object v_73221_73920*/
static void __lambda_120(void *data, object clo, int argc, object *args) ;/*object self_732645, object r_731458*/
static void __lambda_121(void *data, object clo, int argc, object *args) ;/*object self_732646, object defined_91macros_73209_73915*/
static void __lambda_122(void *data, object clo, int argc, object *args) ;/*object self_732647, object r_731452*/
static void __lambda_128(void *data, object clo, int argc, object *args) ;/*object self_732648, object k_731455, object v_73220_73919*/
static void __lambda_123(void *data, object clo, int argc, object *args) ;/*object self_732649, object r_731454*/
static void __lambda_124(void *data, object clo, int argc, object *args) ;/*object self_732650, object r_731453*/
static void __lambda_125(void *data, object clo, int argc, object *args) ;/*object self_732651, object macro_91env_73212_73916*/
static void __lambda_126(void *data, object clo, int argc, object *args) ;/*object self_732652, object expanded_73215_73917*/
static void __lambda_127(void *data, object clo, int argc, object *args) ;/*object self_732653, object cleaned_73218_73918*/
static void __lambda_111(void *data, object clo, int argc, object *args) ;/*closure _,object k_731437, object exp_73183_73902, object a_91env_73184_73903, object rename_91env_73185_73904, object local_91renamed_73186_73905*/
static void __lambda_112(void *data, object clo, int argc, object *args) ;/*object self_732635, object expanded_73189_73906*/
static void __lambda_113(void *data, object clo, int argc, object *args) ;/*object self_732636, object cleaned_73192_73907*/
static void __lambda_103(void *data, object clo, int argc, object *args) ;/*closure _,object k_731428, object exp_73176_73895, object a_91env_73177_73896, object rename_91env_73178_73897, object local_91renamed_73179_73898*/
static void __lambda_104(void *data, object clo, int argc, object *args) ;/*object self_732628, object r_731429*/
static void __lambda_105(void *data, object clo, int argc, object *args) ;/*object self_732629, object r_731434*/
static void __lambda_106(void *data, object clo, int argc, object *args) ;/*object self_732630, object r_731430*/
static void __lambda_107(void *data, object clo, int argc, object *args) ;/*object self_732631, object var_73180_73899, object vproc_73181_73900*/
static void __lambda_108(void *data, object clo, int argc, object *args) ;/*object self_732632, object k_731431, object env_73182_73901*/
static void __lambda_109(void *data, object clo, int argc, object *args) ;/*object self_732633, object r_731433*/
static void __lambda_110(void *data, object clo, int argc, object *args) ;/*object self_732634, object r_731432*/
static void __lambda_97(void *data, object clo, int argc, object *args) ;/*closure _,object k_731419, object exp_73169_73888, object a_91env_73170_73889, object rename_91env_73171_73890, object local_91renamed_73172_73891*/
static void __lambda_98(void *data, object clo, int argc, object *args) ;/*object self_732623, object r_731421*/
static void __lambda_99(void *data, object clo, int argc, object *args) ;/*object self_732624, object var_73173_73892, object vproc_73174_73893*/
static void __lambda_100(void *data, object clo, int argc, object *args) ;/*object self_732625, object k_731422, object env_73175_73894*/
static void __lambda_101(void *data, object clo, int argc, object *args) ;/*object self_732626, object r_731424*/
static void __lambda_102(void *data, object clo, int argc, object *args) ;/*object self_732627, object r_731423*/
static void __lambda_91(void *data, object clo, int argc, object *args) ;/*closure _,object k_731410, object exp_73154_73882, object local_91renamed_73155_73883*/
static void __lambda_92(void *data, object clo, int argc, object *args) ;/*object self_732618, object lookup_73158_73884*/
static void __lambda_95(void *data, object clo, int argc, object *args) ;/*object self_732619, object sym_73161_73885*/
static void __lambda_96(void *data, object clo, int argc, object *args) ;/*object self_732620, object k_731413, object env_73163_73886*/
static void __lambda_93(void *data, object clo, int argc, object *args) ;/*object self_732621, object k_731414*/
static void __lambda_94(void *data, object clo, int argc, object *args) ;/*object self_732622, object lookup_91by_91renamed_73168_73887*/
static void __lambda_545(void *data, object clo, int argc, object *args) ;/*(void *data, int argc, closure _, object k, object x, object lis)*/
static void __lambda_88(void *data, object clo, int argc, object *args) ;/*closure _,object k_731404, object exp_73151_73879*/
static void __lambda_89(void *data, object clo, int argc, object *args) ;/*object self_732616, object r_731406*/
static void __lambda_90(void *data, object clo, int argc, object *args) ;/*object self_732617, object k_731407, object env_73153_73881*/
static void __lambda_86(void *data, object clo, int argc, object *args) ;/*closure _,object k_731400, object exp_73149_73877*/
static void __lambda_87(void *data, object clo, int argc, object *args) ;/*object self_732615, object k_731401, object env_73150_73878*/
static void __lambda_65(void *data, object clo, int argc, object *args) ;/*closure _,object k_731350, object exp_7393_73871, object env_7394_73872, object rename_91env_7395_73873, object local_91renamed_7396_73874*/
static void __lambda_66(void *data, object clo, int argc, object *args) ;/*object self_732595, object r_731351*/
static void __lambda_67(void *data, object clo, int argc, object *args) ;/*object self_732596, object r_731352*/
static void __lambda_69(void *data, object clo, int argc, object *args) ;/*object self_732597, object r_731355*/
static void __lambda_71(void *data, object clo, int argc, object *args) ;/*object self_732598, object r_731356*/
static void __lambda_73(void *data, object clo, int argc, object *args) ;/*object self_732599, object r_731357*/
static void __lambda_75(void *data, object clo, int argc, object *args) ;/*object self_732600, object r_731358*/
static void __lambda_78(void *data, object clo, int argc, object *args) ;/*object self_732601, object r_731359*/
static void __lambda_81(void *data, object clo, int argc, object *args) ;/*object self_732602, object r_731360*/
static void __lambda_82(void *data, object clo, int argc, object *args) ;/*object self_732603, object r_731361*/
static void __lambda_83(void *data, object clo, int argc, object *args) ;/*object self_732604, object r_731362_732472*/
static void __lambda_85(void *data, object clo, int argc, object *args) ;/*object self_732606, object k_731365_732475, object env_73144_73876_732476*/
static void __lambda_84(void *data, object clo, int argc, object *args) ;/*object self_732605, object k_731363_732473, object env_73140_73875_732474*/
static void __lambda_79(void *data, object clo, int argc, object *args) ;/*object self_732607, object k_731368*/
static void __lambda_80(void *data, object clo, int argc, object *args) ;/*object self_732608, object r_731369*/
static void __lambda_76(void *data, object clo, int argc, object *args) ;/*object self_732609, object k_731372*/
static void __lambda_77(void *data, object clo, int argc, object *args) ;/*object self_732610, object r_731373*/
static void __lambda_74(void *data, object clo, int argc, object *args) ;/*object self_732611, object k_731376*/
static void __lambda_72(void *data, object clo, int argc, object *args) ;/*object self_732612, object k_731381*/
static void __lambda_70(void *data, object clo, int argc, object *args) ;/*object self_732613, object k_731386*/
static void __lambda_68(void *data, object clo, int argc, object *args) ;/*object self_732614, object k_731390*/
static void __lambda_62(void *data, object clo, int argc, object *args) ;/*closure _,object k_731341*/
static void __lambda_63(void *data, object clo, int argc, object *args) ;/*object self_732593, object r_731342*/
static void __lambda_64(void *data, object clo, int argc, object *args) ;/*object self_732594, object r_731343*/
static void __lambda_53(void *data, object clo, int argc, object *args) ;/*closure _,object k_731327, object env_7389_73867_raw, ...*/
static void __lambda_55(void *data, object clo, int argc, object *args) ;/*object self_732585, object initial_91env_7390_73868*/
static void __lambda_61(void *data, object clo, int argc, object *args) ;/*object self_732586, object k_731336, object v_7391_73869*/
static void __lambda_56(void *data, object clo, int argc, object *args) ;/*object self_732587, object r_731334*/
static void __lambda_57(void *data, object clo, int argc, object *args) ;/*object self_732588, object r_731329*/
static void __lambda_60(void *data, object clo, int argc, object *args) ;/*object self_732589, object k_731333, object v_7392_73870*/
static void __lambda_58(void *data, object clo, int argc, object *args) ;/*object self_732590, object r_731331*/
static void __lambda_59(void *data, object clo, int argc, object *args) ;/*object self_732591, object r_731330*/
static void __lambda_54(void *data, object clo, int argc, object *args) ;/*object self_732592, object k_731337*/
static void __lambda_51(void *data, object clo, int argc, object *args) ;/*closure _,object k_731323, object proc_7387_73865, object args_7388_73866*/
static void __lambda_52(void *data, object clo, int argc, object *args) ;/*object self_732584, object r_731324_732471*/
static void __lambda_48(void *data, object clo, int argc, object *args) ;/*closure _,object k_731314*/
static void __lambda_50(void *data, object clo, int argc, object *args) ;/*object self_732582, object k_731317, object proc_7385_73863, object rest_7386_73864*/
static void __lambda_49(void *data, object clo, int argc, object *args) ;/*object self_732583, object r_731315*/
static void __lambda_45(void *data, object clo, int argc, object *args) ;/*closure _,object k_731307*/
static void __lambda_47(void *data, object clo, int argc, object *args) ;/*object self_732580, object k_731310, object x_7383_73861, object y_7384_73862*/
static void __lambda_46(void *data, object clo, int argc, object *args) ;/*object self_732581, object r_731308*/
static object __lambda_544(void *data, object ptr,object proc_7382_73860) ;
static void __lambda_44(void *data, object clo, int argc, object *args) ;/*closure _,object k_731302, object proc_7382_73860*/
static void __lambda_43(void *data, object clo, int argc, object *args) ;/*closure _,object k_731298, object proc_7381_73859*/
static void __lambda_42(void *data, object clo, int argc, object *args) ;/*closure _,object k_731295, object exp_7380_73858*/
static void __lambda_41(void *data, object clo, int argc, object *args) ;/*closure _,object k_731290, object expr_7379_73857*/
static object __lambda_543(void *data, object ptr,object p_7378_73856) ;
static void __lambda_40(void *data, object clo, int argc, object *args) ;/*closure _,object k_731287, object p_7378_73856*/
static object __lambda_542(void *data, object ptr,object p_7377_73855) ;
static void __lambda_39(void *data, object clo, int argc, object *args) ;/*closure _,object k_731284, object p_7377_73855*/
static object __lambda_541(void *data, object ptr,object p_7376_73854) ;
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*closure _,object k_731281, object p_7376_73854*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*closure _,object k_731278, object p_7375_73853*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*closure _,object k_731275, object parameters_7372_73850, object body_7373_73851, object env_7374_73852*/
static object __lambda_540(void *data, object ptr,object exp_7371_73849) ;
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*closure _,object k_731270, object exp_7371_73849*/
static object __lambda_539(void *data, object ptr,object exp_7370_73848) ;
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*closure _,object k_731267, object exp_7370_73848*/
static object __lambda_538(void *data, object ptr,object exp_7369_73847) ;
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*closure _,object k_731264, object exp_7369_73847*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*closure _,object k_731260, object predicate_7366_73844, object consequent_7367_73845, object alternative_7368_73846*/
static object __lambda_537(void *data, object ptr,object exp_7365_73843) ;
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*closure _,object k_731255, object exp_7365_73843*/
static object __lambda_536(void *data, object ptr,object exp_7364_73842) ;
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*closure _,object k_731252, object exp_7364_73842*/
static object __lambda_535(void *data, object ptr,object exp_7363_73841) ;
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*closure _,object k_731249, object exp_7363_73841*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*closure _,object k_731244, object parameters_7361_73839, object body_7362_73840*/
static object __lambda_534(void *data, object ptr,object exp_7360_73838) ;
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*closure _,object k_731241, object exp_7360_73838*/
static object __lambda_533(void *data, object ptr,object exp_7359_73837) ;
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*closure _,object k_731238, object exp_7359_73837*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*closure _,object k_731231, object exp_7358_73836*/
static object __lambda_532(void *data, object ptr,object exp_7357_73835) ;
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*closure _,object k_731226, object exp_7357_73835*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*closure _,object k_731222, object exp_7356_73834*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*closure _,object k_731218, object exp_7355_73833*/
static object __lambda_531(void *data, object ptr,object exp_7354_73832) ;
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*closure _,object k_731215, object exp_7354_73832*/
static object __lambda_530(void *data, object ptr,object exp_7353_73831) ;
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*closure _,object k_731212, object exp_7353_73831*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*closure _,object k_731208, object exp_7352_73830*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*closure _,object k_731204, object exp_7351_73829*/
static object __lambda_529(void *data, object ptr,object exp_7350_73828) ;
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*closure _,object k_731201, object exp_7350_73828*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*closure _,object k_731188, object exp_7321_73827*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*closure _,object k_731173, object exp_738_73825*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_732576, object k_731180_732461_732468, object e_7315_73826_732462_732469*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*object self_732577, object r_731181_732463_732470*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_732578, object r_731178_732459_732466*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_732579, object r_731177_732460_732467*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*closure _,object k_731166, object exp_735_73822, object _191env_736_73823_raw, ...*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_732575, object r_731168*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*closure _,object k_731151, object exp_733_73817, object env_734_73818_raw, ...*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_732568, object rename_91env_73820*/
static void __lambda_522(void *data, object clo, int argc, object *args) ;/*object self_732569, object rename_91env_73820*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_732570, object r_731160*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*object self_732571, object r_731152*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_732573, object r_731156*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_732574, object r_731157*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_732572, object r_731154*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_731148, object vars_731_73815, object vals_732_73816*/

static void __lambda_504(void *data, object _, int argc, object *args) /* closure _,object k_732169 */
 {
object k_732169 = args[0];
  Cyc_st_add(data, "scheme/eval.sld:lib-init:schemeeval");

closureN_type c_736740;
object e_737209 [1];
c_736740.hdr.mark = gc_color_red;
 c_736740.hdr.grayed = 0;
c_736740.tag = closureN_tag;
 c_736740.fn = (function_type)__lambda_505;
c_736740.num_args = 1;
c_736740.num_elements = 1;
c_736740.elements = (object *)e_737209;
c_736740.elements[0] = k_732169;


object c_737212 = global_set_cps_id(data,(closure)&c_736740,"__glo_procedure_91tag_scheme_eval", __glo_procedure_91tag_scheme_eval, quote_procedure);
return_closcall1(data,(closure)&c_736740,  c_737212);; 
}

static void __lambda_505(void *data, object self_733000, int argc, object *args) /* object self_733000, object r_732171 */
 {

  
closureN_type c_736742;
object e_737205 [1];
c_736742.hdr.mark = gc_color_red;
 c_736742.hdr.grayed = 0;
c_736742.tag = closureN_tag;
 c_736742.fn = (function_type)__lambda_506;
c_736742.num_args = 1;
c_736742.num_elements = 1;
c_736742.elements = (object *)e_737205;
c_736742.elements[0] = ((closureN)self_733000)->elements[0];


object c_737208 = global_set_cps_id(data,(closure)&c_736742,"__glo_macro_91tag_scheme_eval", __glo_macro_91tag_scheme_eval, quote_macro);
return_closcall1(data,(closure)&c_736742,  c_737208);; 
}

static void __lambda_506(void *data, object self_733001, int argc, object *args) /* object self_733001, object r_732172 */
 {

  
closureN_type c_736744;
object e_736985 [1];
c_736744.hdr.mark = gc_color_red;
 c_736744.hdr.grayed = 0;
c_736744.tag = closureN_tag;
 c_736744.fn = (function_type)__lambda_507;
c_736744.num_args = 1;
c_736744.num_elements = 1;
c_736744.elements = (object *)e_736985;
c_736744.elements[0] = ((closureN)self_733001)->elements[0];


list_2_type local_736988; 

list_2_type local_736991; 

list_2_type local_736994; 

list_2_type local_736997; 

list_2_type local_737000; 

list_2_type local_737003; 

list_2_type local_737006; 

list_2_type local_737009; 

list_2_type local_737012; 

list_2_type local_737015; 

list_2_type local_737018; 

list_2_type local_737021; 

list_2_type local_737024; 

list_2_type local_737027; 

list_2_type local_737030; 

list_2_type local_737033; 

list_2_type local_737036; 

list_2_type local_737039; 

list_2_type local_737042; 

list_2_type local_737045; 

list_2_type local_737048; 

list_2_type local_737051; 

list_2_type local_737054; 

list_2_type local_737057; 

list_2_type local_737060; 

list_2_type local_737063; 

list_2_type local_737066; 

list_2_type local_737069; 

list_2_type local_737072; 

list_2_type local_737075; 

list_2_type local_737078; 

list_2_type local_737081; 

list_2_type local_737084; 

list_2_type local_737087; 

list_2_type local_737090; 

list_2_type local_737093; 

list_2_type local_737096; 

list_2_type local_737099; 

list_2_type local_737102; 

list_2_type local_737105; 

list_2_type local_737108; 

list_2_type local_737111; 

list_2_type local_737114; 

list_2_type local_737117; 

list_2_type local_737120; 

list_2_type local_737123; 

list_2_type local_737126; 

list_2_type local_737129; 

list_2_type local_737132; 

list_2_type local_737135; 

list_2_type local_737138; 

list_2_type local_737141; 

list_2_type local_737144; 

list_2_type local_737147; 

list_2_type local_737150; 

list_2_type local_737153; 

list_2_type local_737156; 

list_2_type local_737159; 

list_2_type local_737162; 

list_2_type local_737165; 

list_2_type local_737168; 

list_2_type local_737171; 

list_2_type local_737174; 

list_2_type local_737177; 

list_2_type local_737180; 

list_2_type local_737183; 

list_2_type local_737186; 

list_2_type local_737189; 

list_2_type local_737192; 

list_2_type local_737195; 

list_2_type local_737198; 

list_2_type local_737201; 

list_2_type local_737204; 
return_direct_with_clo74(data,  __glo__list_scheme_base, (((closure)  __glo__list_scheme_base)->fn),  &c_736744, Cyc_fast_list_2(&local_736988, quote_call_95cc, __glo_call_95cc_scheme_base), Cyc_fast_list_2(&local_736991, quote_Cyc_91global_91vars, primitive_Cyc_91global_91vars), Cyc_fast_list_2(&local_736994, quote_Cyc_91get_91cvar, primitive_Cyc_91get_91cvar), Cyc_fast_list_2(&local_736997, quote_Cyc_91set_91cvar_67, primitive_Cyc_91set_91cvar_67), Cyc_fast_list_2(&local_737000, quote_Cyc_91cvar_127, primitive_Cyc_91cvar_127), Cyc_fast_list_2(&local_737003, quote_Cyc_91opaque_127, primitive_Cyc_91opaque_127), Cyc_fast_list_2(&local_737006, quote_Cyc_91has_91cycle_127, primitive_Cyc_91has_91cycle_127), Cyc_fast_list_2(&local_737009, quote_Cyc_91spawn_91thread_67, primitive_Cyc_91spawn_91thread_67), Cyc_fast_list_2(&local_737012, quote_Cyc_91end_91thread_67, primitive_Cyc_91end_91thread_67), Cyc_fast_list_2(&local_737015, quote_Cyc_91default_91exception_91handler, primitive_Cyc_91default_91exception_91handler), Cyc_fast_list_2(&local_737018, quote_Cyc_91current_91exception_91handler, primitive_Cyc_91current_91exception_91handler), Cyc_fast_list_2(&local_737021, quote__87, primitive__87), Cyc_fast_list_2(&local_737024, quote__91, primitive__91), Cyc_fast_list_2(&local_737027, quote__85, primitive__85), Cyc_fast_list_2(&local_737030, quote__95, primitive__95), Cyc_fast_list_2(&local_737033, quote__123, primitive__123), Cyc_fast_list_2(&local_737036, quote__125, primitive__125), Cyc_fast_list_2(&local_737039, quote__121, primitive__121), Cyc_fast_list_2(&local_737042, quote__125_123, primitive__125_123), Cyc_fast_list_2(&local_737045, quote__121_123, primitive__121_123), Cyc_fast_list_2(&local_737048, quote_apply, primitive_apply), Cyc_fast_list_2(&local_737051, quote__75halt, primitive__75halt), Cyc_fast_list_2(&local_737054, quote_exit, primitive_exit), Cyc_fast_list_2(&local_737057, quote_Cyc_91compilation_91environment, primitive_Cyc_91compilation_91environment), Cyc_fast_list_2(&local_737060, quote_Cyc_91installation_91dir, primitive_Cyc_91installation_91dir), Cyc_fast_list_2(&local_737063, quote_system, primitive_system), Cyc_fast_list_2(&local_737066, quote_command_91line_91arguments, primitive_command_91line_91arguments), Cyc_fast_list_2(&local_737069, quote_error, __glo_error_scheme_base), Cyc_fast_list_2(&local_737072, quote_cons, primitive_cons), Cyc_fast_list_2(&local_737075, quote_cell_91get, primitive_cell_91get), Cyc_fast_list_2(&local_737078, quote_set_91global_67, primitive_set_91global_67), Cyc_fast_list_2(&local_737081, quote_set_91cell_67, primitive_set_91cell_67), Cyc_fast_list_2(&local_737084, quote_cell, primitive_cell), Cyc_fast_list_2(&local_737087, quote_eq_127, primitive_eq_127), Cyc_fast_list_2(&local_737090, quote_eqv_127, primitive_eqv_127), Cyc_fast_list_2(&local_737093, quote_equal_127, primitive_equal_127), Cyc_fast_list_2(&local_737096, quote_assq, primitive_assq), Cyc_fast_list_2(&local_737099, quote_assv, primitive_assv), Cyc_fast_list_2(&local_737102, quote_memq, primitive_memq), Cyc_fast_list_2(&local_737105, quote_memv, primitive_memv), Cyc_fast_list_2(&local_737108, quote_length, primitive_length), Cyc_fast_list_2(&local_737111, quote_set_91car_67, primitive_set_91car_67), Cyc_fast_list_2(&local_737114, quote_set_91cdr_67, primitive_set_91cdr_67), Cyc_fast_list_2(&local_737117, quote_car, primitive_car), Cyc_fast_list_2(&local_737120, quote_cdr, primitive_cdr), Cyc_fast_list_2(&local_737123, quote_caar, primitive_caar), Cyc_fast_list_2(&local_737126, quote_cadr, primitive_cadr), Cyc_fast_list_2(&local_737129, quote_cdar, primitive_cdar), Cyc_fast_list_2(&local_737132, quote_cddr, primitive_cddr), Cyc_fast_list_2(&local_737135, quote_caaar, primitive_caaar), Cyc_fast_list_2(&local_737138, quote_caadr, primitive_caadr), Cyc_fast_list_2(&local_737141, quote_cadar, primitive_cadar), Cyc_fast_list_2(&local_737144, quote_caddr, primitive_caddr), Cyc_fast_list_2(&local_737147, quote_cdaar, primitive_cdaar), Cyc_fast_list_2(&local_737150, quote_cdadr, primitive_cdadr), Cyc_fast_list_2(&local_737153, quote_cddar, primitive_cddar), Cyc_fast_list_2(&local_737156, quote_cdddr, primitive_cdddr), Cyc_fast_list_2(&local_737159, quote_caaaar, primitive_caaaar), Cyc_fast_list_2(&local_737162, quote_caaadr, primitive_caaadr), Cyc_fast_list_2(&local_737165, quote_caadar, primitive_caadar), Cyc_fast_list_2(&local_737168, quote_caaddr, primitive_caaddr), Cyc_fast_list_2(&local_737171, quote_cadaar, primitive_cadaar), Cyc_fast_list_2(&local_737174, quote_cadadr, primitive_cadadr), Cyc_fast_list_2(&local_737177, quote_caddar, primitive_caddar), Cyc_fast_list_2(&local_737180, quote_cadddr, primitive_cadddr), Cyc_fast_list_2(&local_737183, quote_cdaaar, primitive_cdaaar), Cyc_fast_list_2(&local_737186, quote_cdaadr, primitive_cdaadr), Cyc_fast_list_2(&local_737189, quote_cdadar, primitive_cdadar), Cyc_fast_list_2(&local_737192, quote_cdaddr, primitive_cdaddr), Cyc_fast_list_2(&local_737195, quote_cddaar, primitive_cddaar), Cyc_fast_list_2(&local_737198, quote_cddadr, primitive_cddadr), Cyc_fast_list_2(&local_737201, quote_cdddar, primitive_cdddar), Cyc_fast_list_2(&local_737204, quote_cddddr, primitive_cddddr));; 
}

static void __lambda_507(void *data, object self_733002, int argc, object *args) /* object self_733002, object r_732192 */
 {
 object r_732192 = args[0];
  
closureN_type c_736746;
object e_736813 [2];
c_736746.hdr.mark = gc_color_red;
 c_736746.hdr.grayed = 0;
c_736746.tag = closureN_tag;
 c_736746.fn = (function_type)__lambda_508;
c_736746.num_args = 1;
c_736746.num_elements = 2;
c_736746.elements = (object *)e_736813;
c_736746.elements[0] = ((closureN)self_733002)->elements[0];
c_736746.elements[1] = r_732192;


list_2_type local_736816; 

list_2_type local_736819; 

list_2_type local_736822; 

list_2_type local_736825; 

list_2_type local_736828; 

list_2_type local_736831; 

list_2_type local_736834; 

list_2_type local_736837; 

list_2_type local_736840; 

list_2_type local_736843; 

list_2_type local_736846; 

list_2_type local_736849; 

list_2_type local_736852; 

list_2_type local_736855; 

list_2_type local_736858; 

list_2_type local_736861; 

list_2_type local_736864; 

list_2_type local_736867; 

list_2_type local_736870; 

list_2_type local_736873; 

list_2_type local_736876; 

list_2_type local_736879; 

list_2_type local_736882; 

list_2_type local_736885; 

list_2_type local_736888; 

list_2_type local_736891; 

list_2_type local_736894; 

list_2_type local_736897; 

list_2_type local_736900; 

list_2_type local_736903; 

list_2_type local_736906; 

list_2_type local_736909; 

list_2_type local_736912; 

list_2_type local_736915; 

list_2_type local_736918; 

list_2_type local_736921; 

list_2_type local_736924; 

list_2_type local_736927; 

list_2_type local_736930; 

list_2_type local_736933; 

list_2_type local_736936; 

list_2_type local_736939; 

list_2_type local_736942; 

list_2_type local_736945; 

list_2_type local_736948; 

list_2_type local_736951; 

list_2_type local_736954; 

list_2_type local_736957; 

list_2_type local_736960; 

list_2_type local_736963; 

list_2_type local_736966; 

list_2_type local_736969; 

list_2_type local_736972; 

list_2_type local_736975; 

list_2_type local_736978; 

list_2_type local_736981; 

list_2_type local_736984; 
return_direct_with_clo58(data,  __glo__list_scheme_base, (((closure)  __glo__list_scheme_base)->fn),  &c_736746, Cyc_fast_list_2(&local_736816, quote_char_91_125integer, primitive_char_91_125integer), Cyc_fast_list_2(&local_736819, quote_integer_91_125char, primitive_integer_91_125char), Cyc_fast_list_2(&local_736822, quote_string_91_125number, primitive_string_91_125number), Cyc_fast_list_2(&local_736825, quote_string_91cmp, primitive_string_91cmp), Cyc_fast_list_2(&local_736828, quote_string_91append, primitive_string_91append), Cyc_fast_list_2(&local_736831, quote_list_91_125string, primitive_list_91_125string), Cyc_fast_list_2(&local_736834, quote_string_91_125symbol, primitive_string_91_125symbol), Cyc_fast_list_2(&local_736837, quote_symbol_91_125string, primitive_symbol_91_125string), Cyc_fast_list_2(&local_736840, quote_number_91_125string, primitive_number_91_125string), Cyc_fast_list_2(&local_736843, quote_string_91length, primitive_string_91length), Cyc_fast_list_2(&local_736846, quote_string_91ref, primitive_string_91ref), Cyc_fast_list_2(&local_736849, quote_string_91set_67, primitive_string_91set_67), Cyc_fast_list_2(&local_736852, quote_substring, primitive_substring), Cyc_fast_list_2(&local_736855, quote_make_91bytevector, primitive_make_91bytevector), Cyc_fast_list_2(&local_736858, quote_bytevector_91length, primitive_bytevector_91length), Cyc_fast_list_2(&local_736861, quote_bytevector_91append, primitive_bytevector_91append), Cyc_fast_list_2(&local_736864, quote_Cyc_91bytevector_91copy, primitive_Cyc_91bytevector_91copy), Cyc_fast_list_2(&local_736867, quote_Cyc_91utf8_91_125string, primitive_Cyc_91utf8_91_125string), Cyc_fast_list_2(&local_736870, quote_Cyc_91string_91_125utf8, primitive_Cyc_91string_91_125utf8), Cyc_fast_list_2(&local_736873, quote_bytevector, primitive_bytevector), Cyc_fast_list_2(&local_736876, quote_bytevector_91u8_91ref, primitive_bytevector_91u8_91ref), Cyc_fast_list_2(&local_736879, quote_bytevector_91u8_91set_67, primitive_bytevector_91u8_91set_67), Cyc_fast_list_2(&local_736882, quote_make_91vector, primitive_make_91vector), Cyc_fast_list_2(&local_736885, quote_list_91_125vector, primitive_list_91_125vector), Cyc_fast_list_2(&local_736888, quote_vector_91length, primitive_vector_91length), Cyc_fast_list_2(&local_736891, quote_vector_91ref, primitive_vector_91ref), Cyc_fast_list_2(&local_736894, quote_vector_91set_67, primitive_vector_91set_67), Cyc_fast_list_2(&local_736897, quote_boolean_127, primitive_boolean_127), Cyc_fast_list_2(&local_736900, quote_char_127, primitive_char_127), Cyc_fast_list_2(&local_736903, quote_eof_91object_127, primitive_eof_91object_127), Cyc_fast_list_2(&local_736906, quote_null_127, primitive_null_127), Cyc_fast_list_2(&local_736909, quote_number_127, primitive_number_127), Cyc_fast_list_2(&local_736912, quote_real_127, primitive_real_127), Cyc_fast_list_2(&local_736915, quote_integer_127, primitive_integer_127), Cyc_fast_list_2(&local_736918, quote_pair_127, primitive_pair_127), Cyc_fast_list_2(&local_736921, quote_port_127, primitive_port_127), Cyc_fast_list_2(&local_736924, quote_procedure_127, primitive_procedure_127), Cyc_fast_list_2(&local_736927, quote_Cyc_91macro_127, primitive_Cyc_91macro_127), Cyc_fast_list_2(&local_736930, quote_vector_127, primitive_vector_127), Cyc_fast_list_2(&local_736933, quote_bytevector_127, primitive_bytevector_127), Cyc_fast_list_2(&local_736936, quote_string_127, primitive_string_127), Cyc_fast_list_2(&local_736939, quote_symbol_127, primitive_symbol_127), Cyc_fast_list_2(&local_736942, quote_open_91input_91file, primitive_open_91input_91file), Cyc_fast_list_2(&local_736945, quote_open_91output_91file, primitive_open_91output_91file), Cyc_fast_list_2(&local_736948, quote_open_91binary_91input_91file, primitive_open_91binary_91input_91file), Cyc_fast_list_2(&local_736951, quote_open_91binary_91output_91file, primitive_open_91binary_91output_91file), Cyc_fast_list_2(&local_736954, quote_close_91port, primitive_close_91port), Cyc_fast_list_2(&local_736957, quote_close_91input_91port, primitive_close_91input_91port), Cyc_fast_list_2(&local_736960, quote_close_91output_91port, primitive_close_91output_91port), Cyc_fast_list_2(&local_736963, quote_file_91exists_127, primitive_file_91exists_127), Cyc_fast_list_2(&local_736966, quote_delete_91file, primitive_delete_91file), Cyc_fast_list_2(&local_736969, quote_read_91char, __glo_read_91char_scheme_base), Cyc_fast_list_2(&local_736972, quote_peek_91char, __glo_peek_91char_scheme_base), Cyc_fast_list_2(&local_736975, quote_Cyc_91read_91line, primitive_Cyc_91read_91line), Cyc_fast_list_2(&local_736978, quote_Cyc_91write_91char, primitive_Cyc_91write_91char), Cyc_fast_list_2(&local_736981, quote_Cyc_91write, primitive_Cyc_91write), Cyc_fast_list_2(&local_736984, quote_Cyc_91display, primitive_Cyc_91display));; 
}

static void __lambda_508(void *data, object self_733003, int argc, object *args) /* object self_733003, object r_732193 */
 {
 object r_732193 = args[0];
  
closureN_type c_736748;
object e_736811 [1];
c_736748.hdr.mark = gc_color_red;
 c_736748.hdr.grayed = 0;
c_736748.tag = closureN_tag;
 c_736748.fn = (function_type)__lambda_509;
c_736748.num_args = 1;
c_736748.num_elements = 1;
c_736748.elements = (object *)e_736811;
c_736748.elements[0] = ((closureN)self_733003)->elements[0];

return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_736748, ((closureN)self_733003)->elements[1], r_732193);; 
}

static void __lambda_509(void *data, object self_733004, int argc, object *args) /* object self_733004, object r_732191 */
 {
 object r_732191 = args[0];
  
closureN_type c_736750;
object e_736807 [1];
c_736750.hdr.mark = gc_color_red;
 c_736750.hdr.grayed = 0;
c_736750.tag = closureN_tag;
 c_736750.fn = (function_type)__lambda_510;
c_736750.num_args = 1;
c_736750.num_elements = 1;
c_736750.elements = (object *)e_736807;
c_736750.elements[0] = ((closureN)self_733004)->elements[0];


object c_736810 = global_set_cps_id(data,(closure)&c_736750,"__glo_primitive_91procedures_scheme_eval", __glo_primitive_91procedures_scheme_eval, r_732191);
return_closcall1(data,(closure)&c_736750,  c_736810);; 
}

static void __lambda_510(void *data, object self_733005, int argc, object *args) /* object self_733005, object r_732173 */
 {

  
closureN_type c_736752;
object e_736806 [1];
c_736752.hdr.mark = gc_color_red;
 c_736752.hdr.grayed = 0;
c_736752.tag = closureN_tag;
 c_736752.fn = (function_type)__lambda_511;
c_736752.num_args = 1;
c_736752.num_elements = 1;
c_736752.elements = (object *)e_736806;
c_736752.elements[0] = ((closureN)self_733005)->elements[0];

return_direct_with_clo1(data,  __glo_create_91initial_91environment_scheme_eval, (((closure)  __glo_create_91initial_91environment_scheme_eval)->fn),  &c_736752);; 
}

static void __lambda_511(void *data, object self_733006, int argc, object *args) /* object self_733006, object r_732190 */
 {
 object r_732190 = args[0];
  
closureN_type c_736754;
object e_736802 [1];
c_736754.hdr.mark = gc_color_red;
 c_736754.hdr.grayed = 0;
c_736754.tag = closureN_tag;
 c_736754.fn = (function_type)__lambda_512;
c_736754.num_args = 1;
c_736754.num_elements = 1;
c_736754.elements = (object *)e_736802;
c_736754.elements[0] = ((closureN)self_733006)->elements[0];


object c_736805 = global_set_cps_id(data,(closure)&c_736754,"__glo__85initial_91environment_85_scheme_eval", __glo__85initial_91environment_85_scheme_eval, r_732190);
return_closcall1(data,(closure)&c_736754,  c_736805);; 
}

static void __lambda_512(void *data, object self_733007, int argc, object *args) /* object self_733007, object r_732174 */
 {

  
closureN_type c_736756;
object e_736801 [1];
c_736756.hdr.mark = gc_color_red;
 c_736756.hdr.grayed = 0;
c_736756.tag = closureN_tag;
 c_736756.fn = (function_type)__lambda_513;
c_736756.num_args = 1;
c_736756.num_elements = 1;
c_736756.elements = (object *)e_736801;
c_736756.elements[0] = ((closureN)self_733007)->elements[0];

return_direct_with_clo1(data,  __glo_create_91initial_91environment_scheme_eval, (((closure)  __glo_create_91initial_91environment_scheme_eval)->fn),  &c_736756);; 
}

static void __lambda_513(void *data, object self_733008, int argc, object *args) /* object self_733008, object r_732189 */
 {
 object r_732189 = args[0];
  
closureN_type c_736758;
object e_736800 [1];
c_736758.hdr.mark = gc_color_red;
 c_736758.hdr.grayed = 0;
c_736758.tag = closureN_tag;
 c_736758.fn = (function_type)__lambda_514;
c_736758.num_args = 1;
c_736758.num_elements = 1;
c_736758.elements = (object *)e_736800;
c_736758.elements[0] = ((closureN)self_733008)->elements[0];

return_direct_with_clo2(data,  __glo_setup_91environment_scheme_eval, (((closure)  __glo_setup_91environment_scheme_eval)->fn),  &c_736758, r_732189);; 
}

static void __lambda_514(void *data, object self_733009, int argc, object *args) /* object self_733009, object r_732188 */
 {
 object r_732188 = args[0];
  
closureN_type c_736760;
object e_736799 [1];
c_736760.hdr.mark = gc_color_red;
 c_736760.hdr.grayed = 0;
c_736760.tag = closureN_tag;
 c_736760.fn = (function_type)__lambda_515;
c_736760.num_args = 1;
c_736760.num_elements = 1;
c_736760.elements = (object *)e_736799;
c_736760.elements[0] = ((closureN)self_733009)->elements[0];

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_736760, NULL, NULL, r_732188);; 
}

static void __lambda_515(void *data, object self_733010, int argc, object *args) /* object self_733010, object r_732185 */
 {
 object r_732185 = args[0];
  
closureN_type c_736762;
object e_736795 [1];
c_736762.hdr.mark = gc_color_red;
 c_736762.hdr.grayed = 0;
c_736762.tag = closureN_tag;
 c_736762.fn = (function_type)__lambda_516;
c_736762.num_args = 1;
c_736762.num_elements = 1;
c_736762.elements = (object *)e_736795;
c_736762.elements[0] = ((closureN)self_733010)->elements[0];


object c_736798 = global_set_cps_id(data,(closure)&c_736762,"__glo__85global_91environment_85_scheme_eval", __glo__85global_91environment_85_scheme_eval, r_732185);
return_closcall1(data,(closure)&c_736762,  c_736798);; 
}

static void __lambda_516(void *data, object self_733011, int argc, object *args) /* object self_733011, object r_732175 */
 {

  
closureN_type c_736764;
object e_736791 [1];
c_736764.hdr.mark = gc_color_red;
 c_736764.hdr.grayed = 0;
c_736764.tag = closureN_tag;
 c_736764.fn = (function_type)__lambda_517;
c_736764.num_args = 1;
c_736764.num_elements = 1;
c_736764.elements = (object *)e_736791;
c_736764.elements[0] = ((closureN)self_733011)->elements[0];


object c_736794 = global_set_cps_id(data,(closure)&c_736764,"__glo__85append_91dirs_85_scheme_eval", __glo__85append_91dirs_85_scheme_eval, NULL);
return_closcall1(data,(closure)&c_736764,  c_736794);; 
}

static void __lambda_517(void *data, object self_733012, int argc, object *args) /* object self_733012, object r_732176 */
 {

  
closureN_type c_736766;
object e_736787 [1];
c_736766.hdr.mark = gc_color_red;
 c_736766.hdr.grayed = 0;
c_736766.tag = closureN_tag;
 c_736766.fn = (function_type)__lambda_518;
c_736766.num_args = 1;
c_736766.num_elements = 1;
c_736766.elements = (object *)e_736787;
c_736766.elements[0] = ((closureN)self_733012)->elements[0];


object c_736790 = global_set_cps_id(data,(closure)&c_736766,"__glo__85prepend_91dirs_85_scheme_eval", __glo__85prepend_91dirs_85_scheme_eval, NULL);
return_closcall1(data,(closure)&c_736766,  c_736790);; 
}

static void __lambda_518(void *data, object self_733013, int argc, object *args) /* object self_733013, object r_732177 */
 {

  
closureN_type c_736768;
object e_736783 [1];
c_736768.hdr.mark = gc_color_red;
 c_736768.hdr.grayed = 0;
c_736768.tag = closureN_tag;
 c_736768.fn = (function_type)__lambda_519;
c_736768.num_args = 1;
c_736768.num_elements = 1;
c_736768.elements = (object *)e_736783;
c_736768.elements[0] = ((closureN)self_733013)->elements[0];


object c_736786 = global_set_cps_id(data,(closure)&c_736768,"__glo__85macro_117env_85_scheme_eval", __glo__85macro_117env_85_scheme_eval, NULL);
return_closcall1(data,(closure)&c_736768,  c_736786);; 
}

static void __lambda_519(void *data, object self_733014, int argc, object *args) /* object self_733014, object r_732178 */
 {

  
closureN_type c_736770;
object e_736779 [1];
c_736770.hdr.mark = gc_color_red;
 c_736770.hdr.grayed = 0;
c_736770.tag = closureN_tag;
 c_736770.fn = (function_type)__lambda_520;
c_736770.num_args = 1;
c_736770.num_elements = 1;
c_736770.elements = (object *)e_736779;
c_736770.elements[0] = ((closureN)self_733014)->elements[0];


object c_736782 = global_set_cps_id(data,(closure)&c_736770,"__glo__85macro_117defined_91macros_85_scheme_eval", __glo__85macro_117defined_91macros_85_scheme_eval, NULL);
return_closcall1(data,(closure)&c_736770,  c_736782);; 
}

static void __lambda_520(void *data, object self_733015, int argc, object *args) /* object self_733015, object r_732179 */
 {

  
closureN_type c_736772;
object e_736778 [1];
c_736772.hdr.mark = gc_color_red;
 c_736772.hdr.grayed = 0;
c_736772.tag = closureN_tag;
 c_736772.fn = (function_type)__lambda_521;
c_736772.num_args = 1;
c_736772.num_elements = 1;
c_736772.elements = (object *)e_736778;
c_736772.elements[0] = ((closureN)self_733015)->elements[0];

return_direct_with_clo1(data,  __glo__list_scheme_base, (((closure)  __glo__list_scheme_base)->fn),  &c_736772);; 
}

static void __lambda_521(void *data, object self_733016, int argc, object *args) /* object self_733016, object r_732180 */
 {
 object r_732180 = args[0];
  
object c_736777 = global_set_cps_id(data,  ((closureN)self_733016)->elements[0],"__glo__85defined_91macros_85_scheme_eval", __glo__85defined_91macros_85_scheme_eval, r_732180);
return_direct_with_clo1(data,  ((closureN)self_733016)->elements[0], (((closure)  ((closureN)self_733016)->elements[0])->fn),  c_736777);; 
}

static void __lambda_503(void *data, object _, int argc, object *args) /* closure _,object k_732166, object exp_73814_731145 */
 {
object k_732166 = args[0]; object exp_73814_731145 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:begin->exps");


return_direct_with_clo1(data,  k_732166, (((closure)  k_732166)->fn),  Cyc_cdr(data, exp_73814_731145));; 
}

static void __lambda_502(void *data, object _, int argc, object *args) /* closure _,object k_732161 */
 {
object k_732161 = args[0];
  Cyc_st_add(data, "scheme/eval.sld:get-macros");
return_direct_with_clo1(data,  k_732161, (((closure)  k_732161)->fn),  __glo__85defined_91macros_85_scheme_eval);; 
}

static void __lambda_495(void *data, object _, int argc, object *args) /* closure _,object k_732149, object l_73802_731141 */
 {
object k_732149 = args[0]; object l_73802_731141 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:list->pair");

closureN_type c_736678;
object e_736731 [1];
c_736678.hdr.mark = gc_color_red;
 c_736678.hdr.grayed = 0;
c_736678.tag = closureN_tag;
 c_736678.fn = (function_type)__lambda_496;
c_736678.num_args = 1;
c_736678.num_elements = 1;
c_736678.elements = (object *)e_736731;
c_736678.elements[0] = k_732149;

return_direct_with_clo1(data,(closure)&c_736678,__lambda_496,  l_73802_731141);; 
}

static void __lambda_496(void *data, object self_732993, int argc, object *args) /* object self_732993, object lst_73804_731142 */
 {
 object lst_73804_731142 = args[0];
  
closureN_type c_736680;
object e_736730 [2];
c_736680.hdr.mark = gc_color_red;
 c_736680.hdr.grayed = 0;
c_736680.tag = closureN_tag;
 c_736680.fn = (function_type)__lambda_497;
c_736680.num_args = 1;
c_736680.num_elements = 2;
c_736680.elements = (object *)e_736730;
c_736680.elements[0] = ((closureN)self_732993)->elements[0];
c_736680.elements[1] = lst_73804_731142;

return_direct_with_clo1(data,(closure)&c_736680,__lambda_497,  boolean_f);; 
}

static void __lambda_497(void *data, object self_732994, int argc, object *args) /* object self_732994, object loop_73805_731143 */
 {
 object loop_73805_731143 = args[0];
  
closureN_type c_736682;
object e_736726 [2];
c_736682.hdr.mark = gc_color_red;
 c_736682.hdr.grayed = 0;
c_736682.tag = closureN_tag;
 c_736682.fn = (function_type)__lambda_528;
c_736682.num_args = 1;
c_736682.num_elements = 2;
c_736682.elements = (object *)e_736726;
c_736682.elements[0] = ((closureN)self_732994)->elements[0];
c_736682.elements[1] = ((closureN)self_732994)->elements[1];


pair_type local_736729; 
return_direct_with_clo1(data,(closure)&c_736682,__lambda_528,  set_cell_as_expr(&local_736729, loop_73805_731143));; 
}

static void __lambda_528(void *data, object self_732995, int argc, object *args) /* object self_732995, object loop_73805_731143 */
 {
 object loop_73805_731143 = args[0];
  
closureN_type c_736684;
object e_736697 [3];
c_736684.hdr.mark = gc_color_red;
 c_736684.hdr.grayed = 0;
c_736684.tag = closureN_tag;
 c_736684.fn = (function_type)__lambda_498;
c_736684.num_args = 1;
c_736684.num_elements = 3;
c_736684.elements = (object *)e_736697;
c_736684.elements[0] = ((closureN)self_732995)->elements[0];
c_736684.elements[1] = loop_73805_731143;
c_736684.elements[2] = ((closureN)self_732995)->elements[1];


closureN_type c_736698;
object e_736725 [1];
c_736698.hdr.mark = gc_color_red;
 c_736698.hdr.grayed = 0;
c_736698.tag = closureN_tag;
 c_736698.fn = (function_type)__lambda_500;
c_736698.num_args = 1;
c_736698.num_elements = 1;
c_736698.elements = (object *)e_736725;
c_736698.elements[0] = loop_73805_731143;

return_direct_with_clo1(data,(closure)&c_736684,__lambda_498,  &c_736698);; 
}

static void __lambda_500(void *data, object self_732996, int argc, object *args) /* object self_732996, object k_732152, object lst_73806_731144 */
 {
 object k_732152 = args[0]; object lst_73806_731144 = args[1];
    
if( (boolean_f != Cyc_is_pair(lst_73806_731144)) ){ 
    
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, lst_73806_731144))) ){ 
  

return_direct_with_clo1(data,  k_732152, (((closure)  k_732152)->fn),  Cyc_car(data, lst_73806_731144));
} else { 
  


closureN_type c_736712;
object e_736721 [2];
c_736712.hdr.mark = gc_color_red;
 c_736712.hdr.grayed = 0;
c_736712.tag = closureN_tag;
 c_736712.fn = (function_type)__lambda_501;
c_736712.num_args = 1;
c_736712.num_elements = 2;
c_736712.elements = (object *)e_736721;
c_736712.elements[0] = k_732152;
c_736712.elements[1] = lst_73806_731144;



return_closcall2(data,  car(((closureN)self_732996)->elements[0]),  &c_736712, Cyc_cdr(data, lst_73806_731144));}
;
} else { 
  return_direct_with_clo1(data,  k_732152, (((closure)  k_732152)->fn),  lst_73806_731144);}
;; 
}

static void __lambda_501(void *data, object self_732997, int argc, object *args) /* object self_732997, object r_732156 */
 {
 object r_732156 = args[0];
  
pair_type local_736717; 


return_direct_with_clo1(data,  ((closureN)self_732997)->elements[0], (((closure)  ((closureN)self_732997)->elements[0])->fn),  set_pair_as_expr(&local_736717, Cyc_car(data, ((closureN)self_732997)->elements[1]), r_732156));; 
}

static void __lambda_498(void *data, object self_732998, int argc, object *args) /* object self_732998, object r_732151 */
 {
 object r_732151 = args[0];
  
closureN_type c_736686;
object e_736693 [3];
c_736686.hdr.mark = gc_color_red;
 c_736686.hdr.grayed = 0;
c_736686.tag = closureN_tag;
 c_736686.fn = (function_type)__lambda_499;
c_736686.num_args = 1;
c_736686.num_elements = 3;
c_736686.elements = (object *)e_736693;
c_736686.elements[0] = ((closureN)self_732998)->elements[0];
c_736686.elements[1] = ((closureN)self_732998)->elements[1];
c_736686.elements[2] = ((closureN)self_732998)->elements[2];



return_direct_with_clo1(data,(closure)&c_736686,__lambda_499,  Cyc_set_cell(data, ((closureN)self_732998)->elements[1], r_732151));; 
}

static void __lambda_499(void *data, object self_732999, int argc, object *args) /* object self_732999, object r_732150 */
 {

  

return_closcall2(data,  car(((closureN)self_732999)->elements[1]),  ((closureN)self_732999)->elements[0], ((closureN)self_732999)->elements[2]);; 
}

static void __lambda_494(void *data, object _, int argc, object *args) /* closure _,object k_732120, object args_73784_731139, object type_73785_731140 */
 {
object k_732120 = args[0]; object args_73784_731139 = args[1]; object type_73785_731140 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:list->lambda-formals");
  
if( (boolean_f != Cyc_eq(type_73785_731140, quote_args_117fixed)) ){ 
  return_direct_with_clo1(data,  k_732120, (((closure)  k_732120)->fn),  args_73784_731139);
} else { 
    
if( (boolean_f != Cyc_eq(type_73785_731140, quote_args_117fixed_91with_91varargs)) ){ 
  return_direct_with_clo2(data,  __glo_list_91_125pair_scheme_eval, (((closure)  __glo_list_91_125pair_scheme_eval)->fn),  k_732120, args_73784_731139);
} else { 
    
if( (boolean_f != Cyc_eq(type_73785_731140, quote_args_117varargs)) ){ 
    
  
if( (boolean_f != Cyc_num_fast_gt_op(data, Cyc_length(data, args_73784_731139), obj_int2obj(1))) ){ 
  
pair_type local_736647; 

pair_type local_736650; 

pair_type local_736653; 

pair_type local_736656; 

pair_type local_736659; 

pair_type local_736662; 
return_direct_with_clo2(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_732120, set_pair_as_expr(&local_736647, quote_Too, set_pair_as_expr(&local_736650, quote_many, set_pair_as_expr(&local_736653, quote_args, set_pair_as_expr(&local_736656, quote__for, set_pair_as_expr(&local_736659, quote_varargs, set_pair_as_expr(&local_736662, args_73784_731139, NULL)))))));
} else { 
  

return_direct_with_clo1(data,  k_732120, (((closure)  k_732120)->fn),  Cyc_car(data, args_73784_731139));}
;
} else { 
  
pair_type local_736669; 

pair_type local_736672; 

pair_type local_736675; 
return_direct_with_clo2(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_732120, set_pair_as_expr(&local_736669, quote_Unexpected, set_pair_as_expr(&local_736672, quote_type, set_pair_as_expr(&local_736675, type_73785_731140, NULL))));}
;}
;}
;; 
}

static void __lambda_458(void *data, object _, int argc, object *args) /* closure _,object k_732052, object result_73694_731114, object exp_73695_731115, object env_73696_731116, object rename_91env_73697_731117, object local_91env_73698_731118, object local_91renamed_73699_731119 */
 {
object k_732052 = args[0]; object result_73694_731114 = args[1]; object exp_73695_731115 = args[2]; object env_73696_731116 = args[3]; object rename_91env_73697_731117 = args[4]; object local_91env_73698_731118 = args[5]; object local_91renamed_73699_731119 = args[6];
  Cyc_st_add(data, "scheme/eval.sld:_expand-body");
  
if( (boolean_f != Cyc_is_null(exp_73695_731115)) ){ 
  return_direct_with_clo2(data,  __glo_reverse_scheme_base, (((closure)  __glo_reverse_scheme_base)->fn),  k_732052, result_73694_731114);
} else { 
  
closureN_type c_736235;
object e_736628 [7];
c_736235.hdr.mark = gc_color_red;
 c_736235.hdr.grayed = 0;
c_736235.tag = closureN_tag;
 c_736235.fn = (function_type)__lambda_459;
c_736235.num_args = 1;
c_736235.num_elements = 7;
c_736235.elements = (object *)e_736628;
c_736235.elements[0] = env_73696_731116;
c_736235.elements[1] = exp_73695_731115;
c_736235.elements[2] = k_732052;
c_736235.elements[3] = local_91env_73698_731118;
c_736235.elements[4] = local_91renamed_73699_731119;
c_736235.elements[5] = rename_91env_73697_731117;
c_736235.elements[6] = result_73694_731114;



return_direct_with_clo2(data,  __glo_const_127_scheme_cyclone_util, (((closure)  __glo_const_127_scheme_cyclone_util)->fn),  &c_736235, Cyc_car(data, exp_73695_731115));}
;; 
}

static void __lambda_459(void *data, object self_732958, int argc, object *args) /* object self_732958, object tmp_73705_73707_731121 */
 {
 object tmp_73705_73707_731121 = args[0];
  
closureN_type c_736237;
object e_736283 [3];
c_736237.hdr.mark = gc_color_red;
 c_736237.hdr.grayed = 0;
c_736237.tag = closureN_tag;
 c_736237.fn = (function_type)__lambda_460;
c_736237.num_args = 0;
c_736237.num_elements = 3;
c_736237.elements = (object *)e_736283;
c_736237.elements[0] = ((closureN)self_732958)->elements[1];
c_736237.elements[1] = ((closureN)self_732958)->elements[4];
c_736237.elements[2] = tmp_73705_73707_731121;


closureN_type c_736284;
object e_736627 [7];
c_736284.hdr.mark = gc_color_red;
 c_736284.hdr.grayed = 0;
c_736284.tag = closureN_tag;
 c_736284.fn = (function_type)__lambda_466;
c_736284.num_args = 1;
c_736284.num_elements = 7;
c_736284.elements = (object *)e_736627;
c_736284.elements[0] = ((closureN)self_732958)->elements[0];
c_736284.elements[1] = ((closureN)self_732958)->elements[1];
c_736284.elements[2] = ((closureN)self_732958)->elements[2];
c_736284.elements[3] = ((closureN)self_732958)->elements[3];
c_736284.elements[4] = ((closureN)self_732958)->elements[4];
c_736284.elements[5] = ((closureN)self_732958)->elements[5];
c_736284.elements[6] = ((closureN)self_732958)->elements[6];

return_direct_with_clo1(data,(closure)&c_736237,__lambda_460,  &c_736284);; 
}

static void __lambda_466(void *data, object self_732959, int argc, object *args) /* object self_732959, object r_732055 */
 {
 object r_732055 = args[0];
  if( (boolean_f != r_732055) ){ 
  
pair_type local_736289; 




return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  ((closureN)self_732959)->elements[2], set_pair_as_expr(&local_736289, Cyc_car(data, ((closureN)self_732959)->elements[1]), ((closureN)self_732959)->elements[6]), Cyc_cdr(data, ((closureN)self_732959)->elements[1]), ((closureN)self_732959)->elements[0], ((closureN)self_732959)->elements[5], ((closureN)self_732959)->elements[3], ((closureN)self_732959)->elements[4]);
} else { 
    complex_num_type local_736303; 
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_ref_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_736303, Cyc_car(data, ((closureN)self_732959)->elements[1]))) ){ 
  
closureN_type c_736308;
object e_736330 [7];
c_736308.hdr.mark = gc_color_red;
 c_736308.hdr.grayed = 0;
c_736308.tag = closureN_tag;
 c_736308.fn = (function_type)__lambda_467;
c_736308.num_args = 1;
c_736308.num_elements = 7;
c_736308.elements = (object *)e_736330;
c_736308.elements[0] = ((closureN)self_732959)->elements[0];
c_736308.elements[1] = ((closureN)self_732959)->elements[1];
c_736308.elements[2] = ((closureN)self_732959)->elements[2];
c_736308.elements[3] = ((closureN)self_732959)->elements[3];
c_736308.elements[4] = ((closureN)self_732959)->elements[4];
c_736308.elements[5] = ((closureN)self_732959)->elements[5];
c_736308.elements[6] = ((closureN)self_732959)->elements[6];





return_direct_with_clo1(data,(closure)&c_736308,__lambda_467,  assoc(data, Cyc_car(data, ((closureN)self_732959)->elements[1]), ((closureN)self_732959)->elements[4]));
} else { 
  
closureN_type c_736338;
object e_736623 [7];
c_736338.hdr.mark = gc_color_red;
 c_736338.hdr.grayed = 0;
c_736338.tag = closureN_tag;
 c_736338.fn = (function_type)__lambda_468;
c_736338.num_args = 1;
c_736338.num_elements = 7;
c_736338.elements = (object *)e_736623;
c_736338.elements[0] = ((closureN)self_732959)->elements[0];
c_736338.elements[1] = ((closureN)self_732959)->elements[1];
c_736338.elements[2] = ((closureN)self_732959)->elements[2];
c_736338.elements[3] = ((closureN)self_732959)->elements[3];
c_736338.elements[4] = ((closureN)self_732959)->elements[4];
c_736338.elements[5] = ((closureN)self_732959)->elements[5];
c_736338.elements[6] = ((closureN)self_732959)->elements[6];



return_direct_with_clo2(data,  __glo_define_127_scheme_cyclone_util, (((closure)  __glo_define_127_scheme_cyclone_util)->fn),  &c_736338, Cyc_car(data, ((closureN)self_732959)->elements[1]));}
;}
;; 
}

static void __lambda_468(void *data, object self_732961, int argc, object *args) /* object self_732961, object r_732064 */
 {
 object r_732064 = args[0];
  if( (boolean_f != r_732064) ){ 
  
closureN_type c_736340;
object e_736357 [7];
c_736340.hdr.mark = gc_color_red;
 c_736340.hdr.grayed = 0;
c_736340.tag = closureN_tag;
 c_736340.fn = (function_type)__lambda_469;
c_736340.num_args = 1;
c_736340.num_elements = 7;
c_736340.elements = (object *)e_736357;
c_736340.elements[0] = ((closureN)self_732961)->elements[0];
c_736340.elements[1] = ((closureN)self_732961)->elements[1];
c_736340.elements[2] = ((closureN)self_732961)->elements[2];
c_736340.elements[3] = ((closureN)self_732961)->elements[3];
c_736340.elements[4] = ((closureN)self_732961)->elements[4];
c_736340.elements[5] = ((closureN)self_732961)->elements[5];
c_736340.elements[6] = ((closureN)self_732961)->elements[6];



return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_736340, Cyc_car(data, ((closureN)self_732961)->elements[1]), ((closureN)self_732961)->elements[0], ((closureN)self_732961)->elements[5], ((closureN)self_732961)->elements[3], ((closureN)self_732961)->elements[4]);
} else { 
  
closureN_type c_736366;
object e_736619 [7];
c_736366.hdr.mark = gc_color_red;
 c_736366.hdr.grayed = 0;
c_736366.tag = closureN_tag;
 c_736366.fn = (function_type)__lambda_471;
c_736366.num_args = 1;
c_736366.num_elements = 7;
c_736366.elements = (object *)e_736619;
c_736366.elements[0] = ((closureN)self_732961)->elements[0];
c_736366.elements[1] = ((closureN)self_732961)->elements[1];
c_736366.elements[2] = ((closureN)self_732961)->elements[2];
c_736366.elements[3] = ((closureN)self_732961)->elements[3];
c_736366.elements[4] = ((closureN)self_732961)->elements[4];
c_736366.elements[5] = ((closureN)self_732961)->elements[5];
c_736366.elements[6] = ((closureN)self_732961)->elements[6];



return_direct_with_clo2(data,  __glo_define_91syntax_127_scheme_cyclone_util, (((closure)  __glo_define_91syntax_127_scheme_cyclone_util)->fn),  &c_736366, Cyc_car(data, ((closureN)self_732961)->elements[1]));}
;; 
}

static void __lambda_471(void *data, object self_732964, int argc, object *args) /* object self_732964, object tmp_73734_73736_731126 */
 {
 object tmp_73734_73736_731126 = args[0];
  
closureN_type c_736368;
object e_736409 [2];
c_736368.hdr.mark = gc_color_red;
 c_736368.hdr.grayed = 0;
c_736368.tag = closureN_tag;
 c_736368.fn = (function_type)__lambda_472;
c_736368.num_args = 0;
c_736368.num_elements = 2;
c_736368.elements = (object *)e_736409;
c_736368.elements[0] = ((closureN)self_732964)->elements[1];
c_736368.elements[1] = tmp_73734_73736_731126;


closureN_type c_736410;
object e_736618 [7];
c_736410.hdr.mark = gc_color_red;
 c_736410.hdr.grayed = 0;
c_736410.tag = closureN_tag;
 c_736410.fn = (function_type)__lambda_477;
c_736410.num_args = 1;
c_736410.num_elements = 7;
c_736410.elements = (object *)e_736618;
c_736410.elements[0] = ((closureN)self_732964)->elements[0];
c_736410.elements[1] = ((closureN)self_732964)->elements[1];
c_736410.elements[2] = ((closureN)self_732964)->elements[2];
c_736410.elements[3] = ((closureN)self_732964)->elements[3];
c_736410.elements[4] = ((closureN)self_732964)->elements[4];
c_736410.elements[5] = ((closureN)self_732964)->elements[5];
c_736410.elements[6] = ((closureN)self_732964)->elements[6];

return_direct_with_clo1(data,(closure)&c_736368,__lambda_472,  &c_736410);; 
}

static void __lambda_477(void *data, object self_732965, int argc, object *args) /* object self_732965, object r_732068 */
 {
 object r_732068 = args[0];
  if( (boolean_f != r_732068) ){ 
  
closureN_type c_736412;
object e_736429 [7];
c_736412.hdr.mark = gc_color_red;
 c_736412.hdr.grayed = 0;
c_736412.tag = closureN_tag;
 c_736412.fn = (function_type)__lambda_478;
c_736412.num_args = 1;
c_736412.num_elements = 7;
c_736412.elements = (object *)e_736429;
c_736412.elements[0] = ((closureN)self_732965)->elements[0];
c_736412.elements[1] = ((closureN)self_732965)->elements[1];
c_736412.elements[2] = ((closureN)self_732965)->elements[2];
c_736412.elements[3] = ((closureN)self_732965)->elements[3];
c_736412.elements[4] = ((closureN)self_732965)->elements[4];
c_736412.elements[5] = ((closureN)self_732965)->elements[5];
c_736412.elements[6] = ((closureN)self_732965)->elements[6];



return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_736412, Cyc_car(data, ((closureN)self_732965)->elements[1]), ((closureN)self_732965)->elements[0], ((closureN)self_732965)->elements[5], ((closureN)self_732965)->elements[3], ((closureN)self_732965)->elements[4]);
} else { 
  
closureN_type c_736438;
object e_736614 [7];
c_736438.hdr.mark = gc_color_red;
 c_736438.hdr.grayed = 0;
c_736438.tag = closureN_tag;
 c_736438.fn = (function_type)__lambda_480;
c_736438.num_args = 1;
c_736438.num_elements = 7;
c_736438.elements = (object *)e_736614;
c_736438.elements[0] = ((closureN)self_732965)->elements[0];
c_736438.elements[1] = ((closureN)self_732965)->elements[1];
c_736438.elements[2] = ((closureN)self_732965)->elements[2];
c_736438.elements[3] = ((closureN)self_732965)->elements[3];
c_736438.elements[4] = ((closureN)self_732965)->elements[4];
c_736438.elements[5] = ((closureN)self_732965)->elements[5];
c_736438.elements[6] = ((closureN)self_732965)->elements[6];



return_direct_with_clo2(data,  __glo_begin_127_scheme_cyclone_util, (((closure)  __glo_begin_127_scheme_cyclone_util)->fn),  &c_736438, Cyc_car(data, ((closureN)self_732965)->elements[1]));}
;; 
}

static void __lambda_480(void *data, object self_732968, int argc, object *args) /* object self_732968, object r_732072 */
 {
 object r_732072 = args[0];
  if( (boolean_f != r_732072) ){ 
  
closureN_type c_736440;
object e_736448 [6];
c_736440.hdr.mark = gc_color_red;
 c_736440.hdr.grayed = 0;
c_736440.tag = closureN_tag;
 c_736440.fn = (function_type)__lambda_481;
c_736440.num_args = 1;
c_736440.num_elements = 6;
c_736440.elements = (object *)e_736448;
c_736440.elements[0] = ((closureN)self_732968)->elements[0];
c_736440.elements[1] = ((closureN)self_732968)->elements[2];
c_736440.elements[2] = ((closureN)self_732968)->elements[3];
c_736440.elements[3] = ((closureN)self_732968)->elements[4];
c_736440.elements[4] = ((closureN)self_732968)->elements[5];
c_736440.elements[5] = ((closureN)self_732968)->elements[6];







return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_736440, Cyc_cdr(data, Cyc_car(data, ((closureN)self_732968)->elements[1])), Cyc_cdr(data, ((closureN)self_732968)->elements[1]));
} else { 
    complex_num_type local_736459; 
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_app_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_736459, Cyc_car(data, ((closureN)self_732968)->elements[1]))) ){ 
    
  
if( (boolean_f != Cyc_is_symbol(Cyc_caar(data, ((closureN)self_732968)->elements[1]))) ){ 
  
closureN_type c_736469;
object e_736572 [7];
c_736469.hdr.mark = gc_color_red;
 c_736469.hdr.grayed = 0;
c_736469.tag = closureN_tag;
 c_736469.fn = (function_type)__lambda_482;
c_736469.num_args = 1;
c_736469.num_elements = 7;
c_736469.elements = (object *)e_736572;
c_736469.elements[0] = ((closureN)self_732968)->elements[0];
c_736469.elements[1] = ((closureN)self_732968)->elements[1];
c_736469.elements[2] = ((closureN)self_732968)->elements[2];
c_736469.elements[3] = ((closureN)self_732968)->elements[3];
c_736469.elements[4] = ((closureN)self_732968)->elements[4];
c_736469.elements[5] = ((closureN)self_732968)->elements[5];
c_736469.elements[6] = ((closureN)self_732968)->elements[6];





return_direct_with_clo1(data,(closure)&c_736469,__lambda_482,  assoc(data, Cyc_caar(data, ((closureN)self_732968)->elements[1]), ((closureN)self_732968)->elements[3]));
} else { 
  
closureN_type c_736580;
object e_736600 [7];
c_736580.hdr.mark = gc_color_red;
 c_736580.hdr.grayed = 0;
c_736580.tag = closureN_tag;
 c_736580.fn = (function_type)__lambda_491;
c_736580.num_args = 1;
c_736580.num_elements = 7;
c_736580.elements = (object *)e_736600;
c_736580.elements[0] = ((closureN)self_732968)->elements[0];
c_736580.elements[1] = ((closureN)self_732968)->elements[1];
c_736580.elements[2] = ((closureN)self_732968)->elements[2];
c_736580.elements[3] = ((closureN)self_732968)->elements[3];
c_736580.elements[4] = ((closureN)self_732968)->elements[4];
c_736580.elements[5] = ((closureN)self_732968)->elements[5];
c_736580.elements[6] = ((closureN)self_732968)->elements[6];


closureN_type c_736601;
object e_736607 [4];
c_736601.hdr.mark = gc_color_red;
 c_736601.hdr.grayed = 0;
c_736601.tag = closureN_tag;
 c_736601.fn = (function_type)__lambda_493;
c_736601.num_args = 1;
c_736601.num_elements = 4;
c_736601.elements = (object *)e_736607;
c_736601.elements[0] = ((closureN)self_732968)->elements[0];
c_736601.elements[1] = ((closureN)self_732968)->elements[3];
c_736601.elements[2] = ((closureN)self_732968)->elements[4];
c_736601.elements[3] = ((closureN)self_732968)->elements[5];

return_direct_with_clo1(data,(closure)&c_736580,__lambda_491,  &c_736601);}
;
} else { 
  
make_utf8_string_with_len(c_736610, "unknown exp: ", 13, 13);


return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_732968)->elements[2], &c_736610, Cyc_car(data, ((closureN)self_732968)->elements[1]));}
;}
;; 
}

static void __lambda_493(void *data, object self_732979, int argc, object *args) /* object self_732979, object k_732103, object expr_73782_731138 */
 {
 object k_732103 = args[0]; object expr_73782_731138 = args[1];
  return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  k_732103, expr_73782_731138, ((closureN)self_732979)->elements[0], ((closureN)self_732979)->elements[3], ((closureN)self_732979)->elements[1], ((closureN)self_732979)->elements[2]);; 
}

static void __lambda_491(void *data, object self_732980, int argc, object *args) /* object self_732980, object r_732102 */
 {
 object r_732102 = args[0];
  
closureN_type c_736582;
object e_736596 [7];
c_736582.hdr.mark = gc_color_red;
 c_736582.hdr.grayed = 0;
c_736582.tag = closureN_tag;
 c_736582.fn = (function_type)__lambda_492;
c_736582.num_args = 1;
c_736582.num_elements = 7;
c_736582.elements = (object *)e_736596;
c_736582.elements[0] = ((closureN)self_732980)->elements[0];
c_736582.elements[1] = ((closureN)self_732980)->elements[1];
c_736582.elements[2] = ((closureN)self_732980)->elements[2];
c_736582.elements[3] = ((closureN)self_732980)->elements[3];
c_736582.elements[4] = ((closureN)self_732980)->elements[4];
c_736582.elements[5] = ((closureN)self_732980)->elements[5];
c_736582.elements[6] = ((closureN)self_732980)->elements[6];



return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_736582, r_732102, Cyc_car(data, ((closureN)self_732980)->elements[1]));; 
}

static void __lambda_492(void *data, object self_732981, int argc, object *args) /* object self_732981, object r_732101 */
 {
 object r_732101 = args[0];
  
pair_type local_736587; 


return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  ((closureN)self_732981)->elements[2], set_pair_as_expr(&local_736587, r_732101, ((closureN)self_732981)->elements[6]), Cyc_cdr(data, ((closureN)self_732981)->elements[1]), ((closureN)self_732981)->elements[0], ((closureN)self_732981)->elements[5], ((closureN)self_732981)->elements[3], ((closureN)self_732981)->elements[4]);; 
}

static void __lambda_482(void *data, object self_732970, int argc, object *args) /* object self_732970, object local_73780_731137 */
 {
 object local_73780_731137 = args[0];
  
closureN_type c_736471;
object e_736482 [3];
c_736471.hdr.mark = gc_color_red;
 c_736471.hdr.grayed = 0;
c_736471.tag = closureN_tag;
 c_736471.fn = (function_type)__lambda_483;
c_736471.num_args = 0;
c_736471.num_elements = 3;
c_736471.elements = (object *)e_736482;
c_736471.elements[0] = ((closureN)self_732970)->elements[0];
c_736471.elements[1] = ((closureN)self_732970)->elements[1];
c_736471.elements[2] = local_73780_731137;


closureN_type c_736483;
object e_736571 [7];
c_736483.hdr.mark = gc_color_red;
 c_736483.hdr.grayed = 0;
c_736483.tag = closureN_tag;
 c_736483.fn = (function_type)__lambda_484;
c_736483.num_args = 1;
c_736483.num_elements = 7;
c_736483.elements = (object *)e_736571;
c_736483.elements[0] = ((closureN)self_732970)->elements[0];
c_736483.elements[1] = ((closureN)self_732970)->elements[1];
c_736483.elements[2] = ((closureN)self_732970)->elements[2];
c_736483.elements[3] = ((closureN)self_732970)->elements[3];
c_736483.elements[4] = ((closureN)self_732970)->elements[4];
c_736483.elements[5] = ((closureN)self_732970)->elements[5];
c_736483.elements[6] = ((closureN)self_732970)->elements[6];

return_direct_with_clo1(data,(closure)&c_736471,__lambda_483,  &c_736483);; 
}

static void __lambda_484(void *data, object self_732971, int argc, object *args) /* object self_732971, object val_73769_731133 */
 {
 object val_73769_731133 = args[0];
  
closureN_type c_736485;
object e_736567 [8];
c_736485.hdr.mark = gc_color_red;
 c_736485.hdr.grayed = 0;
c_736485.tag = closureN_tag;
 c_736485.fn = (function_type)__lambda_485;
c_736485.num_args = 1;
c_736485.num_elements = 8;
c_736485.elements = (object *)e_736567;
c_736485.elements[0] = ((closureN)self_732971)->elements[0];
c_736485.elements[1] = ((closureN)self_732971)->elements[1];
c_736485.elements[2] = ((closureN)self_732971)->elements[2];
c_736485.elements[3] = ((closureN)self_732971)->elements[3];
c_736485.elements[4] = ((closureN)self_732971)->elements[4];
c_736485.elements[5] = ((closureN)self_732971)->elements[5];
c_736485.elements[6] = ((closureN)self_732971)->elements[6];
c_736485.elements[7] = val_73769_731133;


complex_num_type local_736570; 
return_direct_with_clo1(data,(closure)&c_736485,__lambda_485,  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_736570, quote_macro, val_73769_731133));; 
}

static void __lambda_485(void *data, object self_732972, int argc, object *args) /* object self_732972, object r_732079 */
 {
 object r_732079 = args[0];
  if( (boolean_f != r_732079) ){ 
  
closureN_type c_736487;
object e_736501 [7];
c_736487.hdr.mark = gc_color_red;
 c_736487.hdr.grayed = 0;
c_736487.tag = closureN_tag;
 c_736487.fn = (function_type)__lambda_486;
c_736487.num_args = 1;
c_736487.num_elements = 7;
c_736487.elements = (object *)e_736501;
c_736487.elements[0] = ((closureN)self_732972)->elements[0];
c_736487.elements[1] = ((closureN)self_732972)->elements[1];
c_736487.elements[2] = ((closureN)self_732972)->elements[2];
c_736487.elements[3] = ((closureN)self_732972)->elements[3];
c_736487.elements[4] = ((closureN)self_732972)->elements[4];
c_736487.elements[5] = ((closureN)self_732972)->elements[5];
c_736487.elements[6] = ((closureN)self_732972)->elements[6];



return_direct_with_clo6(data,  __glo_macro_117expand_scheme_eval, (((closure)  __glo_macro_117expand_scheme_eval)->fn),  &c_736487, Cyc_car(data, ((closureN)self_732972)->elements[1]), ((closureN)self_732972)->elements[7], ((closureN)self_732972)->elements[0], ((closureN)self_732972)->elements[5], ((closureN)self_732972)->elements[4]);
} else { 
    
if( (boolean_f != Cyc_is_macro(((closureN)self_732972)->elements[7])) ){ 
  
closureN_type c_736513;
object e_736527 [7];
c_736513.hdr.mark = gc_color_red;
 c_736513.hdr.grayed = 0;
c_736513.tag = closureN_tag;
 c_736513.fn = (function_type)__lambda_487;
c_736513.num_args = 1;
c_736513.num_elements = 7;
c_736513.elements = (object *)e_736527;
c_736513.elements[0] = ((closureN)self_732972)->elements[0];
c_736513.elements[1] = ((closureN)self_732972)->elements[1];
c_736513.elements[2] = ((closureN)self_732972)->elements[2];
c_736513.elements[3] = ((closureN)self_732972)->elements[3];
c_736513.elements[4] = ((closureN)self_732972)->elements[4];
c_736513.elements[5] = ((closureN)self_732972)->elements[5];
c_736513.elements[6] = ((closureN)self_732972)->elements[6];




list_2_type local_736533; 
return_direct_with_clo6(data,  __glo_macro_117expand_scheme_eval, (((closure)  __glo_macro_117expand_scheme_eval)->fn),  &c_736513, Cyc_car(data, ((closureN)self_732972)->elements[1]), Cyc_fast_list_2(&local_736533, quote_macro, ((closureN)self_732972)->elements[7]), ((closureN)self_732972)->elements[0], ((closureN)self_732972)->elements[5], ((closureN)self_732972)->elements[4]);
} else { 
  
closureN_type c_736539;
object e_736559 [7];
c_736539.hdr.mark = gc_color_red;
 c_736539.hdr.grayed = 0;
c_736539.tag = closureN_tag;
 c_736539.fn = (function_type)__lambda_488;
c_736539.num_args = 1;
c_736539.num_elements = 7;
c_736539.elements = (object *)e_736559;
c_736539.elements[0] = ((closureN)self_732972)->elements[0];
c_736539.elements[1] = ((closureN)self_732972)->elements[1];
c_736539.elements[2] = ((closureN)self_732972)->elements[2];
c_736539.elements[3] = ((closureN)self_732972)->elements[3];
c_736539.elements[4] = ((closureN)self_732972)->elements[4];
c_736539.elements[5] = ((closureN)self_732972)->elements[5];
c_736539.elements[6] = ((closureN)self_732972)->elements[6];


closureN_type c_736560;
object e_736566 [4];
c_736560.hdr.mark = gc_color_red;
 c_736560.hdr.grayed = 0;
c_736560.tag = closureN_tag;
 c_736560.fn = (function_type)__lambda_490;
c_736560.num_args = 1;
c_736560.num_elements = 4;
c_736560.elements = (object *)e_736566;
c_736560.elements[0] = ((closureN)self_732972)->elements[0];
c_736560.elements[1] = ((closureN)self_732972)->elements[3];
c_736560.elements[2] = ((closureN)self_732972)->elements[4];
c_736560.elements[3] = ((closureN)self_732972)->elements[5];

return_direct_with_clo1(data,(closure)&c_736539,__lambda_488,  &c_736560);}
;}
;; 
}

static void __lambda_490(void *data, object self_732975, int argc, object *args) /* object self_732975, object k_732093, object expr_73779_731136 */
 {
 object k_732093 = args[0]; object expr_73779_731136 = args[1];
  return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  k_732093, expr_73779_731136, ((closureN)self_732975)->elements[0], ((closureN)self_732975)->elements[3], ((closureN)self_732975)->elements[1], ((closureN)self_732975)->elements[2]);; 
}

static void __lambda_488(void *data, object self_732976, int argc, object *args) /* object self_732976, object r_732092 */
 {
 object r_732092 = args[0];
  
closureN_type c_736541;
object e_736555 [7];
c_736541.hdr.mark = gc_color_red;
 c_736541.hdr.grayed = 0;
c_736541.tag = closureN_tag;
 c_736541.fn = (function_type)__lambda_489;
c_736541.num_args = 1;
c_736541.num_elements = 7;
c_736541.elements = (object *)e_736555;
c_736541.elements[0] = ((closureN)self_732976)->elements[0];
c_736541.elements[1] = ((closureN)self_732976)->elements[1];
c_736541.elements[2] = ((closureN)self_732976)->elements[2];
c_736541.elements[3] = ((closureN)self_732976)->elements[3];
c_736541.elements[4] = ((closureN)self_732976)->elements[4];
c_736541.elements[5] = ((closureN)self_732976)->elements[5];
c_736541.elements[6] = ((closureN)self_732976)->elements[6];



return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_736541, r_732092, Cyc_car(data, ((closureN)self_732976)->elements[1]));; 
}

static void __lambda_489(void *data, object self_732977, int argc, object *args) /* object self_732977, object r_732091 */
 {
 object r_732091 = args[0];
  
pair_type local_736546; 


return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  ((closureN)self_732977)->elements[2], set_pair_as_expr(&local_736546, r_732091, ((closureN)self_732977)->elements[6]), Cyc_cdr(data, ((closureN)self_732977)->elements[1]), ((closureN)self_732977)->elements[0], ((closureN)self_732977)->elements[5], ((closureN)self_732977)->elements[3], ((closureN)self_732977)->elements[4]);; 
}

static void __lambda_487(void *data, object self_732974, int argc, object *args) /* object self_732974, object expanded_73777_731135 */
 {
 object expanded_73777_731135 = args[0];
  
pair_type local_736519; 


return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  ((closureN)self_732974)->elements[2], ((closureN)self_732974)->elements[6], set_pair_as_expr(&local_736519, expanded_73777_731135, Cyc_cdr(data, ((closureN)self_732974)->elements[1])), ((closureN)self_732974)->elements[0], ((closureN)self_732974)->elements[5], ((closureN)self_732974)->elements[3], ((closureN)self_732974)->elements[4]);; 
}

static void __lambda_486(void *data, object self_732973, int argc, object *args) /* object self_732973, object expanded_73773_731134 */
 {
 object expanded_73773_731134 = args[0];
  
pair_type local_736493; 


return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  ((closureN)self_732973)->elements[2], ((closureN)self_732973)->elements[6], set_pair_as_expr(&local_736493, expanded_73773_731134, Cyc_cdr(data, ((closureN)self_732973)->elements[1])), ((closureN)self_732973)->elements[0], ((closureN)self_732973)->elements[5], ((closureN)self_732973)->elements[3], ((closureN)self_732973)->elements[4]);; 
}

static void __lambda_483(void *data, object self_732978, int argc, object *args) /* object self_732978, object k_732096 */
 {
 object k_732096 = args[0];
  if( (boolean_f != ((closureN)self_732978)->elements[2]) ){ 
  

return_direct_with_clo1(data,  k_732096, (((closure)  k_732096)->fn),  Cyc_cdr(data, ((closureN)self_732978)->elements[2]));
} else { 
  

return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  k_732096, Cyc_caar(data, ((closureN)self_732978)->elements[1]), ((closureN)self_732978)->elements[0], boolean_f);}
;; 
}

static void __lambda_481(void *data, object self_732969, int argc, object *args) /* object self_732969, object r_732074 */
 {
 object r_732074 = args[0];
  return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  ((closureN)self_732969)->elements[1], ((closureN)self_732969)->elements[5], r_732074, ((closureN)self_732969)->elements[0], ((closureN)self_732969)->elements[4], ((closureN)self_732969)->elements[2], ((closureN)self_732969)->elements[3]);; 
}

static void __lambda_478(void *data, object self_732966, int argc, object *args) /* object self_732966, object r_732071 */
 {
 object r_732071 = args[0];
  
closureN_type c_736414;
object e_736424 [6];
c_736414.hdr.mark = gc_color_red;
 c_736414.hdr.grayed = 0;
c_736414.tag = closureN_tag;
 c_736414.fn = (function_type)__lambda_479;
c_736414.num_args = 1;
c_736414.num_elements = 6;
c_736414.elements = (object *)e_736424;
c_736414.elements[0] = ((closureN)self_732966)->elements[0];
c_736414.elements[1] = ((closureN)self_732966)->elements[1];
c_736414.elements[2] = ((closureN)self_732966)->elements[2];
c_736414.elements[3] = ((closureN)self_732966)->elements[3];
c_736414.elements[4] = ((closureN)self_732966)->elements[4];
c_736414.elements[5] = ((closureN)self_732966)->elements[5];


pair_type local_736427; 
return_direct_with_clo1(data,(closure)&c_736414,__lambda_479,  set_pair_as_expr(&local_736427, r_732071, ((closureN)self_732966)->elements[6]));; 
}

static void __lambda_479(void *data, object self_732967, int argc, object *args) /* object self_732967, object r_732069 */
 {
 object r_732069 = args[0];
  

return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  ((closureN)self_732967)->elements[2], r_732069, Cyc_cdr(data, ((closureN)self_732967)->elements[1]), ((closureN)self_732967)->elements[0], ((closureN)self_732967)->elements[5], ((closureN)self_732967)->elements[3], ((closureN)self_732967)->elements[4]);; 
}

static void __lambda_472(void *data, object self_732982, int argc, object *args) /* object self_732982, object k_732106 */
 {
 object k_732106 = args[0];
  if( (boolean_f != ((closureN)self_732982)->elements[1]) ){ 
  return_direct_with_clo1(data,  k_732106, (((closure)  k_732106)->fn),  ((closureN)self_732982)->elements[1]);
} else { 
  
closureN_type c_736373;
object e_736405 [2];
c_736373.hdr.mark = gc_color_red;
 c_736373.hdr.grayed = 0;
c_736373.tag = closureN_tag;
 c_736373.fn = (function_type)__lambda_473;
c_736373.num_args = 1;
c_736373.num_elements = 2;
c_736373.elements = (object *)e_736405;
c_736373.elements[0] = ((closureN)self_732982)->elements[0];
c_736373.elements[1] = k_732106;



return_direct_with_clo2(data,  __glo_letrec_91syntax_127_scheme_cyclone_util, (((closure)  __glo_letrec_91syntax_127_scheme_cyclone_util)->fn),  &c_736373, Cyc_car(data, ((closureN)self_732982)->elements[0]));}
;; 
}

static void __lambda_473(void *data, object self_732983, int argc, object *args) /* object self_732983, object tmp_73738_73740_731127 */
 {
 object tmp_73738_73740_731127 = args[0];
  if( (boolean_f != tmp_73738_73740_731127) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732983)->elements[1], (((closure)  ((closureN)self_732983)->elements[1])->fn),  tmp_73738_73740_731127);
} else { 
  
closureN_type c_736377;
object e_736401 [2];
c_736377.hdr.mark = gc_color_red;
 c_736377.hdr.grayed = 0;
c_736377.tag = closureN_tag;
 c_736377.fn = (function_type)__lambda_474;
c_736377.num_args = 1;
c_736377.num_elements = 2;
c_736377.elements = (object *)e_736401;
c_736377.elements[0] = ((closureN)self_732983)->elements[0];
c_736377.elements[1] = ((closureN)self_732983)->elements[1];



return_direct_with_clo2(data,  __glo_let_91syntax_127_scheme_cyclone_util, (((closure)  __glo_let_91syntax_127_scheme_cyclone_util)->fn),  &c_736377, Cyc_car(data, ((closureN)self_732983)->elements[0]));}
;; 
}

static void __lambda_474(void *data, object self_732984, int argc, object *args) /* object self_732984, object tmp_73742_73744_731128 */
 {
 object tmp_73742_73744_731128 = args[0];
  if( (boolean_f != tmp_73742_73744_731128) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732984)->elements[1], (((closure)  ((closureN)self_732984)->elements[1])->fn),  tmp_73742_73744_731128);
} else { 
  
closureN_type c_736381;
object e_736397 [2];
c_736381.hdr.mark = gc_color_red;
 c_736381.hdr.grayed = 0;
c_736381.tag = closureN_tag;
 c_736381.fn = (function_type)__lambda_475;
c_736381.num_args = 1;
c_736381.num_elements = 2;
c_736381.elements = (object *)e_736397;
c_736381.elements[0] = ((closureN)self_732984)->elements[0];
c_736381.elements[1] = ((closureN)self_732984)->elements[1];



return_direct_with_clo2(data,  __glo_lambda_127_scheme_cyclone_util, (((closure)  __glo_lambda_127_scheme_cyclone_util)->fn),  &c_736381, Cyc_car(data, ((closureN)self_732984)->elements[0]));}
;; 
}

static void __lambda_475(void *data, object self_732985, int argc, object *args) /* object self_732985, object tmp_73746_73748_731129 */
 {
 object tmp_73746_73748_731129 = args[0];
  if( (boolean_f != tmp_73746_73748_731129) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732985)->elements[1], (((closure)  ((closureN)self_732985)->elements[1])->fn),  tmp_73746_73748_731129);
} else { 
  
closureN_type c_736385;
object e_736393 [2];
c_736385.hdr.mark = gc_color_red;
 c_736385.hdr.grayed = 0;
c_736385.tag = closureN_tag;
 c_736385.fn = (function_type)__lambda_476;
c_736385.num_args = 1;
c_736385.num_elements = 2;
c_736385.elements = (object *)e_736393;
c_736385.elements[0] = ((closureN)self_732985)->elements[0];
c_736385.elements[1] = ((closureN)self_732985)->elements[1];



return_direct_with_clo2(data,  __glo_set_67_127_scheme_cyclone_util, (((closure)  __glo_set_67_127_scheme_cyclone_util)->fn),  &c_736385, Cyc_car(data, ((closureN)self_732985)->elements[0]));}
;; 
}

static void __lambda_476(void *data, object self_732986, int argc, object *args) /* object self_732986, object tmp_73750_73752_731130 */
 {
 object tmp_73750_73752_731130 = args[0];
  if( (boolean_f != tmp_73750_73752_731130) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732986)->elements[1], (((closure)  ((closureN)self_732986)->elements[1])->fn),  tmp_73750_73752_731130);
} else { 
  

return_direct_with_clo2(data,  __glo_if_127_scheme_cyclone_util, (((closure)  __glo_if_127_scheme_cyclone_util)->fn),  ((closureN)self_732986)->elements[1], Cyc_car(data, ((closureN)self_732986)->elements[0]));}
;; 
}

static void __lambda_469(void *data, object self_732962, int argc, object *args) /* object self_732962, object r_732067 */
 {
 object r_732067 = args[0];
  
closureN_type c_736342;
object e_736352 [6];
c_736342.hdr.mark = gc_color_red;
 c_736342.hdr.grayed = 0;
c_736342.tag = closureN_tag;
 c_736342.fn = (function_type)__lambda_470;
c_736342.num_args = 1;
c_736342.num_elements = 6;
c_736342.elements = (object *)e_736352;
c_736342.elements[0] = ((closureN)self_732962)->elements[0];
c_736342.elements[1] = ((closureN)self_732962)->elements[1];
c_736342.elements[2] = ((closureN)self_732962)->elements[2];
c_736342.elements[3] = ((closureN)self_732962)->elements[3];
c_736342.elements[4] = ((closureN)self_732962)->elements[4];
c_736342.elements[5] = ((closureN)self_732962)->elements[5];


pair_type local_736355; 
return_direct_with_clo1(data,(closure)&c_736342,__lambda_470,  set_pair_as_expr(&local_736355, r_732067, ((closureN)self_732962)->elements[6]));; 
}

static void __lambda_470(void *data, object self_732963, int argc, object *args) /* object self_732963, object r_732065 */
 {
 object r_732065 = args[0];
  

return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  ((closureN)self_732963)->elements[2], r_732065, Cyc_cdr(data, ((closureN)self_732963)->elements[1]), ((closureN)self_732963)->elements[0], ((closureN)self_732963)->elements[5], ((closureN)self_732963)->elements[3], ((closureN)self_732963)->elements[4]);; 
}

static void __lambda_467(void *data, object self_732960, int argc, object *args) /* object self_732960, object renamed_73722_731124 */
 {
 object renamed_73722_731124 = args[0];
  object sym_73725_731125;
  if( (boolean_f != renamed_73722_731124) ){ 
  
  sym_73725_731125 = Cyc_cdr(data, renamed_73722_731124);
} else { 
  
  sym_73725_731125 = Cyc_car(data, ((closureN)self_732960)->elements[1]);}
;
pair_type local_736321; 


return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  ((closureN)self_732960)->elements[2], set_pair_as_expr(&local_736321, sym_73725_731125, ((closureN)self_732960)->elements[6]), Cyc_cdr(data, ((closureN)self_732960)->elements[1]), ((closureN)self_732960)->elements[0], ((closureN)self_732960)->elements[5], ((closureN)self_732960)->elements[3], ((closureN)self_732960)->elements[4]);; 
}

static void __lambda_460(void *data, object self_732987, int argc, object *args) /* object self_732987, object k_732112 */
 {
 object k_732112 = args[0];
  if( (boolean_f != ((closureN)self_732987)->elements[2]) ){ 
  return_direct_with_clo1(data,  k_732112, (((closure)  k_732112)->fn),  ((closureN)self_732987)->elements[2]);
} else { 
  
closureN_type c_736242;
object e_736265 [2];
c_736242.hdr.mark = gc_color_red;
 c_736242.hdr.grayed = 0;
c_736242.tag = closureN_tag;
 c_736242.fn = (function_type)__lambda_461;
c_736242.num_args = 0;
c_736242.num_elements = 2;
c_736242.elements = (object *)e_736265;
c_736242.elements[0] = ((closureN)self_732987)->elements[0];
c_736242.elements[1] = ((closureN)self_732987)->elements[1];


closureN_type c_736266;
object e_736282 [2];
c_736266.hdr.mark = gc_color_red;
 c_736266.hdr.grayed = 0;
c_736266.tag = closureN_tag;
 c_736266.fn = (function_type)__lambda_464;
c_736266.num_args = 1;
c_736266.num_elements = 2;
c_736266.elements = (object *)e_736282;
c_736266.elements[0] = ((closureN)self_732987)->elements[0];
c_736266.elements[1] = k_732112;

return_direct_with_clo1(data,(closure)&c_736242,__lambda_461,  &c_736266);}
;; 
}

static void __lambda_464(void *data, object self_732988, int argc, object *args) /* object self_732988, object tmp_73709_73711_731122 */
 {
 object tmp_73709_73711_731122 = args[0];
  if( (boolean_f != tmp_73709_73711_731122) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732988)->elements[1], (((closure)  ((closureN)self_732988)->elements[1])->fn),  tmp_73709_73711_731122);
} else { 
  
closureN_type c_736270;
object e_736278 [2];
c_736270.hdr.mark = gc_color_red;
 c_736270.hdr.grayed = 0;
c_736270.tag = closureN_tag;
 c_736270.fn = (function_type)__lambda_465;
c_736270.num_args = 1;
c_736270.num_elements = 2;
c_736270.elements = (object *)e_736278;
c_736270.elements[0] = ((closureN)self_732988)->elements[0];
c_736270.elements[1] = ((closureN)self_732988)->elements[1];



return_direct_with_clo2(data,  __glo_quote_127_scheme_cyclone_util, (((closure)  __glo_quote_127_scheme_cyclone_util)->fn),  &c_736270, Cyc_car(data, ((closureN)self_732988)->elements[0]));}
;; 
}

static void __lambda_465(void *data, object self_732989, int argc, object *args) /* object self_732989, object tmp_73713_73715_731123 */
 {
 object tmp_73713_73715_731123 = args[0];
  if( (boolean_f != tmp_73713_73715_731123) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732989)->elements[1], (((closure)  ((closureN)self_732989)->elements[1])->fn),  tmp_73713_73715_731123);
} else { 
  

return_direct_with_clo2(data,  __glo_define_91c_127_scheme_cyclone_util, (((closure)  __glo_define_91c_127_scheme_cyclone_util)->fn),  ((closureN)self_732989)->elements[1], Cyc_car(data, ((closureN)self_732989)->elements[0]));}
;; 
}

static void __lambda_461(void *data, object self_732990, int argc, object *args) /* object self_732990, object k_732115 */
 {
 object k_732115 = args[0];
  
closureN_type c_736244;
object e_736261 [3];
c_736244.hdr.mark = gc_color_red;
 c_736244.hdr.grayed = 0;
c_736244.tag = closureN_tag;
 c_736244.fn = (function_type)__lambda_462;
c_736244.num_args = 1;
c_736244.num_elements = 3;
c_736244.elements = (object *)e_736261;
c_736244.elements[0] = ((closureN)self_732990)->elements[0];
c_736244.elements[1] = k_732115;
c_736244.elements[2] = ((closureN)self_732990)->elements[1];



return_direct_with_clo2(data,  __glo_prim_127_scheme_cyclone_primitives, (((closure)  __glo_prim_127_scheme_cyclone_primitives)->fn),  &c_736244, Cyc_car(data, ((closureN)self_732990)->elements[0]));; 
}

static void __lambda_462(void *data, object self_732991, int argc, object *args) /* object self_732991, object r_732116 */
 {
 object r_732116 = args[0];
  if( (boolean_f != r_732116) ){ 
  
closureN_type c_736246;
object e_736252 [1];
c_736246.hdr.mark = gc_color_red;
 c_736246.hdr.grayed = 0;
c_736246.tag = closureN_tag;
 c_736246.fn = (function_type)__lambda_463;
c_736246.num_args = 1;
c_736246.num_elements = 1;
c_736246.elements = (object *)e_736252;
c_736246.elements[0] = ((closureN)self_732991)->elements[1];





return_direct_with_clo1(data,(closure)&c_736246,__lambda_463,  assoc(data, Cyc_car(data, ((closureN)self_732991)->elements[0]), ((closureN)self_732991)->elements[2]));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732991)->elements[1], (((closure)  ((closureN)self_732991)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_463(void *data, object self_732992, int argc, object *args) /* object self_732992, object r_732117 */
 {
 object r_732117 = args[0];
  
complex_num_type local_736251; 
return_direct_with_clo1(data,  ((closureN)self_732992)->elements[0], (((closure)  ((closureN)self_732992)->elements[0])->fn),  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_736251, r_732117));; 
}

static void __lambda_457(void *data, object _, int argc, object *args) /* closure _,object k_732047, object result_73690_731110, object exp_73691_731111, object env_73692_731112, object rename_91env_73693_731113 */
 {
object k_732047 = args[0]; object result_73690_731110 = args[1]; object exp_73691_731111 = args[2]; object env_73692_731112 = args[3]; object rename_91env_73693_731113 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:expand-body");
return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  k_732047, result_73690_731110, exp_73691_731111, env_73692_731112, rename_91env_73693_731113, NULL, NULL);; 
}

static void __lambda_456(void *data, object _, int argc, object *args) /* closure _,object k_732043, object exp_73687_731107, object env_73688_731108, object rename_91env_73689_731109 */
 {
object k_732043 = args[0]; object exp_73687_731107 = args[1]; object env_73688_731108 = args[2]; object rename_91env_73689_731109 = args[3];
  Cyc_st_add(data, "scheme/eval.sld:expand-lambda-body");
return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  k_732043, NULL, exp_73687_731107, env_73688_731108, rename_91env_73689_731109, NULL, NULL);; 
}

static void __lambda_455(void *data, object _, int argc, object *args) /* closure _,object k_732035, object exp_73686_731106 */
 {
object k_732035 = args[0]; object exp_73686_731106 = args[1];
  object r_732036;
  Cyc_st_add(data, "scheme/eval.sld:macro:syntax-rules?");
  object local_736216 = alloca(sizeof(complex_num_type)); 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,local_736216, quote_macro, exp_73686_731106)) ){ 
  
  
  r_732036 = Cyc_get_cvar(Cyc_cadr(data, exp_73686_731106));
} else { 
  r_732036 = exp_73686_731106;}
;

return_direct_with_clo1(data,  k_732035, (((closure)  k_732035)->fn),  Cyc_eq(__glo_syntax_91rules_scheme_base, r_732036));; 
}

static void __lambda_361(void *data, object _, int argc, object *args) /* closure _,object k_731869, object exp_73507_731066, object env_73508_731067, object rename_91env_73509_731068, object local_91env_73510_731069, object local_91renamed_73511_731070 */
 {
object k_731869 = args[0]; object exp_73507_731066 = args[1]; object env_73508_731067 = args[2]; object rename_91env_73509_731068 = args[3]; object local_91env_73510_731069 = args[4]; object local_91renamed_73511_731070 = args[5];
  Cyc_st_add(data, "scheme/eval.sld:_expand");

closureN_type c_735449;
object e_736211 [6];
c_735449.hdr.mark = gc_color_red;
 c_735449.hdr.grayed = 0;
c_735449.tag = closureN_tag;
 c_735449.fn = (function_type)__lambda_362;
c_735449.num_args = 1;
c_735449.num_elements = 6;
c_735449.elements = (object *)e_736211;
c_735449.elements[0] = env_73508_731067;
c_735449.elements[1] = exp_73507_731066;
c_735449.elements[2] = k_731869;
c_735449.elements[3] = local_91env_73510_731069;
c_735449.elements[4] = local_91renamed_73511_731070;
c_735449.elements[5] = rename_91env_73509_731068;

return_direct_with_clo2(data,  __glo_const_127_scheme_cyclone_util, (((closure)  __glo_const_127_scheme_cyclone_util)->fn),  &c_735449, exp_73507_731066);; 
}

static void __lambda_362(void *data, object self_732865, int argc, object *args) /* object self_732865, object r_731870 */
 {
 object r_731870 = args[0];
  if( (boolean_f != r_731870) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732865)->elements[2], (((closure)  ((closureN)self_732865)->elements[2])->fn),  ((closureN)self_732865)->elements[1]);
} else { 
    
if( (boolean_f != Cyc_is_null(((closureN)self_732865)->elements[1])) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732865)->elements[2], (((closure)  ((closureN)self_732865)->elements[2])->fn),  ((closureN)self_732865)->elements[1]);
} else { 
  object r_731872;
    
if( (boolean_f != Cyc_is_pair(((closureN)self_732865)->elements[1])) ){ 
  object local_735466 = alloca(sizeof(complex_num_type)); 
  object local_735469 = alloca(sizeof(complex_num_type)); 
  r_731872 = ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,local_735466, ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,local_735469, ((closureN)self_732865)->elements[1]));
} else { 
  r_731872 = boolean_f;}
;if( (boolean_f != r_731872) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732865)->elements[2], (((closure)  ((closureN)self_732865)->elements[2])->fn),  ((closureN)self_732865)->elements[1]);
} else { 
  
closureN_type c_735476;
object e_735495 [2];
c_735476.hdr.mark = gc_color_red;
 c_735476.hdr.grayed = 0;
c_735476.tag = closureN_tag;
 c_735476.fn = (function_type)__lambda_363;
c_735476.num_args = 0;
c_735476.num_elements = 2;
c_735476.elements = (object *)e_735495;
c_735476.elements[0] = ((closureN)self_732865)->elements[1];
c_735476.elements[1] = ((closureN)self_732865)->elements[4];


closureN_type c_735496;
object e_736210 [6];
c_735496.hdr.mark = gc_color_red;
 c_735496.hdr.grayed = 0;
c_735496.tag = closureN_tag;
 c_735496.fn = (function_type)__lambda_366;
c_735496.num_args = 1;
c_735496.num_elements = 6;
c_735496.elements = (object *)e_736210;
c_735496.elements[0] = ((closureN)self_732865)->elements[0];
c_735496.elements[1] = ((closureN)self_732865)->elements[1];
c_735496.elements[2] = ((closureN)self_732865)->elements[2];
c_735496.elements[3] = ((closureN)self_732865)->elements[3];
c_735496.elements[4] = ((closureN)self_732865)->elements[4];
c_735496.elements[5] = ((closureN)self_732865)->elements[5];

return_direct_with_clo1(data,(closure)&c_735476,__lambda_363,  &c_735496);}
;}
;}
;; 
}

static void __lambda_366(void *data, object self_732866, int argc, object *args) /* object self_732866, object r_731873 */
 {
 object r_731873 = args[0];
  if( (boolean_f != r_731873) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732866)->elements[2], (((closure)  ((closureN)self_732866)->elements[2])->fn),  ((closureN)self_732866)->elements[1]);
} else { 
  
closureN_type c_735501;
object e_736205 [6];
c_735501.hdr.mark = gc_color_red;
 c_735501.hdr.grayed = 0;
c_735501.tag = closureN_tag;
 c_735501.fn = (function_type)__lambda_367;
c_735501.num_args = 1;
c_735501.num_elements = 6;
c_735501.elements = (object *)e_736205;
c_735501.elements[0] = ((closureN)self_732866)->elements[0];
c_735501.elements[1] = ((closureN)self_732866)->elements[1];
c_735501.elements[2] = ((closureN)self_732866)->elements[2];
c_735501.elements[3] = ((closureN)self_732866)->elements[3];
c_735501.elements[4] = ((closureN)self_732866)->elements[4];
c_735501.elements[5] = ((closureN)self_732866)->elements[5];


complex_num_type local_736208; 
return_direct_with_clo1(data,(closure)&c_735501,__lambda_367,  ((inline_function_type)
                   ((closure)__glo_ref_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_736208, ((closureN)self_732866)->elements[1]));}
;; 
}

static void __lambda_367(void *data, object self_732867, int argc, object *args) /* object self_732867, object r_731874 */
 {
 object r_731874 = args[0];
  if( (boolean_f != r_731874) ){ 
  
closureN_type c_735503;
object e_735511 [2];
c_735503.hdr.mark = gc_color_red;
 c_735503.hdr.grayed = 0;
c_735503.tag = closureN_tag;
 c_735503.fn = (function_type)__lambda_368;
c_735503.num_args = 1;
c_735503.num_elements = 2;
c_735503.elements = (object *)e_735511;
c_735503.elements[0] = ((closureN)self_732867)->elements[1];
c_735503.elements[1] = ((closureN)self_732867)->elements[2];



return_direct_with_clo1(data,(closure)&c_735503,__lambda_368,  assoc(data, ((closureN)self_732867)->elements[1], ((closureN)self_732867)->elements[4]));
} else { 
  
closureN_type c_735517;
object e_736203 [6];
c_735517.hdr.mark = gc_color_red;
 c_735517.hdr.grayed = 0;
c_735517.tag = closureN_tag;
 c_735517.fn = (function_type)__lambda_369;
c_735517.num_args = 1;
c_735517.num_elements = 6;
c_735517.elements = (object *)e_736203;
c_735517.elements[0] = ((closureN)self_732867)->elements[0];
c_735517.elements[1] = ((closureN)self_732867)->elements[1];
c_735517.elements[2] = ((closureN)self_732867)->elements[2];
c_735517.elements[3] = ((closureN)self_732867)->elements[3];
c_735517.elements[4] = ((closureN)self_732867)->elements[4];
c_735517.elements[5] = ((closureN)self_732867)->elements[5];

return_direct_with_clo2(data,  __glo_quote_127_scheme_cyclone_util, (((closure)  __glo_quote_127_scheme_cyclone_util)->fn),  &c_735517, ((closureN)self_732867)->elements[1]);}
;; 
}

static void __lambda_369(void *data, object self_732869, int argc, object *args) /* object self_732869, object r_731876 */
 {
 object r_731876 = args[0];
  if( (boolean_f != r_731876) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732869)->elements[2], (((closure)  ((closureN)self_732869)->elements[2])->fn),  ((closureN)self_732869)->elements[1]);
} else { 
  
closureN_type c_735522;
object e_736201 [6];
c_735522.hdr.mark = gc_color_red;
 c_735522.hdr.grayed = 0;
c_735522.tag = closureN_tag;
 c_735522.fn = (function_type)__lambda_370;
c_735522.num_args = 1;
c_735522.num_elements = 6;
c_735522.elements = (object *)e_736201;
c_735522.elements[0] = ((closureN)self_732869)->elements[0];
c_735522.elements[1] = ((closureN)self_732869)->elements[1];
c_735522.elements[2] = ((closureN)self_732869)->elements[2];
c_735522.elements[3] = ((closureN)self_732869)->elements[3];
c_735522.elements[4] = ((closureN)self_732869)->elements[4];
c_735522.elements[5] = ((closureN)self_732869)->elements[5];

return_direct_with_clo2(data,  __glo_lambda_127_scheme_cyclone_util, (((closure)  __glo_lambda_127_scheme_cyclone_util)->fn),  &c_735522, ((closureN)self_732869)->elements[1]);}
;; 
}

static void __lambda_370(void *data, object self_732870, int argc, object *args) /* object self_732870, object r_731877 */
 {
 object r_731877 = args[0];
  if( (boolean_f != r_731877) ){ 
  
closureN_type c_735524;
object e_735584 [6];
c_735524.hdr.mark = gc_color_red;
 c_735524.hdr.grayed = 0;
c_735524.tag = closureN_tag;
 c_735524.fn = (function_type)__lambda_371;
c_735524.num_args = 1;
c_735524.num_elements = 6;
c_735524.elements = (object *)e_735584;
c_735524.elements[0] = ((closureN)self_732870)->elements[0];
c_735524.elements[1] = ((closureN)self_732870)->elements[1];
c_735524.elements[2] = ((closureN)self_732870)->elements[2];
c_735524.elements[3] = ((closureN)self_732870)->elements[3];
c_735524.elements[4] = ((closureN)self_732870)->elements[4];
c_735524.elements[5] = ((closureN)self_732870)->elements[5];

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_735524, NULL, NULL, NULL);
} else { 
  
closureN_type c_735586;
object e_736199 [6];
c_735586.hdr.mark = gc_color_red;
 c_735586.hdr.grayed = 0;
c_735586.tag = closureN_tag;
 c_735586.fn = (function_type)__lambda_383;
c_735586.num_args = 1;
c_735586.num_elements = 6;
c_735586.elements = (object *)e_736199;
c_735586.elements[0] = ((closureN)self_732870)->elements[0];
c_735586.elements[1] = ((closureN)self_732870)->elements[1];
c_735586.elements[2] = ((closureN)self_732870)->elements[2];
c_735586.elements[3] = ((closureN)self_732870)->elements[3];
c_735586.elements[4] = ((closureN)self_732870)->elements[4];
c_735586.elements[5] = ((closureN)self_732870)->elements[5];

return_direct_with_clo2(data,  __glo_define_127_scheme_cyclone_util, (((closure)  __glo_define_127_scheme_cyclone_util)->fn),  &c_735586, ((closureN)self_732870)->elements[1]);}
;; 
}

static void __lambda_383(void *data, object self_732883, int argc, object *args) /* object self_732883, object r_731897 */
 {
 object r_731897 = args[0];
  if( (boolean_f != r_731897) ){ 
  
closureN_type c_735588;
object e_735636 [6];
c_735588.hdr.mark = gc_color_red;
 c_735588.hdr.grayed = 0;
c_735588.tag = closureN_tag;
 c_735588.fn = (function_type)__lambda_384;
c_735588.num_args = 1;
c_735588.num_elements = 6;
c_735588.elements = (object *)e_735636;
c_735588.elements[0] = ((closureN)self_732883)->elements[0];
c_735588.elements[1] = ((closureN)self_732883)->elements[1];
c_735588.elements[2] = ((closureN)self_732883)->elements[2];
c_735588.elements[3] = ((closureN)self_732883)->elements[3];
c_735588.elements[4] = ((closureN)self_732883)->elements[4];
c_735588.elements[5] = ((closureN)self_732883)->elements[5];

return_direct_with_clo2(data,  __glo_define_91lambda_127_scheme_cyclone_util, (((closure)  __glo_define_91lambda_127_scheme_cyclone_util)->fn),  &c_735588, ((closureN)self_732883)->elements[1]);
} else { 
  
closureN_type c_735639;
object e_736197 [6];
c_735639.hdr.mark = gc_color_red;
 c_735639.hdr.grayed = 0;
c_735639.tag = closureN_tag;
 c_735639.fn = (function_type)__lambda_391;
c_735639.num_args = 1;
c_735639.num_elements = 6;
c_735639.elements = (object *)e_736197;
c_735639.elements[0] = ((closureN)self_732883)->elements[0];
c_735639.elements[1] = ((closureN)self_732883)->elements[1];
c_735639.elements[2] = ((closureN)self_732883)->elements[2];
c_735639.elements[3] = ((closureN)self_732883)->elements[3];
c_735639.elements[4] = ((closureN)self_732883)->elements[4];
c_735639.elements[5] = ((closureN)self_732883)->elements[5];

return_direct_with_clo2(data,  __glo_set_67_127_scheme_cyclone_util, (((closure)  __glo_set_67_127_scheme_cyclone_util)->fn),  &c_735639, ((closureN)self_732883)->elements[1]);}
;; 
}

static void __lambda_391(void *data, object self_732891, int argc, object *args) /* object self_732891, object r_731906 */
 {
 object r_731906 = args[0];
  if( (boolean_f != r_731906) ){ 
  
closureN_type c_735641;
object e_735668 [6];
c_735641.hdr.mark = gc_color_red;
 c_735641.hdr.grayed = 0;
c_735641.tag = closureN_tag;
 c_735641.fn = (function_type)__lambda_392;
c_735641.num_args = 1;
c_735641.num_elements = 6;
c_735641.elements = (object *)e_735668;
c_735641.elements[0] = ((closureN)self_732891)->elements[0];
c_735641.elements[1] = ((closureN)self_732891)->elements[1];
c_735641.elements[2] = ((closureN)self_732891)->elements[2];
c_735641.elements[3] = ((closureN)self_732891)->elements[3];
c_735641.elements[4] = ((closureN)self_732891)->elements[4];
c_735641.elements[5] = ((closureN)self_732891)->elements[5];


complex_num_type local_735671; 
return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_735641, ((inline_function_type)
                   ((closure)__glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735671, ((closureN)self_732891)->elements[1]), ((closureN)self_732891)->elements[0], ((closureN)self_732891)->elements[5], ((closureN)self_732891)->elements[3], ((closureN)self_732891)->elements[4]);
} else { 
  
closureN_type c_735678;
object e_736195 [6];
c_735678.hdr.mark = gc_color_red;
 c_735678.hdr.grayed = 0;
c_735678.tag = closureN_tag;
 c_735678.fn = (function_type)__lambda_395;
c_735678.num_args = 1;
c_735678.num_elements = 6;
c_735678.elements = (object *)e_736195;
c_735678.elements[0] = ((closureN)self_732891)->elements[0];
c_735678.elements[1] = ((closureN)self_732891)->elements[1];
c_735678.elements[2] = ((closureN)self_732891)->elements[2];
c_735678.elements[3] = ((closureN)self_732891)->elements[3];
c_735678.elements[4] = ((closureN)self_732891)->elements[4];
c_735678.elements[5] = ((closureN)self_732891)->elements[5];

return_direct_with_clo2(data,  __glo_if_91syntax_127_scheme_cyclone_util, (((closure)  __glo_if_91syntax_127_scheme_cyclone_util)->fn),  &c_735678, ((closureN)self_732891)->elements[1]);}
;; 
}

static void __lambda_395(void *data, object self_732895, int argc, object *args) /* object self_732895, object r_731915 */
 {
 object r_731915 = args[0];
  if( (boolean_f != r_731915) ){ 
  
closureN_type c_735680;
object e_735742 [6];
c_735680.hdr.mark = gc_color_red;
 c_735680.hdr.grayed = 0;
c_735680.tag = closureN_tag;
 c_735680.fn = (function_type)__lambda_396;
c_735680.num_args = 1;
c_735680.num_elements = 6;
c_735680.elements = (object *)e_735742;
c_735680.elements[0] = ((closureN)self_732895)->elements[0];
c_735680.elements[1] = ((closureN)self_732895)->elements[1];
c_735680.elements[2] = ((closureN)self_732895)->elements[2];
c_735680.elements[3] = ((closureN)self_732895)->elements[3];
c_735680.elements[4] = ((closureN)self_732895)->elements[4];
c_735680.elements[5] = ((closureN)self_732895)->elements[5];


complex_num_type local_735745; 
return_direct_with_clo1(data,(closure)&c_735680,__lambda_396,  ((inline_function_type)
                   ((closure)__glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735745, ((closureN)self_732895)->elements[1]));
} else { 
  
closureN_type c_735748;
object e_736193 [6];
c_735748.hdr.mark = gc_color_red;
 c_735748.hdr.grayed = 0;
c_735748.tag = closureN_tag;
 c_735748.fn = (function_type)__lambda_403;
c_735748.num_args = 1;
c_735748.num_elements = 6;
c_735748.elements = (object *)e_736193;
c_735748.elements[0] = ((closureN)self_732895)->elements[0];
c_735748.elements[1] = ((closureN)self_732895)->elements[1];
c_735748.elements[2] = ((closureN)self_732895)->elements[2];
c_735748.elements[3] = ((closureN)self_732895)->elements[3];
c_735748.elements[4] = ((closureN)self_732895)->elements[4];
c_735748.elements[5] = ((closureN)self_732895)->elements[5];

return_direct_with_clo2(data,  __glo_define_91c_127_scheme_cyclone_util, (((closure)  __glo_define_91c_127_scheme_cyclone_util)->fn),  &c_735748, ((closureN)self_732895)->elements[1]);}
;; 
}

static void __lambda_403(void *data, object self_732903, int argc, object *args) /* object self_732903, object r_731929 */
 {
 object r_731929 = args[0];
  if( (boolean_f != r_731929) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732903)->elements[2], (((closure)  ((closureN)self_732903)->elements[2])->fn),  ((closureN)self_732903)->elements[1]);
} else { 
  
closureN_type c_735753;
object e_736191 [6];
c_735753.hdr.mark = gc_color_red;
 c_735753.hdr.grayed = 0;
c_735753.tag = closureN_tag;
 c_735753.fn = (function_type)__lambda_404;
c_735753.num_args = 1;
c_735753.num_elements = 6;
c_735753.elements = (object *)e_736191;
c_735753.elements[0] = ((closureN)self_732903)->elements[0];
c_735753.elements[1] = ((closureN)self_732903)->elements[1];
c_735753.elements[2] = ((closureN)self_732903)->elements[2];
c_735753.elements[3] = ((closureN)self_732903)->elements[3];
c_735753.elements[4] = ((closureN)self_732903)->elements[4];
c_735753.elements[5] = ((closureN)self_732903)->elements[5];

return_direct_with_clo2(data,  __glo_define_91syntax_127_scheme_cyclone_util, (((closure)  __glo_define_91syntax_127_scheme_cyclone_util)->fn),  &c_735753, ((closureN)self_732903)->elements[1]);}
;; 
}

static void __lambda_404(void *data, object self_732904, int argc, object *args) /* object self_732904, object r_731930 */
 {
 object r_731930 = args[0];
  if( (boolean_f != r_731930) ){ 
  
closureN_type c_735755;
object e_735904 [6];
c_735755.hdr.mark = gc_color_red;
 c_735755.hdr.grayed = 0;
c_735755.tag = closureN_tag;
 c_735755.fn = (function_type)__lambda_405;
c_735755.num_args = 1;
c_735755.num_elements = 6;
c_735755.elements = (object *)e_735904;
c_735755.elements[0] = ((closureN)self_732904)->elements[0];
c_735755.elements[1] = ((closureN)self_732904)->elements[1];
c_735755.elements[2] = ((closureN)self_732904)->elements[2];
c_735755.elements[3] = ((closureN)self_732904)->elements[3];
c_735755.elements[4] = ((closureN)self_732904)->elements[4];
c_735755.elements[5] = ((closureN)self_732904)->elements[5];





return_direct_with_clo1(data,(closure)&c_735755,__lambda_405,  Cyc_cadr(data, Cyc_caddr(data, ((closureN)self_732904)->elements[1])));
} else { 
  
closureN_type c_735911;
object e_736189 [6];
c_735911.hdr.mark = gc_color_red;
 c_735911.hdr.grayed = 0;
c_735911.tag = closureN_tag;
 c_735911.fn = (function_type)__lambda_419;
c_735911.num_args = 1;
c_735911.num_elements = 6;
c_735911.elements = (object *)e_736189;
c_735911.elements[0] = ((closureN)self_732904)->elements[0];
c_735911.elements[1] = ((closureN)self_732904)->elements[1];
c_735911.elements[2] = ((closureN)self_732904)->elements[2];
c_735911.elements[3] = ((closureN)self_732904)->elements[3];
c_735911.elements[4] = ((closureN)self_732904)->elements[4];
c_735911.elements[5] = ((closureN)self_732904)->elements[5];

return_direct_with_clo2(data,  __glo_let_91syntax_127_scheme_cyclone_util, (((closure)  __glo_let_91syntax_127_scheme_cyclone_util)->fn),  &c_735911, ((closureN)self_732904)->elements[1]);}
;; 
}

static void __lambda_419(void *data, object self_732919, int argc, object *args) /* object self_732919, object r_731965 */
 {
 object r_731965 = args[0];
  if( (boolean_f != r_731965) ){ 
  
closureN_type c_735913;
object e_735935 [6];
c_735913.hdr.mark = gc_color_red;
 c_735913.hdr.grayed = 0;
c_735913.tag = closureN_tag;
 c_735913.fn = (function_type)__lambda_420;
c_735913.num_args = 1;
c_735913.num_elements = 6;
c_735913.elements = (object *)e_735935;
c_735913.elements[0] = ((closureN)self_732919)->elements[0];
c_735913.elements[1] = ((closureN)self_732919)->elements[1];
c_735913.elements[2] = ((closureN)self_732919)->elements[2];
c_735913.elements[3] = ((closureN)self_732919)->elements[3];
c_735913.elements[4] = ((closureN)self_732919)->elements[4];
c_735913.elements[5] = ((closureN)self_732919)->elements[5];


closureN_type c_735936;
object e_735990 [4];
c_735936.hdr.mark = gc_color_red;
 c_735936.hdr.grayed = 0;
c_735936.tag = closureN_tag;
 c_735936.fn = (function_type)__lambda_423;
c_735936.num_args = 1;
c_735936.num_elements = 4;
c_735936.elements = (object *)e_735990;
c_735936.elements[0] = ((closureN)self_732919)->elements[0];
c_735936.elements[1] = ((closureN)self_732919)->elements[3];
c_735936.elements[2] = ((closureN)self_732919)->elements[4];
c_735936.elements[3] = ((closureN)self_732919)->elements[5];

return_direct_with_clo1(data,(closure)&c_735913,__lambda_420,  &c_735936);
} else { 
  
closureN_type c_735992;
object e_736187 [6];
c_735992.hdr.mark = gc_color_red;
 c_735992.hdr.grayed = 0;
c_735992.tag = closureN_tag;
 c_735992.fn = (function_type)__lambda_430;
c_735992.num_args = 1;
c_735992.num_elements = 6;
c_735992.elements = (object *)e_736187;
c_735992.elements[0] = ((closureN)self_732919)->elements[0];
c_735992.elements[1] = ((closureN)self_732919)->elements[1];
c_735992.elements[2] = ((closureN)self_732919)->elements[2];
c_735992.elements[3] = ((closureN)self_732919)->elements[3];
c_735992.elements[4] = ((closureN)self_732919)->elements[4];
c_735992.elements[5] = ((closureN)self_732919)->elements[5];

return_direct_with_clo2(data,  __glo_letrec_91syntax_127_scheme_cyclone_util, (((closure)  __glo_letrec_91syntax_127_scheme_cyclone_util)->fn),  &c_735992, ((closureN)self_732919)->elements[1]);}
;; 
}

static void __lambda_430(void *data, object self_732930, int argc, object *args) /* object self_732930, object r_731985 */
 {
 object r_731985 = args[0];
  if( (boolean_f != r_731985) ){ 
  
closureN_type c_735994;
object e_736069 [5];
c_735994.hdr.mark = gc_color_red;
 c_735994.hdr.grayed = 0;
c_735994.tag = closureN_tag;
 c_735994.fn = (function_type)__lambda_431;
c_735994.num_args = 1;
c_735994.num_elements = 5;
c_735994.elements = (object *)e_736069;
c_735994.elements[0] = ((closureN)self_732930)->elements[1];
c_735994.elements[1] = ((closureN)self_732930)->elements[2];
c_735994.elements[2] = ((closureN)self_732930)->elements[3];
c_735994.elements[3] = ((closureN)self_732930)->elements[4];
c_735994.elements[4] = ((closureN)self_732930)->elements[5];

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_735994, NULL, NULL, ((closureN)self_732930)->elements[0]);
} else { 
  
closureN_type c_736072;
object e_736182 [6];
c_736072.hdr.mark = gc_color_red;
 c_736072.hdr.grayed = 0;
c_736072.tag = closureN_tag;
 c_736072.fn = (function_type)__lambda_441;
c_736072.num_args = 1;
c_736072.num_elements = 6;
c_736072.elements = (object *)e_736182;
c_736072.elements[0] = ((closureN)self_732930)->elements[0];
c_736072.elements[1] = ((closureN)self_732930)->elements[1];
c_736072.elements[2] = ((closureN)self_732930)->elements[2];
c_736072.elements[3] = ((closureN)self_732930)->elements[3];
c_736072.elements[4] = ((closureN)self_732930)->elements[4];
c_736072.elements[5] = ((closureN)self_732930)->elements[5];


complex_num_type local_736185; 
return_direct_with_clo1(data,(closure)&c_736072,__lambda_441,  ((inline_function_type)
                   ((closure)__glo_app_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_736185, ((closureN)self_732930)->elements[1]));}
;; 
}

static void __lambda_441(void *data, object self_732941, int argc, object *args) /* object self_732941, object r_732007 */
 {
 object r_732007 = args[0];
  if( (boolean_f != r_732007) ){ 
  
closureN_type c_736074;
object e_736174 [6];
c_736074.hdr.mark = gc_color_red;
 c_736074.hdr.grayed = 0;
c_736074.tag = closureN_tag;
 c_736074.fn = (function_type)__lambda_442;
c_736074.num_args = 1;
c_736074.num_elements = 6;
c_736074.elements = (object *)e_736174;
c_736074.elements[0] = ((closureN)self_732941)->elements[0];
c_736074.elements[1] = ((closureN)self_732941)->elements[1];
c_736074.elements[2] = ((closureN)self_732941)->elements[2];
c_736074.elements[3] = ((closureN)self_732941)->elements[3];
c_736074.elements[4] = ((closureN)self_732941)->elements[4];
c_736074.elements[5] = ((closureN)self_732941)->elements[5];



return_direct_with_clo1(data,(closure)&c_736074,__lambda_442,  Cyc_car(data, ((closureN)self_732941)->elements[1]));
} else { 
  
make_utf8_string_with_len(c_736180, "unknown exp: ", 13, 13);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_732941)->elements[2], &c_736180, ((closureN)self_732941)->elements[1]);}
;; 
}

static void __lambda_442(void *data, object self_732942, int argc, object *args) /* object self_732942, object r_732026 */
 {
 object r_732026 = args[0];
    
if( (boolean_f != Cyc_is_symbol(r_732026)) ){ 
  
closureN_type c_736078;
object e_736157 [6];
c_736078.hdr.mark = gc_color_red;
 c_736078.hdr.grayed = 0;
c_736078.tag = closureN_tag;
 c_736078.fn = (function_type)__lambda_443;
c_736078.num_args = 1;
c_736078.num_elements = 6;
c_736078.elements = (object *)e_736157;
c_736078.elements[0] = ((closureN)self_732942)->elements[0];
c_736078.elements[1] = ((closureN)self_732942)->elements[1];
c_736078.elements[2] = ((closureN)self_732942)->elements[2];
c_736078.elements[3] = ((closureN)self_732942)->elements[3];
c_736078.elements[4] = ((closureN)self_732942)->elements[4];
c_736078.elements[5] = ((closureN)self_732942)->elements[5];



return_direct_with_clo1(data,(closure)&c_736078,__lambda_443,  Cyc_car(data, ((closureN)self_732942)->elements[1]));
} else { 
  
closureN_type c_736162;
object e_736166 [2];
c_736162.hdr.mark = gc_color_red;
 c_736162.hdr.grayed = 0;
c_736162.tag = closureN_tag;
 c_736162.fn = (function_type)__lambda_453;
c_736162.num_args = 1;
c_736162.num_elements = 2;
c_736162.elements = (object *)e_736166;
c_736162.elements[0] = ((closureN)self_732942)->elements[1];
c_736162.elements[1] = ((closureN)self_732942)->elements[2];


closureN_type c_736167;
object e_736173 [4];
c_736167.hdr.mark = gc_color_red;
 c_736167.hdr.grayed = 0;
c_736167.tag = closureN_tag;
 c_736167.fn = (function_type)__lambda_454;
c_736167.num_args = 1;
c_736167.num_elements = 4;
c_736167.elements = (object *)e_736173;
c_736167.elements[0] = ((closureN)self_732942)->elements[0];
c_736167.elements[1] = ((closureN)self_732942)->elements[3];
c_736167.elements[2] = ((closureN)self_732942)->elements[4];
c_736167.elements[3] = ((closureN)self_732942)->elements[5];

return_direct_with_clo1(data,(closure)&c_736162,__lambda_453,  &c_736167);}
;; 
}

static void __lambda_454(void *data, object self_732953, int argc, object *args) /* object self_732953, object k_732025, object expr_73684_731105 */
 {
 object k_732025 = args[0]; object expr_73684_731105 = args[1];
  return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  k_732025, expr_73684_731105, ((closureN)self_732953)->elements[0], ((closureN)self_732953)->elements[3], ((closureN)self_732953)->elements[1], ((closureN)self_732953)->elements[2]);; 
}

static void __lambda_453(void *data, object self_732954, int argc, object *args) /* object self_732954, object r_732024 */
 {
 object r_732024 = args[0];
  return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  ((closureN)self_732954)->elements[1], r_732024, ((closureN)self_732954)->elements[0]);; 
}

static void __lambda_443(void *data, object self_732943, int argc, object *args) /* object self_732943, object r_732023 */
 {
 object r_732023 = args[0];
  
closureN_type c_736080;
object e_736153 [6];
c_736080.hdr.mark = gc_color_red;
 c_736080.hdr.grayed = 0;
c_736080.tag = closureN_tag;
 c_736080.fn = (function_type)__lambda_444;
c_736080.num_args = 1;
c_736080.num_elements = 6;
c_736080.elements = (object *)e_736153;
c_736080.elements[0] = ((closureN)self_732943)->elements[0];
c_736080.elements[1] = ((closureN)self_732943)->elements[1];
c_736080.elements[2] = ((closureN)self_732943)->elements[2];
c_736080.elements[3] = ((closureN)self_732943)->elements[3];
c_736080.elements[4] = ((closureN)self_732943)->elements[4];
c_736080.elements[5] = ((closureN)self_732943)->elements[5];



return_direct_with_clo1(data,(closure)&c_736080,__lambda_444,  assoc(data, r_732023, ((closureN)self_732943)->elements[3]));; 
}

static void __lambda_444(void *data, object self_732944, int argc, object *args) /* object self_732944, object local_73681_731103 */
 {
 object local_73681_731103 = args[0];
  
closureN_type c_736082;
object e_736097 [3];
c_736082.hdr.mark = gc_color_red;
 c_736082.hdr.grayed = 0;
c_736082.tag = closureN_tag;
 c_736082.fn = (function_type)__lambda_445;
c_736082.num_args = 0;
c_736082.num_elements = 3;
c_736082.elements = (object *)e_736097;
c_736082.elements[0] = ((closureN)self_732944)->elements[0];
c_736082.elements[1] = ((closureN)self_732944)->elements[1];
c_736082.elements[2] = local_73681_731103;


closureN_type c_736098;
object e_736152 [6];
c_736098.hdr.mark = gc_color_red;
 c_736098.hdr.grayed = 0;
c_736098.tag = closureN_tag;
 c_736098.fn = (function_type)__lambda_447;
c_736098.num_args = 1;
c_736098.num_elements = 6;
c_736098.elements = (object *)e_736152;
c_736098.elements[0] = ((closureN)self_732944)->elements[0];
c_736098.elements[1] = ((closureN)self_732944)->elements[1];
c_736098.elements[2] = ((closureN)self_732944)->elements[2];
c_736098.elements[3] = ((closureN)self_732944)->elements[3];
c_736098.elements[4] = ((closureN)self_732944)->elements[4];
c_736098.elements[5] = ((closureN)self_732944)->elements[5];

return_direct_with_clo1(data,(closure)&c_736082,__lambda_445,  &c_736098);; 
}

static void __lambda_447(void *data, object self_732945, int argc, object *args) /* object self_732945, object val_73672_731101 */
 {
 object val_73672_731101 = args[0];
  
closureN_type c_736100;
object e_736148 [7];
c_736100.hdr.mark = gc_color_red;
 c_736100.hdr.grayed = 0;
c_736100.tag = closureN_tag;
 c_736100.fn = (function_type)__lambda_448;
c_736100.num_args = 1;
c_736100.num_elements = 7;
c_736100.elements = (object *)e_736148;
c_736100.elements[0] = ((closureN)self_732945)->elements[0];
c_736100.elements[1] = ((closureN)self_732945)->elements[1];
c_736100.elements[2] = ((closureN)self_732945)->elements[2];
c_736100.elements[3] = ((closureN)self_732945)->elements[3];
c_736100.elements[4] = ((closureN)self_732945)->elements[4];
c_736100.elements[5] = ((closureN)self_732945)->elements[5];
c_736100.elements[6] = val_73672_731101;


complex_num_type local_736151; 
return_direct_with_clo1(data,(closure)&c_736100,__lambda_448,  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_736151, quote_macro, val_73672_731101));; 
}

static void __lambda_448(void *data, object self_732946, int argc, object *args) /* object self_732946, object r_732010 */
 {
 object r_732010 = args[0];
  if( (boolean_f != r_732010) ){ 
  
closureN_type c_736102;
object e_736109 [5];
c_736102.hdr.mark = gc_color_red;
 c_736102.hdr.grayed = 0;
c_736102.tag = closureN_tag;
 c_736102.fn = (function_type)__lambda_449;
c_736102.num_args = 1;
c_736102.num_elements = 5;
c_736102.elements = (object *)e_736109;
c_736102.elements[0] = ((closureN)self_732946)->elements[0];
c_736102.elements[1] = ((closureN)self_732946)->elements[2];
c_736102.elements[2] = ((closureN)self_732946)->elements[3];
c_736102.elements[3] = ((closureN)self_732946)->elements[4];
c_736102.elements[4] = ((closureN)self_732946)->elements[5];

return_direct_with_clo6(data,  __glo_macro_117expand_scheme_eval, (((closure)  __glo_macro_117expand_scheme_eval)->fn),  &c_736102, ((closureN)self_732946)->elements[1], ((closureN)self_732946)->elements[6], ((closureN)self_732946)->elements[0], ((closureN)self_732946)->elements[5], ((closureN)self_732946)->elements[4]);
} else { 
    
if( (boolean_f != Cyc_is_macro(((closureN)self_732946)->elements[6])) ){ 
  
closureN_type c_736119;
object e_736126 [5];
c_736119.hdr.mark = gc_color_red;
 c_736119.hdr.grayed = 0;
c_736119.tag = closureN_tag;
 c_736119.fn = (function_type)__lambda_450;
c_736119.num_args = 1;
c_736119.num_elements = 5;
c_736119.elements = (object *)e_736126;
c_736119.elements[0] = ((closureN)self_732946)->elements[0];
c_736119.elements[1] = ((closureN)self_732946)->elements[2];
c_736119.elements[2] = ((closureN)self_732946)->elements[3];
c_736119.elements[3] = ((closureN)self_732946)->elements[4];
c_736119.elements[4] = ((closureN)self_732946)->elements[5];


list_2_type local_736130; 
return_direct_with_clo6(data,  __glo_macro_117expand_scheme_eval, (((closure)  __glo_macro_117expand_scheme_eval)->fn),  &c_736119, ((closureN)self_732946)->elements[1], Cyc_fast_list_2(&local_736130, quote_macro, ((closureN)self_732946)->elements[6]), ((closureN)self_732946)->elements[0], ((closureN)self_732946)->elements[5], ((closureN)self_732946)->elements[4]);
} else { 
  
closureN_type c_736136;
object e_736140 [2];
c_736136.hdr.mark = gc_color_red;
 c_736136.hdr.grayed = 0;
c_736136.tag = closureN_tag;
 c_736136.fn = (function_type)__lambda_451;
c_736136.num_args = 1;
c_736136.num_elements = 2;
c_736136.elements = (object *)e_736140;
c_736136.elements[0] = ((closureN)self_732946)->elements[1];
c_736136.elements[1] = ((closureN)self_732946)->elements[2];


closureN_type c_736141;
object e_736147 [4];
c_736141.hdr.mark = gc_color_red;
 c_736141.hdr.grayed = 0;
c_736141.tag = closureN_tag;
 c_736141.fn = (function_type)__lambda_452;
c_736141.num_args = 1;
c_736141.num_elements = 4;
c_736141.elements = (object *)e_736147;
c_736141.elements[0] = ((closureN)self_732946)->elements[0];
c_736141.elements[1] = ((closureN)self_732946)->elements[3];
c_736141.elements[2] = ((closureN)self_732946)->elements[4];
c_736141.elements[3] = ((closureN)self_732946)->elements[5];

return_direct_with_clo1(data,(closure)&c_736136,__lambda_451,  &c_736141);}
;}
;; 
}

static void __lambda_452(void *data, object self_732949, int argc, object *args) /* object self_732949, object k_732017, object expr_73680_731102 */
 {
 object k_732017 = args[0]; object expr_73680_731102 = args[1];
  return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  k_732017, expr_73680_731102, ((closureN)self_732949)->elements[0], ((closureN)self_732949)->elements[3], ((closureN)self_732949)->elements[1], ((closureN)self_732949)->elements[2]);; 
}

static void __lambda_451(void *data, object self_732950, int argc, object *args) /* object self_732950, object r_732016 */
 {
 object r_732016 = args[0];
  return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  ((closureN)self_732950)->elements[1], r_732016, ((closureN)self_732950)->elements[0]);; 
}

static void __lambda_450(void *data, object self_732948, int argc, object *args) /* object self_732948, object r_732013 */
 {
 object r_732013 = args[0];
  return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  ((closureN)self_732948)->elements[1], r_732013, ((closureN)self_732948)->elements[0], ((closureN)self_732948)->elements[4], ((closureN)self_732948)->elements[2], ((closureN)self_732948)->elements[3]);; 
}

static void __lambda_449(void *data, object self_732947, int argc, object *args) /* object self_732947, object r_732011 */
 {
 object r_732011 = args[0];
  return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  ((closureN)self_732947)->elements[1], r_732011, ((closureN)self_732947)->elements[0], ((closureN)self_732947)->elements[4], ((closureN)self_732947)->elements[2], ((closureN)self_732947)->elements[3]);; 
}

static void __lambda_445(void *data, object self_732951, int argc, object *args) /* object self_732951, object k_732020 */
 {
 object k_732020 = args[0];
  if( (boolean_f != ((closureN)self_732951)->elements[2]) ){ 
  

return_direct_with_clo1(data,  k_732020, (((closure)  k_732020)->fn),  Cyc_cdr(data, ((closureN)self_732951)->elements[2]));
} else { 
  
closureN_type c_736089;
object e_736092 [1];
c_736089.hdr.mark = gc_color_red;
 c_736089.hdr.grayed = 0;
c_736089.tag = closureN_tag;
 c_736089.fn = (function_type)__lambda_446;
c_736089.num_args = 1;
c_736089.num_elements = 1;
c_736089.elements = (object *)e_736092;
c_736089.elements[0] = k_732020;



return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_736089, Cyc_car(data, ((closureN)self_732951)->elements[1]), ((closureN)self_732951)->elements[0], boolean_f);}
;; 
}

static void __lambda_446(void *data, object self_732952, int argc, object *args) /* object self_732952, object v_73682_731104 */
 {
 object v_73682_731104 = args[0];
  return_direct_with_clo1(data,  ((closureN)self_732952)->elements[0], (((closure)  ((closureN)self_732952)->elements[0])->fn),  v_73682_731104);; 
}

static void __lambda_431(void *data, object self_732931, int argc, object *args) /* object self_732931, object body_91env_73647_731094 */
 {
 object body_91env_73647_731094 = args[0];
  
closureN_type c_735996;
object e_736015 [6];
c_735996.hdr.mark = gc_color_red;
 c_735996.hdr.grayed = 0;
c_735996.tag = closureN_tag;
 c_735996.fn = (function_type)__lambda_432;
c_735996.num_args = 1;
c_735996.num_elements = 6;
c_735996.elements = (object *)e_736015;
c_735996.elements[0] = body_91env_73647_731094;
c_735996.elements[1] = ((closureN)self_732931)->elements[0];
c_735996.elements[2] = ((closureN)self_732931)->elements[1];
c_735996.elements[3] = ((closureN)self_732931)->elements[2];
c_735996.elements[4] = ((closureN)self_732931)->elements[3];
c_735996.elements[5] = ((closureN)self_732931)->elements[4];


closureN_type c_736016;
object e_736068 [4];
c_736016.hdr.mark = gc_color_red;
 c_736016.hdr.grayed = 0;
c_736016.tag = closureN_tag;
 c_736016.fn = (function_type)__lambda_434;
c_736016.num_args = 1;
c_736016.num_elements = 4;
c_736016.elements = (object *)e_736068;
c_736016.elements[0] = body_91env_73647_731094;
c_736016.elements[1] = ((closureN)self_732931)->elements[2];
c_736016.elements[2] = ((closureN)self_732931)->elements[3];
c_736016.elements[3] = ((closureN)self_732931)->elements[4];

return_direct_with_clo1(data,(closure)&c_735996,__lambda_432,  &c_736016);; 
}

static void __lambda_434(void *data, object self_732932, int argc, object *args) /* object self_732932, object k_731991, object b_73652_731096 */
 {
 object k_731991 = args[0]; object b_73652_731096 = args[1];
  
closureN_type c_736018;
object e_736063 [6];
c_736018.hdr.mark = gc_color_red;
 c_736018.hdr.grayed = 0;
c_736018.tag = closureN_tag;
 c_736018.fn = (function_type)__lambda_435;
c_736018.num_args = 1;
c_736018.num_elements = 6;
c_736018.elements = (object *)e_736063;
c_736018.elements[0] = b_73652_731096;
c_736018.elements[1] = ((closureN)self_732932)->elements[0];
c_736018.elements[2] = k_731991;
c_736018.elements[3] = ((closureN)self_732932)->elements[1];
c_736018.elements[4] = ((closureN)self_732932)->elements[2];
c_736018.elements[5] = ((closureN)self_732932)->elements[3];





return_direct_with_clo1(data,(closure)&c_736018,__lambda_435,  Cyc_cadr(data, Cyc_cadr(data, b_73652_731096)));; 
}

static void __lambda_435(void *data, object self_732933, int argc, object *args) /* object self_732933, object binding_91body_73661_731099 */
 {
 object binding_91body_73661_731099 = args[0];
  
closureN_type c_736020;
object e_736050 [6];
c_736020.hdr.mark = gc_color_red;
 c_736020.hdr.grayed = 0;
c_736020.tag = closureN_tag;
 c_736020.fn = (function_type)__lambda_436;
c_736020.num_args = 0;
c_736020.num_elements = 6;
c_736020.elements = (object *)e_736050;
c_736020.elements[0] = ((closureN)self_732933)->elements[0];
c_736020.elements[1] = binding_91body_73661_731099;
c_736020.elements[2] = ((closureN)self_732933)->elements[1];
c_736020.elements[3] = ((closureN)self_732933)->elements[3];
c_736020.elements[4] = ((closureN)self_732933)->elements[4];
c_736020.elements[5] = ((closureN)self_732933)->elements[5];


closureN_type c_736051;
object e_736062 [4];
c_736051.hdr.mark = gc_color_red;
 c_736051.hdr.grayed = 0;
c_736051.tag = closureN_tag;
 c_736051.fn = (function_type)__lambda_440;
c_736051.num_args = 1;
c_736051.num_elements = 4;
c_736051.elements = (object *)e_736062;
c_736051.elements[0] = ((closureN)self_732933)->elements[0];
c_736051.elements[1] = ((closureN)self_732933)->elements[1];
c_736051.elements[2] = ((closureN)self_732933)->elements[2];
c_736051.elements[3] = ((closureN)self_732933)->elements[4];

return_direct_with_clo1(data,(closure)&c_736020,__lambda_436,  &c_736051);; 
}

static void __lambda_440(void *data, object self_732934, int argc, object *args) /* object self_732934, object r_731997 */
 {
 object r_731997 = args[0];
  


list_3_type local_736059; 
return_direct_with_clo4(data,  __glo_env_117define_91variable_67_scheme_cyclone_util, (((closure)  __glo_env_117define_91variable_67_scheme_cyclone_util)->fn),  ((closureN)self_732934)->elements[2], Cyc_car(data, ((closureN)self_732934)->elements[0]), Cyc_fast_list_3(&local_736059, quote_macro, r_731997, ((closureN)self_732934)->elements[3]), ((closureN)self_732934)->elements[1]);; 
}

static void __lambda_436(void *data, object self_732935, int argc, object *args) /* object self_732935, object k_731998 */
 {
 object k_731998 = args[0];
  
closureN_type c_736022;
object e_736043 [7];
c_736022.hdr.mark = gc_color_red;
 c_736022.hdr.grayed = 0;
c_736022.tag = closureN_tag;
 c_736022.fn = (function_type)__lambda_437;
c_736022.num_args = 1;
c_736022.num_elements = 7;
c_736022.elements = (object *)e_736043;
c_736022.elements[0] = ((closureN)self_732935)->elements[0];
c_736022.elements[1] = ((closureN)self_732935)->elements[1];
c_736022.elements[2] = ((closureN)self_732935)->elements[2];
c_736022.elements[3] = k_731998;
c_736022.elements[4] = ((closureN)self_732935)->elements[3];
c_736022.elements[5] = ((closureN)self_732935)->elements[4];
c_736022.elements[6] = ((closureN)self_732935)->elements[5];





return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_736022, Cyc_car(data, Cyc_cadr(data, ((closureN)self_732935)->elements[0])), ((closureN)self_732935)->elements[2], boolean_f);; 
}

static void __lambda_437(void *data, object self_732936, int argc, object *args) /* object self_732936, object r_732001 */
 {
 object r_732001 = args[0];
  
closureN_type c_736024;
object e_736042 [7];
c_736024.hdr.mark = gc_color_red;
 c_736024.hdr.grayed = 0;
c_736024.tag = closureN_tag;
 c_736024.fn = (function_type)__lambda_438;
c_736024.num_args = 1;
c_736024.num_elements = 7;
c_736024.elements = (object *)e_736042;
c_736024.elements[0] = ((closureN)self_732936)->elements[0];
c_736024.elements[1] = ((closureN)self_732936)->elements[1];
c_736024.elements[2] = ((closureN)self_732936)->elements[2];
c_736024.elements[3] = ((closureN)self_732936)->elements[3];
c_736024.elements[4] = ((closureN)self_732936)->elements[4];
c_736024.elements[5] = ((closureN)self_732936)->elements[5];
c_736024.elements[6] = ((closureN)self_732936)->elements[6];

return_direct_with_clo2(data,  __glo_macro_117syntax_91rules_127_scheme_eval, (((closure)  __glo_macro_117syntax_91rules_127_scheme_eval)->fn),  &c_736024, r_732001);; 
}

static void __lambda_438(void *data, object self_732937, int argc, object *args) /* object self_732937, object r_731999 */
 {
 object r_731999 = args[0];
  if( (boolean_f != r_731999) ){ 
  
closureN_type c_736026;
object e_736031 [1];
c_736026.hdr.mark = gc_color_red;
 c_736026.hdr.grayed = 0;
c_736026.tag = closureN_tag;
 c_736026.fn = (function_type)__lambda_439;
c_736026.num_args = 1;
c_736026.num_elements = 1;
c_736026.elements = (object *)e_736031;
c_736026.elements[0] = ((closureN)self_732937)->elements[3];



return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_736026, Cyc_cadr(data, ((closureN)self_732937)->elements[0]), ((closureN)self_732937)->elements[2], ((closureN)self_732937)->elements[6], ((closureN)self_732937)->elements[4], ((closureN)self_732937)->elements[5]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732937)->elements[3], (((closure)  ((closureN)self_732937)->elements[3])->fn),  ((closureN)self_732937)->elements[1]);}
;; 
}

static void __lambda_439(void *data, object self_732938, int argc, object *args) /* object self_732938, object r_732000 */
 {
 object r_732000 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_732938)->elements[0], (((closure)  ((closureN)self_732938)->elements[0])->fn),  Cyc_cadr(data, r_732000));; 
}

static void __lambda_432(void *data, object self_732939, int argc, object *args) /* object self_732939, object r_731990 */
 {
 object r_731990 = args[0];
  
closureN_type c_735998;
object e_736011 [6];
c_735998.hdr.mark = gc_color_red;
 c_735998.hdr.grayed = 0;
c_735998.tag = closureN_tag;
 c_735998.fn = (function_type)__lambda_433;
c_735998.num_args = 1;
c_735998.num_elements = 6;
c_735998.elements = (object *)e_736011;
c_735998.elements[0] = ((closureN)self_732939)->elements[0];
c_735998.elements[1] = ((closureN)self_732939)->elements[1];
c_735998.elements[2] = ((closureN)self_732939)->elements[2];
c_735998.elements[3] = ((closureN)self_732939)->elements[3];
c_735998.elements[4] = ((closureN)self_732939)->elements[4];
c_735998.elements[5] = ((closureN)self_732939)->elements[5];



return_direct_with_clo3(data,  __glo_Cyc_91for_91each_91loop_911_scheme_base, (((closure)  __glo_Cyc_91for_91each_91loop_911_scheme_base)->fn),  &c_735998, r_731990, Cyc_cadr(data, ((closureN)self_732939)->elements[1]));; 
}

static void __lambda_433(void *data, object self_732940, int argc, object *args) /* object self_732940, object r_731989 */
 {

  
pair_type local_736003; 


return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  ((closureN)self_732940)->elements[2], set_pair_as_expr(&local_736003, quote_begin, Cyc_cddr(data, ((closureN)self_732940)->elements[1])), ((closureN)self_732940)->elements[0], ((closureN)self_732940)->elements[5], ((closureN)self_732940)->elements[3], ((closureN)self_732940)->elements[4]);; 
}

static void __lambda_423(void *data, object self_732920, int argc, object *args) /* object self_732920, object k_731971, object b_73628_731089 */
 {
 object k_731971 = args[0]; object b_73628_731089 = args[1];
  
closureN_type c_735938;
object e_735985 [6];
c_735938.hdr.mark = gc_color_red;
 c_735938.hdr.grayed = 0;
c_735938.tag = closureN_tag;
 c_735938.fn = (function_type)__lambda_424;
c_735938.num_args = 1;
c_735938.num_elements = 6;
c_735938.elements = (object *)e_735985;
c_735938.elements[0] = b_73628_731089;
c_735938.elements[1] = ((closureN)self_732920)->elements[0];
c_735938.elements[2] = k_731971;
c_735938.elements[3] = ((closureN)self_732920)->elements[1];
c_735938.elements[4] = ((closureN)self_732920)->elements[2];
c_735938.elements[5] = ((closureN)self_732920)->elements[3];





return_direct_with_clo1(data,(closure)&c_735938,__lambda_424,  Cyc_cadr(data, Cyc_cadr(data, b_73628_731089)));; 
}

static void __lambda_424(void *data, object self_732921, int argc, object *args) /* object self_732921, object binding_91body_73637_731092 */
 {
 object binding_91body_73637_731092 = args[0];
  
closureN_type c_735940;
object e_735970 [6];
c_735940.hdr.mark = gc_color_red;
 c_735940.hdr.grayed = 0;
c_735940.tag = closureN_tag;
 c_735940.fn = (function_type)__lambda_425;
c_735940.num_args = 0;
c_735940.num_elements = 6;
c_735940.elements = (object *)e_735970;
c_735940.elements[0] = ((closureN)self_732921)->elements[0];
c_735940.elements[1] = binding_91body_73637_731092;
c_735940.elements[2] = ((closureN)self_732921)->elements[1];
c_735940.elements[3] = ((closureN)self_732921)->elements[3];
c_735940.elements[4] = ((closureN)self_732921)->elements[4];
c_735940.elements[5] = ((closureN)self_732921)->elements[5];


closureN_type c_735971;
object e_735984 [3];
c_735971.hdr.mark = gc_color_red;
 c_735971.hdr.grayed = 0;
c_735971.tag = closureN_tag;
 c_735971.fn = (function_type)__lambda_429;
c_735971.num_args = 1;
c_735971.num_elements = 3;
c_735971.elements = (object *)e_735984;
c_735971.elements[0] = ((closureN)self_732921)->elements[0];
c_735971.elements[1] = ((closureN)self_732921)->elements[2];
c_735971.elements[2] = ((closureN)self_732921)->elements[4];

return_direct_with_clo1(data,(closure)&c_735940,__lambda_425,  &c_735971);; 
}

static void __lambda_429(void *data, object self_732922, int argc, object *args) /* object self_732922, object r_731977 */
 {
 object r_731977 = args[0];
  
pair_type local_735976; 



list_3_type local_735982; 
return_direct_with_clo1(data,  ((closureN)self_732922)->elements[1], (((closure)  ((closureN)self_732922)->elements[1])->fn),  set_pair_as_expr(&local_735976, Cyc_car(data, ((closureN)self_732922)->elements[0]), Cyc_fast_list_3(&local_735982, quote_macro, r_731977, ((closureN)self_732922)->elements[2])));; 
}

static void __lambda_425(void *data, object self_732923, int argc, object *args) /* object self_732923, object k_731978 */
 {
 object k_731978 = args[0];
  
closureN_type c_735942;
object e_735963 [7];
c_735942.hdr.mark = gc_color_red;
 c_735942.hdr.grayed = 0;
c_735942.tag = closureN_tag;
 c_735942.fn = (function_type)__lambda_426;
c_735942.num_args = 1;
c_735942.num_elements = 7;
c_735942.elements = (object *)e_735963;
c_735942.elements[0] = ((closureN)self_732923)->elements[0];
c_735942.elements[1] = ((closureN)self_732923)->elements[1];
c_735942.elements[2] = ((closureN)self_732923)->elements[2];
c_735942.elements[3] = k_731978;
c_735942.elements[4] = ((closureN)self_732923)->elements[3];
c_735942.elements[5] = ((closureN)self_732923)->elements[4];
c_735942.elements[6] = ((closureN)self_732923)->elements[5];





return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_735942, Cyc_car(data, Cyc_cadr(data, ((closureN)self_732923)->elements[0])), ((closureN)self_732923)->elements[2], boolean_f);; 
}

static void __lambda_426(void *data, object self_732924, int argc, object *args) /* object self_732924, object r_731981 */
 {
 object r_731981 = args[0];
  
closureN_type c_735944;
object e_735962 [7];
c_735944.hdr.mark = gc_color_red;
 c_735944.hdr.grayed = 0;
c_735944.tag = closureN_tag;
 c_735944.fn = (function_type)__lambda_427;
c_735944.num_args = 1;
c_735944.num_elements = 7;
c_735944.elements = (object *)e_735962;
c_735944.elements[0] = ((closureN)self_732924)->elements[0];
c_735944.elements[1] = ((closureN)self_732924)->elements[1];
c_735944.elements[2] = ((closureN)self_732924)->elements[2];
c_735944.elements[3] = ((closureN)self_732924)->elements[3];
c_735944.elements[4] = ((closureN)self_732924)->elements[4];
c_735944.elements[5] = ((closureN)self_732924)->elements[5];
c_735944.elements[6] = ((closureN)self_732924)->elements[6];

return_direct_with_clo2(data,  __glo_macro_117syntax_91rules_127_scheme_eval, (((closure)  __glo_macro_117syntax_91rules_127_scheme_eval)->fn),  &c_735944, r_731981);; 
}

static void __lambda_427(void *data, object self_732925, int argc, object *args) /* object self_732925, object r_731979 */
 {
 object r_731979 = args[0];
  if( (boolean_f != r_731979) ){ 
  
closureN_type c_735946;
object e_735951 [1];
c_735946.hdr.mark = gc_color_red;
 c_735946.hdr.grayed = 0;
c_735946.tag = closureN_tag;
 c_735946.fn = (function_type)__lambda_428;
c_735946.num_args = 1;
c_735946.num_elements = 1;
c_735946.elements = (object *)e_735951;
c_735946.elements[0] = ((closureN)self_732925)->elements[3];



return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_735946, Cyc_cadr(data, ((closureN)self_732925)->elements[0]), ((closureN)self_732925)->elements[2], ((closureN)self_732925)->elements[6], ((closureN)self_732925)->elements[4], ((closureN)self_732925)->elements[5]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732925)->elements[3], (((closure)  ((closureN)self_732925)->elements[3])->fn),  ((closureN)self_732925)->elements[1]);}
;; 
}

static void __lambda_428(void *data, object self_732926, int argc, object *args) /* object self_732926, object r_731980 */
 {
 object r_731980 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_732926)->elements[0], (((closure)  ((closureN)self_732926)->elements[0])->fn),  Cyc_cadr(data, r_731980));; 
}

static void __lambda_420(void *data, object self_732927, int argc, object *args) /* object self_732927, object r_731970 */
 {
 object r_731970 = args[0];
  
closureN_type c_735915;
object e_735931 [6];
c_735915.hdr.mark = gc_color_red;
 c_735915.hdr.grayed = 0;
c_735915.tag = closureN_tag;
 c_735915.fn = (function_type)__lambda_421;
c_735915.num_args = 1;
c_735915.num_elements = 6;
c_735915.elements = (object *)e_735931;
c_735915.elements[0] = ((closureN)self_732927)->elements[0];
c_735915.elements[1] = ((closureN)self_732927)->elements[1];
c_735915.elements[2] = ((closureN)self_732927)->elements[2];
c_735915.elements[3] = ((closureN)self_732927)->elements[3];
c_735915.elements[4] = ((closureN)self_732927)->elements[4];
c_735915.elements[5] = ((closureN)self_732927)->elements[5];



return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_735915, r_731970, Cyc_cadr(data, ((closureN)self_732927)->elements[1]));; 
}

static void __lambda_421(void *data, object self_732928, int argc, object *args) /* object self_732928, object bindings_91as_91macros_73623_731087 */
 {
 object bindings_91as_91macros_73623_731087 = args[0];
  
closureN_type c_735917;
object e_735929 [5];
c_735917.hdr.mark = gc_color_red;
 c_735917.hdr.grayed = 0;
c_735917.tag = closureN_tag;
 c_735917.fn = (function_type)__lambda_422;
c_735917.num_args = 1;
c_735917.num_elements = 5;
c_735917.elements = (object *)e_735929;
c_735917.elements[0] = ((closureN)self_732928)->elements[0];
c_735917.elements[1] = ((closureN)self_732928)->elements[1];
c_735917.elements[2] = ((closureN)self_732928)->elements[2];
c_735917.elements[3] = ((closureN)self_732928)->elements[4];
c_735917.elements[4] = ((closureN)self_732928)->elements[5];

return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_735917, bindings_91as_91macros_73623_731087, ((closureN)self_732928)->elements[3]);; 
}

static void __lambda_422(void *data, object self_732929, int argc, object *args) /* object self_732929, object new_91local_91macro_91env_73626_731088 */
 {
 object new_91local_91macro_91env_73626_731088 = args[0];
  
pair_type local_735922; 


return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  ((closureN)self_732929)->elements[2], set_pair_as_expr(&local_735922, quote_begin, Cyc_cddr(data, ((closureN)self_732929)->elements[1])), ((closureN)self_732929)->elements[0], ((closureN)self_732929)->elements[4], new_91local_91macro_91env_73626_731088, ((closureN)self_732929)->elements[3]);; 
}

static void __lambda_405(void *data, object self_732905, int argc, object *args) /* object self_732905, object body_73589_731081 */
 {
 object body_73589_731081 = args[0];
  
closureN_type c_735757;
object e_735897 [7];
c_735757.hdr.mark = gc_color_red;
 c_735757.hdr.grayed = 0;
c_735757.tag = closureN_tag;
 c_735757.fn = (function_type)__lambda_406;
c_735757.num_args = 1;
c_735757.num_elements = 7;
c_735757.elements = (object *)e_735897;
c_735757.elements[0] = body_73589_731081;
c_735757.elements[1] = ((closureN)self_732905)->elements[0];
c_735757.elements[2] = ((closureN)self_732905)->elements[1];
c_735757.elements[3] = ((closureN)self_732905)->elements[2];
c_735757.elements[4] = ((closureN)self_732905)->elements[3];
c_735757.elements[5] = ((closureN)self_732905)->elements[4];
c_735757.elements[6] = ((closureN)self_732905)->elements[5];





return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_735757, Cyc_car(data, Cyc_caddr(data, ((closureN)self_732905)->elements[1])), ((closureN)self_732905)->elements[0], boolean_f);; 
}

static void __lambda_406(void *data, object self_732906, int argc, object *args) /* object self_732906, object r_731963 */
 {
 object r_731963 = args[0];
  
closureN_type c_735759;
object e_735896 [7];
c_735759.hdr.mark = gc_color_red;
 c_735759.hdr.grayed = 0;
c_735759.tag = closureN_tag;
 c_735759.fn = (function_type)__lambda_407;
c_735759.num_args = 1;
c_735759.num_elements = 7;
c_735759.elements = (object *)e_735896;
c_735759.elements[0] = ((closureN)self_732906)->elements[0];
c_735759.elements[1] = ((closureN)self_732906)->elements[1];
c_735759.elements[2] = ((closureN)self_732906)->elements[2];
c_735759.elements[3] = ((closureN)self_732906)->elements[3];
c_735759.elements[4] = ((closureN)self_732906)->elements[4];
c_735759.elements[5] = ((closureN)self_732906)->elements[5];
c_735759.elements[6] = ((closureN)self_732906)->elements[6];

return_direct_with_clo2(data,  __glo_macro_117syntax_91rules_127_scheme_eval, (((closure)  __glo_macro_117syntax_91rules_127_scheme_eval)->fn),  &c_735759, r_731963);; 
}

static void __lambda_407(void *data, object self_732907, int argc, object *args) /* object self_732907, object r_731934 */
 {
 object r_731934 = args[0];
  if( (boolean_f != r_731934) ){ 
  
closureN_type c_735761;
object e_735780 [6];
c_735761.hdr.mark = gc_color_red;
 c_735761.hdr.grayed = 0;
c_735761.tag = closureN_tag;
 c_735761.fn = (function_type)__lambda_408;
c_735761.num_args = 1;
c_735761.num_elements = 6;
c_735761.elements = (object *)e_735780;
c_735761.elements[0] = ((closureN)self_732907)->elements[1];
c_735761.elements[1] = ((closureN)self_732907)->elements[2];
c_735761.elements[2] = ((closureN)self_732907)->elements[3];
c_735761.elements[3] = ((closureN)self_732907)->elements[4];
c_735761.elements[4] = ((closureN)self_732907)->elements[5];
c_735761.elements[5] = ((closureN)self_732907)->elements[6];



return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_735761, Cyc_caddr(data, ((closureN)self_732907)->elements[2]), ((closureN)self_732907)->elements[1], ((closureN)self_732907)->elements[6], ((closureN)self_732907)->elements[4], ((closureN)self_732907)->elements[5]);
} else { 
  
closureN_type c_735789;
object e_735891 [7];
c_735789.hdr.mark = gc_color_red;
 c_735789.hdr.grayed = 0;
c_735789.tag = closureN_tag;
 c_735789.fn = (function_type)__lambda_409;
c_735789.num_args = 1;
c_735789.num_elements = 7;
c_735789.elements = (object *)e_735891;
c_735789.elements[0] = ((closureN)self_732907)->elements[0];
c_735789.elements[1] = ((closureN)self_732907)->elements[1];
c_735789.elements[2] = ((closureN)self_732907)->elements[2];
c_735789.elements[3] = ((closureN)self_732907)->elements[3];
c_735789.elements[4] = ((closureN)self_732907)->elements[4];
c_735789.elements[5] = ((closureN)self_732907)->elements[5];
c_735789.elements[6] = ((closureN)self_732907)->elements[6];



return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_735789, Cyc_cadr(data, ((closureN)self_732907)->elements[2]), ((closureN)self_732907)->elements[1], boolean_f);}
;; 
}

static void __lambda_409(void *data, object self_732909, int argc, object *args) /* object self_732909, object macro_73598_731082 */
 {
 object macro_73598_731082 = args[0];
  
closureN_type c_735791;
object e_735818 [1];
c_735791.hdr.mark = gc_color_red;
 c_735791.hdr.grayed = 0;
c_735791.tag = closureN_tag;
 c_735791.fn = (function_type)__lambda_410;
c_735791.num_args = 0;
c_735791.num_elements = 1;
c_735791.elements = (object *)e_735818;
c_735791.elements[0] = macro_73598_731082;


closureN_type c_735819;
object e_735890 [7];
c_735819.hdr.mark = gc_color_red;
 c_735819.hdr.grayed = 0;
c_735819.tag = closureN_tag;
 c_735819.fn = (function_type)__lambda_411;
c_735819.num_args = 1;
c_735819.num_elements = 7;
c_735819.elements = (object *)e_735890;
c_735819.elements[0] = ((closureN)self_732909)->elements[0];
c_735819.elements[1] = ((closureN)self_732909)->elements[1];
c_735819.elements[2] = ((closureN)self_732909)->elements[2];
c_735819.elements[3] = ((closureN)self_732909)->elements[3];
c_735819.elements[4] = ((closureN)self_732909)->elements[4];
c_735819.elements[5] = ((closureN)self_732909)->elements[5];
c_735819.elements[6] = ((closureN)self_732909)->elements[6];

return_direct_with_clo1(data,(closure)&c_735791,__lambda_410,  &c_735819);; 
}

static void __lambda_411(void *data, object self_732910, int argc, object *args) /* object self_732910, object tmp_73600_73602_731083 */
 {
 object tmp_73600_73602_731083 = args[0];
  
closureN_type c_735821;
object e_735865 [5];
c_735821.hdr.mark = gc_color_red;
 c_735821.hdr.grayed = 0;
c_735821.tag = closureN_tag;
 c_735821.fn = (function_type)__lambda_412;
c_735821.num_args = 0;
c_735821.num_elements = 5;
c_735821.elements = (object *)e_735865;
c_735821.elements[0] = ((closureN)self_732910)->elements[0];
c_735821.elements[1] = ((closureN)self_732910)->elements[1];
c_735821.elements[2] = ((closureN)self_732910)->elements[2];
c_735821.elements[3] = ((closureN)self_732910)->elements[5];
c_735821.elements[4] = tmp_73600_73602_731083;


closureN_type c_735866;
object e_735889 [7];
c_735866.hdr.mark = gc_color_red;
 c_735866.hdr.grayed = 0;
c_735866.tag = closureN_tag;
 c_735866.fn = (function_type)__lambda_417;
c_735866.num_args = 1;
c_735866.num_elements = 7;
c_735866.elements = (object *)e_735889;
c_735866.elements[0] = ((closureN)self_732910)->elements[0];
c_735866.elements[1] = ((closureN)self_732910)->elements[1];
c_735866.elements[2] = ((closureN)self_732910)->elements[2];
c_735866.elements[3] = ((closureN)self_732910)->elements[3];
c_735866.elements[4] = ((closureN)self_732910)->elements[4];
c_735866.elements[5] = ((closureN)self_732910)->elements[5];
c_735866.elements[6] = ((closureN)self_732910)->elements[6];

return_direct_with_clo1(data,(closure)&c_735821,__lambda_412,  &c_735866);; 
}

static void __lambda_417(void *data, object self_732911, int argc, object *args) /* object self_732911, object r_731942 */
 {

  
closureN_type c_735868;
object e_735883 [2];
c_735868.hdr.mark = gc_color_red;
 c_735868.hdr.grayed = 0;
c_735868.tag = closureN_tag;
 c_735868.fn = (function_type)__lambda_418;
c_735868.num_args = 1;
c_735868.num_elements = 2;
c_735868.elements = (object *)e_735883;
c_735868.elements[0] = ((closureN)self_732911)->elements[2];
c_735868.elements[1] = ((closureN)self_732911)->elements[3];

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_735868, ((closureN)self_732911)->elements[0], ((closureN)self_732911)->elements[1], ((closureN)self_732911)->elements[6], ((closureN)self_732911)->elements[4], ((closureN)self_732911)->elements[5]);; 
}

static void __lambda_418(void *data, object self_732912, int argc, object *args) /* object self_732912, object r_731946 */
 {
 object r_731946 = args[0];
  
pair_type local_735873; 

pair_type local_735876; 



pair_type local_735882; 
return_direct_with_clo1(data,  ((closureN)self_732912)->elements[1], (((closure)  ((closureN)self_732912)->elements[1])->fn),  set_pair_as_expr(&local_735873, quote_define, set_pair_as_expr(&local_735876, Cyc_cadr(data, ((closureN)self_732912)->elements[0]), set_pair_as_expr(&local_735882, r_731946, NULL))));; 
}

static void __lambda_412(void *data, object self_732913, int argc, object *args) /* object self_732913, object k_731949 */
 {
 object k_731949 = args[0];
  if( (boolean_f != ((closureN)self_732913)->elements[4]) ){ 
  return_direct_with_clo1(data,  k_731949, (((closure)  k_731949)->fn),  ((closureN)self_732913)->elements[4]);
} else { 
  
closureN_type c_735826;
object e_735857 [5];
c_735826.hdr.mark = gc_color_red;
 c_735826.hdr.grayed = 0;
c_735826.tag = closureN_tag;
 c_735826.fn = (function_type)__lambda_413;
c_735826.num_args = 1;
c_735826.num_elements = 5;
c_735826.elements = (object *)e_735857;
c_735826.elements[0] = ((closureN)self_732913)->elements[0];
c_735826.elements[1] = ((closureN)self_732913)->elements[1];
c_735826.elements[2] = ((closureN)self_732913)->elements[2];
c_735826.elements[3] = k_731949;
c_735826.elements[4] = ((closureN)self_732913)->elements[3];


pair_type local_735860; 


return_direct_with_clo1(data,(closure)&c_735826,__lambda_413,  set_pair_as_expr(&local_735860, Cyc_cadr(data, ((closureN)self_732913)->elements[2]), ((closureN)self_732913)->elements[0]));}
;; 
}

static void __lambda_413(void *data, object self_732914, int argc, object *args) /* object self_732914, object r_731955 */
 {
 object r_731955 = args[0];
  
closureN_type c_735828;
object e_735853 [5];
c_735828.hdr.mark = gc_color_red;
 c_735828.hdr.grayed = 0;
c_735828.tag = closureN_tag;
 c_735828.fn = (function_type)__lambda_414;
c_735828.num_args = 1;
c_735828.num_elements = 5;
c_735828.elements = (object *)e_735853;
c_735828.elements[0] = ((closureN)self_732914)->elements[0];
c_735828.elements[1] = ((closureN)self_732914)->elements[1];
c_735828.elements[2] = ((closureN)self_732914)->elements[2];
c_735828.elements[3] = ((closureN)self_732914)->elements[3];
c_735828.elements[4] = ((closureN)self_732914)->elements[4];


pair_type local_735856; 
return_direct_with_clo1(data,(closure)&c_735828,__lambda_414,  set_pair_as_expr(&local_735856, r_731955, __glo__85defined_91macros_85_scheme_eval));; 
}

static void __lambda_414(void *data, object self_732915, int argc, object *args) /* object self_732915, object r_731954 */
 {
 object r_731954 = args[0];
  
closureN_type c_735830;
object e_735849 [5];
c_735830.hdr.mark = gc_color_red;
 c_735830.hdr.grayed = 0;
c_735830.tag = closureN_tag;
 c_735830.fn = (function_type)__lambda_415;
c_735830.num_args = 1;
c_735830.num_elements = 5;
c_735830.elements = (object *)e_735849;
c_735830.elements[0] = ((closureN)self_732915)->elements[0];
c_735830.elements[1] = ((closureN)self_732915)->elements[1];
c_735830.elements[2] = ((closureN)self_732915)->elements[2];
c_735830.elements[3] = ((closureN)self_732915)->elements[3];
c_735830.elements[4] = ((closureN)self_732915)->elements[4];


object c_735852 = global_set_cps_id(data,(closure)&c_735830,"__glo__85defined_91macros_85_scheme_eval", __glo__85defined_91macros_85_scheme_eval, r_731954);
return_closcall1(data,(closure)&c_735830,  c_735852);; 
}

static void __lambda_415(void *data, object self_732916, int argc, object *args) /* object self_732916, object r_731950 */
 {

  
closureN_type c_735832;
object e_735844 [5];
c_735832.hdr.mark = gc_color_red;
 c_735832.hdr.grayed = 0;
c_735832.tag = closureN_tag;
 c_735832.fn = (function_type)__lambda_416;
c_735832.num_args = 1;
c_735832.num_elements = 5;
c_735832.elements = (object *)e_735844;
c_735832.elements[0] = ((closureN)self_732916)->elements[0];
c_735832.elements[1] = ((closureN)self_732916)->elements[1];
c_735832.elements[2] = ((closureN)self_732916)->elements[2];
c_735832.elements[3] = ((closureN)self_732916)->elements[3];
c_735832.elements[4] = ((closureN)self_732916)->elements[4];



return_direct_with_clo3(data,  __glo_macro_117add_67_scheme_eval, (((closure)  __glo_macro_117add_67_scheme_eval)->fn),  &c_735832, Cyc_cadr(data, ((closureN)self_732916)->elements[2]), ((closureN)self_732916)->elements[0]);; 
}

static void __lambda_416(void *data, object self_732917, int argc, object *args) /* object self_732917, object r_731951 */
 {

  


list_3_type local_735840; 
return_direct_with_clo4(data,  __glo_env_117define_91variable_67_scheme_cyclone_util, (((closure)  __glo_env_117define_91variable_67_scheme_cyclone_util)->fn),  ((closureN)self_732917)->elements[3], Cyc_cadr(data, ((closureN)self_732917)->elements[2]), Cyc_fast_list_3(&local_735840, quote_macro, ((closureN)self_732917)->elements[0], ((closureN)self_732917)->elements[4]), ((closureN)self_732917)->elements[1]);; 
}

static void __lambda_410(void *data, object self_732918, int argc, object *args) /* object self_732918, object k_731956 */
 {
 object k_731956 = args[0];
    complex_num_type local_735794; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735794, quote_macro, ((closureN)self_732918)->elements[0])) ){ 
    
  
  
if( (boolean_f != Cyc_is_macro(Cyc_get_cvar(Cyc_cadr(data, ((closureN)self_732918)->elements[0])))) ){ 
  





return_direct_with_clo1(data,  k_731956,__lambda_411,  Cyc_is_macro(Cyc_get_cvar(Cyc_cadr(data, ((closureN)self_732918)->elements[0]))));
} else { 
  



return_direct_with_clo1(data,  k_731956,__lambda_411,  Cyc_is_procedure(data, Cyc_cadr(data, ((closureN)self_732918)->elements[0])));}
;
} else { 
  return_direct_with_clo1(data,  k_731956,__lambda_411,  boolean_f);}
;; 
}

static void __lambda_408(void *data, object self_732908, int argc, object *args) /* object self_732908, object r_731939 */
 {
 object r_731939 = args[0];
  
pair_type local_735766; 

pair_type local_735769; 



pair_type local_735775; 
return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  ((closureN)self_732908)->elements[2], set_pair_as_expr(&local_735766, quote_define_91syntax, set_pair_as_expr(&local_735769, Cyc_cadr(data, ((closureN)self_732908)->elements[1]), set_pair_as_expr(&local_735775, r_731939, NULL))), ((closureN)self_732908)->elements[0], ((closureN)self_732908)->elements[5], ((closureN)self_732908)->elements[3], ((closureN)self_732908)->elements[4]);; 
}

static void __lambda_396(void *data, object self_732896, int argc, object *args) /* object self_732896, object r_731928 */
 {
 object r_731928 = args[0];
  
closureN_type c_735682;
object e_735737 [6];
c_735682.hdr.mark = gc_color_red;
 c_735682.hdr.grayed = 0;
c_735682.tag = closureN_tag;
 c_735682.fn = (function_type)__lambda_397;
c_735682.num_args = 1;
c_735682.num_elements = 6;
c_735682.elements = (object *)e_735737;
c_735682.elements[0] = ((closureN)self_732896)->elements[0];
c_735682.elements[1] = ((closureN)self_732896)->elements[1];
c_735682.elements[2] = ((closureN)self_732896)->elements[2];
c_735682.elements[3] = ((closureN)self_732896)->elements[3];
c_735682.elements[4] = ((closureN)self_732896)->elements[4];
c_735682.elements[5] = ((closureN)self_732896)->elements[5];

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_735682, r_731928, ((closureN)self_732896)->elements[0], ((closureN)self_732896)->elements[5], ((closureN)self_732896)->elements[3], ((closureN)self_732896)->elements[4]);; 
}

static void __lambda_397(void *data, object self_732897, int argc, object *args) /* object self_732897, object r_731918 */
 {
 object r_731918 = args[0];
  
closureN_type c_735684;
object e_735732 [7];
c_735684.hdr.mark = gc_color_red;
 c_735684.hdr.grayed = 0;
c_735684.tag = closureN_tag;
 c_735684.fn = (function_type)__lambda_398;
c_735684.num_args = 1;
c_735684.num_elements = 7;
c_735684.elements = (object *)e_735732;
c_735684.elements[0] = ((closureN)self_732897)->elements[0];
c_735684.elements[1] = ((closureN)self_732897)->elements[1];
c_735684.elements[2] = ((closureN)self_732897)->elements[2];
c_735684.elements[3] = ((closureN)self_732897)->elements[3];
c_735684.elements[4] = ((closureN)self_732897)->elements[4];
c_735684.elements[5] = r_731918;
c_735684.elements[6] = ((closureN)self_732897)->elements[5];


complex_num_type local_735735; 
return_direct_with_clo1(data,(closure)&c_735684,__lambda_398,  ((inline_function_type)
                   ((closure)__glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735735, ((closureN)self_732897)->elements[1]));; 
}

static void __lambda_398(void *data, object self_732898, int argc, object *args) /* object self_732898, object r_731927 */
 {
 object r_731927 = args[0];
  
closureN_type c_735686;
object e_735727 [7];
c_735686.hdr.mark = gc_color_red;
 c_735686.hdr.grayed = 0;
c_735686.tag = closureN_tag;
 c_735686.fn = (function_type)__lambda_399;
c_735686.num_args = 1;
c_735686.num_elements = 7;
c_735686.elements = (object *)e_735727;
c_735686.elements[0] = ((closureN)self_732898)->elements[0];
c_735686.elements[1] = ((closureN)self_732898)->elements[1];
c_735686.elements[2] = ((closureN)self_732898)->elements[2];
c_735686.elements[3] = ((closureN)self_732898)->elements[3];
c_735686.elements[4] = ((closureN)self_732898)->elements[4];
c_735686.elements[5] = ((closureN)self_732898)->elements[5];
c_735686.elements[6] = ((closureN)self_732898)->elements[6];

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_735686, r_731927, ((closureN)self_732898)->elements[0], ((closureN)self_732898)->elements[6], ((closureN)self_732898)->elements[3], ((closureN)self_732898)->elements[4]);; 
}

static void __lambda_399(void *data, object self_732899, int argc, object *args) /* object self_732899, object r_731920 */
 {
 object r_731920 = args[0];
  
closureN_type c_735688;
object e_735708 [5];
c_735688.hdr.mark = gc_color_red;
 c_735688.hdr.grayed = 0;
c_735688.tag = closureN_tag;
 c_735688.fn = (function_type)__lambda_400;
c_735688.num_args = 0;
c_735688.num_elements = 5;
c_735688.elements = (object *)e_735708;
c_735688.elements[0] = ((closureN)self_732899)->elements[0];
c_735688.elements[1] = ((closureN)self_732899)->elements[1];
c_735688.elements[2] = ((closureN)self_732899)->elements[3];
c_735688.elements[3] = ((closureN)self_732899)->elements[4];
c_735688.elements[4] = ((closureN)self_732899)->elements[6];


closureN_type c_735709;
object e_735726 [3];
c_735709.hdr.mark = gc_color_red;
 c_735709.hdr.grayed = 0;
c_735709.tag = closureN_tag;
 c_735709.fn = (function_type)__lambda_402;
c_735709.num_args = 1;
c_735709.num_elements = 3;
c_735709.elements = (object *)e_735726;
c_735709.elements[0] = ((closureN)self_732899)->elements[2];
c_735709.elements[1] = ((closureN)self_732899)->elements[5];
c_735709.elements[2] = r_731920;

return_direct_with_clo1(data,(closure)&c_735688,__lambda_400,  &c_735709);; 
}

static void __lambda_402(void *data, object self_732900, int argc, object *args) /* object self_732900, object r_731922 */
 {
 object r_731922 = args[0];
  
pair_type local_735714; 

pair_type local_735717; 

pair_type local_735721; 

pair_type local_735725; 
return_direct_with_clo1(data,  ((closureN)self_732900)->elements[0], (((closure)  ((closureN)self_732900)->elements[0])->fn),  set_pair_as_expr(&local_735714, quote__if, set_pair_as_expr(&local_735717, ((closureN)self_732900)->elements[1], set_pair_as_expr(&local_735721, ((closureN)self_732900)->elements[2], set_pair_as_expr(&local_735725, r_731922, NULL)))));; 
}

static void __lambda_400(void *data, object self_732901, int argc, object *args) /* object self_732901, object k_731924 */
 {
 object k_731924 = args[0];
  
closureN_type c_735690;
object e_735706 [6];
c_735690.hdr.mark = gc_color_red;
 c_735690.hdr.grayed = 0;
c_735690.tag = closureN_tag;
 c_735690.fn = (function_type)__lambda_401;
c_735690.num_args = 1;
c_735690.num_elements = 6;
c_735690.elements = (object *)e_735706;
c_735690.elements[0] = ((closureN)self_732901)->elements[0];
c_735690.elements[1] = ((closureN)self_732901)->elements[1];
c_735690.elements[2] = k_731924;
c_735690.elements[3] = ((closureN)self_732901)->elements[2];
c_735690.elements[4] = ((closureN)self_732901)->elements[3];
c_735690.elements[5] = ((closureN)self_732901)->elements[4];

return_direct_with_clo2(data,  __glo_if_91else_127_scheme_cyclone_util, (((closure)  __glo_if_91else_127_scheme_cyclone_util)->fn),  &c_735690, ((closureN)self_732901)->elements[1]);; 
}

static void __lambda_401(void *data, object self_732902, int argc, object *args) /* object self_732902, object r_731925 */
 {
 object r_731925 = args[0];
  if( (boolean_f != r_731925) ){ 
  
complex_num_type local_735695; 
return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  ((closureN)self_732902)->elements[2], ((inline_function_type)
                   ((closure)__glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735695, ((closureN)self_732902)->elements[1]), ((closureN)self_732902)->elements[0], ((closureN)self_732902)->elements[5], ((closureN)self_732902)->elements[3], ((closureN)self_732902)->elements[4]);
} else { 
  
complex_num_type local_735705; 
return_direct_with_clo1(data,  ((closureN)self_732902)->elements[2], (((closure)  ((closureN)self_732902)->elements[2])->fn),  ((inline_function_type)
                   ((closure)__glo_void_191_191inline_191_191_scheme_base)->fn)(data,&local_735705));}
;; 
}

static void __lambda_392(void *data, object self_732892, int argc, object *args) /* object self_732892, object r_731909 */
 {
 object r_731909 = args[0];
  
closureN_type c_735643;
object e_735663 [6];
c_735643.hdr.mark = gc_color_red;
 c_735643.hdr.grayed = 0;
c_735643.tag = closureN_tag;
 c_735643.fn = (function_type)__lambda_393;
c_735643.num_args = 1;
c_735643.num_elements = 6;
c_735643.elements = (object *)e_735663;
c_735643.elements[0] = ((closureN)self_732892)->elements[0];
c_735643.elements[1] = ((closureN)self_732892)->elements[2];
c_735643.elements[2] = ((closureN)self_732892)->elements[3];
c_735643.elements[3] = ((closureN)self_732892)->elements[4];
c_735643.elements[4] = r_731909;
c_735643.elements[5] = ((closureN)self_732892)->elements[5];


complex_num_type local_735666; 
return_direct_with_clo1(data,(closure)&c_735643,__lambda_393,  ((inline_function_type)
                   ((closure)__glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735666, ((closureN)self_732892)->elements[1]));; 
}

static void __lambda_393(void *data, object self_732893, int argc, object *args) /* object self_732893, object r_731913 */
 {
 object r_731913 = args[0];
  
closureN_type c_735645;
object e_735658 [2];
c_735645.hdr.mark = gc_color_red;
 c_735645.hdr.grayed = 0;
c_735645.tag = closureN_tag;
 c_735645.fn = (function_type)__lambda_394;
c_735645.num_args = 1;
c_735645.num_elements = 2;
c_735645.elements = (object *)e_735658;
c_735645.elements[0] = ((closureN)self_732893)->elements[1];
c_735645.elements[1] = ((closureN)self_732893)->elements[4];

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_735645, r_731913, ((closureN)self_732893)->elements[0], ((closureN)self_732893)->elements[5], ((closureN)self_732893)->elements[2], ((closureN)self_732893)->elements[3]);; 
}

static void __lambda_394(void *data, object self_732894, int argc, object *args) /* object self_732894, object r_731911 */
 {
 object r_731911 = args[0];
  
pair_type local_735650; 

pair_type local_735653; 

pair_type local_735657; 
return_direct_with_clo1(data,  ((closureN)self_732894)->elements[0], (((closure)  ((closureN)self_732894)->elements[0])->fn),  set_pair_as_expr(&local_735650, quote_set_67, set_pair_as_expr(&local_735653, ((closureN)self_732894)->elements[1], set_pair_as_expr(&local_735657, r_731911, NULL))));; 
}

static void __lambda_384(void *data, object self_732884, int argc, object *args) /* object self_732884, object r_731898 */
 {
 object r_731898 = args[0];
  if( (boolean_f != r_731898) ){ 
  
closureN_type c_735590;
object e_735597 [5];
c_735590.hdr.mark = gc_color_red;
 c_735590.hdr.grayed = 0;
c_735590.tag = closureN_tag;
 c_735590.fn = (function_type)__lambda_385;
c_735590.num_args = 1;
c_735590.num_elements = 5;
c_735590.elements = (object *)e_735597;
c_735590.elements[0] = ((closureN)self_732884)->elements[0];
c_735590.elements[1] = ((closureN)self_732884)->elements[2];
c_735590.elements[2] = ((closureN)self_732884)->elements[3];
c_735590.elements[3] = ((closureN)self_732884)->elements[4];
c_735590.elements[4] = ((closureN)self_732884)->elements[5];

return_direct_with_clo2(data,  __glo_define_91_125lambda_scheme_cyclone_util, (((closure)  __glo_define_91_125lambda_scheme_cyclone_util)->fn),  &c_735590, ((closureN)self_732884)->elements[1]);
} else { 
  
closureN_type c_735600;
object e_735634 [6];
c_735600.hdr.mark = gc_color_red;
 c_735600.hdr.grayed = 0;
c_735600.tag = closureN_tag;
 c_735600.fn = (function_type)__lambda_386;
c_735600.num_args = 1;
c_735600.num_elements = 6;
c_735600.elements = (object *)e_735634;
c_735600.elements[0] = ((closureN)self_732884)->elements[0];
c_735600.elements[1] = ((closureN)self_732884)->elements[1];
c_735600.elements[2] = ((closureN)self_732884)->elements[2];
c_735600.elements[3] = ((closureN)self_732884)->elements[3];
c_735600.elements[4] = ((closureN)self_732884)->elements[4];
c_735600.elements[5] = ((closureN)self_732884)->elements[5];

return_direct_with_clo2(data,  __glo_define_91_125var_scheme_cyclone_util, (((closure)  __glo_define_91_125var_scheme_cyclone_util)->fn),  &c_735600, ((closureN)self_732884)->elements[1]);}
;; 
}

static void __lambda_386(void *data, object self_732886, int argc, object *args) /* object self_732886, object r_731905 */
 {
 object r_731905 = args[0];
  
closureN_type c_735602;
object e_735629 [6];
c_735602.hdr.mark = gc_color_red;
 c_735602.hdr.grayed = 0;
c_735602.tag = closureN_tag;
 c_735602.fn = (function_type)__lambda_387;
c_735602.num_args = 1;
c_735602.num_elements = 6;
c_735602.elements = (object *)e_735629;
c_735602.elements[0] = ((closureN)self_732886)->elements[0];
c_735602.elements[1] = ((closureN)self_732886)->elements[1];
c_735602.elements[2] = ((closureN)self_732886)->elements[2];
c_735602.elements[3] = ((closureN)self_732886)->elements[3];
c_735602.elements[4] = ((closureN)self_732886)->elements[4];
c_735602.elements[5] = ((closureN)self_732886)->elements[5];

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_735602, r_731905, ((closureN)self_732886)->elements[0], ((closureN)self_732886)->elements[5], ((closureN)self_732886)->elements[3], ((closureN)self_732886)->elements[4]);; 
}

static void __lambda_387(void *data, object self_732887, int argc, object *args) /* object self_732887, object r_731902 */
 {
 object r_731902 = args[0];
  
closureN_type c_735604;
object e_735624 [6];
c_735604.hdr.mark = gc_color_red;
 c_735604.hdr.grayed = 0;
c_735604.tag = closureN_tag;
 c_735604.fn = (function_type)__lambda_388;
c_735604.num_args = 1;
c_735604.num_elements = 6;
c_735604.elements = (object *)e_735624;
c_735604.elements[0] = ((closureN)self_732887)->elements[0];
c_735604.elements[1] = ((closureN)self_732887)->elements[2];
c_735604.elements[2] = ((closureN)self_732887)->elements[3];
c_735604.elements[3] = ((closureN)self_732887)->elements[4];
c_735604.elements[4] = r_731902;
c_735604.elements[5] = ((closureN)self_732887)->elements[5];


complex_num_type local_735627; 
return_direct_with_clo1(data,(closure)&c_735604,__lambda_388,  ((inline_function_type)
                   ((closure)__glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735627, ((closureN)self_732887)->elements[1]));; 
}

static void __lambda_388(void *data, object self_732888, int argc, object *args) /* object self_732888, object r_731904 */
 {
 object r_731904 = args[0];
  
closureN_type c_735606;
object e_735619 [2];
c_735606.hdr.mark = gc_color_red;
 c_735606.hdr.grayed = 0;
c_735606.tag = closureN_tag;
 c_735606.fn = (function_type)__lambda_389;
c_735606.num_args = 1;
c_735606.num_elements = 2;
c_735606.elements = (object *)e_735619;
c_735606.elements[0] = ((closureN)self_732888)->elements[1];
c_735606.elements[1] = ((closureN)self_732888)->elements[4];

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_735606, r_731904, ((closureN)self_732888)->elements[0], ((closureN)self_732888)->elements[5], ((closureN)self_732888)->elements[2], ((closureN)self_732888)->elements[3]);; 
}

static void __lambda_389(void *data, object self_732889, int argc, object *args) /* object self_732889, object r_731903 */
 {
 object r_731903 = args[0];
  
closureN_type c_735608;
object e_735614 [1];
c_735608.hdr.mark = gc_color_red;
 c_735608.hdr.grayed = 0;
c_735608.tag = closureN_tag;
 c_735608.fn = (function_type)__lambda_390;
c_735608.num_args = 1;
c_735608.num_elements = 1;
c_735608.elements = (object *)e_735614;
c_735608.elements[0] = ((closureN)self_732889)->elements[0];


pair_type local_735617; 
return_direct_with_clo1(data,(closure)&c_735608,__lambda_390,  set_pair_as_expr(&local_735617, ((closureN)self_732889)->elements[1], r_731903));; 
}

static void __lambda_390(void *data, object self_732890, int argc, object *args) /* object self_732890, object r_731901 */
 {
 object r_731901 = args[0];
  
pair_type local_735613; 
return_direct_with_clo1(data,  ((closureN)self_732890)->elements[0], (((closure)  ((closureN)self_732890)->elements[0])->fn),  set_pair_as_expr(&local_735613, quote_define, r_731901));; 
}

static void __lambda_385(void *data, object self_732885, int argc, object *args) /* object self_732885, object r_731899 */
 {
 object r_731899 = args[0];
  return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  ((closureN)self_732885)->elements[1], r_731899, ((closureN)self_732885)->elements[0], ((closureN)self_732885)->elements[4], ((closureN)self_732885)->elements[2], ((closureN)self_732885)->elements[3]);; 
}

static void __lambda_371(void *data, object self_732871, int argc, object *args) /* object self_732871, object use_91env_73538_731072 */
 {

  
closureN_type c_735526;
object e_735582 [6];
c_735526.hdr.mark = gc_color_red;
 c_735526.hdr.grayed = 0;
c_735526.tag = closureN_tag;
 c_735526.fn = (function_type)__lambda_372;
c_735526.num_args = 1;
c_735526.num_elements = 6;
c_735526.elements = (object *)e_735582;
c_735526.elements[0] = ((closureN)self_732871)->elements[0];
c_735526.elements[1] = ((closureN)self_732871)->elements[1];
c_735526.elements[2] = ((closureN)self_732871)->elements[2];
c_735526.elements[3] = ((closureN)self_732871)->elements[3];
c_735526.elements[4] = ((closureN)self_732871)->elements[4];
c_735526.elements[5] = ((closureN)self_732871)->elements[5];

return_direct_with_clo2(data,  __glo_lambda_91formals_91_125list_scheme_cyclone_util, (((closure)  __glo_lambda_91formals_91_125list_scheme_cyclone_util)->fn),  &c_735526, ((closureN)self_732871)->elements[1]);; 
}

static void __lambda_372(void *data, object self_732872, int argc, object *args) /* object self_732872, object args_73541_731073 */
 {
 object args_73541_731073 = args[0];
  
closureN_type c_735528;
object e_735580 [7];
c_735528.hdr.mark = gc_color_red;
 c_735528.hdr.grayed = 0;
c_735528.tag = closureN_tag;
 c_735528.fn = (function_type)__lambda_373;
c_735528.num_args = 1;
c_735528.num_elements = 7;
c_735528.elements = (object *)e_735580;
c_735528.elements[0] = args_73541_731073;
c_735528.elements[1] = ((closureN)self_732872)->elements[0];
c_735528.elements[2] = ((closureN)self_732872)->elements[1];
c_735528.elements[3] = ((closureN)self_732872)->elements[2];
c_735528.elements[4] = ((closureN)self_732872)->elements[3];
c_735528.elements[5] = ((closureN)self_732872)->elements[4];
c_735528.elements[6] = ((closureN)self_732872)->elements[5];

return_direct_with_clo2(data,  __glo_lambda_91formals_91type_scheme_cyclone_util, (((closure)  __glo_lambda_91formals_91type_scheme_cyclone_util)->fn),  &c_735528, ((closureN)self_732872)->elements[1]);; 
}

static void __lambda_373(void *data, object self_732873, int argc, object *args) /* object self_732873, object ltype_73544_731074 */
 {
 object ltype_73544_731074 = args[0];
  
closureN_type c_735530;
object e_735569 [8];
c_735530.hdr.mark = gc_color_red;
 c_735530.hdr.grayed = 0;
c_735530.tag = closureN_tag;
 c_735530.fn = (function_type)__lambda_374;
c_735530.num_args = 1;
c_735530.num_elements = 8;
c_735530.elements = (object *)e_735569;
c_735530.elements[0] = ((closureN)self_732873)->elements[0];
c_735530.elements[1] = ((closureN)self_732873)->elements[1];
c_735530.elements[2] = ((closureN)self_732873)->elements[2];
c_735530.elements[3] = ((closureN)self_732873)->elements[3];
c_735530.elements[4] = ((closureN)self_732873)->elements[4];
c_735530.elements[5] = ((closureN)self_732873)->elements[5];
c_735530.elements[6] = ltype_73544_731074;
c_735530.elements[7] = ((closureN)self_732873)->elements[6];


mclosure0(c_735570, (function_type)__lambda_381);c_735570.num_args = 1;
return_direct_with_clo1(data,(closure)&c_735530,__lambda_374,  &c_735570);; 
}

static void __lambda_381(void *data, object self_732874, int argc, object *args) /* object self_732874, object k_731891, object a_73555_731077 */
 {
 object k_731891 = args[0]; object a_73555_731077 = args[1];
  
closureN_type c_735572;
object e_735579 [2];
c_735572.hdr.mark = gc_color_red;
 c_735572.hdr.grayed = 0;
c_735572.tag = closureN_tag;
 c_735572.fn = (function_type)__lambda_382;
c_735572.num_args = 1;
c_735572.num_elements = 2;
c_735572.elements = (object *)e_735579;
c_735572.elements[0] = a_73555_731077;
c_735572.elements[1] = k_731891;

return_direct_with_clo2(data,  __glo_gensym_scheme_cyclone_util, (((closure)  __glo_gensym_scheme_cyclone_util)->fn),  &c_735572, a_73555_731077);; 
}

static void __lambda_382(void *data, object self_732875, int argc, object *args) /* object self_732875, object r_731893 */
 {
 object r_731893 = args[0];
  
pair_type local_735577; 
return_direct_with_clo1(data,  ((closureN)self_732875)->elements[1], (((closure)  ((closureN)self_732875)->elements[1])->fn),  set_pair_as_expr(&local_735577, ((closureN)self_732875)->elements[0], r_731893));; 
}

static void __lambda_374(void *data, object self_732876, int argc, object *args) /* object self_732876, object r_731890 */
 {
 object r_731890 = args[0];
  
closureN_type c_735532;
object e_735567 [7];
c_735532.hdr.mark = gc_color_red;
 c_735532.hdr.grayed = 0;
c_735532.tag = closureN_tag;
 c_735532.fn = (function_type)__lambda_375;
c_735532.num_args = 1;
c_735532.num_elements = 7;
c_735532.elements = (object *)e_735567;
c_735532.elements[0] = ((closureN)self_732876)->elements[1];
c_735532.elements[1] = ((closureN)self_732876)->elements[2];
c_735532.elements[2] = ((closureN)self_732876)->elements[3];
c_735532.elements[3] = ((closureN)self_732876)->elements[4];
c_735532.elements[4] = ((closureN)self_732876)->elements[5];
c_735532.elements[5] = ((closureN)self_732876)->elements[6];
c_735532.elements[6] = ((closureN)self_732876)->elements[7];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_735532, r_731890, ((closureN)self_732876)->elements[0]);; 
}

static void __lambda_375(void *data, object self_732877, int argc, object *args) /* object self_732877, object a_91lookup_73547_731075 */
 {
 object a_91lookup_73547_731075 = args[0];
  
closureN_type c_735534;
object e_735566 [8];
c_735534.hdr.mark = gc_color_red;
 c_735534.hdr.grayed = 0;
c_735534.tag = closureN_tag;
 c_735534.fn = (function_type)__lambda_376;
c_735534.num_args = 1;
c_735534.num_elements = 8;
c_735534.elements = (object *)e_735566;
c_735534.elements[0] = a_91lookup_73547_731075;
c_735534.elements[1] = ((closureN)self_732877)->elements[0];
c_735534.elements[2] = ((closureN)self_732877)->elements[1];
c_735534.elements[3] = ((closureN)self_732877)->elements[2];
c_735534.elements[4] = ((closureN)self_732877)->elements[3];
c_735534.elements[5] = ((closureN)self_732877)->elements[4];
c_735534.elements[6] = ((closureN)self_732877)->elements[5];
c_735534.elements[7] = ((closureN)self_732877)->elements[6];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_735534, primitive_cdr, a_91lookup_73547_731075);; 
}

static void __lambda_376(void *data, object self_732878, int argc, object *args) /* object self_732878, object r_731889 */
 {
 object r_731889 = args[0];
  
closureN_type c_735536;
object e_735564 [7];
c_735536.hdr.mark = gc_color_red;
 c_735536.hdr.grayed = 0;
c_735536.tag = closureN_tag;
 c_735536.fn = (function_type)__lambda_377;
c_735536.num_args = 1;
c_735536.num_elements = 7;
c_735536.elements = (object *)e_735564;
c_735536.elements[0] = ((closureN)self_732878)->elements[0];
c_735536.elements[1] = ((closureN)self_732878)->elements[1];
c_735536.elements[2] = ((closureN)self_732878)->elements[2];
c_735536.elements[3] = ((closureN)self_732878)->elements[3];
c_735536.elements[4] = ((closureN)self_732878)->elements[4];
c_735536.elements[5] = ((closureN)self_732878)->elements[5];
c_735536.elements[6] = ((closureN)self_732878)->elements[7];

return_direct_with_clo3(data,  __glo_list_91_125lambda_91formals_scheme_eval, (((closure)  __glo_list_91_125lambda_91formals_scheme_eval)->fn),  &c_735536, r_731889, ((closureN)self_732878)->elements[6]);; 
}

static void __lambda_377(void *data, object self_732879, int argc, object *args) /* object self_732879, object new_91formals_73550_731076 */
 {
 object new_91formals_73550_731076 = args[0];
  
closureN_type c_735538;
object e_735561 [6];
c_735538.hdr.mark = gc_color_red;
 c_735538.hdr.grayed = 0;
c_735538.tag = closureN_tag;
 c_735538.fn = (function_type)__lambda_378;
c_735538.num_args = 1;
c_735538.num_elements = 6;
c_735538.elements = (object *)e_735561;
c_735538.elements[0] = ((closureN)self_732879)->elements[1];
c_735538.elements[1] = ((closureN)self_732879)->elements[2];
c_735538.elements[2] = ((closureN)self_732879)->elements[3];
c_735538.elements[3] = ((closureN)self_732879)->elements[4];
c_735538.elements[4] = new_91formals_73550_731076;
c_735538.elements[5] = ((closureN)self_732879)->elements[6];

return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_735538, ((closureN)self_732879)->elements[0], ((closureN)self_732879)->elements[5]);; 
}

static void __lambda_378(void *data, object self_732880, int argc, object *args) /* object self_732880, object r_731888 */
 {
 object r_731888 = args[0];
  
closureN_type c_735540;
object e_735553 [2];
c_735540.hdr.mark = gc_color_red;
 c_735540.hdr.grayed = 0;
c_735540.tag = closureN_tag;
 c_735540.fn = (function_type)__lambda_379;
c_735540.num_args = 1;
c_735540.num_elements = 2;
c_735540.elements = (object *)e_735553;
c_735540.elements[0] = ((closureN)self_732880)->elements[2];
c_735540.elements[1] = ((closureN)self_732880)->elements[4];


complex_num_type local_735556; 
return_direct_with_clo7(data,  __glo__191expand_91body_scheme_eval, (((closure)  __glo__191expand_91body_scheme_eval)->fn),  &c_735540, NULL, ((inline_function_type)
                   ((closure)__glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735556, ((closureN)self_732880)->elements[1]), ((closureN)self_732880)->elements[0], ((closureN)self_732880)->elements[5], ((closureN)self_732880)->elements[3], r_731888);; 
}

static void __lambda_379(void *data, object self_732881, int argc, object *args) /* object self_732881, object r_731885 */
 {
 object r_731885 = args[0];
  
closureN_type c_735542;
object e_735548 [1];
c_735542.hdr.mark = gc_color_red;
 c_735542.hdr.grayed = 0;
c_735542.tag = closureN_tag;
 c_735542.fn = (function_type)__lambda_380;
c_735542.num_args = 1;
c_735542.num_elements = 1;
c_735542.elements = (object *)e_735548;
c_735542.elements[0] = ((closureN)self_732881)->elements[0];


pair_type local_735551; 
return_direct_with_clo1(data,(closure)&c_735542,__lambda_380,  set_pair_as_expr(&local_735551, ((closureN)self_732881)->elements[1], r_731885));; 
}

static void __lambda_380(void *data, object self_732882, int argc, object *args) /* object self_732882, object r_731884 */
 {
 object r_731884 = args[0];
  
pair_type local_735547; 
return_direct_with_clo1(data,  ((closureN)self_732882)->elements[0], (((closure)  ((closureN)self_732882)->elements[0])->fn),  set_pair_as_expr(&local_735547, quote_lambda, r_731884));; 
}

static void __lambda_368(void *data, object self_732868, int argc, object *args) /* object self_732868, object renamed_73529_731071 */
 {
 object renamed_73529_731071 = args[0];
  if( (boolean_f != renamed_73529_731071) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_732868)->elements[1], (((closure)  ((closureN)self_732868)->elements[1])->fn),  Cyc_cdr(data, renamed_73529_731071));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732868)->elements[1], (((closure)  ((closureN)self_732868)->elements[1])->fn),  ((closureN)self_732868)->elements[0]);}
;; 
}

static void __lambda_363(void *data, object self_732955, int argc, object *args) /* object self_732955, object k_732027 */
 {
 object k_732027 = args[0];
  
closureN_type c_735478;
object e_735493 [3];
c_735478.hdr.mark = gc_color_red;
 c_735478.hdr.grayed = 0;
c_735478.tag = closureN_tag;
 c_735478.fn = (function_type)__lambda_364;
c_735478.num_args = 1;
c_735478.num_elements = 3;
c_735478.elements = (object *)e_735493;
c_735478.elements[0] = ((closureN)self_732955)->elements[0];
c_735478.elements[1] = k_732027;
c_735478.elements[2] = ((closureN)self_732955)->elements[1];

return_direct_with_clo2(data,  __glo_prim_127_scheme_cyclone_primitives, (((closure)  __glo_prim_127_scheme_cyclone_primitives)->fn),  &c_735478, ((closureN)self_732955)->elements[0]);; 
}

static void __lambda_364(void *data, object self_732956, int argc, object *args) /* object self_732956, object r_732028 */
 {
 object r_732028 = args[0];
  if( (boolean_f != r_732028) ){ 
  
closureN_type c_735480;
object e_735486 [1];
c_735480.hdr.mark = gc_color_red;
 c_735480.hdr.grayed = 0;
c_735480.tag = closureN_tag;
 c_735480.fn = (function_type)__lambda_365;
c_735480.num_args = 1;
c_735480.num_elements = 1;
c_735480.elements = (object *)e_735486;
c_735480.elements[0] = ((closureN)self_732956)->elements[1];



return_direct_with_clo1(data,(closure)&c_735480,__lambda_365,  assoc(data, ((closureN)self_732956)->elements[0], ((closureN)self_732956)->elements[2]));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732956)->elements[1], (((closure)  ((closureN)self_732956)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_365(void *data, object self_732957, int argc, object *args) /* object self_732957, object r_732029 */
 {
 object r_732029 = args[0];
  
complex_num_type local_735485; 
return_direct_with_clo1(data,  ((closureN)self_732957)->elements[0], (((closure)  ((closureN)self_732957)->elements[0])->fn),  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_735485, r_732029));; 
}

static void __lambda_357(void *data, object _, int argc, object *args) /* closure _,object k_731853, object exp_73503_731062, object opts_73504_731063_raw, ... */
 {
object k_731853 = args[0]; object exp_73503_731062 = args[1];
load_varargs(opts_73504_731063, args, 2, argc - 2);
  object r_731854;
  Cyc_st_add(data, "scheme/eval.sld:expand");
  
  
if( (boolean_f != Cyc_num_fast_gt_op(data, Cyc_length(data, opts_73504_731063), obj_int2obj(0))) ){ 
  
  r_731854 = Cyc_car(data, opts_73504_731063);
} else { 
  r_731854 = __glo__85global_91environment_85_scheme_eval;}
;
closureN_type c_735426;
object e_735437 [1];
c_735426.hdr.mark = gc_color_red;
 c_735426.hdr.grayed = 0;
c_735426.tag = closureN_tag;
 c_735426.fn = (function_type)__lambda_358;
c_735426.num_args = 0;
c_735426.num_elements = 1;
c_735426.elements = (object *)e_735437;
c_735426.elements[0] = opts_73504_731063;


closureN_type c_735438;
object e_735446 [3];
c_735438.hdr.mark = gc_color_red;
 c_735438.hdr.grayed = 0;
c_735438.tag = closureN_tag;
 c_735438.fn = (function_type)__lambda_359;
c_735438.num_args = 1;
c_735438.num_elements = 3;
c_735438.elements = (object *)e_735446;
c_735438.elements[0] = exp_73503_731062;
c_735438.elements[1] = k_731853;
c_735438.elements[2] = r_731854;

return_direct_with_clo1(data,(closure)&c_735426,__lambda_358,  &c_735438);; 
}

static void __lambda_359(void *data, object self_732862, int argc, object *args) /* object self_732862, object r_731855 */
 {
 object r_731855 = args[0];
  
closureN_type c_735440;
object e_735444 [2];
c_735440.hdr.mark = gc_color_red;
 c_735440.hdr.grayed = 0;
c_735440.tag = closureN_tag;
 c_735440.fn = (function_type)__lambda_360;
c_735440.num_args = 2;
c_735440.num_elements = 2;
c_735440.elements = (object *)e_735444;
c_735440.elements[0] = ((closureN)self_732862)->elements[0];
c_735440.elements[1] = ((closureN)self_732862)->elements[1];

return_direct_with_clo2(data,(closure)&c_735440,__lambda_360,  ((closureN)self_732862)->elements[2], r_731855);; 
}

static void __lambda_360(void *data, object self_732863, int argc, object *args) /* object self_732863, object env_73505_731064, object rename_91env_73506_731065 */
 {
 object env_73505_731064 = args[0]; object rename_91env_73506_731065 = args[1];
  return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  ((closureN)self_732863)->elements[1], ((closureN)self_732863)->elements[0], env_73505_731064, rename_91env_73506_731065, NULL, NULL);; 
}

static void __lambda_358(void *data, object self_732864, int argc, object *args) /* object self_732864, object k_731858 */
 {
 object k_731858 = args[0];
    
  
if( (boolean_f != Cyc_num_fast_gt_op(data, Cyc_length(data, ((closureN)self_732864)->elements[0]), obj_int2obj(1))) ){ 
  

return_direct_with_clo1(data,  k_731858, (((closure)  k_731858)->fn),  Cyc_cadr(data, ((closureN)self_732864)->elements[0]));
} else { 
  return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  k_731858, NULL, NULL, NULL);}
;; 
}

static void __lambda_306(void *data, object _, int argc, object *args) /* closure _,object k_731771, object expr_73443_731050, object rename_91env_73444_731051 */
 {
object k_731771 = args[0]; object expr_73443_731050 = args[1]; object rename_91env_73444_731051 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:macro:cleanup");

closureN_type c_734956;
object e_735414 [3];
c_734956.hdr.mark = gc_color_red;
 c_734956.hdr.grayed = 0;
c_734956.tag = closureN_tag;
 c_734956.fn = (function_type)__lambda_307;
c_734956.num_args = 1;
c_734956.num_elements = 3;
c_734956.elements = (object *)e_735414;
c_734956.elements[0] = expr_73443_731050;
c_734956.elements[1] = k_731771;
c_734956.elements[2] = rename_91env_73444_731051;

return_direct_with_clo1(data,(closure)&c_734956,__lambda_307,  boolean_f);; 
}

static void __lambda_307(void *data, object self_732810, int argc, object *args) /* object self_732810, object clean_731053 */
 {
 object clean_731053 = args[0];
  
closureN_type c_734958;
object e_735410 [3];
c_734958.hdr.mark = gc_color_red;
 c_734958.hdr.grayed = 0;
c_734958.tag = closureN_tag;
 c_734958.fn = (function_type)__lambda_527;
c_734958.num_args = 1;
c_734958.num_elements = 3;
c_734958.elements = (object *)e_735410;
c_734958.elements[0] = ((closureN)self_732810)->elements[0];
c_734958.elements[1] = ((closureN)self_732810)->elements[1];
c_734958.elements[2] = ((closureN)self_732810)->elements[2];


pair_type local_735413; 
return_direct_with_clo1(data,(closure)&c_734958,__lambda_527,  set_cell_as_expr(&local_735413, clean_731053));; 
}

static void __lambda_527(void *data, object self_732811, int argc, object *args) /* object self_732811, object clean_731053 */
 {
 object clean_731053 = args[0];
  
closureN_type c_734960;
object e_734976 [3];
c_734960.hdr.mark = gc_color_red;
 c_734960.hdr.grayed = 0;
c_734960.tag = closureN_tag;
 c_734960.fn = (function_type)__lambda_308;
c_734960.num_args = 1;
c_734960.num_elements = 3;
c_734960.elements = (object *)e_734976;
c_734960.elements[0] = clean_731053;
c_734960.elements[1] = ((closureN)self_732811)->elements[0];
c_734960.elements[2] = ((closureN)self_732811)->elements[1];


closureN_type c_734977;
object e_735409 [2];
c_734977.hdr.mark = gc_color_red;
 c_734977.hdr.grayed = 0;
c_734977.tag = closureN_tag;
 c_734977.fn = (function_type)__lambda_310;
c_734977.num_args = 2;
c_734977.num_elements = 2;
c_734977.elements = (object *)e_735409;
c_734977.elements[0] = clean_731053;
c_734977.elements[1] = ((closureN)self_732811)->elements[2];

return_direct_with_clo1(data,(closure)&c_734960,__lambda_308,  &c_734977);; 
}

static void __lambda_310(void *data, object self_732812, int argc, object *args) /* object self_732812, object k_731776, object expr_73445_731055, object bv_73446_731056 */
 {
 object k_731776 = args[0]; object expr_73445_731055 = args[1]; object bv_73446_731056 = args[2];
  
closureN_type c_734979;
object e_735405 [4];
c_734979.hdr.mark = gc_color_red;
 c_734979.hdr.grayed = 0;
c_734979.tag = closureN_tag;
 c_734979.fn = (function_type)__lambda_526;
c_734979.num_args = 1;
c_734979.num_elements = 4;
c_734979.elements = (object *)e_735405;
c_734979.elements[0] = ((closureN)self_732812)->elements[0];
c_734979.elements[1] = expr_73445_731055;
c_734979.elements[2] = k_731776;
c_734979.elements[3] = ((closureN)self_732812)->elements[1];


pair_type local_735408; 
return_direct_with_clo1(data,(closure)&c_734979,__lambda_526,  set_cell_as_expr(&local_735408, bv_73446_731056));; 
}

static void __lambda_526(void *data, object self_732813, int argc, object *args) /* object self_732813, object bv_73446_731056 */
 {
 object bv_73446_731056 = args[0];
  object r_731777;
    
if( (boolean_f != Cyc_is_pair(((closureN)self_732813)->elements[1])) ){ 
  object local_734987 = alloca(sizeof(complex_num_type)); 
  object local_734990 = alloca(sizeof(complex_num_type)); 
  r_731777 = ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,local_734987, ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,local_734990, ((closureN)self_732813)->elements[1]));
} else { 
  r_731777 = boolean_f;}
;if( (boolean_f != r_731777) ){ 
  


closureN_type c_734997;
object e_735016 [4];
c_734997.hdr.mark = gc_color_red;
 c_734997.hdr.grayed = 0;
c_734997.tag = closureN_tag;
 c_734997.fn = (function_type)__lambda_311;
c_734997.num_args = 1;
c_734997.num_elements = 4;
c_734997.elements = (object *)e_735016;
c_734997.elements[0] = bv_73446_731056;
c_734997.elements[1] = ((closureN)self_732813)->elements[0];
c_734997.elements[2] = ((closureN)self_732813)->elements[1];
c_734997.elements[3] = ((closureN)self_732813)->elements[2];





return_closcall3(data,  car(((closureN)self_732813)->elements[0]),  &c_734997, Cyc_car(data, ((closureN)self_732813)->elements[1]), car(bv_73446_731056));
} else { 
  
closureN_type c_735023;
object e_735403 [5];
c_735023.hdr.mark = gc_color_red;
 c_735023.hdr.grayed = 0;
c_735023.tag = closureN_tag;
 c_735023.fn = (function_type)__lambda_313;
c_735023.num_args = 1;
c_735023.num_elements = 5;
c_735023.elements = (object *)e_735403;
c_735023.elements[0] = bv_73446_731056;
c_735023.elements[1] = ((closureN)self_732813)->elements[0];
c_735023.elements[2] = ((closureN)self_732813)->elements[1];
c_735023.elements[3] = ((closureN)self_732813)->elements[2];
c_735023.elements[4] = ((closureN)self_732813)->elements[3];

return_direct_with_clo2(data,  __glo_const_127_scheme_cyclone_util, (((closure)  __glo_const_127_scheme_cyclone_util)->fn),  &c_735023, ((closureN)self_732813)->elements[1]);}
;; 
}

static void __lambda_313(void *data, object self_732816, int argc, object *args) /* object self_732816, object r_731782 */
 {
 object r_731782 = args[0];
  if( (boolean_f != r_731782) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732816)->elements[3], (((closure)  ((closureN)self_732816)->elements[3])->fn),  ((closureN)self_732816)->elements[2]);
} else { 
    
if( (boolean_f != Cyc_is_null(((closureN)self_732816)->elements[2])) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732816)->elements[3], (((closure)  ((closureN)self_732816)->elements[3])->fn),  ((closureN)self_732816)->elements[2]);
} else { 
  
closureN_type c_735034;
object e_735401 [5];
c_735034.hdr.mark = gc_color_red;
 c_735034.hdr.grayed = 0;
c_735034.tag = closureN_tag;
 c_735034.fn = (function_type)__lambda_314;
c_735034.num_args = 1;
c_735034.num_elements = 5;
c_735034.elements = (object *)e_735401;
c_735034.elements[0] = ((closureN)self_732816)->elements[0];
c_735034.elements[1] = ((closureN)self_732816)->elements[1];
c_735034.elements[2] = ((closureN)self_732816)->elements[2];
c_735034.elements[3] = ((closureN)self_732816)->elements[3];
c_735034.elements[4] = ((closureN)self_732816)->elements[4];

return_direct_with_clo2(data,  __glo_quote_127_scheme_cyclone_util, (((closure)  __glo_quote_127_scheme_cyclone_util)->fn),  &c_735034, ((closureN)self_732816)->elements[2]);}
;}
;; 
}

static void __lambda_314(void *data, object self_732817, int argc, object *args) /* object self_732817, object r_731784 */
 {
 object r_731784 = args[0];
  if( (boolean_f != r_731784) ){ 
  
closureN_type c_735036;
object e_735064 [4];
c_735036.hdr.mark = gc_color_red;
 c_735036.hdr.grayed = 0;
c_735036.tag = closureN_tag;
 c_735036.fn = (function_type)__lambda_315;
c_735036.num_args = 1;
c_735036.num_elements = 4;
c_735036.elements = (object *)e_735064;
c_735036.elements[0] = ((closureN)self_732817)->elements[0];
c_735036.elements[1] = ((closureN)self_732817)->elements[1];
c_735036.elements[2] = ((closureN)self_732817)->elements[2];
c_735036.elements[3] = ((closureN)self_732817)->elements[3];



return_direct_with_clo1(data,(closure)&c_735036,__lambda_315,  Cyc_cadr(data, ((closureN)self_732817)->elements[2]));
} else { 
  
closureN_type c_735069;
object e_735399 [5];
c_735069.hdr.mark = gc_color_red;
 c_735069.hdr.grayed = 0;
c_735069.tag = closureN_tag;
 c_735069.fn = (function_type)__lambda_318;
c_735069.num_args = 1;
c_735069.num_elements = 5;
c_735069.elements = (object *)e_735399;
c_735069.elements[0] = ((closureN)self_732817)->elements[0];
c_735069.elements[1] = ((closureN)self_732817)->elements[1];
c_735069.elements[2] = ((closureN)self_732817)->elements[2];
c_735069.elements[3] = ((closureN)self_732817)->elements[3];
c_735069.elements[4] = ((closureN)self_732817)->elements[4];

return_direct_with_clo2(data,  __glo_define_91c_127_scheme_cyclone_util, (((closure)  __glo_define_91c_127_scheme_cyclone_util)->fn),  &c_735069, ((closureN)self_732817)->elements[2]);}
;; 
}

static void __lambda_318(void *data, object self_732821, int argc, object *args) /* object self_732821, object r_731791 */
 {
 object r_731791 = args[0];
  if( (boolean_f != r_731791) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732821)->elements[3], (((closure)  ((closureN)self_732821)->elements[3])->fn),  ((closureN)self_732821)->elements[2]);
} else { 
  
closureN_type c_735074;
object e_735394 [5];
c_735074.hdr.mark = gc_color_red;
 c_735074.hdr.grayed = 0;
c_735074.tag = closureN_tag;
 c_735074.fn = (function_type)__lambda_319;
c_735074.num_args = 1;
c_735074.num_elements = 5;
c_735074.elements = (object *)e_735394;
c_735074.elements[0] = ((closureN)self_732821)->elements[0];
c_735074.elements[1] = ((closureN)self_732821)->elements[1];
c_735074.elements[2] = ((closureN)self_732821)->elements[2];
c_735074.elements[3] = ((closureN)self_732821)->elements[3];
c_735074.elements[4] = ((closureN)self_732821)->elements[4];


complex_num_type local_735397; 
return_direct_with_clo1(data,(closure)&c_735074,__lambda_319,  ((inline_function_type)
                   ((closure)__glo_ref_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735397, ((closureN)self_732821)->elements[2]));}
;; 
}

static void __lambda_319(void *data, object self_732822, int argc, object *args) /* object self_732822, object r_731792 */
 {
 object r_731792 = args[0];
  if( (boolean_f != r_731792) ){ 
  
closureN_type c_735076;
object e_735110 [4];
c_735076.hdr.mark = gc_color_red;
 c_735076.hdr.grayed = 0;
c_735076.tag = closureN_tag;
 c_735076.fn = (function_type)__lambda_320;
c_735076.num_args = 1;
c_735076.num_elements = 4;
c_735076.elements = (object *)e_735110;
c_735076.elements[0] = ((closureN)self_732822)->elements[0];
c_735076.elements[1] = ((closureN)self_732822)->elements[1];
c_735076.elements[2] = ((closureN)self_732822)->elements[2];
c_735076.elements[3] = ((closureN)self_732822)->elements[3];

return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_735076, ((closureN)self_732822)->elements[2], ((closureN)self_732822)->elements[4], boolean_f);
} else { 
  
closureN_type c_735114;
object e_735392 [4];
c_735114.hdr.mark = gc_color_red;
 c_735114.hdr.grayed = 0;
c_735114.tag = closureN_tag;
 c_735114.fn = (function_type)__lambda_324;
c_735114.num_args = 1;
c_735114.num_elements = 4;
c_735114.elements = (object *)e_735392;
c_735114.elements[0] = ((closureN)self_732822)->elements[0];
c_735114.elements[1] = ((closureN)self_732822)->elements[1];
c_735114.elements[2] = ((closureN)self_732822)->elements[2];
c_735114.elements[3] = ((closureN)self_732822)->elements[3];

return_direct_with_clo2(data,  __glo_if_91syntax_127_scheme_cyclone_util, (((closure)  __glo_if_91syntax_127_scheme_cyclone_util)->fn),  &c_735114, ((closureN)self_732822)->elements[2]);}
;; 
}

static void __lambda_324(void *data, object self_732827, int argc, object *args) /* object self_732827, object r_731797 */
 {
 object r_731797 = args[0];
  if( (boolean_f != r_731797) ){ 
  
closureN_type c_735116;
object e_735181 [4];
c_735116.hdr.mark = gc_color_red;
 c_735116.hdr.grayed = 0;
c_735116.tag = closureN_tag;
 c_735116.fn = (function_type)__lambda_325;
c_735116.num_args = 1;
c_735116.num_elements = 4;
c_735116.elements = (object *)e_735181;
c_735116.elements[0] = ((closureN)self_732827)->elements[0];
c_735116.elements[1] = ((closureN)self_732827)->elements[1];
c_735116.elements[2] = ((closureN)self_732827)->elements[2];
c_735116.elements[3] = ((closureN)self_732827)->elements[3];


complex_num_type local_735184; 
return_direct_with_clo1(data,(closure)&c_735116,__lambda_325,  ((inline_function_type)
                   ((closure)__glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735184, ((closureN)self_732827)->elements[2]));
} else { 
  
closureN_type c_735187;
object e_735390 [4];
c_735187.hdr.mark = gc_color_red;
 c_735187.hdr.grayed = 0;
c_735187.tag = closureN_tag;
 c_735187.fn = (function_type)__lambda_332;
c_735187.num_args = 1;
c_735187.num_elements = 4;
c_735187.elements = (object *)e_735390;
c_735187.elements[0] = ((closureN)self_732827)->elements[0];
c_735187.elements[1] = ((closureN)self_732827)->elements[1];
c_735187.elements[2] = ((closureN)self_732827)->elements[2];
c_735187.elements[3] = ((closureN)self_732827)->elements[3];

return_direct_with_clo2(data,  __glo_lambda_127_scheme_cyclone_util, (((closure)  __glo_lambda_127_scheme_cyclone_util)->fn),  &c_735187, ((closureN)self_732827)->elements[2]);}
;; 
}

static void __lambda_332(void *data, object self_732835, int argc, object *args) /* object self_732835, object r_731811 */
 {
 object r_731811 = args[0];
  if( (boolean_f != r_731811) ){ 
  
closureN_type c_735189;
object e_735227 [4];
c_735189.hdr.mark = gc_color_red;
 c_735189.hdr.grayed = 0;
c_735189.tag = closureN_tag;
 c_735189.fn = (function_type)__lambda_333;
c_735189.num_args = 1;
c_735189.num_elements = 4;
c_735189.elements = (object *)e_735227;
c_735189.elements[0] = ((closureN)self_732835)->elements[0];
c_735189.elements[1] = ((closureN)self_732835)->elements[1];
c_735189.elements[2] = ((closureN)self_732835)->elements[2];
c_735189.elements[3] = ((closureN)self_732835)->elements[3];


complex_num_type local_735230; 
return_direct_with_clo1(data,(closure)&c_735189,__lambda_333,  ((inline_function_type)
                   ((closure)__glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735230, ((closureN)self_732835)->elements[2]));
} else { 
  
closureN_type c_735233;
object e_735388 [4];
c_735233.hdr.mark = gc_color_red;
 c_735233.hdr.grayed = 0;
c_735233.tag = closureN_tag;
 c_735233.fn = (function_type)__lambda_339;
c_735233.num_args = 1;
c_735233.num_elements = 4;
c_735233.elements = (object *)e_735388;
c_735233.elements[0] = ((closureN)self_732835)->elements[0];
c_735233.elements[1] = ((closureN)self_732835)->elements[1];
c_735233.elements[2] = ((closureN)self_732835)->elements[2];
c_735233.elements[3] = ((closureN)self_732835)->elements[3];

return_direct_with_clo2(data,  __glo_define_127_scheme_cyclone_util, (((closure)  __glo_define_127_scheme_cyclone_util)->fn),  &c_735233, ((closureN)self_732835)->elements[2]);}
;; 
}

static void __lambda_339(void *data, object self_732842, int argc, object *args) /* object self_732842, object r_731821 */
 {
 object r_731821 = args[0];
  if( (boolean_f != r_731821) ){ 
  
closureN_type c_735235;
object e_735282 [2];
c_735235.hdr.mark = gc_color_red;
 c_735235.hdr.grayed = 0;
c_735235.tag = closureN_tag;
 c_735235.fn = (function_type)__lambda_340;
c_735235.num_args = 0;
c_735235.num_elements = 2;
c_735235.elements = (object *)e_735282;
c_735235.elements[0] = ((closureN)self_732842)->elements[0];
c_735235.elements[1] = ((closureN)self_732842)->elements[2];


closureN_type c_735283;
object e_735316 [4];
c_735283.hdr.mark = gc_color_red;
 c_735283.hdr.grayed = 0;
c_735283.tag = closureN_tag;
 c_735283.fn = (function_type)__lambda_345;
c_735283.num_args = 1;
c_735283.num_elements = 4;
c_735283.elements = (object *)e_735316;
c_735283.elements[0] = ((closureN)self_732842)->elements[0];
c_735283.elements[1] = ((closureN)self_732842)->elements[1];
c_735283.elements[2] = ((closureN)self_732842)->elements[2];
c_735283.elements[3] = ((closureN)self_732842)->elements[3];

return_direct_with_clo1(data,(closure)&c_735235,__lambda_340,  &c_735283);
} else { 
  
closureN_type c_735318;
object e_735386 [4];
c_735318.hdr.mark = gc_color_red;
 c_735318.hdr.grayed = 0;
c_735318.tag = closureN_tag;
 c_735318.fn = (function_type)__lambda_350;
c_735318.num_args = 1;
c_735318.num_elements = 4;
c_735318.elements = (object *)e_735386;
c_735318.elements[0] = ((closureN)self_732842)->elements[0];
c_735318.elements[1] = ((closureN)self_732842)->elements[1];
c_735318.elements[2] = ((closureN)self_732842)->elements[2];
c_735318.elements[3] = ((closureN)self_732842)->elements[3];

return_direct_with_clo2(data,  __glo_set_67_127_scheme_cyclone_util, (((closure)  __glo_set_67_127_scheme_cyclone_util)->fn),  &c_735318, ((closureN)self_732842)->elements[2]);}
;; 
}

static void __lambda_350(void *data, object self_732853, int argc, object *args) /* object self_732853, object r_731836 */
 {
 object r_731836 = args[0];
  if( (boolean_f != r_731836) ){ 
  


closureN_type c_735323;
object e_735352 [4];
c_735323.hdr.mark = gc_color_red;
 c_735323.hdr.grayed = 0;
c_735323.tag = closureN_tag;
 c_735323.fn = (function_type)__lambda_351;
c_735323.num_args = 1;
c_735323.num_elements = 4;
c_735323.elements = (object *)e_735352;
c_735323.elements[0] = ((closureN)self_732853)->elements[0];
c_735323.elements[1] = ((closureN)self_732853)->elements[1];
c_735323.elements[2] = ((closureN)self_732853)->elements[2];
c_735323.elements[3] = ((closureN)self_732853)->elements[3];


complex_num_type local_735355; 


return_closcall3(data,  car(((closureN)self_732853)->elements[1]),  &c_735323, ((inline_function_type)
                   ((closure)__glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735355, ((closureN)self_732853)->elements[2]), car(((closureN)self_732853)->elements[0]));
} else { 
  
closureN_type c_735361;
object e_735381 [4];
c_735361.hdr.mark = gc_color_red;
 c_735361.hdr.grayed = 0;
c_735361.tag = closureN_tag;
 c_735361.fn = (function_type)__lambda_354;
c_735361.num_args = 1;
c_735361.num_elements = 4;
c_735361.elements = (object *)e_735381;
c_735361.elements[0] = ((closureN)self_732853)->elements[0];
c_735361.elements[1] = ((closureN)self_732853)->elements[1];
c_735361.elements[2] = ((closureN)self_732853)->elements[2];
c_735361.elements[3] = ((closureN)self_732853)->elements[3];


complex_num_type local_735384; 
return_direct_with_clo1(data,(closure)&c_735361,__lambda_354,  ((inline_function_type)
                   ((closure)__glo_app_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735384, ((closureN)self_732853)->elements[2]));}
;; 
}

static void __lambda_354(void *data, object self_732857, int argc, object *args) /* object self_732857, object r_731845 */
 {
 object r_731845 = args[0];
  if( (boolean_f != r_731845) ){ 
  
closureN_type c_735363;
object e_735367 [2];
c_735363.hdr.mark = gc_color_red;
 c_735363.hdr.grayed = 0;
c_735363.tag = closureN_tag;
 c_735363.fn = (function_type)__lambda_355;
c_735363.num_args = 1;
c_735363.num_elements = 2;
c_735363.elements = (object *)e_735367;
c_735363.elements[0] = ((closureN)self_732857)->elements[2];
c_735363.elements[1] = ((closureN)self_732857)->elements[3];


closureN_type c_735368;
object e_735376 [2];
c_735368.hdr.mark = gc_color_red;
 c_735368.hdr.grayed = 0;
c_735368.tag = closureN_tag;
 c_735368.fn = (function_type)__lambda_356;
c_735368.num_args = 1;
c_735368.num_elements = 2;
c_735368.elements = (object *)e_735376;
c_735368.elements[0] = ((closureN)self_732857)->elements[0];
c_735368.elements[1] = ((closureN)self_732857)->elements[1];

return_direct_with_clo1(data,(closure)&c_735363,__lambda_355,  &c_735368);
} else { 
  
make_utf8_string_with_len(c_735379, "macro cleanup unexpected expression: ", 37, 37);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_732857)->elements[3], &c_735379, ((closureN)self_732857)->elements[2]);}
;; 
}

static void __lambda_356(void *data, object self_732858, int argc, object *args) /* object self_732858, object k_731847, object e_73501_731061 */
 {
 object k_731847 = args[0]; object e_73501_731061 = args[1];
  



return_closcall3(data,  car(((closureN)self_732858)->elements[1]),  k_731847, e_73501_731061, car(((closureN)self_732858)->elements[0]));; 
}

static void __lambda_355(void *data, object self_732859, int argc, object *args) /* object self_732859, object r_731846 */
 {
 object r_731846 = args[0];
  return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  ((closureN)self_732859)->elements[1], r_731846, ((closureN)self_732859)->elements[0]);; 
}

static void __lambda_351(void *data, object self_732854, int argc, object *args) /* object self_732854, object r_731839 */
 {
 object r_731839 = args[0];
  
closureN_type c_735325;
object e_735347 [4];
c_735325.hdr.mark = gc_color_red;
 c_735325.hdr.grayed = 0;
c_735325.tag = closureN_tag;
 c_735325.fn = (function_type)__lambda_352;
c_735325.num_args = 1;
c_735325.num_elements = 4;
c_735325.elements = (object *)e_735347;
c_735325.elements[0] = ((closureN)self_732854)->elements[0];
c_735325.elements[1] = ((closureN)self_732854)->elements[1];
c_735325.elements[2] = ((closureN)self_732854)->elements[3];
c_735325.elements[3] = r_731839;


complex_num_type local_735350; 
return_direct_with_clo1(data,(closure)&c_735325,__lambda_352,  ((inline_function_type)
                   ((closure)__glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735350, ((closureN)self_732854)->elements[2]));; 
}

static void __lambda_352(void *data, object self_732855, int argc, object *args) /* object self_732855, object r_731843 */
 {
 object r_731843 = args[0];
  


closureN_type c_735330;
object e_735343 [2];
c_735330.hdr.mark = gc_color_red;
 c_735330.hdr.grayed = 0;
c_735330.tag = closureN_tag;
 c_735330.fn = (function_type)__lambda_353;
c_735330.num_args = 1;
c_735330.num_elements = 2;
c_735330.elements = (object *)e_735343;
c_735330.elements[0] = ((closureN)self_732855)->elements[2];
c_735330.elements[1] = ((closureN)self_732855)->elements[3];



return_closcall3(data,  car(((closureN)self_732855)->elements[1]),  &c_735330, r_731843, car(((closureN)self_732855)->elements[0]));; 
}

static void __lambda_353(void *data, object self_732856, int argc, object *args) /* object self_732856, object r_731841 */
 {
 object r_731841 = args[0];
  
pair_type local_735335; 

pair_type local_735338; 

pair_type local_735342; 
return_direct_with_clo1(data,  ((closureN)self_732856)->elements[0], (((closure)  ((closureN)self_732856)->elements[0])->fn),  set_pair_as_expr(&local_735335, quote_set_67, set_pair_as_expr(&local_735338, ((closureN)self_732856)->elements[1], set_pair_as_expr(&local_735342, r_731841, NULL))));; 
}

static void __lambda_345(void *data, object self_732843, int argc, object *args) /* object self_732843, object r_731822 */
 {

  
closureN_type c_735285;
object e_735314 [4];
c_735285.hdr.mark = gc_color_red;
 c_735285.hdr.grayed = 0;
c_735285.tag = closureN_tag;
 c_735285.fn = (function_type)__lambda_346;
c_735285.num_args = 1;
c_735285.num_elements = 4;
c_735285.elements = (object *)e_735314;
c_735285.elements[0] = ((closureN)self_732843)->elements[0];
c_735285.elements[1] = ((closureN)self_732843)->elements[1];
c_735285.elements[2] = ((closureN)self_732843)->elements[2];
c_735285.elements[3] = ((closureN)self_732843)->elements[3];

return_direct_with_clo2(data,  __glo_define_91_125var_scheme_cyclone_util, (((closure)  __glo_define_91_125var_scheme_cyclone_util)->fn),  &c_735285, ((closureN)self_732843)->elements[2]);; 
}

static void __lambda_346(void *data, object self_732844, int argc, object *args) /* object self_732844, object r_731825 */
 {
 object r_731825 = args[0];
  
closureN_type c_735287;
object e_735304 [3];
c_735287.hdr.mark = gc_color_red;
 c_735287.hdr.grayed = 0;
c_735287.tag = closureN_tag;
 c_735287.fn = (function_type)__lambda_347;
c_735287.num_args = 1;
c_735287.num_elements = 3;
c_735287.elements = (object *)e_735304;
c_735287.elements[0] = ((closureN)self_732844)->elements[2];
c_735287.elements[1] = ((closureN)self_732844)->elements[3];
c_735287.elements[2] = r_731825;


closureN_type c_735305;
object e_735313 [2];
c_735305.hdr.mark = gc_color_red;
 c_735305.hdr.grayed = 0;
c_735305.tag = closureN_tag;
 c_735305.fn = (function_type)__lambda_349;
c_735305.num_args = 1;
c_735305.num_elements = 2;
c_735305.elements = (object *)e_735313;
c_735305.elements[0] = ((closureN)self_732844)->elements[0];
c_735305.elements[1] = ((closureN)self_732844)->elements[1];

return_direct_with_clo1(data,(closure)&c_735287,__lambda_347,  &c_735305);; 
}

static void __lambda_349(void *data, object self_732845, int argc, object *args) /* object self_732845, object k_731829, object e_73491_731060 */
 {
 object k_731829 = args[0]; object e_73491_731060 = args[1];
  



return_closcall3(data,  car(((closureN)self_732845)->elements[1]),  k_731829, e_73491_731060, car(((closureN)self_732845)->elements[0]));; 
}

static void __lambda_347(void *data, object self_732846, int argc, object *args) /* object self_732846, object r_731827 */
 {
 object r_731827 = args[0];
  
closureN_type c_735289;
object e_735299 [2];
c_735289.hdr.mark = gc_color_red;
 c_735289.hdr.grayed = 0;
c_735289.tag = closureN_tag;
 c_735289.fn = (function_type)__lambda_348;
c_735289.num_args = 1;
c_735289.num_elements = 2;
c_735289.elements = (object *)e_735299;
c_735289.elements[0] = ((closureN)self_732846)->elements[1];
c_735289.elements[1] = ((closureN)self_732846)->elements[2];


complex_num_type local_735302; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_735289, r_731827, ((inline_function_type)
                   ((closure)__glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735302, ((closureN)self_732846)->elements[0]));; 
}

static void __lambda_348(void *data, object self_732847, int argc, object *args) /* object self_732847, object r_731826 */
 {
 object r_731826 = args[0];
  
pair_type local_735294; 

pair_type local_735297; 
return_direct_with_clo1(data,  ((closureN)self_732847)->elements[0], (((closure)  ((closureN)self_732847)->elements[0])->fn),  set_pair_as_expr(&local_735294, quote_define, set_pair_as_expr(&local_735297, ((closureN)self_732847)->elements[1], r_731826)));; 
}

static void __lambda_340(void *data, object self_732848, int argc, object *args) /* object self_732848, object k_731830 */
 {
 object k_731830 = args[0];
  
closureN_type c_735237;
object e_735276 [3];
c_735237.hdr.mark = gc_color_red;
 c_735237.hdr.grayed = 0;
c_735237.tag = closureN_tag;
 c_735237.fn = (function_type)__lambda_341;
c_735237.num_args = 1;
c_735237.num_elements = 3;
c_735237.elements = (object *)e_735276;
c_735237.elements[0] = ((closureN)self_732848)->elements[0];
c_735237.elements[1] = ((closureN)self_732848)->elements[1];
c_735237.elements[2] = k_731830;





return_direct_with_clo1(data,(closure)&c_735237,__lambda_341,  Cyc_is_null(car(((closureN)self_732848)->elements[0])));; 
}

static void __lambda_341(void *data, object self_732849, int argc, object *args) /* object self_732849, object r_731831 */
 {
 object r_731831 = args[0];
  if( (boolean_f != r_731831) ){ 
  
closureN_type c_735239;
object e_735245 [2];
c_735239.hdr.mark = gc_color_red;
 c_735239.hdr.grayed = 0;
c_735239.tag = closureN_tag;
 c_735239.fn = (function_type)__lambda_342;
c_735239.num_args = 1;
c_735239.num_elements = 2;
c_735239.elements = (object *)e_735245;
c_735239.elements[0] = ((closureN)self_732849)->elements[0];
c_735239.elements[1] = ((closureN)self_732849)->elements[2];


pair_type local_735248; 


return_direct_with_clo1(data,(closure)&c_735239,__lambda_342,  set_cell_as_expr(&local_735248, car(((closureN)self_732849)->elements[0])));
} else { 
  
closureN_type c_735253;
object e_735274 [2];
c_735253.hdr.mark = gc_color_red;
 c_735253.hdr.grayed = 0;
c_735253.tag = closureN_tag;
 c_735253.fn = (function_type)__lambda_343;
c_735253.num_args = 1;
c_735253.num_elements = 2;
c_735253.elements = (object *)e_735274;
c_735253.elements[0] = ((closureN)self_732849)->elements[0];
c_735253.elements[1] = ((closureN)self_732849)->elements[2];

return_direct_with_clo2(data,  __glo_define_91_125var_scheme_cyclone_util, (((closure)  __glo_define_91_125var_scheme_cyclone_util)->fn),  &c_735253, ((closureN)self_732849)->elements[1]);}
;; 
}

static void __lambda_343(void *data, object self_732851, int argc, object *args) /* object self_732851, object r_731834 */
 {
 object r_731834 = args[0];
  
closureN_type c_735255;
object e_735268 [3];
c_735255.hdr.mark = gc_color_red;
 c_735255.hdr.grayed = 0;
c_735255.tag = closureN_tag;
 c_735255.fn = (function_type)__lambda_344;
c_735255.num_args = 1;
c_735255.num_elements = 3;
c_735255.elements = (object *)e_735268;
c_735255.elements[0] = ((closureN)self_732851)->elements[0];
c_735255.elements[1] = ((closureN)self_732851)->elements[1];
c_735255.elements[2] = r_731834;





return_direct_with_clo1(data,(closure)&c_735255,__lambda_344,  Cyc_cdr(data, car(((closureN)self_732851)->elements[0])));; 
}

static void __lambda_344(void *data, object self_732852, int argc, object *args) /* object self_732852, object r_731835 */
 {
 object r_731835 = args[0];
  


pair_type local_735266; 

object c_735260 = Cyc_set_cdr_cps(data,  ((closureN)self_732852)->elements[1],car(((closureN)self_732852)->elements[0]), set_pair_as_expr(&local_735266, ((closureN)self_732852)->elements[2], r_731835));
return_direct_with_clo1(data,  ((closureN)self_732852)->elements[1], (((closure)  ((closureN)self_732852)->elements[1])->fn),  c_735260);; 
}

static void __lambda_342(void *data, object self_732850, int argc, object *args) /* object self_732850, object r_731832 */
 {
 object r_731832 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_732850)->elements[1], (((closure)  ((closureN)self_732850)->elements[1])->fn),  Cyc_set_cell(data, ((closureN)self_732850)->elements[0], r_731832));; 
}

static void __lambda_333(void *data, object self_732836, int argc, object *args) /* object self_732836, object r_731814 */
 {
 object r_731814 = args[0];
  
closureN_type c_735191;
object e_735208 [3];
c_735191.hdr.mark = gc_color_red;
 c_735191.hdr.grayed = 0;
c_735191.tag = closureN_tag;
 c_735191.fn = (function_type)__lambda_334;
c_735191.num_args = 1;
c_735191.num_elements = 3;
c_735191.elements = (object *)e_735208;
c_735191.elements[0] = ((closureN)self_732836)->elements[2];
c_735191.elements[1] = ((closureN)self_732836)->elements[3];
c_735191.elements[2] = r_731814;


closureN_type c_735209;
object e_735226 [3];
c_735209.hdr.mark = gc_color_red;
 c_735209.hdr.grayed = 0;
c_735209.tag = closureN_tag;
 c_735209.fn = (function_type)__lambda_336;
c_735209.num_args = 1;
c_735209.num_elements = 3;
c_735209.elements = (object *)e_735226;
c_735209.elements[0] = ((closureN)self_732836)->elements[0];
c_735209.elements[1] = ((closureN)self_732836)->elements[1];
c_735209.elements[2] = ((closureN)self_732836)->elements[2];

return_direct_with_clo1(data,(closure)&c_735191,__lambda_334,  &c_735209);; 
}

static void __lambda_336(void *data, object self_732837, int argc, object *args) /* object self_732837, object k_731818, object e_73484_731059 */
 {
 object k_731818 = args[0]; object e_73484_731059 = args[1];
  
closureN_type c_735211;
object e_735224 [4];
c_735211.hdr.mark = gc_color_red;
 c_735211.hdr.grayed = 0;
c_735211.tag = closureN_tag;
 c_735211.fn = (function_type)__lambda_337;
c_735211.num_args = 1;
c_735211.num_elements = 4;
c_735211.elements = (object *)e_735224;
c_735211.elements[0] = ((closureN)self_732837)->elements[0];
c_735211.elements[1] = ((closureN)self_732837)->elements[1];
c_735211.elements[2] = e_73484_731059;
c_735211.elements[3] = k_731818;

return_direct_with_clo2(data,  __glo_lambda_91formals_91_125list_scheme_cyclone_util, (((closure)  __glo_lambda_91formals_91_125list_scheme_cyclone_util)->fn),  &c_735211, ((closureN)self_732837)->elements[2]);; 
}

static void __lambda_337(void *data, object self_732838, int argc, object *args) /* object self_732838, object r_731820 */
 {
 object r_731820 = args[0];
  
closureN_type c_735213;
object e_735220 [3];
c_735213.hdr.mark = gc_color_red;
 c_735213.hdr.grayed = 0;
c_735213.tag = closureN_tag;
 c_735213.fn = (function_type)__lambda_338;
c_735213.num_args = 1;
c_735213.num_elements = 3;
c_735213.elements = (object *)e_735220;
c_735213.elements[0] = ((closureN)self_732838)->elements[1];
c_735213.elements[1] = ((closureN)self_732838)->elements[2];
c_735213.elements[2] = ((closureN)self_732838)->elements[3];



return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_735213, r_731820, car(((closureN)self_732838)->elements[0]));; 
}

static void __lambda_338(void *data, object self_732839, int argc, object *args) /* object self_732839, object r_731819 */
 {
 object r_731819 = args[0];
  

return_closcall3(data,  car(((closureN)self_732839)->elements[0]),  ((closureN)self_732839)->elements[2], ((closureN)self_732839)->elements[1], r_731819);; 
}

static void __lambda_334(void *data, object self_732840, int argc, object *args) /* object self_732840, object r_731816 */
 {
 object r_731816 = args[0];
  
closureN_type c_735193;
object e_735203 [2];
c_735193.hdr.mark = gc_color_red;
 c_735193.hdr.grayed = 0;
c_735193.tag = closureN_tag;
 c_735193.fn = (function_type)__lambda_335;
c_735193.num_args = 1;
c_735193.num_elements = 2;
c_735193.elements = (object *)e_735203;
c_735193.elements[0] = ((closureN)self_732840)->elements[1];
c_735193.elements[1] = ((closureN)self_732840)->elements[2];


complex_num_type local_735206; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_735193, r_731816, ((inline_function_type)
                   ((closure)__glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735206, ((closureN)self_732840)->elements[0]));; 
}

static void __lambda_335(void *data, object self_732841, int argc, object *args) /* object self_732841, object r_731815 */
 {
 object r_731815 = args[0];
  
pair_type local_735198; 

pair_type local_735201; 
return_direct_with_clo1(data,  ((closureN)self_732841)->elements[0], (((closure)  ((closureN)self_732841)->elements[0])->fn),  set_pair_as_expr(&local_735198, quote_lambda, set_pair_as_expr(&local_735201, ((closureN)self_732841)->elements[1], r_731815)));; 
}

static void __lambda_325(void *data, object self_732828, int argc, object *args) /* object self_732828, object r_731810 */
 {
 object r_731810 = args[0];
  


closureN_type c_735121;
object e_735177 [4];
c_735121.hdr.mark = gc_color_red;
 c_735121.hdr.grayed = 0;
c_735121.tag = closureN_tag;
 c_735121.fn = (function_type)__lambda_326;
c_735121.num_args = 1;
c_735121.num_elements = 4;
c_735121.elements = (object *)e_735177;
c_735121.elements[0] = ((closureN)self_732828)->elements[0];
c_735121.elements[1] = ((closureN)self_732828)->elements[1];
c_735121.elements[2] = ((closureN)self_732828)->elements[2];
c_735121.elements[3] = ((closureN)self_732828)->elements[3];



return_closcall3(data,  car(((closureN)self_732828)->elements[1]),  &c_735121, r_731810, car(((closureN)self_732828)->elements[0]));; 
}

static void __lambda_326(void *data, object self_732829, int argc, object *args) /* object self_732829, object r_731800 */
 {
 object r_731800 = args[0];
  
closureN_type c_735123;
object e_735172 [5];
c_735123.hdr.mark = gc_color_red;
 c_735123.hdr.grayed = 0;
c_735123.tag = closureN_tag;
 c_735123.fn = (function_type)__lambda_327;
c_735123.num_args = 1;
c_735123.num_elements = 5;
c_735123.elements = (object *)e_735172;
c_735123.elements[0] = ((closureN)self_732829)->elements[0];
c_735123.elements[1] = ((closureN)self_732829)->elements[1];
c_735123.elements[2] = ((closureN)self_732829)->elements[2];
c_735123.elements[3] = ((closureN)self_732829)->elements[3];
c_735123.elements[4] = r_731800;


complex_num_type local_735175; 
return_direct_with_clo1(data,(closure)&c_735123,__lambda_327,  ((inline_function_type)
                   ((closure)__glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735175, ((closureN)self_732829)->elements[2]));; 
}

static void __lambda_327(void *data, object self_732830, int argc, object *args) /* object self_732830, object r_731809 */
 {
 object r_731809 = args[0];
  


closureN_type c_735128;
object e_735168 [5];
c_735128.hdr.mark = gc_color_red;
 c_735128.hdr.grayed = 0;
c_735128.tag = closureN_tag;
 c_735128.fn = (function_type)__lambda_328;
c_735128.num_args = 1;
c_735128.num_elements = 5;
c_735128.elements = (object *)e_735168;
c_735128.elements[0] = ((closureN)self_732830)->elements[0];
c_735128.elements[1] = ((closureN)self_732830)->elements[1];
c_735128.elements[2] = ((closureN)self_732830)->elements[2];
c_735128.elements[3] = ((closureN)self_732830)->elements[3];
c_735128.elements[4] = ((closureN)self_732830)->elements[4];



return_closcall3(data,  car(((closureN)self_732830)->elements[1]),  &c_735128, r_731809, car(((closureN)self_732830)->elements[0]));; 
}

static void __lambda_328(void *data, object self_732831, int argc, object *args) /* object self_732831, object r_731802 */
 {
 object r_731802 = args[0];
  
closureN_type c_735130;
object e_735149 [3];
c_735130.hdr.mark = gc_color_red;
 c_735130.hdr.grayed = 0;
c_735130.tag = closureN_tag;
 c_735130.fn = (function_type)__lambda_329;
c_735130.num_args = 0;
c_735130.num_elements = 3;
c_735130.elements = (object *)e_735149;
c_735130.elements[0] = ((closureN)self_732831)->elements[0];
c_735130.elements[1] = ((closureN)self_732831)->elements[1];
c_735130.elements[2] = ((closureN)self_732831)->elements[2];


closureN_type c_735150;
object e_735167 [3];
c_735150.hdr.mark = gc_color_red;
 c_735150.hdr.grayed = 0;
c_735150.tag = closureN_tag;
 c_735150.fn = (function_type)__lambda_331;
c_735150.num_args = 1;
c_735150.num_elements = 3;
c_735150.elements = (object *)e_735167;
c_735150.elements[0] = ((closureN)self_732831)->elements[3];
c_735150.elements[1] = ((closureN)self_732831)->elements[4];
c_735150.elements[2] = r_731802;

return_direct_with_clo1(data,(closure)&c_735130,__lambda_329,  &c_735150);; 
}

static void __lambda_331(void *data, object self_732832, int argc, object *args) /* object self_732832, object r_731804 */
 {
 object r_731804 = args[0];
  
pair_type local_735155; 

pair_type local_735158; 

pair_type local_735162; 

pair_type local_735166; 
return_direct_with_clo1(data,  ((closureN)self_732832)->elements[0], (((closure)  ((closureN)self_732832)->elements[0])->fn),  set_pair_as_expr(&local_735155, quote__if, set_pair_as_expr(&local_735158, ((closureN)self_732832)->elements[1], set_pair_as_expr(&local_735162, ((closureN)self_732832)->elements[2], set_pair_as_expr(&local_735166, r_731804, NULL)))));; 
}

static void __lambda_329(void *data, object self_732833, int argc, object *args) /* object self_732833, object k_731806 */
 {
 object k_731806 = args[0];
  
closureN_type c_735132;
object e_735147 [4];
c_735132.hdr.mark = gc_color_red;
 c_735132.hdr.grayed = 0;
c_735132.tag = closureN_tag;
 c_735132.fn = (function_type)__lambda_330;
c_735132.num_args = 1;
c_735132.num_elements = 4;
c_735132.elements = (object *)e_735147;
c_735132.elements[0] = ((closureN)self_732833)->elements[0];
c_735132.elements[1] = ((closureN)self_732833)->elements[1];
c_735132.elements[2] = ((closureN)self_732833)->elements[2];
c_735132.elements[3] = k_731806;

return_direct_with_clo2(data,  __glo_if_91else_127_scheme_cyclone_util, (((closure)  __glo_if_91else_127_scheme_cyclone_util)->fn),  &c_735132, ((closureN)self_732833)->elements[2]);; 
}

static void __lambda_330(void *data, object self_732834, int argc, object *args) /* object self_732834, object r_731807 */
 {
 object r_731807 = args[0];
  if( (boolean_f != r_731807) ){ 
  


complex_num_type local_735140; 


return_closcall3(data,  car(((closureN)self_732834)->elements[1]),  ((closureN)self_732834)->elements[3], ((inline_function_type)
                   ((closure)__glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735140, ((closureN)self_732834)->elements[2]), car(((closureN)self_732834)->elements[0]));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732834)->elements[3], (((closure)  ((closureN)self_732834)->elements[3])->fn),  boolean_f);}
;; 
}

static void __lambda_320(void *data, object self_732823, int argc, object *args) /* object self_732823, object val_73470_731058 */
 {
 object val_73470_731058 = args[0];
  
closureN_type c_735078;
object e_735095 [3];
c_735078.hdr.mark = gc_color_red;
 c_735078.hdr.grayed = 0;
c_735078.tag = closureN_tag;
 c_735078.fn = (function_type)__lambda_321;
c_735078.num_args = 0;
c_735078.num_elements = 3;
c_735078.elements = (object *)e_735095;
c_735078.elements[0] = ((closureN)self_732823)->elements[0];
c_735078.elements[1] = ((closureN)self_732823)->elements[2];
c_735078.elements[2] = val_73470_731058;


closureN_type c_735096;
object e_735109 [5];
c_735096.hdr.mark = gc_color_red;
 c_735096.hdr.grayed = 0;
c_735096.tag = closureN_tag;
 c_735096.fn = (function_type)__lambda_323;
c_735096.num_args = 1;
c_735096.num_elements = 5;
c_735096.elements = (object *)e_735109;
c_735096.elements[0] = ((closureN)self_732823)->elements[0];
c_735096.elements[1] = ((closureN)self_732823)->elements[1];
c_735096.elements[2] = ((closureN)self_732823)->elements[2];
c_735096.elements[3] = ((closureN)self_732823)->elements[3];
c_735096.elements[4] = val_73470_731058;

return_direct_with_clo1(data,(closure)&c_735078,__lambda_321,  &c_735096);; 
}

static void __lambda_323(void *data, object self_732824, int argc, object *args) /* object self_732824, object r_731794 */
 {
 object r_731794 = args[0];
  if( (boolean_f != r_731794) ){ 
  



return_closcall3(data,  car(((closureN)self_732824)->elements[1]),  ((closureN)self_732824)->elements[3], ((closureN)self_732824)->elements[4], car(((closureN)self_732824)->elements[0]));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732824)->elements[3], (((closure)  ((closureN)self_732824)->elements[3])->fn),  ((closureN)self_732824)->elements[2]);}
;; 
}

static void __lambda_321(void *data, object self_732825, int argc, object *args) /* object self_732825, object k_731795 */
 {
 object k_731795 = args[0];
  if( (boolean_f != ((closureN)self_732825)->elements[2]) ){ 
  
closureN_type c_735081;
object e_735087 [1];
c_735081.hdr.mark = gc_color_red;
 c_735081.hdr.grayed = 0;
c_735081.tag = closureN_tag;
 c_735081.fn = (function_type)__lambda_322;
c_735081.num_args = 1;
c_735081.num_elements = 1;
c_735081.elements = (object *)e_735087;
c_735081.elements[0] = k_731795;





return_direct_with_clo1(data,(closure)&c_735081,__lambda_322,  memberp(data, ((closureN)self_732825)->elements[1], car(((closureN)self_732825)->elements[0])));
} else { 
  return_direct_with_clo1(data,  k_731795, (((closure)  k_731795)->fn),  boolean_f);}
;; 
}

static void __lambda_322(void *data, object self_732826, int argc, object *args) /* object self_732826, object r_731796 */
 {
 object r_731796 = args[0];
  
complex_num_type local_735086; 
return_direct_with_clo1(data,  ((closureN)self_732826)->elements[0], (((closure)  ((closureN)self_732826)->elements[0])->fn),  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_735086, r_731796));; 
}

static void __lambda_315(void *data, object self_732818, int argc, object *args) /* object self_732818, object atom_73460_731057 */
 {
 object atom_73460_731057 = args[0];
  
closureN_type c_735038;
object e_735060 [5];
c_735038.hdr.mark = gc_color_red;
 c_735038.hdr.grayed = 0;
c_735038.tag = closureN_tag;
 c_735038.fn = (function_type)__lambda_316;
c_735038.num_args = 1;
c_735038.num_elements = 5;
c_735038.elements = (object *)e_735060;
c_735038.elements[0] = atom_73460_731057;
c_735038.elements[1] = ((closureN)self_732818)->elements[0];
c_735038.elements[2] = ((closureN)self_732818)->elements[1];
c_735038.elements[3] = ((closureN)self_732818)->elements[2];
c_735038.elements[4] = ((closureN)self_732818)->elements[3];


complex_num_type local_735063; 
return_direct_with_clo1(data,(closure)&c_735038,__lambda_316,  ((inline_function_type)
                   ((closure)__glo_ref_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_735063, atom_73460_731057));; 
}

static void __lambda_316(void *data, object self_732819, int argc, object *args) /* object self_732819, object r_731786 */
 {
 object r_731786 = args[0];
  if( (boolean_f != r_731786) ){ 
  


closureN_type c_735043;
object e_735052 [1];
c_735043.hdr.mark = gc_color_red;
 c_735043.hdr.grayed = 0;
c_735043.tag = closureN_tag;
 c_735043.fn = (function_type)__lambda_317;
c_735043.num_args = 1;
c_735043.num_elements = 1;
c_735043.elements = (object *)e_735052;
c_735043.elements[0] = ((closureN)self_732819)->elements[4];



return_closcall3(data,  car(((closureN)self_732819)->elements[2]),  &c_735043, ((closureN)self_732819)->elements[0], car(((closureN)self_732819)->elements[1]));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732819)->elements[4], (((closure)  ((closureN)self_732819)->elements[4])->fn),  ((closureN)self_732819)->elements[3]);}
;; 
}

static void __lambda_317(void *data, object self_732820, int argc, object *args) /* object self_732820, object r_731789 */
 {
 object r_731789 = args[0];
  
pair_type local_735048; 

pair_type local_735051; 
return_direct_with_clo1(data,  ((closureN)self_732820)->elements[0], (((closure)  ((closureN)self_732820)->elements[0])->fn),  set_pair_as_expr(&local_735048, quote_quote, set_pair_as_expr(&local_735051, r_731789, NULL)));; 
}

static void __lambda_311(void *data, object self_732814, int argc, object *args) /* object self_732814, object r_731778 */
 {
 object r_731778 = args[0];
  


closureN_type c_735002;
object e_735009 [2];
c_735002.hdr.mark = gc_color_red;
 c_735002.hdr.grayed = 0;
c_735002.tag = closureN_tag;
 c_735002.fn = (function_type)__lambda_312;
c_735002.num_args = 1;
c_735002.num_elements = 2;
c_735002.elements = (object *)e_735009;
c_735002.elements[0] = ((closureN)self_732814)->elements[3];
c_735002.elements[1] = r_731778;





return_closcall3(data,  car(((closureN)self_732814)->elements[1]),  &c_735002, Cyc_cdr(data, ((closureN)self_732814)->elements[2]), car(((closureN)self_732814)->elements[0]));; 
}

static void __lambda_312(void *data, object self_732815, int argc, object *args) /* object self_732815, object r_731779 */
 {
 object r_731779 = args[0];
  
pair_type local_735007; 
return_direct_with_clo1(data,  ((closureN)self_732815)->elements[0], (((closure)  ((closureN)self_732815)->elements[0])->fn),  set_pair_as_expr(&local_735007, ((closureN)self_732815)->elements[1], r_731779));; 
}

static void __lambda_308(void *data, object self_732860, int argc, object *args) /* object self_732860, object r_731775 */
 {
 object r_731775 = args[0];
  
closureN_type c_734962;
object e_734972 [3];
c_734962.hdr.mark = gc_color_red;
 c_734962.hdr.grayed = 0;
c_734962.tag = closureN_tag;
 c_734962.fn = (function_type)__lambda_309;
c_734962.num_args = 1;
c_734962.num_elements = 3;
c_734962.elements = (object *)e_734972;
c_734962.elements[0] = ((closureN)self_732860)->elements[0];
c_734962.elements[1] = ((closureN)self_732860)->elements[1];
c_734962.elements[2] = ((closureN)self_732860)->elements[2];



return_direct_with_clo1(data,(closure)&c_734962,__lambda_309,  Cyc_set_cell(data, ((closureN)self_732860)->elements[0], r_731775));; 
}

static void __lambda_309(void *data, object self_732861, int argc, object *args) /* object self_732861, object r_731772 */
 {

  


pair_type local_734971; 
return_closcall3(data,  car(((closureN)self_732861)->elements[0]),  ((closureN)self_732861)->elements[2], ((closureN)self_732861)->elements[1], set_cell_as_expr(&local_734971, quote__191_191_191_191unused_191_191_191_191));; 
}

static void __lambda_301(void *data, object _, int argc, object *args) /* closure _,object k_731763, object env_73438_731045, object renamed_91env_73439_731046 */
 {
object k_731763 = args[0]; object env_73438_731045 = args[1]; object renamed_91env_73439_731046 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:macro:add-renamed-vars!");

closureN_type c_734933;
object e_734946 [2];
c_734933.hdr.mark = gc_color_red;
 c_734933.hdr.grayed = 0;
c_734933.tag = closureN_tag;
 c_734933.fn = (function_type)__lambda_302;
c_734933.num_args = 1;
c_734933.num_elements = 2;
c_734933.elements = (object *)e_734946;
c_734933.elements[0] = env_73438_731045;
c_734933.elements[1] = k_731763;


closureN_type c_734947;
object e_734953 [1];
c_734947.hdr.mark = gc_color_red;
 c_734947.hdr.grayed = 0;
c_734947.tag = closureN_tag;
 c_734947.fn = (function_type)__lambda_305;
c_734947.num_args = 2;
c_734947.num_elements = 1;
c_734947.elements = (object *)e_734953;
c_734947.elements[0] = renamed_91env_73439_731046;

return_direct_with_clo1(data,(closure)&c_734933,__lambda_302,  &c_734947);; 
}

static void __lambda_305(void *data, object self_732806, int argc, object *args) /* object self_732806, object k_731768, object var_73441_731048, object val_73442_731049 */
 {
 object k_731768 = args[0]; object var_73441_731048 = args[1]; object val_73442_731049 = args[2];
  
complex_num_type local_734951; 
return_direct_with_clo4(data,  __glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util, (((closure)  __glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util)->fn),  k_731768, var_73441_731048, val_73442_731049, ((inline_function_type)
                   ((closure)__glo_env_117first_91frame_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_734951, ((closureN)self_732806)->elements[0]));; 
}

static void __lambda_302(void *data, object self_732807, int argc, object *args) /* object self_732807, object r_731765 */
 {
 object r_731765 = args[0];
  
closureN_type c_734935;
object e_734944 [3];
c_734935.hdr.mark = gc_color_red;
 c_734935.hdr.grayed = 0;
c_734935.tag = closureN_tag;
 c_734935.fn = (function_type)__lambda_303;
c_734935.num_args = 1;
c_734935.num_elements = 3;
c_734935.elements = (object *)e_734944;
c_734935.elements[0] = ((closureN)self_732807)->elements[0];
c_734935.elements[1] = ((closureN)self_732807)->elements[1];
c_734935.elements[2] = r_731765;

return_direct_with_clo2(data,  __glo_env_117all_91variables_scheme_cyclone_util, (((closure)  __glo_env_117all_91variables_scheme_cyclone_util)->fn),  &c_734935, ((closureN)self_732807)->elements[0]);; 
}

static void __lambda_303(void *data, object self_732808, int argc, object *args) /* object self_732808, object r_731766 */
 {
 object r_731766 = args[0];
  
closureN_type c_734937;
object e_734942 [3];
c_734937.hdr.mark = gc_color_red;
 c_734937.hdr.grayed = 0;
c_734937.tag = closureN_tag;
 c_734937.fn = (function_type)__lambda_304;
c_734937.num_args = 1;
c_734937.num_elements = 3;
c_734937.elements = (object *)e_734942;
c_734937.elements[0] = ((closureN)self_732808)->elements[1];
c_734937.elements[1] = ((closureN)self_732808)->elements[2];
c_734937.elements[2] = r_731766;

return_direct_with_clo2(data,  __glo_env_117all_91values_scheme_cyclone_util, (((closure)  __glo_env_117all_91values_scheme_cyclone_util)->fn),  &c_734937, ((closureN)self_732808)->elements[0]);; 
}

static void __lambda_304(void *data, object self_732809, int argc, object *args) /* object self_732809, object r_731767 */
 {
 object r_731767 = args[0];
  return_direct_with_clo4(data,  __glo_Cyc_91for_91each_91loop_912_scheme_base, (((closure)  __glo_Cyc_91for_91each_91loop_912_scheme_base)->fn),  ((closureN)self_732809)->elements[0], ((closureN)self_732809)->elements[1], ((closureN)self_732809)->elements[2], r_731767);; 
}

static void __lambda_280(void *data, object _, int argc, object *args) /* closure _,object k_731724, object exp_73406_731032, object macro_73407_731033, object mac_91env_73408_731034, object rename_91env_73409_731035, object local_91renamed_91lis_73410_731036 */
 {
object k_731724 = args[0]; object exp_73406_731032 = args[1]; object macro_73407_731033 = args[2]; object mac_91env_73408_731034 = args[3]; object rename_91env_73409_731035 = args[4]; object local_91renamed_91lis_73410_731036 = args[5];
  Cyc_st_add(data, "scheme/eval.sld:macro:expand");

closureN_type c_734778;
object e_734930 [6];
c_734778.hdr.mark = gc_color_red;
 c_734778.hdr.grayed = 0;
c_734778.tag = closureN_tag;
 c_734778.fn = (function_type)__lambda_281;
c_734778.num_args = 1;
c_734778.num_elements = 6;
c_734778.elements = (object *)e_734930;
c_734778.elements[0] = exp_73406_731032;
c_734778.elements[1] = k_731724;
c_734778.elements[2] = local_91renamed_91lis_73410_731036;
c_734778.elements[3] = mac_91env_73408_731034;
c_734778.elements[4] = macro_73407_731033;
c_734778.elements[5] = rename_91env_73409_731035;

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_734778, NULL, NULL, NULL);; 
}

static void __lambda_281(void *data, object self_732785, int argc, object *args) /* object self_732785, object use_91env_73413_731037 */
 {
 object use_91env_73413_731037 = args[0];
  object compiled_91macro_127_73416_731038;
    
  
  
if( (boolean_f != Cyc_is_macro(Cyc_get_cvar(Cyc_cadr(data, ((closureN)self_732785)->elements[4])))) ){ 
  
  
  
  compiled_91macro_127_73416_731038 = Cyc_is_macro(Cyc_get_cvar(Cyc_cadr(data, ((closureN)self_732785)->elements[4])));
} else { 
  
  
  compiled_91macro_127_73416_731038 = Cyc_is_procedure(data, Cyc_cadr(data, ((closureN)self_732785)->elements[4]));}
;
closureN_type c_734802;
object e_734927 [7];
c_734802.hdr.mark = gc_color_red;
 c_734802.hdr.grayed = 0;
c_734802.tag = closureN_tag;
 c_734802.fn = (function_type)__lambda_282;
c_734802.num_args = 1;
c_734802.num_elements = 7;
c_734802.elements = (object *)e_734927;
c_734802.elements[0] = compiled_91macro_127_73416_731038;
c_734802.elements[1] = ((closureN)self_732785)->elements[0];
c_734802.elements[2] = ((closureN)self_732785)->elements[1];
c_734802.elements[3] = ((closureN)self_732785)->elements[3];
c_734802.elements[4] = ((closureN)self_732785)->elements[4];
c_734802.elements[5] = ((closureN)self_732785)->elements[5];
c_734802.elements[6] = use_91env_73413_731037;

return_direct_with_clo3(data,  __glo_macro_117get_91local_91renames_scheme_eval, (((closure)  __glo_macro_117get_91local_91renames_scheme_eval)->fn),  &c_734802, ((closureN)self_732785)->elements[4], ((closureN)self_732785)->elements[2]);; 
}

static void __lambda_282(void *data, object self_732786, int argc, object *args) /* object self_732786, object local_91renamed_73419_731039 */
 {
 object local_91renamed_73419_731039 = args[0];
  
closureN_type c_734804;
object e_734926 [8];
c_734804.hdr.mark = gc_color_red;
 c_734804.hdr.grayed = 0;
c_734804.tag = closureN_tag;
 c_734804.fn = (function_type)__lambda_283;
c_734804.num_args = 1;
c_734804.num_elements = 8;
c_734804.elements = (object *)e_734926;
c_734804.elements[0] = ((closureN)self_732786)->elements[0];
c_734804.elements[1] = ((closureN)self_732786)->elements[1];
c_734804.elements[2] = ((closureN)self_732786)->elements[2];
c_734804.elements[3] = local_91renamed_73419_731039;
c_734804.elements[4] = ((closureN)self_732786)->elements[3];
c_734804.elements[5] = ((closureN)self_732786)->elements[4];
c_734804.elements[6] = ((closureN)self_732786)->elements[5];
c_734804.elements[7] = ((closureN)self_732786)->elements[6];

return_direct_with_clo1(data,(closure)&c_734804,__lambda_283,  boolean_f);; 
}

static void __lambda_283(void *data, object self_732787, int argc, object *args) /* object self_732787, object result_73422_731040 */
 {
 object result_73422_731040 = args[0];
  
closureN_type c_734806;
object e_734922 [8];
c_734806.hdr.mark = gc_color_red;
 c_734806.hdr.grayed = 0;
c_734806.tag = closureN_tag;
 c_734806.fn = (function_type)__lambda_525;
c_734806.num_args = 1;
c_734806.num_elements = 8;
c_734806.elements = (object *)e_734922;
c_734806.elements[0] = ((closureN)self_732787)->elements[0];
c_734806.elements[1] = ((closureN)self_732787)->elements[1];
c_734806.elements[2] = ((closureN)self_732787)->elements[2];
c_734806.elements[3] = ((closureN)self_732787)->elements[3];
c_734806.elements[4] = ((closureN)self_732787)->elements[4];
c_734806.elements[5] = ((closureN)self_732787)->elements[5];
c_734806.elements[6] = ((closureN)self_732787)->elements[6];
c_734806.elements[7] = ((closureN)self_732787)->elements[7];


pair_type local_734925; 
return_direct_with_clo1(data,(closure)&c_734806,__lambda_525,  set_cell_as_expr(&local_734925, result_73422_731040));; 
}

static void __lambda_525(void *data, object self_732788, int argc, object *args) /* object self_732788, object result_73422_731040 */
 {
 object result_73422_731040 = args[0];
  
closureN_type c_734808;
object e_734828 [4];
c_734808.hdr.mark = gc_color_red;
 c_734808.hdr.grayed = 0;
c_734808.tag = closureN_tag;
 c_734808.fn = (function_type)__lambda_284;
c_734808.num_args = 1;
c_734808.num_elements = 4;
c_734808.elements = (object *)e_734828;
c_734808.elements[0] = ((closureN)self_732788)->elements[2];
c_734808.elements[1] = ((closureN)self_732788)->elements[6];
c_734808.elements[2] = result_73422_731040;
c_734808.elements[3] = ((closureN)self_732788)->elements[7];


closureN_type c_734829;
object e_734921 [7];
c_734829.hdr.mark = gc_color_red;
 c_734829.hdr.grayed = 0;
c_734829.tag = closureN_tag;
 c_734829.fn = (function_type)__lambda_288;
c_734829.num_args = 1;
c_734829.num_elements = 7;
c_734829.elements = (object *)e_734921;
c_734829.elements[0] = ((closureN)self_732788)->elements[0];
c_734829.elements[1] = ((closureN)self_732788)->elements[1];
c_734829.elements[2] = ((closureN)self_732788)->elements[3];
c_734829.elements[3] = ((closureN)self_732788)->elements[4];
c_734829.elements[4] = ((closureN)self_732788)->elements[5];
c_734829.elements[5] = ((closureN)self_732788)->elements[6];
c_734829.elements[6] = ((closureN)self_732788)->elements[7];

return_direct_with_clo1(data,(closure)&c_734808,__lambda_284,  &c_734829);; 
}

static void __lambda_288(void *data, object self_732789, int argc, object *args) /* object self_732789, object k_731732, object k_73424_731041 */
 {
 object k_731732 = args[0]; object k_73424_731041 = args[1];
  
closureN_type c_734831;
object e_734895 [8];
c_734831.hdr.mark = gc_color_red;
 c_734831.hdr.grayed = 0;
c_734831.tag = closureN_tag;
 c_734831.fn = (function_type)__lambda_289;
c_734831.num_args = 1;
c_734831.num_elements = 8;
c_734831.elements = (object *)e_734895;
c_734831.elements[0] = ((closureN)self_732789)->elements[0];
c_734831.elements[1] = ((closureN)self_732789)->elements[1];
c_734831.elements[2] = k_731732;
c_734831.elements[3] = ((closureN)self_732789)->elements[2];
c_734831.elements[4] = ((closureN)self_732789)->elements[3];
c_734831.elements[5] = ((closureN)self_732789)->elements[4];
c_734831.elements[6] = ((closureN)self_732789)->elements[5];
c_734831.elements[7] = ((closureN)self_732789)->elements[6];


closureN_type c_734896;
object e_734920 [2];
c_734896.hdr.mark = gc_color_red;
 c_734896.hdr.grayed = 0;
c_734896.tag = closureN_tag;
 c_734896.fn = (function_type)__lambda_297;
c_734896.num_args = 1;
c_734896.num_elements = 2;
c_734896.elements = (object *)e_734920;
c_734896.elements[0] = ((closureN)self_732789)->elements[1];
c_734896.elements[1] = k_73424_731041;

return_direct_with_clo1(data,(closure)&c_734831,__lambda_289,  &c_734896);; 
}

static void __lambda_297(void *data, object self_732790, int argc, object *args) /* object self_732790, object k_731747, object obj_73425_731042 */
 {
 object k_731747 = args[0]; object obj_73425_731042 = args[1];
  
closureN_type c_734898;
object e_734919 [3];
c_734898.hdr.mark = gc_color_red;
 c_734898.hdr.grayed = 0;
c_734898.tag = closureN_tag;
 c_734898.fn = (function_type)__lambda_298;
c_734898.num_args = 1;
c_734898.num_elements = 3;
c_734898.elements = (object *)e_734919;
c_734898.elements[0] = ((closureN)self_732790)->elements[0];
c_734898.elements[1] = k_731747;
c_734898.elements[2] = ((closureN)self_732790)->elements[1];

return_direct_with_clo1(data,(closure)&c_734898,__lambda_298,  obj_73425_731042);; 
}

static void __lambda_298(void *data, object self_732791, int argc, object *args) /* object self_732791, object err_73426_731043 */
 {
 object err_73426_731043 = args[0];
  
closureN_type c_734900;
object e_734910 [2];
c_734900.hdr.mark = gc_color_red;
 c_734900.hdr.grayed = 0;
c_734900.tag = closureN_tag;
 c_734900.fn = (function_type)__lambda_299;
c_734900.num_args = 1;
c_734900.num_elements = 2;
c_734900.elements = (object *)e_734910;
c_734900.elements[0] = ((closureN)self_732791)->elements[1];
c_734900.elements[1] = ((closureN)self_732791)->elements[2];


list_2_type local_734913; 




return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_734900, Cyc_fast_list_2(&local_734913, Cyc_car(data, err_73426_731043), ((closureN)self_732791)->elements[0]), Cyc_cdr(data, err_73426_731043));; 
}

static void __lambda_299(void *data, object self_732792, int argc, object *args) /* object self_732792, object r_731749 */
 {
 object r_731749 = args[0];
  
closureN_type c_734902;
object e_734906 [2];
c_734902.hdr.mark = gc_color_red;
 c_734902.hdr.grayed = 0;
c_734902.tag = closureN_tag;
 c_734902.fn = (function_type)__lambda_300;
c_734902.num_args = 1;
c_734902.num_elements = 2;
c_734902.elements = (object *)e_734906;
c_734902.elements[0] = ((closureN)self_732792)->elements[0];
c_734902.elements[1] = ((closureN)self_732792)->elements[1];


object c_734909 = apply(data,(closure)&c_734902,__glo_error_95loc_scheme_base, r_731749);
return_closcall1(data,(closure)&c_734902,  c_734909);; 
}

static void __lambda_300(void *data, object self_732793, int argc, object *args) /* object self_732793, object r_731748 */
 {
 object r_731748 = args[0];
  return_closcall2(data,  ((closureN)self_732793)->elements[1],  ((closureN)self_732793)->elements[0], r_731748);; 
}

static void __lambda_289(void *data, object self_732794, int argc, object *args) /* object self_732794, object r_731733 */
 {
 object r_731733 = args[0];
  
closureN_type c_734833;
object e_734837 [2];
c_734833.hdr.mark = gc_color_red;
 c_734833.hdr.grayed = 0;
c_734833.tag = closureN_tag;
 c_734833.fn = (function_type)__lambda_290;
c_734833.num_args = 1;
c_734833.num_elements = 2;
c_734833.elements = (object *)e_734837;
c_734833.elements[0] = ((closureN)self_732794)->elements[2];
c_734833.elements[1] = r_731733;


closureN_type c_734838;
object e_734894 [7];
c_734838.hdr.mark = gc_color_red;
 c_734838.hdr.grayed = 0;
c_734838.tag = closureN_tag;
 c_734838.fn = (function_type)__lambda_291;
c_734838.num_args = 0;
c_734838.num_elements = 7;
c_734838.elements = (object *)e_734894;
c_734838.elements[0] = ((closureN)self_732794)->elements[0];
c_734838.elements[1] = ((closureN)self_732794)->elements[1];
c_734838.elements[2] = ((closureN)self_732794)->elements[3];
c_734838.elements[3] = ((closureN)self_732794)->elements[4];
c_734838.elements[4] = ((closureN)self_732794)->elements[5];
c_734838.elements[5] = ((closureN)self_732794)->elements[6];
c_734838.elements[6] = ((closureN)self_732794)->elements[7];

return_direct_with_clo1(data,(closure)&c_734833,__lambda_290,  &c_734838);; 
}

static void __lambda_291(void *data, object self_732795, int argc, object *args) /* object self_732795, object k_731735 */
 {
 object k_731735 = args[0];
  if( (boolean_f != ((closureN)self_732795)->elements[4]) ){ 
  if( (boolean_f != ((closureN)self_732795)->elements[0]) ){ 
  
closureN_type c_734842;
object e_734857 [5];
c_734842.hdr.mark = gc_color_red;
 c_734842.hdr.grayed = 0;
c_734842.tag = closureN_tag;
 c_734842.fn = (function_type)__lambda_292;
c_734842.num_args = 1;
c_734842.num_elements = 5;
c_734842.elements = (object *)e_734857;
c_734842.elements[0] = ((closureN)self_732795)->elements[1];
c_734842.elements[1] = k_731735;
c_734842.elements[2] = ((closureN)self_732795)->elements[4];
c_734842.elements[3] = ((closureN)self_732795)->elements[5];
c_734842.elements[4] = ((closureN)self_732795)->elements[6];

return_direct_with_clo4(data,  __glo_Cyc_91er_91rename_scheme_cyclone_util, (((closure)  __glo_Cyc_91er_91rename_scheme_cyclone_util)->fn),  &c_734842, ((closureN)self_732795)->elements[6], ((closureN)self_732795)->elements[3], ((closureN)self_732795)->elements[2]);
} else { 
  
closureN_type c_734862;
object e_734887 [6];
c_734862.hdr.mark = gc_color_red;
 c_734862.hdr.grayed = 0;
c_734862.tag = closureN_tag;
 c_734862.fn = (function_type)__lambda_294;
c_734862.num_args = 1;
c_734862.num_elements = 6;
c_734862.elements = (object *)e_734887;
c_734862.elements[0] = ((closureN)self_732795)->elements[1];
c_734862.elements[1] = k_731735;
c_734862.elements[2] = ((closureN)self_732795)->elements[3];
c_734862.elements[3] = ((closureN)self_732795)->elements[4];
c_734862.elements[4] = ((closureN)self_732795)->elements[5];
c_734862.elements[5] = ((closureN)self_732795)->elements[6];

return_direct_with_clo4(data,  __glo_Cyc_91er_91rename_scheme_cyclone_util, (((closure)  __glo_Cyc_91er_91rename_scheme_cyclone_util)->fn),  &c_734862, ((closureN)self_732795)->elements[6], ((closureN)self_732795)->elements[3], ((closureN)self_732795)->elements[2]);}
;
} else { 
  
make_utf8_string_with_len(c_734892, "macro not found", 15, 15);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_731735, &c_734892, ((closureN)self_732795)->elements[1]);}
;; 
}

static void __lambda_294(void *data, object self_732798, int argc, object *args) /* object self_732798, object r_731743 */
 {
 object r_731743 = args[0];
  
closureN_type c_734864;
object e_734884 [5];
c_734864.hdr.mark = gc_color_red;
 c_734864.hdr.grayed = 0;
c_734864.tag = closureN_tag;
 c_734864.fn = (function_type)__lambda_295;
c_734864.num_args = 1;
c_734864.num_elements = 5;
c_734864.elements = (object *)e_734884;
c_734864.elements[0] = ((closureN)self_732798)->elements[0];
c_734864.elements[1] = ((closureN)self_732798)->elements[1];
c_734864.elements[2] = ((closureN)self_732798)->elements[2];
c_734864.elements[3] = ((closureN)self_732798)->elements[3];
c_734864.elements[4] = r_731743;

return_direct_with_clo3(data,  __glo_Cyc_91er_91compare_127_scheme_cyclone_util, (((closure)  __glo_Cyc_91er_91compare_127_scheme_cyclone_util)->fn),  &c_734864, ((closureN)self_732798)->elements[5], ((closureN)self_732798)->elements[4]);; 
}

static void __lambda_295(void *data, object self_732799, int argc, object *args) /* object self_732799, object r_731744 */
 {
 object r_731744 = args[0];
  
closureN_type c_734866;
object e_734870 [2];
c_734866.hdr.mark = gc_color_red;
 c_734866.hdr.grayed = 0;
c_734866.tag = closureN_tag;
 c_734866.fn = (function_type)__lambda_296;
c_734866.num_args = 1;
c_734866.num_elements = 2;
c_734866.elements = (object *)e_734870;
c_734866.elements[0] = ((closureN)self_732799)->elements[1];
c_734866.elements[1] = ((closureN)self_732799)->elements[2];


list_4_type local_734873; 





list_2_type local_734881; 
return_direct_with_clo1(data,(closure)&c_734866,__lambda_296,  Cyc_fast_list_4(&local_734873, Cyc_get_cvar(Cyc_cadr(data, ((closureN)self_732799)->elements[3])), Cyc_fast_list_2(&local_734881, quote_quote, ((closureN)self_732799)->elements[0]), ((closureN)self_732799)->elements[4], r_731744));; 
}

static void __lambda_296(void *data, object self_732800, int argc, object *args) /* object self_732800, object r_731740 */
 {
 object r_731740 = args[0];
  return_direct_with_clo3(data,  __glo_eval_scheme_eval, (((closure)  __glo_eval_scheme_eval)->fn),  ((closureN)self_732800)->elements[0], r_731740, ((closureN)self_732800)->elements[1]);; 
}

static void __lambda_292(void *data, object self_732796, int argc, object *args) /* object self_732796, object r_731737 */
 {
 object r_731737 = args[0];
  
closureN_type c_734844;
object e_734854 [4];
c_734844.hdr.mark = gc_color_red;
 c_734844.hdr.grayed = 0;
c_734844.tag = closureN_tag;
 c_734844.fn = (function_type)__lambda_293;
c_734844.num_args = 1;
c_734844.num_elements = 4;
c_734844.elements = (object *)e_734854;
c_734844.elements[0] = ((closureN)self_732796)->elements[0];
c_734844.elements[1] = ((closureN)self_732796)->elements[1];
c_734844.elements[2] = ((closureN)self_732796)->elements[2];
c_734844.elements[3] = r_731737;

return_direct_with_clo3(data,  __glo_Cyc_91er_91compare_127_scheme_cyclone_util, (((closure)  __glo_Cyc_91er_91compare_127_scheme_cyclone_util)->fn),  &c_734844, ((closureN)self_732796)->elements[4], ((closureN)self_732796)->elements[3]);; 
}

static void __lambda_293(void *data, object self_732797, int argc, object *args) /* object self_732797, object r_731738 */
 {
 object r_731738 = args[0];
  



return_closcall4(data,  Cyc_get_cvar(Cyc_cadr(data, ((closureN)self_732797)->elements[2])),  ((closureN)self_732797)->elements[1], ((closureN)self_732797)->elements[0], ((closureN)self_732797)->elements[3], r_731738);; 
}

static void __lambda_290(void *data, object self_732801, int argc, object *args) /* object self_732801, object r_731734 */
 {
 object r_731734 = args[0];
  return_direct_with_clo3(data,  __glo_with_91exception_91handler_scheme_base, (((closure)  __glo_with_91exception_91handler_scheme_base)->fn),  ((closureN)self_732801)->elements[0], ((closureN)self_732801)->elements[1], r_731734);; 
}

static void __lambda_284(void *data, object self_732802, int argc, object *args) /* object self_732802, object r_731731 */
 {
 object r_731731 = args[0];
  
closureN_type c_734810;
object e_734827 [4];
c_734810.hdr.mark = gc_color_red;
 c_734810.hdr.grayed = 0;
c_734810.tag = closureN_tag;
 c_734810.fn = (function_type)__lambda_285;
c_734810.num_args = 1;
c_734810.num_elements = 4;
c_734810.elements = (object *)e_734827;
c_734810.elements[0] = ((closureN)self_732802)->elements[0];
c_734810.elements[1] = ((closureN)self_732802)->elements[1];
c_734810.elements[2] = ((closureN)self_732802)->elements[2];
c_734810.elements[3] = ((closureN)self_732802)->elements[3];

return_direct_with_clo2(data,  __glo_call_95cc_scheme_base, (((closure)  __glo_call_95cc_scheme_base)->fn),  &c_734810, r_731731);; 
}

static void __lambda_285(void *data, object self_732803, int argc, object *args) /* object self_732803, object r_731730 */
 {
 object r_731730 = args[0];
  
closureN_type c_734812;
object e_734823 [4];
c_734812.hdr.mark = gc_color_red;
 c_734812.hdr.grayed = 0;
c_734812.tag = closureN_tag;
 c_734812.fn = (function_type)__lambda_286;
c_734812.num_args = 1;
c_734812.num_elements = 4;
c_734812.elements = (object *)e_734823;
c_734812.elements[0] = ((closureN)self_732803)->elements[0];
c_734812.elements[1] = ((closureN)self_732803)->elements[1];
c_734812.elements[2] = ((closureN)self_732803)->elements[2];
c_734812.elements[3] = ((closureN)self_732803)->elements[3];



return_direct_with_clo1(data,(closure)&c_734812,__lambda_286,  Cyc_set_cell(data, ((closureN)self_732803)->elements[2], r_731730));; 
}

static void __lambda_286(void *data, object self_732804, int argc, object *args) /* object self_732804, object r_731728 */
 {

  
closureN_type c_734814;
object e_734820 [2];
c_734814.hdr.mark = gc_color_red;
 c_734814.hdr.grayed = 0;
c_734814.tag = closureN_tag;
 c_734814.fn = (function_type)__lambda_287;
c_734814.num_args = 1;
c_734814.num_elements = 2;
c_734814.elements = (object *)e_734820;
c_734814.elements[0] = ((closureN)self_732804)->elements[0];
c_734814.elements[1] = ((closureN)self_732804)->elements[2];

return_direct_with_clo3(data,  __glo_macro_117add_91renamed_91vars_67_scheme_eval, (((closure)  __glo_macro_117add_91renamed_91vars_67_scheme_eval)->fn),  &c_734814, ((closureN)self_732804)->elements[3], ((closureN)self_732804)->elements[1]);; 
}

static void __lambda_287(void *data, object self_732805, int argc, object *args) /* object self_732805, object r_731729 */
 {

  

return_direct_with_clo1(data,  ((closureN)self_732805)->elements[0], (((closure)  ((closureN)self_732805)->elements[0])->fn),  car(((closureN)self_732805)->elements[1]));; 
}

static void __lambda_279(void *data, object _, int argc, object *args) /* closure _,object k_731715, object macro_73403_731030, object current_91rename_91lis_73404_731031 */
 {
object k_731715 = args[0]; object macro_73403_731030 = args[1]; object current_91rename_91lis_73404_731031 = args[2];
  object r_731716;
  Cyc_st_add(data, "scheme/eval.sld:macro:get-local-renames");
  
  
if( (boolean_f != Cyc_eq(obj_int2obj(3), Cyc_length(data, macro_73403_731030))) ){ 
  object local_734766 = alloca(sizeof(complex_num_type)); 
  
  
  r_731716 = ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,local_734766, Cyc_is_null(Cyc_caddr(data, macro_73403_731030)));
} else { 
  r_731716 = boolean_f;}
;if( (boolean_f != r_731716) ){ 
  

return_direct_with_clo1(data,  k_731715, (((closure)  k_731715)->fn),  Cyc_caddr(data, macro_73403_731030));
} else { 
  return_direct_with_clo1(data,  k_731715, (((closure)  k_731715)->fn),  current_91rename_91lis_73404_731031);}
;; 
}

static object __lambda_548(void *data, object ptr,object exp_73401_731028, object defined_91macros_73402_731029) {

  Cyc_st_add(data, "scheme/eval.sld:macro:macro?");




return_copy(ptr,  assoc(data, Cyc_car(data, exp_73401_731028), defined_91macros_73402_731029));; 
}

static void __lambda_278(void *data, object _, int argc, object *args) /* closure _,object k_731711, object exp_73401_731028, object defined_91macros_73402_731029 */
 {
object k_731711 = args[0]; object exp_73401_731028 = args[1]; object defined_91macros_73402_731029 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:macro:macro?");




return_direct_with_clo1(data,  k_731711, (((closure)  k_731711)->fn),  assoc(data, Cyc_car(data, exp_73401_731028), defined_91macros_73402_731029));; 
}

static void __lambda_277(void *data, object _, int argc, object *args) /* closure _,object k_731708 */
 {
object k_731708 = args[0];
  Cyc_st_add(data, "scheme/eval.sld:macro:get-defined-macros");
return_direct_with_clo1(data,  k_731708, (((closure)  k_731708)->fn),  __glo__85macro_117defined_91macros_85_scheme_eval);; 
}

static void __lambda_276(void *data, object _, int argc, object *args) /* closure _,object k_731705 */
 {
object k_731705 = args[0];
  Cyc_st_add(data, "scheme/eval.sld:macro:get-env");
return_direct_with_clo1(data,  k_731705, (((closure)  k_731705)->fn),  __glo__85macro_117env_85_scheme_eval);; 
}

static void __lambda_270(void *data, object _, int argc, object *args) /* closure _,object k_731695, object defined_91macros_73398_731025, object base_91env_73399_731026 */
 {
object k_731695 = args[0]; object defined_91macros_73398_731025 = args[1]; object base_91env_73399_731026 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:macro:load-env!");

closureN_type c_734715;
object e_734740 [3];
c_734715.hdr.mark = gc_color_red;
 c_734715.hdr.grayed = 0;
c_734715.tag = closureN_tag;
 c_734715.fn = (function_type)__lambda_271;
c_734715.num_args = 1;
c_734715.num_elements = 3;
c_734715.elements = (object *)e_734740;
c_734715.elements[0] = base_91env_73399_731026;
c_734715.elements[1] = defined_91macros_73398_731025;
c_734715.elements[2] = k_731695;

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_734715, primitive_car, defined_91macros_73398_731025);; 
}

static void __lambda_271(void *data, object self_732780, int argc, object *args) /* object self_732780, object r_731697 */
 {
 object r_731697 = args[0];
  
closureN_type c_734717;
object e_734732 [4];
c_734717.hdr.mark = gc_color_red;
 c_734717.hdr.grayed = 0;
c_734717.tag = closureN_tag;
 c_734717.fn = (function_type)__lambda_272;
c_734717.num_args = 1;
c_734717.num_elements = 4;
c_734717.elements = (object *)e_734732;
c_734717.elements[0] = ((closureN)self_732780)->elements[0];
c_734717.elements[1] = ((closureN)self_732780)->elements[1];
c_734717.elements[2] = ((closureN)self_732780)->elements[2];
c_734717.elements[3] = r_731697;


mclosure0(c_734733, (function_type)__lambda_275);c_734733.num_args = 1;
return_direct_with_clo1(data,(closure)&c_734717,__lambda_272,  &c_734733);; 
}

static void __lambda_275(void *data, object self_732781, int argc, object *args) /* object self_732781, object k_731700, object v_73400_731027 */
 {
 object k_731700 = args[0]; object v_73400_731027 = args[1];
  
list_2_type local_734737; 


return_direct_with_clo1(data,  k_731700, (((closure)  k_731700)->fn),  Cyc_fast_list_2(&local_734737, quote_macro, Cyc_cdr(data, v_73400_731027)));; 
}

static void __lambda_272(void *data, object self_732782, int argc, object *args) /* object self_732782, object r_731699 */
 {
 object r_731699 = args[0];
  
closureN_type c_734719;
object e_734730 [3];
c_734719.hdr.mark = gc_color_red;
 c_734719.hdr.grayed = 0;
c_734719.tag = closureN_tag;
 c_734719.fn = (function_type)__lambda_273;
c_734719.num_args = 1;
c_734719.num_elements = 3;
c_734719.elements = (object *)e_734730;
c_734719.elements[0] = ((closureN)self_732782)->elements[0];
c_734719.elements[1] = ((closureN)self_732782)->elements[2];
c_734719.elements[2] = ((closureN)self_732782)->elements[3];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_734719, r_731699, ((closureN)self_732782)->elements[1]);; 
}

static void __lambda_273(void *data, object self_732783, int argc, object *args) /* object self_732783, object r_731698 */
 {
 object r_731698 = args[0];
  
closureN_type c_734721;
object e_734727 [1];
c_734721.hdr.mark = gc_color_red;
 c_734721.hdr.grayed = 0;
c_734721.tag = closureN_tag;
 c_734721.fn = (function_type)__lambda_274;
c_734721.num_args = 1;
c_734721.num_elements = 1;
c_734721.elements = (object *)e_734727;
c_734721.elements[0] = ((closureN)self_732783)->elements[1];

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_734721, ((closureN)self_732783)->elements[2], r_731698, ((closureN)self_732783)->elements[0]);; 
}

static void __lambda_274(void *data, object self_732784, int argc, object *args) /* object self_732784, object r_731696 */
 {
 object r_731696 = args[0];
  
object c_734726 = global_set_cps_id(data,  ((closureN)self_732784)->elements[0],"__glo__85macro_117env_85_scheme_eval", __glo__85macro_117env_85_scheme_eval, r_731696);
return_direct_with_clo1(data,  ((closureN)self_732784)->elements[0], (((closure)  ((closureN)self_732784)->elements[0])->fn),  c_734726);; 
}

static void __lambda_267(void *data, object _, int argc, object *args) /* closure _,object k_731689, object name_73396_731023, object body_73397_731024 */
 {
object k_731689 = args[0]; object name_73396_731023 = args[1]; object body_73397_731024 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:macro:add!");

closureN_type c_734697;
object e_734706 [1];
c_734697.hdr.mark = gc_color_red;
 c_734697.hdr.grayed = 0;
c_734697.tag = closureN_tag;
 c_734697.fn = (function_type)__lambda_268;
c_734697.num_args = 1;
c_734697.num_elements = 1;
c_734697.elements = (object *)e_734706;
c_734697.elements[0] = k_731689;


pair_type local_734709; 

pair_type local_734712; 
return_direct_with_clo1(data,(closure)&c_734697,__lambda_268,  set_pair_as_expr(&local_734709, set_pair_as_expr(&local_734712, name_73396_731023, body_73397_731024), __glo__85macro_117defined_91macros_85_scheme_eval));; 
}

static void __lambda_268(void *data, object self_732778, int argc, object *args) /* object self_732778, object r_731691 */
 {
 object r_731691 = args[0];
  
closureN_type c_734699;
object e_734702 [1];
c_734699.hdr.mark = gc_color_red;
 c_734699.hdr.grayed = 0;
c_734699.tag = closureN_tag;
 c_734699.fn = (function_type)__lambda_269;
c_734699.num_args = 1;
c_734699.num_elements = 1;
c_734699.elements = (object *)e_734702;
c_734699.elements[0] = ((closureN)self_732778)->elements[0];


object c_734705 = global_set_cps_id(data,(closure)&c_734699,"__glo__85macro_117defined_91macros_85_scheme_eval", __glo__85macro_117defined_91macros_85_scheme_eval, r_731691);
return_closcall1(data,(closure)&c_734699,  c_734705);; 
}

static void __lambda_269(void *data, object self_732779, int argc, object *args) /* object self_732779, object r_731690 */
 {

  return_direct_with_clo1(data,  ((closureN)self_732779)->elements[0], (((closure)  ((closureN)self_732779)->elements[0])->fn),  boolean_t);; 
}

static void __lambda_547(void *data, object _, int argc, object *args) {object k = args[0];object name = args[1]; Cyc_check_str(data, name);
    return_closcall1(data, k, is_library_loaded(string_str(name)));  }
static void __lambda_546(void *data, object _, int argc, object *args) {object k = args[0];object fn = args[1];object entry_fnc = args[2]; Cyc_import_shared_object(data, k, fn, entry_fnc);  }
static void __lambda_266(void *data, object _, int argc, object *args) /* closure _,object k_731682, object filename_73395_731022 */
 {
object k_731682 = args[0]; object filename_73395_731022 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:import-shared-object");

make_utf8_string_with_len(c_734692, "", 0, 0);
return_direct_with_clo3(data,  __glo_c_117import_91shared_91obj_scheme_eval, (((closure)  __glo_c_117import_91shared_91obj_scheme_eval)->fn),  k_731682, filename_73395_731022, &c_734692);; 
}

static void __lambda_263(void *data, object _, int argc, object *args) /* closure _,object k_731677, object lis_73394_731021 */
 {
object k_731677 = args[0]; object lis_73394_731021 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:imported?");

closureN_type c_734683;
object e_734689 [1];
c_734683.hdr.mark = gc_color_red;
 c_734683.hdr.grayed = 0;
c_734683.tag = closureN_tag;
 c_734683.fn = (function_type)__lambda_264;
c_734683.num_args = 1;
c_734683.num_elements = 1;
c_734683.elements = (object *)e_734689;
c_734683.elements[0] = k_731677;

return_direct_with_clo2(data,  __glo_lib_117list_91_125import_91set_scheme_cyclone_libraries, (((closure)  __glo_lib_117list_91_125import_91set_scheme_cyclone_libraries)->fn),  &c_734683, lis_73394_731021);; 
}

static void __lambda_264(void *data, object self_732776, int argc, object *args) /* object self_732776, object r_731679 */
 {
 object r_731679 = args[0];
  
closureN_type c_734685;
object e_734688 [1];
c_734685.hdr.mark = gc_color_red;
 c_734685.hdr.grayed = 0;
c_734685.tag = closureN_tag;
 c_734685.fn = (function_type)__lambda_265;
c_734685.num_args = 1;
c_734685.num_elements = 1;
c_734685.elements = (object *)e_734688;
c_734685.elements[0] = ((closureN)self_732776)->elements[0];

return_direct_with_clo2(data,  __glo_lib_117name_91_125unique_91string_scheme_cyclone_libraries, (((closure)  __glo_lib_117name_91_125unique_91string_scheme_cyclone_libraries)->fn),  &c_734685, r_731679);; 
}

static void __lambda_265(void *data, object self_732777, int argc, object *args) /* object self_732777, object r_731678 */
 {
 object r_731678 = args[0];
  return_direct_with_clo2(data,  __glo_c_117lib_91loaded_127_scheme_eval, (((closure)  __glo_c_117lib_91loaded_127_scheme_eval)->fn),  ((closureN)self_732777)->elements[0], r_731678);; 
}

static void __lambda_239(void *data, object _, int argc, object *args) /* closure _,object k_731646, object import_91sets_73377_731012_raw, ... */
 {
object k_731646 = args[0];
load_varargs(import_91sets_73377_731012, args, 1, argc - 1);
  Cyc_st_add(data, "scheme/eval.sld:%import");

closureN_type c_734566;
object e_734680 [2];
c_734566.hdr.mark = gc_color_red;
 c_734566.hdr.grayed = 0;
c_734566.tag = closureN_tag;
 c_734566.fn = (function_type)__lambda_240;
c_734566.num_args = 1;
c_734566.num_elements = 2;
c_734566.elements = (object *)e_734680;
c_734566.elements[0] = import_91sets_73377_731012;
c_734566.elements[1] = k_731646;

return_direct_with_clo2(data,  __glo_lib_117list_91_125import_91set_scheme_cyclone_libraries, (((closure)  __glo_lib_117list_91_125import_91set_scheme_cyclone_libraries)->fn),  &c_734566, import_91sets_73377_731012);; 
}

static void __lambda_240(void *data, object self_732753, int argc, object *args) /* object self_732753, object r_731674 */
 {
 object r_731674 = args[0];
  
closureN_type c_734568;
object e_734679 [2];
c_734568.hdr.mark = gc_color_red;
 c_734568.hdr.grayed = 0;
c_734568.tag = closureN_tag;
 c_734568.fn = (function_type)__lambda_241;
c_734568.num_args = 1;
c_734568.num_elements = 2;
c_734568.elements = (object *)e_734679;
c_734568.elements[0] = ((closureN)self_732753)->elements[0];
c_734568.elements[1] = ((closureN)self_732753)->elements[1];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_734568, __glo_lib_117import_91_125library_91name_scheme_cyclone_libraries, r_731674);; 
}

static void __lambda_241(void *data, object self_732754, int argc, object *args) /* object self_732754, object r_731647 */
 {
 object r_731647 = args[0];
  
closureN_type c_734570;
object e_734678 [3];
c_734570.hdr.mark = gc_color_red;
 c_734570.hdr.grayed = 0;
c_734570.tag = closureN_tag;
 c_734570.fn = (function_type)__lambda_242;
c_734570.num_args = 1;
c_734570.num_elements = 3;
c_734570.elements = (object *)e_734678;
c_734570.elements[0] = ((closureN)self_732754)->elements[0];
c_734570.elements[1] = ((closureN)self_732754)->elements[1];
c_734570.elements[2] = r_731647;

return_direct_with_clo1(data,  __glo_base_91expander_scheme_eval, (((closure)  __glo_base_91expander_scheme_eval)->fn),  &c_734570);; 
}

static void __lambda_242(void *data, object self_732755, int argc, object *args) /* object self_732755, object r_731673 */
 {
 object r_731673 = args[0];
  
closureN_type c_734572;
object e_734676 [3];
c_734572.hdr.mark = gc_color_red;
 c_734572.hdr.grayed = 0;
c_734572.tag = closureN_tag;
 c_734572.fn = (function_type)__lambda_243;
c_734572.num_args = 1;
c_734572.num_elements = 3;
c_734572.elements = (object *)e_734676;
c_734572.elements[0] = ((closureN)self_732755)->elements[0];
c_734572.elements[1] = ((closureN)self_732755)->elements[1];
c_734572.elements[2] = ((closureN)self_732755)->elements[2];

return_direct_with_clo5(data,  __glo_lib_117get_91all_91import_91deps_scheme_cyclone_libraries, (((closure)  __glo_lib_117get_91all_91import_91deps_scheme_cyclone_libraries)->fn),  &c_734572, ((closureN)self_732755)->elements[0], __glo__85append_91dirs_85_scheme_eval, __glo__85prepend_91dirs_85_scheme_eval, r_731673);; 
}

static void __lambda_243(void *data, object self_732756, int argc, object *args) /* object self_732756, object r_731648 */
 {
 object r_731648 = args[0];
  
closureN_type c_734574;
object e_734674 [3];
c_734574.hdr.mark = gc_color_red;
 c_734574.hdr.grayed = 0;
c_734574.tag = closureN_tag;
 c_734574.fn = (function_type)__lambda_244;
c_734574.num_args = 1;
c_734574.num_elements = 3;
c_734574.elements = (object *)e_734674;
c_734574.elements[0] = ((closureN)self_732756)->elements[1];
c_734574.elements[1] = ((closureN)self_732756)->elements[2];
c_734574.elements[2] = r_731648;

return_direct_with_clo5(data,  __glo_lib_117imports_91_125idb_scheme_cyclone_libraries, (((closure)  __glo_lib_117imports_91_125idb_scheme_cyclone_libraries)->fn),  &c_734574, ((closureN)self_732756)->elements[0], __glo__85append_91dirs_85_scheme_eval, __glo__85prepend_91dirs_85_scheme_eval, __glo_base_91expander_scheme_eval);; 
}

static void __lambda_244(void *data, object self_732757, int argc, object *args) /* object self_732757, object r_731672 */
 {
 object r_731672 = args[0];
  
closureN_type c_734576;
object e_734673 [3];
c_734576.hdr.mark = gc_color_red;
 c_734576.hdr.grayed = 0;
c_734576.tag = closureN_tag;
 c_734576.fn = (function_type)__lambda_245;
c_734576.num_args = 1;
c_734576.num_elements = 3;
c_734576.elements = (object *)e_734673;
c_734576.elements[0] = ((closureN)self_732757)->elements[0];
c_734576.elements[1] = ((closureN)self_732757)->elements[1];
c_734576.elements[2] = ((closureN)self_732757)->elements[2];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_734576, primitive_car, r_731672);; 
}

static void __lambda_245(void *data, object self_732758, int argc, object *args) /* object self_732758, object r_731671 */
 {
 object r_731671 = args[0];
  
closureN_type c_734578;
object e_734672 [3];
c_734578.hdr.mark = gc_color_red;
 c_734578.hdr.grayed = 0;
c_734578.tag = closureN_tag;
 c_734578.fn = (function_type)__lambda_246;
c_734578.num_args = 1;
c_734578.num_elements = 3;
c_734578.elements = (object *)e_734672;
c_734578.elements[0] = ((closureN)self_732758)->elements[0];
c_734578.elements[1] = ((closureN)self_732758)->elements[1];
c_734578.elements[2] = ((closureN)self_732758)->elements[2];

return_direct_with_clo3(data,  __glo_filter_scheme_cyclone_util, (((closure)  __glo_filter_scheme_cyclone_util)->fn),  &c_734578, primitive_pair_127, r_731671);; 
}

static void __lambda_246(void *data, object self_732759, int argc, object *args) /* object self_732759, object r_731649 */
 {
 object r_731649 = args[0];
  
closureN_type c_734580;
object e_734669 [1];
c_734580.hdr.mark = gc_color_red;
 c_734580.hdr.grayed = 0;
c_734580.tag = closureN_tag;
 c_734580.fn = (function_type)__lambda_247;
c_734580.num_args = 3;
c_734580.num_elements = 1;
c_734580.elements = (object *)e_734669;
c_734580.elements[0] = ((closureN)self_732759)->elements[0];

return_direct_with_clo3(data,(closure)&c_734580,__lambda_247,  ((closureN)self_732759)->elements[1], ((closureN)self_732759)->elements[2], r_731649);; 
}

static void __lambda_247(void *data, object self_732760, int argc, object *args) /* object self_732760, object explicit_91lib_91names_73378_731013, object lib_91names_73379_731014, object renamed_91syms_73380_731015 */
 {
 object explicit_91lib_91names_73378_731013 = args[0]; object lib_91names_73379_731014 = args[1]; object renamed_91syms_73380_731015 = args[2];
  
closureN_type c_734582;
object e_734625 [3];
c_734582.hdr.mark = gc_color_red;
 c_734582.hdr.grayed = 0;
c_734582.tag = closureN_tag;
 c_734582.fn = (function_type)__lambda_248;
c_734582.num_args = 1;
c_734582.num_elements = 3;
c_734582.elements = (object *)e_734625;
c_734582.elements[0] = ((closureN)self_732760)->elements[0];
c_734582.elements[1] = lib_91names_73379_731014;
c_734582.elements[2] = renamed_91syms_73380_731015;


closureN_type c_734626;
object e_734668 [1];
c_734626.hdr.mark = gc_color_red;
 c_734626.hdr.grayed = 0;
c_734626.tag = closureN_tag;
 c_734626.fn = (function_type)__lambda_257;
c_734626.num_args = 1;
c_734626.num_elements = 1;
c_734626.elements = (object *)e_734668;
c_734626.elements[0] = explicit_91lib_91names_73378_731013;

return_direct_with_clo1(data,(closure)&c_734582,__lambda_248,  &c_734626);; 
}

static void __lambda_257(void *data, object self_732761, int argc, object *args) /* object self_732761, object k_731662, object lib_91name_73381_731016 */
 {
 object k_731662 = args[0]; object lib_91name_73381_731016 = args[1];
  
closureN_type c_734628;
object e_734667 [3];
c_734628.hdr.mark = gc_color_red;
 c_734628.hdr.grayed = 0;
c_734628.tag = closureN_tag;
 c_734628.fn = (function_type)__lambda_258;
c_734628.num_args = 1;
c_734628.num_elements = 3;
c_734628.elements = (object *)e_734667;
c_734628.elements[0] = ((closureN)self_732761)->elements[0];
c_734628.elements[1] = k_731662;
c_734628.elements[2] = lib_91name_73381_731016;

return_direct_with_clo2(data,  __glo_lib_117name_91_125unique_91string_scheme_cyclone_libraries, (((closure)  __glo_lib_117name_91_125unique_91string_scheme_cyclone_libraries)->fn),  &c_734628, lib_91name_73381_731016);; 
}

static void __lambda_258(void *data, object self_732762, int argc, object *args) /* object self_732762, object us_73384_731017 */
 {
 object us_73384_731017 = args[0];
  
closureN_type c_734630;
object e_734666 [3];
c_734630.hdr.mark = gc_color_red;
 c_734630.hdr.grayed = 0;
c_734630.tag = closureN_tag;
 c_734630.fn = (function_type)__lambda_259;
c_734630.num_args = 1;
c_734630.num_elements = 3;
c_734630.elements = (object *)e_734666;
c_734630.elements[0] = ((closureN)self_732762)->elements[0];
c_734630.elements[1] = ((closureN)self_732762)->elements[1];
c_734630.elements[2] = ((closureN)self_732762)->elements[2];

return_direct_with_clo2(data,  __glo_c_117lib_91loaded_127_scheme_eval, (((closure)  __glo_c_117lib_91loaded_127_scheme_eval)->fn),  &c_734630, us_73384_731017);; 
}

static void __lambda_259(void *data, object self_732763, int argc, object *args) /* object self_732763, object loaded_127_73387_731018 */
 {
 object loaded_127_73387_731018 = args[0];
  object r_731665;
    object local_734634 = alloca(sizeof(complex_num_type)); 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,local_734634, loaded_127_73387_731018)) ){ 
  object local_734638 = alloca(sizeof(complex_num_type)); 
  r_731665 = ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,local_734638, loaded_127_73387_731018);
} else { 
  
  r_731665 = memberp(data, ((closureN)self_732763)->elements[2], ((closureN)self_732763)->elements[0]);}
;if( (boolean_f != r_731665) ){ 
  
closureN_type c_734645;
object e_734661 [2];
c_734645.hdr.mark = gc_color_red;
 c_734645.hdr.grayed = 0;
c_734645.tag = closureN_tag;
 c_734645.fn = (function_type)__lambda_260;
c_734645.num_args = 1;
c_734645.num_elements = 2;
c_734645.elements = (object *)e_734661;
c_734645.elements[0] = ((closureN)self_732763)->elements[1];
c_734645.elements[1] = ((closureN)self_732763)->elements[2];


make_utf8_string_with_len(c_734663, ".so", 3, 3);
return_direct_with_clo5(data,  __glo_lib_117import_91_125filename_scheme_cyclone_libraries, (((closure)  __glo_lib_117import_91_125filename_scheme_cyclone_libraries)->fn),  &c_734645, ((closureN)self_732763)->elements[2], &c_734663, __glo__85append_91dirs_85_scheme_eval, __glo__85prepend_91dirs_85_scheme_eval);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732763)->elements[1], (((closure)  ((closureN)self_732763)->elements[1])->fn),  Cyc_VOID);}
;; 
}

static void __lambda_260(void *data, object self_732764, int argc, object *args) /* object self_732764, object r_731666 */
 {
 object r_731666 = args[0];
  
closureN_type c_734647;
object e_734659 [2];
c_734647.hdr.mark = gc_color_red;
 c_734647.hdr.grayed = 0;
c_734647.tag = closureN_tag;
 c_734647.fn = (function_type)__lambda_261;
c_734647.num_args = 1;
c_734647.num_elements = 2;
c_734647.elements = (object *)e_734659;
c_734647.elements[0] = ((closureN)self_732764)->elements[0];
c_734647.elements[1] = r_731666;

return_direct_with_clo2(data,  __glo_lib_117name_91_125string_scheme_cyclone_libraries, (((closure)  __glo_lib_117name_91_125string_scheme_cyclone_libraries)->fn),  &c_734647, ((closureN)self_732764)->elements[1]);; 
}

static void __lambda_261(void *data, object self_732765, int argc, object *args) /* object self_732765, object r_731668 */
 {
 object r_731668 = args[0];
  
closureN_type c_734649;
object e_734653 [2];
c_734649.hdr.mark = gc_color_red;
 c_734649.hdr.grayed = 0;
c_734649.tag = closureN_tag;
 c_734649.fn = (function_type)__lambda_262;
c_734649.num_args = 1;
c_734649.num_elements = 2;
c_734649.elements = (object *)e_734653;
c_734649.elements[0] = ((closureN)self_732765)->elements[0];
c_734649.elements[1] = ((closureN)self_732765)->elements[1];


make_utf8_string_with_len(c_734657, "c_", 2, 2);

make_utf8_string_with_len(c_734658, "_entry_pt_first_lambda", 22, 22);

object c_734656 = Cyc_string_append(data,(closure)&c_734649,3,&c_734657, r_731668, &c_734658);
return_closcall1(data,(closure)&c_734649,  c_734656);; 
}

static void __lambda_262(void *data, object self_732766, int argc, object *args) /* object self_732766, object r_731667 */
 {
 object r_731667 = args[0];
  return_direct_with_clo3(data,  __glo_c_117import_91shared_91obj_scheme_eval, (((closure)  __glo_c_117import_91shared_91obj_scheme_eval)->fn),  ((closureN)self_732766)->elements[0], ((closureN)self_732766)->elements[1], r_731667);; 
}

static void __lambda_248(void *data, object self_732767, int argc, object *args) /* object self_732767, object r_731661 */
 {
 object r_731661 = args[0];
  
closureN_type c_734584;
object e_734623 [2];
c_734584.hdr.mark = gc_color_red;
 c_734584.hdr.grayed = 0;
c_734584.tag = closureN_tag;
 c_734584.fn = (function_type)__lambda_249;
c_734584.num_args = 1;
c_734584.num_elements = 2;
c_734584.elements = (object *)e_734623;
c_734584.elements[0] = ((closureN)self_732767)->elements[0];
c_734584.elements[1] = ((closureN)self_732767)->elements[2];

return_direct_with_clo3(data,  __glo_Cyc_91for_91each_91loop_911_scheme_base, (((closure)  __glo_Cyc_91for_91each_91loop_911_scheme_base)->fn),  &c_734584, r_731661, ((closureN)self_732767)->elements[1]);; 
}

static void __lambda_249(void *data, object self_732768, int argc, object *args) /* object self_732768, object r_731650 */
 {

  
closureN_type c_734586;
object e_734620 [2];
c_734586.hdr.mark = gc_color_red;
 c_734586.hdr.grayed = 0;
c_734586.tag = closureN_tag;
 c_734586.fn = (function_type)__lambda_250;
c_734586.num_args = 1;
c_734586.num_elements = 2;
c_734586.elements = (object *)e_734620;
c_734586.elements[0] = ((closureN)self_732768)->elements[0];
c_734586.elements[1] = ((closureN)self_732768)->elements[1];



return_direct_with_clo1(data,(closure)&c_734586,__lambda_250,  Cyc_car(data, __glo__85global_91environment_85_scheme_eval));; 
}

static void __lambda_250(void *data, object self_732769, int argc, object *args) /* object self_732769, object r_731659 */
 {
 object r_731659 = args[0];
  
closureN_type c_734588;
object e_734619 [3];
c_734588.hdr.mark = gc_color_red;
 c_734588.hdr.grayed = 0;
c_734588.tag = closureN_tag;
 c_734588.fn = (function_type)__lambda_251;
c_734588.num_args = 1;
c_734588.num_elements = 3;
c_734588.elements = (object *)e_734619;
c_734588.elements[0] = ((closureN)self_732769)->elements[0];
c_734588.elements[1] = r_731659;
c_734588.elements[2] = ((closureN)self_732769)->elements[1];

return_direct_with_clo2(data,  __glo_setup_91environment_scheme_eval, (((closure)  __glo_setup_91environment_scheme_eval)->fn),  &c_734588, __glo__85initial_91environment_85_scheme_eval);; 
}

static void __lambda_251(void *data, object self_732770, int argc, object *args) /* object self_732770, object r_731660 */
 {
 object r_731660 = args[0];
  
closureN_type c_734590;
object e_734611 [2];
c_734590.hdr.mark = gc_color_red;
 c_734590.hdr.grayed = 0;
c_734590.tag = closureN_tag;
 c_734590.fn = (function_type)__lambda_252;
c_734590.num_args = 1;
c_734590.num_elements = 2;
c_734590.elements = (object *)e_734611;
c_734590.elements[0] = ((closureN)self_732770)->elements[0];
c_734590.elements[1] = ((closureN)self_732770)->elements[2];


pair_type local_734617; 

object c_734614 = global_set_cps_id(data,(closure)&c_734590,"__glo__85global_91environment_85_scheme_eval", __glo__85global_91environment_85_scheme_eval, set_pair_as_expr(&local_734617, ((closureN)self_732770)->elements[1], r_731660));
return_closcall1(data,(closure)&c_734590,  c_734614);; 
}

static void __lambda_252(void *data, object self_732771, int argc, object *args) /* object self_732771, object r_731651 */
 {

  
closureN_type c_734592;
object e_734599 [2];
c_734592.hdr.mark = gc_color_red;
 c_734592.hdr.grayed = 0;
c_734592.tag = closureN_tag;
 c_734592.fn = (function_type)__lambda_253;
c_734592.num_args = 1;
c_734592.num_elements = 2;
c_734592.elements = (object *)e_734599;
c_734592.elements[0] = ((closureN)self_732771)->elements[0];
c_734592.elements[1] = ((closureN)self_732771)->elements[1];


mclosure0(c_734600, (function_type)__lambda_255);c_734600.num_args = 1;
return_direct_with_clo1(data,(closure)&c_734592,__lambda_253,  &c_734600);; 
}

static void __lambda_255(void *data, object self_732772, int argc, object *args) /* object self_732772, object k_731654, object rename_95base_73393_731020 */
 {
 object k_731654 = args[0]; object rename_95base_73393_731020 = args[1];
  
closureN_type c_734602;
object e_734608 [2];
c_734602.hdr.mark = gc_color_red;
 c_734602.hdr.grayed = 0;
c_734602.tag = closureN_tag;
 c_734602.fn = (function_type)__lambda_256;
c_734602.num_args = 1;
c_734602.num_elements = 2;
c_734602.elements = (object *)e_734608;
c_734602.elements[0] = k_731654;
c_734602.elements[1] = rename_95base_73393_731020;



return_direct_with_clo3(data,  __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util, (((closure)  __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util)->fn),  &c_734602, Cyc_cdr(data, rename_95base_73393_731020), __glo__85global_91environment_85_scheme_eval);; 
}

static void __lambda_256(void *data, object self_732773, int argc, object *args) /* object self_732773, object r_731656 */
 {
 object r_731656 = args[0];
  

return_direct_with_clo4(data,  __glo_env_117define_91variable_67_scheme_cyclone_util, (((closure)  __glo_env_117define_91variable_67_scheme_cyclone_util)->fn),  ((closureN)self_732773)->elements[0], Cyc_car(data, ((closureN)self_732773)->elements[1]), r_731656, __glo__85global_91environment_85_scheme_eval);; 
}

static void __lambda_253(void *data, object self_732774, int argc, object *args) /* object self_732774, object r_731653 */
 {
 object r_731653 = args[0];
  
closureN_type c_734594;
object e_734597 [1];
c_734594.hdr.mark = gc_color_red;
 c_734594.hdr.grayed = 0;
c_734594.tag = closureN_tag;
 c_734594.fn = (function_type)__lambda_254;
c_734594.num_args = 1;
c_734594.num_elements = 1;
c_734594.elements = (object *)e_734597;
c_734594.elements[0] = ((closureN)self_732774)->elements[0];

return_direct_with_clo3(data,  __glo_Cyc_91for_91each_91loop_911_scheme_base, (((closure)  __glo_Cyc_91for_91each_91loop_911_scheme_base)->fn),  &c_734594, r_731653, ((closureN)self_732774)->elements[1]);; 
}

static void __lambda_254(void *data, object self_732775, int argc, object *args) /* object self_732775, object r_731652 */
 {

  return_direct_with_clo1(data,  ((closureN)self_732775)->elements[0], (((closure)  ((closureN)self_732775)->elements[0])->fn),  boolean_t);; 
}

static void __lambda_229(void *data, object _, int argc, object *args) /* closure _,object k_731627 */
 {
object k_731627 = args[0];
  Cyc_st_add(data, "scheme/eval.sld:base-expander");

closureN_type c_734524;
object e_734563 [1];
c_734524.hdr.mark = gc_color_red;
 c_734524.hdr.grayed = 0;
c_734524.tag = closureN_tag;
 c_734524.fn = (function_type)__lambda_230;
c_734524.num_args = 1;
c_734524.num_elements = 1;
c_734524.elements = (object *)e_734563;
c_734524.elements[0] = k_731627;

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_734524, NULL, NULL, NULL);; 
}

static void __lambda_230(void *data, object self_732744, int argc, object *args) /* object self_732744, object r_731628 */
 {
 object r_731628 = args[0];
  
closureN_type c_734526;
object e_734554 [2];
c_734526.hdr.mark = gc_color_red;
 c_734526.hdr.grayed = 0;
c_734526.tag = closureN_tag;
 c_734526.fn = (function_type)__lambda_231;
c_734526.num_args = 1;
c_734526.num_elements = 2;
c_734526.elements = (object *)e_734554;
c_734526.elements[0] = ((closureN)self_732744)->elements[0];
c_734526.elements[1] = r_731628;


mclosure0(c_734555, (function_type)__lambda_238);c_734555.num_args = 1;
return_direct_with_clo1(data,(closure)&c_734526,__lambda_231,  &c_734555);; 
}

static void __lambda_238(void *data, object self_732745, int argc, object *args) /* object self_732745, object k_731638, object v_73376_731011 */
 {
 object k_731638 = args[0]; object v_73376_731011 = args[1];
  





return_direct_with_clo1(data,  k_731638, (((closure)  k_731638)->fn),  Cyc_is_macro(Cyc_get_cvar(Cyc_cdr(data, v_73376_731011))));; 
}

static void __lambda_231(void *data, object self_732746, int argc, object *args) /* object self_732746, object r_731636 */
 {
 object r_731636 = args[0];
  
closureN_type c_734528;
object e_734551 [2];
c_734528.hdr.mark = gc_color_red;
 c_734528.hdr.grayed = 0;
c_734528.tag = closureN_tag;
 c_734528.fn = (function_type)__lambda_232;
c_734528.num_args = 1;
c_734528.num_elements = 2;
c_734528.elements = (object *)e_734551;
c_734528.elements[0] = ((closureN)self_732746)->elements[0];
c_734528.elements[1] = ((closureN)self_732746)->elements[1];



return_direct_with_clo3(data,  __glo_filter_scheme_cyclone_util, (((closure)  __glo_filter_scheme_cyclone_util)->fn),  &c_734528, r_731636, Cyc_get_global_variables());; 
}

static void __lambda_232(void *data, object self_732747, int argc, object *args) /* object self_732747, object r_731629 */
 {
 object r_731629 = args[0];
  
closureN_type c_734530;
object e_734549 [1];
c_734530.hdr.mark = gc_color_red;
 c_734530.hdr.grayed = 0;
c_734530.tag = closureN_tag;
 c_734530.fn = (function_type)__lambda_233;
c_734530.num_args = 2;
c_734530.num_elements = 1;
c_734530.elements = (object *)e_734549;
c_734530.elements[0] = ((closureN)self_732747)->elements[0];

return_direct_with_clo2(data,(closure)&c_734530,__lambda_233,  ((closureN)self_732747)->elements[1], r_731629);; 
}

static void __lambda_233(void *data, object self_732748, int argc, object *args) /* object self_732748, object rename_91env_73373_731008, object macros_73374_731009 */
 {
 object rename_91env_73373_731008 = args[0]; object macros_73374_731009 = args[1];
  
closureN_type c_734532;
object e_734548 [3];
c_734532.hdr.mark = gc_color_red;
 c_734532.hdr.grayed = 0;
c_734532.tag = closureN_tag;
 c_734532.fn = (function_type)__lambda_234;
c_734532.num_args = 1;
c_734532.num_elements = 3;
c_734532.elements = (object *)e_734548;
c_734532.elements[0] = ((closureN)self_732748)->elements[0];
c_734532.elements[1] = macros_73374_731009;
c_734532.elements[2] = rename_91env_73373_731008;

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_734532, NULL, NULL, __glo__85global_91environment_85_scheme_eval);; 
}

static void __lambda_234(void *data, object self_732749, int argc, object *args) /* object self_732749, object r_731633 */
 {
 object r_731633 = args[0];
  
closureN_type c_734534;
object e_734546 [2];
c_734534.hdr.mark = gc_color_red;
 c_734534.hdr.grayed = 0;
c_734534.tag = closureN_tag;
 c_734534.fn = (function_type)__lambda_235;
c_734534.num_args = 1;
c_734534.num_elements = 2;
c_734534.elements = (object *)e_734546;
c_734534.elements[0] = ((closureN)self_732749)->elements[0];
c_734534.elements[1] = ((closureN)self_732749)->elements[2];

return_direct_with_clo3(data,  __glo_macro_117load_91env_67_scheme_eval, (((closure)  __glo_macro_117load_91env_67_scheme_eval)->fn),  &c_734534, ((closureN)self_732749)->elements[1], r_731633);; 
}

static void __lambda_235(void *data, object self_732750, int argc, object *args) /* object self_732750, object r_731630 */
 {

  
closureN_type c_734537;
object e_734545 [1];
c_734537.hdr.mark = gc_color_red;
 c_734537.hdr.grayed = 0;
c_734537.tag = closureN_tag;
 c_734537.fn = (function_type)__lambda_236;
c_734537.num_args = 1;
c_734537.num_elements = 1;
c_734537.elements = (object *)e_734545;
c_734537.elements[0] = ((closureN)self_732750)->elements[1];

return_direct_with_clo1(data,  ((closureN)self_732750)->elements[0], (((closure)  ((closureN)self_732750)->elements[0])->fn),  &c_734537);; 
}

static void __lambda_236(void *data, object self_732751, int argc, object *args) /* object self_732751, object k_731631, object ex_73375_731010 */
 {
 object k_731631 = args[0]; object ex_73375_731010 = args[1];
  
closureN_type c_734539;
object e_734544 [3];
c_734539.hdr.mark = gc_color_red;
 c_734539.hdr.grayed = 0;
c_734539.tag = closureN_tag;
 c_734539.fn = (function_type)__lambda_237;
c_734539.num_args = 1;
c_734539.num_elements = 3;
c_734539.elements = (object *)e_734544;
c_734539.elements[0] = ex_73375_731010;
c_734539.elements[1] = k_731631;
c_734539.elements[2] = ((closureN)self_732751)->elements[0];

return_direct_with_clo1(data,(closure)&c_734539,__lambda_237,  __glo__85macro_117env_85_scheme_eval);; 
}

static void __lambda_237(void *data, object self_732752, int argc, object *args) /* object self_732752, object r_731632 */
 {
 object r_731632 = args[0];
  return_direct_with_clo4(data,  __glo_expand_scheme_eval, (((closure)  __glo_expand_scheme_eval)->fn),  ((closureN)self_732752)->elements[1], ((closureN)self_732752)->elements[0], r_731632, ((closureN)self_732752)->elements[2]);; 
}

static void __lambda_227(void *data, object _, int argc, object *args) /* closure _,object k_731623, object append_91dirs_73371_731006, object prepend_91dirs_73372_731007 */
 {
object k_731623 = args[0]; object append_91dirs_73371_731006 = args[1]; object prepend_91dirs_73372_731007 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:%set-import-dirs!");

closureN_type c_734511;
object e_734518 [2];
c_734511.hdr.mark = gc_color_red;
 c_734511.hdr.grayed = 0;
c_734511.tag = closureN_tag;
 c_734511.fn = (function_type)__lambda_228;
c_734511.num_args = 1;
c_734511.num_elements = 2;
c_734511.elements = (object *)e_734518;
c_734511.elements[0] = k_731623;
c_734511.elements[1] = prepend_91dirs_73372_731007;


object c_734521 = global_set_cps_id(data,(closure)&c_734511,"__glo__85append_91dirs_85_scheme_eval", __glo__85append_91dirs_85_scheme_eval, append_91dirs_73371_731006);
return_closcall1(data,(closure)&c_734511,  c_734521);; 
}

static void __lambda_228(void *data, object self_732743, int argc, object *args) /* object self_732743, object r_731624 */
 {

  
object c_734516 = global_set_cps_id(data,  ((closureN)self_732743)->elements[0],"__glo__85prepend_91dirs_85_scheme_eval", __glo__85prepend_91dirs_85_scheme_eval, ((closureN)self_732743)->elements[1]);
return_direct_with_clo1(data,  ((closureN)self_732743)->elements[0], (((closure)  ((closureN)self_732743)->elements[0])->fn),  c_734516);; 
}

static void __lambda_214(void *data, object _, int argc, object *args) /* closure _,object k_731602, object proc_73354_731003, object args_73355_731004 */
 {
object k_731602 = args[0]; object proc_73354_731003 = args[1]; object args_73355_731004 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:execute-application");

closureN_type c_734426;
object e_734505 [3];
c_734426.hdr.mark = gc_color_red;
 c_734426.hdr.grayed = 0;
c_734426.tag = closureN_tag;
 c_734426.fn = (function_type)__lambda_215;
c_734426.num_args = 1;
c_734426.num_elements = 3;
c_734426.elements = (object *)e_734505;
c_734426.elements[0] = args_73355_731004;
c_734426.elements[1] = k_731602;
c_734426.elements[2] = proc_73354_731003;


complex_num_type local_734508; 
return_direct_with_clo1(data,(closure)&c_734426,__lambda_215,  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_734508, quote_primitive, proc_73354_731003));; 
}

static void __lambda_215(void *data, object self_732731, int argc, object *args) /* object self_732731, object r_731603_732553 */
 {
 object r_731603_732553 = args[0];
  if( (boolean_f != r_731603_732553) ){ 
  return_direct_with_clo3(data,  __glo_apply_91primitive_91procedure_scheme_eval, (((closure)  __glo_apply_91primitive_91procedure_scheme_eval)->fn),  ((closureN)self_732731)->elements[1], ((closureN)self_732731)->elements[2], ((closureN)self_732731)->elements[0]);
} else { 
  
closureN_type c_734432;
object e_734500 [3];
c_734432.hdr.mark = gc_color_red;
 c_734432.hdr.grayed = 0;
c_734432.tag = closureN_tag;
 c_734432.fn = (function_type)__lambda_216;
c_734432.num_args = 1;
c_734432.num_elements = 3;
c_734432.elements = (object *)e_734500;
c_734432.elements[0] = ((closureN)self_732731)->elements[0];
c_734432.elements[1] = ((closureN)self_732731)->elements[1];
c_734432.elements[2] = ((closureN)self_732731)->elements[2];


complex_num_type local_734503; 
return_direct_with_clo1(data,(closure)&c_734432,__lambda_216,  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_734503, __glo_procedure_91tag_scheme_eval, ((closureN)self_732731)->elements[2]));}
;; 
}

static void __lambda_216(void *data, object self_732732, int argc, object *args) /* object self_732732, object r_731604_732530_732554 */
 {
 object r_731604_732530_732554 = args[0];
  if( (boolean_f != r_731604_732530_732554) ){ 
  
closureN_type c_734434;
object e_734468 [3];
c_734434.hdr.mark = gc_color_red;
 c_734434.hdr.grayed = 0;
c_734434.tag = closureN_tag;
 c_734434.fn = (function_type)__lambda_217;
c_734434.num_args = 1;
c_734434.num_elements = 3;
c_734434.elements = (object *)e_734468;
c_734434.elements[0] = ((closureN)self_732732)->elements[0];
c_734434.elements[1] = ((closureN)self_732732)->elements[1];
c_734434.elements[2] = ((closureN)self_732732)->elements[2];



return_direct_with_clo1(data,(closure)&c_734434,__lambda_217,  Cyc_caddr(data, ((closureN)self_732732)->elements[2]));
} else { 
    
if( (boolean_f != Cyc_is_procedure(data, ((closureN)self_732732)->elements[2])) ){ 
  
closureN_type c_734476;
object e_734487 [3];
c_734476.hdr.mark = gc_color_red;
 c_734476.hdr.grayed = 0;
c_734476.tag = closureN_tag;
 c_734476.fn = (function_type)__lambda_224;
c_734476.num_args = 1;
c_734476.num_elements = 3;
c_734476.elements = (object *)e_734487;
c_734476.elements[0] = ((closureN)self_732732)->elements[0];
c_734476.elements[1] = ((closureN)self_732732)->elements[1];
c_734476.elements[2] = ((closureN)self_732732)->elements[2];


mclosure0(c_734488, (function_type)__lambda_226);c_734488.num_args = 1;
return_direct_with_clo1(data,(closure)&c_734476,__lambda_224,  &c_734488);
} else { 
  
make_utf8_string_with_len(c_734498, "Unknown procedure type -- EXECUTE-APPLICATION", 45, 45);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_732732)->elements[1], &c_734498, ((closureN)self_732732)->elements[2]);}
;}
;; 
}

static void __lambda_226(void *data, object self_732740, int argc, object *args) /* object self_732740, object k_731615_732540_732564, object a_73365_731005_732541_732565 */
 {
 object k_731615_732540_732564 = args[0]; object a_73365_731005_732541_732565 = args[1];
    complex_num_type local_734491; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_734491, quote_primitive, a_73365_731005_732541_732565)) ){ 
  

return_direct_with_clo1(data,  k_731615_732540_732564, (((closure)  k_731615_732540_732564)->fn),  Cyc_cadr(data, a_73365_731005_732541_732565));
} else { 
  return_direct_with_clo1(data,  k_731615_732540_732564, (((closure)  k_731615_732540_732564)->fn),  a_73365_731005_732541_732565);}
;; 
}

static void __lambda_224(void *data, object self_732741, int argc, object *args) /* object self_732741, object r_731614_732538_732562 */
 {
 object r_731614_732538_732562 = args[0];
  
closureN_type c_734478;
object e_734485 [2];
c_734478.hdr.mark = gc_color_red;
 c_734478.hdr.grayed = 0;
c_734478.tag = closureN_tag;
 c_734478.fn = (function_type)__lambda_225;
c_734478.num_args = 1;
c_734478.num_elements = 2;
c_734478.elements = (object *)e_734485;
c_734478.elements[0] = ((closureN)self_732741)->elements[1];
c_734478.elements[1] = ((closureN)self_732741)->elements[2];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_734478, r_731614_732538_732562, ((closureN)self_732741)->elements[0]);; 
}

static void __lambda_225(void *data, object self_732742, int argc, object *args) /* object self_732742, object r_731613_732539_732563 */
 {
 object r_731613_732539_732563 = args[0];
  
object c_734483 = apply(data,  ((closureN)self_732742)->elements[0],((closureN)self_732742)->elements[1], r_731613_732539_732563);
return_direct_with_clo1(data,  ((closureN)self_732742)->elements[0], (((closure)  ((closureN)self_732742)->elements[0])->fn),  c_734483);; 
}

static void __lambda_217(void *data, object self_732733, int argc, object *args) /* object self_732733, object r_731605_732531_732555 */
 {
 object r_731605_732531_732555 = args[0];
  
closureN_type c_734436;
object e_734464 [4];
c_734436.hdr.mark = gc_color_red;
 c_734436.hdr.grayed = 0;
c_734436.tag = closureN_tag;
 c_734436.fn = (function_type)__lambda_218;
c_734436.num_args = 1;
c_734436.num_elements = 4;
c_734436.elements = (object *)e_734464;
c_734436.elements[0] = ((closureN)self_732733)->elements[0];
c_734436.elements[1] = ((closureN)self_732733)->elements[1];
c_734436.elements[2] = ((closureN)self_732733)->elements[2];
c_734436.elements[3] = r_731605_732531_732555;



return_direct_with_clo1(data,(closure)&c_734436,__lambda_218,  Cyc_cadr(data, ((closureN)self_732733)->elements[2]));; 
}

static void __lambda_218(void *data, object self_732734, int argc, object *args) /* object self_732734, object r_731611_732532_732543_732556 */
 {
 object r_731611_732532_732543_732556 = args[0];
  
closureN_type c_734438;
object e_734463 [4];
c_734438.hdr.mark = gc_color_red;
 c_734438.hdr.grayed = 0;
c_734438.tag = closureN_tag;
 c_734438.fn = (function_type)__lambda_219;
c_734438.num_args = 1;
c_734438.num_elements = 4;
c_734438.elements = (object *)e_734463;
c_734438.elements[0] = ((closureN)self_732734)->elements[0];
c_734438.elements[1] = ((closureN)self_732734)->elements[1];
c_734438.elements[2] = ((closureN)self_732734)->elements[2];
c_734438.elements[3] = ((closureN)self_732734)->elements[3];

return_direct_with_clo2(data,  __glo_formals_91_125list_scheme_cyclone_util, (((closure)  __glo_formals_91_125list_scheme_cyclone_util)->fn),  &c_734438, r_731611_732532_732543_732556);; 
}

static void __lambda_219(void *data, object self_732735, int argc, object *args) /* object self_732735, object r_731607_732533_732544_732557 */
 {
 object r_731607_732533_732544_732557 = args[0];
  
closureN_type c_734440;
object e_734459 [5];
c_734440.hdr.mark = gc_color_red;
 c_734440.hdr.grayed = 0;
c_734440.tag = closureN_tag;
 c_734440.fn = (function_type)__lambda_220;
c_734440.num_args = 1;
c_734440.num_elements = 5;
c_734440.elements = (object *)e_734459;
c_734440.elements[0] = ((closureN)self_732735)->elements[0];
c_734440.elements[1] = ((closureN)self_732735)->elements[1];
c_734440.elements[2] = ((closureN)self_732735)->elements[2];
c_734440.elements[3] = ((closureN)self_732735)->elements[3];
c_734440.elements[4] = r_731607_732533_732544_732557;



return_direct_with_clo1(data,(closure)&c_734440,__lambda_220,  Cyc_cadr(data, ((closureN)self_732735)->elements[2]));; 
}

static void __lambda_220(void *data, object self_732736, int argc, object *args) /* object self_732736, object r_731610_732534_732545_732549_732558 */
 {
 object r_731610_732534_732545_732549_732558 = args[0];
  
closureN_type c_734442;
object e_734457 [4];
c_734442.hdr.mark = gc_color_red;
 c_734442.hdr.grayed = 0;
c_734442.tag = closureN_tag;
 c_734442.fn = (function_type)__lambda_221;
c_734442.num_args = 1;
c_734442.num_elements = 4;
c_734442.elements = (object *)e_734457;
c_734442.elements[0] = ((closureN)self_732736)->elements[1];
c_734442.elements[1] = ((closureN)self_732736)->elements[2];
c_734442.elements[2] = ((closureN)self_732736)->elements[3];
c_734442.elements[3] = ((closureN)self_732736)->elements[4];

return_direct_with_clo3(data,  __glo_pack_91lambda_91arguments_scheme_cyclone_util, (((closure)  __glo_pack_91lambda_91arguments_scheme_cyclone_util)->fn),  &c_734442, r_731610_732534_732545_732549_732558, ((closureN)self_732736)->elements[0]);; 
}

static void __lambda_221(void *data, object self_732737, int argc, object *args) /* object self_732737, object r_731608_732535_732546_732550_732559 */
 {
 object r_731608_732535_732546_732550_732559 = args[0];
  
closureN_type c_734444;
object e_734453 [4];
c_734444.hdr.mark = gc_color_red;
 c_734444.hdr.grayed = 0;
c_734444.tag = closureN_tag;
 c_734444.fn = (function_type)__lambda_222;
c_734444.num_args = 1;
c_734444.num_elements = 4;
c_734444.elements = (object *)e_734453;
c_734444.elements[0] = ((closureN)self_732737)->elements[0];
c_734444.elements[1] = ((closureN)self_732737)->elements[2];
c_734444.elements[2] = ((closureN)self_732737)->elements[3];
c_734444.elements[3] = r_731608_732535_732546_732550_732559;



return_direct_with_clo1(data,(closure)&c_734444,__lambda_222,  Cyc_cadddr(data, ((closureN)self_732737)->elements[1]));; 
}

static void __lambda_222(void *data, object self_732738, int argc, object *args) /* object self_732738, object r_731609_732536_732547_732551_732560 */
 {
 object r_731609_732536_732547_732551_732560 = args[0];
  
closureN_type c_734446;
object e_734450 [2];
c_734446.hdr.mark = gc_color_red;
 c_734446.hdr.grayed = 0;
c_734446.tag = closureN_tag;
 c_734446.fn = (function_type)__lambda_223;
c_734446.num_args = 1;
c_734446.num_elements = 2;
c_734446.elements = (object *)e_734450;
c_734446.elements[0] = ((closureN)self_732738)->elements[0];
c_734446.elements[1] = ((closureN)self_732738)->elements[1];

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_734446, ((closureN)self_732738)->elements[2], ((closureN)self_732738)->elements[3], r_731609_732536_732547_732551_732560);; 
}

static void __lambda_223(void *data, object self_732739, int argc, object *args) /* object self_732739, object r_731606_732537_732548_732552_732561 */
 {
 object r_731606_732537_732548_732552_732561 = args[0];
  return_closcall2(data,  ((closureN)self_732739)->elements[1],  ((closureN)self_732739)->elements[0], r_731606_732537_732548_732552_732561);; 
}

static void __lambda_203(void *data, object _, int argc, object *args) /* closure _,object k_731588, object exp_73345_73994, object a_91env_73346_73995, object rename_91env_73347_73996, object local_91renamed_73348_73997 */
 {
object k_731588 = args[0]; object exp_73345_73994 = args[1]; object a_91env_73346_73995 = args[2]; object rename_91env_73347_73996 = args[3]; object local_91renamed_73348_73997 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:analyze-application");

closureN_type c_734379;
object e_734421 [5];
c_734379.hdr.mark = gc_color_red;
 c_734379.hdr.grayed = 0;
c_734379.tag = closureN_tag;
 c_734379.fn = (function_type)__lambda_204;
c_734379.num_args = 1;
c_734379.num_elements = 5;
c_734379.elements = (object *)e_734421;
c_734379.elements[0] = a_91env_73346_73995;
c_734379.elements[1] = exp_73345_73994;
c_734379.elements[2] = k_731588;
c_734379.elements[3] = local_91renamed_73348_73997;
c_734379.elements[4] = rename_91env_73347_73996;



return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  &c_734379, Cyc_car(data, exp_73345_73994), a_91env_73346_73995, rename_91env_73347_73996, local_91renamed_73348_73997);; 
}

static void __lambda_204(void *data, object self_732721, int argc, object *args) /* object self_732721, object r_731589_732516 */
 {
 object r_731589_732516 = args[0];
  
closureN_type c_734381;
object e_734414 [3];
c_734381.hdr.mark = gc_color_red;
 c_734381.hdr.grayed = 0;
c_734381.tag = closureN_tag;
 c_734381.fn = (function_type)__lambda_205;
c_734381.num_args = 1;
c_734381.num_elements = 3;
c_734381.elements = (object *)e_734414;
c_734381.elements[0] = ((closureN)self_732721)->elements[1];
c_734381.elements[1] = ((closureN)self_732721)->elements[2];
c_734381.elements[2] = r_731589_732516;


closureN_type c_734415;
object e_734420 [3];
c_734415.hdr.mark = gc_color_red;
 c_734415.hdr.grayed = 0;
c_734415.tag = closureN_tag;
 c_734415.fn = (function_type)__lambda_213;
c_734415.num_args = 1;
c_734415.num_elements = 3;
c_734415.elements = (object *)e_734420;
c_734415.elements[0] = ((closureN)self_732721)->elements[0];
c_734415.elements[1] = ((closureN)self_732721)->elements[3];
c_734415.elements[2] = ((closureN)self_732721)->elements[4];

return_direct_with_clo1(data,(closure)&c_734381,__lambda_205,  &c_734415);; 
}

static void __lambda_213(void *data, object self_732722, int argc, object *args) /* object self_732722, object k_731598_732528, object o_73353_731002_732529 */
 {
 object k_731598_732528 = args[0]; object o_73353_731002_732529 = args[1];
  return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  k_731598_732528, o_73353_731002_732529, ((closureN)self_732722)->elements[0], ((closureN)self_732722)->elements[2], ((closureN)self_732722)->elements[1]);; 
}

static void __lambda_205(void *data, object self_732723, int argc, object *args) /* object self_732723, object r_731596_732517 */
 {
 object r_731596_732517 = args[0];
  
closureN_type c_734383;
object e_734410 [2];
c_734383.hdr.mark = gc_color_red;
 c_734383.hdr.grayed = 0;
c_734383.tag = closureN_tag;
 c_734383.fn = (function_type)__lambda_206;
c_734383.num_args = 1;
c_734383.num_elements = 2;
c_734383.elements = (object *)e_734410;
c_734383.elements[0] = ((closureN)self_732723)->elements[1];
c_734383.elements[1] = ((closureN)self_732723)->elements[2];



return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_734383, r_731596_732517, Cyc_cdr(data, ((closureN)self_732723)->elements[0]));; 
}

static void __lambda_206(void *data, object self_732724, int argc, object *args) /* object self_732724, object r_731590_732518 */
 {
 object r_731590_732518 = args[0];
  
closureN_type c_734385;
object e_734408 [1];
c_734385.hdr.mark = gc_color_red;
 c_734385.hdr.grayed = 0;
c_734385.tag = closureN_tag;
 c_734385.fn = (function_type)__lambda_207;
c_734385.num_args = 2;
c_734385.num_elements = 1;
c_734385.elements = (object *)e_734408;
c_734385.elements[0] = ((closureN)self_732724)->elements[0];

return_direct_with_clo2(data,(closure)&c_734385,__lambda_207,  ((closureN)self_732724)->elements[1], r_731590_732518);; 
}

static void __lambda_207(void *data, object self_732725, int argc, object *args) /* object self_732725, object fproc_73349_73998_732519, object aprocs_73350_73999_732520 */
 {
 object fproc_73349_73998_732519 = args[0]; object aprocs_73350_73999_732520 = args[1];
  
closureN_type c_734388;
object e_734407 [2];
c_734388.hdr.mark = gc_color_red;
 c_734388.hdr.grayed = 0;
c_734388.tag = closureN_tag;
 c_734388.fn = (function_type)__lambda_208;
c_734388.num_args = 1;
c_734388.num_elements = 2;
c_734388.elements = (object *)e_734407;
c_734388.elements[0] = aprocs_73350_73999_732520;
c_734388.elements[1] = fproc_73349_73998_732519;

return_direct_with_clo1(data,  ((closureN)self_732725)->elements[0], (((closure)  ((closureN)self_732725)->elements[0])->fn),  &c_734388);; 
}

static void __lambda_208(void *data, object self_732726, int argc, object *args) /* object self_732726, object k_731591_732521, object env_73351_731000_732522 */
 {
 object k_731591_732521 = args[0]; object env_73351_731000_732522 = args[1];
  
closureN_type c_734391;
object e_734406 [3];
c_734391.hdr.mark = gc_color_red;
 c_734391.hdr.grayed = 0;
c_734391.tag = closureN_tag;
 c_734391.fn = (function_type)__lambda_209;
c_734391.num_args = 1;
c_734391.num_elements = 3;
c_734391.elements = (object *)e_734406;
c_734391.elements[0] = ((closureN)self_732726)->elements[0];
c_734391.elements[1] = env_73351_731000_732522;
c_734391.elements[2] = k_731591_732521;

return_closcall2(data,  ((closureN)self_732726)->elements[1],  &c_734391, env_73351_731000_732522);; 
}

static void __lambda_209(void *data, object self_732727, int argc, object *args) /* object self_732727, object r_731592_732523 */
 {
 object r_731592_732523 = args[0];
  
closureN_type c_734393;
object e_734401 [3];
c_734393.hdr.mark = gc_color_red;
 c_734393.hdr.grayed = 0;
c_734393.tag = closureN_tag;
 c_734393.fn = (function_type)__lambda_210;
c_734393.num_args = 1;
c_734393.num_elements = 3;
c_734393.elements = (object *)e_734401;
c_734393.elements[0] = ((closureN)self_732727)->elements[0];
c_734393.elements[1] = ((closureN)self_732727)->elements[2];
c_734393.elements[2] = r_731592_732523;


closureN_type c_734402;
object e_734405 [1];
c_734402.hdr.mark = gc_color_red;
 c_734402.hdr.grayed = 0;
c_734402.tag = closureN_tag;
 c_734402.fn = (function_type)__lambda_212;
c_734402.num_args = 1;
c_734402.num_elements = 1;
c_734402.elements = (object *)e_734405;
c_734402.elements[0] = ((closureN)self_732727)->elements[1];

return_direct_with_clo1(data,(closure)&c_734393,__lambda_210,  &c_734402);; 
}

static void __lambda_212(void *data, object self_732728, int argc, object *args) /* object self_732728, object k_731595_732526, object aproc_73352_731001_732527 */
 {
 object k_731595_732526 = args[0]; object aproc_73352_731001_732527 = args[1];
  return_closcall2(data,  aproc_73352_731001_732527,  k_731595_732526, ((closureN)self_732728)->elements[0]);; 
}

static void __lambda_210(void *data, object self_732729, int argc, object *args) /* object self_732729, object r_731594_732524 */
 {
 object r_731594_732524 = args[0];
  
closureN_type c_734395;
object e_734399 [2];
c_734395.hdr.mark = gc_color_red;
 c_734395.hdr.grayed = 0;
c_734395.tag = closureN_tag;
 c_734395.fn = (function_type)__lambda_211;
c_734395.num_args = 1;
c_734395.num_elements = 2;
c_734395.elements = (object *)e_734399;
c_734395.elements[0] = ((closureN)self_732729)->elements[1];
c_734395.elements[1] = ((closureN)self_732729)->elements[2];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_734395, r_731594_732524, ((closureN)self_732729)->elements[0]);; 
}

static void __lambda_211(void *data, object self_732730, int argc, object *args) /* object self_732730, object r_731593_732525 */
 {
 object r_731593_732525 = args[0];
  return_direct_with_clo3(data,  __glo_execute_91application_scheme_eval, (((closure)  __glo_execute_91application_scheme_eval)->fn),  ((closureN)self_732730)->elements[0], ((closureN)self_732730)->elements[1], r_731593_732525);; 
}

static void __lambda_185(void *data, object _, int argc, object *args) /* closure _,object k_731555, object exp_73297_73976, object a_91env_73298_73977, object rename_91env_73299_73978, object local_91renamed_73300_73979 */
 {
object k_731555 = args[0]; object exp_73297_73976 = args[1]; object a_91env_73298_73977 = args[2]; object rename_91env_73299_73978 = args[3]; object local_91renamed_73300_73979 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:pre-analyze-application");

closureN_type c_734252;
object e_734374 [5];
c_734252.hdr.mark = gc_color_red;
 c_734252.hdr.grayed = 0;
c_734252.tag = closureN_tag;
 c_734252.fn = (function_type)__lambda_186;
c_734252.num_args = 1;
c_734252.num_elements = 5;
c_734252.elements = (object *)e_734374;
c_734252.elements[0] = a_91env_73298_73977;
c_734252.elements[1] = exp_73297_73976;
c_734252.elements[2] = k_731555;
c_734252.elements[3] = local_91renamed_73300_73979;
c_734252.elements[4] = rename_91env_73299_73978;



return_direct_with_clo1(data,(closure)&c_734252,__lambda_186,  Cyc_car(data, exp_73297_73976));; 
}

static void __lambda_186(void *data, object self_732704, int argc, object *args) /* object self_732704, object op_73303_73980_732487 */
 {
 object op_73303_73980_732487 = args[0];
  
closureN_type c_734254;
object e_734268 [2];
c_734254.hdr.mark = gc_color_red;
 c_734254.hdr.grayed = 0;
c_734254.tag = closureN_tag;
 c_734254.fn = (function_type)__lambda_187;
c_734254.num_args = 0;
c_734254.num_elements = 2;
c_734254.elements = (object *)e_734268;
c_734254.elements[0] = ((closureN)self_732704)->elements[0];
c_734254.elements[1] = op_73303_73980_732487;


closureN_type c_734269;
object e_734373 [6];
c_734269.hdr.mark = gc_color_red;
 c_734269.hdr.grayed = 0;
c_734269.tag = closureN_tag;
 c_734269.fn = (function_type)__lambda_190;
c_734269.num_args = 1;
c_734269.num_elements = 6;
c_734269.elements = (object *)e_734373;
c_734269.elements[0] = ((closureN)self_732704)->elements[0];
c_734269.elements[1] = ((closureN)self_732704)->elements[1];
c_734269.elements[2] = ((closureN)self_732704)->elements[2];
c_734269.elements[3] = ((closureN)self_732704)->elements[3];
c_734269.elements[4] = op_73303_73980_732487;
c_734269.elements[5] = ((closureN)self_732704)->elements[4];

return_direct_with_clo1(data,(closure)&c_734254,__lambda_187,  &c_734269);; 
}

static void __lambda_190(void *data, object self_732705, int argc, object *args) /* object self_732705, object var_73306_73981_732491 */
 {
 object var_73306_73981_732491 = args[0];
  
closureN_type c_734271;
object e_734336 [7];
c_734271.hdr.mark = gc_color_red;
 c_734271.hdr.grayed = 0;
c_734271.tag = closureN_tag;
 c_734271.fn = (function_type)__lambda_191;
c_734271.num_args = 1;
c_734271.num_elements = 7;
c_734271.elements = (object *)e_734336;
c_734271.elements[0] = ((closureN)self_732705)->elements[0];
c_734271.elements[1] = ((closureN)self_732705)->elements[1];
c_734271.elements[2] = ((closureN)self_732705)->elements[2];
c_734271.elements[3] = ((closureN)self_732705)->elements[3];
c_734271.elements[4] = ((closureN)self_732705)->elements[4];
c_734271.elements[5] = ((closureN)self_732705)->elements[5];
c_734271.elements[6] = var_73306_73981_732491;


closureN_type c_734337;
object e_734372 [4];
c_734337.hdr.mark = gc_color_red;
 c_734337.hdr.grayed = 0;
c_734337.tag = closureN_tag;
 c_734337.fn = (function_type)__lambda_198;
c_734337.num_args = 1;
c_734337.num_elements = 4;
c_734337.elements = (object *)e_734372;
c_734337.elements[0] = ((closureN)self_732705)->elements[0];
c_734337.elements[1] = ((closureN)self_732705)->elements[1];
c_734337.elements[2] = ((closureN)self_732705)->elements[3];
c_734337.elements[3] = ((closureN)self_732705)->elements[5];

return_direct_with_clo1(data,(closure)&c_734271,__lambda_191,  &c_734337);; 
}

static void __lambda_198(void *data, object self_732706, int argc, object *args) /* object self_732706, object k_731574_732506, object macro_91op_73330_73989_732507 */
 {
 object k_731574_732506 = args[0]; object macro_91op_73330_73989_732507 = args[1];
    
if( (boolean_f != Cyc_is_macro(macro_91op_73330_73989_732507)) ){ 
  
closureN_type c_734341;
object e_734351 [4];
c_734341.hdr.mark = gc_color_red;
 c_734341.hdr.grayed = 0;
c_734341.tag = closureN_tag;
 c_734341.fn = (function_type)__lambda_199;
c_734341.num_args = 1;
c_734341.num_elements = 4;
c_734341.elements = (object *)e_734351;
c_734341.elements[0] = ((closureN)self_732706)->elements[0];
c_734341.elements[1] = k_731574_732506;
c_734341.elements[2] = ((closureN)self_732706)->elements[2];
c_734341.elements[3] = ((closureN)self_732706)->elements[3];

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_734341, ((closureN)self_732706)->elements[1], ((closureN)self_732706)->elements[0], ((closureN)self_732706)->elements[3], NULL, ((closureN)self_732706)->elements[2]);
} else { 
  
closureN_type c_734357;
object e_734367 [4];
c_734357.hdr.mark = gc_color_red;
 c_734357.hdr.grayed = 0;
c_734357.tag = closureN_tag;
 c_734357.fn = (function_type)__lambda_201;
c_734357.num_args = 1;
c_734357.num_elements = 4;
c_734357.elements = (object *)e_734367;
c_734357.elements[0] = ((closureN)self_732706)->elements[0];
c_734357.elements[1] = k_731574_732506;
c_734357.elements[2] = ((closureN)self_732706)->elements[2];
c_734357.elements[3] = ((closureN)self_732706)->elements[3];

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_734357, ((closureN)self_732706)->elements[1], ((closureN)self_732706)->elements[0], ((closureN)self_732706)->elements[3], NULL, ((closureN)self_732706)->elements[2]);}
;; 
}

static void __lambda_201(void *data, object self_732709, int argc, object *args) /* object self_732709, object expanded_73340_73992_732510 */
 {
 object expanded_73340_73992_732510 = args[0];
  
closureN_type c_734359;
object e_734365 [4];
c_734359.hdr.mark = gc_color_red;
 c_734359.hdr.grayed = 0;
c_734359.tag = closureN_tag;
 c_734359.fn = (function_type)__lambda_202;
c_734359.num_args = 1;
c_734359.num_elements = 4;
c_734359.elements = (object *)e_734365;
c_734359.elements[0] = ((closureN)self_732709)->elements[0];
c_734359.elements[1] = ((closureN)self_732709)->elements[1];
c_734359.elements[2] = ((closureN)self_732709)->elements[2];
c_734359.elements[3] = ((closureN)self_732709)->elements[3];

return_direct_with_clo3(data,  __glo_macro_117cleanup_scheme_eval, (((closure)  __glo_macro_117cleanup_scheme_eval)->fn),  &c_734359, expanded_73340_73992_732510, ((closureN)self_732709)->elements[3]);; 
}

static void __lambda_202(void *data, object self_732710, int argc, object *args) /* object self_732710, object cleaned_73343_73993_732511 */
 {
 object cleaned_73343_73993_732511 = args[0];
  return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  ((closureN)self_732710)->elements[1], cleaned_73343_73993_732511, ((closureN)self_732710)->elements[0], ((closureN)self_732710)->elements[3], ((closureN)self_732710)->elements[2]);; 
}

static void __lambda_199(void *data, object self_732707, int argc, object *args) /* object self_732707, object expanded_73333_73990_732508 */
 {
 object expanded_73333_73990_732508 = args[0];
  
closureN_type c_734343;
object e_734349 [4];
c_734343.hdr.mark = gc_color_red;
 c_734343.hdr.grayed = 0;
c_734343.tag = closureN_tag;
 c_734343.fn = (function_type)__lambda_200;
c_734343.num_args = 1;
c_734343.num_elements = 4;
c_734343.elements = (object *)e_734349;
c_734343.elements[0] = ((closureN)self_732707)->elements[0];
c_734343.elements[1] = ((closureN)self_732707)->elements[1];
c_734343.elements[2] = ((closureN)self_732707)->elements[2];
c_734343.elements[3] = ((closureN)self_732707)->elements[3];

return_direct_with_clo3(data,  __glo_macro_117cleanup_scheme_eval, (((closure)  __glo_macro_117cleanup_scheme_eval)->fn),  &c_734343, expanded_73333_73990_732508, ((closureN)self_732707)->elements[3]);; 
}

static void __lambda_200(void *data, object self_732708, int argc, object *args) /* object self_732708, object cleaned_73336_73991_732509 */
 {
 object cleaned_73336_73991_732509 = args[0];
  return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  ((closureN)self_732708)->elements[1], cleaned_73336_73991_732509, ((closureN)self_732708)->elements[0], ((closureN)self_732708)->elements[3], ((closureN)self_732708)->elements[2]);; 
}

static void __lambda_191(void *data, object self_732711, int argc, object *args) /* object self_732711, object expand_73309_73982_732492 */
 {
 object expand_73309_73982_732492 = args[0];
    
if( (boolean_f != Cyc_eq(quote_begin, ((closureN)self_732711)->elements[4])) ){ 
  
closureN_type c_734276;
object e_734297 [2];
c_734276.hdr.mark = gc_color_red;
 c_734276.hdr.grayed = 0;
c_734276.tag = closureN_tag;
 c_734276.fn = (function_type)__lambda_192;
c_734276.num_args = 1;
c_734276.num_elements = 2;
c_734276.elements = (object *)e_734297;
c_734276.elements[0] = ((closureN)self_732711)->elements[1];
c_734276.elements[1] = ((closureN)self_732711)->elements[2];


closureN_type c_734298;
object e_734303 [3];
c_734298.hdr.mark = gc_color_red;
 c_734298.hdr.grayed = 0;
c_734298.tag = closureN_tag;
 c_734298.fn = (function_type)__lambda_197;
c_734298.num_args = 1;
c_734298.num_elements = 3;
c_734298.elements = (object *)e_734303;
c_734298.elements[0] = ((closureN)self_732711)->elements[0];
c_734298.elements[1] = ((closureN)self_732711)->elements[3];
c_734298.elements[2] = ((closureN)self_732711)->elements[5];

return_direct_with_clo1(data,(closure)&c_734276,__lambda_192,  &c_734298);
} else { 
    
if( (boolean_f != Cyc_is_macro(((closureN)self_732711)->elements[6])) ){ 
  return_direct_with_clo2(data,  expand_73309_73982_732492,__lambda_198,  ((closureN)self_732711)->elements[2], ((closureN)self_732711)->elements[6]);
} else { 
    complex_num_type local_734312; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_734312, __glo_macro_91tag_scheme_eval, ((closureN)self_732711)->elements[6])) ){ 
  



return_direct_with_clo2(data,  expand_73309_73982_732492,__lambda_198,  ((closureN)self_732711)->elements[2], Cyc_get_cvar(Cyc_cadr(data, ((closureN)self_732711)->elements[6])));
} else { 
    complex_num_type local_734323; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_734323, __glo_macro_91tag_scheme_eval, ((closureN)self_732711)->elements[4])) ){ 
  

return_direct_with_clo2(data,  expand_73309_73982_732492,__lambda_198,  ((closureN)self_732711)->elements[2], Cyc_cdr(data, ((closureN)self_732711)->elements[4]));
} else { 
  return_direct_with_clo5(data,  __glo_analyze_91application_scheme_eval, (((closure)  __glo_analyze_91application_scheme_eval)->fn),  ((closureN)self_732711)->elements[2], ((closureN)self_732711)->elements[1], ((closureN)self_732711)->elements[0], ((closureN)self_732711)->elements[5], ((closureN)self_732711)->elements[3]);}
;}
;}
;}
;; 
}

static void __lambda_197(void *data, object self_732712, int argc, object *args) /* object self_732712, object k_731566_732502, object expr_73318_73987_732503 */
 {
 object k_731566_732502 = args[0]; object expr_73318_73987_732503 = args[1];
  return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  k_731566_732502, expr_73318_73987_732503, ((closureN)self_732712)->elements[0], ((closureN)self_732712)->elements[2], ((closureN)self_732712)->elements[1]);; 
}

static void __lambda_192(void *data, object self_732713, int argc, object *args) /* object self_732713, object r_731564_732494 */
 {
 object r_731564_732494 = args[0];
  
closureN_type c_734278;
object e_734293 [1];
c_734278.hdr.mark = gc_color_red;
 c_734278.hdr.grayed = 0;
c_734278.tag = closureN_tag;
 c_734278.fn = (function_type)__lambda_193;
c_734278.num_args = 1;
c_734278.num_elements = 1;
c_734278.elements = (object *)e_734293;
c_734278.elements[0] = ((closureN)self_732713)->elements[1];



return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_734278, r_731564_732494, Cyc_cdr(data, ((closureN)self_732713)->elements[0]));; 
}

static void __lambda_193(void *data, object self_732714, int argc, object *args) /* object self_732714, object fncs_73314_73983_732495 */
 {
 object fncs_73314_73983_732495 = args[0];
  
closureN_type c_734281;
object e_734292 [1];
c_734281.hdr.mark = gc_color_red;
 c_734281.hdr.grayed = 0;
c_734281.tag = closureN_tag;
 c_734281.fn = (function_type)__lambda_194;
c_734281.num_args = 1;
c_734281.num_elements = 1;
c_734281.elements = (object *)e_734292;
c_734281.elements[0] = fncs_73314_73983_732495;

return_direct_with_clo1(data,  ((closureN)self_732714)->elements[0], (((closure)  ((closureN)self_732714)->elements[0])->fn),  &c_734281);; 
}

static void __lambda_194(void *data, object self_732715, int argc, object *args) /* object self_732715, object k_731561_732496, object env_73315_73984_732497 */
 {
 object k_731561_732496 = args[0]; object env_73315_73984_732497 = args[1];
  
closureN_type c_734283;
object e_734287 [2];
c_734283.hdr.mark = gc_color_red;
 c_734283.hdr.grayed = 0;
c_734283.tag = closureN_tag;
 c_734283.fn = (function_type)__lambda_195;
c_734283.num_args = 1;
c_734283.num_elements = 2;
c_734283.elements = (object *)e_734287;
c_734283.elements[0] = ((closureN)self_732715)->elements[0];
c_734283.elements[1] = k_731561_732496;


closureN_type c_734288;
object e_734291 [1];
c_734288.hdr.mark = gc_color_red;
 c_734288.hdr.grayed = 0;
c_734288.tag = closureN_tag;
 c_734288.fn = (function_type)__lambda_196;
c_734288.num_args = 2;
c_734288.num_elements = 1;
c_734288.elements = (object *)e_734291;
c_734288.elements[0] = env_73315_73984_732497;

return_direct_with_clo1(data,(closure)&c_734283,__lambda_195,  &c_734288);; 
}

static void __lambda_196(void *data, object self_732716, int argc, object *args) /* object self_732716, object k_731563_732499, object fnc_73316_73985_732500, object _191_73317_73986_732501 */
 {
 object k_731563_732499 = args[0]; object fnc_73316_73985_732500 = args[1];
  return_closcall2(data,  fnc_73316_73985_732500,  k_731563_732499, ((closureN)self_732716)->elements[0]);; 
}

static void __lambda_195(void *data, object self_732717, int argc, object *args) /* object self_732717, object r_731562_732498 */
 {
 object r_731562_732498 = args[0];
  return_direct_with_clo4(data,  __glo_foldl_scheme_base, (((closure)  __glo_foldl_scheme_base)->fn),  ((closureN)self_732717)->elements[1], r_731562_732498, boolean_f, ((closureN)self_732717)->elements[0]);; 
}

static void __lambda_187(void *data, object self_732718, int argc, object *args) /* object self_732718, object k_731582_732488 */
 {
 object k_731582_732488 = args[0];
    
if( (boolean_f != Cyc_is_symbol(((closureN)self_732718)->elements[1])) ){ 
  
closureN_type c_734259;
object e_734264 [3];
c_734259.hdr.mark = gc_color_red;
 c_734259.hdr.grayed = 0;
c_734259.tag = closureN_tag;
 c_734259.fn = (function_type)__lambda_188;
c_734259.num_args = 1;
c_734259.num_elements = 3;
c_734259.elements = (object *)e_734264;
c_734259.elements[0] = ((closureN)self_732718)->elements[0];
c_734259.elements[1] = k_731582_732488;
c_734259.elements[2] = ((closureN)self_732718)->elements[1];


mclosure0(c_734265, (function_type)__lambda_189);c_734265.num_args = 0;
return_direct_with_clo1(data,(closure)&c_734259,__lambda_188,  &c_734265);
} else { 
  return_direct_with_clo1(data,  k_731582_732488, (((closure)  k_731582_732488)->fn),  boolean_f);}
;; 
}

static void __lambda_189(void *data, object self_732719, int argc, object *args) /* object self_732719, object k_731585_732490 */
 {
 object k_731585_732490 = args[0];
  return_direct_with_clo1(data,  k_731585_732490, (((closure)  k_731585_732490)->fn),  boolean_f);; 
}

static void __lambda_188(void *data, object self_732720, int argc, object *args) /* object self_732720, object r_731584_732489 */
 {
 object r_731584_732489 = args[0];
  return_direct_with_clo4(data,  __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util, (((closure)  __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util)->fn),  ((closureN)self_732720)->elements[1], ((closureN)self_732720)->elements[2], ((closureN)self_732720)->elements[0], r_731584_732489);; 
}

static void __lambda_169(void *data, object _, int argc, object *args) /* closure _,object k_731532, object exps_73286_73959, object a_91env_73287_73960, object rename_91env_73288_73961, object local_91renamed_73289_73962 */
 {
object k_731532 = args[0]; object exps_73286_73959 = args[1]; object a_91env_73287_73960 = args[2]; object rename_91env_73288_73961 = args[3]; object local_91renamed_73289_73962 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:analyze-sequence");

closureN_type c_734149;
object e_734249 [5];
c_734149.hdr.mark = gc_color_red;
 c_734149.hdr.grayed = 0;
c_734149.tag = closureN_tag;
 c_734149.fn = (function_type)__lambda_170;
c_734149.num_args = 2;
c_734149.num_elements = 5;
c_734149.elements = (object *)e_734249;
c_734149.elements[0] = a_91env_73287_73960;
c_734149.elements[1] = exps_73286_73959;
c_734149.elements[2] = k_731532;
c_734149.elements[3] = local_91renamed_73289_73962;
c_734149.elements[4] = rename_91env_73288_73961;

return_direct_with_clo2(data,(closure)&c_734149,__lambda_170,  boolean_f, boolean_f);; 
}

static void __lambda_170(void *data, object self_732687, int argc, object *args) /* object self_732687, object loop_73965, object sequentially_73966 */
 {
 object loop_73965 = args[0]; object sequentially_73966 = args[1];
  
closureN_type c_734151;
object e_734245 [6];
c_734151.hdr.mark = gc_color_red;
 c_734151.hdr.grayed = 0;
c_734151.tag = closureN_tag;
 c_734151.fn = (function_type)__lambda_524;
c_734151.num_args = 1;
c_734151.num_elements = 6;
c_734151.elements = (object *)e_734245;
c_734151.elements[0] = ((closureN)self_732687)->elements[0];
c_734151.elements[1] = ((closureN)self_732687)->elements[1];
c_734151.elements[2] = ((closureN)self_732687)->elements[2];
c_734151.elements[3] = ((closureN)self_732687)->elements[3];
c_734151.elements[4] = ((closureN)self_732687)->elements[4];
c_734151.elements[5] = sequentially_73966;


pair_type local_734248; 
return_direct_with_clo1(data,(closure)&c_734151,__lambda_524,  set_cell_as_expr(&local_734248, loop_73965));; 
}

static void __lambda_524(void *data, object self_732688, int argc, object *args) /* object self_732688, object loop_73965 */
 {
 object loop_73965 = args[0];
  
closureN_type c_734153;
object e_734240 [6];
c_734153.hdr.mark = gc_color_red;
 c_734153.hdr.grayed = 0;
c_734153.tag = closureN_tag;
 c_734153.fn = (function_type)__lambda_523;
c_734153.num_args = 1;
c_734153.num_elements = 6;
c_734153.elements = (object *)e_734240;
c_734153.elements[0] = ((closureN)self_732688)->elements[0];
c_734153.elements[1] = ((closureN)self_732688)->elements[1];
c_734153.elements[2] = ((closureN)self_732688)->elements[2];
c_734153.elements[3] = ((closureN)self_732688)->elements[3];
c_734153.elements[4] = loop_73965;
c_734153.elements[5] = ((closureN)self_732688)->elements[4];


pair_type local_734243; 
return_direct_with_clo1(data,(closure)&c_734153,__lambda_523,  set_cell_as_expr(&local_734243, ((closureN)self_732688)->elements[5]));; 
}

static void __lambda_523(void *data, object self_732689, int argc, object *args) /* object self_732689, object sequentially_73966 */
 {
 object sequentially_73966 = args[0];
  
closureN_type c_734155;
object e_734227 [7];
c_734155.hdr.mark = gc_color_red;
 c_734155.hdr.grayed = 0;
c_734155.tag = closureN_tag;
 c_734155.fn = (function_type)__lambda_171;
c_734155.num_args = 1;
c_734155.num_elements = 7;
c_734155.elements = (object *)e_734227;
c_734155.elements[0] = ((closureN)self_732689)->elements[0];
c_734155.elements[1] = ((closureN)self_732689)->elements[1];
c_734155.elements[2] = ((closureN)self_732689)->elements[2];
c_734155.elements[3] = ((closureN)self_732689)->elements[3];
c_734155.elements[4] = ((closureN)self_732689)->elements[4];
c_734155.elements[5] = ((closureN)self_732689)->elements[5];
c_734155.elements[6] = sequentially_73966;


mclosure0(c_734228, (function_type)__lambda_182);c_734228.num_args = 2;
return_direct_with_clo1(data,(closure)&c_734155,__lambda_171,  &c_734228);; 
}

static void __lambda_182(void *data, object self_732690, int argc, object *args) /* object self_732690, object k_731550, object proc1_73290_73969, object proc2_73291_73970 */
 {
 object k_731550 = args[0]; object proc1_73290_73969 = args[1]; object proc2_73291_73970 = args[2];
  
closureN_type c_734230;
object e_734239 [2];
c_734230.hdr.mark = gc_color_red;
 c_734230.hdr.grayed = 0;
c_734230.tag = closureN_tag;
 c_734230.fn = (function_type)__lambda_183;
c_734230.num_args = 1;
c_734230.num_elements = 2;
c_734230.elements = (object *)e_734239;
c_734230.elements[0] = proc1_73290_73969;
c_734230.elements[1] = proc2_73291_73970;

return_direct_with_clo1(data,  k_731550, (((closure)  k_731550)->fn),  &c_734230);; 
}

static void __lambda_183(void *data, object self_732691, int argc, object *args) /* object self_732691, object k_731551, object env_73292_73971 */
 {
 object k_731551 = args[0]; object env_73292_73971 = args[1];
  
closureN_type c_734233;
object e_734238 [3];
c_734233.hdr.mark = gc_color_red;
 c_734233.hdr.grayed = 0;
c_734233.tag = closureN_tag;
 c_734233.fn = (function_type)__lambda_184;
c_734233.num_args = 1;
c_734233.num_elements = 3;
c_734233.elements = (object *)e_734238;
c_734233.elements[0] = env_73292_73971;
c_734233.elements[1] = k_731551;
c_734233.elements[2] = ((closureN)self_732691)->elements[1];

return_closcall2(data,  ((closureN)self_732691)->elements[0],  &c_734233, env_73292_73971);; 
}

static void __lambda_184(void *data, object self_732692, int argc, object *args) /* object self_732692, object r_731552 */
 {

  return_closcall2(data,  ((closureN)self_732692)->elements[2],  ((closureN)self_732692)->elements[1], ((closureN)self_732692)->elements[0]);; 
}

static void __lambda_171(void *data, object self_732693, int argc, object *args) /* object self_732693, object r_731549 */
 {
 object r_731549 = args[0];
  
closureN_type c_734157;
object e_734223 [7];
c_734157.hdr.mark = gc_color_red;
 c_734157.hdr.grayed = 0;
c_734157.tag = closureN_tag;
 c_734157.fn = (function_type)__lambda_172;
c_734157.num_args = 1;
c_734157.num_elements = 7;
c_734157.elements = (object *)e_734223;
c_734157.elements[0] = ((closureN)self_732693)->elements[0];
c_734157.elements[1] = ((closureN)self_732693)->elements[1];
c_734157.elements[2] = ((closureN)self_732693)->elements[2];
c_734157.elements[3] = ((closureN)self_732693)->elements[3];
c_734157.elements[4] = ((closureN)self_732693)->elements[4];
c_734157.elements[5] = ((closureN)self_732693)->elements[5];
c_734157.elements[6] = ((closureN)self_732693)->elements[6];



return_direct_with_clo1(data,(closure)&c_734157,__lambda_172,  Cyc_set_cell(data, ((closureN)self_732693)->elements[6], r_731549));; 
}

static void __lambda_172(void *data, object self_732694, int argc, object *args) /* object self_732694, object r_731533 */
 {

  
closureN_type c_734159;
object e_734201 [6];
c_734159.hdr.mark = gc_color_red;
 c_734159.hdr.grayed = 0;
c_734159.tag = closureN_tag;
 c_734159.fn = (function_type)__lambda_173;
c_734159.num_args = 1;
c_734159.num_elements = 6;
c_734159.elements = (object *)e_734201;
c_734159.elements[0] = ((closureN)self_732694)->elements[0];
c_734159.elements[1] = ((closureN)self_732694)->elements[1];
c_734159.elements[2] = ((closureN)self_732694)->elements[2];
c_734159.elements[3] = ((closureN)self_732694)->elements[3];
c_734159.elements[4] = ((closureN)self_732694)->elements[4];
c_734159.elements[5] = ((closureN)self_732694)->elements[5];


closureN_type c_734202;
object e_734222 [2];
c_734202.hdr.mark = gc_color_red;
 c_734202.hdr.grayed = 0;
c_734202.tag = closureN_tag;
 c_734202.fn = (function_type)__lambda_180;
c_734202.num_args = 2;
c_734202.num_elements = 2;
c_734202.elements = (object *)e_734222;
c_734202.elements[0] = ((closureN)self_732694)->elements[4];
c_734202.elements[1] = ((closureN)self_732694)->elements[6];

return_direct_with_clo1(data,(closure)&c_734159,__lambda_173,  &c_734202);; 
}

static void __lambda_180(void *data, object self_732695, int argc, object *args) /* object self_732695, object k_731544, object first_91proc_73293_73972, object rest_91procs_73294_73973 */
 {
 object k_731544 = args[0]; object first_91proc_73293_73972 = args[1]; object rest_91procs_73294_73973 = args[2];
    
if( (boolean_f != Cyc_is_null(rest_91procs_73294_73973)) ){ 
  return_direct_with_clo1(data,  k_731544, (((closure)  k_731544)->fn),  first_91proc_73293_73972);
} else { 
  


closureN_type c_734210;
object e_734219 [3];
c_734210.hdr.mark = gc_color_red;
 c_734210.hdr.grayed = 0;
c_734210.tag = closureN_tag;
 c_734210.fn = (function_type)__lambda_181;
c_734210.num_args = 1;
c_734210.num_elements = 3;
c_734210.elements = (object *)e_734219;
c_734210.elements[0] = k_731544;
c_734210.elements[1] = ((closureN)self_732695)->elements[0];
c_734210.elements[2] = rest_91procs_73294_73973;



return_closcall3(data,  car(((closureN)self_732695)->elements[1]),  &c_734210, first_91proc_73293_73972, Cyc_car(data, rest_91procs_73294_73973));}
;; 
}

static void __lambda_181(void *data, object self_732696, int argc, object *args) /* object self_732696, object r_731546 */
 {
 object r_731546 = args[0];
  



return_closcall3(data,  car(((closureN)self_732696)->elements[1]),  ((closureN)self_732696)->elements[0], r_731546, Cyc_cdr(data, ((closureN)self_732696)->elements[2]));; 
}

static void __lambda_173(void *data, object self_732697, int argc, object *args) /* object self_732697, object r_731543 */
 {
 object r_731543 = args[0];
  
closureN_type c_734161;
object e_734197 [6];
c_734161.hdr.mark = gc_color_red;
 c_734161.hdr.grayed = 0;
c_734161.tag = closureN_tag;
 c_734161.fn = (function_type)__lambda_174;
c_734161.num_args = 1;
c_734161.num_elements = 6;
c_734161.elements = (object *)e_734197;
c_734161.elements[0] = ((closureN)self_732697)->elements[0];
c_734161.elements[1] = ((closureN)self_732697)->elements[1];
c_734161.elements[2] = ((closureN)self_732697)->elements[2];
c_734161.elements[3] = ((closureN)self_732697)->elements[3];
c_734161.elements[4] = ((closureN)self_732697)->elements[4];
c_734161.elements[5] = ((closureN)self_732697)->elements[5];



return_direct_with_clo1(data,(closure)&c_734161,__lambda_174,  Cyc_set_cell(data, ((closureN)self_732697)->elements[4], r_731543));; 
}

static void __lambda_174(void *data, object self_732698, int argc, object *args) /* object self_732698, object r_731534 */
 {

  
closureN_type c_734163;
object e_734190 [3];
c_734163.hdr.mark = gc_color_red;
 c_734163.hdr.grayed = 0;
c_734163.tag = closureN_tag;
 c_734163.fn = (function_type)__lambda_175;
c_734163.num_args = 1;
c_734163.num_elements = 3;
c_734163.elements = (object *)e_734190;
c_734163.elements[0] = ((closureN)self_732698)->elements[1];
c_734163.elements[1] = ((closureN)self_732698)->elements[2];
c_734163.elements[2] = ((closureN)self_732698)->elements[4];


closureN_type c_734191;
object e_734196 [3];
c_734191.hdr.mark = gc_color_red;
 c_734191.hdr.grayed = 0;
c_734191.tag = closureN_tag;
 c_734191.fn = (function_type)__lambda_179;
c_734191.num_args = 1;
c_734191.num_elements = 3;
c_734191.elements = (object *)e_734196;
c_734191.elements[0] = ((closureN)self_732698)->elements[0];
c_734191.elements[1] = ((closureN)self_732698)->elements[3];
c_734191.elements[2] = ((closureN)self_732698)->elements[5];

return_direct_with_clo1(data,(closure)&c_734163,__lambda_175,  &c_734191);; 
}

static void __lambda_179(void *data, object self_732699, int argc, object *args) /* object self_732699, object k_731542, object e_73296_73975 */
 {
 object k_731542 = args[0]; object e_73296_73975 = args[1];
  return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  k_731542, e_73296_73975, ((closureN)self_732699)->elements[0], ((closureN)self_732699)->elements[2], ((closureN)self_732699)->elements[1]);; 
}

static void __lambda_175(void *data, object self_732700, int argc, object *args) /* object self_732700, object r_731541 */
 {
 object r_731541 = args[0];
  
closureN_type c_734165;
object e_734188 [2];
c_734165.hdr.mark = gc_color_red;
 c_734165.hdr.grayed = 0;
c_734165.tag = closureN_tag;
 c_734165.fn = (function_type)__lambda_176;
c_734165.num_args = 1;
c_734165.num_elements = 2;
c_734165.elements = (object *)e_734188;
c_734165.elements[0] = ((closureN)self_732700)->elements[1];
c_734165.elements[1] = ((closureN)self_732700)->elements[2];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_734165, r_731541, ((closureN)self_732700)->elements[0]);; 
}

static void __lambda_176(void *data, object self_732701, int argc, object *args) /* object self_732701, object procs_73295_73974 */
 {
 object procs_73295_73974 = args[0];
  
closureN_type c_734167;
object e_734174 [1];
c_734167.hdr.mark = gc_color_red;
 c_734167.hdr.grayed = 0;
c_734167.tag = closureN_tag;
 c_734167.fn = (function_type)__lambda_177;
c_734167.num_args = 0;
c_734167.num_elements = 1;
c_734167.elements = (object *)e_734174;
c_734167.elements[0] = procs_73295_73974;


closureN_type c_734175;
object e_734187 [3];
c_734175.hdr.mark = gc_color_red;
 c_734175.hdr.grayed = 0;
c_734175.tag = closureN_tag;
 c_734175.fn = (function_type)__lambda_178;
c_734175.num_args = 1;
c_734175.num_elements = 3;
c_734175.elements = (object *)e_734187;
c_734175.elements[0] = ((closureN)self_732701)->elements[0];
c_734175.elements[1] = ((closureN)self_732701)->elements[1];
c_734175.elements[2] = procs_73295_73974;

return_direct_with_clo1(data,(closure)&c_734167,__lambda_177,  &c_734175);; 
}

static void __lambda_178(void *data, object self_732702, int argc, object *args) /* object self_732702, object r_731536 */
 {

  





return_closcall3(data,  car(((closureN)self_732702)->elements[1]),  ((closureN)self_732702)->elements[0], Cyc_car(data, ((closureN)self_732702)->elements[2]), Cyc_cdr(data, ((closureN)self_732702)->elements[2]));; 
}

static void __lambda_177(void *data, object self_732703, int argc, object *args) /* object self_732703, object k_731539 */
 {
 object k_731539 = args[0];
    
if( (boolean_f != Cyc_is_null(((closureN)self_732703)->elements[0])) ){ 
  
make_utf8_string_with_len(c_734172, "Empty sequence -- ANALYZE", 25, 25);
return_direct_with_clo2(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_731539, &c_734172);
} else { 
  return_direct_with_clo1(data,  k_731539, (((closure)  k_731539)->fn),  Cyc_VOID);}
;; 
}

static void __lambda_159(void *data, object _, int argc, object *args) /* closure _,object k_731518, object exp_73266_73948, object a_91env_73267_73949, object rename_91env_73268_73950, object local_91renamed_73269_73951 */
 {
object k_731518 = args[0]; object exp_73266_73948 = args[1]; object a_91env_73267_73949 = args[2]; object rename_91env_73268_73950 = args[3]; object local_91renamed_73269_73951 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:analyze-lambda");

closureN_type c_734100;
object e_734144 [5];
c_734100.hdr.mark = gc_color_red;
 c_734100.hdr.grayed = 0;
c_734100.tag = closureN_tag;
 c_734100.fn = (function_type)__lambda_160;
c_734100.num_args = 1;
c_734100.num_elements = 5;
c_734100.elements = (object *)e_734144;
c_734100.elements[0] = a_91env_73267_73949;
c_734100.elements[1] = exp_73266_73948;
c_734100.elements[2] = k_731518;
c_734100.elements[3] = local_91renamed_73269_73951;
c_734100.elements[4] = rename_91env_73268_73950;



return_direct_with_clo1(data,(closure)&c_734100,__lambda_160,  Cyc_cadr(data, exp_73266_73948));; 
}

static void __lambda_160(void *data, object self_732678, int argc, object *args) /* object self_732678, object vars_73272_73952 */
 {
 object vars_73272_73952 = args[0];
  
closureN_type c_734102;
object e_734142 [6];
c_734102.hdr.mark = gc_color_red;
 c_734102.hdr.grayed = 0;
c_734102.tag = closureN_tag;
 c_734102.fn = (function_type)__lambda_161;
c_734102.num_args = 1;
c_734102.num_elements = 6;
c_734102.elements = (object *)e_734142;
c_734102.elements[0] = ((closureN)self_732678)->elements[0];
c_734102.elements[1] = ((closureN)self_732678)->elements[1];
c_734102.elements[2] = ((closureN)self_732678)->elements[2];
c_734102.elements[3] = ((closureN)self_732678)->elements[3];
c_734102.elements[4] = ((closureN)self_732678)->elements[4];
c_734102.elements[5] = vars_73272_73952;

return_direct_with_clo2(data,  __glo_lambda_91formals_91_125list_scheme_cyclone_util, (((closure)  __glo_lambda_91formals_91_125list_scheme_cyclone_util)->fn),  &c_734102, ((closureN)self_732678)->elements[1]);; 
}

static void __lambda_161(void *data, object self_732679, int argc, object *args) /* object self_732679, object args_73275_73953 */
 {
 object args_73275_73953 = args[0];
  
closureN_type c_734104;
object e_734131 [7];
c_734104.hdr.mark = gc_color_red;
 c_734104.hdr.grayed = 0;
c_734104.tag = closureN_tag;
 c_734104.fn = (function_type)__lambda_162;
c_734104.num_args = 1;
c_734104.num_elements = 7;
c_734104.elements = (object *)e_734131;
c_734104.elements[0] = ((closureN)self_732679)->elements[0];
c_734104.elements[1] = args_73275_73953;
c_734104.elements[2] = ((closureN)self_732679)->elements[1];
c_734104.elements[3] = ((closureN)self_732679)->elements[2];
c_734104.elements[4] = ((closureN)self_732679)->elements[3];
c_734104.elements[5] = ((closureN)self_732679)->elements[4];
c_734104.elements[6] = ((closureN)self_732679)->elements[5];


mclosure0(c_734132, (function_type)__lambda_167);c_734132.num_args = 1;
return_direct_with_clo1(data,(closure)&c_734104,__lambda_162,  &c_734132);; 
}

static void __lambda_167(void *data, object self_732680, int argc, object *args) /* object self_732680, object k_731527, object a_73284_73957 */
 {
 object k_731527 = args[0]; object a_73284_73957 = args[1];
  
closureN_type c_734134;
object e_734141 [2];
c_734134.hdr.mark = gc_color_red;
 c_734134.hdr.grayed = 0;
c_734134.tag = closureN_tag;
 c_734134.fn = (function_type)__lambda_168;
c_734134.num_args = 1;
c_734134.num_elements = 2;
c_734134.elements = (object *)e_734141;
c_734134.elements[0] = a_73284_73957;
c_734134.elements[1] = k_731527;

return_direct_with_clo2(data,  __glo_gensym_scheme_cyclone_util, (((closure)  __glo_gensym_scheme_cyclone_util)->fn),  &c_734134, a_73284_73957);; 
}

static void __lambda_168(void *data, object self_732681, int argc, object *args) /* object self_732681, object r_731529 */
 {
 object r_731529 = args[0];
  
pair_type local_734139; 
return_direct_with_clo1(data,  ((closureN)self_732681)->elements[1], (((closure)  ((closureN)self_732681)->elements[1])->fn),  set_pair_as_expr(&local_734139, ((closureN)self_732681)->elements[0], r_731529));; 
}

static void __lambda_162(void *data, object self_732682, int argc, object *args) /* object self_732682, object r_731526 */
 {
 object r_731526 = args[0];
  
closureN_type c_734106;
object e_734129 [6];
c_734106.hdr.mark = gc_color_red;
 c_734106.hdr.grayed = 0;
c_734106.tag = closureN_tag;
 c_734106.fn = (function_type)__lambda_163;
c_734106.num_args = 1;
c_734106.num_elements = 6;
c_734106.elements = (object *)e_734129;
c_734106.elements[0] = ((closureN)self_732682)->elements[0];
c_734106.elements[1] = ((closureN)self_732682)->elements[2];
c_734106.elements[2] = ((closureN)self_732682)->elements[3];
c_734106.elements[3] = ((closureN)self_732682)->elements[4];
c_734106.elements[4] = ((closureN)self_732682)->elements[5];
c_734106.elements[5] = ((closureN)self_732682)->elements[6];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_734106, r_731526, ((closureN)self_732682)->elements[1]);; 
}

static void __lambda_163(void *data, object self_732683, int argc, object *args) /* object self_732683, object a_91lookup_73278_73954 */
 {
 object a_91lookup_73278_73954 = args[0];
  
closureN_type c_734108;
object e_734127 [5];
c_734108.hdr.mark = gc_color_red;
 c_734108.hdr.grayed = 0;
c_734108.tag = closureN_tag;
 c_734108.fn = (function_type)__lambda_164;
c_734108.num_args = 1;
c_734108.num_elements = 5;
c_734108.elements = (object *)e_734127;
c_734108.elements[0] = ((closureN)self_732683)->elements[0];
c_734108.elements[1] = ((closureN)self_732683)->elements[1];
c_734108.elements[2] = ((closureN)self_732683)->elements[2];
c_734108.elements[3] = ((closureN)self_732683)->elements[4];
c_734108.elements[4] = ((closureN)self_732683)->elements[5];

return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_734108, a_91lookup_73278_73954, ((closureN)self_732683)->elements[3]);; 
}

static void __lambda_164(void *data, object self_732684, int argc, object *args) /* object self_732684, object r_731525 */
 {
 object r_731525 = args[0];
  
closureN_type c_734110;
object e_734121 [2];
c_734110.hdr.mark = gc_color_red;
 c_734110.hdr.grayed = 0;
c_734110.tag = closureN_tag;
 c_734110.fn = (function_type)__lambda_165;
c_734110.num_args = 1;
c_734110.num_elements = 2;
c_734110.elements = (object *)e_734121;
c_734110.elements[0] = ((closureN)self_732684)->elements[2];
c_734110.elements[1] = ((closureN)self_732684)->elements[4];



return_direct_with_clo5(data,  __glo_analyze_91sequence_scheme_eval, (((closure)  __glo_analyze_91sequence_scheme_eval)->fn),  &c_734110, Cyc_cddr(data, ((closureN)self_732684)->elements[1]), ((closureN)self_732684)->elements[0], ((closureN)self_732684)->elements[3], r_731525);; 
}

static void __lambda_165(void *data, object self_732685, int argc, object *args) /* object self_732685, object bproc_73281_73955 */
 {
 object bproc_73281_73955 = args[0];
  
closureN_type c_734113;
object e_734120 [2];
c_734113.hdr.mark = gc_color_red;
 c_734113.hdr.grayed = 0;
c_734113.tag = closureN_tag;
 c_734113.fn = (function_type)__lambda_166;
c_734113.num_args = 1;
c_734113.num_elements = 2;
c_734113.elements = (object *)e_734120;
c_734113.elements[0] = bproc_73281_73955;
c_734113.elements[1] = ((closureN)self_732685)->elements[1];

return_direct_with_clo1(data,  ((closureN)self_732685)->elements[0], (((closure)  ((closureN)self_732685)->elements[0])->fn),  &c_734113);; 
}

static void __lambda_166(void *data, object self_732686, int argc, object *args) /* object self_732686, object k_731523, object env_73283_73956 */
 {
 object k_731523 = args[0]; object env_73283_73956 = args[1];
  
list_4_type local_734117; 
return_direct_with_clo1(data,  k_731523, (((closure)  k_731523)->fn),  Cyc_fast_list_4(&local_734117, __glo_procedure_91tag_scheme_eval, ((closureN)self_732686)->elements[1], ((closureN)self_732686)->elements[0], env_73283_73956));; 
}

static void __lambda_146(void *data, object _, int argc, object *args) /* closure _,object k_731502, object exp_73251_73939, object a_91env_73252_73940, object rename_91env_73253_73941, object local_91renamed_73254_73942 */
 {
object k_731502 = args[0]; object exp_73251_73939 = args[1]; object a_91env_73252_73940 = args[2]; object rename_91env_73253_73941 = args[3]; object local_91renamed_73254_73942 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:analyze-if");

closureN_type c_734021;
object e_734095 [5];
c_734021.hdr.mark = gc_color_red;
 c_734021.hdr.grayed = 0;
c_734021.tag = closureN_tag;
 c_734021.fn = (function_type)__lambda_147;
c_734021.num_args = 1;
c_734021.num_elements = 5;
c_734021.elements = (object *)e_734095;
c_734021.elements[0] = a_91env_73252_73940;
c_734021.elements[1] = exp_73251_73939;
c_734021.elements[2] = k_731502;
c_734021.elements[3] = local_91renamed_73254_73942;
c_734021.elements[4] = rename_91env_73253_73941;



return_direct_with_clo1(data,(closure)&c_734021,__lambda_147,  Cyc_length(data, exp_73251_73939));; 
}

static void __lambda_147(void *data, object self_732666, int argc, object *args) /* object self_732666, object args_73255_73943 */
 {
 object args_73255_73943 = args[0];
  
closureN_type c_734023;
object e_734037 [2];
c_734023.hdr.mark = gc_color_red;
 c_734023.hdr.grayed = 0;
c_734023.tag = closureN_tag;
 c_734023.fn = (function_type)__lambda_148;
c_734023.num_args = 0;
c_734023.num_elements = 2;
c_734023.elements = (object *)e_734037;
c_734023.elements[0] = args_73255_73943;
c_734023.elements[1] = ((closureN)self_732666)->elements[1];


closureN_type c_734038;
object e_734094 [5];
c_734038.hdr.mark = gc_color_red;
 c_734038.hdr.grayed = 0;
c_734038.tag = closureN_tag;
 c_734038.fn = (function_type)__lambda_149;
c_734038.num_args = 1;
c_734038.num_elements = 5;
c_734038.elements = (object *)e_734094;
c_734038.elements[0] = ((closureN)self_732666)->elements[0];
c_734038.elements[1] = ((closureN)self_732666)->elements[1];
c_734038.elements[2] = ((closureN)self_732666)->elements[2];
c_734038.elements[3] = ((closureN)self_732666)->elements[3];
c_734038.elements[4] = ((closureN)self_732666)->elements[4];

return_direct_with_clo1(data,(closure)&c_734023,__lambda_148,  &c_734038);; 
}

static void __lambda_149(void *data, object self_732667, int argc, object *args) /* object self_732667, object r_731504 */
 {

  
closureN_type c_734040;
object e_734090 [5];
c_734040.hdr.mark = gc_color_red;
 c_734040.hdr.grayed = 0;
c_734040.tag = closureN_tag;
 c_734040.fn = (function_type)__lambda_150;
c_734040.num_args = 1;
c_734040.num_elements = 5;
c_734040.elements = (object *)e_734090;
c_734040.elements[0] = ((closureN)self_732667)->elements[0];
c_734040.elements[1] = ((closureN)self_732667)->elements[1];
c_734040.elements[2] = ((closureN)self_732667)->elements[2];
c_734040.elements[3] = ((closureN)self_732667)->elements[3];
c_734040.elements[4] = ((closureN)self_732667)->elements[4];



return_direct_with_clo1(data,(closure)&c_734040,__lambda_150,  Cyc_cadr(data, ((closureN)self_732667)->elements[1]));; 
}

static void __lambda_150(void *data, object self_732668, int argc, object *args) /* object self_732668, object r_731512 */
 {
 object r_731512 = args[0];
  
closureN_type c_734042;
object e_734086 [5];
c_734042.hdr.mark = gc_color_red;
 c_734042.hdr.grayed = 0;
c_734042.tag = closureN_tag;
 c_734042.fn = (function_type)__lambda_151;
c_734042.num_args = 1;
c_734042.num_elements = 5;
c_734042.elements = (object *)e_734086;
c_734042.elements[0] = ((closureN)self_732668)->elements[0];
c_734042.elements[1] = ((closureN)self_732668)->elements[1];
c_734042.elements[2] = ((closureN)self_732668)->elements[2];
c_734042.elements[3] = ((closureN)self_732668)->elements[3];
c_734042.elements[4] = ((closureN)self_732668)->elements[4];

return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  &c_734042, r_731512, ((closureN)self_732668)->elements[0], ((closureN)self_732668)->elements[4], ((closureN)self_732668)->elements[3]);; 
}

static void __lambda_151(void *data, object self_732669, int argc, object *args) /* object self_732669, object r_731505 */
 {
 object r_731505 = args[0];
  
closureN_type c_734044;
object e_734082 [6];
c_734044.hdr.mark = gc_color_red;
 c_734044.hdr.grayed = 0;
c_734044.tag = closureN_tag;
 c_734044.fn = (function_type)__lambda_152;
c_734044.num_args = 1;
c_734044.num_elements = 6;
c_734044.elements = (object *)e_734082;
c_734044.elements[0] = ((closureN)self_732669)->elements[0];
c_734044.elements[1] = ((closureN)self_732669)->elements[1];
c_734044.elements[2] = ((closureN)self_732669)->elements[2];
c_734044.elements[3] = ((closureN)self_732669)->elements[3];
c_734044.elements[4] = r_731505;
c_734044.elements[5] = ((closureN)self_732669)->elements[4];



return_direct_with_clo1(data,(closure)&c_734044,__lambda_152,  Cyc_caddr(data, ((closureN)self_732669)->elements[1]));; 
}

static void __lambda_152(void *data, object self_732670, int argc, object *args) /* object self_732670, object r_731511 */
 {
 object r_731511 = args[0];
  
closureN_type c_734046;
object e_734078 [6];
c_734046.hdr.mark = gc_color_red;
 c_734046.hdr.grayed = 0;
c_734046.tag = closureN_tag;
 c_734046.fn = (function_type)__lambda_153;
c_734046.num_args = 1;
c_734046.num_elements = 6;
c_734046.elements = (object *)e_734078;
c_734046.elements[0] = ((closureN)self_732670)->elements[0];
c_734046.elements[1] = ((closureN)self_732670)->elements[1];
c_734046.elements[2] = ((closureN)self_732670)->elements[2];
c_734046.elements[3] = ((closureN)self_732670)->elements[3];
c_734046.elements[4] = ((closureN)self_732670)->elements[4];
c_734046.elements[5] = ((closureN)self_732670)->elements[5];

return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  &c_734046, r_731511, ((closureN)self_732670)->elements[0], ((closureN)self_732670)->elements[5], ((closureN)self_732670)->elements[3]);; 
}

static void __lambda_153(void *data, object self_732671, int argc, object *args) /* object self_732671, object r_731506 */
 {
 object r_731506 = args[0];
  
closureN_type c_734048;
object e_734076 [6];
c_734048.hdr.mark = gc_color_red;
 c_734048.hdr.grayed = 0;
c_734048.tag = closureN_tag;
 c_734048.fn = (function_type)__lambda_154;
c_734048.num_args = 1;
c_734048.num_elements = 6;
c_734048.elements = (object *)e_734076;
c_734048.elements[0] = ((closureN)self_732671)->elements[0];
c_734048.elements[1] = ((closureN)self_732671)->elements[2];
c_734048.elements[2] = ((closureN)self_732671)->elements[3];
c_734048.elements[3] = ((closureN)self_732671)->elements[4];
c_734048.elements[4] = r_731506;
c_734048.elements[5] = ((closureN)self_732671)->elements[5];

return_direct_with_clo2(data,  __glo_if_91alternative_scheme_eval, (((closure)  __glo_if_91alternative_scheme_eval)->fn),  &c_734048, ((closureN)self_732671)->elements[1]);; 
}

static void __lambda_154(void *data, object self_732672, int argc, object *args) /* object self_732672, object r_731510 */
 {
 object r_731510 = args[0];
  
closureN_type c_734050;
object e_734072 [3];
c_734050.hdr.mark = gc_color_red;
 c_734050.hdr.grayed = 0;
c_734050.tag = closureN_tag;
 c_734050.fn = (function_type)__lambda_155;
c_734050.num_args = 1;
c_734050.num_elements = 3;
c_734050.elements = (object *)e_734072;
c_734050.elements[0] = ((closureN)self_732672)->elements[1];
c_734050.elements[1] = ((closureN)self_732672)->elements[3];
c_734050.elements[2] = ((closureN)self_732672)->elements[4];

return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  &c_734050, r_731510, ((closureN)self_732672)->elements[0], ((closureN)self_732672)->elements[5], ((closureN)self_732672)->elements[2]);; 
}

static void __lambda_155(void *data, object self_732673, int argc, object *args) /* object self_732673, object r_731507 */
 {
 object r_731507 = args[0];
  
closureN_type c_734052;
object e_734069 [1];
c_734052.hdr.mark = gc_color_red;
 c_734052.hdr.grayed = 0;
c_734052.tag = closureN_tag;
 c_734052.fn = (function_type)__lambda_156;
c_734052.num_args = 3;
c_734052.num_elements = 1;
c_734052.elements = (object *)e_734069;
c_734052.elements[0] = ((closureN)self_732673)->elements[0];

return_direct_with_clo3(data,(closure)&c_734052,__lambda_156,  ((closureN)self_732673)->elements[1], ((closureN)self_732673)->elements[2], r_731507);; 
}

static void __lambda_156(void *data, object self_732674, int argc, object *args) /* object self_732674, object pproc_73262_73944, object cproc_73263_73945, object aproc_73264_73946 */
 {
 object pproc_73262_73944 = args[0]; object cproc_73263_73945 = args[1]; object aproc_73264_73946 = args[2];
  
closureN_type c_734055;
object e_734068 [3];
c_734055.hdr.mark = gc_color_red;
 c_734055.hdr.grayed = 0;
c_734055.tag = closureN_tag;
 c_734055.fn = (function_type)__lambda_157;
c_734055.num_args = 1;
c_734055.num_elements = 3;
c_734055.elements = (object *)e_734068;
c_734055.elements[0] = aproc_73264_73946;
c_734055.elements[1] = cproc_73263_73945;
c_734055.elements[2] = pproc_73262_73944;

return_direct_with_clo1(data,  ((closureN)self_732674)->elements[0], (((closure)  ((closureN)self_732674)->elements[0])->fn),  &c_734055);; 
}

static void __lambda_157(void *data, object self_732675, int argc, object *args) /* object self_732675, object k_731508, object env_73265_73947 */
 {
 object k_731508 = args[0]; object env_73265_73947 = args[1];
  
closureN_type c_734058;
object e_734067 [4];
c_734058.hdr.mark = gc_color_red;
 c_734058.hdr.grayed = 0;
c_734058.tag = closureN_tag;
 c_734058.fn = (function_type)__lambda_158;
c_734058.num_args = 1;
c_734058.num_elements = 4;
c_734058.elements = (object *)e_734067;
c_734058.elements[0] = ((closureN)self_732675)->elements[0];
c_734058.elements[1] = ((closureN)self_732675)->elements[1];
c_734058.elements[2] = env_73265_73947;
c_734058.elements[3] = k_731508;

return_closcall2(data,  ((closureN)self_732675)->elements[2],  &c_734058, env_73265_73947);; 
}

static void __lambda_158(void *data, object self_732676, int argc, object *args) /* object self_732676, object r_731509 */
 {
 object r_731509 = args[0];
  if( (boolean_f != r_731509) ){ 
  return_closcall2(data,  ((closureN)self_732676)->elements[1],  ((closureN)self_732676)->elements[3], ((closureN)self_732676)->elements[2]);
} else { 
  return_closcall2(data,  ((closureN)self_732676)->elements[0],  ((closureN)self_732676)->elements[3], ((closureN)self_732676)->elements[2]);}
;; 
}

static void __lambda_148(void *data, object self_732677, int argc, object *args) /* object self_732677, object k_731513 */
 {
 object k_731513 = args[0];
    
if( (boolean_f != Cyc_num_fast_lt_op(data, ((closureN)self_732677)->elements[0], obj_int2obj(3))) ){ 
  
make_utf8_string_with_len(c_734028, "Not enough arguments", 20, 20);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_731513, &c_734028, ((closureN)self_732677)->elements[1]);
} else { 
    
if( (boolean_f != Cyc_num_fast_gt_op(data, ((closureN)self_732677)->elements[0], obj_int2obj(4))) ){ 
  
make_utf8_string_with_len(c_734034, "Too many arguments", 18, 18);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_731513, &c_734034, ((closureN)self_732677)->elements[1]);
} else { 
  return_direct_with_clo1(data,  k_731513, (((closure)  k_731513)->fn),  boolean_f);}
;}
;; 
}

static void __lambda_143(void *data, object _, int argc, object *args) /* closure _,object k_731496, object exp_73248_73936, object env_73249_73937 */
 {
object k_731496 = args[0]; object exp_73248_73936 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:analyze-import");

closureN_type c_734006;
object e_734018 [1];
c_734006.hdr.mark = gc_color_red;
 c_734006.hdr.grayed = 0;
c_734006.tag = closureN_tag;
 c_734006.fn = (function_type)__lambda_144;
c_734006.num_args = 1;
c_734006.num_elements = 1;
c_734006.elements = (object *)e_734018;
c_734006.elements[0] = exp_73248_73936;

return_direct_with_clo1(data,  k_731496, (((closure)  k_731496)->fn),  &c_734006);; 
}

static void __lambda_144(void *data, object self_732664, int argc, object *args) /* object self_732664, object k_731497, object env_73250_73938 */
 {
 object k_731497 = args[0];
  
closureN_type c_734008;
object e_734011 [1];
c_734008.hdr.mark = gc_color_red;
 c_734008.hdr.grayed = 0;
c_734008.tag = closureN_tag;
 c_734008.fn = (function_type)__lambda_145;
c_734008.num_args = 1;
c_734008.num_elements = 1;
c_734008.elements = (object *)e_734011;
c_734008.elements[0] = k_731497;




object c_734014 = apply(data,(closure)&c_734008,__glo__75import_scheme_eval, Cyc_cdr(data, ((closureN)self_732664)->elements[0]));
return_closcall1(data,(closure)&c_734008,  c_734014);; 
}

static void __lambda_145(void *data, object self_732665, int argc, object *args) /* object self_732665, object r_731498 */
 {

  return_direct_with_clo1(data,  ((closureN)self_732665)->elements[0], (((closure)  ((closureN)self_732665)->elements[0])->fn),  quote_ok);; 
}

static void __lambda_132(void *data, object _, int argc, object *args) /* closure _,object k_731473, object exp_73226_73925, object a_91env_73227_73926, object local_91renamed_73228_73927 */
 {
object k_731473 = args[0]; object exp_73226_73925 = args[1]; object a_91env_73227_73926 = args[2]; object local_91renamed_73228_73927 = args[3];
  Cyc_st_add(data, "scheme/eval.sld:analyze-syntax");

closureN_type c_733941;
object e_734001 [4];
c_733941.hdr.mark = gc_color_red;
 c_733941.hdr.grayed = 0;
c_733941.tag = closureN_tag;
 c_733941.fn = (function_type)__lambda_133;
c_733941.num_args = 1;
c_733941.num_elements = 4;
c_733941.elements = (object *)e_734001;
c_733941.elements[0] = a_91env_73227_73926;
c_733941.elements[1] = exp_73226_73925;
c_733941.elements[2] = k_731473;
c_733941.elements[3] = local_91renamed_73228_73927;



return_direct_with_clo1(data,(closure)&c_733941,__lambda_133,  Cyc_cadr(data, exp_73226_73925));; 
}

static void __lambda_133(void *data, object self_732654, int argc, object *args) /* object self_732654, object var_73229_73928 */
 {
 object var_73229_73928 = args[0];
  
closureN_type c_733943;
object e_733997 [5];
c_733943.hdr.mark = gc_color_red;
 c_733943.hdr.grayed = 0;
c_733943.tag = closureN_tag;
 c_733943.fn = (function_type)__lambda_134;
c_733943.num_args = 1;
c_733943.num_elements = 5;
c_733943.elements = (object *)e_733997;
c_733943.elements[0] = ((closureN)self_732654)->elements[0];
c_733943.elements[1] = ((closureN)self_732654)->elements[1];
c_733943.elements[2] = ((closureN)self_732654)->elements[2];
c_733943.elements[3] = ((closureN)self_732654)->elements[3];
c_733943.elements[4] = var_73229_73928;



return_direct_with_clo1(data,(closure)&c_733943,__lambda_134,  Cyc_caddr(data, ((closureN)self_732654)->elements[1]));; 
}

static void __lambda_134(void *data, object self_732655, int argc, object *args) /* object self_732655, object r_731493 */
 {
 object r_731493 = args[0];
    complex_num_type local_733946; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733946, quote_er_91macro_91transformer, r_731493)) ){ 
  
closureN_type c_733949;
object e_733964 [2];
c_733949.hdr.mark = gc_color_red;
 c_733949.hdr.grayed = 0;
c_733949.tag = closureN_tag;
 c_733949.fn = (function_type)__lambda_135;
c_733949.num_args = 1;
c_733949.num_elements = 2;
c_733949.elements = (object *)e_733964;
c_733949.elements[0] = ((closureN)self_732655)->elements[1];
c_733949.elements[1] = ((closureN)self_732655)->elements[4];

return_direct_with_clo1(data,  ((closureN)self_732655)->elements[2], (((closure)  ((closureN)self_732655)->elements[2])->fn),  &c_733949);
} else { 
  
closureN_type c_733966;
object e_733996 [5];
c_733966.hdr.mark = gc_color_red;
 c_733966.hdr.grayed = 0;
c_733966.tag = closureN_tag;
 c_733966.fn = (function_type)__lambda_137;
c_733966.num_args = 1;
c_733966.num_elements = 5;
c_733966.elements = (object *)e_733996;
c_733966.elements[0] = ((closureN)self_732655)->elements[0];
c_733966.elements[1] = ((closureN)self_732655)->elements[1];
c_733966.elements[2] = ((closureN)self_732655)->elements[2];
c_733966.elements[3] = ((closureN)self_732655)->elements[3];
c_733966.elements[4] = ((closureN)self_732655)->elements[4];

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_733966, NULL, NULL, NULL);}
;; 
}

static void __lambda_137(void *data, object self_732658, int argc, object *args) /* object self_732658, object rename_91env_73238_73931 */
 {
 object rename_91env_73238_73931 = args[0];
  
closureN_type c_733968;
object e_733992 [3];
c_733968.hdr.mark = gc_color_red;
 c_733968.hdr.grayed = 0;
c_733968.tag = closureN_tag;
 c_733968.fn = (function_type)__lambda_138;
c_733968.num_args = 1;
c_733968.num_elements = 3;
c_733968.elements = (object *)e_733992;
c_733968.elements[0] = ((closureN)self_732658)->elements[2];
c_733968.elements[1] = rename_91env_73238_73931;
c_733968.elements[2] = ((closureN)self_732658)->elements[4];

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_733968, ((closureN)self_732658)->elements[1], ((closureN)self_732658)->elements[0], rename_91env_73238_73931, NULL, ((closureN)self_732658)->elements[3]);; 
}

static void __lambda_138(void *data, object self_732659, int argc, object *args) /* object self_732659, object expanded_73241_73932 */
 {
 object expanded_73241_73932 = args[0];
  
closureN_type c_733970;
object e_733990 [2];
c_733970.hdr.mark = gc_color_red;
 c_733970.hdr.grayed = 0;
c_733970.tag = closureN_tag;
 c_733970.fn = (function_type)__lambda_139;
c_733970.num_args = 1;
c_733970.num_elements = 2;
c_733970.elements = (object *)e_733990;
c_733970.elements[0] = ((closureN)self_732659)->elements[0];
c_733970.elements[1] = ((closureN)self_732659)->elements[2];

return_direct_with_clo3(data,  __glo_macro_117cleanup_scheme_eval, (((closure)  __glo_macro_117cleanup_scheme_eval)->fn),  &c_733970, expanded_73241_73932, ((closureN)self_732659)->elements[1]);; 
}

static void __lambda_139(void *data, object self_732660, int argc, object *args) /* object self_732660, object cleaned_73244_73933 */
 {
 object cleaned_73244_73933 = args[0];
  
closureN_type c_733972;
object e_733984 [2];
c_733972.hdr.mark = gc_color_red;
 c_733972.hdr.grayed = 0;
c_733972.tag = closureN_tag;
 c_733972.fn = (function_type)__lambda_140;
c_733972.num_args = 1;
c_733972.num_elements = 2;
c_733972.elements = (object *)e_733984;
c_733972.elements[0] = ((closureN)self_732660)->elements[0];
c_733972.elements[1] = ((closureN)self_732660)->elements[1];


list_2_type local_733987; 


return_direct_with_clo1(data,(closure)&c_733972,__lambda_140,  Cyc_fast_list_2(&local_733987, __glo_macro_91tag_scheme_eval, Cyc_caddr(data, cleaned_73244_73933)));; 
}

static void __lambda_140(void *data, object self_732661, int argc, object *args) /* object self_732661, object sproc_73246_73934_732483 */
 {
 object sproc_73246_73934_732483 = args[0];
  
closureN_type c_733975;
object e_733983 [2];
c_733975.hdr.mark = gc_color_red;
 c_733975.hdr.grayed = 0;
c_733975.tag = closureN_tag;
 c_733975.fn = (function_type)__lambda_141;
c_733975.num_args = 1;
c_733975.num_elements = 2;
c_733975.elements = (object *)e_733983;
c_733975.elements[0] = sproc_73246_73934_732483;
c_733975.elements[1] = ((closureN)self_732661)->elements[1];

return_direct_with_clo1(data,  ((closureN)self_732661)->elements[0], (((closure)  ((closureN)self_732661)->elements[0])->fn),  &c_733975);; 
}

static void __lambda_141(void *data, object self_732662, int argc, object *args) /* object self_732662, object k_731485_732484, object env_73247_73935_732485 */
 {
 object k_731485_732484 = args[0]; object env_73247_73935_732485 = args[1];
  
closureN_type c_733977;
object e_733980 [1];
c_733977.hdr.mark = gc_color_red;
 c_733977.hdr.grayed = 0;
c_733977.tag = closureN_tag;
 c_733977.fn = (function_type)__lambda_142;
c_733977.num_args = 1;
c_733977.num_elements = 1;
c_733977.elements = (object *)e_733980;
c_733977.elements[0] = k_731485_732484;

return_direct_with_clo4(data,  __glo_env_117define_91variable_67_scheme_cyclone_util, (((closure)  __glo_env_117define_91variable_67_scheme_cyclone_util)->fn),  &c_733977, ((closureN)self_732662)->elements[1], ((closureN)self_732662)->elements[0], env_73247_73935_732485);; 
}

static void __lambda_142(void *data, object self_732663, int argc, object *args) /* object self_732663, object r_731486_732486 */
 {

  return_direct_with_clo1(data,  ((closureN)self_732663)->elements[0], (((closure)  ((closureN)self_732663)->elements[0])->fn),  quote_ok);; 
}

static void __lambda_135(void *data, object self_732656, int argc, object *args) /* object self_732656, object k_731477_732480, object env_73234_73930_732481 */
 {
 object k_731477_732480 = args[0]; object env_73234_73930_732481 = args[1];
  
closureN_type c_733951;
object e_733954 [1];
c_733951.hdr.mark = gc_color_red;
 c_733951.hdr.grayed = 0;
c_733951.tag = closureN_tag;
 c_733951.fn = (function_type)__lambda_136;
c_733951.num_args = 1;
c_733951.num_elements = 1;
c_733951.elements = (object *)e_733954;
c_733951.elements[0] = k_731477_732480;


list_2_type local_733958; 




return_direct_with_clo4(data,  __glo_env_117define_91variable_67_scheme_cyclone_util, (((closure)  __glo_env_117define_91variable_67_scheme_cyclone_util)->fn),  &c_733951, ((closureN)self_732656)->elements[1], Cyc_fast_list_2(&local_733958, __glo_macro_91tag_scheme_eval, Cyc_cadr(data, Cyc_caddr(data, ((closureN)self_732656)->elements[0]))), env_73234_73930_732481);; 
}

static void __lambda_136(void *data, object self_732657, int argc, object *args) /* object self_732657, object r_731478_732482 */
 {

  return_direct_with_clo1(data,  ((closureN)self_732657)->elements[0], (((closure)  ((closureN)self_732657)->elements[0])->fn),  quote_ok);; 
}

static void __lambda_114(void *data, object _, int argc, object *args) /* closure _,object k_731443, object exp_73194_73908, object a_91env_73195_73909, object rename_91env_73196_73910, object local_91renamed_73197_73911 */
 {
object k_731443 = args[0]; object exp_73194_73908 = args[1]; object a_91env_73195_73909 = args[2]; object rename_91env_73196_73910 = args[3]; object local_91renamed_73197_73911 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:analyze-letrec-syntax");

closureN_type c_733856;
object e_733934 [5];
c_733856.hdr.mark = gc_color_red;
 c_733856.hdr.grayed = 0;
c_733856.tag = closureN_tag;
 c_733856.fn = (function_type)__lambda_115;
c_733856.num_args = 1;
c_733856.num_elements = 5;
c_733856.elements = (object *)e_733934;
c_733856.elements[0] = a_91env_73195_73909;
c_733856.elements[1] = exp_73194_73908;
c_733856.elements[2] = k_731443;
c_733856.elements[3] = local_91renamed_73197_73911;
c_733856.elements[4] = rename_91env_73196_73910;


mclosure0(c_733935, (function_type)__lambda_131);c_733935.num_args = 2;
return_direct_with_clo1(data,(closure)&c_733856,__lambda_115,  &c_733935);; 
}

static void __lambda_131(void *data, object self_732637, int argc, object *args) /* object self_732637, object k_731469, object lis_73224_73923, object acc_73225_73924 */
 {
 object k_731469 = args[0]; object lis_73224_73923 = args[1]; object acc_73225_73924 = args[2];
  

return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  k_731469, acc_73225_73924, Cyc_car(data, lis_73224_73923));; 
}

static void __lambda_115(void *data, object self_732638, int argc, object *args) /* object self_732638, object r_731467 */
 {
 object r_731467 = args[0];
  
closureN_type c_733858;
object e_733932 [5];
c_733858.hdr.mark = gc_color_red;
 c_733858.hdr.grayed = 0;
c_733858.tag = closureN_tag;
 c_733858.fn = (function_type)__lambda_116;
c_733858.num_args = 1;
c_733858.num_elements = 5;
c_733858.elements = (object *)e_733932;
c_733858.elements[0] = ((closureN)self_732638)->elements[0];
c_733858.elements[1] = ((closureN)self_732638)->elements[1];
c_733858.elements[2] = ((closureN)self_732638)->elements[2];
c_733858.elements[3] = ((closureN)self_732638)->elements[3];
c_733858.elements[4] = ((closureN)self_732638)->elements[4];

return_direct_with_clo4(data,  __glo_foldl_scheme_base, (((closure)  __glo_foldl_scheme_base)->fn),  &c_733858, r_731467, NULL, ((closureN)self_732638)->elements[0]);; 
}

static void __lambda_116(void *data, object self_732639, int argc, object *args) /* object self_732639, object vars_73200_73912 */
 {
 object vars_73200_73912 = args[0];
  
closureN_type c_733860;
object e_733927 [6];
c_733860.hdr.mark = gc_color_red;
 c_733860.hdr.grayed = 0;
c_733860.tag = closureN_tag;
 c_733860.fn = (function_type)__lambda_117;
c_733860.num_args = 1;
c_733860.num_elements = 6;
c_733860.elements = (object *)e_733927;
c_733860.elements[0] = ((closureN)self_732639)->elements[0];
c_733860.elements[1] = ((closureN)self_732639)->elements[1];
c_733860.elements[2] = ((closureN)self_732639)->elements[2];
c_733860.elements[3] = ((closureN)self_732639)->elements[3];
c_733860.elements[4] = ((closureN)self_732639)->elements[4];
c_733860.elements[5] = vars_73200_73912;


mclosure0(c_733928, (function_type)__lambda_130);c_733928.num_args = 2;
return_direct_with_clo1(data,(closure)&c_733860,__lambda_117,  &c_733928);; 
}

static void __lambda_130(void *data, object self_732640, int argc, object *args) /* object self_732640, object k_731465, object lis_73222_73921, object acc_73223_73922 */
 {
 object k_731465 = args[0]; object lis_73222_73921 = args[1]; object acc_73223_73922 = args[2];
  

return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  k_731465, acc_73223_73922, Cyc_cdr(data, lis_73222_73921));; 
}

static void __lambda_117(void *data, object self_732641, int argc, object *args) /* object self_732641, object r_731463 */
 {
 object r_731463 = args[0];
  
closureN_type c_733862;
object e_733925 [6];
c_733862.hdr.mark = gc_color_red;
 c_733862.hdr.grayed = 0;
c_733862.tag = closureN_tag;
 c_733862.fn = (function_type)__lambda_118;
c_733862.num_args = 1;
c_733862.num_elements = 6;
c_733862.elements = (object *)e_733925;
c_733862.elements[0] = ((closureN)self_732641)->elements[0];
c_733862.elements[1] = ((closureN)self_732641)->elements[1];
c_733862.elements[2] = ((closureN)self_732641)->elements[2];
c_733862.elements[3] = ((closureN)self_732641)->elements[3];
c_733862.elements[4] = ((closureN)self_732641)->elements[4];
c_733862.elements[5] = ((closureN)self_732641)->elements[5];

return_direct_with_clo4(data,  __glo_foldl_scheme_base, (((closure)  __glo_foldl_scheme_base)->fn),  &c_733862, r_731463, NULL, ((closureN)self_732641)->elements[0]);; 
}

static void __lambda_118(void *data, object self_732642, int argc, object *args) /* object self_732642, object vals_73203_73913 */
 {
 object vals_73203_73913 = args[0];
  
closureN_type c_733864;
object e_733917 [5];
c_733864.hdr.mark = gc_color_red;
 c_733864.hdr.grayed = 0;
c_733864.tag = closureN_tag;
 c_733864.fn = (function_type)__lambda_119;
c_733864.num_args = 1;
c_733864.num_elements = 5;
c_733864.elements = (object *)e_733917;
c_733864.elements[0] = ((closureN)self_732642)->elements[0];
c_733864.elements[1] = ((closureN)self_732642)->elements[1];
c_733864.elements[2] = ((closureN)self_732642)->elements[2];
c_733864.elements[3] = ((closureN)self_732642)->elements[3];
c_733864.elements[4] = ((closureN)self_732642)->elements[4];


pair_type local_733924; 

object c_733920 = apply_va(data,(closure)&c_733864,4,__glo_map_scheme_base, __glo__list_scheme_base, ((closureN)self_732642)->elements[5], set_cell_as_expr(&local_733924, vals_73203_73913));
return_closcall1(data,(closure)&c_733864,  c_733920);; 
}

static void __lambda_119(void *data, object self_732643, int argc, object *args) /* object self_732643, object zipped_73206_73914 */
 {
 object zipped_73206_73914 = args[0];
  
closureN_type c_733866;
object e_733908 [6];
c_733866.hdr.mark = gc_color_red;
 c_733866.hdr.grayed = 0;
c_733866.tag = closureN_tag;
 c_733866.fn = (function_type)__lambda_120;
c_733866.num_args = 1;
c_733866.num_elements = 6;
c_733866.elements = (object *)e_733908;
c_733866.elements[0] = ((closureN)self_732643)->elements[0];
c_733866.elements[1] = ((closureN)self_732643)->elements[1];
c_733866.elements[2] = ((closureN)self_732643)->elements[2];
c_733866.elements[3] = ((closureN)self_732643)->elements[3];
c_733866.elements[4] = ((closureN)self_732643)->elements[4];
c_733866.elements[5] = zipped_73206_73914;


mclosure0(c_733909, (function_type)__lambda_129);c_733909.num_args = 1;
return_direct_with_clo1(data,(closure)&c_733866,__lambda_120,  &c_733909);; 
}

static void __lambda_129(void *data, object self_732644, int argc, object *args) /* object self_732644, object k_731459, object v_73221_73920 */
 {
 object k_731459 = args[0]; object v_73221_73920 = args[1];
  





return_direct_with_clo1(data,  k_731459, (((closure)  k_731459)->fn),  Cyc_is_macro(Cyc_get_cvar(Cyc_cadr(data, v_73221_73920))));; 
}

static void __lambda_120(void *data, object self_732645, int argc, object *args) /* object self_732645, object r_731458 */
 {
 object r_731458 = args[0];
  
closureN_type c_733868;
object e_733906 [5];
c_733868.hdr.mark = gc_color_red;
 c_733868.hdr.grayed = 0;
c_733868.tag = closureN_tag;
 c_733868.fn = (function_type)__lambda_121;
c_733868.num_args = 1;
c_733868.num_elements = 5;
c_733868.elements = (object *)e_733906;
c_733868.elements[0] = ((closureN)self_732645)->elements[0];
c_733868.elements[1] = ((closureN)self_732645)->elements[1];
c_733868.elements[2] = ((closureN)self_732645)->elements[2];
c_733868.elements[3] = ((closureN)self_732645)->elements[3];
c_733868.elements[4] = ((closureN)self_732645)->elements[4];

return_direct_with_clo3(data,  __glo_filter_scheme_cyclone_util, (((closure)  __glo_filter_scheme_cyclone_util)->fn),  &c_733868, r_731458, ((closureN)self_732645)->elements[5]);; 
}

static void __lambda_121(void *data, object self_732646, int argc, object *args) /* object self_732646, object defined_91macros_73209_73915 */
 {
 object defined_91macros_73209_73915 = args[0];
  
closureN_type c_733870;
object e_733905 [6];
c_733870.hdr.mark = gc_color_red;
 c_733870.hdr.grayed = 0;
c_733870.tag = closureN_tag;
 c_733870.fn = (function_type)__lambda_122;
c_733870.num_args = 1;
c_733870.num_elements = 6;
c_733870.elements = (object *)e_733905;
c_733870.elements[0] = ((closureN)self_732646)->elements[0];
c_733870.elements[1] = defined_91macros_73209_73915;
c_733870.elements[2] = ((closureN)self_732646)->elements[1];
c_733870.elements[3] = ((closureN)self_732646)->elements[2];
c_733870.elements[4] = ((closureN)self_732646)->elements[3];
c_733870.elements[5] = ((closureN)self_732646)->elements[4];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_733870, primitive_car, defined_91macros_73209_73915);; 
}

static void __lambda_122(void *data, object self_732647, int argc, object *args) /* object self_732647, object r_731452 */
 {
 object r_731452 = args[0];
  
closureN_type c_733872;
object e_733897 [7];
c_733872.hdr.mark = gc_color_red;
 c_733872.hdr.grayed = 0;
c_733872.tag = closureN_tag;
 c_733872.fn = (function_type)__lambda_123;
c_733872.num_args = 1;
c_733872.num_elements = 7;
c_733872.elements = (object *)e_733897;
c_733872.elements[0] = ((closureN)self_732647)->elements[0];
c_733872.elements[1] = ((closureN)self_732647)->elements[1];
c_733872.elements[2] = ((closureN)self_732647)->elements[2];
c_733872.elements[3] = ((closureN)self_732647)->elements[3];
c_733872.elements[4] = ((closureN)self_732647)->elements[4];
c_733872.elements[5] = r_731452;
c_733872.elements[6] = ((closureN)self_732647)->elements[5];


mclosure0(c_733898, (function_type)__lambda_128);c_733898.num_args = 1;
return_direct_with_clo1(data,(closure)&c_733872,__lambda_123,  &c_733898);; 
}

static void __lambda_128(void *data, object self_732648, int argc, object *args) /* object self_732648, object k_731455, object v_73220_73919 */
 {
 object k_731455 = args[0]; object v_73220_73919 = args[1];
  
list_2_type local_733902; 


return_direct_with_clo1(data,  k_731455, (((closure)  k_731455)->fn),  Cyc_fast_list_2(&local_733902, quote_macro, Cyc_cadr(data, v_73220_73919)));; 
}

static void __lambda_123(void *data, object self_732649, int argc, object *args) /* object self_732649, object r_731454 */
 {
 object r_731454 = args[0];
  
closureN_type c_733874;
object e_733895 [6];
c_733874.hdr.mark = gc_color_red;
 c_733874.hdr.grayed = 0;
c_733874.tag = closureN_tag;
 c_733874.fn = (function_type)__lambda_124;
c_733874.num_args = 1;
c_733874.num_elements = 6;
c_733874.elements = (object *)e_733895;
c_733874.elements[0] = ((closureN)self_732649)->elements[0];
c_733874.elements[1] = ((closureN)self_732649)->elements[2];
c_733874.elements[2] = ((closureN)self_732649)->elements[3];
c_733874.elements[3] = ((closureN)self_732649)->elements[4];
c_733874.elements[4] = ((closureN)self_732649)->elements[5];
c_733874.elements[5] = ((closureN)self_732649)->elements[6];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_733874, r_731454, ((closureN)self_732649)->elements[1]);; 
}

static void __lambda_124(void *data, object self_732650, int argc, object *args) /* object self_732650, object r_731453 */
 {
 object r_731453 = args[0];
  
closureN_type c_733876;
object e_733892 [5];
c_733876.hdr.mark = gc_color_red;
 c_733876.hdr.grayed = 0;
c_733876.tag = closureN_tag;
 c_733876.fn = (function_type)__lambda_125;
c_733876.num_args = 1;
c_733876.num_elements = 5;
c_733876.elements = (object *)e_733892;
c_733876.elements[0] = ((closureN)self_732650)->elements[0];
c_733876.elements[1] = ((closureN)self_732650)->elements[1];
c_733876.elements[2] = ((closureN)self_732650)->elements[2];
c_733876.elements[3] = ((closureN)self_732650)->elements[3];
c_733876.elements[4] = ((closureN)self_732650)->elements[5];

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_733876, ((closureN)self_732650)->elements[4], r_731453, ((closureN)self_732650)->elements[0]);; 
}

static void __lambda_125(void *data, object self_732651, int argc, object *args) /* object self_732651, object macro_91env_73212_73916 */
 {
 object macro_91env_73212_73916 = args[0];
  
closureN_type c_733878;
object e_733888 [4];
c_733878.hdr.mark = gc_color_red;
 c_733878.hdr.grayed = 0;
c_733878.tag = closureN_tag;
 c_733878.fn = (function_type)__lambda_126;
c_733878.num_args = 1;
c_733878.num_elements = 4;
c_733878.elements = (object *)e_733888;
c_733878.elements[0] = ((closureN)self_732651)->elements[0];
c_733878.elements[1] = ((closureN)self_732651)->elements[2];
c_733878.elements[2] = ((closureN)self_732651)->elements[3];
c_733878.elements[3] = ((closureN)self_732651)->elements[4];

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_733878, ((closureN)self_732651)->elements[1], macro_91env_73212_73916, ((closureN)self_732651)->elements[4], NULL, ((closureN)self_732651)->elements[3]);; 
}

static void __lambda_126(void *data, object self_732652, int argc, object *args) /* object self_732652, object expanded_73215_73917 */
 {
 object expanded_73215_73917 = args[0];
  
closureN_type c_733880;
object e_733886 [4];
c_733880.hdr.mark = gc_color_red;
 c_733880.hdr.grayed = 0;
c_733880.tag = closureN_tag;
 c_733880.fn = (function_type)__lambda_127;
c_733880.num_args = 1;
c_733880.num_elements = 4;
c_733880.elements = (object *)e_733886;
c_733880.elements[0] = ((closureN)self_732652)->elements[0];
c_733880.elements[1] = ((closureN)self_732652)->elements[1];
c_733880.elements[2] = ((closureN)self_732652)->elements[2];
c_733880.elements[3] = ((closureN)self_732652)->elements[3];

return_direct_with_clo3(data,  __glo_macro_117cleanup_scheme_eval, (((closure)  __glo_macro_117cleanup_scheme_eval)->fn),  &c_733880, expanded_73215_73917, ((closureN)self_732652)->elements[3]);; 
}

static void __lambda_127(void *data, object self_732653, int argc, object *args) /* object self_732653, object cleaned_73218_73918 */
 {
 object cleaned_73218_73918 = args[0];
  return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  ((closureN)self_732653)->elements[1], cleaned_73218_73918, ((closureN)self_732653)->elements[0], ((closureN)self_732653)->elements[3], ((closureN)self_732653)->elements[2]);; 
}

static void __lambda_111(void *data, object _, int argc, object *args) /* closure _,object k_731437, object exp_73183_73902, object a_91env_73184_73903, object rename_91env_73185_73904, object local_91renamed_73186_73905 */
 {
object k_731437 = args[0]; object exp_73183_73902 = args[1]; object a_91env_73184_73903 = args[2]; object rename_91env_73185_73904 = args[3]; object local_91renamed_73186_73905 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:analyze-let-syntax");

closureN_type c_733843;
object e_733853 [4];
c_733843.hdr.mark = gc_color_red;
 c_733843.hdr.grayed = 0;
c_733843.tag = closureN_tag;
 c_733843.fn = (function_type)__lambda_112;
c_733843.num_args = 1;
c_733843.num_elements = 4;
c_733843.elements = (object *)e_733853;
c_733843.elements[0] = a_91env_73184_73903;
c_733843.elements[1] = k_731437;
c_733843.elements[2] = local_91renamed_73186_73905;
c_733843.elements[3] = rename_91env_73185_73904;

return_direct_with_clo6(data,  __glo__191expand_scheme_eval, (((closure)  __glo__191expand_scheme_eval)->fn),  &c_733843, exp_73183_73902, a_91env_73184_73903, rename_91env_73185_73904, NULL, local_91renamed_73186_73905);; 
}

static void __lambda_112(void *data, object self_732635, int argc, object *args) /* object self_732635, object expanded_73189_73906 */
 {
 object expanded_73189_73906 = args[0];
  
closureN_type c_733845;
object e_733851 [4];
c_733845.hdr.mark = gc_color_red;
 c_733845.hdr.grayed = 0;
c_733845.tag = closureN_tag;
 c_733845.fn = (function_type)__lambda_113;
c_733845.num_args = 1;
c_733845.num_elements = 4;
c_733845.elements = (object *)e_733851;
c_733845.elements[0] = ((closureN)self_732635)->elements[0];
c_733845.elements[1] = ((closureN)self_732635)->elements[1];
c_733845.elements[2] = ((closureN)self_732635)->elements[2];
c_733845.elements[3] = ((closureN)self_732635)->elements[3];

return_direct_with_clo3(data,  __glo_macro_117cleanup_scheme_eval, (((closure)  __glo_macro_117cleanup_scheme_eval)->fn),  &c_733845, expanded_73189_73906, ((closureN)self_732635)->elements[3]);; 
}

static void __lambda_113(void *data, object self_732636, int argc, object *args) /* object self_732636, object cleaned_73192_73907 */
 {
 object cleaned_73192_73907 = args[0];
  return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  ((closureN)self_732636)->elements[1], cleaned_73192_73907, ((closureN)self_732636)->elements[0], ((closureN)self_732636)->elements[3], ((closureN)self_732636)->elements[2]);; 
}

static void __lambda_103(void *data, object _, int argc, object *args) /* closure _,object k_731428, object exp_73176_73895, object a_91env_73177_73896, object rename_91env_73178_73897, object local_91renamed_73179_73898 */
 {
object k_731428 = args[0]; object exp_73176_73895 = args[1]; object a_91env_73177_73896 = args[2]; object rename_91env_73178_73897 = args[3]; object local_91renamed_73179_73898 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:analyze-definition");

closureN_type c_733810;
object e_733840 [5];
c_733810.hdr.mark = gc_color_red;
 c_733810.hdr.grayed = 0;
c_733810.tag = closureN_tag;
 c_733810.fn = (function_type)__lambda_104;
c_733810.num_args = 1;
c_733810.num_elements = 5;
c_733810.elements = (object *)e_733840;
c_733810.elements[0] = a_91env_73177_73896;
c_733810.elements[1] = exp_73176_73895;
c_733810.elements[2] = k_731428;
c_733810.elements[3] = local_91renamed_73179_73898;
c_733810.elements[4] = rename_91env_73178_73897;

return_direct_with_clo2(data,  __glo_definition_91variable_scheme_eval, (((closure)  __glo_definition_91variable_scheme_eval)->fn),  &c_733810, exp_73176_73895);; 
}

static void __lambda_104(void *data, object self_732628, int argc, object *args) /* object self_732628, object r_731429 */
 {
 object r_731429 = args[0];
  
closureN_type c_733812;
object e_733838 [5];
c_733812.hdr.mark = gc_color_red;
 c_733812.hdr.grayed = 0;
c_733812.tag = closureN_tag;
 c_733812.fn = (function_type)__lambda_105;
c_733812.num_args = 1;
c_733812.num_elements = 5;
c_733812.elements = (object *)e_733838;
c_733812.elements[0] = ((closureN)self_732628)->elements[0];
c_733812.elements[1] = ((closureN)self_732628)->elements[2];
c_733812.elements[2] = ((closureN)self_732628)->elements[3];
c_733812.elements[3] = r_731429;
c_733812.elements[4] = ((closureN)self_732628)->elements[4];

return_direct_with_clo2(data,  __glo_definition_91value_scheme_eval, (((closure)  __glo_definition_91value_scheme_eval)->fn),  &c_733812, ((closureN)self_732628)->elements[1]);; 
}

static void __lambda_105(void *data, object self_732629, int argc, object *args) /* object self_732629, object r_731434 */
 {
 object r_731434 = args[0];
  
closureN_type c_733814;
object e_733834 [2];
c_733814.hdr.mark = gc_color_red;
 c_733814.hdr.grayed = 0;
c_733814.tag = closureN_tag;
 c_733814.fn = (function_type)__lambda_106;
c_733814.num_args = 1;
c_733814.num_elements = 2;
c_733814.elements = (object *)e_733834;
c_733814.elements[0] = ((closureN)self_732629)->elements[1];
c_733814.elements[1] = ((closureN)self_732629)->elements[3];

return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  &c_733814, r_731434, ((closureN)self_732629)->elements[0], ((closureN)self_732629)->elements[4], ((closureN)self_732629)->elements[2]);; 
}

static void __lambda_106(void *data, object self_732630, int argc, object *args) /* object self_732630, object r_731430 */
 {
 object r_731430 = args[0];
  
closureN_type c_733816;
object e_733832 [1];
c_733816.hdr.mark = gc_color_red;
 c_733816.hdr.grayed = 0;
c_733816.tag = closureN_tag;
 c_733816.fn = (function_type)__lambda_107;
c_733816.num_args = 2;
c_733816.num_elements = 1;
c_733816.elements = (object *)e_733832;
c_733816.elements[0] = ((closureN)self_732630)->elements[0];

return_direct_with_clo2(data,(closure)&c_733816,__lambda_107,  ((closureN)self_732630)->elements[1], r_731430);; 
}

static void __lambda_107(void *data, object self_732631, int argc, object *args) /* object self_732631, object var_73180_73899, object vproc_73181_73900 */
 {
 object var_73180_73899 = args[0]; object vproc_73181_73900 = args[1];
  
closureN_type c_733819;
object e_733831 [2];
c_733819.hdr.mark = gc_color_red;
 c_733819.hdr.grayed = 0;
c_733819.tag = closureN_tag;
 c_733819.fn = (function_type)__lambda_108;
c_733819.num_args = 1;
c_733819.num_elements = 2;
c_733819.elements = (object *)e_733831;
c_733819.elements[0] = var_73180_73899;
c_733819.elements[1] = vproc_73181_73900;

return_direct_with_clo1(data,  ((closureN)self_732631)->elements[0], (((closure)  ((closureN)self_732631)->elements[0])->fn),  &c_733819);; 
}

static void __lambda_108(void *data, object self_732632, int argc, object *args) /* object self_732632, object k_731431, object env_73182_73901 */
 {
 object k_731431 = args[0]; object env_73182_73901 = args[1];
  
closureN_type c_733822;
object e_733830 [3];
c_733822.hdr.mark = gc_color_red;
 c_733822.hdr.grayed = 0;
c_733822.tag = closureN_tag;
 c_733822.fn = (function_type)__lambda_109;
c_733822.num_args = 1;
c_733822.num_elements = 3;
c_733822.elements = (object *)e_733830;
c_733822.elements[0] = env_73182_73901;
c_733822.elements[1] = k_731431;
c_733822.elements[2] = ((closureN)self_732632)->elements[0];

return_closcall2(data,  ((closureN)self_732632)->elements[1],  &c_733822, env_73182_73901);; 
}

static void __lambda_109(void *data, object self_732633, int argc, object *args) /* object self_732633, object r_731433 */
 {
 object r_731433 = args[0];
  
closureN_type c_733824;
object e_733827 [1];
c_733824.hdr.mark = gc_color_red;
 c_733824.hdr.grayed = 0;
c_733824.tag = closureN_tag;
 c_733824.fn = (function_type)__lambda_110;
c_733824.num_args = 1;
c_733824.num_elements = 1;
c_733824.elements = (object *)e_733827;
c_733824.elements[0] = ((closureN)self_732633)->elements[1];

return_direct_with_clo4(data,  __glo_env_117define_91variable_67_scheme_cyclone_util, (((closure)  __glo_env_117define_91variable_67_scheme_cyclone_util)->fn),  &c_733824, ((closureN)self_732633)->elements[2], r_731433, ((closureN)self_732633)->elements[0]);; 
}

static void __lambda_110(void *data, object self_732634, int argc, object *args) /* object self_732634, object r_731432 */
 {

  return_direct_with_clo1(data,  ((closureN)self_732634)->elements[0], (((closure)  ((closureN)self_732634)->elements[0])->fn),  quote_ok);; 
}

static void __lambda_97(void *data, object _, int argc, object *args) /* closure _,object k_731419, object exp_73169_73888, object a_91env_73170_73889, object rename_91env_73171_73890, object local_91renamed_73172_73891 */
 {
object k_731419 = args[0]; object exp_73169_73888 = args[1]; object a_91env_73170_73889 = args[2]; object rename_91env_73171_73890 = args[3]; object local_91renamed_73172_73891 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:analyze-assignment");

closureN_type c_733783;
object e_733805 [2];
c_733783.hdr.mark = gc_color_red;
 c_733783.hdr.grayed = 0;
c_733783.tag = closureN_tag;
 c_733783.fn = (function_type)__lambda_98;
c_733783.num_args = 1;
c_733783.num_elements = 2;
c_733783.elements = (object *)e_733805;
c_733783.elements[0] = exp_73169_73888;
c_733783.elements[1] = k_731419;



return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  &c_733783, Cyc_caddr(data, exp_73169_73888), a_91env_73170_73889, rename_91env_73171_73890, local_91renamed_73172_73891);; 
}

static void __lambda_98(void *data, object self_732623, int argc, object *args) /* object self_732623, object r_731421 */
 {
 object r_731421 = args[0];
  
closureN_type c_733785;
object e_733801 [1];
c_733785.hdr.mark = gc_color_red;
 c_733785.hdr.grayed = 0;
c_733785.tag = closureN_tag;
 c_733785.fn = (function_type)__lambda_99;
c_733785.num_args = 2;
c_733785.num_elements = 1;
c_733785.elements = (object *)e_733801;
c_733785.elements[0] = ((closureN)self_732623)->elements[1];



return_direct_with_clo2(data,(closure)&c_733785,__lambda_99,  Cyc_cadr(data, ((closureN)self_732623)->elements[0]), r_731421);; 
}

static void __lambda_99(void *data, object self_732624, int argc, object *args) /* object self_732624, object var_73173_73892, object vproc_73174_73893 */
 {
 object var_73173_73892 = args[0]; object vproc_73174_73893 = args[1];
  
closureN_type c_733788;
object e_733800 [2];
c_733788.hdr.mark = gc_color_red;
 c_733788.hdr.grayed = 0;
c_733788.tag = closureN_tag;
 c_733788.fn = (function_type)__lambda_100;
c_733788.num_args = 1;
c_733788.num_elements = 2;
c_733788.elements = (object *)e_733800;
c_733788.elements[0] = var_73173_73892;
c_733788.elements[1] = vproc_73174_73893;

return_direct_with_clo1(data,  ((closureN)self_732624)->elements[0], (((closure)  ((closureN)self_732624)->elements[0])->fn),  &c_733788);; 
}

static void __lambda_100(void *data, object self_732625, int argc, object *args) /* object self_732625, object k_731422, object env_73175_73894 */
 {
 object k_731422 = args[0]; object env_73175_73894 = args[1];
  
closureN_type c_733791;
object e_733799 [3];
c_733791.hdr.mark = gc_color_red;
 c_733791.hdr.grayed = 0;
c_733791.tag = closureN_tag;
 c_733791.fn = (function_type)__lambda_101;
c_733791.num_args = 1;
c_733791.num_elements = 3;
c_733791.elements = (object *)e_733799;
c_733791.elements[0] = env_73175_73894;
c_733791.elements[1] = k_731422;
c_733791.elements[2] = ((closureN)self_732625)->elements[0];

return_closcall2(data,  ((closureN)self_732625)->elements[1],  &c_733791, env_73175_73894);; 
}

static void __lambda_101(void *data, object self_732626, int argc, object *args) /* object self_732626, object r_731424 */
 {
 object r_731424 = args[0];
  
closureN_type c_733793;
object e_733796 [1];
c_733793.hdr.mark = gc_color_red;
 c_733793.hdr.grayed = 0;
c_733793.tag = closureN_tag;
 c_733793.fn = (function_type)__lambda_102;
c_733793.num_args = 1;
c_733793.num_elements = 1;
c_733793.elements = (object *)e_733796;
c_733793.elements[0] = ((closureN)self_732626)->elements[1];

return_direct_with_clo4(data,  __glo_env_117set_91variable_91value_67_scheme_cyclone_util, (((closure)  __glo_env_117set_91variable_91value_67_scheme_cyclone_util)->fn),  &c_733793, ((closureN)self_732626)->elements[2], r_731424, ((closureN)self_732626)->elements[0]);; 
}

static void __lambda_102(void *data, object self_732627, int argc, object *args) /* object self_732627, object r_731423 */
 {

  return_direct_with_clo1(data,  ((closureN)self_732627)->elements[0], (((closure)  ((closureN)self_732627)->elements[0])->fn),  quote_ok);; 
}

static void __lambda_91(void *data, object _, int argc, object *args) /* closure _,object k_731410, object exp_73154_73882, object local_91renamed_73155_73883 */
 {
object k_731410 = args[0]; object exp_73154_73882 = args[1]; object local_91renamed_73155_73883 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:analyze-variable");

closureN_type c_733747;
object e_733778 [3];
c_733747.hdr.mark = gc_color_red;
 c_733747.hdr.grayed = 0;
c_733747.tag = closureN_tag;
 c_733747.fn = (function_type)__lambda_92;
c_733747.num_args = 1;
c_733747.num_elements = 3;
c_733747.elements = (object *)e_733778;
c_733747.elements[0] = exp_73154_73882;
c_733747.elements[1] = k_731410;
c_733747.elements[2] = local_91renamed_73155_73883;



return_direct_with_clo1(data,(closure)&c_733747,__lambda_92,  assoc(data, exp_73154_73882, local_91renamed_73155_73883));; 
}

static void __lambda_92(void *data, object self_732618, int argc, object *args) /* object self_732618, object lookup_73158_73884 */
 {
 object lookup_73158_73884 = args[0];
  
closureN_type c_733749;
object e_733769 [3];
c_733749.hdr.mark = gc_color_red;
 c_733749.hdr.grayed = 0;
c_733749.tag = closureN_tag;
 c_733749.fn = (function_type)__lambda_93;
c_733749.num_args = 0;
c_733749.num_elements = 3;
c_733749.elements = (object *)e_733769;
c_733749.elements[0] = ((closureN)self_732618)->elements[0];
c_733749.elements[1] = ((closureN)self_732618)->elements[2];
c_733749.elements[2] = lookup_73158_73884;


closureN_type c_733770;
object e_733777 [1];
c_733770.hdr.mark = gc_color_red;
 c_733770.hdr.grayed = 0;
c_733770.tag = closureN_tag;
 c_733770.fn = (function_type)__lambda_95;
c_733770.num_args = 1;
c_733770.num_elements = 1;
c_733770.elements = (object *)e_733777;
c_733770.elements[0] = ((closureN)self_732618)->elements[1];

return_direct_with_clo1(data,(closure)&c_733749,__lambda_93,  &c_733770);; 
}

static void __lambda_95(void *data, object self_732619, int argc, object *args) /* object self_732619, object sym_73161_73885 */
 {
 object sym_73161_73885 = args[0];
  
closureN_type c_733773;
object e_733776 [1];
c_733773.hdr.mark = gc_color_red;
 c_733773.hdr.grayed = 0;
c_733773.tag = closureN_tag;
 c_733773.fn = (function_type)__lambda_96;
c_733773.num_args = 1;
c_733773.num_elements = 1;
c_733773.elements = (object *)e_733776;
c_733773.elements[0] = sym_73161_73885;

return_direct_with_clo1(data,  ((closureN)self_732619)->elements[0], (((closure)  ((closureN)self_732619)->elements[0])->fn),  &c_733773);; 
}

static void __lambda_96(void *data, object self_732620, int argc, object *args) /* object self_732620, object k_731413, object env_73163_73886 */
 {
 object k_731413 = args[0]; object env_73163_73886 = args[1];
  return_direct_with_clo3(data,  __glo_env_117lookup_91variable_91value_scheme_cyclone_util, (((closure)  __glo_env_117lookup_91variable_91value_scheme_cyclone_util)->fn),  k_731413, ((closureN)self_732620)->elements[0], env_73163_73886);; 
}

static void __lambda_93(void *data, object self_732621, int argc, object *args) /* object self_732621, object k_731414 */
 {
 object k_731414 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_732621)->elements[2])) ){ 
  

return_direct_with_clo1(data,  k_731414, (((closure)  k_731414)->fn),  Cyc_car(data, ((closureN)self_732621)->elements[2]));
} else { 
  
closureN_type c_733758;
object e_733766 [2];
c_733758.hdr.mark = gc_color_red;
 c_733758.hdr.grayed = 0;
c_733758.tag = closureN_tag;
 c_733758.fn = (function_type)__lambda_94;
c_733758.num_args = 1;
c_733758.num_elements = 2;
c_733758.elements = (object *)e_733766;
c_733758.elements[0] = ((closureN)self_732621)->elements[0];
c_733758.elements[1] = k_731414;

return_direct_with_clo3(data,  __glo_assoc_91cdr_scheme_eval, (((closure)  __glo_assoc_91cdr_scheme_eval)->fn),  &c_733758, ((closureN)self_732621)->elements[0], ((closureN)self_732621)->elements[1]);}
;; 
}

static void __lambda_94(void *data, object self_732622, int argc, object *args) /* object self_732622, object lookup_91by_91renamed_73168_73887 */
 {
 object lookup_91by_91renamed_73168_73887 = args[0];
  if( (boolean_f != lookup_91by_91renamed_73168_73887) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_732622)->elements[1], (((closure)  ((closureN)self_732622)->elements[1])->fn),  Cyc_car(data, lookup_91by_91renamed_73168_73887));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732622)->elements[1], (((closure)  ((closureN)self_732622)->elements[1])->fn),  ((closureN)self_732622)->elements[0]);}
;; 
}

static void __lambda_545(void *data, object _, int argc, object *args) {object k = args[0];object x = args[1];object lis = args[2]; return_closcall1(data, k, assoc_cdr(data, x, lis));  }
static void __lambda_88(void *data, object _, int argc, object *args) /* closure _,object k_731404, object exp_73151_73879 */
 {
object k_731404 = args[0]; object exp_73151_73879 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:analyze-quoted");

closureN_type c_733732;
object e_733741 [2];
c_733732.hdr.mark = gc_color_red;
 c_733732.hdr.grayed = 0;
c_733732.tag = closureN_tag;
 c_733732.fn = (function_type)__lambda_89;
c_733732.num_args = 1;
c_733732.num_elements = 2;
c_733732.elements = (object *)e_733741;
c_733732.elements[0] = exp_73151_73879;
c_733732.elements[1] = k_731404;



return_direct_with_clo3(data,  __glo_Cyc_91set_91immutable_67_scheme_cyclone_util, (((closure)  __glo_Cyc_91set_91immutable_67_scheme_cyclone_util)->fn),  &c_733732, Cyc_cadr(data, exp_73151_73879), boolean_t);; 
}

static void __lambda_89(void *data, object self_732616, int argc, object *args) /* object self_732616, object r_731406 */
 {

  
closureN_type c_733735;
object e_733740 [1];
c_733735.hdr.mark = gc_color_red;
 c_733735.hdr.grayed = 0;
c_733735.tag = closureN_tag;
 c_733735.fn = (function_type)__lambda_90;
c_733735.num_args = 1;
c_733735.num_elements = 1;
c_733735.elements = (object *)e_733740;
c_733735.elements[0] = ((closureN)self_732616)->elements[0];

return_direct_with_clo1(data,  ((closureN)self_732616)->elements[1], (((closure)  ((closureN)self_732616)->elements[1])->fn),  &c_733735);; 
}

static void __lambda_90(void *data, object self_732617, int argc, object *args) /* object self_732617, object k_731407, object env_73153_73881 */
 {
 object k_731407 = args[0];
  

return_direct_with_clo1(data,  k_731407, (((closure)  k_731407)->fn),  Cyc_cadr(data, ((closureN)self_732617)->elements[0]));; 
}

static void __lambda_86(void *data, object _, int argc, object *args) /* closure _,object k_731400, object exp_73149_73877 */
 {
object k_731400 = args[0]; object exp_73149_73877 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:analyze-self-evaluating");

closureN_type c_733726;
object e_733729 [1];
c_733726.hdr.mark = gc_color_red;
 c_733726.hdr.grayed = 0;
c_733726.tag = closureN_tag;
 c_733726.fn = (function_type)__lambda_87;
c_733726.num_args = 1;
c_733726.num_elements = 1;
c_733726.elements = (object *)e_733729;
c_733726.elements[0] = exp_73149_73877;

return_direct_with_clo1(data,  k_731400, (((closure)  k_731400)->fn),  &c_733726);; 
}

static void __lambda_87(void *data, object self_732615, int argc, object *args) /* object self_732615, object k_731401, object env_73150_73878 */
 {
 object k_731401 = args[0];
  return_direct_with_clo1(data,  k_731401, (((closure)  k_731401)->fn),  ((closureN)self_732615)->elements[0]);; 
}

static void __lambda_65(void *data, object _, int argc, object *args) /* closure _,object k_731350, object exp_7393_73871, object env_7394_73872, object rename_91env_7395_73873, object local_91renamed_7396_73874 */
 {
object k_731350 = args[0]; object exp_7393_73871 = args[1]; object env_7394_73872 = args[2]; object rename_91env_7395_73873 = args[3]; object local_91renamed_7396_73874 = args[4];
  Cyc_st_add(data, "scheme/eval.sld:analyze");

closureN_type c_733482;
object e_733723 [5];
c_733482.hdr.mark = gc_color_red;
 c_733482.hdr.grayed = 0;
c_733482.tag = closureN_tag;
 c_733482.fn = (function_type)__lambda_66;
c_733482.num_args = 1;
c_733482.num_elements = 5;
c_733482.elements = (object *)e_733723;
c_733482.elements[0] = env_7394_73872;
c_733482.elements[1] = exp_7393_73871;
c_733482.elements[2] = k_731350;
c_733482.elements[3] = local_91renamed_7396_73874;
c_733482.elements[4] = rename_91env_7395_73873;

return_direct_with_clo2(data,  __glo_self_91evaluating_127_scheme_eval, (((closure)  __glo_self_91evaluating_127_scheme_eval)->fn),  &c_733482, exp_7393_73871);; 
}

static void __lambda_66(void *data, object self_732595, int argc, object *args) /* object self_732595, object r_731351 */
 {
 object r_731351 = args[0];
  if( (boolean_f != r_731351) ){ 
  return_direct_with_clo2(data,  __glo_analyze_91self_91evaluating_scheme_eval, (((closure)  __glo_analyze_91self_91evaluating_scheme_eval)->fn),  ((closureN)self_732595)->elements[2], ((closureN)self_732595)->elements[1]);
} else { 
  
closureN_type c_733487;
object e_733718 [5];
c_733487.hdr.mark = gc_color_red;
 c_733487.hdr.grayed = 0;
c_733487.tag = closureN_tag;
 c_733487.fn = (function_type)__lambda_67;
c_733487.num_args = 1;
c_733487.num_elements = 5;
c_733487.elements = (object *)e_733718;
c_733487.elements[0] = ((closureN)self_732595)->elements[0];
c_733487.elements[1] = ((closureN)self_732595)->elements[1];
c_733487.elements[2] = ((closureN)self_732595)->elements[2];
c_733487.elements[3] = ((closureN)self_732595)->elements[3];
c_733487.elements[4] = ((closureN)self_732595)->elements[4];


complex_num_type local_733721; 
return_direct_with_clo1(data,(closure)&c_733487,__lambda_67,  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733721, quote_quote, ((closureN)self_732595)->elements[1]));}
;; 
}

static void __lambda_67(void *data, object self_732596, int argc, object *args) /* object self_732596, object r_731352 */
 {
 object r_731352 = args[0];
  if( (boolean_f != r_731352) ){ 
  return_direct_with_clo2(data,  __glo_analyze_91quoted_scheme_eval, (((closure)  __glo_analyze_91quoted_scheme_eval)->fn),  ((closureN)self_732596)->elements[2], ((closureN)self_732596)->elements[1]);
} else { 
    
if( (boolean_f != Cyc_is_symbol(((closureN)self_732596)->elements[1])) ){ 
  return_direct_with_clo3(data,  __glo_analyze_91variable_scheme_eval, (((closure)  __glo_analyze_91variable_scheme_eval)->fn),  ((closureN)self_732596)->elements[2], ((closureN)self_732596)->elements[1], ((closureN)self_732596)->elements[3]);
} else { 
  object r_731354;
    object local_733501 = alloca(sizeof(complex_num_type)); 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,local_733501, quote_set_67, ((closureN)self_732596)->elements[1])) ){ 
  object local_733506 = alloca(sizeof(complex_num_type)); 
  
  
  r_731354 = ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,local_733506, Cyc_is_null(Cyc_cdr(data, ((closureN)self_732596)->elements[1])));
} else { 
  r_731354 = boolean_f;}
;if( (boolean_f != r_731354) ){ 
  return_direct_with_clo5(data,  __glo_analyze_91assignment_scheme_eval, (((closure)  __glo_analyze_91assignment_scheme_eval)->fn),  ((closureN)self_732596)->elements[2], ((closureN)self_732596)->elements[1], ((closureN)self_732596)->elements[0], ((closureN)self_732596)->elements[4], ((closureN)self_732596)->elements[3]);
} else { 
  
closureN_type c_733520;
object e_733535 [1];
c_733520.hdr.mark = gc_color_red;
 c_733520.hdr.grayed = 0;
c_733520.tag = closureN_tag;
 c_733520.fn = (function_type)__lambda_68;
c_733520.num_args = 0;
c_733520.num_elements = 1;
c_733520.elements = (object *)e_733535;
c_733520.elements[0] = ((closureN)self_732596)->elements[1];


closureN_type c_733536;
object e_733717 [5];
c_733536.hdr.mark = gc_color_red;
 c_733536.hdr.grayed = 0;
c_733536.tag = closureN_tag;
 c_733536.fn = (function_type)__lambda_69;
c_733536.num_args = 1;
c_733536.num_elements = 5;
c_733536.elements = (object *)e_733717;
c_733536.elements[0] = ((closureN)self_732596)->elements[0];
c_733536.elements[1] = ((closureN)self_732596)->elements[1];
c_733536.elements[2] = ((closureN)self_732596)->elements[2];
c_733536.elements[3] = ((closureN)self_732596)->elements[3];
c_733536.elements[4] = ((closureN)self_732596)->elements[4];

return_direct_with_clo1(data,(closure)&c_733520,__lambda_68,  &c_733536);}
;}
;}
;; 
}

static void __lambda_69(void *data, object self_732597, int argc, object *args) /* object self_732597, object r_731355 */
 {
 object r_731355 = args[0];
  if( (boolean_f != r_731355) ){ 
  return_direct_with_clo5(data,  __glo_analyze_91definition_scheme_eval, (((closure)  __glo_analyze_91definition_scheme_eval)->fn),  ((closureN)self_732597)->elements[2], ((closureN)self_732597)->elements[1], ((closureN)self_732597)->elements[0], ((closureN)self_732597)->elements[4], ((closureN)self_732597)->elements[3]);
} else { 
  
closureN_type c_733544;
object e_733559 [1];
c_733544.hdr.mark = gc_color_red;
 c_733544.hdr.grayed = 0;
c_733544.tag = closureN_tag;
 c_733544.fn = (function_type)__lambda_70;
c_733544.num_args = 0;
c_733544.num_elements = 1;
c_733544.elements = (object *)e_733559;
c_733544.elements[0] = ((closureN)self_732597)->elements[1];


closureN_type c_733560;
object e_733716 [5];
c_733560.hdr.mark = gc_color_red;
 c_733560.hdr.grayed = 0;
c_733560.tag = closureN_tag;
 c_733560.fn = (function_type)__lambda_71;
c_733560.num_args = 1;
c_733560.num_elements = 5;
c_733560.elements = (object *)e_733716;
c_733560.elements[0] = ((closureN)self_732597)->elements[0];
c_733560.elements[1] = ((closureN)self_732597)->elements[1];
c_733560.elements[2] = ((closureN)self_732597)->elements[2];
c_733560.elements[3] = ((closureN)self_732597)->elements[3];
c_733560.elements[4] = ((closureN)self_732597)->elements[4];

return_direct_with_clo1(data,(closure)&c_733544,__lambda_70,  &c_733560);}
;; 
}

static void __lambda_71(void *data, object self_732598, int argc, object *args) /* object self_732598, object r_731356 */
 {
 object r_731356 = args[0];
  if( (boolean_f != r_731356) ){ 
  return_direct_with_clo4(data,  __glo_analyze_91syntax_scheme_eval, (((closure)  __glo_analyze_91syntax_scheme_eval)->fn),  ((closureN)self_732598)->elements[2], ((closureN)self_732598)->elements[1], ((closureN)self_732598)->elements[0], ((closureN)self_732598)->elements[3]);
} else { 
  
closureN_type c_733567;
object e_733582 [1];
c_733567.hdr.mark = gc_color_red;
 c_733567.hdr.grayed = 0;
c_733567.tag = closureN_tag;
 c_733567.fn = (function_type)__lambda_72;
c_733567.num_args = 0;
c_733567.num_elements = 1;
c_733567.elements = (object *)e_733582;
c_733567.elements[0] = ((closureN)self_732598)->elements[1];


closureN_type c_733583;
object e_733715 [5];
c_733583.hdr.mark = gc_color_red;
 c_733583.hdr.grayed = 0;
c_733583.tag = closureN_tag;
 c_733583.fn = (function_type)__lambda_73;
c_733583.num_args = 1;
c_733583.num_elements = 5;
c_733583.elements = (object *)e_733715;
c_733583.elements[0] = ((closureN)self_732598)->elements[0];
c_733583.elements[1] = ((closureN)self_732598)->elements[1];
c_733583.elements[2] = ((closureN)self_732598)->elements[2];
c_733583.elements[3] = ((closureN)self_732598)->elements[3];
c_733583.elements[4] = ((closureN)self_732598)->elements[4];

return_direct_with_clo1(data,(closure)&c_733567,__lambda_72,  &c_733583);}
;; 
}

static void __lambda_73(void *data, object self_732599, int argc, object *args) /* object self_732599, object r_731357 */
 {
 object r_731357 = args[0];
  if( (boolean_f != r_731357) ){ 
  return_direct_with_clo5(data,  __glo_analyze_91let_91syntax_scheme_eval, (((closure)  __glo_analyze_91let_91syntax_scheme_eval)->fn),  ((closureN)self_732599)->elements[2], ((closureN)self_732599)->elements[1], ((closureN)self_732599)->elements[0], ((closureN)self_732599)->elements[4], ((closureN)self_732599)->elements[3]);
} else { 
  
closureN_type c_733591;
object e_733606 [1];
c_733591.hdr.mark = gc_color_red;
 c_733591.hdr.grayed = 0;
c_733591.tag = closureN_tag;
 c_733591.fn = (function_type)__lambda_74;
c_733591.num_args = 0;
c_733591.num_elements = 1;
c_733591.elements = (object *)e_733606;
c_733591.elements[0] = ((closureN)self_732599)->elements[1];


closureN_type c_733607;
object e_733714 [5];
c_733607.hdr.mark = gc_color_red;
 c_733607.hdr.grayed = 0;
c_733607.tag = closureN_tag;
 c_733607.fn = (function_type)__lambda_75;
c_733607.num_args = 1;
c_733607.num_elements = 5;
c_733607.elements = (object *)e_733714;
c_733607.elements[0] = ((closureN)self_732599)->elements[0];
c_733607.elements[1] = ((closureN)self_732599)->elements[1];
c_733607.elements[2] = ((closureN)self_732599)->elements[2];
c_733607.elements[3] = ((closureN)self_732599)->elements[3];
c_733607.elements[4] = ((closureN)self_732599)->elements[4];

return_direct_with_clo1(data,(closure)&c_733591,__lambda_74,  &c_733607);}
;; 
}

static void __lambda_75(void *data, object self_732600, int argc, object *args) /* object self_732600, object r_731358 */
 {
 object r_731358 = args[0];
  if( (boolean_f != r_731358) ){ 
  return_direct_with_clo5(data,  __glo_analyze_91letrec_91syntax_scheme_eval, (((closure)  __glo_analyze_91letrec_91syntax_scheme_eval)->fn),  ((closureN)self_732600)->elements[2], ((closureN)self_732600)->elements[1], ((closureN)self_732600)->elements[0], ((closureN)self_732600)->elements[4], ((closureN)self_732600)->elements[3]);
} else { 
  
closureN_type c_733615;
object e_733632 [1];
c_733615.hdr.mark = gc_color_red;
 c_733615.hdr.grayed = 0;
c_733615.tag = closureN_tag;
 c_733615.fn = (function_type)__lambda_76;
c_733615.num_args = 0;
c_733615.num_elements = 1;
c_733615.elements = (object *)e_733632;
c_733615.elements[0] = ((closureN)self_732600)->elements[1];


closureN_type c_733633;
object e_733713 [5];
c_733633.hdr.mark = gc_color_red;
 c_733633.hdr.grayed = 0;
c_733633.tag = closureN_tag;
 c_733633.fn = (function_type)__lambda_78;
c_733633.num_args = 1;
c_733633.num_elements = 5;
c_733633.elements = (object *)e_733713;
c_733633.elements[0] = ((closureN)self_732600)->elements[0];
c_733633.elements[1] = ((closureN)self_732600)->elements[1];
c_733633.elements[2] = ((closureN)self_732600)->elements[2];
c_733633.elements[3] = ((closureN)self_732600)->elements[3];
c_733633.elements[4] = ((closureN)self_732600)->elements[4];

return_direct_with_clo1(data,(closure)&c_733615,__lambda_76,  &c_733633);}
;; 
}

static void __lambda_78(void *data, object self_732601, int argc, object *args) /* object self_732601, object r_731359 */
 {
 object r_731359 = args[0];
  if( (boolean_f != r_731359) ){ 
  return_direct_with_clo5(data,  __glo_analyze_91if_scheme_eval, (((closure)  __glo_analyze_91if_scheme_eval)->fn),  ((closureN)self_732601)->elements[2], ((closureN)self_732601)->elements[1], ((closureN)self_732601)->elements[0], ((closureN)self_732601)->elements[4], ((closureN)self_732601)->elements[3]);
} else { 
  
closureN_type c_733641;
object e_733658 [1];
c_733641.hdr.mark = gc_color_red;
 c_733641.hdr.grayed = 0;
c_733641.tag = closureN_tag;
 c_733641.fn = (function_type)__lambda_79;
c_733641.num_args = 0;
c_733641.num_elements = 1;
c_733641.elements = (object *)e_733658;
c_733641.elements[0] = ((closureN)self_732601)->elements[1];


closureN_type c_733659;
object e_733712 [5];
c_733659.hdr.mark = gc_color_red;
 c_733659.hdr.grayed = 0;
c_733659.tag = closureN_tag;
 c_733659.fn = (function_type)__lambda_81;
c_733659.num_args = 1;
c_733659.num_elements = 5;
c_733659.elements = (object *)e_733712;
c_733659.elements[0] = ((closureN)self_732601)->elements[0];
c_733659.elements[1] = ((closureN)self_732601)->elements[1];
c_733659.elements[2] = ((closureN)self_732601)->elements[2];
c_733659.elements[3] = ((closureN)self_732601)->elements[3];
c_733659.elements[4] = ((closureN)self_732601)->elements[4];

return_direct_with_clo1(data,(closure)&c_733641,__lambda_79,  &c_733659);}
;; 
}

static void __lambda_81(void *data, object self_732602, int argc, object *args) /* object self_732602, object r_731360 */
 {
 object r_731360 = args[0];
  if( (boolean_f != r_731360) ){ 
  return_direct_with_clo5(data,  __glo_analyze_91lambda_scheme_eval, (((closure)  __glo_analyze_91lambda_scheme_eval)->fn),  ((closureN)self_732602)->elements[2], ((closureN)self_732602)->elements[1], ((closureN)self_732602)->elements[0], ((closureN)self_732602)->elements[4], ((closureN)self_732602)->elements[3]);
} else { 
  
closureN_type c_733667;
object e_733707 [5];
c_733667.hdr.mark = gc_color_red;
 c_733667.hdr.grayed = 0;
c_733667.tag = closureN_tag;
 c_733667.fn = (function_type)__lambda_82;
c_733667.num_args = 1;
c_733667.num_elements = 5;
c_733667.elements = (object *)e_733707;
c_733667.elements[0] = ((closureN)self_732602)->elements[0];
c_733667.elements[1] = ((closureN)self_732602)->elements[1];
c_733667.elements[2] = ((closureN)self_732602)->elements[2];
c_733667.elements[3] = ((closureN)self_732602)->elements[3];
c_733667.elements[4] = ((closureN)self_732602)->elements[4];


complex_num_type local_733710; 
return_direct_with_clo1(data,(closure)&c_733667,__lambda_82,  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733710, quote_import, ((closureN)self_732602)->elements[1]));}
;; 
}

static void __lambda_82(void *data, object self_732603, int argc, object *args) /* object self_732603, object r_731361 */
 {
 object r_731361 = args[0];
  if( (boolean_f != r_731361) ){ 
  return_direct_with_clo3(data,  __glo_analyze_91import_scheme_eval, (((closure)  __glo_analyze_91import_scheme_eval)->fn),  ((closureN)self_732603)->elements[2], ((closureN)self_732603)->elements[1], ((closureN)self_732603)->elements[0]);
} else { 
  
closureN_type c_733673;
object e_733702 [5];
c_733673.hdr.mark = gc_color_red;
 c_733673.hdr.grayed = 0;
c_733673.tag = closureN_tag;
 c_733673.fn = (function_type)__lambda_83;
c_733673.num_args = 1;
c_733673.num_elements = 5;
c_733673.elements = (object *)e_733702;
c_733673.elements[0] = ((closureN)self_732603)->elements[0];
c_733673.elements[1] = ((closureN)self_732603)->elements[1];
c_733673.elements[2] = ((closureN)self_732603)->elements[2];
c_733673.elements[3] = ((closureN)self_732603)->elements[3];
c_733673.elements[4] = ((closureN)self_732603)->elements[4];


complex_num_type local_733705; 
return_direct_with_clo1(data,(closure)&c_733673,__lambda_83,  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733705, __glo_procedure_91tag_scheme_eval, ((closureN)self_732603)->elements[1]));}
;; 
}

static void __lambda_83(void *data, object self_732604, int argc, object *args) /* object self_732604, object r_731362_732472 */
 {
 object r_731362_732472 = args[0];
  if( (boolean_f != r_731362_732472) ){ 
  
closureN_type c_733676;
object e_733679 [1];
c_733676.hdr.mark = gc_color_red;
 c_733676.hdr.grayed = 0;
c_733676.tag = closureN_tag;
 c_733676.fn = (function_type)__lambda_84;
c_733676.num_args = 1;
c_733676.num_elements = 1;
c_733676.elements = (object *)e_733679;
c_733676.elements[0] = ((closureN)self_732604)->elements[1];

return_direct_with_clo1(data,  ((closureN)self_732604)->elements[2], (((closure)  ((closureN)self_732604)->elements[2])->fn),  &c_733676);
} else { 
    
if( (boolean_f != Cyc_is_procedure(data, ((closureN)self_732604)->elements[1])) ){ 
  
closureN_type c_733685;
object e_733688 [1];
c_733685.hdr.mark = gc_color_red;
 c_733685.hdr.grayed = 0;
c_733685.tag = closureN_tag;
 c_733685.fn = (function_type)__lambda_85;
c_733685.num_args = 1;
c_733685.num_elements = 1;
c_733685.elements = (object *)e_733688;
c_733685.elements[0] = ((closureN)self_732604)->elements[1];

return_direct_with_clo1(data,  ((closureN)self_732604)->elements[2], (((closure)  ((closureN)self_732604)->elements[2])->fn),  &c_733685);
} else { 
    
if( (boolean_f != Cyc_is_pair(((closureN)self_732604)->elements[1])) ){ 
  return_direct_with_clo5(data,  __glo_pre_91analyze_91application_scheme_eval, (((closure)  __glo_pre_91analyze_91application_scheme_eval)->fn),  ((closureN)self_732604)->elements[2], ((closureN)self_732604)->elements[1], ((closureN)self_732604)->elements[0], ((closureN)self_732604)->elements[4], ((closureN)self_732604)->elements[3]);
} else { 
  
make_utf8_string_with_len(c_733700, "Unknown expression type -- ANALYZE", 34, 34);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_732604)->elements[2], &c_733700, ((closureN)self_732604)->elements[1]);}
;}
;}
;; 
}

static void __lambda_85(void *data, object self_732606, int argc, object *args) /* object self_732606, object k_731365_732475, object env_73144_73876_732476 */
 {
 object k_731365_732475 = args[0];
  return_direct_with_clo1(data,  k_731365_732475, (((closure)  k_731365_732475)->fn),  ((closureN)self_732606)->elements[0]);; 
}

static void __lambda_84(void *data, object self_732605, int argc, object *args) /* object self_732605, object k_731363_732473, object env_73140_73875_732474 */
 {
 object k_731363_732473 = args[0];
  return_direct_with_clo1(data,  k_731363_732473, (((closure)  k_731363_732473)->fn),  ((closureN)self_732605)->elements[0]);; 
}

static void __lambda_79(void *data, object self_732607, int argc, object *args) /* object self_732607, object k_731368 */
 {
 object k_731368 = args[0];
  
closureN_type c_733643;
object e_733656 [2];
c_733643.hdr.mark = gc_color_red;
 c_733643.hdr.grayed = 0;
c_733643.tag = closureN_tag;
 c_733643.fn = (function_type)__lambda_80;
c_733643.num_args = 1;
c_733643.num_elements = 2;
c_733643.elements = (object *)e_733656;
c_733643.elements[0] = ((closureN)self_732607)->elements[0];
c_733643.elements[1] = k_731368;

return_direct_with_clo2(data,  __glo_lambda_127_scheme_cyclone_util, (((closure)  __glo_lambda_127_scheme_cyclone_util)->fn),  &c_733643, ((closureN)self_732607)->elements[0]);; 
}

static void __lambda_80(void *data, object self_732608, int argc, object *args) /* object self_732608, object r_731369 */
 {
 object r_731369 = args[0];
  if( (boolean_f != r_731369) ){ 
  
complex_num_type local_733648; 




return_direct_with_clo1(data,  ((closureN)self_732608)->elements[1], (((closure)  ((closureN)self_732608)->elements[1])->fn),  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_733648, Cyc_is_null(Cyc_cdr(data, ((closureN)self_732608)->elements[0]))));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732608)->elements[1], (((closure)  ((closureN)self_732608)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_76(void *data, object self_732609, int argc, object *args) /* object self_732609, object k_731372 */
 {
 object k_731372 = args[0];
  
closureN_type c_733617;
object e_733630 [2];
c_733617.hdr.mark = gc_color_red;
 c_733617.hdr.grayed = 0;
c_733617.tag = closureN_tag;
 c_733617.fn = (function_type)__lambda_77;
c_733617.num_args = 1;
c_733617.num_elements = 2;
c_733617.elements = (object *)e_733630;
c_733617.elements[0] = ((closureN)self_732609)->elements[0];
c_733617.elements[1] = k_731372;

return_direct_with_clo2(data,  __glo_if_127_scheme_cyclone_util, (((closure)  __glo_if_127_scheme_cyclone_util)->fn),  &c_733617, ((closureN)self_732609)->elements[0]);; 
}

static void __lambda_77(void *data, object self_732610, int argc, object *args) /* object self_732610, object r_731373 */
 {
 object r_731373 = args[0];
  if( (boolean_f != r_731373) ){ 
  
complex_num_type local_733622; 




return_direct_with_clo1(data,  ((closureN)self_732610)->elements[1], (((closure)  ((closureN)self_732610)->elements[1])->fn),  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_733622, Cyc_is_null(Cyc_cdr(data, ((closureN)self_732610)->elements[0]))));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_732610)->elements[1], (((closure)  ((closureN)self_732610)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_74(void *data, object self_732611, int argc, object *args) /* object self_732611, object k_731376 */
 {
 object k_731376 = args[0];
    complex_num_type local_733594; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733594, quote_letrec_91syntax, ((closureN)self_732611)->elements[0])) ){ 
  
complex_num_type local_733599; 




return_direct_with_clo1(data,  k_731376,__lambda_75,  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_733599, Cyc_is_null(Cyc_cdr(data, ((closureN)self_732611)->elements[0]))));
} else { 
  return_direct_with_clo1(data,  k_731376,__lambda_75,  boolean_f);}
;; 
}

static void __lambda_72(void *data, object self_732612, int argc, object *args) /* object self_732612, object k_731381 */
 {
 object k_731381 = args[0];
    complex_num_type local_733570; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733570, quote_let_91syntax, ((closureN)self_732612)->elements[0])) ){ 
  
complex_num_type local_733575; 




return_direct_with_clo1(data,  k_731381,__lambda_73,  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_733575, Cyc_is_null(Cyc_cdr(data, ((closureN)self_732612)->elements[0]))));
} else { 
  return_direct_with_clo1(data,  k_731381,__lambda_73,  boolean_f);}
;; 
}

static void __lambda_70(void *data, object self_732613, int argc, object *args) /* object self_732613, object k_731386 */
 {
 object k_731386 = args[0];
    complex_num_type local_733547; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733547, quote_define_91syntax, ((closureN)self_732613)->elements[0])) ){ 
  
complex_num_type local_733552; 




return_direct_with_clo1(data,  k_731386,__lambda_71,  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_733552, Cyc_is_null(Cyc_cdr(data, ((closureN)self_732613)->elements[0]))));
} else { 
  return_direct_with_clo1(data,  k_731386,__lambda_71,  boolean_f);}
;; 
}

static void __lambda_68(void *data, object self_732614, int argc, object *args) /* object self_732614, object k_731390 */
 {
 object k_731390 = args[0];
    complex_num_type local_733523; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733523, quote_define, ((closureN)self_732614)->elements[0])) ){ 
  
complex_num_type local_733528; 




return_direct_with_clo1(data,  k_731390,__lambda_69,  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_733528, Cyc_is_null(Cyc_cdr(data, ((closureN)self_732614)->elements[0]))));
} else { 
  return_direct_with_clo1(data,  k_731390,__lambda_69,  boolean_f);}
;; 
}

static void __lambda_62(void *data, object _, int argc, object *args) /* closure _,object k_731341 */
 {
object k_731341 = args[0];
  Cyc_st_add(data, "scheme/eval.sld:create-initial-environment");

closureN_type c_733472;
object e_733479 [1];
c_733472.hdr.mark = gc_color_red;
 c_733472.hdr.grayed = 0;
c_733472.tag = closureN_tag;
 c_733472.fn = (function_type)__lambda_63;
c_733472.num_args = 1;
c_733472.num_elements = 1;
c_733472.elements = (object *)e_733479;
c_733472.elements[0] = k_731341;

return_direct_with_clo1(data,  __glo_primitive_91procedure_91names_scheme_eval, (((closure)  __glo_primitive_91procedure_91names_scheme_eval)->fn),  &c_733472);; 
}

static void __lambda_63(void *data, object self_732593, int argc, object *args) /* object self_732593, object r_731342 */
 {
 object r_731342 = args[0];
  
closureN_type c_733474;
object e_733478 [2];
c_733474.hdr.mark = gc_color_red;
 c_733474.hdr.grayed = 0;
c_733474.tag = closureN_tag;
 c_733474.fn = (function_type)__lambda_64;
c_733474.num_args = 1;
c_733474.num_elements = 2;
c_733474.elements = (object *)e_733478;
c_733474.elements[0] = ((closureN)self_732593)->elements[0];
c_733474.elements[1] = r_731342;

return_direct_with_clo1(data,  __glo_primitive_91procedure_91objects_scheme_eval, (((closure)  __glo_primitive_91procedure_91objects_scheme_eval)->fn),  &c_733474);; 
}

static void __lambda_64(void *data, object self_732594, int argc, object *args) /* object self_732594, object r_731343 */
 {
 object r_731343 = args[0];
  return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  ((closureN)self_732594)->elements[0], ((closureN)self_732594)->elements[1], r_731343, __glo_env_117the_91empty_91environment_scheme_cyclone_util);; 
}

static void __lambda_53(void *data, object _, int argc, object *args) /* closure _,object k_731327, object env_7389_73867_raw, ... */
 {
object k_731327 = args[0];
load_varargs(env_7389_73867, args, 1, argc - 1);
  Cyc_st_add(data, "scheme/eval.sld:setup-environment");

closureN_type c_733430;
object e_733439 [1];
c_733430.hdr.mark = gc_color_red;
 c_733430.hdr.grayed = 0;
c_733430.tag = closureN_tag;
 c_733430.fn = (function_type)__lambda_54;
c_733430.num_args = 0;
c_733430.num_elements = 1;
c_733430.elements = (object *)e_733439;
c_733430.elements[0] = env_7389_73867;


closureN_type c_733440;
object e_733469 [1];
c_733440.hdr.mark = gc_color_red;
 c_733440.hdr.grayed = 0;
c_733440.tag = closureN_tag;
 c_733440.fn = (function_type)__lambda_55;
c_733440.num_args = 1;
c_733440.num_elements = 1;
c_733440.elements = (object *)e_733469;
c_733440.elements[0] = k_731327;

return_direct_with_clo1(data,(closure)&c_733430,__lambda_54,  &c_733440);; 
}

static void __lambda_55(void *data, object self_732585, int argc, object *args) /* object self_732585, object initial_91env_7390_73868 */
 {
 object initial_91env_7390_73868 = args[0];
  
closureN_type c_733442;
object e_733464 [2];
c_733442.hdr.mark = gc_color_red;
 c_733442.hdr.grayed = 0;
c_733442.tag = closureN_tag;
 c_733442.fn = (function_type)__lambda_56;
c_733442.num_args = 1;
c_733442.num_elements = 2;
c_733442.elements = (object *)e_733464;
c_733442.elements[0] = initial_91env_7390_73868;
c_733442.elements[1] = ((closureN)self_732585)->elements[0];


mclosure0(c_733465, (function_type)__lambda_61);c_733465.num_args = 1;
return_direct_with_clo1(data,(closure)&c_733442,__lambda_56,  &c_733465);; 
}

static void __lambda_61(void *data, object self_732586, int argc, object *args) /* object self_732586, object k_731336, object v_7391_73869 */
 {
 object k_731336 = args[0]; object v_7391_73869 = args[1];
  

return_direct_with_clo1(data,  k_731336, (((closure)  k_731336)->fn),  Cyc_car(data, v_7391_73869));; 
}

static void __lambda_56(void *data, object self_732587, int argc, object *args) /* object self_732587, object r_731334 */
 {
 object r_731334 = args[0];
  
closureN_type c_733444;
object e_733461 [2];
c_733444.hdr.mark = gc_color_red;
 c_733444.hdr.grayed = 0;
c_733444.tag = closureN_tag;
 c_733444.fn = (function_type)__lambda_57;
c_733444.num_args = 1;
c_733444.num_elements = 2;
c_733444.elements = (object *)e_733461;
c_733444.elements[0] = ((closureN)self_732587)->elements[0];
c_733444.elements[1] = ((closureN)self_732587)->elements[1];



return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_733444, r_731334, Cyc_get_global_variables());; 
}

static void __lambda_57(void *data, object self_732588, int argc, object *args) /* object self_732588, object r_731329 */
 {
 object r_731329 = args[0];
  
closureN_type c_733446;
object e_733456 [3];
c_733446.hdr.mark = gc_color_red;
 c_733446.hdr.grayed = 0;
c_733446.tag = closureN_tag;
 c_733446.fn = (function_type)__lambda_58;
c_733446.num_args = 1;
c_733446.num_elements = 3;
c_733446.elements = (object *)e_733456;
c_733446.elements[0] = ((closureN)self_732588)->elements[0];
c_733446.elements[1] = ((closureN)self_732588)->elements[1];
c_733446.elements[2] = r_731329;


mclosure0(c_733457, (function_type)__lambda_60);c_733457.num_args = 1;
return_direct_with_clo1(data,(closure)&c_733446,__lambda_58,  &c_733457);; 
}

static void __lambda_60(void *data, object self_732589, int argc, object *args) /* object self_732589, object k_731333, object v_7392_73870 */
 {
 object k_731333 = args[0]; object v_7392_73870 = args[1];
  

return_direct_with_clo1(data,  k_731333, (((closure)  k_731333)->fn),  Cyc_cdr(data, v_7392_73870));; 
}

static void __lambda_58(void *data, object self_732590, int argc, object *args) /* object self_732590, object r_731331 */
 {
 object r_731331 = args[0];
  
closureN_type c_733448;
object e_733453 [3];
c_733448.hdr.mark = gc_color_red;
 c_733448.hdr.grayed = 0;
c_733448.tag = closureN_tag;
 c_733448.fn = (function_type)__lambda_59;
c_733448.num_args = 1;
c_733448.num_elements = 3;
c_733448.elements = (object *)e_733453;
c_733448.elements[0] = ((closureN)self_732590)->elements[0];
c_733448.elements[1] = ((closureN)self_732590)->elements[1];
c_733448.elements[2] = ((closureN)self_732590)->elements[2];



return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_733448, r_731331, Cyc_get_global_variables());; 
}

static void __lambda_59(void *data, object self_732591, int argc, object *args) /* object self_732591, object r_731330 */
 {
 object r_731330 = args[0];
  return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  ((closureN)self_732591)->elements[1], ((closureN)self_732591)->elements[2], r_731330, ((closureN)self_732591)->elements[0]);; 
}

static void __lambda_54(void *data, object self_732592, int argc, object *args) /* object self_732592, object k_731337 */
 {
 object k_731337 = args[0];
    
if( (boolean_f != Cyc_is_null(((closureN)self_732592)->elements[0])) ){ 
  return_direct_with_clo1(data,  __glo_create_91initial_91environment_scheme_eval, (((closure)  __glo_create_91initial_91environment_scheme_eval)->fn),  k_731337);
} else { 
  

return_direct_with_clo1(data,  k_731337, (((closure)  k_731337)->fn),  Cyc_car(data, ((closureN)self_732592)->elements[0]));}
;; 
}

static void __lambda_51(void *data, object _, int argc, object *args) /* closure _,object k_731323, object proc_7387_73865, object args_7388_73866 */
 {
object k_731323 = args[0]; object proc_7387_73865 = args[1]; object args_7388_73866 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:apply-primitive-procedure");

closureN_type c_733418;
object e_733425 [2];
c_733418.hdr.mark = gc_color_red;
 c_733418.hdr.grayed = 0;
c_733418.tag = closureN_tag;
 c_733418.fn = (function_type)__lambda_52;
c_733418.num_args = 1;
c_733418.num_elements = 2;
c_733418.elements = (object *)e_733425;
c_733418.elements[0] = args_7388_73866;
c_733418.elements[1] = k_731323;



return_direct_with_clo1(data,(closure)&c_733418,__lambda_52,  Cyc_cadr(data, proc_7387_73865));; 
}

static void __lambda_52(void *data, object self_732584, int argc, object *args) /* object self_732584, object r_731324_732471 */
 {
 object r_731324_732471 = args[0];
  
object c_733423 = apply(data,  ((closureN)self_732584)->elements[1],r_731324_732471, ((closureN)self_732584)->elements[0]);
return_direct_with_clo1(data,  ((closureN)self_732584)->elements[1], (((closure)  ((closureN)self_732584)->elements[1])->fn),  c_733423);; 
}

static void __lambda_48(void *data, object _, int argc, object *args) /* closure _,object k_731314 */
 {
object k_731314 = args[0];
  Cyc_st_add(data, "scheme/eval.sld:primitive-procedure-objects");

closureN_type c_733402;
object e_733405 [1];
c_733402.hdr.mark = gc_color_red;
 c_733402.hdr.grayed = 0;
c_733402.tag = closureN_tag;
 c_733402.fn = (function_type)__lambda_49;
c_733402.num_args = 1;
c_733402.num_elements = 1;
c_733402.elements = (object *)e_733405;
c_733402.elements[0] = k_731314;


mclosure0(c_733406, (function_type)__lambda_50);c_733406.num_args = 2;
return_direct_with_clo1(data,(closure)&c_733402,__lambda_49,  &c_733406);; 
}

static void __lambda_50(void *data, object self_732582, int argc, object *args) /* object self_732582, object k_731317, object proc_7385_73863, object rest_7386_73864 */
 {
 object k_731317 = args[0]; object proc_7385_73863 = args[1]; object rest_7386_73864 = args[2];
  
pair_type local_733410; 

list_2_type local_733413; 


return_direct_with_clo1(data,  k_731317, (((closure)  k_731317)->fn),  set_pair_as_expr(&local_733410, Cyc_fast_list_2(&local_733413, quote_primitive, Cyc_cadr(data, proc_7385_73863)), rest_7386_73864));; 
}

static void __lambda_49(void *data, object self_732583, int argc, object *args) /* object self_732583, object r_731315 */
 {
 object r_731315 = args[0];
  return_direct_with_clo4(data,  __glo_foldr_scheme_base, (((closure)  __glo_foldr_scheme_base)->fn),  ((closureN)self_732583)->elements[0], r_731315, NULL, __glo_primitive_91procedures_scheme_eval);; 
}

static void __lambda_45(void *data, object _, int argc, object *args) /* closure _,object k_731307 */
 {
object k_731307 = args[0];
  Cyc_st_add(data, "scheme/eval.sld:primitive-procedure-names");

closureN_type c_733389;
object e_733392 [1];
c_733389.hdr.mark = gc_color_red;
 c_733389.hdr.grayed = 0;
c_733389.tag = closureN_tag;
 c_733389.fn = (function_type)__lambda_46;
c_733389.num_args = 1;
c_733389.num_elements = 1;
c_733389.elements = (object *)e_733392;
c_733389.elements[0] = k_731307;


mclosure0(c_733393, (function_type)__lambda_47);c_733393.num_args = 2;
return_direct_with_clo1(data,(closure)&c_733389,__lambda_46,  &c_733393);; 
}

static void __lambda_47(void *data, object self_732580, int argc, object *args) /* object self_732580, object k_731310, object x_7383_73861, object y_7384_73862 */
 {
 object k_731310 = args[0]; object x_7383_73861 = args[1]; object y_7384_73862 = args[2];
  
pair_type local_733397; 


return_direct_with_clo1(data,  k_731310, (((closure)  k_731310)->fn),  set_pair_as_expr(&local_733397, Cyc_car(data, x_7383_73861), y_7384_73862));; 
}

static void __lambda_46(void *data, object self_732581, int argc, object *args) /* object self_732581, object r_731308 */
 {
 object r_731308 = args[0];
  return_direct_with_clo4(data,  __glo_foldr_scheme_base, (((closure)  __glo_foldr_scheme_base)->fn),  ((closureN)self_732581)->elements[0], r_731308, NULL, __glo_primitive_91procedures_scheme_eval);; 
}

static object __lambda_544(void *data, object ptr,object proc_7382_73860) {

  Cyc_st_add(data, "scheme/eval.sld:primitive-implementation");


return_copy(ptr,  Cyc_cadr(data, proc_7382_73860));; 
}

static void __lambda_44(void *data, object _, int argc, object *args) /* closure _,object k_731302, object proc_7382_73860 */
 {
object k_731302 = args[0]; object proc_7382_73860 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:primitive-implementation");


return_direct_with_clo1(data,  k_731302, (((closure)  k_731302)->fn),  Cyc_cadr(data, proc_7382_73860));; 
}

static void __lambda_43(void *data, object _, int argc, object *args) /* closure _,object k_731298, object proc_7381_73859 */
 {
object k_731298 = args[0]; object proc_7381_73859 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:primitive-procedure?");

complex_num_type local_733378; 
return_direct_with_clo1(data,  k_731298, (((closure)  k_731298)->fn),  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733378, quote_primitive, proc_7381_73859));; 
}

static void __lambda_42(void *data, object _, int argc, object *args) /* closure _,object k_731295, object exp_7380_73858 */
 {
object k_731295 = args[0]; object exp_7380_73858 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:compound-macro?");

complex_num_type local_733373; 
return_direct_with_clo1(data,  k_731295, (((closure)  k_731295)->fn),  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733373, __glo_macro_91tag_scheme_eval, exp_7380_73858));; 
}

static void __lambda_41(void *data, object _, int argc, object *args) /* closure _,object k_731290, object expr_7379_73857 */
 {
object k_731290 = args[0]; object expr_7379_73857 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:make-macro");

list_2_type local_733368; 
return_direct_with_clo1(data,  k_731290, (((closure)  k_731290)->fn),  Cyc_fast_list_2(&local_733368, __glo_macro_91tag_scheme_eval, expr_7379_73857));; 
}

static object __lambda_543(void *data, object ptr,object p_7378_73856) {

  Cyc_st_add(data, "scheme/eval.sld:procedure-environment");


return_copy(ptr,  Cyc_cadddr(data, p_7378_73856));; 
}

static void __lambda_40(void *data, object _, int argc, object *args) /* closure _,object k_731287, object p_7378_73856 */
 {
object k_731287 = args[0]; object p_7378_73856 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:procedure-environment");


return_direct_with_clo1(data,  k_731287, (((closure)  k_731287)->fn),  Cyc_cadddr(data, p_7378_73856));; 
}

static object __lambda_542(void *data, object ptr,object p_7377_73855) {

  Cyc_st_add(data, "scheme/eval.sld:procedure-body");


return_copy(ptr,  Cyc_caddr(data, p_7377_73855));; 
}

static void __lambda_39(void *data, object _, int argc, object *args) /* closure _,object k_731284, object p_7377_73855 */
 {
object k_731284 = args[0]; object p_7377_73855 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:procedure-body");


return_direct_with_clo1(data,  k_731284, (((closure)  k_731284)->fn),  Cyc_caddr(data, p_7377_73855));; 
}

static object __lambda_541(void *data, object ptr,object p_7376_73854) {

  Cyc_st_add(data, "scheme/eval.sld:procedure-parameters");


return_copy(ptr,  Cyc_cadr(data, p_7376_73854));; 
}

static void __lambda_38(void *data, object _, int argc, object *args) /* closure _,object k_731281, object p_7376_73854 */
 {
object k_731281 = args[0]; object p_7376_73854 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:procedure-parameters");


return_direct_with_clo1(data,  k_731281, (((closure)  k_731281)->fn),  Cyc_cadr(data, p_7376_73854));; 
}

static void __lambda_37(void *data, object _, int argc, object *args) /* closure _,object k_731278, object p_7375_73853 */
 {
object k_731278 = args[0]; object p_7375_73853 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:compound-procedure?");

complex_num_type local_733339; 
return_direct_with_clo1(data,  k_731278, (((closure)  k_731278)->fn),  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733339, __glo_procedure_91tag_scheme_eval, p_7375_73853));; 
}

static void __lambda_36(void *data, object _, int argc, object *args) /* closure _,object k_731275, object parameters_7372_73850, object body_7373_73851, object env_7374_73852 */
 {
object k_731275 = args[0]; object parameters_7372_73850 = args[1]; object body_7373_73851 = args[2]; object env_7374_73852 = args[3];
  Cyc_st_add(data, "scheme/eval.sld:make-procedure");

list_4_type local_733334; 
return_direct_with_clo1(data,  k_731275, (((closure)  k_731275)->fn),  Cyc_fast_list_4(&local_733334, __glo_procedure_91tag_scheme_eval, parameters_7372_73850, body_7373_73851, env_7374_73852));; 
}

static object __lambda_540(void *data, object ptr,object exp_7371_73849) {

  Cyc_st_add(data, "scheme/eval.sld:operands");


return_copy(ptr,  Cyc_cdr(data, exp_7371_73849));; 
}

static void __lambda_35(void *data, object _, int argc, object *args) /* closure _,object k_731270, object exp_7371_73849 */
 {
object k_731270 = args[0]; object exp_7371_73849 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:operands");


return_direct_with_clo1(data,  k_731270, (((closure)  k_731270)->fn),  Cyc_cdr(data, exp_7371_73849));; 
}

static object __lambda_539(void *data, object ptr,object exp_7370_73848) {

  Cyc_st_add(data, "scheme/eval.sld:operator");


return_copy(ptr,  Cyc_car(data, exp_7370_73848));; 
}

static void __lambda_34(void *data, object _, int argc, object *args) /* closure _,object k_731267, object exp_7370_73848 */
 {
object k_731267 = args[0]; object exp_7370_73848 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:operator");


return_direct_with_clo1(data,  k_731267, (((closure)  k_731267)->fn),  Cyc_car(data, exp_7370_73848));; 
}

static object __lambda_538(void *data, object ptr,object exp_7369_73847) {

  Cyc_st_add(data, "scheme/eval.sld:application?");


return_copy(ptr,  Cyc_is_pair(exp_7369_73847));; 
}

static void __lambda_33(void *data, object _, int argc, object *args) /* closure _,object k_731264, object exp_7369_73847 */
 {
object k_731264 = args[0]; object exp_7369_73847 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:application?");


return_direct_with_clo1(data,  k_731264, (((closure)  k_731264)->fn),  Cyc_is_pair(exp_7369_73847));; 
}

static void __lambda_32(void *data, object _, int argc, object *args) /* closure _,object k_731260, object predicate_7366_73844, object consequent_7367_73845, object alternative_7368_73846 */
 {
object k_731260 = args[0]; object predicate_7366_73844 = args[1]; object consequent_7367_73845 = args[2]; object alternative_7368_73846 = args[3];
  Cyc_st_add(data, "scheme/eval.sld:make-if");

list_4_type local_733305; 
return_direct_with_clo1(data,  k_731260, (((closure)  k_731260)->fn),  Cyc_fast_list_4(&local_733305, quote__if, predicate_7366_73844, consequent_7367_73845, alternative_7368_73846));; 
}

static object __lambda_537(void *data, object ptr,object exp_7365_73843) {

  Cyc_st_add(data, "scheme/eval.sld:if-alternative");
  
  
if( (boolean_f != Cyc_is_null(Cyc_cdddr(data, exp_7365_73843))) ){ 
  
complex_num_type local_733297; 
return_copy(ptr,  ((inline_function_type)
                   ((closure)__glo_void_191_191inline_191_191_scheme_base)->fn)(data,&local_733297));
} else { 
  

return_copy(ptr,  Cyc_cadddr(data, exp_7365_73843));}
;; 
}

static void __lambda_31(void *data, object _, int argc, object *args) /* closure _,object k_731255, object exp_7365_73843 */
 {
object k_731255 = args[0]; object exp_7365_73843 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:if-alternative");
  
  
if( (boolean_f != Cyc_is_null(Cyc_cdddr(data, exp_7365_73843))) ){ 
  
complex_num_type local_733285; 
return_direct_with_clo1(data,  k_731255, (((closure)  k_731255)->fn),  ((inline_function_type)
                   ((closure)__glo_void_191_191inline_191_191_scheme_base)->fn)(data,&local_733285));
} else { 
  

return_direct_with_clo1(data,  k_731255, (((closure)  k_731255)->fn),  Cyc_cadddr(data, exp_7365_73843));}
;; 
}

static object __lambda_536(void *data, object ptr,object exp_7364_73842) {

  Cyc_st_add(data, "scheme/eval.sld:if-consequent");


return_copy(ptr,  Cyc_caddr(data, exp_7364_73842));; 
}

static void __lambda_30(void *data, object _, int argc, object *args) /* closure _,object k_731252, object exp_7364_73842 */
 {
object k_731252 = args[0]; object exp_7364_73842 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:if-consequent");


return_direct_with_clo1(data,  k_731252, (((closure)  k_731252)->fn),  Cyc_caddr(data, exp_7364_73842));; 
}

static object __lambda_535(void *data, object ptr,object exp_7363_73841) {

  Cyc_st_add(data, "scheme/eval.sld:if-predicate");


return_copy(ptr,  Cyc_cadr(data, exp_7363_73841));; 
}

static void __lambda_29(void *data, object _, int argc, object *args) /* closure _,object k_731249, object exp_7363_73841 */
 {
object k_731249 = args[0]; object exp_7363_73841 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:if-predicate");


return_direct_with_clo1(data,  k_731249, (((closure)  k_731249)->fn),  Cyc_cadr(data, exp_7363_73841));; 
}

static void __lambda_28(void *data, object _, int argc, object *args) /* closure _,object k_731244, object parameters_7361_73839, object body_7362_73840 */
 {
object k_731244 = args[0]; object parameters_7361_73839 = args[1]; object body_7362_73840 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:make-lambda");

pair_type local_733257; 

pair_type local_733260; 
return_direct_with_clo1(data,  k_731244, (((closure)  k_731244)->fn),  set_pair_as_expr(&local_733257, quote_lambda, set_pair_as_expr(&local_733260, parameters_7361_73839, body_7362_73840)));; 
}

static object __lambda_534(void *data, object ptr,object exp_7360_73838) {

  Cyc_st_add(data, "scheme/eval.sld:lambda-body");


return_copy(ptr,  Cyc_cddr(data, exp_7360_73838));; 
}

static void __lambda_27(void *data, object _, int argc, object *args) /* closure _,object k_731241, object exp_7360_73838 */
 {
object k_731241 = args[0]; object exp_7360_73838 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:lambda-body");


return_direct_with_clo1(data,  k_731241, (((closure)  k_731241)->fn),  Cyc_cddr(data, exp_7360_73838));; 
}

static object __lambda_533(void *data, object ptr,object exp_7359_73837) {

  Cyc_st_add(data, "scheme/eval.sld:lambda-parameters");


return_copy(ptr,  Cyc_cadr(data, exp_7359_73837));; 
}

static void __lambda_26(void *data, object _, int argc, object *args) /* closure _,object k_731238, object exp_7359_73837 */
 {
object k_731238 = args[0]; object exp_7359_73837 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:lambda-parameters");


return_direct_with_clo1(data,  k_731238, (((closure)  k_731238)->fn),  Cyc_cadr(data, exp_7359_73837));; 
}

static void __lambda_25(void *data, object _, int argc, object *args) /* closure _,object k_731231, object exp_7358_73836 */
 {
object k_731231 = args[0]; object exp_7358_73836 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:definition-value");
  
  
if( (boolean_f != Cyc_is_symbol(Cyc_cadr(data, exp_7358_73836))) ){ 
  

return_direct_with_clo1(data,  k_731231, (((closure)  k_731231)->fn),  Cyc_caddr(data, exp_7358_73836));
} else { 
  



return_direct_with_clo3(data,  __glo_make_91lambda_scheme_eval, (((closure)  __glo_make_91lambda_scheme_eval)->fn),  k_731231, Cyc_cdadr(data, exp_7358_73836), Cyc_cddr(data, exp_7358_73836));}
;; 
}

static object __lambda_532(void *data, object ptr,object exp_7357_73835) {

  Cyc_st_add(data, "scheme/eval.sld:definition-variable");
  
  
if( (boolean_f != Cyc_is_symbol(Cyc_cadr(data, exp_7357_73835))) ){ 
  

return_copy(ptr,  Cyc_cadr(data, exp_7357_73835));
} else { 
  

return_copy(ptr,  Cyc_caadr(data, exp_7357_73835));}
;; 
}

static void __lambda_24(void *data, object _, int argc, object *args) /* closure _,object k_731226, object exp_7357_73835 */
 {
object k_731226 = args[0]; object exp_7357_73835 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:definition-variable");
  
  
if( (boolean_f != Cyc_is_symbol(Cyc_cadr(data, exp_7357_73835))) ){ 
  

return_direct_with_clo1(data,  k_731226, (((closure)  k_731226)->fn),  Cyc_cadr(data, exp_7357_73835));
} else { 
  

return_direct_with_clo1(data,  k_731226, (((closure)  k_731226)->fn),  Cyc_caadr(data, exp_7357_73835));}
;; 
}

static void __lambda_23(void *data, object _, int argc, object *args) /* closure _,object k_731222, object exp_7356_73834 */
 {
object k_731222 = args[0]; object exp_7356_73834 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:definition?");

complex_num_type local_733201; 
return_direct_with_clo1(data,  k_731222, (((closure)  k_731222)->fn),  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733201, quote_define, exp_7356_73834));; 
}

static void __lambda_22(void *data, object _, int argc, object *args) /* closure _,object k_731218, object exp_7355_73833 */
 {
object k_731218 = args[0]; object exp_7355_73833 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:syntax?");

complex_num_type local_733196; 
return_direct_with_clo1(data,  k_731218, (((closure)  k_731218)->fn),  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733196, quote_define_91syntax, exp_7355_73833));; 
}

static object __lambda_531(void *data, object ptr,object exp_7354_73832) {

  Cyc_st_add(data, "scheme/eval.sld:assignment-value");


return_copy(ptr,  Cyc_caddr(data, exp_7354_73832));; 
}

static void __lambda_21(void *data, object _, int argc, object *args) /* closure _,object k_731215, object exp_7354_73832 */
 {
object k_731215 = args[0]; object exp_7354_73832 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:assignment-value");


return_direct_with_clo1(data,  k_731215, (((closure)  k_731215)->fn),  Cyc_caddr(data, exp_7354_73832));; 
}

static object __lambda_530(void *data, object ptr,object exp_7353_73831) {

  Cyc_st_add(data, "scheme/eval.sld:assignment-variable");


return_copy(ptr,  Cyc_cadr(data, exp_7353_73831));; 
}

static void __lambda_20(void *data, object _, int argc, object *args) /* closure _,object k_731212, object exp_7353_73831 */
 {
object k_731212 = args[0]; object exp_7353_73831 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:assignment-variable");


return_direct_with_clo1(data,  k_731212, (((closure)  k_731212)->fn),  Cyc_cadr(data, exp_7353_73831));; 
}

static void __lambda_19(void *data, object _, int argc, object *args) /* closure _,object k_731208, object exp_7352_73830 */
 {
object k_731208 = args[0]; object exp_7352_73830 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:assignment?");

complex_num_type local_733175; 
return_direct_with_clo1(data,  k_731208, (((closure)  k_731208)->fn),  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733175, quote_set_67, exp_7352_73830));; 
}

static void __lambda_18(void *data, object _, int argc, object *args) /* closure _,object k_731204, object exp_7351_73829 */
 {
object k_731204 = args[0]; object exp_7351_73829 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:quoted?");

complex_num_type local_733170; 
return_direct_with_clo1(data,  k_731204, (((closure)  k_731204)->fn),  ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733170, quote_quote, exp_7351_73829));; 
}

static object __lambda_529(void *data, object ptr,object exp_7350_73828) {

  Cyc_st_add(data, "scheme/eval.sld:variable?");


return_copy(ptr,  Cyc_is_symbol(exp_7350_73828));; 
}

static void __lambda_17(void *data, object _, int argc, object *args) /* closure _,object k_731201, object exp_7350_73828 */
 {
object k_731201 = args[0]; object exp_7350_73828 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:variable?");


return_direct_with_clo1(data,  k_731201, (((closure)  k_731201)->fn),  Cyc_is_symbol(exp_7350_73828));; 
}

static void __lambda_16(void *data, object _, int argc, object *args) /* closure _,object k_731188, object exp_7321_73827 */
 {
object k_731188 = args[0]; object exp_7321_73827 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:self-evaluating?");
  
if( (boolean_f != Cyc_is_number(exp_7321_73827)) ){ 
  return_direct_with_clo1(data,  k_731188, (((closure)  k_731188)->fn),  boolean_t);
} else { 
    
if( (boolean_f != Cyc_is_boolean(exp_7321_73827)) ){ 
  return_direct_with_clo1(data,  k_731188, (((closure)  k_731188)->fn),  boolean_t);
} else { 
    
  complex_num_type local_733137; 
if( (boolean_f != Cyc_eq(((inline_function_type)
                   ((closure)__glo_void_191_191inline_191_191_scheme_base)->fn)(data,&local_733137), exp_7321_73827)) ){ 
  return_direct_with_clo1(data,  k_731188, (((closure)  k_731188)->fn),  boolean_t);
} else { 
    
if( (boolean_f != Cyc_is_string(exp_7321_73827)) ){ 
  return_direct_with_clo1(data,  k_731188, (((closure)  k_731188)->fn),  boolean_t);
} else { 
    
if( (boolean_f != Cyc_is_vector_not_record_type(exp_7321_73827)) ){ 
  return_direct_with_clo1(data,  k_731188, (((closure)  k_731188)->fn),  boolean_t);
} else { 
    
if( (boolean_f != Cyc_is_bytevector(exp_7321_73827)) ){ 
  return_direct_with_clo1(data,  k_731188, (((closure)  k_731188)->fn),  boolean_t);
} else { 
    
if( (boolean_f != Cyc_is_char(exp_7321_73827)) ){ 
  return_direct_with_clo1(data,  k_731188, (((closure)  k_731188)->fn),  boolean_t);
} else { 
    
if( (boolean_f != Cyc_is_port(exp_7321_73827)) ){ 
  return_direct_with_clo1(data,  k_731188, (((closure)  k_731188)->fn),  boolean_t);
} else { 
    
if( (boolean_f != Cyc_is_eof_object(exp_7321_73827)) ){ 
  return_direct_with_clo1(data,  k_731188, (((closure)  k_731188)->fn),  boolean_t);
} else { 
  return_direct_with_clo1(data,  k_731188, (((closure)  k_731188)->fn),  boolean_f);}
;}
;}
;}
;}
;}
;}
;}
;}
;; 
}

static void __lambda_11(void *data, object _, int argc, object *args) /* closure _,object k_731173, object exp_738_73825 */
 {
object k_731173 = args[0]; object exp_738_73825 = args[1];
  Cyc_st_add(data, "scheme/eval.sld:wrapc");
  
if( (boolean_f != Cyc_is_pair(exp_738_73825)) ){ 
    complex_num_type local_733088; 
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_733088, __glo_procedure_91tag_scheme_eval, Cyc_car(data, exp_738_73825))) ){ 
  
closureN_type c_733092;
object e_733107 [2];
c_733092.hdr.mark = gc_color_red;
 c_733092.hdr.grayed = 0;
c_733092.tag = closureN_tag;
 c_733092.fn = (function_type)__lambda_12;
c_733092.num_args = 1;
c_733092.num_elements = 2;
c_733092.elements = (object *)e_733107;
c_733092.elements[0] = exp_738_73825;
c_733092.elements[1] = k_731173;


mclosure0(c_733108, (function_type)__lambda_14);c_733108.num_args = 1;
return_direct_with_clo1(data,(closure)&c_733092,__lambda_12,  &c_733108);
} else { 
  return_direct_with_clo1(data,  k_731173, (((closure)  k_731173)->fn),  exp_738_73825);}
;
} else { 
  return_direct_with_clo1(data,  k_731173, (((closure)  k_731173)->fn),  exp_738_73825);}
;; 
}

static void __lambda_14(void *data, object self_732576, int argc, object *args) /* object self_732576, object k_731180_732461_732468, object e_7315_73826_732462_732469 */
 {
 object k_731180_732461_732468 = args[0]; object e_7315_73826_732462_732469 = args[1];
  
closureN_type c_733110;
object e_733123 [2];
c_733110.hdr.mark = gc_color_red;
 c_733110.hdr.grayed = 0;
c_733110.tag = closureN_tag;
 c_733110.fn = (function_type)__lambda_15;
c_733110.num_args = 1;
c_733110.num_elements = 2;
c_733110.elements = (object *)e_733123;
c_733110.elements[0] = e_7315_73826_732462_732469;
c_733110.elements[1] = k_731180_732461_732468;

return_direct_with_clo2(data,  __glo_self_91evaluating_127_scheme_eval, (((closure)  __glo_self_91evaluating_127_scheme_eval)->fn),  &c_733110, e_7315_73826_732462_732469);; 
}

static void __lambda_15(void *data, object self_732577, int argc, object *args) /* object self_732577, object r_731181_732463_732470 */
 {
 object r_731181_732463_732470 = args[0];
  if( (boolean_f != r_731181_732463_732470) ){ 
  return_direct_with_clo1(data,  ((closureN)self_732577)->elements[1], (((closure)  ((closureN)self_732577)->elements[1])->fn),  ((closureN)self_732577)->elements[0]);
} else { 
  
pair_type local_733118; 

pair_type local_733121; 
return_direct_with_clo1(data,  ((closureN)self_732577)->elements[1], (((closure)  ((closureN)self_732577)->elements[1])->fn),  set_pair_as_expr(&local_733118, quote_quote, set_pair_as_expr(&local_733121, ((closureN)self_732577)->elements[0], NULL)));}
;; 
}

static void __lambda_12(void *data, object self_732578, int argc, object *args) /* object self_732578, object r_731178_732459_732466 */
 {
 object r_731178_732459_732466 = args[0];
  
closureN_type c_733094;
object e_733103 [2];
c_733094.hdr.mark = gc_color_red;
 c_733094.hdr.grayed = 0;
c_733094.tag = closureN_tag;
 c_733094.fn = (function_type)__lambda_13;
c_733094.num_args = 1;
c_733094.num_elements = 2;
c_733094.elements = (object *)e_733103;
c_733094.elements[0] = ((closureN)self_732578)->elements[0];
c_733094.elements[1] = ((closureN)self_732578)->elements[1];



return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_733094, r_731178_732459_732466, Cyc_cdr(data, ((closureN)self_732578)->elements[0]));; 
}

static void __lambda_13(void *data, object self_732579, int argc, object *args) /* object self_732579, object r_731177_732460_732467 */
 {
 object r_731177_732460_732467 = args[0];
  
pair_type local_733099; 


return_direct_with_clo1(data,  ((closureN)self_732579)->elements[1], (((closure)  ((closureN)self_732579)->elements[1])->fn),  set_pair_as_expr(&local_733099, Cyc_car(data, ((closureN)self_732579)->elements[0]), r_731177_732460_732467));; 
}

static void __lambda_9(void *data, object _, int argc, object *args) /* closure _,object k_731166, object exp_735_73822, object _191env_736_73823_raw, ... */
 {
object k_731166 = args[0]; object exp_735_73822 = args[1];
load_varargs(_191env_736_73823, args, 2, argc - 2);
  object env_737_73824;
  Cyc_st_add(data, "scheme/eval.sld:eval-from-c");
  
if( (boolean_f != Cyc_is_null(_191env_736_73823)) ){ 
  env_737_73824 = __glo__85global_91environment_85_scheme_eval;
} else { 
  
  env_737_73824 = Cyc_car(data, _191env_736_73823);}
;
closureN_type c_733078;
object e_733082 [2];
c_733078.hdr.mark = gc_color_red;
 c_733078.hdr.grayed = 0;
c_733078.tag = closureN_tag;
 c_733078.fn = (function_type)__lambda_10;
c_733078.num_args = 1;
c_733078.num_elements = 2;
c_733078.elements = (object *)e_733082;
c_733078.elements[0] = env_737_73824;
c_733078.elements[1] = k_731166;

return_direct_with_clo2(data,  __glo_wrapc_scheme_eval, (((closure)  __glo_wrapc_scheme_eval)->fn),  &c_733078, exp_735_73822);; 
}

static void __lambda_10(void *data, object self_732575, int argc, object *args) /* object self_732575, object r_731168 */
 {
 object r_731168 = args[0];
  return_direct_with_clo3(data,  __glo_eval_scheme_eval, (((closure)  __glo_eval_scheme_eval)->fn),  ((closureN)self_732575)->elements[1], r_731168, ((closureN)self_732575)->elements[0]);; 
}

static void __lambda_2(void *data, object _, int argc, object *args) /* closure _,object k_731151, object exp_733_73817, object env_734_73818_raw, ... */
 {
object k_731151 = args[0]; object exp_733_73817 = args[1];
load_varargs(env_734_73818, args, 2, argc - 2);
  Cyc_st_add(data, "scheme/eval.sld:eval");

closureN_type c_733021;
object e_733068 [3];
c_733021.hdr.mark = gc_color_red;
 c_733021.hdr.grayed = 0;
c_733021.tag = closureN_tag;
 c_733021.fn = (function_type)__lambda_3;
c_733021.num_args = 1;
c_733021.num_elements = 3;
c_733021.elements = (object *)e_733068;
c_733021.elements[0] = env_734_73818;
c_733021.elements[1] = exp_733_73817;
c_733021.elements[2] = k_731151;

return_direct_with_clo1(data,(closure)&c_733021,__lambda_3,  boolean_f);; 
}

static void __lambda_3(void *data, object self_732568, int argc, object *args) /* object self_732568, object rename_91env_73820 */
 {
 object rename_91env_73820 = args[0];
  
closureN_type c_733023;
object e_733064 [3];
c_733023.hdr.mark = gc_color_red;
 c_733023.hdr.grayed = 0;
c_733023.tag = closureN_tag;
 c_733023.fn = (function_type)__lambda_522;
c_733023.num_args = 1;
c_733023.num_elements = 3;
c_733023.elements = (object *)e_733064;
c_733023.elements[0] = ((closureN)self_732568)->elements[0];
c_733023.elements[1] = ((closureN)self_732568)->elements[1];
c_733023.elements[2] = ((closureN)self_732568)->elements[2];


pair_type local_733067; 
return_direct_with_clo1(data,(closure)&c_733023,__lambda_522,  set_cell_as_expr(&local_733067, rename_91env_73820));; 
}

static void __lambda_522(void *data, object self_732569, int argc, object *args) /* object self_732569, object rename_91env_73820 */
 {
 object rename_91env_73820 = args[0];
  
closureN_type c_733025;
object e_733063 [4];
c_733025.hdr.mark = gc_color_red;
 c_733025.hdr.grayed = 0;
c_733025.tag = closureN_tag;
 c_733025.fn = (function_type)__lambda_4;
c_733025.num_args = 1;
c_733025.num_elements = 4;
c_733025.elements = (object *)e_733063;
c_733025.elements[0] = ((closureN)self_732569)->elements[0];
c_733025.elements[1] = ((closureN)self_732569)->elements[1];
c_733025.elements[2] = ((closureN)self_732569)->elements[2];
c_733025.elements[3] = rename_91env_73820;

return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  &c_733025, NULL, NULL, NULL);; 
}

static void __lambda_4(void *data, object self_732570, int argc, object *args) /* object self_732570, object r_731160 */
 {
 object r_731160 = args[0];
  
closureN_type c_733027;
object e_733059 [4];
c_733027.hdr.mark = gc_color_red;
 c_733027.hdr.grayed = 0;
c_733027.tag = closureN_tag;
 c_733027.fn = (function_type)__lambda_5;
c_733027.num_args = 1;
c_733027.num_elements = 4;
c_733027.elements = (object *)e_733059;
c_733027.elements[0] = ((closureN)self_732570)->elements[0];
c_733027.elements[1] = ((closureN)self_732570)->elements[1];
c_733027.elements[2] = ((closureN)self_732570)->elements[2];
c_733027.elements[3] = ((closureN)self_732570)->elements[3];



return_direct_with_clo1(data,(closure)&c_733027,__lambda_5,  Cyc_set_cell(data, ((closureN)self_732570)->elements[3], r_731160));; 
}

static void __lambda_5(void *data, object self_732571, int argc, object *args) /* object self_732571, object r_731152 */
 {

    
if( (boolean_f != Cyc_is_null(((closureN)self_732571)->elements[0])) ){ 
  
closureN_type c_733032;
object e_733035 [1];
c_733032.hdr.mark = gc_color_red;
 c_733032.hdr.grayed = 0;
c_733032.tag = closureN_tag;
 c_733032.fn = (function_type)__lambda_6;
c_733032.num_args = 1;
c_733032.num_elements = 1;
c_733032.elements = (object *)e_733035;
c_733032.elements[0] = ((closureN)self_732571)->elements[2];



return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  &c_733032, ((closureN)self_732571)->elements[1], __glo__85global_91environment_85_scheme_eval, car(((closureN)self_732571)->elements[3]), NULL);
} else { 
  
closureN_type c_733041;
object e_733051 [2];
c_733041.hdr.mark = gc_color_red;
 c_733041.hdr.grayed = 0;
c_733041.tag = closureN_tag;
 c_733041.fn = (function_type)__lambda_7;
c_733041.num_args = 1;
c_733041.num_elements = 2;
c_733041.elements = (object *)e_733051;
c_733041.elements[0] = ((closureN)self_732571)->elements[0];
c_733041.elements[1] = ((closureN)self_732571)->elements[2];





return_direct_with_clo5(data,  __glo_analyze_scheme_eval, (((closure)  __glo_analyze_scheme_eval)->fn),  &c_733041, ((closureN)self_732571)->elements[1], Cyc_car(data, ((closureN)self_732571)->elements[0]), car(((closureN)self_732571)->elements[3]), NULL);}
;; 
}

static void __lambda_7(void *data, object self_732573, int argc, object *args) /* object self_732573, object r_731156 */
 {
 object r_731156 = args[0];
  
closureN_type c_733043;
object e_733047 [2];
c_733043.hdr.mark = gc_color_red;
 c_733043.hdr.grayed = 0;
c_733043.tag = closureN_tag;
 c_733043.fn = (function_type)__lambda_8;
c_733043.num_args = 1;
c_733043.num_elements = 2;
c_733043.elements = (object *)e_733047;
c_733043.elements[0] = ((closureN)self_732573)->elements[1];
c_733043.elements[1] = r_731156;



return_direct_with_clo1(data,(closure)&c_733043,__lambda_8,  Cyc_car(data, ((closureN)self_732573)->elements[0]));; 
}

static void __lambda_8(void *data, object self_732574, int argc, object *args) /* object self_732574, object r_731157 */
 {
 object r_731157 = args[0];
  return_closcall2(data,  ((closureN)self_732574)->elements[1],  ((closureN)self_732574)->elements[0], r_731157);; 
}

static void __lambda_6(void *data, object self_732572, int argc, object *args) /* object self_732572, object r_731154 */
 {
 object r_731154 = args[0];
  return_closcall2(data,  r_731154,  ((closureN)self_732572)->elements[0], __glo__85global_91environment_85_scheme_eval);; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_731148, object vars_731_73815, object vals_732_73816 */
 {
object k_731148 = args[0]; object vars_731_73815 = args[1]; object vals_732_73816 = args[2];
  Cyc_st_add(data, "scheme/eval.sld:create-environment");
return_direct_with_clo4(data,  __glo_env_117extend_91environment_scheme_cyclone_util, (((closure)  __glo_env_117extend_91environment_scheme_cyclone_util)->fn),  k_731148, vars_731_73815, vals_732_73816, __glo__85global_91environment_85_scheme_eval);; 
}

void c_schemeeval_inlinable_lambdas(void *data, object clo, int argc, object *args){ 
make_pair(pair_737213, find_or_add_symbol("macro:macro?"), find_or_add_symbol("macro:macro?__inline__"));
make_pair(pair_737214, find_or_add_symbol("primitive-implementation"), find_or_add_symbol("primitive-implementation__inline__"));
make_pair(pair_737215, find_or_add_symbol("procedure-environment"), find_or_add_symbol("procedure-environment__inline__"));
make_pair(pair_737216, find_or_add_symbol("procedure-body"), find_or_add_symbol("procedure-body__inline__"));
make_pair(pair_737217, find_or_add_symbol("procedure-parameters"), find_or_add_symbol("procedure-parameters__inline__"));
make_pair(pair_737218, find_or_add_symbol("operands"), find_or_add_symbol("operands__inline__"));
make_pair(pair_737219, find_or_add_symbol("operator"), find_or_add_symbol("operator__inline__"));
make_pair(pair_737220, find_or_add_symbol("application?"), find_or_add_symbol("application?__inline__"));
make_pair(pair_737221, find_or_add_symbol("if-alternative"), find_or_add_symbol("if-alternative__inline__"));
make_pair(pair_737222, find_or_add_symbol("if-consequent"), find_or_add_symbol("if-consequent__inline__"));
make_pair(pair_737223, find_or_add_symbol("if-predicate"), find_or_add_symbol("if-predicate__inline__"));
make_pair(pair_737224, find_or_add_symbol("lambda-body"), find_or_add_symbol("lambda-body__inline__"));
make_pair(pair_737225, find_or_add_symbol("lambda-parameters"), find_or_add_symbol("lambda-parameters__inline__"));
make_pair(pair_737226, find_or_add_symbol("definition-variable"), find_or_add_symbol("definition-variable__inline__"));
make_pair(pair_737227, find_or_add_symbol("assignment-value"), find_or_add_symbol("assignment-value__inline__"));
make_pair(pair_737228, find_or_add_symbol("assignment-variable"), find_or_add_symbol("assignment-variable__inline__"));
make_pair(pair_737229, find_or_add_symbol("variable?"), find_or_add_symbol("variable?__inline__"));
make_pair(c_737246, &pair_737213, NULL);
make_pair(c_737245, &pair_737214, &c_737246);
make_pair(c_737244, &pair_737215, &c_737245);
make_pair(c_737243, &pair_737216, &c_737244);
make_pair(c_737242, &pair_737217, &c_737243);
make_pair(c_737241, &pair_737218, &c_737242);
make_pair(c_737240, &pair_737219, &c_737241);
make_pair(c_737239, &pair_737220, &c_737240);
make_pair(c_737238, &pair_737221, &c_737239);
make_pair(c_737237, &pair_737222, &c_737238);
make_pair(c_737236, &pair_737223, &c_737237);
make_pair(c_737235, &pair_737224, &c_737236);
make_pair(c_737234, &pair_737225, &c_737235);
make_pair(c_737233, &pair_737226, &c_737234);
make_pair(c_737232, &pair_737227, &c_737233);
make_pair(c_737231, &pair_737228, &c_737232);
make_pair(c_737230, &pair_737229, &c_737231);
object buf[1]; object cont = args[0];
buf[0] = &c_737230; (((closure)cont)->fn)(data, cont, 1, buf);
 } 
void c_schemeeval_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_procedure = find_or_add_symbol("procedure");
  quote_procedure_91tag = find_or_add_symbol("procedure-tag");
  quote_macro_91tag = find_or_add_symbol("macro-tag");
  quote_cddddr = find_or_add_symbol("cddddr");
  quote_cdddar = find_or_add_symbol("cdddar");
  quote_cddadr = find_or_add_symbol("cddadr");
  quote_cddaar = find_or_add_symbol("cddaar");
  quote_cdaddr = find_or_add_symbol("cdaddr");
  quote_cdadar = find_or_add_symbol("cdadar");
  quote_cdaadr = find_or_add_symbol("cdaadr");
  quote_cdaaar = find_or_add_symbol("cdaaar");
  quote_cadddr = find_or_add_symbol("cadddr");
  quote_caddar = find_or_add_symbol("caddar");
  quote_cadadr = find_or_add_symbol("cadadr");
  quote_cadaar = find_or_add_symbol("cadaar");
  quote_caaddr = find_or_add_symbol("caaddr");
  quote_caadar = find_or_add_symbol("caadar");
  quote_caaadr = find_or_add_symbol("caaadr");
  quote_caaaar = find_or_add_symbol("caaaar");
  quote_cdddr = find_or_add_symbol("cdddr");
  quote_cddar = find_or_add_symbol("cddar");
  quote_cdadr = find_or_add_symbol("cdadr");
  quote_cdaar = find_or_add_symbol("cdaar");
  quote_caddr = find_or_add_symbol("caddr");
  quote_cadar = find_or_add_symbol("cadar");
  quote_caadr = find_or_add_symbol("caadr");
  quote_caaar = find_or_add_symbol("caaar");
  quote_cddr = find_or_add_symbol("cddr");
  quote_cdar = find_or_add_symbol("cdar");
  quote_cadr = find_or_add_symbol("cadr");
  quote_caar = find_or_add_symbol("caar");
  quote_cdr = find_or_add_symbol("cdr");
  quote_car = find_or_add_symbol("car");
  quote_set_91cdr_67 = find_or_add_symbol("set-cdr!");
  quote_set_91car_67 = find_or_add_symbol("set-car!");
  quote_length = find_or_add_symbol("length");
  quote_memv = find_or_add_symbol("memv");
  quote_memq = find_or_add_symbol("memq");
  quote_assv = find_or_add_symbol("assv");
  quote_assq = find_or_add_symbol("assq");
  quote_equal_127 = find_or_add_symbol("equal?");
  quote_eqv_127 = find_or_add_symbol("eqv?");
  quote_eq_127 = find_or_add_symbol("eq?");
  quote_cell = find_or_add_symbol("cell");
  quote_set_91cell_67 = find_or_add_symbol("set-cell!");
  quote_set_91global_67 = find_or_add_symbol("set-global!");
  quote_cell_91get = find_or_add_symbol("cell-get");
  quote_cons = find_or_add_symbol("cons");
  quote_error = find_or_add_symbol("error");
  quote_command_91line_91arguments = find_or_add_symbol("command-line-arguments");
  quote_system = find_or_add_symbol("system");
  quote_Cyc_91installation_91dir = find_or_add_symbol("Cyc-installation-dir");
  quote_Cyc_91compilation_91environment = find_or_add_symbol("Cyc-compilation-environment");
  quote_exit = find_or_add_symbol("exit");
  quote__75halt = find_or_add_symbol("%halt");
  quote_apply = find_or_add_symbol("apply");
  quote__121_123 = find_or_add_symbol("<=");
  quote__125_123 = find_or_add_symbol(">=");
  quote__121 = find_or_add_symbol("<");
  quote__125 = find_or_add_symbol(">");
  quote__123 = find_or_add_symbol("=");
  quote__95 = find_or_add_symbol("/");
  quote__85 = find_or_add_symbol("*");
  quote__91 = find_or_add_symbol("-");
  quote__87 = find_or_add_symbol("+");
  quote_Cyc_91current_91exception_91handler = find_or_add_symbol("Cyc-current-exception-handler");
  quote_Cyc_91default_91exception_91handler = find_or_add_symbol("Cyc-default-exception-handler");
  quote_Cyc_91end_91thread_67 = find_or_add_symbol("Cyc-end-thread!");
  quote_Cyc_91spawn_91thread_67 = find_or_add_symbol("Cyc-spawn-thread!");
  quote_Cyc_91has_91cycle_127 = find_or_add_symbol("Cyc-has-cycle?");
  quote_Cyc_91opaque_127 = find_or_add_symbol("Cyc-opaque?");
  quote_Cyc_91cvar_127 = find_or_add_symbol("Cyc-cvar?");
  quote_Cyc_91set_91cvar_67 = find_or_add_symbol("Cyc-set-cvar!");
  quote_Cyc_91get_91cvar = find_or_add_symbol("Cyc-get-cvar");
  quote_Cyc_91global_91vars = find_or_add_symbol("Cyc-global-vars");
  quote_call_95cc = find_or_add_symbol("call/cc");
  quote_Cyc_91display = find_or_add_symbol("Cyc-display");
  quote_Cyc_91write = find_or_add_symbol("Cyc-write");
  quote_Cyc_91write_91char = find_or_add_symbol("Cyc-write-char");
  quote_Cyc_91read_91line = find_or_add_symbol("Cyc-read-line");
  quote_peek_91char = find_or_add_symbol("peek-char");
  quote_read_91char = find_or_add_symbol("read-char");
  quote_delete_91file = find_or_add_symbol("delete-file");
  quote_file_91exists_127 = find_or_add_symbol("file-exists?");
  quote_close_91output_91port = find_or_add_symbol("close-output-port");
  quote_close_91input_91port = find_or_add_symbol("close-input-port");
  quote_close_91port = find_or_add_symbol("close-port");
  quote_open_91binary_91output_91file = find_or_add_symbol("open-binary-output-file");
  quote_open_91binary_91input_91file = find_or_add_symbol("open-binary-input-file");
  quote_open_91output_91file = find_or_add_symbol("open-output-file");
  quote_open_91input_91file = find_or_add_symbol("open-input-file");
  quote_symbol_127 = find_or_add_symbol("symbol?");
  quote_string_127 = find_or_add_symbol("string?");
  quote_bytevector_127 = find_or_add_symbol("bytevector?");
  quote_vector_127 = find_or_add_symbol("vector?");
  quote_Cyc_91macro_127 = find_or_add_symbol("Cyc-macro?");
  quote_procedure_127 = find_or_add_symbol("procedure?");
  quote_port_127 = find_or_add_symbol("port?");
  quote_pair_127 = find_or_add_symbol("pair?");
  quote_integer_127 = find_or_add_symbol("integer?");
  quote_real_127 = find_or_add_symbol("real?");
  quote_number_127 = find_or_add_symbol("number?");
  quote_null_127 = find_or_add_symbol("null?");
  quote_eof_91object_127 = find_or_add_symbol("eof-object?");
  quote_char_127 = find_or_add_symbol("char?");
  quote_boolean_127 = find_or_add_symbol("boolean?");
  quote_vector_91set_67 = find_or_add_symbol("vector-set!");
  quote_vector_91ref = find_or_add_symbol("vector-ref");
  quote_vector_91length = find_or_add_symbol("vector-length");
  quote_list_91_125vector = find_or_add_symbol("list->vector");
  quote_make_91vector = find_or_add_symbol("make-vector");
  quote_bytevector_91u8_91set_67 = find_or_add_symbol("bytevector-u8-set!");
  quote_bytevector_91u8_91ref = find_or_add_symbol("bytevector-u8-ref");
  quote_bytevector = find_or_add_symbol("bytevector");
  quote_Cyc_91string_91_125utf8 = find_or_add_symbol("Cyc-string->utf8");
  quote_Cyc_91utf8_91_125string = find_or_add_symbol("Cyc-utf8->string");
  quote_Cyc_91bytevector_91copy = find_or_add_symbol("Cyc-bytevector-copy");
  quote_bytevector_91append = find_or_add_symbol("bytevector-append");
  quote_bytevector_91length = find_or_add_symbol("bytevector-length");
  quote_make_91bytevector = find_or_add_symbol("make-bytevector");
  quote_substring = find_or_add_symbol("substring");
  quote_string_91set_67 = find_or_add_symbol("string-set!");
  quote_string_91ref = find_or_add_symbol("string-ref");
  quote_string_91length = find_or_add_symbol("string-length");
  quote_number_91_125string = find_or_add_symbol("number->string");
  quote_symbol_91_125string = find_or_add_symbol("symbol->string");
  quote_string_91_125symbol = find_or_add_symbol("string->symbol");
  quote_list_91_125string = find_or_add_symbol("list->string");
  quote_string_91append = find_or_add_symbol("string-append");
  quote_string_91cmp = find_or_add_symbol("string-cmp");
  quote_string_91_125number = find_or_add_symbol("string->number");
  quote_integer_91_125char = find_or_add_symbol("integer->char");
  quote_char_91_125integer = find_or_add_symbol("char->integer");
  quote_primitive_91procedures = find_or_add_symbol("primitive-procedures");
  quote__85initial_91environment_85 = find_or_add_symbol("*initial-environment*");
  quote_type = find_or_add_symbol("type");
  quote_Unexpected = find_or_add_symbol("Unexpected");
  quote_varargs = find_or_add_symbol("varargs");
  quote__for = find_or_add_symbol("for");
  quote_args = find_or_add_symbol("args");
  quote_many = find_or_add_symbol("many");
  quote_Too = find_or_add_symbol("Too");
  quote_args_117varargs = find_or_add_symbol("args:varargs");
  quote_args_117fixed_91with_91varargs = find_or_add_symbol("args:fixed-with-varargs");
  quote_args_117fixed = find_or_add_symbol("args:fixed");
  quote__85defined_91macros_85 = find_or_add_symbol("*defined-macros*");
  quote__191_191_191_191unused_191_191_191_191 = find_or_add_symbol("____unused____");
  quote__85macro_117env_85 = find_or_add_symbol("*macro:env*");
  quote__85macro_117defined_91macros_85 = find_or_add_symbol("*macro:defined-macros*");
  quote__85global_91environment_85 = find_or_add_symbol("*global-environment*");
  quote__85append_91dirs_85 = find_or_add_symbol("*append-dirs*");
  quote__85prepend_91dirs_85 = find_or_add_symbol("*prepend-dirs*");
  quote_begin = find_or_add_symbol("begin");
  quote_er_91macro_91transformer = find_or_add_symbol("er-macro-transformer");
  quote_macro = find_or_add_symbol("macro");
  quote_ok = find_or_add_symbol("ok");
  quote_import = find_or_add_symbol("import");
  quote_letrec_91syntax = find_or_add_symbol("letrec-syntax");
  quote_let_91syntax = find_or_add_symbol("let-syntax");
  quote_primitive = find_or_add_symbol("primitive");
  quote__if = find_or_add_symbol("if");
  quote_lambda = find_or_add_symbol("lambda");
  quote_define = find_or_add_symbol("define");
  quote_define_91syntax = find_or_add_symbol("define-syntax");
  quote_set_67 = find_or_add_symbol("set!");
  quote_quote = find_or_add_symbol("quote");

  add_global("__glo_lib_91init_117schemeeval_scheme_eval", (object *) &__glo_lib_91init_117schemeeval_scheme_eval);
  add_global("__glo_begin_91_125exps_scheme_eval", (object *) &__glo_begin_91_125exps_scheme_eval);
  add_global("__glo__85defined_91macros_85_scheme_eval", (object *) &__glo__85defined_91macros_85_scheme_eval);
  add_global("__glo_get_91macros_scheme_eval", (object *) &__glo_get_91macros_scheme_eval);
  add_global("__glo_list_91_125pair_scheme_eval", (object *) &__glo_list_91_125pair_scheme_eval);
  add_global("__glo_list_91_125lambda_91formals_scheme_eval", (object *) &__glo_list_91_125lambda_91formals_scheme_eval);
  add_global("__glo__191expand_91body_scheme_eval", (object *) &__glo__191expand_91body_scheme_eval);
  add_global("__glo_expand_91body_scheme_eval", (object *) &__glo_expand_91body_scheme_eval);
  add_global("__glo_expand_91lambda_91body_scheme_eval", (object *) &__glo_expand_91lambda_91body_scheme_eval);
  add_global("__glo_macro_117syntax_91rules_127_scheme_eval", (object *) &__glo_macro_117syntax_91rules_127_scheme_eval);
  add_global("__glo__191expand_scheme_eval", (object *) &__glo__191expand_scheme_eval);
  add_global("__glo_expand_scheme_eval", (object *) &__glo_expand_scheme_eval);
  add_global("__glo_macro_117cleanup_scheme_eval", (object *) &__glo_macro_117cleanup_scheme_eval);
  add_global("__glo_macro_117add_91renamed_91vars_67_scheme_eval", (object *) &__glo_macro_117add_91renamed_91vars_67_scheme_eval);
  add_global("__glo_macro_117expand_scheme_eval", (object *) &__glo_macro_117expand_scheme_eval);
  add_global("__glo_macro_117get_91local_91renames_scheme_eval", (object *) &__glo_macro_117get_91local_91renames_scheme_eval);
  add_global("__glo_macro_117macro_127_191_191inline_191_191_scheme_eval", (object *) &__glo_macro_117macro_127_191_191inline_191_191_scheme_eval);
  add_global("__glo_macro_117macro_127_scheme_eval", (object *) &__glo_macro_117macro_127_scheme_eval);
  add_global("__glo_macro_117get_91defined_91macros_scheme_eval", (object *) &__glo_macro_117get_91defined_91macros_scheme_eval);
  add_global("__glo_macro_117get_91env_scheme_eval", (object *) &__glo_macro_117get_91env_scheme_eval);
  add_global("__glo_macro_117load_91env_67_scheme_eval", (object *) &__glo_macro_117load_91env_67_scheme_eval);
  add_global("__glo_macro_117add_67_scheme_eval", (object *) &__glo_macro_117add_67_scheme_eval);
  add_global("__glo__85macro_117defined_91macros_85_scheme_eval", (object *) &__glo__85macro_117defined_91macros_85_scheme_eval);
  add_global("__glo__85macro_117env_85_scheme_eval", (object *) &__glo__85macro_117env_85_scheme_eval);
  add_global("__glo_c_117lib_91loaded_127_scheme_eval", (object *) &__glo_c_117lib_91loaded_127_scheme_eval);
  add_global("__glo_c_117import_91shared_91obj_scheme_eval", (object *) &__glo_c_117import_91shared_91obj_scheme_eval);
  add_global("__glo_import_91shared_91object_scheme_eval", (object *) &__glo_import_91shared_91object_scheme_eval);
  add_global("__glo_imported_127_scheme_eval", (object *) &__glo_imported_127_scheme_eval);
  add_global("__glo__75import_scheme_eval", (object *) &__glo__75import_scheme_eval);
  add_global("__glo_base_91expander_scheme_eval", (object *) &__glo_base_91expander_scheme_eval);
  add_global("__glo__75set_91import_91dirs_67_scheme_eval", (object *) &__glo__75set_91import_91dirs_67_scheme_eval);
  add_global("__glo__85prepend_91dirs_85_scheme_eval", (object *) &__glo__85prepend_91dirs_85_scheme_eval);
  add_global("__glo__85append_91dirs_85_scheme_eval", (object *) &__glo__85append_91dirs_85_scheme_eval);
  add_global("__glo_execute_91application_scheme_eval", (object *) &__glo_execute_91application_scheme_eval);
  add_global("__glo_analyze_91application_scheme_eval", (object *) &__glo_analyze_91application_scheme_eval);
  add_global("__glo_pre_91analyze_91application_scheme_eval", (object *) &__glo_pre_91analyze_91application_scheme_eval);
  add_global("__glo_analyze_91sequence_scheme_eval", (object *) &__glo_analyze_91sequence_scheme_eval);
  add_global("__glo_analyze_91lambda_scheme_eval", (object *) &__glo_analyze_91lambda_scheme_eval);
  add_global("__glo_analyze_91if_scheme_eval", (object *) &__glo_analyze_91if_scheme_eval);
  add_global("__glo_analyze_91import_scheme_eval", (object *) &__glo_analyze_91import_scheme_eval);
  add_global("__glo_analyze_91syntax_scheme_eval", (object *) &__glo_analyze_91syntax_scheme_eval);
  add_global("__glo_analyze_91letrec_91syntax_scheme_eval", (object *) &__glo_analyze_91letrec_91syntax_scheme_eval);
  add_global("__glo_analyze_91let_91syntax_scheme_eval", (object *) &__glo_analyze_91let_91syntax_scheme_eval);
  add_global("__glo_analyze_91definition_scheme_eval", (object *) &__glo_analyze_91definition_scheme_eval);
  add_global("__glo_analyze_91assignment_scheme_eval", (object *) &__glo_analyze_91assignment_scheme_eval);
  add_global("__glo_analyze_91variable_scheme_eval", (object *) &__glo_analyze_91variable_scheme_eval);
  add_global("__glo_assoc_91cdr_scheme_eval", (object *) &__glo_assoc_91cdr_scheme_eval);
  add_global("__glo_analyze_91quoted_scheme_eval", (object *) &__glo_analyze_91quoted_scheme_eval);
  add_global("__glo_analyze_91self_91evaluating_scheme_eval", (object *) &__glo_analyze_91self_91evaluating_scheme_eval);
  add_global("__glo_analyze_scheme_eval", (object *) &__glo_analyze_scheme_eval);
  add_global("__glo__85global_91environment_85_scheme_eval", (object *) &__glo__85global_91environment_85_scheme_eval);
  add_global("__glo__85initial_91environment_85_scheme_eval", (object *) &__glo__85initial_91environment_85_scheme_eval);
  add_global("__glo_create_91initial_91environment_scheme_eval", (object *) &__glo_create_91initial_91environment_scheme_eval);
  add_global("__glo_setup_91environment_scheme_eval", (object *) &__glo_setup_91environment_scheme_eval);
  add_global("__glo_apply_91primitive_91procedure_scheme_eval", (object *) &__glo_apply_91primitive_91procedure_scheme_eval);
  add_global("__glo_primitive_91procedure_91objects_scheme_eval", (object *) &__glo_primitive_91procedure_91objects_scheme_eval);
  add_global("__glo_primitive_91procedure_91names_scheme_eval", (object *) &__glo_primitive_91procedure_91names_scheme_eval);
  add_global("__glo_primitive_91procedures_scheme_eval", (object *) &__glo_primitive_91procedures_scheme_eval);
  add_global("__glo_primitive_91implementation_191_191inline_191_191_scheme_eval", (object *) &__glo_primitive_91implementation_191_191inline_191_191_scheme_eval);
  add_global("__glo_primitive_91implementation_scheme_eval", (object *) &__glo_primitive_91implementation_scheme_eval);
  add_global("__glo_primitive_91procedure_127_scheme_eval", (object *) &__glo_primitive_91procedure_127_scheme_eval);
  add_global("__glo_compound_91macro_127_scheme_eval", (object *) &__glo_compound_91macro_127_scheme_eval);
  add_global("__glo_macro_91tag_scheme_eval", (object *) &__glo_macro_91tag_scheme_eval);
  add_global("__glo_make_91macro_scheme_eval", (object *) &__glo_make_91macro_scheme_eval);
  add_global("__glo_procedure_91environment_191_191inline_191_191_scheme_eval", (object *) &__glo_procedure_91environment_191_191inline_191_191_scheme_eval);
  add_global("__glo_procedure_91environment_scheme_eval", (object *) &__glo_procedure_91environment_scheme_eval);
  add_global("__glo_procedure_91body_191_191inline_191_191_scheme_eval", (object *) &__glo_procedure_91body_191_191inline_191_191_scheme_eval);
  add_global("__glo_procedure_91body_scheme_eval", (object *) &__glo_procedure_91body_scheme_eval);
  add_global("__glo_procedure_91parameters_191_191inline_191_191_scheme_eval", (object *) &__glo_procedure_91parameters_191_191inline_191_191_scheme_eval);
  add_global("__glo_procedure_91parameters_scheme_eval", (object *) &__glo_procedure_91parameters_scheme_eval);
  add_global("__glo_compound_91procedure_127_scheme_eval", (object *) &__glo_compound_91procedure_127_scheme_eval);
  add_global("__glo_make_91procedure_scheme_eval", (object *) &__glo_make_91procedure_scheme_eval);
  add_global("__glo_procedure_91tag_scheme_eval", (object *) &__glo_procedure_91tag_scheme_eval);
  add_global("__glo_operands_191_191inline_191_191_scheme_eval", (object *) &__glo_operands_191_191inline_191_191_scheme_eval);
  add_global("__glo_operands_scheme_eval", (object *) &__glo_operands_scheme_eval);
  add_global("__glo_operator_191_191inline_191_191_scheme_eval", (object *) &__glo_operator_191_191inline_191_191_scheme_eval);
  add_global("__glo_operator_scheme_eval", (object *) &__glo_operator_scheme_eval);
  add_global("__glo_application_127_191_191inline_191_191_scheme_eval", (object *) &__glo_application_127_191_191inline_191_191_scheme_eval);
  add_global("__glo_application_127_scheme_eval", (object *) &__glo_application_127_scheme_eval);
  add_global("__glo_make_91if_scheme_eval", (object *) &__glo_make_91if_scheme_eval);
  add_global("__glo_if_91alternative_191_191inline_191_191_scheme_eval", (object *) &__glo_if_91alternative_191_191inline_191_191_scheme_eval);
  add_global("__glo_if_91alternative_scheme_eval", (object *) &__glo_if_91alternative_scheme_eval);
  add_global("__glo_if_91consequent_191_191inline_191_191_scheme_eval", (object *) &__glo_if_91consequent_191_191inline_191_191_scheme_eval);
  add_global("__glo_if_91consequent_scheme_eval", (object *) &__glo_if_91consequent_scheme_eval);
  add_global("__glo_if_91predicate_191_191inline_191_191_scheme_eval", (object *) &__glo_if_91predicate_191_191inline_191_191_scheme_eval);
  add_global("__glo_if_91predicate_scheme_eval", (object *) &__glo_if_91predicate_scheme_eval);
  add_global("__glo_make_91lambda_scheme_eval", (object *) &__glo_make_91lambda_scheme_eval);
  add_global("__glo_lambda_91body_191_191inline_191_191_scheme_eval", (object *) &__glo_lambda_91body_191_191inline_191_191_scheme_eval);
  add_global("__glo_lambda_91body_scheme_eval", (object *) &__glo_lambda_91body_scheme_eval);
  add_global("__glo_lambda_91parameters_191_191inline_191_191_scheme_eval", (object *) &__glo_lambda_91parameters_191_191inline_191_191_scheme_eval);
  add_global("__glo_lambda_91parameters_scheme_eval", (object *) &__glo_lambda_91parameters_scheme_eval);
  add_global("__glo_definition_91value_scheme_eval", (object *) &__glo_definition_91value_scheme_eval);
  add_global("__glo_definition_91variable_191_191inline_191_191_scheme_eval", (object *) &__glo_definition_91variable_191_191inline_191_191_scheme_eval);
  add_global("__glo_definition_91variable_scheme_eval", (object *) &__glo_definition_91variable_scheme_eval);
  add_global("__glo_definition_127_scheme_eval", (object *) &__glo_definition_127_scheme_eval);
  add_global("__glo_syntax_127_scheme_eval", (object *) &__glo_syntax_127_scheme_eval);
  add_global("__glo_assignment_91value_191_191inline_191_191_scheme_eval", (object *) &__glo_assignment_91value_191_191inline_191_191_scheme_eval);
  add_global("__glo_assignment_91value_scheme_eval", (object *) &__glo_assignment_91value_scheme_eval);
  add_global("__glo_assignment_91variable_191_191inline_191_191_scheme_eval", (object *) &__glo_assignment_91variable_191_191inline_191_191_scheme_eval);
  add_global("__glo_assignment_91variable_scheme_eval", (object *) &__glo_assignment_91variable_scheme_eval);
  add_global("__glo_assignment_127_scheme_eval", (object *) &__glo_assignment_127_scheme_eval);
  add_global("__glo_quoted_127_scheme_eval", (object *) &__glo_quoted_127_scheme_eval);
  add_global("__glo_variable_127_191_191inline_191_191_scheme_eval", (object *) &__glo_variable_127_191_191inline_191_191_scheme_eval);
  add_global("__glo_variable_127_scheme_eval", (object *) &__glo_variable_127_scheme_eval);
  add_global("__glo_self_91evaluating_127_scheme_eval", (object *) &__glo_self_91evaluating_127_scheme_eval);
  add_global("__glo_wrapc_scheme_eval", (object *) &__glo_wrapc_scheme_eval);
  add_global("__glo_eval_91from_91c_scheme_eval", (object *) &__glo_eval_91from_91c_scheme_eval);
  add_global("__glo_eval_scheme_eval", (object *) &__glo_eval_scheme_eval);
  add_global("__glo_create_91environment_scheme_eval", (object *) &__glo_create_91environment_scheme_eval);
  mclosure0(c_736738, (function_type)__lambda_504);c_736738.num_args = 0; 
  __glo_lib_91init_117schemeeval_scheme_eval = &c_736738; 
  mclosure0(c_736734, (function_type)__lambda_503);c_736734.num_args = 1; 
  __glo_begin_91_125exps_scheme_eval = &c_736734; 
  mclosure0(c_736732, (function_type)__lambda_502);c_736732.num_args = 0; 
  __glo_get_91macros_scheme_eval = &c_736732; 
  mclosure0(c_736676, (function_type)__lambda_495);c_736676.num_args = 1; 
  __glo_list_91_125pair_scheme_eval = &c_736676; 
  mclosure0(c_736631, (function_type)__lambda_494);c_736631.num_args = 2; 
  __glo_list_91_125lambda_91formals_scheme_eval = &c_736631; 
  mclosure0(c_736230, (function_type)__lambda_458);c_736230.num_args = 6; 
  __glo__191expand_91body_scheme_eval = &c_736230; 
  mclosure0(c_736228, (function_type)__lambda_457);c_736228.num_args = 4; 
  __glo_expand_91body_scheme_eval = &c_736228; 
  mclosure0(c_736226, (function_type)__lambda_456);c_736226.num_args = 3; 
  __glo_expand_91lambda_91body_scheme_eval = &c_736226; 
  mclosure0(c_736212, (function_type)__lambda_455);c_736212.num_args = 1; 
  __glo_macro_117syntax_91rules_127_scheme_eval = &c_736212; 
  mclosure0(c_735447, (function_type)__lambda_361);c_735447.num_args = 5; 
  __glo__191expand_scheme_eval = &c_735447; 
  mclosure0(c_735415, (function_type)__lambda_357);c_735415.num_args = 1; 
  __glo_expand_scheme_eval = &c_735415; 
  mclosure0(c_734954, (function_type)__lambda_306);c_734954.num_args = 2; 
  __glo_macro_117cleanup_scheme_eval = &c_734954; 
  mclosure0(c_734931, (function_type)__lambda_301);c_734931.num_args = 2; 
  __glo_macro_117add_91renamed_91vars_67_scheme_eval = &c_734931; 
  mclosure0(c_734776, (function_type)__lambda_280);c_734776.num_args = 5; 
  __glo_macro_117expand_scheme_eval = &c_734776; 
  mclosure0(c_734757, (function_type)__lambda_279);c_734757.num_args = 2; 
  __glo_macro_117get_91local_91renames_scheme_eval = &c_734757; 
  mclosure0(c_734751, (function_type)__lambda_548);c_734751.num_args = 2; 
  __glo_macro_117macro_127_191_191inline_191_191_scheme_eval = &c_734751; 
  mclosure0(c_734745, (function_type)__lambda_278);c_734745.num_args = 2; 
  __glo_macro_117macro_127_scheme_eval = &c_734745; 
  mclosure0(c_734743, (function_type)__lambda_277);c_734743.num_args = 0; 
  __glo_macro_117get_91defined_91macros_scheme_eval = &c_734743; 
  mclosure0(c_734741, (function_type)__lambda_276);c_734741.num_args = 0; 
  __glo_macro_117get_91env_scheme_eval = &c_734741; 
  mclosure0(c_734713, (function_type)__lambda_270);c_734713.num_args = 2; 
  __glo_macro_117load_91env_67_scheme_eval = &c_734713; 
  mclosure0(c_734695, (function_type)__lambda_267);c_734695.num_args = 2; 
  __glo_macro_117add_67_scheme_eval = &c_734695; 
  mclosure0(c_734694, (function_type)__lambda_547);c_734694.num_args = 1; 
  __glo_c_117lib_91loaded_127_scheme_eval = &c_734694; 
  mclosure0(c_734693, (function_type)__lambda_546);c_734693.num_args = 2; 
  __glo_c_117import_91shared_91obj_scheme_eval = &c_734693; 
  mclosure0(c_734690, (function_type)__lambda_266);c_734690.num_args = 1; 
  __glo_import_91shared_91object_scheme_eval = &c_734690; 
  mclosure0(c_734681, (function_type)__lambda_263);c_734681.num_args = 1; 
  __glo_imported_127_scheme_eval = &c_734681; 
  mclosure0(c_734564, (function_type)__lambda_239);c_734564.num_args = 0; 
  __glo__75import_scheme_eval = &c_734564; 
  mclosure0(c_734522, (function_type)__lambda_229);c_734522.num_args = 0; 
  __glo_base_91expander_scheme_eval = &c_734522; 
  mclosure0(c_734509, (function_type)__lambda_227);c_734509.num_args = 2; 
  __glo__75set_91import_91dirs_67_scheme_eval = &c_734509; 
  mclosure0(c_734424, (function_type)__lambda_214);c_734424.num_args = 2; 
  __glo_execute_91application_scheme_eval = &c_734424; 
  mclosure0(c_734377, (function_type)__lambda_203);c_734377.num_args = 4; 
  __glo_analyze_91application_scheme_eval = &c_734377; 
  mclosure0(c_734250, (function_type)__lambda_185);c_734250.num_args = 4; 
  __glo_pre_91analyze_91application_scheme_eval = &c_734250; 
  mclosure0(c_734147, (function_type)__lambda_169);c_734147.num_args = 4; 
  __glo_analyze_91sequence_scheme_eval = &c_734147; 
  mclosure0(c_734098, (function_type)__lambda_159);c_734098.num_args = 4; 
  __glo_analyze_91lambda_scheme_eval = &c_734098; 
  mclosure0(c_734019, (function_type)__lambda_146);c_734019.num_args = 4; 
  __glo_analyze_91if_scheme_eval = &c_734019; 
  mclosure0(c_734004, (function_type)__lambda_143);c_734004.num_args = 2; 
  __glo_analyze_91import_scheme_eval = &c_734004; 
  mclosure0(c_733939, (function_type)__lambda_132);c_733939.num_args = 3; 
  __glo_analyze_91syntax_scheme_eval = &c_733939; 
  mclosure0(c_733854, (function_type)__lambda_114);c_733854.num_args = 4; 
  __glo_analyze_91letrec_91syntax_scheme_eval = &c_733854; 
  mclosure0(c_733841, (function_type)__lambda_111);c_733841.num_args = 4; 
  __glo_analyze_91let_91syntax_scheme_eval = &c_733841; 
  mclosure0(c_733808, (function_type)__lambda_103);c_733808.num_args = 4; 
  __glo_analyze_91definition_scheme_eval = &c_733808; 
  mclosure0(c_733781, (function_type)__lambda_97);c_733781.num_args = 4; 
  __glo_analyze_91assignment_scheme_eval = &c_733781; 
  mclosure0(c_733745, (function_type)__lambda_91);c_733745.num_args = 2; 
  __glo_analyze_91variable_scheme_eval = &c_733745; 
  mclosure0(c_733744, (function_type)__lambda_545);c_733744.num_args = 2; 
  __glo_assoc_91cdr_scheme_eval = &c_733744; 
  mclosure0(c_733730, (function_type)__lambda_88);c_733730.num_args = 1; 
  __glo_analyze_91quoted_scheme_eval = &c_733730; 
  mclosure0(c_733724, (function_type)__lambda_86);c_733724.num_args = 1; 
  __glo_analyze_91self_91evaluating_scheme_eval = &c_733724; 
  mclosure0(c_733480, (function_type)__lambda_65);c_733480.num_args = 4; 
  __glo_analyze_scheme_eval = &c_733480; 
  mclosure0(c_733470, (function_type)__lambda_62);c_733470.num_args = 0; 
  __glo_create_91initial_91environment_scheme_eval = &c_733470; 
  mclosure0(c_733428, (function_type)__lambda_53);c_733428.num_args = 0; 
  __glo_setup_91environment_scheme_eval = &c_733428; 
  mclosure0(c_733416, (function_type)__lambda_51);c_733416.num_args = 2; 
  __glo_apply_91primitive_91procedure_scheme_eval = &c_733416; 
  mclosure0(c_733400, (function_type)__lambda_48);c_733400.num_args = 0; 
  __glo_primitive_91procedure_91objects_scheme_eval = &c_733400; 
  mclosure0(c_733387, (function_type)__lambda_45);c_733387.num_args = 0; 
  __glo_primitive_91procedure_91names_scheme_eval = &c_733387; 
  mclosure0(c_733383, (function_type)__lambda_544);c_733383.num_args = 1; 
  __glo_primitive_91implementation_191_191inline_191_191_scheme_eval = &c_733383; 
  mclosure0(c_733379, (function_type)__lambda_44);c_733379.num_args = 1; 
  __glo_primitive_91implementation_scheme_eval = &c_733379; 
  mclosure0(c_733374, (function_type)__lambda_43);c_733374.num_args = 1; 
  __glo_primitive_91procedure_127_scheme_eval = &c_733374; 
  mclosure0(c_733369, (function_type)__lambda_42);c_733369.num_args = 1; 
  __glo_compound_91macro_127_scheme_eval = &c_733369; 
  mclosure0(c_733364, (function_type)__lambda_41);c_733364.num_args = 1; 
  __glo_make_91macro_scheme_eval = &c_733364; 
  mclosure0(c_733360, (function_type)__lambda_543);c_733360.num_args = 1; 
  __glo_procedure_91environment_191_191inline_191_191_scheme_eval = &c_733360; 
  mclosure0(c_733356, (function_type)__lambda_40);c_733356.num_args = 1; 
  __glo_procedure_91environment_scheme_eval = &c_733356; 
  mclosure0(c_733352, (function_type)__lambda_542);c_733352.num_args = 1; 
  __glo_procedure_91body_191_191inline_191_191_scheme_eval = &c_733352; 
  mclosure0(c_733348, (function_type)__lambda_39);c_733348.num_args = 1; 
  __glo_procedure_91body_scheme_eval = &c_733348; 
  mclosure0(c_733344, (function_type)__lambda_541);c_733344.num_args = 1; 
  __glo_procedure_91parameters_191_191inline_191_191_scheme_eval = &c_733344; 
  mclosure0(c_733340, (function_type)__lambda_38);c_733340.num_args = 1; 
  __glo_procedure_91parameters_scheme_eval = &c_733340; 
  mclosure0(c_733335, (function_type)__lambda_37);c_733335.num_args = 1; 
  __glo_compound_91procedure_127_scheme_eval = &c_733335; 
  mclosure0(c_733330, (function_type)__lambda_36);c_733330.num_args = 3; 
  __glo_make_91procedure_scheme_eval = &c_733330; 
  mclosure0(c_733326, (function_type)__lambda_540);c_733326.num_args = 1; 
  __glo_operands_191_191inline_191_191_scheme_eval = &c_733326; 
  mclosure0(c_733322, (function_type)__lambda_35);c_733322.num_args = 1; 
  __glo_operands_scheme_eval = &c_733322; 
  mclosure0(c_733318, (function_type)__lambda_539);c_733318.num_args = 1; 
  __glo_operator_191_191inline_191_191_scheme_eval = &c_733318; 
  mclosure0(c_733314, (function_type)__lambda_34);c_733314.num_args = 1; 
  __glo_operator_scheme_eval = &c_733314; 
  mclosure0(c_733310, (function_type)__lambda_538);c_733310.num_args = 1; 
  __glo_application_127_191_191inline_191_191_scheme_eval = &c_733310; 
  mclosure0(c_733306, (function_type)__lambda_33);c_733306.num_args = 1; 
  __glo_application_127_scheme_eval = &c_733306; 
  mclosure0(c_733301, (function_type)__lambda_32);c_733301.num_args = 3; 
  __glo_make_91if_scheme_eval = &c_733301; 
  mclosure0(c_733289, (function_type)__lambda_537);c_733289.num_args = 1; 
  __glo_if_91alternative_191_191inline_191_191_scheme_eval = &c_733289; 
  mclosure0(c_733277, (function_type)__lambda_31);c_733277.num_args = 1; 
  __glo_if_91alternative_scheme_eval = &c_733277; 
  mclosure0(c_733273, (function_type)__lambda_536);c_733273.num_args = 1; 
  __glo_if_91consequent_191_191inline_191_191_scheme_eval = &c_733273; 
  mclosure0(c_733269, (function_type)__lambda_30);c_733269.num_args = 1; 
  __glo_if_91consequent_scheme_eval = &c_733269; 
  mclosure0(c_733265, (function_type)__lambda_535);c_733265.num_args = 1; 
  __glo_if_91predicate_191_191inline_191_191_scheme_eval = &c_733265; 
  mclosure0(c_733261, (function_type)__lambda_29);c_733261.num_args = 1; 
  __glo_if_91predicate_scheme_eval = &c_733261; 
  mclosure0(c_733253, (function_type)__lambda_28);c_733253.num_args = 2; 
  __glo_make_91lambda_scheme_eval = &c_733253; 
  mclosure0(c_733249, (function_type)__lambda_534);c_733249.num_args = 1; 
  __glo_lambda_91body_191_191inline_191_191_scheme_eval = &c_733249; 
  mclosure0(c_733245, (function_type)__lambda_27);c_733245.num_args = 1; 
  __glo_lambda_91body_scheme_eval = &c_733245; 
  mclosure0(c_733241, (function_type)__lambda_533);c_733241.num_args = 1; 
  __glo_lambda_91parameters_191_191inline_191_191_scheme_eval = &c_733241; 
  mclosure0(c_733237, (function_type)__lambda_26);c_733237.num_args = 1; 
  __glo_lambda_91parameters_scheme_eval = &c_733237; 
  mclosure0(c_733224, (function_type)__lambda_25);c_733224.num_args = 1; 
  __glo_definition_91value_scheme_eval = &c_733224; 
  mclosure0(c_733213, (function_type)__lambda_532);c_733213.num_args = 1; 
  __glo_definition_91variable_191_191inline_191_191_scheme_eval = &c_733213; 
  mclosure0(c_733202, (function_type)__lambda_24);c_733202.num_args = 1; 
  __glo_definition_91variable_scheme_eval = &c_733202; 
  mclosure0(c_733197, (function_type)__lambda_23);c_733197.num_args = 1; 
  __glo_definition_127_scheme_eval = &c_733197; 
  mclosure0(c_733192, (function_type)__lambda_22);c_733192.num_args = 1; 
  __glo_syntax_127_scheme_eval = &c_733192; 
  mclosure0(c_733188, (function_type)__lambda_531);c_733188.num_args = 1; 
  __glo_assignment_91value_191_191inline_191_191_scheme_eval = &c_733188; 
  mclosure0(c_733184, (function_type)__lambda_21);c_733184.num_args = 1; 
  __glo_assignment_91value_scheme_eval = &c_733184; 
  mclosure0(c_733180, (function_type)__lambda_530);c_733180.num_args = 1; 
  __glo_assignment_91variable_191_191inline_191_191_scheme_eval = &c_733180; 
  mclosure0(c_733176, (function_type)__lambda_20);c_733176.num_args = 1; 
  __glo_assignment_91variable_scheme_eval = &c_733176; 
  mclosure0(c_733171, (function_type)__lambda_19);c_733171.num_args = 1; 
  __glo_assignment_127_scheme_eval = &c_733171; 
  mclosure0(c_733166, (function_type)__lambda_18);c_733166.num_args = 1; 
  __glo_quoted_127_scheme_eval = &c_733166; 
  mclosure0(c_733162, (function_type)__lambda_529);c_733162.num_args = 1; 
  __glo_variable_127_191_191inline_191_191_scheme_eval = &c_733162; 
  mclosure0(c_733158, (function_type)__lambda_17);c_733158.num_args = 1; 
  __glo_variable_127_scheme_eval = &c_733158; 
  mclosure0(c_733126, (function_type)__lambda_16);c_733126.num_args = 1; 
  __glo_self_91evaluating_127_scheme_eval = &c_733126; 
  mclosure0(c_733083, (function_type)__lambda_11);c_733083.num_args = 1; 
  __glo_wrapc_scheme_eval = &c_733083; 
  mclosure0(c_733069, (function_type)__lambda_9);c_733069.num_args = 1; 
  __glo_eval_91from_91c_scheme_eval = &c_733069; 
  mclosure0(c_733019, (function_type)__lambda_2);c_733019.num_args = 1; 
  __glo_eval_scheme_eval = &c_733019; 
  mclosure0(c_733017, (function_type)__lambda_1);c_733017.num_args = 2; 
  __glo_create_91environment_scheme_eval = &c_733017; 
  __glo__85defined_91macros_85_scheme_eval = boolean_f; 
  __glo__85macro_117defined_91macros_85_scheme_eval = boolean_f; 
  __glo__85macro_117env_85_scheme_eval = boolean_f; 
  __glo__85prepend_91dirs_85_scheme_eval = boolean_f; 
  __glo__85append_91dirs_85_scheme_eval = boolean_f; 
  __glo__85global_91environment_85_scheme_eval = boolean_f; 
  __glo__85initial_91environment_85_scheme_eval = boolean_f; 
  __glo_primitive_91procedures_scheme_eval = boolean_f; 
  __glo_macro_91tag_scheme_eval = boolean_f; 
  __glo_procedure_91tag_scheme_eval = boolean_f; 

  mclosure0(clo_737248, c_schemeeval_inlinable_lambdas); make_pair(pair_737247, find_or_add_symbol("c_schemeeval_inlinable_lambdas"), &clo_737248);
  make_cvar(cvar_737249, (object *)&__glo_lib_91init_117schemeeval_scheme_eval);make_pair(pair_737250, find_or_add_symbol("lib-init:schemeeval"), &cvar_737249);
  make_cvar(cvar_737251, (object *)&__glo_begin_91_125exps_scheme_eval);make_pair(pair_737252, find_or_add_symbol("begin->exps"), &cvar_737251);
  make_cvar(cvar_737253, (object *)&__glo__85defined_91macros_85_scheme_eval);make_pair(pair_737254, find_or_add_symbol("*defined-macros*"), &cvar_737253);
  make_cvar(cvar_737255, (object *)&__glo_get_91macros_scheme_eval);make_pair(pair_737256, find_or_add_symbol("get-macros"), &cvar_737255);
  make_cvar(cvar_737257, (object *)&__glo_list_91_125pair_scheme_eval);make_pair(pair_737258, find_or_add_symbol("list->pair"), &cvar_737257);
  make_cvar(cvar_737259, (object *)&__glo_list_91_125lambda_91formals_scheme_eval);make_pair(pair_737260, find_or_add_symbol("list->lambda-formals"), &cvar_737259);
  make_cvar(cvar_737261, (object *)&__glo__191expand_91body_scheme_eval);make_pair(pair_737262, find_or_add_symbol("_expand-body"), &cvar_737261);
  make_cvar(cvar_737263, (object *)&__glo_expand_91body_scheme_eval);make_pair(pair_737264, find_or_add_symbol("expand-body"), &cvar_737263);
  make_cvar(cvar_737265, (object *)&__glo_expand_91lambda_91body_scheme_eval);make_pair(pair_737266, find_or_add_symbol("expand-lambda-body"), &cvar_737265);
  make_cvar(cvar_737267, (object *)&__glo_macro_117syntax_91rules_127_scheme_eval);make_pair(pair_737268, find_or_add_symbol("macro:syntax-rules?"), &cvar_737267);
  make_cvar(cvar_737269, (object *)&__glo__191expand_scheme_eval);make_pair(pair_737270, find_or_add_symbol("_expand"), &cvar_737269);
  make_cvar(cvar_737271, (object *)&__glo_expand_scheme_eval);make_pair(pair_737272, find_or_add_symbol("expand"), &cvar_737271);
  make_cvar(cvar_737273, (object *)&__glo_macro_117cleanup_scheme_eval);make_pair(pair_737274, find_or_add_symbol("macro:cleanup"), &cvar_737273);
  make_cvar(cvar_737275, (object *)&__glo_macro_117add_91renamed_91vars_67_scheme_eval);make_pair(pair_737276, find_or_add_symbol("macro:add-renamed-vars!"), &cvar_737275);
  make_cvar(cvar_737277, (object *)&__glo_macro_117expand_scheme_eval);make_pair(pair_737278, find_or_add_symbol("macro:expand"), &cvar_737277);
  make_cvar(cvar_737279, (object *)&__glo_macro_117get_91local_91renames_scheme_eval);make_pair(pair_737280, find_or_add_symbol("macro:get-local-renames"), &cvar_737279);
  make_cvar(cvar_737281, (object *)&__glo_macro_117macro_127_191_191inline_191_191_scheme_eval);make_pair(pair_737282, find_or_add_symbol("macro:macro?__inline__"), &cvar_737281);
  make_cvar(cvar_737283, (object *)&__glo_macro_117macro_127_scheme_eval);make_pair(pair_737284, find_or_add_symbol("macro:macro?"), &cvar_737283);
  make_cvar(cvar_737285, (object *)&__glo_macro_117get_91defined_91macros_scheme_eval);make_pair(pair_737286, find_or_add_symbol("macro:get-defined-macros"), &cvar_737285);
  make_cvar(cvar_737287, (object *)&__glo_macro_117get_91env_scheme_eval);make_pair(pair_737288, find_or_add_symbol("macro:get-env"), &cvar_737287);
  make_cvar(cvar_737289, (object *)&__glo_macro_117load_91env_67_scheme_eval);make_pair(pair_737290, find_or_add_symbol("macro:load-env!"), &cvar_737289);
  make_cvar(cvar_737291, (object *)&__glo_macro_117add_67_scheme_eval);make_pair(pair_737292, find_or_add_symbol("macro:add!"), &cvar_737291);
  make_cvar(cvar_737293, (object *)&__glo__85macro_117defined_91macros_85_scheme_eval);make_pair(pair_737294, find_or_add_symbol("*macro:defined-macros*"), &cvar_737293);
  make_cvar(cvar_737295, (object *)&__glo__85macro_117env_85_scheme_eval);make_pair(pair_737296, find_or_add_symbol("*macro:env*"), &cvar_737295);
  make_cvar(cvar_737297, (object *)&__glo_c_117lib_91loaded_127_scheme_eval);make_pair(pair_737298, find_or_add_symbol("c:lib-loaded?"), &cvar_737297);
  make_cvar(cvar_737299, (object *)&__glo_c_117import_91shared_91obj_scheme_eval);make_pair(pair_737300, find_or_add_symbol("c:import-shared-obj"), &cvar_737299);
  make_cvar(cvar_737301, (object *)&__glo_import_91shared_91object_scheme_eval);make_pair(pair_737302, find_or_add_symbol("import-shared-object"), &cvar_737301);
  make_cvar(cvar_737303, (object *)&__glo_imported_127_scheme_eval);make_pair(pair_737304, find_or_add_symbol("imported?"), &cvar_737303);
  make_cvar(cvar_737305, (object *)&__glo__75import_scheme_eval);make_pair(pair_737306, find_or_add_symbol("%import"), &cvar_737305);
  make_cvar(cvar_737307, (object *)&__glo_base_91expander_scheme_eval);make_pair(pair_737308, find_or_add_symbol("base-expander"), &cvar_737307);
  make_cvar(cvar_737309, (object *)&__glo__75set_91import_91dirs_67_scheme_eval);make_pair(pair_737310, find_or_add_symbol("%set-import-dirs!"), &cvar_737309);
  make_cvar(cvar_737311, (object *)&__glo__85prepend_91dirs_85_scheme_eval);make_pair(pair_737312, find_or_add_symbol("*prepend-dirs*"), &cvar_737311);
  make_cvar(cvar_737313, (object *)&__glo__85append_91dirs_85_scheme_eval);make_pair(pair_737314, find_or_add_symbol("*append-dirs*"), &cvar_737313);
  make_cvar(cvar_737315, (object *)&__glo_execute_91application_scheme_eval);make_pair(pair_737316, find_or_add_symbol("execute-application"), &cvar_737315);
  make_cvar(cvar_737317, (object *)&__glo_analyze_91application_scheme_eval);make_pair(pair_737318, find_or_add_symbol("analyze-application"), &cvar_737317);
  make_cvar(cvar_737319, (object *)&__glo_pre_91analyze_91application_scheme_eval);make_pair(pair_737320, find_or_add_symbol("pre-analyze-application"), &cvar_737319);
  make_cvar(cvar_737321, (object *)&__glo_analyze_91sequence_scheme_eval);make_pair(pair_737322, find_or_add_symbol("analyze-sequence"), &cvar_737321);
  make_cvar(cvar_737323, (object *)&__glo_analyze_91lambda_scheme_eval);make_pair(pair_737324, find_or_add_symbol("analyze-lambda"), &cvar_737323);
  make_cvar(cvar_737325, (object *)&__glo_analyze_91if_scheme_eval);make_pair(pair_737326, find_or_add_symbol("analyze-if"), &cvar_737325);
  make_cvar(cvar_737327, (object *)&__glo_analyze_91import_scheme_eval);make_pair(pair_737328, find_or_add_symbol("analyze-import"), &cvar_737327);
  make_cvar(cvar_737329, (object *)&__glo_analyze_91syntax_scheme_eval);make_pair(pair_737330, find_or_add_symbol("analyze-syntax"), &cvar_737329);
  make_cvar(cvar_737331, (object *)&__glo_analyze_91letrec_91syntax_scheme_eval);make_pair(pair_737332, find_or_add_symbol("analyze-letrec-syntax"), &cvar_737331);
  make_cvar(cvar_737333, (object *)&__glo_analyze_91let_91syntax_scheme_eval);make_pair(pair_737334, find_or_add_symbol("analyze-let-syntax"), &cvar_737333);
  make_cvar(cvar_737335, (object *)&__glo_analyze_91definition_scheme_eval);make_pair(pair_737336, find_or_add_symbol("analyze-definition"), &cvar_737335);
  make_cvar(cvar_737337, (object *)&__glo_analyze_91assignment_scheme_eval);make_pair(pair_737338, find_or_add_symbol("analyze-assignment"), &cvar_737337);
  make_cvar(cvar_737339, (object *)&__glo_analyze_91variable_scheme_eval);make_pair(pair_737340, find_or_add_symbol("analyze-variable"), &cvar_737339);
  make_cvar(cvar_737341, (object *)&__glo_assoc_91cdr_scheme_eval);make_pair(pair_737342, find_or_add_symbol("assoc-cdr"), &cvar_737341);
  make_cvar(cvar_737343, (object *)&__glo_analyze_91quoted_scheme_eval);make_pair(pair_737344, find_or_add_symbol("analyze-quoted"), &cvar_737343);
  make_cvar(cvar_737345, (object *)&__glo_analyze_91self_91evaluating_scheme_eval);make_pair(pair_737346, find_or_add_symbol("analyze-self-evaluating"), &cvar_737345);
  make_cvar(cvar_737347, (object *)&__glo_analyze_scheme_eval);make_pair(pair_737348, find_or_add_symbol("analyze"), &cvar_737347);
  make_cvar(cvar_737349, (object *)&__glo__85global_91environment_85_scheme_eval);make_pair(pair_737350, find_or_add_symbol("*global-environment*"), &cvar_737349);
  make_cvar(cvar_737351, (object *)&__glo__85initial_91environment_85_scheme_eval);make_pair(pair_737352, find_or_add_symbol("*initial-environment*"), &cvar_737351);
  make_cvar(cvar_737353, (object *)&__glo_create_91initial_91environment_scheme_eval);make_pair(pair_737354, find_or_add_symbol("create-initial-environment"), &cvar_737353);
  make_cvar(cvar_737355, (object *)&__glo_setup_91environment_scheme_eval);make_pair(pair_737356, find_or_add_symbol("setup-environment"), &cvar_737355);
  make_cvar(cvar_737357, (object *)&__glo_apply_91primitive_91procedure_scheme_eval);make_pair(pair_737358, find_or_add_symbol("apply-primitive-procedure"), &cvar_737357);
  make_cvar(cvar_737359, (object *)&__glo_primitive_91procedure_91objects_scheme_eval);make_pair(pair_737360, find_or_add_symbol("primitive-procedure-objects"), &cvar_737359);
  make_cvar(cvar_737361, (object *)&__glo_primitive_91procedure_91names_scheme_eval);make_pair(pair_737362, find_or_add_symbol("primitive-procedure-names"), &cvar_737361);
  make_cvar(cvar_737363, (object *)&__glo_primitive_91procedures_scheme_eval);make_pair(pair_737364, find_or_add_symbol("primitive-procedures"), &cvar_737363);
  make_cvar(cvar_737365, (object *)&__glo_primitive_91implementation_191_191inline_191_191_scheme_eval);make_pair(pair_737366, find_or_add_symbol("primitive-implementation__inline__"), &cvar_737365);
  make_cvar(cvar_737367, (object *)&__glo_primitive_91implementation_scheme_eval);make_pair(pair_737368, find_or_add_symbol("primitive-implementation"), &cvar_737367);
  make_cvar(cvar_737369, (object *)&__glo_primitive_91procedure_127_scheme_eval);make_pair(pair_737370, find_or_add_symbol("primitive-procedure?"), &cvar_737369);
  make_cvar(cvar_737371, (object *)&__glo_compound_91macro_127_scheme_eval);make_pair(pair_737372, find_or_add_symbol("compound-macro?"), &cvar_737371);
  make_cvar(cvar_737373, (object *)&__glo_macro_91tag_scheme_eval);make_pair(pair_737374, find_or_add_symbol("macro-tag"), &cvar_737373);
  make_cvar(cvar_737375, (object *)&__glo_make_91macro_scheme_eval);make_pair(pair_737376, find_or_add_symbol("make-macro"), &cvar_737375);
  make_cvar(cvar_737377, (object *)&__glo_procedure_91environment_191_191inline_191_191_scheme_eval);make_pair(pair_737378, find_or_add_symbol("procedure-environment__inline__"), &cvar_737377);
  make_cvar(cvar_737379, (object *)&__glo_procedure_91environment_scheme_eval);make_pair(pair_737380, find_or_add_symbol("procedure-environment"), &cvar_737379);
  make_cvar(cvar_737381, (object *)&__glo_procedure_91body_191_191inline_191_191_scheme_eval);make_pair(pair_737382, find_or_add_symbol("procedure-body__inline__"), &cvar_737381);
  make_cvar(cvar_737383, (object *)&__glo_procedure_91body_scheme_eval);make_pair(pair_737384, find_or_add_symbol("procedure-body"), &cvar_737383);
  make_cvar(cvar_737385, (object *)&__glo_procedure_91parameters_191_191inline_191_191_scheme_eval);make_pair(pair_737386, find_or_add_symbol("procedure-parameters__inline__"), &cvar_737385);
  make_cvar(cvar_737387, (object *)&__glo_procedure_91parameters_scheme_eval);make_pair(pair_737388, find_or_add_symbol("procedure-parameters"), &cvar_737387);
  make_cvar(cvar_737389, (object *)&__glo_compound_91procedure_127_scheme_eval);make_pair(pair_737390, find_or_add_symbol("compound-procedure?"), &cvar_737389);
  make_cvar(cvar_737391, (object *)&__glo_make_91procedure_scheme_eval);make_pair(pair_737392, find_or_add_symbol("make-procedure"), &cvar_737391);
  make_cvar(cvar_737393, (object *)&__glo_procedure_91tag_scheme_eval);make_pair(pair_737394, find_or_add_symbol("procedure-tag"), &cvar_737393);
  make_cvar(cvar_737395, (object *)&__glo_operands_191_191inline_191_191_scheme_eval);make_pair(pair_737396, find_or_add_symbol("operands__inline__"), &cvar_737395);
  make_cvar(cvar_737397, (object *)&__glo_operands_scheme_eval);make_pair(pair_737398, find_or_add_symbol("operands"), &cvar_737397);
  make_cvar(cvar_737399, (object *)&__glo_operator_191_191inline_191_191_scheme_eval);make_pair(pair_737400, find_or_add_symbol("operator__inline__"), &cvar_737399);
  make_cvar(cvar_737401, (object *)&__glo_operator_scheme_eval);make_pair(pair_737402, find_or_add_symbol("operator"), &cvar_737401);
  make_cvar(cvar_737403, (object *)&__glo_application_127_191_191inline_191_191_scheme_eval);make_pair(pair_737404, find_or_add_symbol("application?__inline__"), &cvar_737403);
  make_cvar(cvar_737405, (object *)&__glo_application_127_scheme_eval);make_pair(pair_737406, find_or_add_symbol("application?"), &cvar_737405);
  make_cvar(cvar_737407, (object *)&__glo_make_91if_scheme_eval);make_pair(pair_737408, find_or_add_symbol("make-if"), &cvar_737407);
  make_cvar(cvar_737409, (object *)&__glo_if_91alternative_191_191inline_191_191_scheme_eval);make_pair(pair_737410, find_or_add_symbol("if-alternative__inline__"), &cvar_737409);
  make_cvar(cvar_737411, (object *)&__glo_if_91alternative_scheme_eval);make_pair(pair_737412, find_or_add_symbol("if-alternative"), &cvar_737411);
  make_cvar(cvar_737413, (object *)&__glo_if_91consequent_191_191inline_191_191_scheme_eval);make_pair(pair_737414, find_or_add_symbol("if-consequent__inline__"), &cvar_737413);
  make_cvar(cvar_737415, (object *)&__glo_if_91consequent_scheme_eval);make_pair(pair_737416, find_or_add_symbol("if-consequent"), &cvar_737415);
  make_cvar(cvar_737417, (object *)&__glo_if_91predicate_191_191inline_191_191_scheme_eval);make_pair(pair_737418, find_or_add_symbol("if-predicate__inline__"), &cvar_737417);
  make_cvar(cvar_737419, (object *)&__glo_if_91predicate_scheme_eval);make_pair(pair_737420, find_or_add_symbol("if-predicate"), &cvar_737419);
  make_cvar(cvar_737421, (object *)&__glo_make_91lambda_scheme_eval);make_pair(pair_737422, find_or_add_symbol("make-lambda"), &cvar_737421);
  make_cvar(cvar_737423, (object *)&__glo_lambda_91body_191_191inline_191_191_scheme_eval);make_pair(pair_737424, find_or_add_symbol("lambda-body__inline__"), &cvar_737423);
  make_cvar(cvar_737425, (object *)&__glo_lambda_91body_scheme_eval);make_pair(pair_737426, find_or_add_symbol("lambda-body"), &cvar_737425);
  make_cvar(cvar_737427, (object *)&__glo_lambda_91parameters_191_191inline_191_191_scheme_eval);make_pair(pair_737428, find_or_add_symbol("lambda-parameters__inline__"), &cvar_737427);
  make_cvar(cvar_737429, (object *)&__glo_lambda_91parameters_scheme_eval);make_pair(pair_737430, find_or_add_symbol("lambda-parameters"), &cvar_737429);
  make_cvar(cvar_737431, (object *)&__glo_definition_91value_scheme_eval);make_pair(pair_737432, find_or_add_symbol("definition-value"), &cvar_737431);
  make_cvar(cvar_737433, (object *)&__glo_definition_91variable_191_191inline_191_191_scheme_eval);make_pair(pair_737434, find_or_add_symbol("definition-variable__inline__"), &cvar_737433);
  make_cvar(cvar_737435, (object *)&__glo_definition_91variable_scheme_eval);make_pair(pair_737436, find_or_add_symbol("definition-variable"), &cvar_737435);
  make_cvar(cvar_737437, (object *)&__glo_definition_127_scheme_eval);make_pair(pair_737438, find_or_add_symbol("definition?"), &cvar_737437);
  make_cvar(cvar_737439, (object *)&__glo_syntax_127_scheme_eval);make_pair(pair_737440, find_or_add_symbol("syntax?"), &cvar_737439);
  make_cvar(cvar_737441, (object *)&__glo_assignment_91value_191_191inline_191_191_scheme_eval);make_pair(pair_737442, find_or_add_symbol("assignment-value__inline__"), &cvar_737441);
  make_cvar(cvar_737443, (object *)&__glo_assignment_91value_scheme_eval);make_pair(pair_737444, find_or_add_symbol("assignment-value"), &cvar_737443);
  make_cvar(cvar_737445, (object *)&__glo_assignment_91variable_191_191inline_191_191_scheme_eval);make_pair(pair_737446, find_or_add_symbol("assignment-variable__inline__"), &cvar_737445);
  make_cvar(cvar_737447, (object *)&__glo_assignment_91variable_scheme_eval);make_pair(pair_737448, find_or_add_symbol("assignment-variable"), &cvar_737447);
  make_cvar(cvar_737449, (object *)&__glo_assignment_127_scheme_eval);make_pair(pair_737450, find_or_add_symbol("assignment?"), &cvar_737449);
  make_cvar(cvar_737451, (object *)&__glo_quoted_127_scheme_eval);make_pair(pair_737452, find_or_add_symbol("quoted?"), &cvar_737451);
  make_cvar(cvar_737453, (object *)&__glo_variable_127_191_191inline_191_191_scheme_eval);make_pair(pair_737454, find_or_add_symbol("variable?__inline__"), &cvar_737453);
  make_cvar(cvar_737455, (object *)&__glo_variable_127_scheme_eval);make_pair(pair_737456, find_or_add_symbol("variable?"), &cvar_737455);
  make_cvar(cvar_737457, (object *)&__glo_self_91evaluating_127_scheme_eval);make_pair(pair_737458, find_or_add_symbol("self-evaluating?"), &cvar_737457);
  make_cvar(cvar_737459, (object *)&__glo_wrapc_scheme_eval);make_pair(pair_737460, find_or_add_symbol("wrapc"), &cvar_737459);
  make_cvar(cvar_737461, (object *)&__glo_eval_91from_91c_scheme_eval);make_pair(pair_737462, find_or_add_symbol("eval-from-c"), &cvar_737461);
  make_cvar(cvar_737463, (object *)&__glo_eval_scheme_eval);make_pair(pair_737464, find_or_add_symbol("eval"), &cvar_737463);
  make_cvar(cvar_737465, (object *)&__glo_create_91environment_scheme_eval);make_pair(pair_737466, find_or_add_symbol("create-environment"), &cvar_737465);
make_pair(c_737576, &pair_737247,Cyc_global_variables);
make_pair(c_737575, &pair_737250, &c_737576);
make_pair(c_737574, &pair_737252, &c_737575);
make_pair(c_737573, &pair_737254, &c_737574);
make_pair(c_737572, &pair_737256, &c_737573);
make_pair(c_737571, &pair_737258, &c_737572);
make_pair(c_737570, &pair_737260, &c_737571);
make_pair(c_737569, &pair_737262, &c_737570);
make_pair(c_737568, &pair_737264, &c_737569);
make_pair(c_737567, &pair_737266, &c_737568);
make_pair(c_737566, &pair_737268, &c_737567);
make_pair(c_737565, &pair_737270, &c_737566);
make_pair(c_737564, &pair_737272, &c_737565);
make_pair(c_737563, &pair_737274, &c_737564);
make_pair(c_737562, &pair_737276, &c_737563);
make_pair(c_737561, &pair_737278, &c_737562);
make_pair(c_737560, &pair_737280, &c_737561);
make_pair(c_737559, &pair_737282, &c_737560);
make_pair(c_737558, &pair_737284, &c_737559);
make_pair(c_737557, &pair_737286, &c_737558);
make_pair(c_737556, &pair_737288, &c_737557);
make_pair(c_737555, &pair_737290, &c_737556);
make_pair(c_737554, &pair_737292, &c_737555);
make_pair(c_737553, &pair_737294, &c_737554);
make_pair(c_737552, &pair_737296, &c_737553);
make_pair(c_737551, &pair_737298, &c_737552);
make_pair(c_737550, &pair_737300, &c_737551);
make_pair(c_737549, &pair_737302, &c_737550);
make_pair(c_737548, &pair_737304, &c_737549);
make_pair(c_737547, &pair_737306, &c_737548);
make_pair(c_737546, &pair_737308, &c_737547);
make_pair(c_737545, &pair_737310, &c_737546);
make_pair(c_737544, &pair_737312, &c_737545);
make_pair(c_737543, &pair_737314, &c_737544);
make_pair(c_737542, &pair_737316, &c_737543);
make_pair(c_737541, &pair_737318, &c_737542);
make_pair(c_737540, &pair_737320, &c_737541);
make_pair(c_737539, &pair_737322, &c_737540);
make_pair(c_737538, &pair_737324, &c_737539);
make_pair(c_737537, &pair_737326, &c_737538);
make_pair(c_737536, &pair_737328, &c_737537);
make_pair(c_737535, &pair_737330, &c_737536);
make_pair(c_737534, &pair_737332, &c_737535);
make_pair(c_737533, &pair_737334, &c_737534);
make_pair(c_737532, &pair_737336, &c_737533);
make_pair(c_737531, &pair_737338, &c_737532);
make_pair(c_737530, &pair_737340, &c_737531);
make_pair(c_737529, &pair_737342, &c_737530);
make_pair(c_737528, &pair_737344, &c_737529);
make_pair(c_737527, &pair_737346, &c_737528);
make_pair(c_737526, &pair_737348, &c_737527);
make_pair(c_737525, &pair_737350, &c_737526);
make_pair(c_737524, &pair_737352, &c_737525);
make_pair(c_737523, &pair_737354, &c_737524);
make_pair(c_737522, &pair_737356, &c_737523);
make_pair(c_737521, &pair_737358, &c_737522);
make_pair(c_737520, &pair_737360, &c_737521);
make_pair(c_737519, &pair_737362, &c_737520);
make_pair(c_737518, &pair_737364, &c_737519);
make_pair(c_737517, &pair_737366, &c_737518);
make_pair(c_737516, &pair_737368, &c_737517);
make_pair(c_737515, &pair_737370, &c_737516);
make_pair(c_737514, &pair_737372, &c_737515);
make_pair(c_737513, &pair_737374, &c_737514);
make_pair(c_737512, &pair_737376, &c_737513);
make_pair(c_737511, &pair_737378, &c_737512);
make_pair(c_737510, &pair_737380, &c_737511);
make_pair(c_737509, &pair_737382, &c_737510);
make_pair(c_737508, &pair_737384, &c_737509);
make_pair(c_737507, &pair_737386, &c_737508);
make_pair(c_737506, &pair_737388, &c_737507);
make_pair(c_737505, &pair_737390, &c_737506);
make_pair(c_737504, &pair_737392, &c_737505);
make_pair(c_737503, &pair_737394, &c_737504);
make_pair(c_737502, &pair_737396, &c_737503);
make_pair(c_737501, &pair_737398, &c_737502);
make_pair(c_737500, &pair_737400, &c_737501);
make_pair(c_737499, &pair_737402, &c_737500);
make_pair(c_737498, &pair_737404, &c_737499);
make_pair(c_737497, &pair_737406, &c_737498);
make_pair(c_737496, &pair_737408, &c_737497);
make_pair(c_737495, &pair_737410, &c_737496);
make_pair(c_737494, &pair_737412, &c_737495);
make_pair(c_737493, &pair_737414, &c_737494);
make_pair(c_737492, &pair_737416, &c_737493);
make_pair(c_737491, &pair_737418, &c_737492);
make_pair(c_737490, &pair_737420, &c_737491);
make_pair(c_737489, &pair_737422, &c_737490);
make_pair(c_737488, &pair_737424, &c_737489);
make_pair(c_737487, &pair_737426, &c_737488);
make_pair(c_737486, &pair_737428, &c_737487);
make_pair(c_737485, &pair_737430, &c_737486);
make_pair(c_737484, &pair_737432, &c_737485);
make_pair(c_737483, &pair_737434, &c_737484);
make_pair(c_737482, &pair_737436, &c_737483);
make_pair(c_737481, &pair_737438, &c_737482);
make_pair(c_737480, &pair_737440, &c_737481);
make_pair(c_737479, &pair_737442, &c_737480);
make_pair(c_737478, &pair_737444, &c_737479);
make_pair(c_737477, &pair_737446, &c_737478);
make_pair(c_737476, &pair_737448, &c_737477);
make_pair(c_737475, &pair_737450, &c_737476);
make_pair(c_737474, &pair_737452, &c_737475);
make_pair(c_737473, &pair_737454, &c_737474);
make_pair(c_737472, &pair_737456, &c_737473);
make_pair(c_737471, &pair_737458, &c_737472);
make_pair(c_737470, &pair_737460, &c_737471);
make_pair(c_737469, &pair_737462, &c_737470);
make_pair(c_737468, &pair_737464, &c_737469);
make_pair(c_737467, &pair_737466, &c_737468);
Cyc_global_variables = &c_737467;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117schemeeval_scheme_eval)->fn)(data, buf[0], 1, buf);
}
void c_schemeeval_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("scheme_eval");
  c_schemeeval_entry_pt_first_lambda(data, cont, argc, value);
}
