/*===========================================================================*/
/*   (Eval/expdsrfi0.scm)                                                    */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Eval/expdsrfi0.scm -indent -o objs/obj_u/Eval/expdsrfi0.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>
#include <signal.h>

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__expander_srfizd20zd2(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
static obj_t BGl_list2253z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl__registerzd2evalzd2srfiz12z12zz__expander_srfizd20zd2(obj_t, obj_t);
extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_registerzd2evalzd2srfiz12z12zz__expander_srfizd20zd2(obj_t);
static obj_t BGl_epairifyz00zz__expander_srfizd20zd2(obj_t, obj_t);
static obj_t BGl_symbol2273z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2272z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2271z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2270z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2269z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2268z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2267z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2264z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2263z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2262z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2261z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2260z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2259z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2258z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2257z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zz__expander_srfizd20zd2();
static obj_t BGl_symbol2256z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2255z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2254z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2252z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t BGl_symbol2251z00zz__expander_srfizd20zd2 = BUNSPEC;
extern obj_t string_to_symbol(char *);
static obj_t BGl_expandzd2condzd2expandzd2orzd2zz__expander_srfizd20zd2(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_expandzd2condzd2expandzd2andzd2zz__expander_srfizd20zd2(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__expander_srfizd20zd2();
static obj_t BGl_requirezd2initializa7ationz75zz__expander_srfizd20zd2 = BUNSPEC;
extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__expandzd2condzd2expandz00zz__expander_srfizd20zd2(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2condzd2expandz00zz__expander_srfizd20zd2(obj_t, obj_t);
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_toplevelzd2initzd2zz__expander_srfizd20zd2();
static obj_t BGl_za2srfizd2evalzd2listza2z00zz__expander_srfizd20zd2 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_expandzd2condzd2expandzd2envzd2zz__expander_srfizd20zd2, BgL_bgl__expandza7d2condza7d2expandza700za7za7__expander_srfiza7d20za7d22280za7, BGl__expandzd2condzd2expandz00zz__expander_srfizd20zd2, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_registerzd2evalzd2srfiz12zd2envzc0zz__expander_srfizd20zd2, BgL_bgl__registerza7d2evalza7d2srfiza712za712za7za7__expander_srfiza7d20za7d22281z00, BGl__registerzd2evalzd2srfiz12z12zz__expander_srfizd20zd2, 0L, 1 );
DEFINE_STRING( BGl_string2266z00zz__expander_srfizd20zd2, BgL_bgl_string2266za700za7za7__expander_srfiza7d20za7d22282za7, "Illegal form", 12 );
DEFINE_STRING( BGl_string2265z00zz__expander_srfizd20zd2, BgL_bgl_string2265za700za7za7__expander_srfiza7d20za7d22283za7, "cond-expand", 11 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__expander_srfizd20zd2(long BgL_checksumz00_1168, char * BgL_fromz00_1169)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__expander_srfizd20zd2))
{ 
BGl_requirezd2initializa7ationz75zz__expander_srfizd20zd2 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__expander_srfizd20zd2(); 
BGl_importedzd2moduleszd2initz00zz__expander_srfizd20zd2(); 
BGl_toplevelzd2initzd2zz__expander_srfizd20zd2(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__expander_srfizd20zd2()
{ AN_OBJECT;
{ /* ./Eval/expdsrfi0.scm 15 */
BGl_symbol2251z00zz__expander_srfizd20zd2 = 
string_to_symbol("bigloo2.6b"); 
BGl_symbol2252z00zz__expander_srfizd20zd2 = 
string_to_symbol("bigloo2.6"); 
BGl_symbol2254z00zz__expander_srfizd20zd2 = 
string_to_symbol("bigloo-eval"); 
BGl_symbol2255z00zz__expander_srfizd20zd2 = 
string_to_symbol("bigloo"); 
BGl_symbol2256z00zz__expander_srfizd20zd2 = 
string_to_symbol("srfi-0"); 
BGl_symbol2257z00zz__expander_srfizd20zd2 = 
string_to_symbol("srfi-2"); 
BGl_symbol2258z00zz__expander_srfizd20zd2 = 
string_to_symbol("srfi-6"); 
BGl_symbol2259z00zz__expander_srfizd20zd2 = 
string_to_symbol("srfi-8"); 
BGl_symbol2260z00zz__expander_srfizd20zd2 = 
string_to_symbol("srfi-9"); 
BGl_symbol2261z00zz__expander_srfizd20zd2 = 
string_to_symbol("srfi-22"); 
BGl_symbol2262z00zz__expander_srfizd20zd2 = 
string_to_symbol("srfi-28"); 
BGl_symbol2263z00zz__expander_srfizd20zd2 = 
string_to_symbol("srfi-30"); 
{ /* ./Eval/expdsrfi0.scm 89 */
obj_t BgL_auxz00_1188;
{ /* ./Eval/expdsrfi0.scm 89 */
obj_t BgL_auxz00_1189;
{ /* ./Eval/expdsrfi0.scm 89 */
obj_t BgL_auxz00_1190;
{ /* ./Eval/expdsrfi0.scm 89 */
obj_t BgL_auxz00_1191;
{ /* ./Eval/expdsrfi0.scm 89 */
obj_t BgL_auxz00_1192;
{ /* ./Eval/expdsrfi0.scm 89 */
obj_t BgL_auxz00_1193;
{ /* ./Eval/expdsrfi0.scm 89 */
obj_t BgL_auxz00_1194;
{ /* ./Eval/expdsrfi0.scm 89 */
obj_t BgL_auxz00_1195;
{ /* ./Eval/expdsrfi0.scm 89 */
obj_t BgL_auxz00_1196;
BgL_auxz00_1196 = 
MAKE_PAIR(BGl_symbol2263z00zz__expander_srfizd20zd2, BNIL); 
BgL_auxz00_1195 = 
MAKE_PAIR(BGl_symbol2262z00zz__expander_srfizd20zd2, BgL_auxz00_1196); } 
BgL_auxz00_1194 = 
MAKE_PAIR(BGl_symbol2261z00zz__expander_srfizd20zd2, BgL_auxz00_1195); } 
BgL_auxz00_1193 = 
MAKE_PAIR(BGl_symbol2260z00zz__expander_srfizd20zd2, BgL_auxz00_1194); } 
BgL_auxz00_1192 = 
MAKE_PAIR(BGl_symbol2259z00zz__expander_srfizd20zd2, BgL_auxz00_1193); } 
BgL_auxz00_1191 = 
MAKE_PAIR(BGl_symbol2258z00zz__expander_srfizd20zd2, BgL_auxz00_1192); } 
BgL_auxz00_1190 = 
MAKE_PAIR(BGl_symbol2257z00zz__expander_srfizd20zd2, BgL_auxz00_1191); } 
BgL_auxz00_1189 = 
MAKE_PAIR(BGl_symbol2256z00zz__expander_srfizd20zd2, BgL_auxz00_1190); } 
BgL_auxz00_1188 = 
MAKE_PAIR(BGl_symbol2255z00zz__expander_srfizd20zd2, BgL_auxz00_1189); } 
BGl_list2253z00zz__expander_srfizd20zd2 = 
MAKE_PAIR(BGl_symbol2254z00zz__expander_srfizd20zd2, BgL_auxz00_1188); } 
BGl_symbol2264z00zz__expander_srfizd20zd2 = 
string_to_symbol("begin"); 
BGl_symbol2267z00zz__expander_srfizd20zd2 = 
string_to_symbol("cond-expand"); 
BGl_symbol2268z00zz__expander_srfizd20zd2 = 
string_to_symbol("else"); 
BGl_symbol2269z00zz__expander_srfizd20zd2 = 
string_to_symbol("and"); 
BGl_symbol2270z00zz__expander_srfizd20zd2 = 
string_to_symbol("or"); 
BGl_symbol2271z00zz__expander_srfizd20zd2 = 
string_to_symbol("not"); 
BGl_symbol2272z00zz__expander_srfizd20zd2 = 
string_to_symbol("body"); 
return ( 
BGl_symbol2273z00zz__expander_srfizd20zd2 = 
string_to_symbol("let"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__expander_srfizd20zd2()
{ AN_OBJECT;
{ /* ./Eval/expdsrfi0.scm 15 */
{ /* ./Eval/expdsrfi0.scm 87 */
obj_t BgL_arg1007z00_372;obj_t BgL_arg1008z00_373;
BgL_arg1007z00_372 = BGl_symbol2251z00zz__expander_srfizd20zd2; 
BgL_arg1008z00_373 = 
MAKE_PAIR(BGl_symbol2252z00zz__expander_srfizd20zd2, BGl_list2253z00zz__expander_srfizd20zd2); 
return ( 
BGl_za2srfizd2evalzd2listza2z00zz__expander_srfizd20zd2 = 
MAKE_PAIR(BgL_arg1007z00_372, BgL_arg1008z00_373), BUNSPEC) ;} } 
}



/* register-eval-srfi! */
BGL_EXPORTED_DEF obj_t BGl_registerzd2evalzd2srfiz12z12zz__expander_srfizd20zd2(obj_t BgL_srfiz00_1)
{ AN_OBJECT;
{ /* ./Eval/expdsrfi0.scm 94 */
return ( 
BGl_za2srfizd2evalzd2listza2z00zz__expander_srfizd20zd2 = 
MAKE_PAIR(BgL_srfiz00_1, BGl_za2srfizd2evalzd2listza2z00zz__expander_srfizd20zd2), BUNSPEC) ;} 
}



/* _register-eval-srfi! */
obj_t BGl__registerzd2evalzd2srfiz12z12zz__expander_srfizd20zd2(obj_t BgL_envz00_1163, obj_t BgL_srfiz00_1164)
{ AN_OBJECT;
{ /* ./Eval/expdsrfi0.scm 94 */
return 
BGl_registerzd2evalzd2srfiz12z12zz__expander_srfizd20zd2(BgL_srfiz00_1164);} 
}



/* expand-cond-expand */
BGL_EXPORTED_DEF obj_t BGl_expandzd2condzd2expandz00zz__expander_srfizd20zd2(obj_t BgL_xz00_2, obj_t BgL_ez00_3)
{ AN_OBJECT;
{ /* ./Eval/expdsrfi0.scm 100 */
{ 
obj_t BgL_clausez00_375;obj_t BgL_elsez00_376;
if(
PAIRP(BgL_xz00_2))
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1221;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1222;
BgL_auxz00_1222 = 
CAR(BgL_xz00_2); 
BgL_testz00_1221 = 
(BgL_auxz00_1222==BGl_symbol2267z00zz__expander_srfizd20zd2); } 
if(BgL_testz00_1221)
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1225;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1226;
BgL_auxz00_1226 = 
CDR(BgL_xz00_2); 
BgL_testz00_1225 = 
NULLP(BgL_auxz00_1226); } 
if(BgL_testz00_1225)
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_cdrzd2114zd2_383;
BgL_cdrzd2114zd2_383 = 
CDR(BgL_xz00_2); 
if(
PAIRP(BgL_cdrzd2114zd2_383))
{ /* ./Eval/expdsrfi0.scm 101 */
BgL_clausez00_375 = 
CAR(BgL_cdrzd2114zd2_383); 
BgL_elsez00_376 = 
CDR(BgL_cdrzd2114zd2_383); 
BgL_tagzd2102zd2_377:
{ 
obj_t BgL_featurez00_419;obj_t BgL_bodyz00_420;obj_t BgL_reqz00_416;obj_t BgL_bodyz00_417;obj_t BgL_bodyz00_394;
if(
PAIRP(BgL_clausez00_375))
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1235;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1236;
BgL_auxz00_1236 = 
CAR(BgL_clausez00_375); 
BgL_testz00_1235 = 
(BgL_auxz00_1236==BGl_symbol2268z00zz__expander_srfizd20zd2); } 
if(BgL_testz00_1235)
{ /* ./Eval/expdsrfi0.scm 101 */
BgL_bodyz00_394 = 
CDR(BgL_clausez00_375); 
if(
NULLP(BgL_elsez00_376))
{ /* ./Eval/expdsrfi0.scm 108 */
obj_t BgL_arg1261z00_509;
{ /* ./Eval/expdsrfi0.scm 108 */
obj_t BgL_arg1265z00_510;
{ /* ./Eval/expdsrfi0.scm 108 */
obj_t BgL_auxz00_1241;
BgL_auxz00_1241 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_394, BNIL); 
BgL_arg1265z00_510 = 
MAKE_PAIR(BGl_symbol2264z00zz__expander_srfizd20zd2, BgL_auxz00_1241); } 
{ /* ./Eval/expdsrfi0.scm 108 */
bool_t BgL_test1527z00_932;
BgL_test1527z00_932 = 
EXTENDED_PAIRP(BgL_xz00_2); 
if(BgL_test1527z00_932)
{ /* ./Eval/expdsrfi0.scm 108 */
obj_t BgL_arg1529z00_933;obj_t BgL_arg1530z00_934;obj_t BgL_arg1531z00_935;
BgL_arg1529z00_933 = 
CAR(BgL_arg1265z00_510); 
BgL_arg1530z00_934 = 
CDR(BgL_arg1265z00_510); 
BgL_arg1531z00_935 = 
CER(BgL_xz00_2); 
{ /* ./Eval/expdsrfi0.scm 108 */
obj_t BgL_res2209z00_943;
BgL_res2209z00_943 = 
MAKE_EXTENDED_PAIR(BgL_arg1529z00_933, BgL_arg1530z00_934, BgL_arg1531z00_935); 
BgL_arg1261z00_509 = BgL_res2209z00_943; } }  else 
{ /* ./Eval/expdsrfi0.scm 108 */
BgL_arg1261z00_509 = BgL_arg1265z00_510; } } } 
return 
PROCEDURE_ENTRY(BgL_ez00_3)(BgL_ez00_3, BgL_arg1261z00_509, BgL_ez00_3, BEOA);}  else 
{ /* ./Eval/expdsrfi0.scm 107 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_carzd2165zd2_427;
BgL_carzd2165zd2_427 = 
CAR(BgL_clausez00_375); 
if(
PAIRP(BgL_carzd2165zd2_427))
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1257;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1258;
BgL_auxz00_1258 = 
CAR(BgL_carzd2165zd2_427); 
BgL_testz00_1257 = 
(BgL_auxz00_1258==BGl_symbol2269z00zz__expander_srfizd20zd2); } 
if(BgL_testz00_1257)
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1261;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1262;
BgL_auxz00_1262 = 
CDR(BgL_carzd2165zd2_427); 
BgL_testz00_1261 = 
NULLP(BgL_auxz00_1262); } 
if(BgL_testz00_1261)
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1059z00_431;
BgL_arg1059z00_431 = 
CDR(BgL_clausez00_375); 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1275z00_800;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1278z00_801;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1266;
BgL_auxz00_1266 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1059z00_431, BNIL); 
BgL_arg1278z00_801 = 
MAKE_PAIR(BGl_symbol2264z00zz__expander_srfizd20zd2, BgL_auxz00_1266); } 
BgL_arg1275z00_800 = 
BGl_epairifyz00zz__expander_srfizd20zd2(BgL_arg1278z00_801, BgL_xz00_2); } 
return 
PROCEDURE_ENTRY(BgL_ez00_3)(BgL_ez00_3, BgL_arg1275z00_800, BgL_ez00_3, BEOA);} }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_cdrzd2182zd2_432;
BgL_cdrzd2182zd2_432 = 
CDR(BgL_carzd2165zd2_427); 
if(
PAIRP(BgL_cdrzd2182zd2_432))
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1275;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1276;
BgL_auxz00_1276 = 
CDR(BgL_cdrzd2182zd2_432); 
BgL_testz00_1275 = 
NULLP(BgL_auxz00_1276); } 
if(BgL_testz00_1275)
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1065z00_435;obj_t BgL_arg1066z00_436;
BgL_arg1065z00_435 = 
CAR(BgL_cdrzd2182zd2_432); 
BgL_arg1066z00_436 = 
CDR(BgL_clausez00_375); 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1286z00_813;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1289z00_814;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1292z00_815;obj_t BgL_arg1293z00_816;
BgL_arg1292z00_815 = BGl_symbol2267z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1296z00_817;obj_t BgL_arg1297z00_818;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1281;
BgL_auxz00_1281 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1066z00_436, BNIL); 
BgL_arg1296z00_817 = 
MAKE_PAIR(BgL_arg1065z00_435, BgL_auxz00_1281); } 
BgL_arg1297z00_818 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_elsez00_376, BNIL); 
BgL_arg1293z00_816 = 
MAKE_PAIR(BgL_arg1296z00_817, BgL_arg1297z00_818); } 
BgL_arg1289z00_814 = 
MAKE_PAIR(BgL_arg1292z00_815, BgL_arg1293z00_816); } 
BgL_arg1286z00_813 = 
BGl_epairifyz00zz__expander_srfizd20zd2(BgL_arg1289z00_814, BgL_xz00_2); } 
return 
PROCEDURE_ENTRY(BgL_ez00_3)(BgL_ez00_3, BgL_arg1286z00_813, BgL_ez00_3, BEOA);} }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_cdrzd2206zd2_437;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1290;
BgL_auxz00_1290 = 
CAR(BgL_clausez00_375); 
BgL_cdrzd2206zd2_437 = 
CDR(BgL_auxz00_1290); } 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_cdrzd2212zd2_438;
BgL_cdrzd2212zd2_438 = 
CDR(BgL_cdrzd2206zd2_437); 
if(
PAIRP(BgL_cdrzd2212zd2_438))
{ /* ./Eval/expdsrfi0.scm 101 */
return 
BGl_expandzd2condzd2expandzd2andzd2zz__expander_srfizd20zd2(BgL_xz00_2, BgL_ez00_3, 
CAR(BgL_cdrzd2206zd2_437), 
CAR(BgL_cdrzd2212zd2_438), 
CDR(BgL_cdrzd2212zd2_438), 
CDR(BgL_clausez00_375), BgL_elsez00_376);}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_carzd2256zd2_444;
BgL_carzd2256zd2_444 = 
CAR(BgL_clausez00_375); 
if(
SYMBOLP(BgL_carzd2256zd2_444))
{ /* ./Eval/expdsrfi0.scm 101 */
BgL_featurez00_419 = BgL_carzd2256zd2_444; 
BgL_bodyz00_420 = 
CDR(BgL_clausez00_375); 
BgL_tagzd2145zd2_421:
{ /* ./Eval/expdsrfi0.scm 137 */
obj_t BgL_arg1374z00_550;
{ /* ./Eval/expdsrfi0.scm 137 */
obj_t BgL_arg1377z00_551;
{ /* ./Eval/expdsrfi0.scm 137 */
bool_t BgL_testz00_1304;
{ /* ./Eval/expdsrfi0.scm 137 */
obj_t BgL_auxz00_1305;
BgL_auxz00_1305 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_featurez00_419, BGl_za2srfizd2evalzd2listza2z00zz__expander_srfizd20zd2); 
BgL_testz00_1304 = 
CBOOL(BgL_auxz00_1305); } 
if(BgL_testz00_1304)
{ /* ./Eval/expdsrfi0.scm 138 */
obj_t BgL_auxz00_1308;
BgL_auxz00_1308 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_420, BNIL); 
BgL_arg1377z00_551 = 
MAKE_PAIR(BGl_symbol2264z00zz__expander_srfizd20zd2, BgL_auxz00_1308); }  else 
{ /* ./Eval/expdsrfi0.scm 139 */
obj_t BgL_auxz00_1311;
BgL_auxz00_1311 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_elsez00_376, BNIL); 
BgL_arg1377z00_551 = 
MAKE_PAIR(BGl_symbol2267z00zz__expander_srfizd20zd2, BgL_auxz00_1311); } } 
{ /* ./Eval/expdsrfi0.scm 137 */
bool_t BgL_test1527z00_1066;
BgL_test1527z00_1066 = 
EXTENDED_PAIRP(BgL_xz00_2); 
if(BgL_test1527z00_1066)
{ /* ./Eval/expdsrfi0.scm 137 */
obj_t BgL_arg1529z00_1067;obj_t BgL_arg1530z00_1068;obj_t BgL_arg1531z00_1069;
BgL_arg1529z00_1067 = 
CAR(BgL_arg1377z00_551); 
BgL_arg1530z00_1068 = 
CDR(BgL_arg1377z00_551); 
BgL_arg1531z00_1069 = 
CER(BgL_xz00_2); 
{ /* ./Eval/expdsrfi0.scm 137 */
obj_t BgL_res2215z00_1077;
BgL_res2215z00_1077 = 
MAKE_EXTENDED_PAIR(BgL_arg1529z00_1067, BgL_arg1530z00_1068, BgL_arg1531z00_1069); 
BgL_arg1374z00_550 = BgL_res2215z00_1077; } }  else 
{ /* ./Eval/expdsrfi0.scm 137 */
BgL_arg1374z00_550 = BgL_arg1377z00_551; } } } 
return 
PROCEDURE_ENTRY(BgL_ez00_3)(BgL_ez00_3, BgL_arg1374z00_550, BgL_ez00_3, BEOA);} }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } } } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_carzd2306zd2_449;
BgL_carzd2306zd2_449 = 
CAR(BgL_clausez00_375); 
if(
SYMBOLP(BgL_carzd2306zd2_449))
{ 
obj_t BgL_bodyz00_1328;obj_t BgL_featurez00_1327;
BgL_featurez00_1327 = BgL_carzd2306zd2_449; 
BgL_bodyz00_1328 = 
CDR(BgL_clausez00_375); 
BgL_bodyz00_420 = BgL_bodyz00_1328; 
BgL_featurez00_419 = BgL_featurez00_1327; 
goto BgL_tagzd2145zd2_421;}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1331;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1332;
BgL_auxz00_1332 = 
CAR(BgL_carzd2165zd2_427); 
BgL_testz00_1331 = 
(BgL_auxz00_1332==BGl_symbol2270z00zz__expander_srfizd20zd2); } 
if(BgL_testz00_1331)
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1335;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1336;
BgL_auxz00_1336 = 
CDR(BgL_carzd2165zd2_427); 
BgL_testz00_1335 = 
NULLP(BgL_auxz00_1336); } 
if(BgL_testz00_1335)
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1306z00_850;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1309z00_851;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1339;
BgL_auxz00_1339 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_elsez00_376, BNIL); 
BgL_arg1309z00_851 = 
MAKE_PAIR(BGl_symbol2267z00zz__expander_srfizd20zd2, BgL_auxz00_1339); } 
BgL_arg1306z00_850 = 
BGl_epairifyz00zz__expander_srfizd20zd2(BgL_arg1309z00_851, BgL_xz00_2); } 
return 
PROCEDURE_ENTRY(BgL_ez00_3)(BgL_ez00_3, BgL_arg1306z00_850, BgL_ez00_3, BEOA);}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_cdrzd2354zd2_458;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1345;
BgL_auxz00_1345 = 
CAR(BgL_clausez00_375); 
BgL_cdrzd2354zd2_458 = 
CDR(BgL_auxz00_1345); } 
if(
PAIRP(BgL_cdrzd2354zd2_458))
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1350;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1351;
BgL_auxz00_1351 = 
CDR(BgL_cdrzd2354zd2_458); 
BgL_testz00_1350 = 
NULLP(BgL_auxz00_1351); } 
if(BgL_testz00_1350)
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1130z00_461;obj_t BgL_arg1131z00_462;
BgL_arg1130z00_461 = 
CAR(BgL_cdrzd2354zd2_458); 
BgL_arg1131z00_462 = 
CDR(BgL_clausez00_375); 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1317z00_863;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1320z00_864;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1323z00_865;obj_t BgL_arg1324z00_866;
BgL_arg1323z00_865 = BGl_symbol2267z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_arg1327z00_867;obj_t BgL_arg1328z00_868;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1356;
BgL_auxz00_1356 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1131z00_462, BNIL); 
BgL_arg1327z00_867 = 
MAKE_PAIR(BgL_arg1130z00_461, BgL_auxz00_1356); } 
BgL_arg1328z00_868 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_elsez00_376, BNIL); 
BgL_arg1324z00_866 = 
MAKE_PAIR(BgL_arg1327z00_867, BgL_arg1328z00_868); } 
BgL_arg1320z00_864 = 
MAKE_PAIR(BgL_arg1323z00_865, BgL_arg1324z00_866); } 
BgL_arg1317z00_863 = 
BGl_epairifyz00zz__expander_srfizd20zd2(BgL_arg1320z00_864, BgL_xz00_2); } 
return 
PROCEDURE_ENTRY(BgL_ez00_3)(BgL_ez00_3, BgL_arg1317z00_863, BgL_ez00_3, BEOA);} }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_cdrzd2384zd2_464;
BgL_cdrzd2384zd2_464 = 
CDR(BgL_cdrzd2354zd2_458); 
if(
PAIRP(BgL_cdrzd2384zd2_464))
{ /* ./Eval/expdsrfi0.scm 101 */
return 
BGl_expandzd2condzd2expandzd2orzd2zz__expander_srfizd20zd2(BgL_xz00_2, BgL_ez00_3, 
CAR(BgL_cdrzd2354zd2_458), 
CAR(BgL_cdrzd2384zd2_464), 
CDR(BgL_cdrzd2384zd2_464), 
CDR(BgL_clausez00_375), BgL_elsez00_376);}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_carzd2403zd2_470;
BgL_carzd2403zd2_470 = 
CAR(BgL_clausez00_375); 
if(
SYMBOLP(BgL_carzd2403zd2_470))
{ 
obj_t BgL_bodyz00_1377;obj_t BgL_featurez00_1376;
BgL_featurez00_1376 = BgL_carzd2403zd2_470; 
BgL_bodyz00_1377 = 
CDR(BgL_clausez00_375); 
BgL_bodyz00_420 = BgL_bodyz00_1377; 
BgL_featurez00_419 = BgL_featurez00_1376; 
goto BgL_tagzd2145zd2_421;}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_carzd2428zd2_475;
BgL_carzd2428zd2_475 = 
CAR(BgL_clausez00_375); 
if(
SYMBOLP(BgL_carzd2428zd2_475))
{ 
obj_t BgL_bodyz00_1384;obj_t BgL_featurez00_1383;
BgL_featurez00_1383 = BgL_carzd2428zd2_475; 
BgL_bodyz00_1384 = 
CDR(BgL_clausez00_375); 
BgL_bodyz00_420 = BgL_bodyz00_1384; 
BgL_featurez00_419 = BgL_featurez00_1383; 
goto BgL_tagzd2145zd2_421;}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_carzd2457zd2_480;
BgL_carzd2457zd2_480 = 
CAR(BgL_clausez00_375); 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_cdrzd2461zd2_481;
BgL_cdrzd2461zd2_481 = 
CDR(BgL_carzd2457zd2_480); 
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1389;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1390;
BgL_auxz00_1390 = 
CAR(BgL_carzd2457zd2_480); 
BgL_testz00_1389 = 
(BgL_auxz00_1390==BGl_symbol2271z00zz__expander_srfizd20zd2); } 
if(BgL_testz00_1389)
{ /* ./Eval/expdsrfi0.scm 101 */
if(
PAIRP(BgL_cdrzd2461zd2_481))
{ /* ./Eval/expdsrfi0.scm 101 */
bool_t BgL_testz00_1395;
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_auxz00_1396;
BgL_auxz00_1396 = 
CDR(BgL_cdrzd2461zd2_481); 
BgL_testz00_1395 = 
NULLP(BgL_auxz00_1396); } 
if(BgL_testz00_1395)
{ /* ./Eval/expdsrfi0.scm 101 */
BgL_reqz00_416 = 
CAR(BgL_cdrzd2461zd2_481); 
BgL_bodyz00_417 = 
CDR(BgL_clausez00_375); 
{ /* ./Eval/expdsrfi0.scm 131 */
obj_t BgL_arg1337z00_535;
{ /* ./Eval/expdsrfi0.scm 131 */
obj_t BgL_arg1340z00_536;
{ /* ./Eval/expdsrfi0.scm 131 */
obj_t BgL_arg1343z00_537;obj_t BgL_arg1344z00_538;
BgL_arg1343z00_537 = BGl_symbol2267z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 132 */
obj_t BgL_arg1347z00_539;obj_t BgL_arg1348z00_540;
{ /* ./Eval/expdsrfi0.scm 132 */
obj_t BgL_arg1352z00_541;
{ /* ./Eval/expdsrfi0.scm 132 */
obj_t BgL_arg1355z00_542;
{ /* ./Eval/expdsrfi0.scm 132 */
obj_t BgL_auxz00_1399;
BgL_auxz00_1399 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_elsez00_376, BNIL); 
BgL_arg1355z00_542 = 
MAKE_PAIR(BGl_symbol2267z00zz__expander_srfizd20zd2, BgL_auxz00_1399); } 
BgL_arg1352z00_541 = 
MAKE_PAIR(BgL_arg1355z00_542, BNIL); } 
BgL_arg1347z00_539 = 
MAKE_PAIR(BgL_reqz00_416, BgL_arg1352z00_541); } 
{ /* ./Eval/expdsrfi0.scm 133 */
obj_t BgL_arg1364z00_546;
{ /* ./Eval/expdsrfi0.scm 133 */
obj_t BgL_auxz00_1404;
BgL_auxz00_1404 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_417, BNIL); 
BgL_arg1364z00_546 = 
MAKE_PAIR(BGl_symbol2268z00zz__expander_srfizd20zd2, BgL_auxz00_1404); } 
BgL_arg1348z00_540 = 
MAKE_PAIR(BgL_arg1364z00_546, BNIL); } 
BgL_arg1344z00_538 = 
MAKE_PAIR(BgL_arg1347z00_539, BgL_arg1348z00_540); } 
BgL_arg1340z00_536 = 
MAKE_PAIR(BgL_arg1343z00_537, BgL_arg1344z00_538); } 
{ /* ./Eval/expdsrfi0.scm 131 */
bool_t BgL_test1527z00_1052;
BgL_test1527z00_1052 = 
EXTENDED_PAIRP(BgL_xz00_2); 
if(BgL_test1527z00_1052)
{ /* ./Eval/expdsrfi0.scm 131 */
obj_t BgL_arg1529z00_1053;obj_t BgL_arg1530z00_1054;obj_t BgL_arg1531z00_1055;
BgL_arg1529z00_1053 = 
CAR(BgL_arg1340z00_536); 
BgL_arg1530z00_1054 = 
CDR(BgL_arg1340z00_536); 
BgL_arg1531z00_1055 = 
CER(BgL_xz00_2); 
{ /* ./Eval/expdsrfi0.scm 131 */
obj_t BgL_res2214z00_1063;
BgL_res2214z00_1063 = 
MAKE_EXTENDED_PAIR(BgL_arg1529z00_1053, BgL_arg1530z00_1054, BgL_arg1531z00_1055); 
BgL_arg1337z00_535 = BgL_res2214z00_1063; } }  else 
{ /* ./Eval/expdsrfi0.scm 131 */
BgL_arg1337z00_535 = BgL_arg1340z00_536; } } } 
return 
PROCEDURE_ENTRY(BgL_ez00_3)(BgL_ez00_3, BgL_arg1337z00_535, BgL_ez00_3, BEOA);} }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
if(
SYMBOLP(BgL_carzd2457zd2_480))
{ 
obj_t BgL_bodyz00_1423;obj_t BgL_featurez00_1422;
BgL_featurez00_1422 = BgL_carzd2457zd2_480; 
BgL_bodyz00_1423 = 
CDR(BgL_clausez00_375); 
BgL_bodyz00_420 = BgL_bodyz00_1423; 
BgL_featurez00_419 = BgL_featurez00_1422; 
goto BgL_tagzd2145zd2_421;}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
if(
SYMBOLP(BgL_carzd2457zd2_480))
{ 
obj_t BgL_bodyz00_1429;obj_t BgL_featurez00_1428;
BgL_featurez00_1428 = BgL_carzd2457zd2_480; 
BgL_bodyz00_1429 = 
CDR(BgL_clausez00_375); 
BgL_bodyz00_420 = BgL_bodyz00_1429; 
BgL_featurez00_419 = BgL_featurez00_1428; 
goto BgL_tagzd2145zd2_421;}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
if(
SYMBOLP(BgL_carzd2457zd2_480))
{ 
obj_t BgL_bodyz00_1435;obj_t BgL_featurez00_1434;
BgL_featurez00_1434 = BgL_carzd2457zd2_480; 
BgL_bodyz00_1435 = 
CDR(BgL_clausez00_375); 
BgL_bodyz00_420 = BgL_bodyz00_1435; 
BgL_featurez00_419 = BgL_featurez00_1434; 
goto BgL_tagzd2145zd2_421;}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } } } } } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
if(
SYMBOLP(BgL_carzd2165zd2_427))
{ 
obj_t BgL_bodyz00_1441;obj_t BgL_featurez00_1440;
BgL_featurez00_1440 = BgL_carzd2165zd2_427; 
BgL_bodyz00_1441 = 
CDR(BgL_clausez00_375); 
BgL_bodyz00_420 = BgL_bodyz00_1441; 
BgL_featurez00_419 = BgL_featurez00_1440; 
goto BgL_tagzd2145zd2_421;}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
obj_t BgL_cdrzd2126zd2_388;
BgL_cdrzd2126zd2_388 = 
CDR(BgL_xz00_2); 
if(
PAIRP(BgL_cdrzd2126zd2_388))
{ 
obj_t BgL_elsez00_1453;obj_t BgL_clausez00_1451;
BgL_clausez00_1451 = 
CAR(BgL_cdrzd2126zd2_388); 
BgL_elsez00_1453 = 
CDR(BgL_cdrzd2126zd2_388); 
BgL_elsez00_376 = BgL_elsez00_1453; 
BgL_clausez00_375 = BgL_clausez00_1451; 
goto BgL_tagzd2102zd2_377;}  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } }  else 
{ /* ./Eval/expdsrfi0.scm 101 */
FAILURE(BGl_string2265z00zz__expander_srfizd20zd2,BGl_string2266z00zz__expander_srfizd20zd2,BgL_xz00_2);} } } 
}



