/*===========================================================================*/
/*   (Expand/define.scm)                                                     */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Expand/define.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;


BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzexpand_definez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_prognz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_argsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_expanderz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_epsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_lambdaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
static obj_t BGl_zc3anonymousza32087ze3z83zzexpand_definez00(obj_t);
static obj_t BGl_methodzd2initzd2zzexpand_definez00();
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2setz12zc0zzexpand_definez00(obj_t, obj_t);
extern obj_t BGl_unbindzd2Gzd2expanderz12z12zzexpand_expanderz00(obj_t);
static obj_t BGl_zc3anonymousza31934ze3z83zzexpand_definez00(obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_findzd2Ozd2expanderz00zzexpand_expanderz00(obj_t);
static obj_t BGl_internalzd2expandzd2setz12z12zzexpand_definez00(obj_t, obj_t);
extern BgL_typez00_bglt BGl_getzd2defaultzd2typez00zztype_cachez00();
extern obj_t BGl_internalzd2definitionzf3z21zzexpand_lambdaz00;
BGL_EXPORTED_DECL obj_t BGl_expandzd2inlinezd2zzexpand_definez00(obj_t, obj_t);
static obj_t BGl_dozd2inlinezf2genericzf2methodzd2zzexpand_definez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2Gzd2expanderz00zzexpand_expanderz00(obj_t);
extern obj_t BGl_normaliza7ezd2prognzf2locz87zztools_prognz00(obj_t, obj_t);
extern obj_t BGl_fastzd2idzd2ofzd2idzd2zzast_identz00(obj_t, obj_t);
static obj_t BGl__expandzd2definezd2zzexpand_definez00(obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2locationzd2zztools_locationz00(obj_t);
extern obj_t BGl_expandzd2argszd2zzexpand_lambdaz00(obj_t, obj_t);
extern obj_t BGl_za2libzd2modeza2zd2zzengine_paramz00;
extern obj_t BGl_replacez12z12zztools_miscz00(obj_t, obj_t);
static obj_t BGl__expandzd2genericzd2zzexpand_definez00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31613ze3z83zzexpand_definez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2methodzd2zzexpand_definez00(obj_t, obj_t);
extern obj_t BGl_epairifyz00zztools_miscz00(obj_t, obj_t);
extern obj_t BGl_unbindzd2Ozd2expanderz12z12zzexpand_expanderz00(obj_t);
extern obj_t BGl_enterzd2functionzd2zztools_errorz00(obj_t);
static obj_t BGl_cnstzd2initzd2zzexpand_definez00();
static obj_t BGl_zc3anonymousza31681ze3z83zzexpand_definez00(obj_t);
extern obj_t BGl_leavezd2functionzd2zztools_errorz00();
static obj_t BGl__expandzd2methodzd2zzexpand_definez00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzexpand_definez00();
BGL_IMPORT obj_t BGl_warningz00zz__errorz00(obj_t);
static obj_t BGl__expandzd2setz12zc0zzexpand_definez00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzexpand_definez00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32283ze3z83zzexpand_definez00(obj_t);
extern obj_t BGl_findzd2locationzf2locz20zztools_locationz00(obj_t, obj_t);
static obj_t BGl_expandzd2externalzd2definez00zzexpand_definez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2definezd2zzexpand_definez00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32012ze3z83zzexpand_definez00(obj_t);
extern obj_t BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(obj_t);
static obj_t BGl_zc3anonymousza32151ze3z83zzexpand_definez00(obj_t);
extern obj_t BGl_parsezd2idzd2zzast_identz00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzexpand_definez00();
extern obj_t BGl_makezd2typedzd2identz00zzast_identz00(obj_t, obj_t);
extern obj_t BGl_withzd2lexicalzd2zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2inlinezd2zzexpand_definez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2genericzd2zzexpand_definez00(obj_t, obj_t);
static obj_t BGl_dozd2externalzd2definezd2lambdazd2zzexpand_definez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzexpand_definez00();
static obj_t BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_expandzd2internalzd2definez00zzexpand_definez00(obj_t, obj_t);
extern obj_t BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(obj_t);
static obj_t __cnst[ 6 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_expandzd2inlinezd2envz00zzexpand_definez00, BgL_bgl__expandza7d2inlineza7d2za7za7expand_defineza7002556za7, BGl__expandzd2inlinezd2zzexpand_definez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2setz12zd2envz12zzexpand_definez00, BgL_bgl__expandza7d2setza712za7c0za7za7expand_defineza7002557z00, BGl__expandzd2setz12zc0zzexpand_definez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2methodzd2envz00zzexpand_definez00, BgL_bgl__expandza7d2methodza7d2za7za7expand_defineza7002558za7, BGl__expandzd2methodzd2zzexpand_definez00, 0L, 2 );
DEFINE_STRING( BGl_string2530z00zzexpand_definez00, BgL_bgl_string2530za700za7za7expand_defineza7002559z00, "expander @ set! define _ lambda ", 32 );
DEFINE_STRING( BGl_string2529z00zzexpand_definez00, BgL_bgl_string2529za700za7za7expand_defineza7002560z00, "Disabling debug information for library function -- ", 52 );
DEFINE_STRING( BGl_string2528z00zzexpand_definez00, BgL_bgl_string2528za700za7za7expand_defineza7002561z00, "top-level", 9 );
DEFINE_STRING( BGl_string2527z00zzexpand_definez00, BgL_bgl_string2527za700za7za7expand_defineza7002562z00, "Disabling optimization for library function -- ", 47 );
DEFINE_STRING( BGl_string2526z00zzexpand_definez00, BgL_bgl_string2526za700za7za7expand_defineza7002563z00, "Illegal `define-generic' form", 29 );
DEFINE_STRING( BGl_string2525z00zzexpand_definez00, BgL_bgl_string2525za700za7za7expand_defineza7002564z00, "Illegal `define-inline' form", 28 );
DEFINE_STRING( BGl_string2524z00zzexpand_definez00, BgL_bgl_string2524za700za7za7expand_defineza7002565z00, "Illegal `define-method' form", 28 );
DEFINE_STRING( BGl_string2523z00zzexpand_definez00, BgL_bgl_string2523za700za7za7expand_defineza7002566z00, "Illegal `set!' form", 19 );
DEFINE_STRING( BGl_string2522z00zzexpand_definez00, BgL_bgl_string2522za700za7za7expand_defineza7002567z00, "define", 6 );
DEFINE_STRING( BGl_string2521z00zzexpand_definez00, BgL_bgl_string2521za700za7za7expand_defineza7002568z00, "Illegal `define' form", 21 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2genericzd2envz00zzexpand_definez00, BgL_bgl__expandza7d2genericza7d2za7za7expand_defineza7002569za7, BGl__expandzd2genericzd2zzexpand_definez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2definezd2envz00zzexpand_definez00, BgL_bgl__expandza7d2defineza7d2za7za7expand_defineza7002570za7, BGl__expandzd2definezd2zzexpand_definez00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzexpand_definez00(long BgL_checksumz00_1283, char * BgL_fromz00_1284)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzexpand_definez00))
{ 
BGl_requirezd2initializa7ationz75zzexpand_definez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzexpand_definez00(); 
BGl_cnstzd2initzd2zzexpand_definez00(); 
BGl_importedzd2moduleszd2initz00zzexpand_definez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzexpand_definez00()
{ AN_OBJECT;
{ /* ./Expand/define.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "expand_define"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "expand_define"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzexpand_definez00()
{ AN_OBJECT;
{ /* ./Expand/define.scm 15 */
{ /* ./Expand/define.scm 15 */
obj_t BgL_cportz00_1276;
BgL_cportz00_1276 = 
open_input_string(BGl_string2530z00zzexpand_definez00); 
{ 
long BgL_iz00_1277;
BgL_iz00_1277 = ((long)5); 
BgL_loopz00_1278:
{ /* ./Expand/define.scm 15 */
bool_t BgL_test2532z00_1279;
BgL_test2532z00_1279 = 
(BgL_iz00_1277==((long)-1)); 
if(BgL_test2532z00_1279)
{ /* ./Expand/define.scm 15 */
return BUNSPEC;}  else 
{ /* ./Expand/define.scm 15 */
{ /* ./Expand/define.scm 15 */
obj_t BgL_arg2534z00_1280;
{ /* ./Expand/define.scm 15 */
obj_t BgL_list2537z00_1281;
BgL_list2537z00_1281 = 
MAKE_PAIR(BgL_cportz00_1276, BNIL); 
BgL_arg2534z00_1280 = 
BGl_readz00zz__readerz00(BgL_list2537z00_1281); } 
{ /* ./Expand/define.scm 15 */
int BgL_auxz00_1298;
BgL_auxz00_1298 = 
(int)(BgL_iz00_1277); 
CNST_TABLE_SET(BgL_auxz00_1298, BgL_arg2534z00_1280); } } 
{ /* ./Expand/define.scm 15 */
int BgL_auxz00_1282;
{ /* ./Expand/define.scm 15 */
long BgL_auxz00_1301;
BgL_auxz00_1301 = 
(BgL_iz00_1277-((long)1)); 
BgL_auxz00_1282 = 
(int)(BgL_auxz00_1301); } 
{ 
long BgL_iz00_1304;
BgL_iz00_1304 = 
(long)(BgL_auxz00_1282); 
BgL_iz00_1277 = BgL_iz00_1304; 
goto BgL_loopz00_1278;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzexpand_definez00()
{ AN_OBJECT;
{ /* ./Expand/define.scm 15 */
return BUNSPEC;} 
}



/* expand-define */
BGL_EXPORTED_DEF obj_t BGl_expandzd2definezd2zzexpand_definez00(obj_t BgL_xz00_11, obj_t BgL_ez00_12)
{ AN_OBJECT;
{ /* ./Expand/define.scm 44 */
if(
CBOOL(BGl_internalzd2definitionzf3z21zzexpand_lambdaz00))
{ /* ./Expand/define.scm 48 */
return 
BGl_expandzd2internalzd2definez00zzexpand_definez00(BgL_xz00_11, BgL_ez00_12);}  else 
{ /* ./Expand/define.scm 48 */
return 
BGl_expandzd2externalzd2definez00zzexpand_definez00(BgL_xz00_11, BgL_ez00_12);} } 
}



/* _expand-define */
obj_t BGl__expandzd2definezd2zzexpand_definez00(obj_t BgL_envz00_1205, obj_t BgL_xz00_1206, obj_t BgL_ez00_1207)
{ AN_OBJECT;
{ /* ./Expand/define.scm 44 */
return 
BGl_expandzd2definezd2zzexpand_definez00(BgL_xz00_1206, BgL_ez00_1207);} 
}



/* expand-external-define */
obj_t BGl_expandzd2externalzd2definez00zzexpand_definez00(obj_t BgL_xz00_13, obj_t BgL_ez00_14)
{ AN_OBJECT;
{ /* ./Expand/define.scm 55 */
BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BTRUE; 
{ /* ./Expand/define.scm 57 */
obj_t BgL_resz00_107;
{ 

{ /* ./Expand/define.scm 57 */
bool_t BgL_test1125z00_117;
BgL_test1125z00_117 = 
PAIRP(BgL_xz00_13); 
if(BgL_test1125z00_117)
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2136zd2_118;
BgL_cdrzd2136zd2_118 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1126z00_119;
BgL_test1126z00_119 = 
PAIRP(BgL_cdrzd2136zd2_118); 
if(BgL_test1126z00_119)
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2140zd2_120;obj_t BgL_cdrzd2141zd2_121;
BgL_carzd2140zd2_120 = 
CAR(BgL_cdrzd2136zd2_118); 
BgL_cdrzd2141zd2_121 = 
CDR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1127z00_122;
BgL_test1127z00_122 = 
PAIRP(BgL_carzd2140zd2_120); 
if(BgL_test1127z00_122)
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2144zd2_123;
BgL_carzd2144zd2_123 = 
CAR(BgL_carzd2140zd2_120); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1128z00_124;
BgL_test1128z00_124 = 
SYMBOLP(BgL_carzd2144zd2_123); 
if(BgL_test1128z00_124)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1129z00_125;
BgL_test1129z00_125 = 
NULLP(BgL_cdrzd2141zd2_121); 
if(BgL_test1129z00_125)
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2160zd2_127;obj_t BgL_cdrzd2161zd2_128;
BgL_carzd2160zd2_127 = 
CAR(BgL_cdrzd2136zd2_118); 
BgL_cdrzd2161zd2_128 = 
CDR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1130z00_129;
BgL_test1130z00_129 = 
SYMBOLP(BgL_carzd2160zd2_127); 
if(BgL_test1130z00_129)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1131z00_130;
BgL_test1131z00_130 = 
PAIRP(BgL_cdrzd2161zd2_128); 
if(BgL_test1131z00_130)
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2167zd2_131;
BgL_carzd2167zd2_131 = 
CAR(BgL_cdrzd2161zd2_128); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1132z00_132;
BgL_test1132z00_132 = 
PAIRP(BgL_carzd2167zd2_131); 
if(BgL_test1132z00_132)
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2172zd2_133;
BgL_cdrzd2172zd2_133 = 
CDR(BgL_carzd2167zd2_131); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1133z00_134;
{ /* ./Expand/define.scm 57 */
obj_t BgL_auxz00_1337;obj_t BgL_auxz00_1335;
BgL_auxz00_1337 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_1335 = 
CAR(BgL_carzd2167zd2_131); 
BgL_test1133z00_134 = 
(BgL_auxz00_1335==BgL_auxz00_1337); } 
if(BgL_test1133z00_134)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1134z00_135;
BgL_test1134z00_135 = 
PAIRP(BgL_cdrzd2172zd2_133); 
if(BgL_test1134z00_135)
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2176zd2_136;
BgL_cdrzd2176zd2_136 = 
CDR(BgL_cdrzd2172zd2_133); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1135z00_137;
BgL_test1135z00_137 = 
NULLP(BgL_cdrzd2176zd2_136); 
if(BgL_test1135z00_137)
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2185zd2_138;
BgL_cdrzd2185zd2_138 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2188zd2_139;
BgL_carzd2188zd2_139 = 
CAR(BgL_cdrzd2185zd2_138); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1136z00_140;
BgL_test1136z00_140 = 
SYMBOLP(BgL_carzd2188zd2_139); 
if(BgL_test1136z00_140)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1138z00_141;
BgL_arg1138z00_141 = 
CDR(BgL_cdrzd2185zd2_138); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2188zd2_139, BgL_arg1138z00_141, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
BgL_tagzd2122zd2_115:
FAILURE(BFALSE,BGl_string2521z00zzexpand_definez00,BgL_xz00_13);} } } }  else 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1145z00_142;
{ /* ./Expand/define.scm 57 */
obj_t BgL_auxz00_1353;
BgL_auxz00_1353 = 
CDR(BgL_cdrzd2161zd2_128); 
BgL_test1145z00_142 = 
NULLP(BgL_auxz00_1353); } 
if(BgL_test1145z00_142)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1147z00_143;
BgL_arg1147z00_143 = 
CAR(BgL_cdrzd2172zd2_133); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2lambdazd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2160zd2_127, BgL_arg1147z00_143, BgL_cdrzd2176zd2_136, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2200zd2_144;
BgL_cdrzd2200zd2_144 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2203zd2_145;
BgL_carzd2203zd2_145 = 
CAR(BgL_cdrzd2200zd2_144); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1150z00_146;
BgL_test1150z00_146 = 
SYMBOLP(BgL_carzd2203zd2_145); 
if(BgL_test1150z00_146)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1152z00_147;
BgL_arg1152z00_147 = 
CDR(BgL_cdrzd2200zd2_144); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2203zd2_145, BgL_arg1152z00_147, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2215zd2_149;
BgL_cdrzd2215zd2_149 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2218zd2_150;
BgL_carzd2218zd2_150 = 
CAR(BgL_cdrzd2215zd2_149); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1165z00_151;
BgL_test1165z00_151 = 
SYMBOLP(BgL_carzd2218zd2_150); 
if(BgL_test1165z00_151)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1169z00_152;
BgL_arg1169z00_152 = 
CDR(BgL_cdrzd2215zd2_149); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2218zd2_150, BgL_arg1169z00_152, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2230zd2_153;
BgL_cdrzd2230zd2_153 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2233zd2_154;
BgL_carzd2233zd2_154 = 
CAR(BgL_cdrzd2230zd2_153); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1177z00_155;
BgL_test1177z00_155 = 
SYMBOLP(BgL_carzd2233zd2_154); 
if(BgL_test1177z00_155)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1179z00_156;
BgL_arg1179z00_156 = 
CDR(BgL_cdrzd2230zd2_153); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2233zd2_154, BgL_arg1179z00_156, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2248zd2_160;
BgL_carzd2248zd2_160 = 
CAR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1192z00_161;
BgL_test1192z00_161 = 
SYMBOLP(BgL_carzd2248zd2_160); 
if(BgL_test1192z00_161)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1195z00_162;
BgL_arg1195z00_162 = 
CDR(BgL_cdrzd2136zd2_118); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2248zd2_160, BgL_arg1195z00_162, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1212z00_163;
BgL_arg1212z00_163 = 
CDR(BgL_carzd2140zd2_120); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2lambdazd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2144zd2_123, BgL_arg1212z00_163, BgL_cdrzd2141zd2_121, BgL_xz00_13); } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2271zd2_165;obj_t BgL_cdrzd2272zd2_166;
BgL_carzd2271zd2_165 = 
CAR(BgL_cdrzd2136zd2_118); 
BgL_cdrzd2272zd2_166 = 
CDR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1216z00_167;
BgL_test1216z00_167 = 
SYMBOLP(BgL_carzd2271zd2_165); 
if(BgL_test1216z00_167)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1218z00_168;
BgL_test1218z00_168 = 
PAIRP(BgL_cdrzd2272zd2_166); 
if(BgL_test1218z00_168)
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2278zd2_169;
BgL_carzd2278zd2_169 = 
CAR(BgL_cdrzd2272zd2_166); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1219z00_170;
BgL_test1219z00_170 = 
PAIRP(BgL_carzd2278zd2_169); 
if(BgL_test1219z00_170)
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2283zd2_171;
BgL_cdrzd2283zd2_171 = 
CDR(BgL_carzd2278zd2_169); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1220z00_172;
{ /* ./Expand/define.scm 57 */
obj_t BgL_auxz00_1396;obj_t BgL_auxz00_1394;
BgL_auxz00_1396 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_1394 = 
CAR(BgL_carzd2278zd2_169); 
BgL_test1220z00_172 = 
(BgL_auxz00_1394==BgL_auxz00_1396); } 
if(BgL_test1220z00_172)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1221z00_173;
BgL_test1221z00_173 = 
PAIRP(BgL_cdrzd2283zd2_171); 
if(BgL_test1221z00_173)
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2287zd2_174;
BgL_cdrzd2287zd2_174 = 
CDR(BgL_cdrzd2283zd2_171); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1222z00_175;
BgL_test1222z00_175 = 
NULLP(BgL_cdrzd2287zd2_174); 
if(BgL_test1222z00_175)
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2296zd2_176;
BgL_cdrzd2296zd2_176 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2299zd2_177;
BgL_carzd2299zd2_177 = 
CAR(BgL_cdrzd2296zd2_176); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1223z00_178;
BgL_test1223z00_178 = 
SYMBOLP(BgL_carzd2299zd2_177); 
if(BgL_test1223z00_178)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1225z00_179;
BgL_arg1225z00_179 = 
CDR(BgL_cdrzd2296zd2_176); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2299zd2_177, BgL_arg1225z00_179, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } }  else 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1232z00_180;
{ /* ./Expand/define.scm 57 */
obj_t BgL_auxz00_1411;
BgL_auxz00_1411 = 
CDR(BgL_cdrzd2272zd2_166); 
BgL_test1232z00_180 = 
NULLP(BgL_auxz00_1411); } 
if(BgL_test1232z00_180)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1234z00_181;
BgL_arg1234z00_181 = 
CAR(BgL_cdrzd2283zd2_171); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2lambdazd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2271zd2_165, BgL_arg1234z00_181, BgL_cdrzd2287zd2_174, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2311zd2_182;
BgL_cdrzd2311zd2_182 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2314zd2_183;
BgL_carzd2314zd2_183 = 
CAR(BgL_cdrzd2311zd2_182); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1237z00_184;
BgL_test1237z00_184 = 
SYMBOLP(BgL_carzd2314zd2_183); 
if(BgL_test1237z00_184)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1240z00_185;
BgL_arg1240z00_185 = 
CDR(BgL_cdrzd2311zd2_182); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2314zd2_183, BgL_arg1240z00_185, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2326zd2_187;
BgL_cdrzd2326zd2_187 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2329zd2_188;
BgL_carzd2329zd2_188 = 
CAR(BgL_cdrzd2326zd2_187); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1254z00_189;
BgL_test1254z00_189 = 
SYMBOLP(BgL_carzd2329zd2_188); 
if(BgL_test1254z00_189)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1256z00_190;
BgL_arg1256z00_190 = 
CDR(BgL_cdrzd2326zd2_187); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2329zd2_188, BgL_arg1256z00_190, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2341zd2_191;
BgL_cdrzd2341zd2_191 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2344zd2_192;
BgL_carzd2344zd2_192 = 
CAR(BgL_cdrzd2341zd2_191); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1264z00_193;
BgL_test1264z00_193 = 
SYMBOLP(BgL_carzd2344zd2_192); 
if(BgL_test1264z00_193)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1266z00_194;
BgL_arg1266z00_194 = 
CDR(BgL_cdrzd2341zd2_191); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2344zd2_192, BgL_arg1266z00_194, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2359zd2_198;
BgL_carzd2359zd2_198 = 
CAR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1281z00_199;
BgL_test1281z00_199 = 
SYMBOLP(BgL_carzd2359zd2_198); 
if(BgL_test1281z00_199)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1283z00_200;
BgL_arg1283z00_200 = 
CDR(BgL_cdrzd2136zd2_118); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2359zd2_198, BgL_arg1283z00_200, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2374zd2_202;obj_t BgL_cdrzd2375zd2_203;
BgL_carzd2374zd2_202 = 
CAR(BgL_cdrzd2136zd2_118); 
BgL_cdrzd2375zd2_203 = 
CDR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1292z00_204;
BgL_test1292z00_204 = 
SYMBOLP(BgL_carzd2374zd2_202); 
if(BgL_test1292z00_204)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1293z00_205;
BgL_test1293z00_205 = 
NULLP(BgL_cdrzd2375zd2_203); 
if(BgL_test1293z00_205)
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;}  else 
{ /* ./Expand/define.scm 57 */
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2374zd2_202, BgL_cdrzd2375zd2_203, BgL_xz00_13); } }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2389zd2_207;obj_t BgL_cdrzd2390zd2_208;
BgL_carzd2389zd2_207 = 
CAR(BgL_cdrzd2136zd2_118); 
BgL_cdrzd2390zd2_208 = 
CDR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1303z00_209;
BgL_test1303z00_209 = 
SYMBOLP(BgL_carzd2389zd2_207); 
if(BgL_test1303z00_209)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1304z00_210;
BgL_test1304z00_210 = 
NULLP(BgL_cdrzd2390zd2_208); 
if(BgL_test1304z00_210)
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;}  else 
{ /* ./Expand/define.scm 57 */
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2389zd2_207, BgL_cdrzd2390zd2_208, BgL_xz00_13); } }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2404zd2_212;obj_t BgL_cdrzd2405zd2_213;
BgL_carzd2404zd2_212 = 
CAR(BgL_cdrzd2136zd2_118); 
BgL_cdrzd2405zd2_213 = 
CDR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1319z00_214;
BgL_test1319z00_214 = 
SYMBOLP(BgL_carzd2404zd2_212); 
if(BgL_test1319z00_214)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1320z00_215;
BgL_test1320z00_215 = 
PAIRP(BgL_cdrzd2405zd2_213); 
if(BgL_test1320z00_215)
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2411zd2_216;
BgL_carzd2411zd2_216 = 
CAR(BgL_cdrzd2405zd2_213); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1321z00_217;
BgL_test1321z00_217 = 
PAIRP(BgL_carzd2411zd2_216); 
if(BgL_test1321z00_217)
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2416zd2_218;
BgL_cdrzd2416zd2_218 = 
CDR(BgL_carzd2411zd2_216); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1322z00_219;
{ /* ./Expand/define.scm 57 */
obj_t BgL_auxz00_1466;obj_t BgL_auxz00_1464;
BgL_auxz00_1466 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_1464 = 
CAR(BgL_carzd2411zd2_216); 
BgL_test1322z00_219 = 
(BgL_auxz00_1464==BgL_auxz00_1466); } 
if(BgL_test1322z00_219)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1323z00_220;
BgL_test1323z00_220 = 
PAIRP(BgL_cdrzd2416zd2_218); 
if(BgL_test1323z00_220)
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2420zd2_221;
BgL_cdrzd2420zd2_221 = 
CDR(BgL_cdrzd2416zd2_218); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1324z00_222;
BgL_test1324z00_222 = 
NULLP(BgL_cdrzd2420zd2_221); 
if(BgL_test1324z00_222)
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2430zd2_223;
BgL_cdrzd2430zd2_223 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2434zd2_224;
BgL_carzd2434zd2_224 = 
CAR(BgL_cdrzd2430zd2_223); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1325z00_225;
BgL_test1325z00_225 = 
SYMBOLP(BgL_carzd2434zd2_224); 
if(BgL_test1325z00_225)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1327z00_226;
BgL_arg1327z00_226 = 
CDR(BgL_cdrzd2430zd2_223); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2434zd2_224, BgL_arg1327z00_226, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } }  else 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1334z00_227;
{ /* ./Expand/define.scm 57 */
obj_t BgL_auxz00_1481;
BgL_auxz00_1481 = 
CDR(BgL_cdrzd2405zd2_213); 
BgL_test1334z00_227 = 
NULLP(BgL_auxz00_1481); } 
if(BgL_test1334z00_227)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1336z00_228;
BgL_arg1336z00_228 = 
CAR(BgL_cdrzd2416zd2_218); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2lambdazd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2404zd2_212, BgL_arg1336z00_228, BgL_cdrzd2420zd2_221, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2449zd2_229;
BgL_cdrzd2449zd2_229 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2453zd2_230;
BgL_carzd2453zd2_230 = 
CAR(BgL_cdrzd2449zd2_229); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1339z00_231;
BgL_test1339z00_231 = 
SYMBOLP(BgL_carzd2453zd2_230); 
if(BgL_test1339z00_231)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1341z00_232;
BgL_arg1341z00_232 = 
CDR(BgL_cdrzd2449zd2_229); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2453zd2_230, BgL_arg1341z00_232, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2468zd2_234;
BgL_cdrzd2468zd2_234 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2472zd2_235;
BgL_carzd2472zd2_235 = 
CAR(BgL_cdrzd2468zd2_234); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1354z00_236;
BgL_test1354z00_236 = 
SYMBOLP(BgL_carzd2472zd2_235); 
if(BgL_test1354z00_236)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1356z00_237;
BgL_arg1356z00_237 = 
CDR(BgL_cdrzd2468zd2_234); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2472zd2_235, BgL_arg1356z00_237, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_cdrzd2487zd2_238;
BgL_cdrzd2487zd2_238 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2491zd2_239;
BgL_carzd2491zd2_239 = 
CAR(BgL_cdrzd2487zd2_238); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1364z00_240;
BgL_test1364z00_240 = 
SYMBOLP(BgL_carzd2491zd2_239); 
if(BgL_test1364z00_240)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1366z00_241;
BgL_arg1366z00_241 = 
CDR(BgL_cdrzd2487zd2_238); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2491zd2_239, BgL_arg1366z00_241, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2510zd2_245;
BgL_carzd2510zd2_245 = 
CAR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1379z00_246;
BgL_test1379z00_246 = 
SYMBOLP(BgL_carzd2510zd2_245); 
if(BgL_test1379z00_246)
{ /* ./Expand/define.scm 57 */
obj_t BgL_arg1382z00_247;
BgL_arg1382z00_247 = 
CDR(BgL_cdrzd2136zd2_118); 
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2510zd2_245, BgL_arg1382z00_247, BgL_xz00_13); }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2529zd2_249;obj_t BgL_cdrzd2530zd2_250;
BgL_carzd2529zd2_249 = 
CAR(BgL_cdrzd2136zd2_118); 
BgL_cdrzd2530zd2_250 = 
CDR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1391z00_251;
BgL_test1391z00_251 = 
SYMBOLP(BgL_carzd2529zd2_249); 
if(BgL_test1391z00_251)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1392z00_252;
BgL_test1392z00_252 = 
NULLP(BgL_cdrzd2530zd2_250); 
if(BgL_test1392z00_252)
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;}  else 
{ /* ./Expand/define.scm 57 */
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2529zd2_249, BgL_cdrzd2530zd2_250, BgL_xz00_13); } }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } }  else 
{ /* ./Expand/define.scm 57 */
obj_t BgL_carzd2546zd2_254;obj_t BgL_cdrzd2547zd2_255;
BgL_carzd2546zd2_254 = 
CAR(BgL_cdrzd2136zd2_118); 
BgL_cdrzd2547zd2_255 = 
CDR(BgL_cdrzd2136zd2_118); 
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1402z00_256;
BgL_test1402z00_256 = 
SYMBOLP(BgL_carzd2546zd2_254); 
if(BgL_test1402z00_256)
{ /* ./Expand/define.scm 57 */
bool_t BgL_test1403z00_257;
BgL_test1403z00_257 = 
NULLP(BgL_cdrzd2547zd2_255); 
if(BgL_test1403z00_257)
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;}  else 
{ /* ./Expand/define.scm 57 */
BgL_resz00_107 = 
BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(BgL_ez00_14, BgL_carzd2546zd2_254, BgL_cdrzd2547zd2_255, BgL_xz00_13); } }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } } } } }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } }  else 
{ /* ./Expand/define.scm 57 */
goto BgL_tagzd2122zd2_115;} } } 
BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BFALSE; 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_13, BgL_resz00_107);} } 
}