/* _expand-cond-expand */
obj_t BGl__expandzd2condzd2expandz00zz__expander_srfizd20zd2(obj_t BgL_envz00_1165, obj_t BgL_xz00_1166, obj_t BgL_ez00_1167)
{ AN_OBJECT;
{ /* ./Eval/expdsrfi0.scm 100 */
return 
BGl_expandzd2condzd2expandz00zz__expander_srfizd20zd2(BgL_xz00_1166, BgL_ez00_1167);} 
}



/* expand-cond-expand-and */
obj_t BGl_expandzd2condzd2expandzd2andzd2zz__expander_srfizd20zd2(obj_t BgL_xz00_4, obj_t BgL_ez00_5, obj_t BgL_req1z00_6, obj_t BgL_req2z00_7, obj_t BgL_reqsz00_8, obj_t BgL_bodyz00_9, obj_t BgL_elsez00_10)
{ AN_OBJECT;
{ /* ./Eval/expdsrfi0.scm 150 */
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1394z00_1084;
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1397z00_1085;
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1400z00_1086;obj_t BgL_arg1401z00_1087;
BgL_arg1400z00_1086 = BGl_symbol2267z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1406z00_1088;obj_t BgL_arg1407z00_1089;
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1410z00_1090;
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1413z00_1091;
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1417z00_1093;obj_t BgL_arg1418z00_1094;
BgL_arg1417z00_1093 = BGl_symbol2267z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1421z00_1095;obj_t BgL_arg1422z00_1096;
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1425z00_1097;obj_t BgL_arg1426z00_1098;
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1429z00_1099;obj_t BgL_arg1430z00_1100;
BgL_arg1429z00_1099 = BGl_symbol2269z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_auxz00_1458;
BgL_auxz00_1458 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_reqsz00_8, BNIL); 
BgL_arg1430z00_1100 = 
MAKE_PAIR(BgL_req2z00_7, BgL_auxz00_1458); } 
BgL_arg1425z00_1097 = 
MAKE_PAIR(BgL_arg1429z00_1099, BgL_arg1430z00_1100); } 
BgL_arg1426z00_1098 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_9, BNIL); 
BgL_arg1421z00_1095 = 
MAKE_PAIR(BgL_arg1425z00_1097, BgL_arg1426z00_1098); } 
BgL_arg1422z00_1096 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_elsez00_10, BNIL); 
BgL_arg1418z00_1094 = 
MAKE_PAIR(BgL_arg1421z00_1095, BgL_arg1422z00_1096); } 
BgL_arg1413z00_1091 = 
MAKE_PAIR(BgL_arg1417z00_1093, BgL_arg1418z00_1094); } 
BgL_arg1410z00_1090 = 
MAKE_PAIR(BgL_arg1413z00_1091, BNIL); } 
BgL_arg1406z00_1088 = 
MAKE_PAIR(BgL_req1z00_6, BgL_arg1410z00_1090); } 
BgL_arg1407z00_1089 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_elsez00_10, BNIL); 
BgL_arg1401z00_1087 = 
MAKE_PAIR(BgL_arg1406z00_1088, BgL_arg1407z00_1089); } 
BgL_arg1397z00_1085 = 
MAKE_PAIR(BgL_arg1400z00_1086, BgL_arg1401z00_1087); } 
{ /* ./Eval/expdsrfi0.scm 153 */
bool_t BgL_test1527z00_1104;
BgL_test1527z00_1104 = 
EXTENDED_PAIRP(BgL_xz00_4); 
if(BgL_test1527z00_1104)
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_arg1529z00_1105;obj_t BgL_arg1530z00_1106;obj_t BgL_arg1531z00_1107;
BgL_arg1529z00_1105 = 
CAR(BgL_arg1397z00_1085); 
BgL_arg1530z00_1106 = 
CDR(BgL_arg1397z00_1085); 
BgL_arg1531z00_1107 = 
CER(BgL_xz00_4); 
{ /* ./Eval/expdsrfi0.scm 153 */
obj_t BgL_res2216z00_1115;
BgL_res2216z00_1115 = 
MAKE_EXTENDED_PAIR(BgL_arg1529z00_1105, BgL_arg1530z00_1106, BgL_arg1531z00_1107); 
BgL_arg1394z00_1084 = BgL_res2216z00_1115; } }  else 
{ /* ./Eval/expdsrfi0.scm 153 */
BgL_arg1394z00_1084 = BgL_arg1397z00_1085; } } } 
return 
PROCEDURE_ENTRY(BgL_ez00_5)(BgL_ez00_5, BgL_arg1394z00_1084, BgL_ez00_5, BEOA);} } 
}