/* expand-internal-define */
obj_t BGl_expandzd2internalzd2definez00zzexpand_definez00(obj_t BgL_xz00_15, obj_t BgL_ez00_16)
{ AN_OBJECT;
{ /* ./Expand/define.scm 76 */
{ /* ./Expand/define.scm 77 */
obj_t BgL_ez00_258;
BgL_ez00_258 = 
BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(BgL_ez00_16); 
{ 
obj_t BgL_namez00_269;obj_t BgL_valuez00_270;obj_t BgL_namez00_263;obj_t BgL_valuez00_264;obj_t BgL_lamz00_265;obj_t BgL_argsz00_266;obj_t BgL_bodyz00_267;obj_t BgL_namez00_259;obj_t BgL_argsz00_260;obj_t BgL_bodyz00_261;
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1427z00_274;
BgL_test1427z00_274 = 
PAIRP(BgL_xz00_15); 
if(BgL_test1427z00_274)
{ /* ./Expand/define.scm 78 */
obj_t BgL_cdrzd2581zd2_275;
BgL_cdrzd2581zd2_275 = 
CDR(BgL_xz00_15); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1428z00_276;
BgL_test1428z00_276 = 
PAIRP(BgL_cdrzd2581zd2_275); 
if(BgL_test1428z00_276)
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2585zd2_277;obj_t BgL_cdrzd2586zd2_278;
BgL_carzd2585zd2_277 = 
CAR(BgL_cdrzd2581zd2_275); 
BgL_cdrzd2586zd2_278 = 
CDR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1429z00_279;
BgL_test1429z00_279 = 
PAIRP(BgL_carzd2585zd2_277); 
if(BgL_test1429z00_279)
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1430z00_280;
BgL_test1430z00_280 = 
NULLP(BgL_cdrzd2586zd2_278); 
if(BgL_test1430z00_280)
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2612zd2_282;obj_t BgL_cdrzd2613zd2_283;
BgL_carzd2612zd2_282 = 
CAR(BgL_cdrzd2581zd2_275); 
BgL_cdrzd2613zd2_283 = 
CDR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1431z00_284;
BgL_test1431z00_284 = 
SYMBOLP(BgL_carzd2612zd2_282); 
if(BgL_test1431z00_284)
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1432z00_285;
BgL_test1432z00_285 = 
PAIRP(BgL_cdrzd2613zd2_283); 
if(BgL_test1432z00_285)
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2621zd2_286;
BgL_carzd2621zd2_286 = 
CAR(BgL_cdrzd2613zd2_283); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1433z00_287;
BgL_test1433z00_287 = 
PAIRP(BgL_carzd2621zd2_286); 
if(BgL_test1433z00_287)
{ /* ./Expand/define.scm 78 */
obj_t BgL_cdrzd2635zd2_288;
BgL_cdrzd2635zd2_288 = 
CDR(BgL_carzd2621zd2_286); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1434z00_289;
BgL_test1434z00_289 = 
PAIRP(BgL_cdrzd2635zd2_288); 
if(BgL_test1434z00_289)
{ /* ./Expand/define.scm 78 */
obj_t BgL_cdrzd2640zd2_290;
BgL_cdrzd2640zd2_290 = 
CDR(BgL_cdrzd2635zd2_288); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1435z00_291;
BgL_test1435z00_291 = 
NULLP(BgL_cdrzd2640zd2_290); 
if(BgL_test1435z00_291)
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2652zd2_293;
BgL_carzd2652zd2_293 = 
CAR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1436z00_294;
BgL_test1436z00_294 = 
SYMBOLP(BgL_carzd2652zd2_293); 
if(BgL_test1436z00_294)
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1438z00_295;
BgL_arg1438z00_295 = 
CDR(BgL_cdrzd2581zd2_275); 
BgL_namez00_269 = BgL_carzd2652zd2_293; 
BgL_valuez00_270 = BgL_arg1438z00_295; 
BgL_tagzd2569zd2_271:
{ /* ./Expand/define.scm 136 */
obj_t BgL_locz00_423;
{ /* ./Expand/define.scm 136 */
obj_t BgL_arg1771z00_432;obj_t BgL_arg1772z00_433;
{ /* ./Expand/define.scm 136 */
obj_t BgL_auxz00_1556;
BgL_auxz00_1556 = 
CDR(BgL_xz00_15); 
BgL_arg1771z00_432 = 
CDR(BgL_auxz00_1556); } 
BgL_arg1772z00_433 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_15); 
BgL_locz00_423 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg1771z00_432, BgL_arg1772z00_433); } 
{ /* ./Expand/define.scm 136 */
obj_t BgL_nvaluez00_424;
{ /* ./Expand/define.scm 137 */
obj_t BgL_arg1766z00_431;
BgL_arg1766z00_431 = 
BGl_normaliza7ezd2prognzf2locz87zztools_prognz00(BgL_valuez00_270, BgL_locz00_423); 
BgL_nvaluez00_424 = 
PROCEDURE_ENTRY(BgL_ez00_258)(BgL_ez00_258, BgL_arg1766z00_431, BgL_ez00_258, BEOA); } 
{ /* ./Expand/define.scm 137 */
obj_t BgL_envaluez00_425;
{ /* ./Expand/define.scm 138 */
bool_t BgL_test1761z00_430;
BgL_test1761z00_430 = 
PAIRP(BgL_nvaluez00_424); 
if(BgL_test1761z00_430)
{ /* ./Expand/define.scm 138 */
BgL_envaluez00_425 = 
BGl_epairifyz00zztools_miscz00(BgL_nvaluez00_424, BgL_valuez00_270); }  else 
{ /* ./Expand/define.scm 138 */
BgL_envaluez00_425 = BgL_nvaluez00_424; } } 
{ /* ./Expand/define.scm 138 */

{ /* ./Expand/define.scm 141 */
obj_t BgL_arg1749z00_426;
{ /* ./Expand/define.scm 141 */
obj_t BgL_arg1752z00_427;obj_t BgL_arg1755z00_428;
BgL_arg1752z00_427 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/define.scm 141 */
obj_t BgL_arg1758z00_429;
BgL_arg1758z00_429 = 
MAKE_PAIR(BgL_envaluez00_425, BNIL); 
BgL_arg1755z00_428 = 
MAKE_PAIR(BgL_namez00_269, BgL_arg1758z00_429); } 
BgL_arg1749z00_426 = 
MAKE_PAIR(BgL_arg1752z00_427, BgL_arg1755z00_428); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_15, BgL_arg1749z00_426);} } } } } }  else 
{ /* ./Expand/define.scm 78 */
BgL_tagzd2570zd2_272:
FAILURE(BFALSE,BGl_string2521z00zzexpand_definez00,BgL_xz00_15);} } }  else 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1445z00_296;
{ /* ./Expand/define.scm 78 */
obj_t BgL_auxz00_1573;
BgL_auxz00_1573 = 
CDR(BgL_cdrzd2613zd2_283); 
BgL_test1445z00_296 = 
NULLP(BgL_auxz00_1573); } 
if(BgL_test1445z00_296)
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1448z00_297;obj_t BgL_arg1450z00_298;
BgL_arg1448z00_297 = 
CAR(BgL_carzd2621zd2_286); 
BgL_arg1450z00_298 = 
CAR(BgL_cdrzd2635zd2_288); 
BgL_namez00_263 = BgL_carzd2612zd2_282; 
BgL_valuez00_264 = BgL_carzd2621zd2_286; 
BgL_lamz00_265 = BgL_arg1448z00_297; 
BgL_argsz00_266 = BgL_arg1450z00_298; 
BgL_bodyz00_267 = BgL_cdrzd2640zd2_290; 
BgL_tagzd2568zd2_268:
{ /* ./Expand/define.scm 105 */
obj_t BgL_locz00_384;
BgL_locz00_384 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_15); 
{ /* ./Expand/define.scm 106 */
bool_t BgL_test1668z00_385;
{ /* ./Expand/define.scm 106 */
obj_t BgL_arg1743z00_421;obj_t BgL_arg1744z00_422;
BgL_arg1743z00_421 = 
BGl_fastzd2idzd2ofzd2idzd2zzast_identz00(BgL_lamz00_265, BgL_locz00_384); 
BgL_arg1744z00_422 = 
CNST_TABLE_REF(((long)0)); 
BgL_test1668z00_385 = 
(BgL_arg1743z00_421==BgL_arg1744z00_422); } 
if(BgL_test1668z00_385)
{ /* ./Expand/define.scm 107 */
bool_t BgL_test1669z00_386;
BgL_test1669z00_386 = 
SYMBOLP(BgL_namez00_263); 
if(BgL_test1669z00_386)
{ /* ./Expand/define.scm 109 */
obj_t BgL_pidz00_387;
BgL_pidz00_387 = 
BGl_parsezd2idzd2zzast_identz00(BgL_namez00_263, BgL_locz00_384); 
{ /* ./Expand/define.scm 109 */
obj_t BgL_namezd2idzd2_388;
BgL_namezd2idzd2_388 = 
CAR(BgL_pidz00_387); 
{ /* ./Expand/define.scm 110 */
obj_t BgL_typez00_389;
BgL_typez00_389 = 
CDR(BgL_pidz00_387); 
{ /* ./Expand/define.scm 111 */
obj_t BgL_typezd2idzd2_390;
{ /* ./Expand/define.scm 112 */
BgL_typez00_bglt BgL_obj1003z00_1009;
BgL_obj1003z00_1009 = 
(BgL_typez00_bglt)(BgL_typez00_389); 
BgL_typezd2idzd2_390 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1009))->BgL_idz00); } 
{ /* ./Expand/define.scm 112 */

{ /* ./Expand/define.scm 114 */
obj_t BgL_arg1671z00_391;obj_t BgL_arg1673z00_392;
{ /* ./Expand/define.scm 114 */
obj_t BgL_arg1678z00_394;
BgL_arg1678z00_394 = 
BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(BgL_argsz00_266); 
BgL_arg1671z00_391 = 
MAKE_PAIR(BgL_namez00_263, BgL_arg1678z00_394); } 
BgL_arg1673z00_392 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Expand/define.scm 118 */
obj_t BgL_zc3anonymousza31681ze3z83_1208;
{ 
int BgL_auxz00_1596;int BgL_auxz00_1594;
BgL_auxz00_1596 = 
(int)(((long)8)); 
BgL_auxz00_1594 = 
(int)(((long)0)); 
BgL_zc3anonymousza31681ze3z83_1208 = 
make_fx_procedure(BGl_zc3anonymousza31681ze3z83zzexpand_definez00, BgL_auxz00_1594, BgL_auxz00_1596); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1599;
BgL_auxz00_1599 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31681ze3z83_1208, BgL_auxz00_1599, BgL_xz00_15); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1602;
BgL_auxz00_1602 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31681ze3z83_1208, BgL_auxz00_1602, BgL_valuez00_264); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1605;
BgL_auxz00_1605 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31681ze3z83_1208, BgL_auxz00_1605, BgL_typez00_389); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1608;
BgL_auxz00_1608 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31681ze3z83_1208, BgL_auxz00_1608, BgL_typezd2idzd2_390); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1611;
BgL_auxz00_1611 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31681ze3z83_1208, BgL_auxz00_1611, BgL_argsz00_266); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1614;
BgL_auxz00_1614 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza31681ze3z83_1208, BgL_auxz00_1614, BgL_ez00_258); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1617;
BgL_auxz00_1617 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza31681ze3z83_1208, BgL_auxz00_1617, BgL_bodyz00_267); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1620;
BgL_auxz00_1620 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza31681ze3z83_1208, BgL_auxz00_1620, BgL_namezd2idzd2_388); } 
return 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_arg1671z00_391, BgL_arg1673z00_392, BgL_locz00_384, BgL_zc3anonymousza31681ze3z83_1208);} } } } } } }  else 
{ /* ./Expand/define.scm 107 */
FAILURE(BGl_string2522z00zzexpand_definez00,BGl_string2521z00zzexpand_definez00,BgL_xz00_15);} }  else 
{ /* ./Expand/define.scm 129 */
obj_t BgL_nvaluez00_414;
BgL_nvaluez00_414 = 
PROCEDURE_ENTRY(BgL_ez00_258)(BgL_ez00_258, BgL_valuez00_264, BgL_ez00_258, BEOA); 
{ /* ./Expand/define.scm 129 */
obj_t BgL_envaluez00_415;
{ /* ./Expand/define.scm 130 */
bool_t BgL_test1738z00_420;
BgL_test1738z00_420 = 
PAIRP(BgL_nvaluez00_414); 
if(BgL_test1738z00_420)
{ /* ./Expand/define.scm 130 */
BgL_envaluez00_415 = 
BGl_epairifyz00zztools_miscz00(BgL_nvaluez00_414, BgL_valuez00_264); }  else 
{ /* ./Expand/define.scm 130 */
BgL_envaluez00_415 = BgL_nvaluez00_414; } } 
{ /* ./Expand/define.scm 130 */

{ /* ./Expand/define.scm 133 */
obj_t BgL_arg1728z00_416;
{ /* ./Expand/define.scm 133 */
obj_t BgL_arg1731z00_417;obj_t BgL_arg1732z00_418;
BgL_arg1731z00_417 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/define.scm 133 */
obj_t BgL_arg1735z00_419;
BgL_arg1735z00_419 = 
MAKE_PAIR(BgL_envaluez00_415, BNIL); 
BgL_arg1732z00_418 = 
MAKE_PAIR(BgL_namez00_263, BgL_arg1735z00_419); } 
BgL_arg1728z00_416 = 
MAKE_PAIR(BgL_arg1731z00_417, BgL_arg1732z00_418); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_15, BgL_arg1728z00_416);} } } } } } }  else 
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2667zd2_300;
BgL_carzd2667zd2_300 = 
CAR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1454z00_301;
BgL_test1454z00_301 = 
SYMBOLP(BgL_carzd2667zd2_300); 
if(BgL_test1454z00_301)
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1456z00_302;
BgL_arg1456z00_302 = 
CDR(BgL_cdrzd2581zd2_275); 
{ 
obj_t BgL_valuez00_1640;obj_t BgL_namez00_1639;
BgL_namez00_1639 = BgL_carzd2667zd2_300; 
BgL_valuez00_1640 = BgL_arg1456z00_302; 
BgL_valuez00_270 = BgL_valuez00_1640; 
BgL_namez00_269 = BgL_namez00_1639; 
goto BgL_tagzd2569zd2_271;} }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } } } } }  else 
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2682zd2_305;
BgL_carzd2682zd2_305 = 
CAR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1469z00_306;
BgL_test1469z00_306 = 
SYMBOLP(BgL_carzd2682zd2_305); 
if(BgL_test1469z00_306)
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1471z00_307;
BgL_arg1471z00_307 = 
CDR(BgL_cdrzd2581zd2_275); 
{ 
obj_t BgL_valuez00_1646;obj_t BgL_namez00_1645;
BgL_namez00_1645 = BgL_carzd2682zd2_305; 
BgL_valuez00_1646 = BgL_arg1471z00_307; 
BgL_valuez00_270 = BgL_valuez00_1646; 
BgL_namez00_269 = BgL_namez00_1645; 
goto BgL_tagzd2569zd2_271;} }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } } } }  else 
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2697zd2_309;
BgL_carzd2697zd2_309 = 
CAR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1480z00_310;
BgL_test1480z00_310 = 
SYMBOLP(BgL_carzd2697zd2_309); 
if(BgL_test1480z00_310)
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1483z00_311;
BgL_arg1483z00_311 = 
CDR(BgL_cdrzd2581zd2_275); 
{ 
obj_t BgL_valuez00_1652;obj_t BgL_namez00_1651;
BgL_namez00_1651 = BgL_carzd2697zd2_309; 
BgL_valuez00_1652 = BgL_arg1483z00_311; 
BgL_valuez00_270 = BgL_valuez00_1652; 
BgL_namez00_269 = BgL_namez00_1651; 
goto BgL_tagzd2569zd2_271;} }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } } } }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } }  else 
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1500z00_312;obj_t BgL_arg1501z00_313;
BgL_arg1500z00_312 = 
CAR(BgL_carzd2585zd2_277); 
BgL_arg1501z00_313 = 
CDR(BgL_carzd2585zd2_277); 
BgL_namez00_259 = BgL_arg1500z00_312; 
BgL_argsz00_260 = BgL_arg1501z00_313; 
BgL_bodyz00_261 = BgL_cdrzd2586zd2_278; 
{ /* ./Expand/define.scm 81 */
bool_t BgL_test1601z00_355;
BgL_test1601z00_355 = 
SYMBOLP(BgL_namez00_259); 
if(BgL_test1601z00_355)
{ /* ./Expand/define.scm 83 */
obj_t BgL_locz00_356;
BgL_locz00_356 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_15); 
{ /* ./Expand/define.scm 83 */
obj_t BgL_pidz00_357;
BgL_pidz00_357 = 
BGl_parsezd2idzd2zzast_identz00(BgL_namez00_259, BgL_locz00_356); 
{ /* ./Expand/define.scm 84 */
obj_t BgL_namezd2idzd2_358;
BgL_namezd2idzd2_358 = 
CAR(BgL_pidz00_357); 
{ /* ./Expand/define.scm 85 */
obj_t BgL_typez00_359;
BgL_typez00_359 = 
CDR(BgL_pidz00_357); 
{ /* ./Expand/define.scm 86 */
obj_t BgL_typezd2idzd2_360;
{ /* ./Expand/define.scm 87 */
BgL_typez00_bglt BgL_obj1003z00_998;
BgL_obj1003z00_998 = 
(BgL_typez00_bglt)(BgL_typez00_359); 
BgL_typezd2idzd2_360 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_998))->BgL_idz00); } 
{ /* ./Expand/define.scm 87 */

{ /* ./Expand/define.scm 89 */
obj_t BgL_arg1603z00_361;obj_t BgL_arg1604z00_362;
{ /* ./Expand/define.scm 89 */
obj_t BgL_arg1610z00_364;
BgL_arg1610z00_364 = 
BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(BgL_argsz00_260); 
BgL_arg1603z00_361 = 
MAKE_PAIR(BgL_namez00_259, BgL_arg1610z00_364); } 
BgL_arg1604z00_362 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Expand/define.scm 93 */
obj_t BgL_zc3anonymousza31613ze3z83_1209;
{ 
int BgL_auxz00_1668;int BgL_auxz00_1666;
BgL_auxz00_1668 = 
(int)(((long)7)); 
BgL_auxz00_1666 = 
(int)(((long)0)); 
BgL_zc3anonymousza31613ze3z83_1209 = 
make_fx_procedure(BGl_zc3anonymousza31613ze3z83zzexpand_definez00, BgL_auxz00_1666, BgL_auxz00_1668); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1671;
BgL_auxz00_1671 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31613ze3z83_1209, BgL_auxz00_1671, BgL_xz00_15); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1674;
BgL_auxz00_1674 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31613ze3z83_1209, BgL_auxz00_1674, BgL_typez00_359); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1677;
BgL_auxz00_1677 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31613ze3z83_1209, BgL_auxz00_1677, BgL_typezd2idzd2_360); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1680;
BgL_auxz00_1680 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31613ze3z83_1209, BgL_auxz00_1680, BgL_bodyz00_261); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1683;
BgL_auxz00_1683 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31613ze3z83_1209, BgL_auxz00_1683, BgL_ez00_258); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1686;
BgL_auxz00_1686 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza31613ze3z83_1209, BgL_auxz00_1686, BgL_argsz00_260); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1689;
BgL_auxz00_1689 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza31613ze3z83_1209, BgL_auxz00_1689, BgL_namezd2idzd2_358); } 
return 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_arg1603z00_361, BgL_arg1604z00_362, BgL_locz00_356, BgL_zc3anonymousza31613ze3z83_1209);} } } } } } } }  else 
{ /* ./Expand/define.scm 81 */
FAILURE(BGl_string2522z00zzexpand_definez00,BGl_string2521z00zzexpand_definez00,BgL_xz00_15);} } } }  else 
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2729zd2_315;obj_t BgL_cdrzd2730zd2_316;
BgL_carzd2729zd2_315 = 
CAR(BgL_cdrzd2581zd2_275); 
BgL_cdrzd2730zd2_316 = 
CDR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1506z00_317;
BgL_test1506z00_317 = 
SYMBOLP(BgL_carzd2729zd2_315); 
if(BgL_test1506z00_317)
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1507z00_318;
BgL_test1507z00_318 = 
PAIRP(BgL_cdrzd2730zd2_316); 
if(BgL_test1507z00_318)
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2738zd2_319;
BgL_carzd2738zd2_319 = 
CAR(BgL_cdrzd2730zd2_316); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1508z00_320;
BgL_test1508z00_320 = 
PAIRP(BgL_carzd2738zd2_319); 
if(BgL_test1508z00_320)
{ /* ./Expand/define.scm 78 */
obj_t BgL_cdrzd2752zd2_321;
BgL_cdrzd2752zd2_321 = 
CDR(BgL_carzd2738zd2_319); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1509z00_322;
BgL_test1509z00_322 = 
PAIRP(BgL_cdrzd2752zd2_321); 
if(BgL_test1509z00_322)
{ /* ./Expand/define.scm 78 */
obj_t BgL_cdrzd2757zd2_323;
BgL_cdrzd2757zd2_323 = 
CDR(BgL_cdrzd2752zd2_321); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1510z00_324;
BgL_test1510z00_324 = 
NULLP(BgL_cdrzd2757zd2_323); 
if(BgL_test1510z00_324)
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2771zd2_326;
BgL_carzd2771zd2_326 = 
CAR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1511z00_327;
BgL_test1511z00_327 = 
SYMBOLP(BgL_carzd2771zd2_326); 
if(BgL_test1511z00_327)
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1513z00_328;
BgL_arg1513z00_328 = 
CDR(BgL_cdrzd2581zd2_275); 
{ 
obj_t BgL_valuez00_1714;obj_t BgL_namez00_1713;
BgL_namez00_1713 = BgL_carzd2771zd2_326; 
BgL_valuez00_1714 = BgL_arg1513z00_328; 
BgL_valuez00_270 = BgL_valuez00_1714; 
BgL_namez00_269 = BgL_namez00_1713; 
goto BgL_tagzd2569zd2_271;} }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } }  else 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1520z00_329;
{ /* ./Expand/define.scm 78 */
obj_t BgL_auxz00_1715;
BgL_auxz00_1715 = 
CDR(BgL_cdrzd2730zd2_316); 
BgL_test1520z00_329 = 
NULLP(BgL_auxz00_1715); } 
if(BgL_test1520z00_329)
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1524z00_330;obj_t BgL_arg1526z00_331;
BgL_arg1524z00_330 = 
CAR(BgL_carzd2738zd2_319); 
BgL_arg1526z00_331 = 
CAR(BgL_cdrzd2752zd2_321); 
{ 
obj_t BgL_bodyz00_1725;obj_t BgL_argsz00_1724;obj_t BgL_lamz00_1723;obj_t BgL_valuez00_1722;obj_t BgL_namez00_1721;
BgL_namez00_1721 = BgL_carzd2729zd2_315; 
BgL_valuez00_1722 = BgL_carzd2738zd2_319; 
BgL_lamz00_1723 = BgL_arg1524z00_330; 
BgL_argsz00_1724 = BgL_arg1526z00_331; 
BgL_bodyz00_1725 = BgL_cdrzd2757zd2_323; 
BgL_bodyz00_267 = BgL_bodyz00_1725; 
BgL_argsz00_266 = BgL_argsz00_1724; 
BgL_lamz00_265 = BgL_lamz00_1723; 
BgL_valuez00_264 = BgL_valuez00_1722; 
BgL_namez00_263 = BgL_namez00_1721; 
goto BgL_tagzd2568zd2_268;} }  else 
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2790zd2_333;
BgL_carzd2790zd2_333 = 
CAR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1530z00_334;
BgL_test1530z00_334 = 
SYMBOLP(BgL_carzd2790zd2_333); 
if(BgL_test1530z00_334)
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1533z00_335;
BgL_arg1533z00_335 = 
CDR(BgL_cdrzd2581zd2_275); 
{ 
obj_t BgL_valuez00_1731;obj_t BgL_namez00_1730;
BgL_namez00_1730 = BgL_carzd2790zd2_333; 
BgL_valuez00_1731 = BgL_arg1533z00_335; 
BgL_valuez00_270 = BgL_valuez00_1731; 
BgL_namez00_269 = BgL_namez00_1730; 
goto BgL_tagzd2569zd2_271;} }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } } } } }  else 
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2809zd2_338;
BgL_carzd2809zd2_338 = 
CAR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1546z00_339;
BgL_test1546z00_339 = 
SYMBOLP(BgL_carzd2809zd2_338); 
if(BgL_test1546z00_339)
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1548z00_340;
BgL_arg1548z00_340 = 
CDR(BgL_cdrzd2581zd2_275); 
{ 
obj_t BgL_valuez00_1737;obj_t BgL_namez00_1736;
BgL_namez00_1736 = BgL_carzd2809zd2_338; 
BgL_valuez00_1737 = BgL_arg1548z00_340; 
BgL_valuez00_270 = BgL_valuez00_1737; 
BgL_namez00_269 = BgL_namez00_1736; 
goto BgL_tagzd2569zd2_271;} }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } } } }  else 
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2828zd2_342;
BgL_carzd2828zd2_342 = 
CAR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1557z00_343;
BgL_test1557z00_343 = 
SYMBOLP(BgL_carzd2828zd2_342); 
if(BgL_test1557z00_343)
{ /* ./Expand/define.scm 78 */
obj_t BgL_arg1559z00_344;
BgL_arg1559z00_344 = 
CDR(BgL_cdrzd2581zd2_275); 
{ 
obj_t BgL_valuez00_1743;obj_t BgL_namez00_1742;
BgL_namez00_1742 = BgL_carzd2828zd2_342; 
BgL_valuez00_1743 = BgL_arg1559z00_344; 
BgL_valuez00_270 = BgL_valuez00_1743; 
BgL_namez00_269 = BgL_namez00_1742; 
goto BgL_tagzd2569zd2_271;} }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } } } }  else 
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2847zd2_346;obj_t BgL_cdrzd2848zd2_347;
BgL_carzd2847zd2_346 = 
CAR(BgL_cdrzd2581zd2_275); 
BgL_cdrzd2848zd2_347 = 
CDR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1568z00_348;
BgL_test1568z00_348 = 
SYMBOLP(BgL_carzd2847zd2_346); 
if(BgL_test1568z00_348)
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1569z00_349;
BgL_test1569z00_349 = 
NULLP(BgL_cdrzd2848zd2_347); 
if(BgL_test1569z00_349)
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;}  else 
{ 
obj_t BgL_valuez00_1751;obj_t BgL_namez00_1750;
BgL_namez00_1750 = BgL_carzd2847zd2_346; 
BgL_valuez00_1751 = BgL_cdrzd2848zd2_347; 
BgL_valuez00_270 = BgL_valuez00_1751; 
BgL_namez00_269 = BgL_namez00_1750; 
goto BgL_tagzd2569zd2_271;} }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } } }  else 
{ /* ./Expand/define.scm 78 */
obj_t BgL_carzd2864zd2_351;obj_t BgL_cdrzd2865zd2_352;
BgL_carzd2864zd2_351 = 
CAR(BgL_cdrzd2581zd2_275); 
BgL_cdrzd2865zd2_352 = 
CDR(BgL_cdrzd2581zd2_275); 
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1579z00_353;
BgL_test1579z00_353 = 
SYMBOLP(BgL_carzd2864zd2_351); 
if(BgL_test1579z00_353)
{ /* ./Expand/define.scm 78 */
bool_t BgL_test1580z00_354;
BgL_test1580z00_354 = 
NULLP(BgL_cdrzd2865zd2_352); 
if(BgL_test1580z00_354)
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;}  else 
{ 
obj_t BgL_valuez00_1759;obj_t BgL_namez00_1758;
BgL_namez00_1758 = BgL_carzd2864zd2_351; 
BgL_valuez00_1759 = BgL_cdrzd2865zd2_352; 
BgL_valuez00_270 = BgL_valuez00_1759; 
BgL_namez00_269 = BgL_namez00_1758; 
goto BgL_tagzd2569zd2_271;} }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } } } } } }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } }  else 
{ /* ./Expand/define.scm 78 */
goto BgL_tagzd2570zd2_272;} } } } } 
}



/* <anonymous:1681> */
obj_t BGl_zc3anonymousza31681ze3z83zzexpand_definez00(obj_t BgL_envz00_1210)
{ AN_OBJECT;
{ /* ./Expand/define.scm 117 */
{ /* ./Expand/define.scm 118 */
obj_t BgL_xz00_1211;obj_t BgL_valuez00_1212;obj_t BgL_typez00_1213;obj_t BgL_typezd2idzd2_1214;obj_t BgL_argsz00_1215;obj_t BgL_ez00_1216;obj_t BgL_bodyz00_1217;obj_t BgL_namezd2idzd2_1218;
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1760;
BgL_auxz00_1760 = 
(int)(((long)0)); 
BgL_xz00_1211 = 
PROCEDURE_REF(BgL_envz00_1210, BgL_auxz00_1760); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1763;
BgL_auxz00_1763 = 
(int)(((long)1)); 
BgL_valuez00_1212 = 
PROCEDURE_REF(BgL_envz00_1210, BgL_auxz00_1763); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1766;
BgL_auxz00_1766 = 
(int)(((long)2)); 
BgL_typez00_1213 = 
PROCEDURE_REF(BgL_envz00_1210, BgL_auxz00_1766); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1769;
BgL_auxz00_1769 = 
(int)(((long)3)); 
BgL_typezd2idzd2_1214 = 
PROCEDURE_REF(BgL_envz00_1210, BgL_auxz00_1769); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1772;
BgL_auxz00_1772 = 
(int)(((long)4)); 
BgL_argsz00_1215 = 
PROCEDURE_REF(BgL_envz00_1210, BgL_auxz00_1772); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1775;
BgL_auxz00_1775 = 
(int)(((long)5)); 
BgL_ez00_1216 = 
PROCEDURE_REF(BgL_envz00_1210, BgL_auxz00_1775); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1778;
BgL_auxz00_1778 = 
(int)(((long)6)); 
BgL_bodyz00_1217 = 
PROCEDURE_REF(BgL_envz00_1210, BgL_auxz00_1778); } 
{ /* ./Expand/define.scm 118 */
int BgL_auxz00_1781;
BgL_auxz00_1781 = 
(int)(((long)7)); 
BgL_namezd2idzd2_1218 = 
PROCEDURE_REF(BgL_envz00_1210, BgL_auxz00_1781); } 
{ 

{ /* ./Expand/define.scm 118 */
obj_t BgL_locz00_396;
{ /* ./Expand/define.scm 119 */
obj_t BgL_arg1718z00_412;
BgL_arg1718z00_412 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_1211); 
BgL_locz00_396 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_valuez00_1212, BgL_arg1718z00_412); } 
{ /* ./Expand/define.scm 118 */
obj_t BgL_nbodyz00_397;
{ /* ./Expand/define.scm 120 */
obj_t BgL_arg1695z00_403;obj_t BgL_arg1696z00_404;
{ /* ./Expand/define.scm 120 */
bool_t BgL_test1698z00_405;
{ /* ./Expand/define.scm 120 */
BgL_typez00_bglt BgL_arg1701z00_406;
BgL_arg1701z00_406 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Expand/define.scm 120 */
obj_t BgL_auxz00_1787;
BgL_auxz00_1787 = 
(obj_t)(BgL_arg1701z00_406); 
BgL_test1698z00_405 = 
(BgL_typez00_1213==BgL_auxz00_1787); } } 
if(BgL_test1698z00_405)
{ /* ./Expand/define.scm 120 */
BgL_arg1695z00_403 = 
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Expand/define.scm 120 */
BgL_arg1695z00_403 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)0)), BgL_typezd2idzd2_1214); } } 
{ /* ./Expand/define.scm 124 */
obj_t BgL_arg1705z00_407;obj_t BgL_arg1706z00_408;
BgL_arg1705z00_407 = 
BGl_expandzd2argszd2zzexpand_lambdaz00(BgL_argsz00_1215, BgL_ez00_1216); 
{ /* ./Expand/define.scm 125 */
obj_t BgL_arg1710z00_409;
{ /* ./Expand/define.scm 125 */
obj_t BgL_arg1714z00_411;
BgL_arg1714z00_411 = 
BGl_normaliza7ezd2prognzf2locz87zztools_prognz00(BgL_bodyz00_1217, BgL_locz00_396); 
BgL_arg1710z00_409 = 
PROCEDURE_ENTRY(BgL_ez00_1216)(BgL_ez00_1216, BgL_arg1714z00_411, BgL_ez00_1216, BEOA); } 
BgL_arg1706z00_408 = 
MAKE_PAIR(BgL_arg1710z00_409, BNIL); } 
BgL_arg1696z00_404 = 
MAKE_PAIR(BgL_arg1705z00_407, BgL_arg1706z00_408); } 
BgL_nbodyz00_397 = 
MAKE_PAIR(BgL_arg1695z00_403, BgL_arg1696z00_404); } 
{ /* ./Expand/define.scm 120 */
obj_t BgL_enbodyz00_398;
BgL_enbodyz00_398 = 
BGl_epairifyz00zztools_miscz00(BgL_nbodyz00_397, BgL_bodyz00_1217); 
{ /* ./Expand/define.scm 126 */

{ /* ./Expand/define.scm 128 */
obj_t BgL_arg1683z00_399;
{ /* ./Expand/define.scm 128 */
obj_t BgL_arg1686z00_400;obj_t BgL_arg1687z00_401;
BgL_arg1686z00_400 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/define.scm 128 */
obj_t BgL_arg1690z00_402;
BgL_arg1690z00_402 = 
MAKE_PAIR(BgL_enbodyz00_398, BNIL); 
BgL_arg1687z00_401 = 
MAKE_PAIR(BgL_namezd2idzd2_1218, BgL_arg1690z00_402); } 
BgL_arg1683z00_399 = 
MAKE_PAIR(BgL_arg1686z00_400, BgL_arg1687z00_401); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_1211, BgL_arg1683z00_399);} } } } } } } } 
}