/* expand-cond-expand-or */
obj_t BGl_expandzd2condzd2expandzd2orzd2zz__expander_srfizd20zd2(obj_t BgL_xz00_11, obj_t BgL_ez00_12, obj_t BgL_req1z00_13, obj_t BgL_req2z00_14, obj_t BgL_reqsz00_15, obj_t BgL_bodyz00_16, obj_t BgL_elsez00_17)
{ AN_OBJECT;
{ /* ./Eval/expdsrfi0.scm 162 */
{ /* ./Eval/expdsrfi0.scm 163 */
obj_t BgL_bdz00_575;
BgL_bdz00_575 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol2272z00zz__expander_srfizd20zd2, BEOA); 
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_arg1440z00_576;
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_arg1444z00_577;
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_arg1448z00_578;obj_t BgL_arg1449z00_579;
BgL_arg1448z00_578 = BGl_symbol2273z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_arg1452z00_580;obj_t BgL_arg1453z00_581;
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_arg1456z00_582;
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_arg1461z00_584;
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_arg1464z00_585;
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_arg1468z00_587;
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_auxz00_1482;
BgL_auxz00_1482 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_16, BNIL); 
BgL_arg1468z00_587 = 
MAKE_PAIR(BGl_symbol2264z00zz__expander_srfizd20zd2, BgL_auxz00_1482); } 
{ /* ./Eval/expdsrfi0.scm 164 */
bool_t BgL_test1527z00_1118;
BgL_test1527z00_1118 = 
EXTENDED_PAIRP(BgL_bodyz00_16); 
if(BgL_test1527z00_1118)
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_arg1529z00_1119;obj_t BgL_arg1530z00_1120;obj_t BgL_arg1531z00_1121;
BgL_arg1529z00_1119 = 
CAR(BgL_arg1468z00_587); 
BgL_arg1530z00_1120 = 
CDR(BgL_arg1468z00_587); 
BgL_arg1531z00_1121 = 
CER(BgL_bodyz00_16); 
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_res2217z00_1129;
BgL_res2217z00_1129 = 
MAKE_EXTENDED_PAIR(BgL_arg1529z00_1119, BgL_arg1530z00_1120, BgL_arg1531z00_1121); 
BgL_arg1464z00_585 = BgL_res2217z00_1129; } }  else 
{ /* ./Eval/expdsrfi0.scm 164 */
BgL_arg1464z00_585 = BgL_arg1468z00_587; } } } 
BgL_arg1461z00_584 = 
MAKE_PAIR(BgL_arg1464z00_585, BNIL); } 
BgL_arg1456z00_582 = 
MAKE_PAIR(BgL_bdz00_575, BgL_arg1461z00_584); } 
BgL_arg1452z00_580 = 
MAKE_PAIR(BgL_arg1456z00_582, BNIL); } 
{ /* ./Eval/expdsrfi0.scm 165 */
obj_t BgL_arg1476z00_590;
{ /* ./Eval/expdsrfi0.scm 165 */
obj_t BgL_arg1480z00_592;obj_t BgL_arg1481z00_593;
BgL_arg1480z00_592 = BGl_symbol2267z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 166 */
obj_t BgL_arg1484z00_594;obj_t BgL_arg1485z00_595;
{ /* ./Eval/expdsrfi0.scm 166 */
obj_t BgL_arg1488z00_596;
BgL_arg1488z00_596 = 
MAKE_PAIR(BgL_bdz00_575, BNIL); 
BgL_arg1484z00_594 = 
MAKE_PAIR(BgL_req1z00_13, BgL_arg1488z00_596); } 
{ /* ./Eval/expdsrfi0.scm 167 */
obj_t BgL_arg1492z00_597;
{ /* ./Eval/expdsrfi0.scm 167 */
obj_t BgL_arg1496z00_599;obj_t BgL_arg1497z00_600;
BgL_arg1496z00_599 = BGl_symbol2268z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 168 */
obj_t BgL_arg1500z00_601;
{ /* ./Eval/expdsrfi0.scm 168 */
obj_t BgL_arg1504z00_603;obj_t BgL_arg1505z00_604;
BgL_arg1504z00_603 = BGl_symbol2267z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 169 */
obj_t BgL_arg1508z00_605;obj_t BgL_arg1509z00_606;
{ /* ./Eval/expdsrfi0.scm 169 */
obj_t BgL_arg1512z00_607;obj_t BgL_arg1513z00_608;
{ /* ./Eval/expdsrfi0.scm 169 */
obj_t BgL_arg1516z00_609;obj_t BgL_arg1518z00_610;
BgL_arg1516z00_609 = BGl_symbol2270z00zz__expander_srfizd20zd2; 
{ /* ./Eval/expdsrfi0.scm 169 */
obj_t BgL_auxz00_1496;
BgL_auxz00_1496 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_reqsz00_15, BNIL); 
BgL_arg1518z00_610 = 
MAKE_PAIR(BgL_req2z00_14, BgL_auxz00_1496); } 
BgL_arg1512z00_607 = 
MAKE_PAIR(BgL_arg1516z00_609, BgL_arg1518z00_610); } 
BgL_arg1513z00_608 = 
MAKE_PAIR(BgL_bdz00_575, BNIL); 
BgL_arg1508z00_605 = 
MAKE_PAIR(BgL_arg1512z00_607, BgL_arg1513z00_608); } 
BgL_arg1509z00_606 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_elsez00_17, BNIL); 
BgL_arg1505z00_604 = 
MAKE_PAIR(BgL_arg1508z00_605, BgL_arg1509z00_606); } 
BgL_arg1500z00_601 = 
MAKE_PAIR(BgL_arg1504z00_603, BgL_arg1505z00_604); } 
BgL_arg1497z00_600 = 
MAKE_PAIR(BgL_arg1500z00_601, BNIL); } 
BgL_arg1492z00_597 = 
MAKE_PAIR(BgL_arg1496z00_599, BgL_arg1497z00_600); } 
BgL_arg1485z00_595 = 
MAKE_PAIR(BgL_arg1492z00_597, BNIL); } 
BgL_arg1481z00_593 = 
MAKE_PAIR(BgL_arg1484z00_594, BgL_arg1485z00_595); } 
BgL_arg1476z00_590 = 
MAKE_PAIR(BgL_arg1480z00_592, BgL_arg1481z00_593); } 
BgL_arg1453z00_581 = 
MAKE_PAIR(BgL_arg1476z00_590, BNIL); } 
BgL_arg1449z00_579 = 
MAKE_PAIR(BgL_arg1452z00_580, BgL_arg1453z00_581); } 
BgL_arg1444z00_577 = 
MAKE_PAIR(BgL_arg1448z00_578, BgL_arg1449z00_579); } 
{ /* ./Eval/expdsrfi0.scm 164 */
bool_t BgL_test1527z00_1132;
BgL_test1527z00_1132 = 
EXTENDED_PAIRP(BgL_xz00_11); 
if(BgL_test1527z00_1132)
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_arg1529z00_1133;obj_t BgL_arg1530z00_1134;obj_t BgL_arg1531z00_1135;
BgL_arg1529z00_1133 = 
CAR(BgL_arg1444z00_577); 
BgL_arg1530z00_1134 = 
CDR(BgL_arg1444z00_577); 
BgL_arg1531z00_1135 = 
CER(BgL_xz00_11); 
{ /* ./Eval/expdsrfi0.scm 164 */
obj_t BgL_res2218z00_1143;
BgL_res2218z00_1143 = 
MAKE_EXTENDED_PAIR(BgL_arg1529z00_1133, BgL_arg1530z00_1134, BgL_arg1531z00_1135); 
BgL_arg1440z00_576 = BgL_res2218z00_1143; } }  else 
{ /* ./Eval/expdsrfi0.scm 164 */
BgL_arg1440z00_576 = BgL_arg1444z00_577; } } } 
return 
PROCEDURE_ENTRY(BgL_ez00_12)(BgL_ez00_12, BgL_arg1440z00_576, BgL_ez00_12, BEOA);} } } 
}