/* <anonymous:1613> */
obj_t BGl_zc3anonymousza31613ze3z83zzexpand_definez00(obj_t BgL_envz00_1219)
{ AN_OBJECT;
{ /* ./Expand/define.scm 92 */
{ /* ./Expand/define.scm 93 */
obj_t BgL_xz00_1220;obj_t BgL_typez00_1221;obj_t BgL_typezd2idzd2_1222;obj_t BgL_bodyz00_1223;obj_t BgL_ez00_1224;obj_t BgL_argsz00_1225;obj_t BgL_namezd2idzd2_1226;
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1807;
BgL_auxz00_1807 = 
(int)(((long)0)); 
BgL_xz00_1220 = 
PROCEDURE_REF(BgL_envz00_1219, BgL_auxz00_1807); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1810;
BgL_auxz00_1810 = 
(int)(((long)1)); 
BgL_typez00_1221 = 
PROCEDURE_REF(BgL_envz00_1219, BgL_auxz00_1810); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1813;
BgL_auxz00_1813 = 
(int)(((long)2)); 
BgL_typezd2idzd2_1222 = 
PROCEDURE_REF(BgL_envz00_1219, BgL_auxz00_1813); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1816;
BgL_auxz00_1816 = 
(int)(((long)3)); 
BgL_bodyz00_1223 = 
PROCEDURE_REF(BgL_envz00_1219, BgL_auxz00_1816); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1819;
BgL_auxz00_1819 = 
(int)(((long)4)); 
BgL_ez00_1224 = 
PROCEDURE_REF(BgL_envz00_1219, BgL_auxz00_1819); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1822;
BgL_auxz00_1822 = 
(int)(((long)5)); 
BgL_argsz00_1225 = 
PROCEDURE_REF(BgL_envz00_1219, BgL_auxz00_1822); } 
{ /* ./Expand/define.scm 93 */
int BgL_auxz00_1825;
BgL_auxz00_1825 = 
(int)(((long)6)); 
BgL_namezd2idzd2_1226 = 
PROCEDURE_REF(BgL_envz00_1219, BgL_auxz00_1825); } 
{ 

{ /* ./Expand/define.scm 93 */
obj_t BgL_locz00_366;
{ /* ./Expand/define.scm 93 */
obj_t BgL_arg1655z00_381;obj_t BgL_arg1657z00_382;
{ /* ./Expand/define.scm 93 */
obj_t BgL_auxz00_1828;
BgL_auxz00_1828 = 
CDR(BgL_xz00_1220); 
BgL_arg1655z00_381 = 
CDR(BgL_auxz00_1828); } 
BgL_arg1657z00_382 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_1220); 
BgL_locz00_366 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg1655z00_381, BgL_arg1657z00_382); } 
{ /* ./Expand/define.scm 93 */
obj_t BgL_nbodyz00_367;
{ /* ./Expand/define.scm 95 */
obj_t BgL_arg1629z00_373;obj_t BgL_arg1631z00_374;
{ /* ./Expand/define.scm 95 */
bool_t BgL_test1633z00_375;
{ /* ./Expand/define.scm 95 */
BgL_typez00_bglt BgL_arg1636z00_376;
BgL_arg1636z00_376 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Expand/define.scm 95 */
obj_t BgL_auxz00_1834;
BgL_auxz00_1834 = 
(obj_t)(BgL_arg1636z00_376); 
BgL_test1633z00_375 = 
(BgL_typez00_1221==BgL_auxz00_1834); } } 
if(BgL_test1633z00_375)
{ /* ./Expand/define.scm 95 */
BgL_arg1629z00_373 = 
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Expand/define.scm 95 */
BgL_arg1629z00_373 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)0)), BgL_typezd2idzd2_1222); } } 
{ /* ./Expand/define.scm 99 */
obj_t BgL_arg1641z00_377;
{ /* ./Expand/define.scm 99 */
obj_t BgL_arg1644z00_378;
{ /* ./Expand/define.scm 99 */
obj_t BgL_arg1651z00_380;
BgL_arg1651z00_380 = 
BGl_normaliza7ezd2prognzf2locz87zztools_prognz00(BgL_bodyz00_1223, BgL_locz00_366); 
BgL_arg1644z00_378 = 
PROCEDURE_ENTRY(BgL_ez00_1224)(BgL_ez00_1224, BgL_arg1651z00_380, BgL_ez00_1224, BEOA); } 
BgL_arg1641z00_377 = 
MAKE_PAIR(BgL_arg1644z00_378, BNIL); } 
BgL_arg1631z00_374 = 
MAKE_PAIR(BgL_argsz00_1225, BgL_arg1641z00_377); } 
BgL_nbodyz00_367 = 
MAKE_PAIR(BgL_arg1629z00_373, BgL_arg1631z00_374); } 
{ /* ./Expand/define.scm 95 */
obj_t BgL_enbodyz00_368;
BgL_enbodyz00_368 = 
BGl_epairifyz00zztools_miscz00(BgL_nbodyz00_367, BgL_bodyz00_1223); 
{ /* ./Expand/define.scm 100 */

{ /* ./Expand/define.scm 101 */
obj_t BgL_arg1615z00_369;
{ /* ./Expand/define.scm 101 */
obj_t BgL_arg1618z00_370;obj_t BgL_arg1620z00_371;
BgL_arg1618z00_370 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/define.scm 101 */
obj_t BgL_arg1624z00_372;
BgL_arg1624z00_372 = 
MAKE_PAIR(BgL_enbodyz00_368, BNIL); 
BgL_arg1620z00_371 = 
MAKE_PAIR(BgL_namezd2idzd2_1226, BgL_arg1624z00_372); } 
BgL_arg1615z00_369 = 
MAKE_PAIR(BgL_arg1618z00_370, BgL_arg1620z00_371); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_1220, BgL_arg1615z00_369);} } } } } } } } 
}



/* expand-set! */
BGL_EXPORTED_DEF obj_t BGl_expandzd2setz12zc0zzexpand_definez00(obj_t BgL_xz00_17, obj_t BgL_ez00_18)
{ AN_OBJECT;
{ /* ./Expand/define.scm 148 */
if(
CBOOL(BGl_internalzd2definitionzf3z21zzexpand_lambdaz00))
{ /* ./Expand/define.scm 165 */
return 
BGl_internalzd2expandzd2setz12z12zzexpand_definez00(BgL_xz00_17, BgL_ez00_18);}  else 
{ /* ./Expand/define.scm 165 */
BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BTRUE; 
{ /* ./Expand/define.scm 169 */
obj_t BgL_resz00_435;
{ /* ./Expand/define.scm 169 */
obj_t BgL_arg1781z00_436;
BgL_arg1781z00_436 = 
BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(BgL_ez00_18); 
BgL_resz00_435 = 
BGl_internalzd2expandzd2setz12z12zzexpand_definez00(BgL_xz00_17, BgL_arg1781z00_436); } 
BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BFALSE; 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_17, BgL_resz00_435);} } } 
}



/* internal-expand-set! */
obj_t BGl_internalzd2expandzd2setz12z12zzexpand_definez00(obj_t BgL_xz00_437, obj_t BgL_ez00_438)
{ AN_OBJECT;
{ /* ./Expand/define.scm 164 */
{ 
obj_t BgL_varz00_440;obj_t BgL_valuez00_441;obj_t BgL_idz00_443;obj_t BgL_varz00_444;obj_t BgL_valuez00_445;
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1785z00_449;
BgL_test1785z00_449 = 
PAIRP(BgL_xz00_437); 
if(BgL_test1785z00_449)
{ /* ./Expand/define.scm 164 */
obj_t BgL_cdrzd2909zd2_450;
BgL_cdrzd2909zd2_450 = 
CDR(BgL_xz00_437); 
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1786z00_451;
BgL_test1786z00_451 = 
PAIRP(BgL_cdrzd2909zd2_450); 
if(BgL_test1786z00_451)
{ /* ./Expand/define.scm 164 */
obj_t BgL_carzd2912zd2_452;obj_t BgL_cdrzd2913zd2_453;
BgL_carzd2912zd2_452 = 
CAR(BgL_cdrzd2909zd2_450); 
BgL_cdrzd2913zd2_453 = 
CDR(BgL_cdrzd2909zd2_450); 
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1787z00_454;
BgL_test1787z00_454 = 
SYMBOLP(BgL_carzd2912zd2_452); 
if(BgL_test1787z00_454)
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1788z00_455;
BgL_test1788z00_455 = 
PAIRP(BgL_cdrzd2913zd2_453); 
if(BgL_test1788z00_455)
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1789z00_456;
{ /* ./Expand/define.scm 164 */
obj_t BgL_auxz00_1870;
BgL_auxz00_1870 = 
CDR(BgL_cdrzd2913zd2_453); 
BgL_test1789z00_456 = 
NULLP(BgL_auxz00_1870); } 
if(BgL_test1789z00_456)
{ /* ./Expand/define.scm 164 */
obj_t BgL_arg1791z00_457;
BgL_arg1791z00_457 = 
CAR(BgL_cdrzd2913zd2_453); 
BgL_varz00_440 = BgL_carzd2912zd2_452; 
BgL_valuez00_441 = BgL_arg1791z00_457; 
BGl_enterzd2functionzd2zztools_errorz00(BgL_varz00_440); 
{ /* ./Expand/define.scm 154 */
obj_t BgL_evz00_480;
BgL_evz00_480 = 
PROCEDURE_ENTRY(BgL_ez00_438)(BgL_ez00_438, BgL_valuez00_441, BgL_ez00_438, BEOA); 
BGl_leavezd2functionzd2zztools_errorz00(); 
{ /* ./Expand/define.scm 156 */
obj_t BgL_arg1870z00_481;
{ /* ./Expand/define.scm 156 */
obj_t BgL_arg1873z00_482;obj_t BgL_arg1874z00_483;
BgL_arg1873z00_482 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Expand/define.scm 156 */
obj_t BgL_arg1877z00_484;
BgL_arg1877z00_484 = 
MAKE_PAIR(BgL_evz00_480, BNIL); 
BgL_arg1874z00_483 = 
MAKE_PAIR(BgL_varz00_440, BgL_arg1877z00_484); } 
BgL_arg1870z00_481 = 
MAKE_PAIR(BgL_arg1873z00_482, BgL_arg1874z00_483); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_437, BgL_arg1870z00_481);} } }  else 
{ /* ./Expand/define.scm 164 */
BgL_tagzd2901zd2_447:
FAILURE(BFALSE,BGl_string2523z00zzexpand_definez00,BgL_xz00_437);} }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} }  else 
{ /* ./Expand/define.scm 164 */
obj_t BgL_carzd2947zd2_460;obj_t BgL_cdrzd2948zd2_461;
BgL_carzd2947zd2_460 = 
CAR(BgL_cdrzd2909zd2_450); 
BgL_cdrzd2948zd2_461 = 
CDR(BgL_cdrzd2909zd2_450); 
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1803z00_462;
BgL_test1803z00_462 = 
PAIRP(BgL_carzd2947zd2_460); 
if(BgL_test1803z00_462)
{ /* ./Expand/define.scm 164 */
obj_t BgL_cdrzd2954zd2_463;
BgL_cdrzd2954zd2_463 = 
CDR(BgL_carzd2947zd2_460); 
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1804z00_464;
{ /* ./Expand/define.scm 164 */
obj_t BgL_auxz00_1892;obj_t BgL_auxz00_1890;
BgL_auxz00_1892 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_1890 = 
CAR(BgL_carzd2947zd2_460); 
BgL_test1804z00_464 = 
(BgL_auxz00_1890==BgL_auxz00_1892); } 
if(BgL_test1804z00_464)
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1805z00_465;
BgL_test1805z00_465 = 
PAIRP(BgL_cdrzd2954zd2_463); 
if(BgL_test1805z00_465)
{ /* ./Expand/define.scm 164 */
obj_t BgL_carzd2956zd2_466;obj_t BgL_cdrzd2957zd2_467;
BgL_carzd2956zd2_466 = 
CAR(BgL_cdrzd2954zd2_463); 
BgL_cdrzd2957zd2_467 = 
CDR(BgL_cdrzd2954zd2_463); 
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1807z00_468;
BgL_test1807z00_468 = 
SYMBOLP(BgL_carzd2956zd2_466); 
if(BgL_test1807z00_468)
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1808z00_469;
BgL_test1808z00_469 = 
PAIRP(BgL_cdrzd2957zd2_467); 
if(BgL_test1808z00_469)
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1809z00_470;
{ /* ./Expand/define.scm 164 */
obj_t BgL_auxz00_1904;
BgL_auxz00_1904 = 
CAR(BgL_cdrzd2957zd2_467); 
BgL_test1809z00_470 = 
SYMBOLP(BgL_auxz00_1904); } 
if(BgL_test1809z00_470)
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1810z00_471;
{ /* ./Expand/define.scm 164 */
obj_t BgL_auxz00_1908;
BgL_auxz00_1908 = 
CDR(BgL_cdrzd2957zd2_467); 
BgL_test1810z00_471 = 
NULLP(BgL_auxz00_1908); } 
if(BgL_test1810z00_471)
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1812z00_472;
BgL_test1812z00_472 = 
PAIRP(BgL_cdrzd2948zd2_461); 
if(BgL_test1812z00_472)
{ /* ./Expand/define.scm 164 */
bool_t BgL_test1813z00_473;
{ /* ./Expand/define.scm 164 */
obj_t BgL_auxz00_1914;
BgL_auxz00_1914 = 
CDR(BgL_cdrzd2948zd2_461); 
BgL_test1813z00_473 = 
NULLP(BgL_auxz00_1914); } 
if(BgL_test1813z00_473)
{ /* ./Expand/define.scm 164 */
obj_t BgL_arg1815z00_474;
BgL_arg1815z00_474 = 
CAR(BgL_cdrzd2948zd2_461); 
BgL_idz00_443 = BgL_carzd2956zd2_466; 
BgL_varz00_444 = BgL_carzd2947zd2_460; 
BgL_valuez00_445 = BgL_arg1815z00_474; 
BGl_enterzd2functionzd2zztools_errorz00(BgL_idz00_443); 
{ /* ./Expand/define.scm 160 */
obj_t BgL_evz00_485;
BgL_evz00_485 = 
PROCEDURE_ENTRY(BgL_ez00_438)(BgL_ez00_438, BgL_valuez00_445, BgL_ez00_438, BEOA); 
BGl_leavezd2functionzd2zztools_errorz00(); 
{ /* ./Expand/define.scm 162 */
obj_t BgL_arg1884z00_486;
{ /* ./Expand/define.scm 162 */
obj_t BgL_arg1887z00_487;obj_t BgL_arg1888z00_488;
BgL_arg1887z00_487 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Expand/define.scm 162 */
obj_t BgL_arg1891z00_489;
BgL_arg1891z00_489 = 
MAKE_PAIR(BgL_evz00_485, BNIL); 
BgL_arg1888z00_488 = 
MAKE_PAIR(BgL_varz00_444, BgL_arg1891z00_489); } 
BgL_arg1884z00_486 = 
MAKE_PAIR(BgL_arg1887z00_487, BgL_arg1888z00_488); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_437, BgL_arg1884z00_486);} } }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} } }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} } }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} } } } }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} } }  else 
{ /* ./Expand/define.scm 164 */
goto BgL_tagzd2901zd2_447;} } } } 
}



/* _expand-set! */
obj_t BGl__expandzd2setz12zc0zzexpand_definez00(obj_t BgL_envz00_1227, obj_t BgL_xz00_1228, obj_t BgL_ez00_1229)
{ AN_OBJECT;
{ /* ./Expand/define.scm 148 */
return 
BGl_expandzd2setz12zc0zzexpand_definez00(BgL_xz00_1228, BgL_ez00_1229);} 
}



/* expand-method */
BGL_EXPORTED_DEF obj_t BGl_expandzd2methodzd2zzexpand_definez00(obj_t BgL_xz00_19, obj_t BgL_ez00_20)
{ AN_OBJECT;
{ /* ./Expand/define.scm 176 */
{ 
obj_t BgL_kwz00_491;obj_t BgL_idz00_492;obj_t BgL_argsz00_493;obj_t BgL_bodyz00_494;
{ /* ./Expand/define.scm 177 */
bool_t BgL_test1897z00_498;
BgL_test1897z00_498 = 
PAIRP(BgL_xz00_19); 
if(BgL_test1897z00_498)
{ /* ./Expand/define.scm 177 */
obj_t BgL_cdrzd2991zd2_499;
BgL_cdrzd2991zd2_499 = 
CDR(BgL_xz00_19); 
{ /* ./Expand/define.scm 177 */
bool_t BgL_test1898z00_500;
BgL_test1898z00_500 = 
PAIRP(BgL_cdrzd2991zd2_499); 
if(BgL_test1898z00_500)
{ /* ./Expand/define.scm 177 */
obj_t BgL_carzd2996zd2_501;obj_t BgL_cdrzd2997zd2_502;
BgL_carzd2996zd2_501 = 
CAR(BgL_cdrzd2991zd2_499); 
BgL_cdrzd2997zd2_502 = 
CDR(BgL_cdrzd2991zd2_499); 
{ /* ./Expand/define.scm 177 */
bool_t BgL_test1899z00_503;
BgL_test1899z00_503 = 
PAIRP(BgL_carzd2996zd2_501); 
if(BgL_test1899z00_503)
{ /* ./Expand/define.scm 177 */
obj_t BgL_carzd21000zd2_504;
BgL_carzd21000zd2_504 = 
CAR(BgL_carzd2996zd2_501); 
{ /* ./Expand/define.scm 177 */
bool_t BgL_test1900z00_505;
BgL_test1900z00_505 = 
SYMBOLP(BgL_carzd21000zd2_504); 
if(BgL_test1900z00_505)
{ /* ./Expand/define.scm 177 */
bool_t BgL_test1902z00_506;
BgL_test1902z00_506 = 
NULLP(BgL_cdrzd2997zd2_502); 
if(BgL_test1902z00_506)
{ /* ./Expand/define.scm 177 */
BgL_tagzd2980zd2_496:
FAILURE(BFALSE,BGl_string2524z00zzexpand_definez00,BgL_xz00_19);}  else 
{ /* ./Expand/define.scm 177 */
obj_t BgL_arg1905z00_507;obj_t BgL_arg1906z00_508;
BgL_arg1905z00_507 = 
CAR(BgL_xz00_19); 
BgL_arg1906z00_508 = 
CDR(BgL_carzd2996zd2_501); 
BgL_kwz00_491 = BgL_arg1905z00_507; 
BgL_idz00_492 = BgL_carzd21000zd2_504; 
BgL_argsz00_493 = BgL_arg1906z00_508; 
BgL_bodyz00_494 = BgL_cdrzd2997zd2_502; 
{ /* ./Expand/define.scm 180 */
obj_t BgL_arg1924z00_509;obj_t BgL_arg1925z00_510;obj_t BgL_arg1928z00_511;
BgL_arg1924z00_509 = 
BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(BgL_argsz00_493); 
BgL_arg1925z00_510 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg1928z00_511 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_19); 
{ /* ./Expand/define.scm 184 */
obj_t BgL_zc3anonymousza31934ze3z83_1230;
{ 
int BgL_auxz00_1951;int BgL_auxz00_1949;
BgL_auxz00_1951 = 
(int)(((long)6)); 
BgL_auxz00_1949 = 
(int)(((long)0)); 
BgL_zc3anonymousza31934ze3z83_1230 = 
make_fx_procedure(BGl_zc3anonymousza31934ze3z83zzexpand_definez00, BgL_auxz00_1949, BgL_auxz00_1951); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1954;
BgL_auxz00_1954 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31934ze3z83_1230, BgL_auxz00_1954, BgL_kwz00_491); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1957;
BgL_auxz00_1957 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31934ze3z83_1230, BgL_auxz00_1957, BgL_ez00_20); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1960;
BgL_auxz00_1960 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31934ze3z83_1230, BgL_auxz00_1960, BgL_idz00_492); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1963;
BgL_auxz00_1963 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31934ze3z83_1230, BgL_auxz00_1963, BgL_argsz00_493); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1966;
BgL_auxz00_1966 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31934ze3z83_1230, BgL_auxz00_1966, BgL_bodyz00_494); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1969;
BgL_auxz00_1969 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza31934ze3z83_1230, BgL_auxz00_1969, BgL_xz00_19); } 
return 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_arg1924z00_509, BgL_arg1925z00_510, BgL_arg1928z00_511, BgL_zc3anonymousza31934ze3z83_1230);} } } }  else 
{ /* ./Expand/define.scm 177 */
goto BgL_tagzd2980zd2_496;} } }  else 
{ /* ./Expand/define.scm 177 */
goto BgL_tagzd2980zd2_496;} } }  else 
{ /* ./Expand/define.scm 177 */
goto BgL_tagzd2980zd2_496;} } }  else 
{ /* ./Expand/define.scm 177 */
goto BgL_tagzd2980zd2_496;} } } } 
}



/* _expand-method */
obj_t BGl__expandzd2methodzd2zzexpand_definez00(obj_t BgL_envz00_1231, obj_t BgL_xz00_1232, obj_t BgL_ez00_1233)
{ AN_OBJECT;
{ /* ./Expand/define.scm 176 */
return 
BGl_expandzd2methodzd2zzexpand_definez00(BgL_xz00_1232, BgL_ez00_1233);} 
}



/* <anonymous:1934> */
obj_t BGl_zc3anonymousza31934ze3z83zzexpand_definez00(obj_t BgL_envz00_1234)
{ AN_OBJECT;
{ /* ./Expand/define.scm 183 */
{ /* ./Expand/define.scm 184 */
obj_t BgL_kwz00_1235;obj_t BgL_ez00_1236;obj_t BgL_idz00_1237;obj_t BgL_argsz00_1238;obj_t BgL_bodyz00_1239;obj_t BgL_xz00_1240;
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1974;
BgL_auxz00_1974 = 
(int)(((long)0)); 
BgL_kwz00_1235 = 
PROCEDURE_REF(BgL_envz00_1234, BgL_auxz00_1974); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1977;
BgL_auxz00_1977 = 
(int)(((long)1)); 
BgL_ez00_1236 = 
PROCEDURE_REF(BgL_envz00_1234, BgL_auxz00_1977); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1980;
BgL_auxz00_1980 = 
(int)(((long)2)); 
BgL_idz00_1237 = 
PROCEDURE_REF(BgL_envz00_1234, BgL_auxz00_1980); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1983;
BgL_auxz00_1983 = 
(int)(((long)3)); 
BgL_argsz00_1238 = 
PROCEDURE_REF(BgL_envz00_1234, BgL_auxz00_1983); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1986;
BgL_auxz00_1986 = 
(int)(((long)4)); 
BgL_bodyz00_1239 = 
PROCEDURE_REF(BgL_envz00_1234, BgL_auxz00_1986); } 
{ /* ./Expand/define.scm 184 */
int BgL_auxz00_1989;
BgL_auxz00_1989 = 
(int)(((long)5)); 
BgL_xz00_1240 = 
PROCEDURE_REF(BgL_envz00_1234, BgL_auxz00_1989); } 
{ 

{ /* ./Expand/define.scm 184 */
obj_t BgL_arg1936z00_514;
BgL_arg1936z00_514 = 
BGl_dozd2inlinezf2genericzf2methodzd2zzexpand_definez00(BgL_kwz00_1235, BgL_ez00_1236, BgL_idz00_1237, BgL_idz00_1237, BgL_argsz00_1238, BgL_bodyz00_1239, BgL_xz00_1240); 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_1240, BgL_arg1936z00_514);} } } } 
}