/* epairify */
obj_t BGl_epairifyz00zz__expander_srfizd20zd2(obj_t BgL_pairz00_18, obj_t BgL_epairz00_19)
{ AN_OBJECT;
{ /* ./Eval/expdsrfi0.scm 183 */
{ /* ./Eval/expdsrfi0.scm 184 */
bool_t BgL_test1527z00_1144;
BgL_test1527z00_1144 = 
EXTENDED_PAIRP(BgL_epairz00_19); 
if(BgL_test1527z00_1144)
{ /* ./Eval/expdsrfi0.scm 184 */
obj_t BgL_arg1529z00_1145;obj_t BgL_arg1530z00_1146;obj_t BgL_arg1531z00_1147;
BgL_arg1529z00_1145 = 
CAR(BgL_pairz00_18); 
BgL_arg1530z00_1146 = 
CDR(BgL_pairz00_18); 
BgL_arg1531z00_1147 = 
CER(BgL_epairz00_19); 
{ /* ./Eval/expdsrfi0.scm 184 */
obj_t BgL_res2219z00_1155;
BgL_res2219z00_1155 = 
MAKE_EXTENDED_PAIR(BgL_arg1529z00_1145, BgL_arg1530z00_1146, BgL_arg1531z00_1147); 
return BgL_res2219z00_1155;} }  else 
{ /* ./Eval/expdsrfi0.scm 184 */
return BgL_pairz00_18;} } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__expander_srfizd20zd2()
{ AN_OBJECT;
{ /* ./Eval/expdsrfi0.scm 15 */
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__biglooz00(((long)48291), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__tvectorz00(((long)57114), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__structurez00(((long)53290), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)13855), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)21694), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)6615), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(((long)49269), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(((long)29164), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)51785), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(((long)35070), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)247), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)21875), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)104413), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(((long)50132), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)63121), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long)13988), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)45566), "__expander_srfi-0"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)18972), "__expander_srfi-0"); 
return 
BGl_modulezd2initializa7ationz75zz__prognz00(((long)9608), "__expander_srfi-0");} 
}