/* expand-inline */
BGL_EXPORTED_DEF obj_t BGl_expandzd2inlinezd2zzexpand_definez00(obj_t BgL_xz00_21, obj_t BgL_ez00_22)
{ AN_OBJECT;
{ /* ./Expand/define.scm 193 */
{ 

{ /* ./Expand/define.scm 194 */
bool_t BgL_test1940z00_524;
BgL_test1940z00_524 = 
PAIRP(BgL_xz00_21); 
if(BgL_test1940z00_524)
{ /* ./Expand/define.scm 194 */
obj_t BgL_cdrzd21022zd2_525;
BgL_cdrzd21022zd2_525 = 
CDR(BgL_xz00_21); 
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1941z00_526;
BgL_test1941z00_526 = 
PAIRP(BgL_cdrzd21022zd2_525); 
if(BgL_test1941z00_526)
{ /* ./Expand/define.scm 194 */
obj_t BgL_carzd21028zd2_527;obj_t BgL_cdrzd21029zd2_528;
BgL_carzd21028zd2_527 = 
CAR(BgL_cdrzd21022zd2_525); 
BgL_cdrzd21029zd2_528 = 
CDR(BgL_cdrzd21022zd2_525); 
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1942z00_529;
BgL_test1942z00_529 = 
PAIRP(BgL_carzd21028zd2_527); 
if(BgL_test1942z00_529)
{ /* ./Expand/define.scm 194 */
obj_t BgL_carzd21033zd2_530;
BgL_carzd21033zd2_530 = 
CAR(BgL_carzd21028zd2_527); 
{ 
obj_t BgL_namez00_531;
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1943z00_533;
BgL_test1943z00_533 = 
SYMBOLP(BgL_carzd21033zd2_530); 
if(BgL_test1943z00_533)
{ /* ./Expand/define.scm 194 */
BgL_namez00_531 = BgL_carzd21033zd2_530; 
BgL_kapzd21040zd2_532:
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1983z00_548;
BgL_test1983z00_548 = 
NULLP(BgL_cdrzd21029zd2_528); 
if(BgL_test1983z00_548)
{ /* ./Expand/define.scm 194 */
BgL_tagzd21009zd2_522:
FAILURE(BFALSE,BGl_string2525z00zzexpand_definez00,BgL_xz00_21);}  else 
{ /* ./Expand/define.scm 194 */
obj_t BgL_arg1987z00_549;obj_t BgL_arg1988z00_550;
BgL_arg1987z00_549 = 
CAR(BgL_xz00_21); 
BgL_arg1988z00_550 = 
CDR(BgL_carzd21028zd2_527); 
{ /* ./Expand/define.scm 194 */
obj_t BgL_arg2005z00_1096;obj_t BgL_arg2006z00_1097;obj_t BgL_arg2007z00_1098;
BgL_arg2005z00_1096 = 
BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(BgL_arg1988z00_550); 
BgL_arg2006z00_1097 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg2007z00_1098 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_21); 
{ /* ./Expand/define.scm 194 */
obj_t BgL_zc3anonymousza32012ze3z83_1241;
{ 
int BgL_auxz00_2016;int BgL_auxz00_2014;
BgL_auxz00_2016 = 
(int)(((long)7)); 
BgL_auxz00_2014 = 
(int)(((long)0)); 
BgL_zc3anonymousza32012ze3z83_1241 = 
make_fx_procedure(BGl_zc3anonymousza32012ze3z83zzexpand_definez00, BgL_auxz00_2014, BgL_auxz00_2016); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2019;
BgL_auxz00_2019 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32012ze3z83_1241, BgL_auxz00_2019, BgL_arg1987z00_549); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2022;
BgL_auxz00_2022 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32012ze3z83_1241, BgL_auxz00_2022, BgL_ez00_22); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2025;
BgL_auxz00_2025 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32012ze3z83_1241, BgL_auxz00_2025, BgL_carzd21033zd2_530); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2028;
BgL_auxz00_2028 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32012ze3z83_1241, BgL_auxz00_2028, BgL_namez00_531); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2031;
BgL_auxz00_2031 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32012ze3z83_1241, BgL_auxz00_2031, BgL_arg1988z00_550); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2034;
BgL_auxz00_2034 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32012ze3z83_1241, BgL_auxz00_2034, BgL_cdrzd21029zd2_528); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2037;
BgL_auxz00_2037 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32012ze3z83_1241, BgL_auxz00_2037, BgL_xz00_21); } 
return 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_arg2005z00_1096, BgL_arg2006z00_1097, BgL_arg2007z00_1098, BgL_zc3anonymousza32012ze3z83_1241);} } } } }  else 
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1945z00_534;
BgL_test1945z00_534 = 
PAIRP(BgL_carzd21033zd2_530); 
if(BgL_test1945z00_534)
{ /* ./Expand/define.scm 194 */
obj_t BgL_cdrzd21051zd2_535;
BgL_cdrzd21051zd2_535 = 
CDR(BgL_carzd21033zd2_530); 
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1947z00_536;
{ /* ./Expand/define.scm 194 */
obj_t BgL_auxz00_2046;obj_t BgL_auxz00_2044;
BgL_auxz00_2046 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2044 = 
CAR(BgL_carzd21033zd2_530); 
BgL_test1947z00_536 = 
(BgL_auxz00_2044==BgL_auxz00_2046); } 
if(BgL_test1947z00_536)
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1948z00_537;
BgL_test1948z00_537 = 
PAIRP(BgL_cdrzd21051zd2_535); 
if(BgL_test1948z00_537)
{ /* ./Expand/define.scm 194 */
obj_t BgL_carzd21053zd2_538;obj_t BgL_cdrzd21054zd2_539;
BgL_carzd21053zd2_538 = 
CAR(BgL_cdrzd21051zd2_535); 
BgL_cdrzd21054zd2_539 = 
CDR(BgL_cdrzd21051zd2_535); 
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1949z00_540;
BgL_test1949z00_540 = 
SYMBOLP(BgL_carzd21053zd2_538); 
if(BgL_test1949z00_540)
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1950z00_541;
BgL_test1950z00_541 = 
PAIRP(BgL_cdrzd21054zd2_539); 
if(BgL_test1950z00_541)
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1951z00_542;
{ /* ./Expand/define.scm 194 */
obj_t BgL_auxz00_2058;
BgL_auxz00_2058 = 
CAR(BgL_cdrzd21054zd2_539); 
BgL_test1951z00_542 = 
SYMBOLP(BgL_auxz00_2058); } 
if(BgL_test1951z00_542)
{ /* ./Expand/define.scm 194 */
bool_t BgL_test1952z00_543;
{ /* ./Expand/define.scm 194 */
obj_t BgL_auxz00_2062;
BgL_auxz00_2062 = 
CDR(BgL_cdrzd21054zd2_539); 
BgL_test1952z00_543 = 
NULLP(BgL_auxz00_2062); } 
if(BgL_test1952z00_543)
{ 
obj_t BgL_namez00_2066;
BgL_namez00_2066 = BgL_carzd21053zd2_538; 
BgL_namez00_531 = BgL_namez00_2066; 
goto BgL_kapzd21040zd2_532;}  else 
{ /* ./Expand/define.scm 194 */
goto BgL_tagzd21009zd2_522;} }  else 
{ /* ./Expand/define.scm 194 */
goto BgL_tagzd21009zd2_522;} }  else 
{ /* ./Expand/define.scm 194 */
goto BgL_tagzd21009zd2_522;} }  else 
{ /* ./Expand/define.scm 194 */
goto BgL_tagzd21009zd2_522;} } }  else 
{ /* ./Expand/define.scm 194 */
goto BgL_tagzd21009zd2_522;} }  else 
{ /* ./Expand/define.scm 194 */
goto BgL_tagzd21009zd2_522;} } }  else 
{ /* ./Expand/define.scm 194 */
goto BgL_tagzd21009zd2_522;} } } } }  else 
{ /* ./Expand/define.scm 194 */
goto BgL_tagzd21009zd2_522;} } }  else 
{ /* ./Expand/define.scm 194 */
goto BgL_tagzd21009zd2_522;} } }  else 
{ /* ./Expand/define.scm 194 */
goto BgL_tagzd21009zd2_522;} } } } 
}



/* _expand-inline */
obj_t BGl__expandzd2inlinezd2zzexpand_definez00(obj_t BgL_envz00_1242, obj_t BgL_xz00_1243, obj_t BgL_ez00_1244)
{ AN_OBJECT;
{ /* ./Expand/define.scm 193 */
return 
BGl_expandzd2inlinezd2zzexpand_definez00(BgL_xz00_1243, BgL_ez00_1244);} 
}



/* <anonymous:2012> */
obj_t BGl_zc3anonymousza32012ze3z83zzexpand_definez00(obj_t BgL_envz00_1245)
{ AN_OBJECT;
{ /* ./Expand/define.scm 202 */
{ /* ./Expand/define.scm 194 */
obj_t BgL_kwz00_1246;obj_t BgL_ez00_1247;obj_t BgL_idz00_1248;obj_t BgL_namez00_1249;obj_t BgL_argsz00_1250;obj_t BgL_bodyz00_1251;obj_t BgL_xz00_1252;
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2068;
BgL_auxz00_2068 = 
(int)(((long)0)); 
BgL_kwz00_1246 = 
PROCEDURE_REF(BgL_envz00_1245, BgL_auxz00_2068); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2071;
BgL_auxz00_2071 = 
(int)(((long)1)); 
BgL_ez00_1247 = 
PROCEDURE_REF(BgL_envz00_1245, BgL_auxz00_2071); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2074;
BgL_auxz00_2074 = 
(int)(((long)2)); 
BgL_idz00_1248 = 
PROCEDURE_REF(BgL_envz00_1245, BgL_auxz00_2074); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2077;
BgL_auxz00_2077 = 
(int)(((long)3)); 
BgL_namez00_1249 = 
PROCEDURE_REF(BgL_envz00_1245, BgL_auxz00_2077); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2080;
BgL_auxz00_2080 = 
(int)(((long)4)); 
BgL_argsz00_1250 = 
PROCEDURE_REF(BgL_envz00_1245, BgL_auxz00_2080); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2083;
BgL_auxz00_2083 = 
(int)(((long)5)); 
BgL_bodyz00_1251 = 
PROCEDURE_REF(BgL_envz00_1245, BgL_auxz00_2083); } 
{ /* ./Expand/define.scm 194 */
int BgL_auxz00_2086;
BgL_auxz00_2086 = 
(int)(((long)6)); 
BgL_xz00_1252 = 
PROCEDURE_REF(BgL_envz00_1245, BgL_auxz00_2086); } 
{ 

{ /* ./Expand/define.scm 194 */
obj_t BgL_arg2014z00_1100;
BgL_arg2014z00_1100 = 
BGl_dozd2inlinezf2genericzf2methodzd2zzexpand_definez00(BgL_kwz00_1246, BgL_ez00_1247, BgL_idz00_1248, BgL_namez00_1249, BgL_argsz00_1250, BgL_bodyz00_1251, BgL_xz00_1252); 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_1252, BgL_arg2014z00_1100);} } } } 
}



/* expand-generic */
BGL_EXPORTED_DEF obj_t BGl_expandzd2genericzd2zzexpand_definez00(obj_t BgL_xz00_23, obj_t BgL_ez00_24)
{ AN_OBJECT;
{ /* ./Expand/define.scm 212 */
{ 

{ /* ./Expand/define.scm 213 */
bool_t BgL_test2018z00_566;
BgL_test2018z00_566 = 
PAIRP(BgL_xz00_23); 
if(BgL_test2018z00_566)
{ /* ./Expand/define.scm 213 */
obj_t BgL_cdrzd21074zd2_567;
BgL_cdrzd21074zd2_567 = 
CDR(BgL_xz00_23); 
{ /* ./Expand/define.scm 213 */
bool_t BgL_test2019z00_568;
BgL_test2019z00_568 = 
PAIRP(BgL_cdrzd21074zd2_567); 
if(BgL_test2019z00_568)
{ /* ./Expand/define.scm 213 */
obj_t BgL_carzd21080zd2_569;
BgL_carzd21080zd2_569 = 
CAR(BgL_cdrzd21074zd2_567); 
{ /* ./Expand/define.scm 213 */
bool_t BgL_test2020z00_570;
BgL_test2020z00_570 = 
PAIRP(BgL_carzd21080zd2_569); 
if(BgL_test2020z00_570)
{ /* ./Expand/define.scm 213 */
obj_t BgL_carzd21085zd2_571;
BgL_carzd21085zd2_571 = 
CAR(BgL_carzd21080zd2_569); 
{ 
obj_t BgL_namez00_572;
{ /* ./Expand/define.scm 213 */
bool_t BgL_test2021z00_574;
BgL_test2021z00_574 = 
SYMBOLP(BgL_carzd21085zd2_571); 
if(BgL_test2021z00_574)
{ /* ./Expand/define.scm 213 */
BgL_namez00_572 = BgL_carzd21085zd2_571; 
BgL_kapzd21092zd2_573:
{ /* ./Expand/define.scm 213 */
obj_t BgL_arg2062z00_589;obj_t BgL_arg2063z00_590;obj_t BgL_arg2064z00_591;
BgL_arg2062z00_589 = 
CAR(BgL_xz00_23); 
BgL_arg2063z00_590 = 
CDR(BgL_carzd21080zd2_569); 
BgL_arg2064z00_591 = 
CDR(BgL_cdrzd21074zd2_567); 
{ /* ./Expand/define.scm 213 */
obj_t BgL_arg2080z00_1136;obj_t BgL_arg2081z00_1137;obj_t BgL_arg2082z00_1138;
BgL_arg2080z00_1136 = 
BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(BgL_arg2063z00_590); 
BgL_arg2081z00_1137 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg2082z00_1138 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_23); 
{ /* ./Expand/define.scm 213 */
obj_t BgL_zc3anonymousza32087ze3z83_1253;
{ 
int BgL_auxz00_2110;int BgL_auxz00_2108;
BgL_auxz00_2110 = 
(int)(((long)7)); 
BgL_auxz00_2108 = 
(int)(((long)0)); 
BgL_zc3anonymousza32087ze3z83_1253 = 
make_fx_procedure(BGl_zc3anonymousza32087ze3z83zzexpand_definez00, BgL_auxz00_2108, BgL_auxz00_2110); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2113;
BgL_auxz00_2113 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32087ze3z83_1253, BgL_auxz00_2113, BgL_arg2062z00_589); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2116;
BgL_auxz00_2116 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32087ze3z83_1253, BgL_auxz00_2116, BgL_ez00_24); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2119;
BgL_auxz00_2119 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32087ze3z83_1253, BgL_auxz00_2119, BgL_carzd21085zd2_571); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2122;
BgL_auxz00_2122 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32087ze3z83_1253, BgL_auxz00_2122, BgL_namez00_572); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2125;
BgL_auxz00_2125 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32087ze3z83_1253, BgL_auxz00_2125, BgL_arg2063z00_590); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2128;
BgL_auxz00_2128 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32087ze3z83_1253, BgL_auxz00_2128, BgL_arg2064z00_591); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2131;
BgL_auxz00_2131 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32087ze3z83_1253, BgL_auxz00_2131, BgL_xz00_23); } 
return 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_arg2080z00_1136, BgL_arg2081z00_1137, BgL_arg2082z00_1138, BgL_zc3anonymousza32087ze3z83_1253);} } } }  else 
{ /* ./Expand/define.scm 213 */
bool_t BgL_test2024z00_575;
BgL_test2024z00_575 = 
PAIRP(BgL_carzd21085zd2_571); 
if(BgL_test2024z00_575)
{ /* ./Expand/define.scm 213 */
obj_t BgL_cdrzd21102zd2_576;
BgL_cdrzd21102zd2_576 = 
CDR(BgL_carzd21085zd2_571); 
{ /* ./Expand/define.scm 213 */
bool_t BgL_test2025z00_577;
{ /* ./Expand/define.scm 213 */
obj_t BgL_auxz00_2140;obj_t BgL_auxz00_2138;
BgL_auxz00_2140 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2138 = 
CAR(BgL_carzd21085zd2_571); 
BgL_test2025z00_577 = 
(BgL_auxz00_2138==BgL_auxz00_2140); } 
if(BgL_test2025z00_577)
{ /* ./Expand/define.scm 213 */
bool_t BgL_test2026z00_578;
BgL_test2026z00_578 = 
PAIRP(BgL_cdrzd21102zd2_576); 
if(BgL_test2026z00_578)
{ /* ./Expand/define.scm 213 */
obj_t BgL_carzd21104zd2_579;obj_t BgL_cdrzd21105zd2_580;
BgL_carzd21104zd2_579 = 
CAR(BgL_cdrzd21102zd2_576); 
BgL_cdrzd21105zd2_580 = 
CDR(BgL_cdrzd21102zd2_576); 
{ /* ./Expand/define.scm 213 */
bool_t BgL_test2027z00_581;
BgL_test2027z00_581 = 
SYMBOLP(BgL_carzd21104zd2_579); 
if(BgL_test2027z00_581)
{ /* ./Expand/define.scm 213 */
bool_t BgL_test2028z00_582;
BgL_test2028z00_582 = 
PAIRP(BgL_cdrzd21105zd2_580); 
if(BgL_test2028z00_582)
{ /* ./Expand/define.scm 213 */
bool_t BgL_test2029z00_583;
{ /* ./Expand/define.scm 213 */
obj_t BgL_auxz00_2152;
BgL_auxz00_2152 = 
CAR(BgL_cdrzd21105zd2_580); 
BgL_test2029z00_583 = 
SYMBOLP(BgL_auxz00_2152); } 
if(BgL_test2029z00_583)
{ /* ./Expand/define.scm 213 */
bool_t BgL_test2030z00_584;
{ /* ./Expand/define.scm 213 */
obj_t BgL_auxz00_2156;
BgL_auxz00_2156 = 
CDR(BgL_cdrzd21105zd2_580); 
BgL_test2030z00_584 = 
NULLP(BgL_auxz00_2156); } 
if(BgL_test2030z00_584)
{ 
obj_t BgL_namez00_2160;
BgL_namez00_2160 = BgL_carzd21104zd2_579; 
BgL_namez00_572 = BgL_namez00_2160; 
goto BgL_kapzd21092zd2_573;}  else 
{ /* ./Expand/define.scm 213 */
BgL_tagzd21061zd2_564:
FAILURE(BFALSE,BGl_string2526z00zzexpand_definez00,BgL_xz00_23);} }  else 
{ /* ./Expand/define.scm 213 */
goto BgL_tagzd21061zd2_564;} }  else 
{ /* ./Expand/define.scm 213 */
goto BgL_tagzd21061zd2_564;} }  else 
{ /* ./Expand/define.scm 213 */
goto BgL_tagzd21061zd2_564;} } }  else 
{ /* ./Expand/define.scm 213 */
goto BgL_tagzd21061zd2_564;} }  else 
{ /* ./Expand/define.scm 213 */
goto BgL_tagzd21061zd2_564;} } }  else 
{ /* ./Expand/define.scm 213 */
goto BgL_tagzd21061zd2_564;} } } } }  else 
{ /* ./Expand/define.scm 213 */
goto BgL_tagzd21061zd2_564;} } }  else 
{ /* ./Expand/define.scm 213 */
goto BgL_tagzd21061zd2_564;} } }  else 
{ /* ./Expand/define.scm 213 */
goto BgL_tagzd21061zd2_564;} } } } 
}



/* _expand-generic */
obj_t BGl__expandzd2genericzd2zzexpand_definez00(obj_t BgL_envz00_1254, obj_t BgL_xz00_1255, obj_t BgL_ez00_1256)
{ AN_OBJECT;
{ /* ./Expand/define.scm 212 */
return 
BGl_expandzd2genericzd2zzexpand_definez00(BgL_xz00_1255, BgL_ez00_1256);} 
}



/* <anonymous:2087> */
obj_t BGl_zc3anonymousza32087ze3z83zzexpand_definez00(obj_t BgL_envz00_1257)
{ AN_OBJECT;
{ /* ./Expand/define.scm 221 */
{ /* ./Expand/define.scm 213 */
obj_t BgL_kwz00_1258;obj_t BgL_ez00_1259;obj_t BgL_idz00_1260;obj_t BgL_namez00_1261;obj_t BgL_argsz00_1262;obj_t BgL_bodyz00_1263;obj_t BgL_xz00_1264;
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2163;
BgL_auxz00_2163 = 
(int)(((long)0)); 
BgL_kwz00_1258 = 
PROCEDURE_REF(BgL_envz00_1257, BgL_auxz00_2163); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2166;
BgL_auxz00_2166 = 
(int)(((long)1)); 
BgL_ez00_1259 = 
PROCEDURE_REF(BgL_envz00_1257, BgL_auxz00_2166); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2169;
BgL_auxz00_2169 = 
(int)(((long)2)); 
BgL_idz00_1260 = 
PROCEDURE_REF(BgL_envz00_1257, BgL_auxz00_2169); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2172;
BgL_auxz00_2172 = 
(int)(((long)3)); 
BgL_namez00_1261 = 
PROCEDURE_REF(BgL_envz00_1257, BgL_auxz00_2172); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2175;
BgL_auxz00_2175 = 
(int)(((long)4)); 
BgL_argsz00_1262 = 
PROCEDURE_REF(BgL_envz00_1257, BgL_auxz00_2175); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2178;
BgL_auxz00_2178 = 
(int)(((long)5)); 
BgL_bodyz00_1263 = 
PROCEDURE_REF(BgL_envz00_1257, BgL_auxz00_2178); } 
{ /* ./Expand/define.scm 213 */
int BgL_auxz00_2181;
BgL_auxz00_2181 = 
(int)(((long)6)); 
BgL_xz00_1264 = 
PROCEDURE_REF(BgL_envz00_1257, BgL_auxz00_2181); } 
{ 

{ /* ./Expand/define.scm 213 */
obj_t BgL_arg2089z00_1140;
BgL_arg2089z00_1140 = 
BGl_dozd2inlinezf2genericzf2methodzd2zzexpand_definez00(BgL_kwz00_1258, BgL_ez00_1259, BgL_idz00_1260, BgL_namez00_1261, BgL_argsz00_1262, BgL_bodyz00_1263, BgL_xz00_1264); 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_1264, BgL_arg2089z00_1140);} } } } 
}



/* do-external-define-lambda */
obj_t BGl_dozd2externalzd2definezd2lambdazd2zzexpand_definez00(obj_t BgL_ez00_25, obj_t BgL_namez00_26, obj_t BgL_argsz00_27, obj_t BgL_bodyz00_28, obj_t BgL_srcz00_29)
{ AN_OBJECT;
{ /* ./Expand/define.scm 229 */
BGl_enterzd2functionzd2zztools_errorz00(BgL_namez00_26); 
{ /* ./Expand/define.scm 231 */
obj_t BgL_ozd2expzd2_600;
BgL_ozd2expzd2_600 = 
BGl_findzd2Ozd2expanderz00zzexpand_expanderz00(BgL_namez00_26); 
{ /* ./Expand/define.scm 232 */
obj_t BgL_gzd2expzd2_601;
BgL_gzd2expzd2_601 = 
BGl_findzd2Gzd2expanderz00zzexpand_expanderz00(BgL_namez00_26); 
{ /* ./Expand/define.scm 233 */
obj_t BgL_ez00_602;
BgL_ez00_602 = 
BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(BgL_ez00_25); 
{ /* ./Expand/define.scm 234 */

{ /* ./Expand/define.scm 237 */
bool_t BgL_test2094z00_603;
{ /* ./Expand/define.scm 237 */
bool_t BgL_test2108z00_609;
if(
STRUCTP(BgL_ozd2expzd2_600))
{ /* ./Expand/define.scm 237 */
obj_t BgL_auxz00_2194;obj_t BgL_auxz00_2192;
BgL_auxz00_2194 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2192 = 
STRUCT_KEY(BgL_ozd2expzd2_600); 
BgL_test2108z00_609 = 
(BgL_auxz00_2192==BgL_auxz00_2194); }  else 
{ /* ./Expand/define.scm 237 */
BgL_test2108z00_609 = ((bool_t)0); } 
if(BgL_test2108z00_609)
{ /* ./Expand/define.scm 237 */
if(
CBOOL(BGl_za2libzd2modeza2zd2zzengine_paramz00))
{ /* ./Expand/define.scm 237 */
BgL_test2094z00_603 = ((bool_t)0); }  else 
{ /* ./Expand/define.scm 237 */
BgL_test2094z00_603 = ((bool_t)1); } }  else 
{ /* ./Expand/define.scm 237 */
BgL_test2094z00_603 = ((bool_t)0); } } 
if(BgL_test2094z00_603)
{ /* ./Expand/define.scm 237 */
{ /* ./Expand/define.scm 239 */
obj_t BgL_list2096z00_604;
{ /* ./Expand/define.scm 239 */
obj_t BgL_arg2099z00_606;
{ /* ./Expand/define.scm 239 */
obj_t BgL_arg2103z00_608;
BgL_arg2103z00_608 = 
MAKE_PAIR(BgL_namez00_26, BNIL); 
BgL_arg2099z00_606 = 
MAKE_PAIR(BGl_string2527z00zzexpand_definez00, BgL_arg2103z00_608); } 
BgL_list2096z00_604 = 
MAKE_PAIR(BGl_string2528z00zzexpand_definez00, BgL_arg2099z00_606); } 
BGl_warningz00zz__errorz00(BgL_list2096z00_604); } 
BGl_unbindzd2Ozd2expanderz12z12zzexpand_expanderz00(BgL_namez00_26); }  else 
{ /* ./Expand/define.scm 237 */BFALSE; } } 
{ /* ./Expand/define.scm 243 */
bool_t BgL_test2110z00_610;
{ /* ./Expand/define.scm 243 */
bool_t BgL_test2125z00_616;
if(
STRUCTP(BgL_gzd2expzd2_601))
{ /* ./Expand/define.scm 243 */
obj_t BgL_auxz00_2210;obj_t BgL_auxz00_2208;
BgL_auxz00_2210 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2208 = 
STRUCT_KEY(BgL_gzd2expzd2_601); 
BgL_test2125z00_616 = 
(BgL_auxz00_2208==BgL_auxz00_2210); }  else 
{ /* ./Expand/define.scm 243 */
BgL_test2125z00_616 = ((bool_t)0); } 
if(BgL_test2125z00_616)
{ /* ./Expand/define.scm 243 */
if(
CBOOL(BGl_za2libzd2modeza2zd2zzengine_paramz00))
{ /* ./Expand/define.scm 243 */
BgL_test2110z00_610 = ((bool_t)0); }  else 
{ /* ./Expand/define.scm 243 */
BgL_test2110z00_610 = ((bool_t)1); } }  else 
{ /* ./Expand/define.scm 243 */
BgL_test2110z00_610 = ((bool_t)0); } } 
if(BgL_test2110z00_610)
{ /* ./Expand/define.scm 243 */
{ /* ./Expand/define.scm 245 */
obj_t BgL_list2112z00_611;
{ /* ./Expand/define.scm 245 */
obj_t BgL_arg2116z00_613;
{ /* ./Expand/define.scm 245 */
obj_t BgL_arg2120z00_615;
BgL_arg2120z00_615 = 
MAKE_PAIR(BgL_namez00_26, BNIL); 
BgL_arg2116z00_613 = 
MAKE_PAIR(BGl_string2529z00zzexpand_definez00, BgL_arg2120z00_615); } 
BgL_list2112z00_611 = 
MAKE_PAIR(BGl_string2528z00zzexpand_definez00, BgL_arg2116z00_613); } 
BGl_warningz00zz__errorz00(BgL_list2112z00_611); } 
BGl_unbindzd2Gzd2expanderz12z12zzexpand_expanderz00(BgL_namez00_26); }  else 
{ /* ./Expand/define.scm 243 */BFALSE; } } 
{ /* ./Expand/define.scm 249 */
obj_t BgL_locz00_617;
{ /* ./Expand/define.scm 249 */
obj_t BgL_arg2157z00_631;obj_t BgL_arg2158z00_632;
{ /* ./Expand/define.scm 249 */
obj_t BgL_auxz00_2222;
BgL_auxz00_2222 = 
CDR(BgL_srcz00_29); 
BgL_arg2157z00_631 = 
CDR(BgL_auxz00_2222); } 
BgL_arg2158z00_632 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_srcz00_29); 
BgL_locz00_617 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg2157z00_631, BgL_arg2158z00_632); } 
{ /* ./Expand/define.scm 249 */
obj_t BgL_ebodyz00_618;
{ /* ./Expand/define.scm 251 */
obj_t BgL_arg2144z00_624;obj_t BgL_arg2145z00_625;obj_t BgL_arg2146z00_626;
BgL_arg2144z00_624 = 
BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(BgL_argsz00_27); 
BgL_arg2145z00_625 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg2146z00_626 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_srcz00_29); 
{ /* ./Expand/define.scm 254 */
obj_t BgL_zc3anonymousza32151ze3z83_1265;
{ 
int BgL_auxz00_2232;int BgL_auxz00_2230;
BgL_auxz00_2232 = 
(int)(((long)3)); 
BgL_auxz00_2230 = 
(int)(((long)0)); 
BgL_zc3anonymousza32151ze3z83_1265 = 
make_fx_procedure(BGl_zc3anonymousza32151ze3z83zzexpand_definez00, BgL_auxz00_2230, BgL_auxz00_2232); } 
{ /* ./Expand/define.scm 254 */
int BgL_auxz00_2235;
BgL_auxz00_2235 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32151ze3z83_1265, BgL_auxz00_2235, BgL_bodyz00_28); } 
{ /* ./Expand/define.scm 254 */
int BgL_auxz00_2238;
BgL_auxz00_2238 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32151ze3z83_1265, BgL_auxz00_2238, BgL_locz00_617); } 
{ /* ./Expand/define.scm 254 */
int BgL_auxz00_2241;
BgL_auxz00_2241 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32151ze3z83_1265, BgL_auxz00_2241, BgL_ez00_602); } 
BgL_ebodyz00_618 = 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_arg2144z00_624, BgL_arg2145z00_625, BgL_arg2146z00_626, BgL_zc3anonymousza32151ze3z83_1265); } } 
{ /* ./Expand/define.scm 250 */

BGl_leavezd2functionzd2zztools_errorz00(); 
{ /* ./Expand/define.scm 256 */
obj_t BgL_arg2129z00_619;obj_t BgL_arg2132z00_620;
BgL_arg2129z00_619 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/define.scm 256 */
obj_t BgL_arg2135z00_621;obj_t BgL_arg2136z00_622;
{ /* ./Expand/define.scm 256 */
obj_t BgL_arg2139z00_623;
BgL_arg2139z00_623 = 
BGl_expandzd2argszd2zzexpand_lambdaz00(BgL_argsz00_27, BgL_ez00_602); 
BgL_arg2135z00_621 = 
MAKE_PAIR(BgL_namez00_26, BgL_arg2139z00_623); } 
BgL_arg2136z00_622 = 
MAKE_PAIR(BgL_ebodyz00_618, BNIL); 
BgL_arg2132z00_620 = 
MAKE_PAIR(BgL_arg2135z00_621, BgL_arg2136z00_622); } 
return 
MAKE_PAIR(BgL_arg2129z00_619, BgL_arg2132z00_620);} } } } } } } } } 
}



/* <anonymous:2151> */
obj_t BGl_zc3anonymousza32151ze3z83zzexpand_definez00(obj_t BgL_envz00_1266)
{ AN_OBJECT;
{ /* ./Expand/define.scm 254 */
{ /* ./Expand/define.scm 254 */
obj_t BgL_bodyz00_1267;obj_t BgL_locz00_1268;obj_t BgL_ez00_1269;
{ /* ./Expand/define.scm 254 */
int BgL_auxz00_2252;
BgL_auxz00_2252 = 
(int)(((long)0)); 
BgL_bodyz00_1267 = 
PROCEDURE_REF(BgL_envz00_1266, BgL_auxz00_2252); } 
{ /* ./Expand/define.scm 254 */
int BgL_auxz00_2255;
BgL_auxz00_2255 = 
(int)(((long)1)); 
BgL_locz00_1268 = 
PROCEDURE_REF(BgL_envz00_1266, BgL_auxz00_2255); } 
{ /* ./Expand/define.scm 254 */
int BgL_auxz00_2258;
BgL_auxz00_2258 = 
(int)(((long)2)); 
BgL_ez00_1269 = 
PROCEDURE_REF(BgL_envz00_1266, BgL_auxz00_2258); } 
{ 

{ /* ./Expand/define.scm 254 */
obj_t BgL_arg2153z00_629;
BgL_arg2153z00_629 = 
BGl_normaliza7ezd2prognzf2locz87zztools_prognz00(BgL_bodyz00_1267, BgL_locz00_1268); 
return 
PROCEDURE_ENTRY(BgL_ez00_1269)(BgL_ez00_1269, BgL_arg2153z00_629, BgL_ez00_1269, BEOA);} } } } 
}



/* do-external-define-value */
obj_t BGl_dozd2externalzd2definezd2valuezd2zzexpand_definez00(obj_t BgL_ez00_30, obj_t BgL_namez00_31, obj_t BgL_valuez00_32, obj_t BgL_srcz00_33)
{ AN_OBJECT;
{ /* ./Expand/define.scm 261 */
{ /* ./Expand/define.scm 262 */
obj_t BgL_ozd2expzd2_634;
BgL_ozd2expzd2_634 = 
BGl_findzd2Ozd2expanderz00zzexpand_expanderz00(BgL_namez00_31); 
{ /* ./Expand/define.scm 263 */
obj_t BgL_gzd2expzd2_635;
BgL_gzd2expzd2_635 = 
BGl_findzd2Gzd2expanderz00zzexpand_expanderz00(BgL_namez00_31); 
{ /* ./Expand/define.scm 264 */
obj_t BgL_ez00_636;
BgL_ez00_636 = 
BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(BgL_ez00_30); 
{ /* ./Expand/define.scm 265 */

{ /* ./Expand/define.scm 268 */
bool_t BgL_test2165z00_637;
{ /* ./Expand/define.scm 268 */
bool_t BgL_test2178z00_643;
if(
STRUCTP(BgL_ozd2expzd2_634))
{ /* ./Expand/define.scm 268 */
obj_t BgL_auxz00_2271;obj_t BgL_auxz00_2269;
BgL_auxz00_2271 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2269 = 
STRUCT_KEY(BgL_ozd2expzd2_634); 
BgL_test2178z00_643 = 
(BgL_auxz00_2269==BgL_auxz00_2271); }  else 
{ /* ./Expand/define.scm 268 */
BgL_test2178z00_643 = ((bool_t)0); } 
if(BgL_test2178z00_643)
{ /* ./Expand/define.scm 268 */
if(
CBOOL(BGl_za2libzd2modeza2zd2zzengine_paramz00))
{ /* ./Expand/define.scm 268 */
BgL_test2165z00_637 = ((bool_t)0); }  else 
{ /* ./Expand/define.scm 268 */
BgL_test2165z00_637 = ((bool_t)1); } }  else 
{ /* ./Expand/define.scm 268 */
BgL_test2165z00_637 = ((bool_t)0); } } 
if(BgL_test2165z00_637)
{ /* ./Expand/define.scm 268 */
{ /* ./Expand/define.scm 270 */
obj_t BgL_list2167z00_638;
{ /* ./Expand/define.scm 270 */
obj_t BgL_arg2170z00_640;
{ /* ./Expand/define.scm 270 */
obj_t BgL_arg2174z00_642;
BgL_arg2174z00_642 = 
MAKE_PAIR(BgL_namez00_31, BNIL); 
BgL_arg2170z00_640 = 
MAKE_PAIR(BGl_string2527z00zzexpand_definez00, BgL_arg2174z00_642); } 
BgL_list2167z00_638 = 
MAKE_PAIR(BGl_string2522z00zzexpand_definez00, BgL_arg2170z00_640); } 
BGl_warningz00zz__errorz00(BgL_list2167z00_638); } 
BGl_unbindzd2Ozd2expanderz12z12zzexpand_expanderz00(BgL_namez00_31); }  else 
{ /* ./Expand/define.scm 268 */BFALSE; } } 
{ /* ./Expand/define.scm 274 */
bool_t BgL_test2180z00_644;
{ /* ./Expand/define.scm 274 */
bool_t BgL_test2193z00_650;
if(
STRUCTP(BgL_gzd2expzd2_635))
{ /* ./Expand/define.scm 274 */
obj_t BgL_auxz00_2287;obj_t BgL_auxz00_2285;
BgL_auxz00_2287 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2285 = 
STRUCT_KEY(BgL_gzd2expzd2_635); 
BgL_test2193z00_650 = 
(BgL_auxz00_2285==BgL_auxz00_2287); }  else 
{ /* ./Expand/define.scm 274 */
BgL_test2193z00_650 = ((bool_t)0); } 
if(BgL_test2193z00_650)
{ /* ./Expand/define.scm 274 */
if(
CBOOL(BGl_za2libzd2modeza2zd2zzengine_paramz00))
{ /* ./Expand/define.scm 274 */
BgL_test2180z00_644 = ((bool_t)0); }  else 
{ /* ./Expand/define.scm 274 */
BgL_test2180z00_644 = ((bool_t)1); } }  else 
{ /* ./Expand/define.scm 274 */
BgL_test2180z00_644 = ((bool_t)0); } } 
if(BgL_test2180z00_644)
{ /* ./Expand/define.scm 274 */
{ /* ./Expand/define.scm 276 */
obj_t BgL_list2182z00_645;
{ /* ./Expand/define.scm 276 */
obj_t BgL_arg2185z00_647;
{ /* ./Expand/define.scm 276 */
obj_t BgL_arg2189z00_649;
BgL_arg2189z00_649 = 
MAKE_PAIR(BgL_namez00_31, BNIL); 
BgL_arg2185z00_647 = 
MAKE_PAIR(BGl_string2529z00zzexpand_definez00, BgL_arg2189z00_649); } 
BgL_list2182z00_645 = 
MAKE_PAIR(BGl_string2522z00zzexpand_definez00, BgL_arg2185z00_647); } 
BGl_warningz00zz__errorz00(BgL_list2182z00_645); } 
BGl_unbindzd2Gzd2expanderz12z12zzexpand_expanderz00(BgL_namez00_31); }  else 
{ /* ./Expand/define.scm 274 */BFALSE; } } 
{ /* ./Expand/define.scm 280 */
obj_t BgL_locz00_651;
{ /* ./Expand/define.scm 280 */
obj_t BgL_arg2209z00_657;obj_t BgL_arg2210z00_658;
{ /* ./Expand/define.scm 280 */
obj_t BgL_auxz00_2299;
BgL_auxz00_2299 = 
CDR(BgL_srcz00_33); 
BgL_arg2209z00_657 = 
CDR(BgL_auxz00_2299); } 
BgL_arg2210z00_658 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_srcz00_33); 
BgL_locz00_651 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg2209z00_657, BgL_arg2210z00_658); } 
{ /* ./Expand/define.scm 280 */
obj_t BgL_evaluez00_652;
{ /* ./Expand/define.scm 281 */
obj_t BgL_arg2204z00_656;
BgL_arg2204z00_656 = 
BGl_normaliza7ezd2prognzf2locz87zztools_prognz00(BgL_valuez00_32, BgL_locz00_651); 
BgL_evaluez00_652 = 
PROCEDURE_ENTRY(BgL_ez00_636)(BgL_ez00_636, BgL_arg2204z00_656, BgL_ez00_636, BEOA); } 
{ /* ./Expand/define.scm 281 */

{ /* ./Expand/define.scm 282 */
obj_t BgL_arg2196z00_653;obj_t BgL_arg2197z00_654;
BgL_arg2196z00_653 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/define.scm 282 */
obj_t BgL_arg2200z00_655;
BgL_arg2200z00_655 = 
MAKE_PAIR(BgL_evaluez00_652, BNIL); 
BgL_arg2197z00_654 = 
MAKE_PAIR(BgL_namez00_31, BgL_arg2200z00_655); } 
return 
MAKE_PAIR(BgL_arg2196z00_653, BgL_arg2197z00_654);} } } } } } } } } 
}



/* do-inline/generic/method */
obj_t BGl_dozd2inlinezf2genericzf2methodzd2zzexpand_definez00(obj_t BgL_definezd2keywordzd2_34, obj_t BgL_ez00_35, obj_t BgL_idz00_36, obj_t BgL_namez00_37, obj_t BgL_argsz00_38, obj_t BgL_bodyz00_39, obj_t BgL_srcz00_40)
{ AN_OBJECT;
{ /* ./Expand/define.scm 287 */
BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BTRUE; 
BGl_enterzd2functionzd2zztools_errorz00(BgL_namez00_37); 
{ /* ./Expand/define.scm 290 */
obj_t BgL_ozd2expzd2_659;
BgL_ozd2expzd2_659 = 
BGl_findzd2Ozd2expanderz00zzexpand_expanderz00(BgL_namez00_37); 
{ /* ./Expand/define.scm 290 */
obj_t BgL_gzd2expzd2_660;
BgL_gzd2expzd2_660 = 
BGl_findzd2Gzd2expanderz00zzexpand_expanderz00(BgL_namez00_37); 
{ /* ./Expand/define.scm 291 */
obj_t BgL_ez00_661;
BgL_ez00_661 = 
BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(BgL_ez00_35); 
{ /* ./Expand/define.scm 292 */
obj_t BgL_locz00_662;
{ /* ./Expand/define.scm 293 */
obj_t BgL_arg2290z00_695;obj_t BgL_arg2291z00_696;
{ /* ./Expand/define.scm 293 */
obj_t BgL_auxz00_2315;
BgL_auxz00_2315 = 
CDR(BgL_srcz00_40); 
BgL_arg2290z00_695 = 
CDR(BgL_auxz00_2315); } 
BgL_arg2291z00_696 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_srcz00_40); 
BgL_locz00_662 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg2290z00_695, BgL_arg2291z00_696); } 
{ /* ./Expand/define.scm 293 */
obj_t BgL_ebodyz00_663;
{ /* ./Expand/define.scm 294 */
bool_t BgL_test2274z00_687;
BgL_test2274z00_687 = 
PAIRP(BgL_bodyz00_39); 
if(BgL_test2274z00_687)
{ /* ./Expand/define.scm 296 */
obj_t BgL_arg2276z00_688;obj_t BgL_arg2277z00_689;obj_t BgL_arg2278z00_690;
BgL_arg2276z00_688 = 
BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(BgL_argsz00_38); 
BgL_arg2277z00_689 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg2278z00_690 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_srcz00_40); 
{ /* ./Expand/define.scm 300 */
obj_t BgL_zc3anonymousza32283ze3z83_1270;
{ 
int BgL_auxz00_2327;int BgL_auxz00_2325;
BgL_auxz00_2327 = 
(int)(((long)3)); 
BgL_auxz00_2325 = 
(int)(((long)0)); 
BgL_zc3anonymousza32283ze3z83_1270 = 
make_fx_procedure(BGl_zc3anonymousza32283ze3z83zzexpand_definez00, BgL_auxz00_2325, BgL_auxz00_2327); } 
{ /* ./Expand/define.scm 300 */
int BgL_auxz00_2330;
BgL_auxz00_2330 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32283ze3z83_1270, BgL_auxz00_2330, BgL_bodyz00_39); } 
{ /* ./Expand/define.scm 300 */
int BgL_auxz00_2333;
BgL_auxz00_2333 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32283ze3z83_1270, BgL_auxz00_2333, BgL_locz00_662); } 
{ /* ./Expand/define.scm 300 */
int BgL_auxz00_2336;
BgL_auxz00_2336 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32283ze3z83_1270, BgL_auxz00_2336, BgL_ez00_661); } 
BgL_ebodyz00_663 = 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_arg2276z00_688, BgL_arg2277z00_689, BgL_arg2278z00_690, BgL_zc3anonymousza32283ze3z83_1270); } }  else 
{ /* ./Expand/define.scm 294 */
BgL_ebodyz00_663 = BNIL; } } 
{ /* ./Expand/define.scm 294 */

BGl_leavezd2functionzd2zztools_errorz00(); 
{ /* ./Expand/define.scm 305 */
bool_t BgL_test2219z00_664;
{ /* ./Expand/define.scm 305 */
bool_t BgL_test2232z00_670;
if(
STRUCTP(BgL_ozd2expzd2_659))
{ /* ./Expand/define.scm 305 */
obj_t BgL_auxz00_2345;obj_t BgL_auxz00_2343;
BgL_auxz00_2345 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2343 = 
STRUCT_KEY(BgL_ozd2expzd2_659); 
BgL_test2232z00_670 = 
(BgL_auxz00_2343==BgL_auxz00_2345); }  else 
{ /* ./Expand/define.scm 305 */
BgL_test2232z00_670 = ((bool_t)0); } 
if(BgL_test2232z00_670)
{ /* ./Expand/define.scm 305 */
if(
CBOOL(BGl_za2libzd2modeza2zd2zzengine_paramz00))
{ /* ./Expand/define.scm 305 */
BgL_test2219z00_664 = ((bool_t)0); }  else 
{ /* ./Expand/define.scm 305 */
BgL_test2219z00_664 = ((bool_t)1); } }  else 
{ /* ./Expand/define.scm 305 */
BgL_test2219z00_664 = ((bool_t)0); } } 
if(BgL_test2219z00_664)
{ /* ./Expand/define.scm 305 */
{ /* ./Expand/define.scm 307 */
obj_t BgL_list2221z00_665;
{ /* ./Expand/define.scm 307 */
obj_t BgL_arg2224z00_667;
{ /* ./Expand/define.scm 307 */
obj_t BgL_arg2228z00_669;
BgL_arg2228z00_669 = 
MAKE_PAIR(BgL_namez00_37, BNIL); 
BgL_arg2224z00_667 = 
MAKE_PAIR(BGl_string2527z00zzexpand_definez00, BgL_arg2228z00_669); } 
BgL_list2221z00_665 = 
MAKE_PAIR(BGl_string2522z00zzexpand_definez00, BgL_arg2224z00_667); } 
BGl_warningz00zz__errorz00(BgL_list2221z00_665); } 
BGl_unbindzd2Ozd2expanderz12z12zzexpand_expanderz00(BgL_namez00_37); }  else 
{ /* ./Expand/define.scm 305 */BFALSE; } } 
{ /* ./Expand/define.scm 311 */
bool_t BgL_test2234z00_671;
{ /* ./Expand/define.scm 311 */
bool_t BgL_test2247z00_677;
if(
STRUCTP(BgL_gzd2expzd2_660))
{ /* ./Expand/define.scm 311 */
obj_t BgL_auxz00_2361;obj_t BgL_auxz00_2359;
BgL_auxz00_2361 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2359 = 
STRUCT_KEY(BgL_gzd2expzd2_660); 
BgL_test2247z00_677 = 
(BgL_auxz00_2359==BgL_auxz00_2361); }  else 
{ /* ./Expand/define.scm 311 */
BgL_test2247z00_677 = ((bool_t)0); } 
if(BgL_test2247z00_677)
{ /* ./Expand/define.scm 311 */
if(
CBOOL(BGl_za2libzd2modeza2zd2zzengine_paramz00))
{ /* ./Expand/define.scm 311 */
BgL_test2234z00_671 = ((bool_t)0); }  else 
{ /* ./Expand/define.scm 311 */
BgL_test2234z00_671 = ((bool_t)1); } }  else 
{ /* ./Expand/define.scm 311 */
BgL_test2234z00_671 = ((bool_t)0); } } 
if(BgL_test2234z00_671)
{ /* ./Expand/define.scm 311 */
{ /* ./Expand/define.scm 313 */
obj_t BgL_list2236z00_672;
{ /* ./Expand/define.scm 313 */
obj_t BgL_arg2239z00_674;
{ /* ./Expand/define.scm 313 */
obj_t BgL_arg2243z00_676;
BgL_arg2243z00_676 = 
MAKE_PAIR(BgL_namez00_37, BNIL); 
BgL_arg2239z00_674 = 
MAKE_PAIR(BGl_string2529z00zzexpand_definez00, BgL_arg2243z00_676); } 
BgL_list2236z00_672 = 
MAKE_PAIR(BGl_string2522z00zzexpand_definez00, BgL_arg2239z00_674); } 
BGl_warningz00zz__errorz00(BgL_list2236z00_672); } 
BGl_unbindzd2Gzd2expanderz12z12zzexpand_expanderz00(BgL_namez00_37); }  else 
{ /* ./Expand/define.scm 311 */BFALSE; } } 
BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BFALSE; 
{ /* ./Expand/define.scm 318 */
bool_t BgL_test2249z00_678;
BgL_test2249z00_678 = 
NULLP(BgL_ebodyz00_663); 
if(BgL_test2249z00_678)
{ /* ./Expand/define.scm 319 */
obj_t BgL_arg2251z00_679;
{ /* ./Expand/define.scm 319 */
obj_t BgL_arg2254z00_680;
{ /* ./Expand/define.scm 319 */
obj_t BgL_arg2258z00_682;
BgL_arg2258z00_682 = 
BGl_expandzd2argszd2zzexpand_lambdaz00(BgL_argsz00_38, BgL_ez00_661); 
BgL_arg2254z00_680 = 
MAKE_PAIR(BgL_idz00_36, BgL_arg2258z00_682); } 
BgL_arg2251z00_679 = 
MAKE_PAIR(BgL_arg2254z00_680, BNIL); } 
return 
MAKE_PAIR(BgL_definezd2keywordzd2_34, BgL_arg2251z00_679);}  else 
{ /* ./Expand/define.scm 320 */
obj_t BgL_arg2262z00_683;
{ /* ./Expand/define.scm 320 */
obj_t BgL_arg2265z00_684;obj_t BgL_arg2266z00_685;
{ /* ./Expand/define.scm 320 */
obj_t BgL_arg2269z00_686;
BgL_arg2269z00_686 = 
BGl_expandzd2argszd2zzexpand_lambdaz00(BgL_argsz00_38, BgL_ez00_661); 
BgL_arg2265z00_684 = 
MAKE_PAIR(BgL_idz00_36, BgL_arg2269z00_686); } 
BgL_arg2266z00_685 = 
MAKE_PAIR(BgL_ebodyz00_663, BNIL); 
BgL_arg2262z00_683 = 
MAKE_PAIR(BgL_arg2265z00_684, BgL_arg2266z00_685); } 
return 
MAKE_PAIR(BgL_definezd2keywordzd2_34, BgL_arg2262z00_683);} } } } } } } } } 
}



/* <anonymous:2283> */
obj_t BGl_zc3anonymousza32283ze3z83zzexpand_definez00(obj_t BgL_envz00_1271)
{ AN_OBJECT;
{ /* ./Expand/define.scm 299 */
{ /* ./Expand/define.scm 300 */
obj_t BgL_bodyz00_1272;obj_t BgL_locz00_1273;obj_t BgL_ez00_1274;
{ /* ./Expand/define.scm 300 */
int BgL_auxz00_2384;
BgL_auxz00_2384 = 
(int)(((long)0)); 
BgL_bodyz00_1272 = 
PROCEDURE_REF(BgL_envz00_1271, BgL_auxz00_2384); } 
{ /* ./Expand/define.scm 300 */
int BgL_auxz00_2387;
BgL_auxz00_2387 = 
(int)(((long)1)); 
BgL_locz00_1273 = 
PROCEDURE_REF(BgL_envz00_1271, BgL_auxz00_2387); } 
{ /* ./Expand/define.scm 300 */
int BgL_auxz00_2390;
BgL_auxz00_2390 = 
(int)(((long)2)); 
BgL_ez00_1274 = 
PROCEDURE_REF(BgL_envz00_1271, BgL_auxz00_2390); } 
{ 

{ /* ./Expand/define.scm 300 */
obj_t BgL_arg2285z00_693;
BgL_arg2285z00_693 = 
BGl_normaliza7ezd2prognzf2locz87zztools_prognz00(BgL_bodyz00_1272, BgL_locz00_1273); 
return 
PROCEDURE_ENTRY(BgL_ez00_1274)(BgL_ez00_1274, BgL_arg2285z00_693, BgL_ez00_1274, BEOA);} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzexpand_definez00()
{ AN_OBJECT;
{ /* ./Expand/define.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzexpand_definez00()
{ AN_OBJECT;
{ /* ./Expand/define.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "expand_define"); 
BGl_modulezd2initializa7ationz75zztools_prognz00(((long)55569), "expand_define"); 
BGl_modulezd2initializa7ationz75zztools_argsz00(((long)42726), "expand_define"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "expand_define"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "expand_define"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "expand_define"); 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "expand_define"); 
BGl_modulezd2initializa7ationz75zzexpand_expanderz00(((long)52206), "expand_define"); 
BGl_modulezd2initializa7ationz75zzexpand_epsz00(((long)17978), "expand_define"); 
BGl_modulezd2initializa7ationz75zzexpand_lambdaz00(((long)7027), "expand_define"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "expand_define"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "expand_define"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "expand_define"); 
return 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "expand_define");} 
}

