/*===========================================================================*/
/*   (Expand/struct.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/struct.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzexpand_structz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_IMPORT long bgl_list_length(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl__expandzd2struct1927zd2zzexpand_structz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2unsafezd2structza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_epairifyz00zztools_miscz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
static obj_t BGl_cnstzd2initzd2zzexpand_structz00();
static obj_t BGl_importedzd2moduleszd2initz00zzexpand_structz00();
static obj_t BGl_requirezd2initializa7ationz75zzexpand_structz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_expandzd2structzd2zzexpand_structz00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzexpand_structz00();
BGL_IMPORT obj_t BGl_matchzd2definezd2structurez12z12zz__match_normaliza7eza7(obj_t);
static obj_t __cnst[ 31 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_expandzd2structzd2envz00zzexpand_structz00, BgL_bgl__expandza7d2struct1927za7d2za7za7expand_structza7001980za7, BGl__expandzd2struct1927zd2zzexpand_structz00, 0L, 2 );
DEFINE_STRING( BGl_string1954z00zzexpand_structz00, BgL_bgl_string1954za700za7za7expand_structza7001981z00, "((unspecified)) u-struct-set! struct-set! v u-struct-ref struct-ref s struct-key eq? struct? o ? -set! - c-create-struct new let car make-struct quote error cdr null? not pair? if init make- define-inline begin (quote ()) ", 222 );
DEFINE_STRING( BGl_string1953z00zzexpand_structz00, BgL_bgl_string1953za700za7za7expand_structza7001982z00, "struct-set!:not an instance of", 30 );
DEFINE_STRING( BGl_string1952z00zzexpand_structz00, BgL_bgl_string1952za700za7za7expand_structza7001983z00, "struct-ref:not an instance of", 29 );
DEFINE_STRING( BGl_string1951z00zzexpand_structz00, BgL_bgl_string1951za700za7za7expand_structza7001984z00, "Too many argument provided", 26 );
DEFINE_STRING( BGl_string1950z00zzexpand_structz00, BgL_bgl_string1950za700za7za7expand_structza7001985z00, "Illegal `define-struct' form", 28 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzexpand_structz00(long BgL_checksumz00_474, char * BgL_fromz00_475)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzexpand_structz00))
{ 
BGl_requirezd2initializa7ationz75zzexpand_structz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzexpand_structz00(); 
BGl_cnstzd2initzd2zzexpand_structz00(); 
BGl_importedzd2moduleszd2initz00zzexpand_structz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzexpand_structz00()
{ AN_OBJECT;
{ /* ./Expand/struct.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "expand_struct"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "expand_struct"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "expand_struct"); 
BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(((long)0), "expand_struct"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzexpand_structz00()
{ AN_OBJECT;
{ /* ./Expand/struct.scm 15 */
{ /* ./Expand/struct.scm 15 */
obj_t BgL_cportz00_467;
BgL_cportz00_467 = 
open_input_string(BGl_string1954z00zzexpand_structz00); 
{ 
long BgL_iz00_468;
BgL_iz00_468 = ((long)30); 
BgL_loopz00_469:
{ /* ./Expand/struct.scm 15 */
bool_t BgL_test1956z00_470;
BgL_test1956z00_470 = 
(BgL_iz00_468==((long)-1)); 
if(BgL_test1956z00_470)
{ /* ./Expand/struct.scm 15 */
return BUNSPEC;}  else 
{ /* ./Expand/struct.scm 15 */
{ /* ./Expand/struct.scm 15 */
obj_t BgL_arg1958z00_471;
{ /* ./Expand/struct.scm 15 */
obj_t BgL_list1961z00_472;
BgL_list1961z00_472 = 
MAKE_PAIR(BgL_cportz00_467, BNIL); 
BgL_arg1958z00_471 = 
BGl_readz00zz__readerz00(BgL_list1961z00_472); } 
{ /* ./Expand/struct.scm 15 */
int BgL_auxz00_491;
BgL_auxz00_491 = 
(int)(BgL_iz00_468); 
CNST_TABLE_SET(BgL_auxz00_491, BgL_arg1958z00_471); } } 
{ /* ./Expand/struct.scm 15 */
int BgL_auxz00_473;
{ /* ./Expand/struct.scm 15 */
long BgL_auxz00_494;
BgL_auxz00_494 = 
(BgL_iz00_468-((long)1)); 
BgL_auxz00_473 = 
(int)(BgL_auxz00_494); } 
{ 
long BgL_iz00_497;
BgL_iz00_497 = 
(long)(BgL_auxz00_473); 
BgL_iz00_468 = BgL_iz00_497; 
goto BgL_loopz00_469;} } } } } } } 
}



/* expand-struct */
BGL_EXPORTED_DEF obj_t BGl_expandzd2structzd2zzexpand_structz00(obj_t BgL_xz00_1, obj_t BgL_ez00_2)
{ AN_OBJECT;
{ /* ./Expand/struct.scm 23 */
{ 
obj_t BgL_namez00_3;obj_t BgL_slotsz00_4;
{ /* ./Expand/struct.scm 24 */
bool_t BgL_test1013z00_8;
BgL_test1013z00_8 = 
PAIRP(BgL_xz00_1); 
if(BgL_test1013z00_8)
{ /* ./Expand/struct.scm 24 */
obj_t BgL_cdrzd2109zd2_9;
BgL_cdrzd2109zd2_9 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/struct.scm 24 */
bool_t BgL_test1014z00_10;
BgL_test1014z00_10 = 
PAIRP(BgL_cdrzd2109zd2_9); 
if(BgL_test1014z00_10)
{ /* ./Expand/struct.scm 24 */
obj_t BgL_arg1016z00_11;obj_t BgL_arg1017z00_12;
BgL_arg1016z00_11 = 
CAR(BgL_cdrzd2109zd2_9); 
BgL_arg1017z00_12 = 
CDR(BgL_cdrzd2109zd2_9); 
BgL_namez00_3 = BgL_arg1016z00_11; 
BgL_slotsz00_4 = BgL_arg1017z00_12; 
BGl_matchzd2definezd2structurez12z12zz__match_normaliza7eza7(BgL_xz00_1); 
{ /* ./Expand/struct.scm 27 */
long BgL_lenz00_13;
BgL_lenz00_13 = 
bgl_list_length(BgL_slotsz00_4); 
{ /* ./Expand/struct.scm 27 */
obj_t BgL_slotszd2namezd2_14;
{ /* ./Expand/struct.scm 28 */
bool_t BgL_test1875z00_367;
BgL_test1875z00_367 = 
NULLP(BgL_slotsz00_4); 
if(BgL_test1875z00_367)
{ /* ./Expand/struct.scm 28 */
BgL_slotszd2namezd2_14 = BNIL; }  else 
{ /* ./Expand/struct.scm 28 */
obj_t BgL_head1005z00_368;
BgL_head1005z00_368 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1003z00_369;obj_t BgL_tail1006z00_370;
BgL_l1003z00_369 = BgL_slotsz00_4; 
BgL_tail1006z00_370 = BgL_head1005z00_368; 
BgL_map1004z00_371:
{ /* ./Expand/struct.scm 28 */
bool_t BgL_test1877z00_372;
BgL_test1877z00_372 = 
NULLP(BgL_l1003z00_369); 
if(BgL_test1877z00_372)
{ /* ./Expand/struct.scm 28 */
BgL_slotszd2namezd2_14 = 
CDR(BgL_head1005z00_368); }  else 
{ /* ./Expand/struct.scm 29 */
obj_t BgL_newtail1007z00_373;
{ /* ./Expand/struct.scm 29 */
obj_t BgL_arg1885z00_375;
{ /* ./Expand/struct.scm 29 */
obj_t BgL_sz00_377;
BgL_sz00_377 = 
CAR(BgL_l1003z00_369); 
{ 

{ /* ./Expand/struct.scm 29 */
bool_t BgL_test1888z00_384;
BgL_test1888z00_384 = 
PAIRP(BgL_sz00_377); 
if(BgL_test1888z00_384)
{ /* ./Expand/struct.scm 29 */
obj_t BgL_cdrzd2125zd2_385;
BgL_cdrzd2125zd2_385 = 
CDR(BgL_sz00_377); 
{ /* ./Expand/struct.scm 29 */
bool_t BgL_test1889z00_386;
BgL_test1889z00_386 = 
PAIRP(BgL_cdrzd2125zd2_385); 
if(BgL_test1889z00_386)
{ /* ./Expand/struct.scm 29 */
bool_t BgL_test1890z00_387;
{ /* ./Expand/struct.scm 29 */
obj_t BgL_auxz00_520;
BgL_auxz00_520 = 
CDR(BgL_cdrzd2125zd2_385); 
BgL_test1890z00_387 = 
NULLP(BgL_auxz00_520); } 
if(BgL_test1890z00_387)
{ /* ./Expand/struct.scm 29 */
BgL_arg1885z00_375 = 
CAR(BgL_sz00_377); }  else 
{ /* ./Expand/struct.scm 29 */
bool_t BgL_test1897z00_390;
BgL_test1897z00_390 = 
SYMBOLP(BgL_sz00_377); 
if(BgL_test1897z00_390)
{ /* ./Expand/struct.scm 29 */
BgL_arg1885z00_375 = BgL_sz00_377; }  else 
{ /* ./Expand/struct.scm 29 */
BgL_tagzd2118zd2_382:
FAILURE(BFALSE,BGl_string1950z00zzexpand_structz00,BgL_xz00_1);} } }  else 
{ /* ./Expand/struct.scm 29 */
bool_t BgL_test1907z00_392;
BgL_test1907z00_392 = 
SYMBOLP(BgL_sz00_377); 
if(BgL_test1907z00_392)
{ /* ./Expand/struct.scm 29 */
BgL_arg1885z00_375 = BgL_sz00_377; }  else 
{ /* ./Expand/struct.scm 29 */
goto BgL_tagzd2118zd2_382;} } } }  else 
{ /* ./Expand/struct.scm 29 */
bool_t BgL_test1913z00_393;
BgL_test1913z00_393 = 
SYMBOLP(BgL_sz00_377); 
if(BgL_test1913z00_393)
{ /* ./Expand/struct.scm 29 */
BgL_arg1885z00_375 = BgL_sz00_377; }  else 
{ /* ./Expand/struct.scm 29 */
goto BgL_tagzd2118zd2_382;} } } } } 
BgL_newtail1007z00_373 = 
MAKE_PAIR(BgL_arg1885z00_375, BNIL); } 
SET_CDR(BgL_tail1006z00_370, BgL_newtail1007z00_373); 
{ /* ./Expand/struct.scm 28 */
obj_t BgL_arg1881z00_374;
BgL_arg1881z00_374 = 
CDR(BgL_l1003z00_369); 
{ 
obj_t BgL_tail1006z00_536;obj_t BgL_l1003z00_535;
BgL_l1003z00_535 = BgL_arg1881z00_374; 
BgL_tail1006z00_536 = BgL_newtail1007z00_373; 
BgL_tail1006z00_370 = BgL_tail1006z00_536; 
BgL_l1003z00_369 = BgL_l1003z00_535; 
goto BgL_map1004z00_371;} } } } } } } 
{ /* ./Expand/struct.scm 28 */
bool_t BgL_slotszd2valzf3z21_15;
BgL_slotszd2valzf3z21_15 = ((bool_t)0); 
{ /* ./Expand/struct.scm 39 */
obj_t BgL_slotszd2valzd2_16;
{ /* ./Expand/struct.scm 40 */
bool_t BgL_test1828z00_341;
BgL_test1828z00_341 = 
NULLP(BgL_slotsz00_4); 
if(BgL_test1828z00_341)
{ /* ./Expand/struct.scm 40 */
BgL_slotszd2valzd2_16 = BNIL; }  else 
{ /* ./Expand/struct.scm 40 */
obj_t BgL_head1010z00_342;
BgL_head1010z00_342 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1008z00_343;obj_t BgL_tail1011z00_344;
BgL_l1008z00_343 = BgL_slotsz00_4; 
BgL_tail1011z00_344 = BgL_head1010z00_342; 
BgL_map1009z00_345:
{ /* ./Expand/struct.scm 40 */
bool_t BgL_test1830z00_346;
BgL_test1830z00_346 = 
NULLP(BgL_l1008z00_343); 
if(BgL_test1830z00_346)
{ /* ./Expand/struct.scm 40 */
BgL_slotszd2valzd2_16 = 
CDR(BgL_head1010z00_342); }  else 
{ /* ./Expand/struct.scm 41 */
obj_t BgL_newtail1012z00_347;
{ /* ./Expand/struct.scm 41 */
obj_t BgL_arg1840z00_349;
{ /* ./Expand/struct.scm 41 */
obj_t BgL_sz00_351;
BgL_sz00_351 = 
CAR(BgL_l1008z00_343); 
{ 

{ /* ./Expand/struct.scm 41 */
bool_t BgL_test1844z00_357;
BgL_test1844z00_357 = 
PAIRP(BgL_sz00_351); 
if(BgL_test1844z00_357)
{ /* ./Expand/struct.scm 41 */
obj_t BgL_cdrzd2138zd2_358;
BgL_cdrzd2138zd2_358 = 
CDR(BgL_sz00_351); 
{ /* ./Expand/struct.scm 41 */
bool_t BgL_test1845z00_359;
BgL_test1845z00_359 = 
PAIRP(BgL_cdrzd2138zd2_358); 
if(BgL_test1845z00_359)
{ /* ./Expand/struct.scm 41 */
bool_t BgL_test1846z00_360;
{ /* ./Expand/struct.scm 41 */
obj_t BgL_auxz00_549;
BgL_auxz00_549 = 
CDR(BgL_cdrzd2138zd2_358); 
BgL_test1846z00_360 = 
NULLP(BgL_auxz00_549); } 
if(BgL_test1846z00_360)
{ /* ./Expand/struct.scm 41 */
obj_t BgL_arg1848z00_361;
BgL_arg1848z00_361 = 
CAR(BgL_cdrzd2138zd2_358); 
BgL_slotszd2valzf3z21_15 = ((bool_t)1); 
BgL_arg1840z00_349 = BgL_arg1848z00_361; }  else 
{ /* ./Expand/struct.scm 41 */
bool_t BgL_test1851z00_362;
BgL_test1851z00_362 = 
SYMBOLP(BgL_sz00_351); 
if(BgL_test1851z00_362)
{ /* ./Expand/struct.scm 41 */
BgL_arg1840z00_349 = 
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Expand/struct.scm 41 */
BgL_tagzd2133zd2_355:
FAILURE(BFALSE,BGl_string1950z00zzexpand_structz00,BgL_xz00_1);} } }  else 
{ /* ./Expand/struct.scm 41 */
bool_t BgL_test1859z00_364;
BgL_test1859z00_364 = 
SYMBOLP(BgL_sz00_351); 
if(BgL_test1859z00_364)
{ /* ./Expand/struct.scm 41 */
BgL_arg1840z00_349 = 
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Expand/struct.scm 41 */
goto BgL_tagzd2133zd2_355;} } } }  else 
{ /* ./Expand/struct.scm 41 */
bool_t BgL_test1865z00_365;
BgL_test1865z00_365 = 
SYMBOLP(BgL_sz00_351); 
if(BgL_test1865z00_365)
{ /* ./Expand/struct.scm 41 */
BgL_arg1840z00_349 = 
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Expand/struct.scm 41 */
goto BgL_tagzd2133zd2_355;} } } } } 
BgL_newtail1012z00_347 = 
MAKE_PAIR(BgL_arg1840z00_349, BNIL); } 
SET_CDR(BgL_tail1011z00_344, BgL_newtail1012z00_347); 
{ /* ./Expand/struct.scm 40 */
obj_t BgL_arg1836z00_348;
BgL_arg1836z00_348 = 
CDR(BgL_l1008z00_343); 
{ 
obj_t BgL_tail1011z00_568;obj_t BgL_l1008z00_567;
BgL_l1008z00_567 = BgL_arg1836z00_348; 
BgL_tail1011z00_568 = BgL_newtail1012z00_347; 
BgL_tail1011z00_344 = BgL_tail1011z00_568; 
BgL_l1008z00_343 = BgL_l1008z00_567; 
goto BgL_map1009z00_345;} } } } } } } 
{ /* ./Expand/struct.scm 40 */

{ /* ./Expand/struct.scm 53 */
obj_t BgL_arg1028z00_17;obj_t BgL_arg1029z00_18;
BgL_arg1028z00_17 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Expand/struct.scm 57 */
obj_t BgL_arg1032z00_19;obj_t BgL_arg1033z00_20;
{ /* ./Expand/struct.scm 57 */
obj_t BgL_arg1036z00_21;
{ /* ./Expand/struct.scm 57 */
obj_t BgL_arg1039z00_22;
{ /* ./Expand/struct.scm 57 */
obj_t BgL_arg1042z00_23;obj_t BgL_arg1043z00_24;
BgL_arg1042z00_23 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/struct.scm 57 */
obj_t BgL_arg1046z00_25;obj_t BgL_arg1047z00_26;
{ /* ./Expand/struct.scm 57 */
obj_t BgL_arg1050z00_27;obj_t BgL_arg1051z00_28;
{ /* ./Expand/struct.scm 57 */
obj_t BgL_list1054z00_29;
{ /* ./Expand/struct.scm 57 */
obj_t BgL_arg1058z00_30;obj_t BgL_arg1059z00_31;
BgL_arg1058z00_30 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg1059z00_31 = 
MAKE_PAIR(BgL_namez00_3, BNIL); 
BgL_list1054z00_29 = 
MAKE_PAIR(BgL_arg1058z00_30, BgL_arg1059z00_31); } 
BgL_arg1050z00_27 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1054z00_29); } 
BgL_arg1051z00_28 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1046z00_25 = 
MAKE_PAIR(BgL_arg1050z00_27, BgL_arg1051z00_28); } 
{ /* ./Expand/struct.scm 58 */
obj_t BgL_arg1064z00_32;
if(BgL_slotszd2valzf3z21_15)
{ /* ./Expand/struct.scm 65 */
obj_t BgL_arg1068z00_34;obj_t BgL_arg1069z00_35;
BgL_arg1068z00_34 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/struct.scm 59 */
obj_t BgL_arg1075z00_36;obj_t BgL_arg1076z00_37;
{ /* ./Expand/struct.scm 59 */
obj_t BgL_arg1079z00_38;obj_t BgL_arg1080z00_39;
BgL_arg1079z00_38 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Expand/struct.scm 59 */
obj_t BgL_auxz00_580;
BgL_auxz00_580 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1080z00_39 = 
MAKE_PAIR(BgL_auxz00_580, BNIL); } 
BgL_arg1075z00_36 = 
MAKE_PAIR(BgL_arg1079z00_38, BgL_arg1080z00_39); } 
{ /* ./Expand/struct.scm 60 */
obj_t BgL_arg1084z00_40;obj_t BgL_arg1085z00_41;
{ /* ./Expand/struct.scm 60 */
obj_t BgL_arg1088z00_42;obj_t BgL_arg1089z00_43;
BgL_arg1088z00_42 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/struct.scm 60 */
obj_t BgL_arg1092z00_44;obj_t BgL_arg1093z00_45;
{ /* ./Expand/struct.scm 60 */
obj_t BgL_arg1096z00_46;obj_t BgL_arg1097z00_47;
BgL_arg1096z00_46 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Expand/struct.scm 60 */
obj_t BgL_arg1100z00_48;
{ /* ./Expand/struct.scm 60 */
obj_t BgL_arg1104z00_50;obj_t BgL_arg1105z00_51;
BgL_arg1104z00_50 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/struct.scm 60 */
obj_t BgL_arg1108z00_52;
{ /* ./Expand/struct.scm 60 */
obj_t BgL_arg1112z00_54;obj_t BgL_arg1113z00_55;
BgL_arg1112z00_54 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Expand/struct.scm 60 */
obj_t BgL_auxz00_588;
BgL_auxz00_588 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1113z00_55 = 
MAKE_PAIR(BgL_auxz00_588, BNIL); } 
BgL_arg1108z00_52 = 
MAKE_PAIR(BgL_arg1112z00_54, BgL_arg1113z00_55); } 
BgL_arg1105z00_51 = 
MAKE_PAIR(BgL_arg1108z00_52, BNIL); } 
BgL_arg1100z00_48 = 
MAKE_PAIR(BgL_arg1104z00_50, BgL_arg1105z00_51); } 
BgL_arg1097z00_47 = 
MAKE_PAIR(BgL_arg1100z00_48, BNIL); } 
BgL_arg1092z00_44 = 
MAKE_PAIR(BgL_arg1096z00_46, BgL_arg1097z00_47); } 
{ /* ./Expand/struct.scm 61 */
obj_t BgL_arg1117z00_56;obj_t BgL_arg1118z00_57;
{ /* ./Expand/struct.scm 61 */
obj_t BgL_arg1121z00_58;obj_t BgL_arg1122z00_59;
BgL_arg1121z00_58 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/struct.scm 61 */
obj_t BgL_arg1125z00_60;obj_t BgL_arg1126z00_61;
{ /* ./Expand/struct.scm 61 */
obj_t BgL_arg1130z00_62;obj_t BgL_arg1131z00_63;
BgL_arg1130z00_62 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Expand/struct.scm 61 */
obj_t BgL_arg1134z00_64;
{ /* ./Expand/struct.scm 61 */
obj_t BgL_list1138z00_66;
{ /* ./Expand/struct.scm 61 */
obj_t BgL_arg1140z00_67;obj_t BgL_arg1141z00_68;
BgL_arg1140z00_67 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg1141z00_68 = 
MAKE_PAIR(BgL_namez00_3, BNIL); 
BgL_list1138z00_66 = 
MAKE_PAIR(BgL_arg1140z00_67, BgL_arg1141z00_68); } 
BgL_arg1134z00_64 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1138z00_66); } 
BgL_arg1131z00_63 = 
MAKE_PAIR(BgL_arg1134z00_64, BNIL); } 
BgL_arg1125z00_60 = 
MAKE_PAIR(BgL_arg1130z00_62, BgL_arg1131z00_63); } 
{ /* ./Expand/struct.scm 61 */
obj_t BgL_arg1148z00_70;
{ /* ./Expand/struct.scm 61 */
obj_t BgL_auxz00_604;
BgL_auxz00_604 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1148z00_70 = 
MAKE_PAIR(BgL_auxz00_604, BNIL); } 
BgL_arg1126z00_61 = 
MAKE_PAIR(BGl_string1951z00zzexpand_structz00, BgL_arg1148z00_70); } 
BgL_arg1122z00_59 = 
MAKE_PAIR(BgL_arg1125z00_60, BgL_arg1126z00_61); } 
BgL_arg1117z00_56 = 
MAKE_PAIR(BgL_arg1121z00_58, BgL_arg1122z00_59); } 
{ /* ./Expand/struct.scm 64 */
obj_t BgL_arg1152z00_71;
{ /* ./Expand/struct.scm 64 */
obj_t BgL_arg1158z00_73;obj_t BgL_arg1160z00_74;
BgL_arg1158z00_73 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Expand/struct.scm 64 */
obj_t BgL_arg1163z00_75;obj_t BgL_arg1164z00_76;
{ /* ./Expand/struct.scm 64 */
obj_t BgL_arg1169z00_77;obj_t BgL_arg1171z00_78;
BgL_arg1169z00_77 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg1171z00_78 = 
MAKE_PAIR(BgL_namez00_3, BNIL); 
BgL_arg1163z00_75 = 
MAKE_PAIR(BgL_arg1169z00_77, BgL_arg1171z00_78); } 
{ /* ./Expand/struct.scm 64 */
obj_t BgL_arg1177z00_79;
{ /* ./Expand/struct.scm 64 */
obj_t BgL_arg1180z00_80;
{ /* ./Expand/struct.scm 64 */
obj_t BgL_arg1187z00_82;obj_t BgL_arg1188z00_83;
BgL_arg1187z00_82 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Expand/struct.scm 64 */
obj_t BgL_auxz00_615;
BgL_auxz00_615 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1188z00_83 = 
MAKE_PAIR(BgL_auxz00_615, BNIL); } 
BgL_arg1180z00_80 = 
MAKE_PAIR(BgL_arg1187z00_82, BgL_arg1188z00_83); } 
BgL_arg1177z00_79 = 
MAKE_PAIR(BgL_arg1180z00_80, BNIL); } 
{ /* ./Expand/struct.scm 64 */
obj_t BgL_auxz00_620;
BgL_auxz00_620 = 
BINT(BgL_lenz00_13); 
BgL_arg1164z00_76 = 
MAKE_PAIR(BgL_auxz00_620, BgL_arg1177z00_79); } } 
BgL_arg1160z00_74 = 
MAKE_PAIR(BgL_arg1163z00_75, BgL_arg1164z00_76); } 
BgL_arg1152z00_71 = 
MAKE_PAIR(BgL_arg1158z00_73, BgL_arg1160z00_74); } 
BgL_arg1118z00_57 = 
MAKE_PAIR(BgL_arg1152z00_71, BNIL); } 
BgL_arg1093z00_45 = 
MAKE_PAIR(BgL_arg1117z00_56, BgL_arg1118z00_57); } 
BgL_arg1089z00_43 = 
MAKE_PAIR(BgL_arg1092z00_44, BgL_arg1093z00_45); } 
BgL_arg1084z00_40 = 
MAKE_PAIR(BgL_arg1088z00_42, BgL_arg1089z00_43); } 
{ /* ./Expand/struct.scm 65 */
obj_t BgL_arg1192z00_84;
{ /* ./Expand/struct.scm 65 */
obj_t BgL_arg1198z00_86;
BgL_arg1198z00_86 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_slotszd2valzd2_16, BNIL); 
BgL_arg1192z00_84 = 
MAKE_PAIR(BgL_namez00_3, BgL_arg1198z00_86); } 
BgL_arg1085z00_41 = 
MAKE_PAIR(BgL_arg1192z00_84, BNIL); } 
BgL_arg1076z00_37 = 
MAKE_PAIR(BgL_arg1084z00_40, BgL_arg1085z00_41); } 
BgL_arg1069z00_35 = 
MAKE_PAIR(BgL_arg1075z00_36, BgL_arg1076z00_37); } 
BgL_arg1064z00_32 = 
MAKE_PAIR(BgL_arg1068z00_34, BgL_arg1069z00_35); }  else 
{ /* ./Expand/struct.scm 72 */
obj_t BgL_arg1202z00_87;obj_t BgL_arg1203z00_88;
BgL_arg1202z00_87 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/struct.scm 66 */
obj_t BgL_arg1206z00_89;obj_t BgL_arg1207z00_90;
{ /* ./Expand/struct.scm 66 */
obj_t BgL_arg1210z00_91;obj_t BgL_arg1211z00_92;
BgL_arg1210z00_91 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Expand/struct.scm 66 */
obj_t BgL_auxz00_637;
BgL_auxz00_637 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1211z00_92 = 
MAKE_PAIR(BgL_auxz00_637, BNIL); } 
BgL_arg1206z00_89 = 
MAKE_PAIR(BgL_arg1210z00_91, BgL_arg1211z00_92); } 
{ /* ./Expand/struct.scm 67 */
obj_t BgL_arg1215z00_93;obj_t BgL_arg1216z00_94;
{ /* ./Expand/struct.scm 67 */
obj_t BgL_arg1219z00_95;obj_t BgL_arg1220z00_96;
BgL_arg1219z00_95 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/struct.scm 67 */
obj_t BgL_arg1223z00_97;obj_t BgL_arg1224z00_98;
{ /* ./Expand/struct.scm 67 */
obj_t BgL_arg1227z00_99;obj_t BgL_arg1229z00_100;
BgL_arg1227z00_99 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Expand/struct.scm 67 */
obj_t BgL_arg1233z00_101;
{ /* ./Expand/struct.scm 67 */
obj_t BgL_arg1237z00_103;obj_t BgL_arg1238z00_104;
BgL_arg1237z00_103 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/struct.scm 67 */
obj_t BgL_arg1241z00_105;
{ /* ./Expand/struct.scm 67 */
obj_t BgL_arg1246z00_107;obj_t BgL_arg1249z00_108;
BgL_arg1246z00_107 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Expand/struct.scm 67 */
obj_t BgL_auxz00_645;
BgL_auxz00_645 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1249z00_108 = 
MAKE_PAIR(BgL_auxz00_645, BNIL); } 
BgL_arg1241z00_105 = 
MAKE_PAIR(BgL_arg1246z00_107, BgL_arg1249z00_108); } 
BgL_arg1238z00_104 = 
MAKE_PAIR(BgL_arg1241z00_105, BNIL); } 
BgL_arg1233z00_101 = 
MAKE_PAIR(BgL_arg1237z00_103, BgL_arg1238z00_104); } 
BgL_arg1229z00_100 = 
MAKE_PAIR(BgL_arg1233z00_101, BNIL); } 
BgL_arg1223z00_97 = 
MAKE_PAIR(BgL_arg1227z00_99, BgL_arg1229z00_100); } 
{ /* ./Expand/struct.scm 68 */
obj_t BgL_arg1256z00_109;obj_t BgL_arg1258z00_110;
{ /* ./Expand/struct.scm 68 */
obj_t BgL_arg1265z00_111;obj_t BgL_arg1266z00_112;
BgL_arg1265z00_111 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/struct.scm 68 */
obj_t BgL_arg1270z00_113;obj_t BgL_arg1273z00_114;
{ /* ./Expand/struct.scm 68 */
obj_t BgL_arg1276z00_115;obj_t BgL_arg1277z00_116;
BgL_arg1276z00_115 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Expand/struct.scm 68 */
obj_t BgL_arg1282z00_117;
{ /* ./Expand/struct.scm 68 */
obj_t BgL_list1286z00_119;
{ /* ./Expand/struct.scm 68 */
obj_t BgL_arg1288z00_120;obj_t BgL_arg1289z00_121;
BgL_arg1288z00_120 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg1289z00_121 = 
MAKE_PAIR(BgL_namez00_3, BNIL); 
BgL_list1286z00_119 = 
MAKE_PAIR(BgL_arg1288z00_120, BgL_arg1289z00_121); } 
BgL_arg1282z00_117 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1286z00_119); } 
BgL_arg1277z00_116 = 
MAKE_PAIR(BgL_arg1282z00_117, BNIL); } 
BgL_arg1270z00_113 = 
MAKE_PAIR(BgL_arg1276z00_115, BgL_arg1277z00_116); } 
{ /* ./Expand/struct.scm 68 */
obj_t BgL_arg1294z00_123;
{ /* ./Expand/struct.scm 68 */
obj_t BgL_auxz00_661;
BgL_auxz00_661 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1294z00_123 = 
MAKE_PAIR(BgL_auxz00_661, BNIL); } 
BgL_arg1273z00_114 = 
MAKE_PAIR(BGl_string1951z00zzexpand_structz00, BgL_arg1294z00_123); } 
BgL_arg1266z00_112 = 
MAKE_PAIR(BgL_arg1270z00_113, BgL_arg1273z00_114); } 
BgL_arg1256z00_109 = 
MAKE_PAIR(BgL_arg1265z00_111, BgL_arg1266z00_112); } 
{ /* ./Expand/struct.scm 71 */
obj_t BgL_arg1298z00_124;
{ /* ./Expand/struct.scm 71 */
obj_t BgL_arg1302z00_126;obj_t BgL_arg1303z00_127;
BgL_arg1302z00_126 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Expand/struct.scm 71 */
obj_t BgL_arg1306z00_128;obj_t BgL_arg1307z00_129;
{ /* ./Expand/struct.scm 71 */
obj_t BgL_arg1310z00_130;obj_t BgL_arg1311z00_131;
BgL_arg1310z00_130 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg1311z00_131 = 
MAKE_PAIR(BgL_namez00_3, BNIL); 
BgL_arg1306z00_128 = 
MAKE_PAIR(BgL_arg1310z00_130, BgL_arg1311z00_131); } 
{ /* ./Expand/struct.scm 71 */
obj_t BgL_arg1315z00_132;
{ /* ./Expand/struct.scm 71 */
obj_t BgL_arg1318z00_133;
{ /* ./Expand/struct.scm 71 */
obj_t BgL_arg1322z00_135;obj_t BgL_arg1323z00_136;
BgL_arg1322z00_135 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Expand/struct.scm 71 */
obj_t BgL_auxz00_672;
BgL_auxz00_672 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1323z00_136 = 
MAKE_PAIR(BgL_auxz00_672, BNIL); } 
BgL_arg1318z00_133 = 
MAKE_PAIR(BgL_arg1322z00_135, BgL_arg1323z00_136); } 
BgL_arg1315z00_132 = 
MAKE_PAIR(BgL_arg1318z00_133, BNIL); } 
{ /* ./Expand/struct.scm 71 */
obj_t BgL_auxz00_677;
BgL_auxz00_677 = 
BINT(BgL_lenz00_13); 
BgL_arg1307z00_129 = 
MAKE_PAIR(BgL_auxz00_677, BgL_arg1315z00_132); } } 
BgL_arg1303z00_127 = 
MAKE_PAIR(BgL_arg1306z00_128, BgL_arg1307z00_129); } 
BgL_arg1298z00_124 = 
MAKE_PAIR(BgL_arg1302z00_126, BgL_arg1303z00_127); } 
BgL_arg1258z00_110 = 
MAKE_PAIR(BgL_arg1298z00_124, BNIL); } 
BgL_arg1224z00_98 = 
MAKE_PAIR(BgL_arg1256z00_109, BgL_arg1258z00_110); } 
BgL_arg1220z00_96 = 
MAKE_PAIR(BgL_arg1223z00_97, BgL_arg1224z00_98); } 
BgL_arg1215z00_93 = 
MAKE_PAIR(BgL_arg1219z00_95, BgL_arg1220z00_96); } 
{ /* ./Expand/struct.scm 72 */
obj_t BgL_arg1327z00_137;
{ /* ./Expand/struct.scm 72 */
obj_t BgL_arg1331z00_139;obj_t BgL_arg1332z00_140;
BgL_arg1331z00_139 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Expand/struct.scm 72 */
obj_t BgL_arg1335z00_141;obj_t BgL_arg1336z00_142;
{ /* ./Expand/struct.scm 72 */
obj_t BgL_arg1340z00_143;obj_t BgL_arg1341z00_144;
BgL_arg1340z00_143 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg1341z00_144 = 
MAKE_PAIR(BgL_namez00_3, BNIL); 
BgL_arg1335z00_141 = 
MAKE_PAIR(BgL_arg1340z00_143, BgL_arg1341z00_144); } 
{ /* ./Expand/struct.scm 72 */
obj_t BgL_arg1345z00_145;
{ /* ./Expand/struct.scm 72 */
obj_t BgL_arg1348z00_146;
{ /* ./Expand/struct.scm 72 */
obj_t BgL_arg1352z00_148;obj_t BgL_arg1354z00_149;
BgL_arg1352z00_148 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg1354z00_149 = 
MAKE_PAIR(BNIL, BNIL); 
BgL_arg1348z00_146 = 
MAKE_PAIR(BgL_arg1352z00_148, BgL_arg1354z00_149); } 
BgL_arg1345z00_145 = 
MAKE_PAIR(BgL_arg1348z00_146, BNIL); } 
{ /* ./Expand/struct.scm 72 */
obj_t BgL_auxz00_694;
BgL_auxz00_694 = 
BINT(BgL_lenz00_13); 
BgL_arg1336z00_142 = 
MAKE_PAIR(BgL_auxz00_694, BgL_arg1345z00_145); } } 
BgL_arg1332z00_140 = 
MAKE_PAIR(BgL_arg1335z00_141, BgL_arg1336z00_142); } 
BgL_arg1327z00_137 = 
MAKE_PAIR(BgL_arg1331z00_139, BgL_arg1332z00_140); } 
BgL_arg1216z00_94 = 
MAKE_PAIR(BgL_arg1327z00_137, BNIL); } 
BgL_arg1207z00_90 = 
MAKE_PAIR(BgL_arg1215z00_93, BgL_arg1216z00_94); } 
BgL_arg1203z00_88 = 
MAKE_PAIR(BgL_arg1206z00_89, BgL_arg1207z00_90); } 
BgL_arg1064z00_32 = 
MAKE_PAIR(BgL_arg1202z00_87, BgL_arg1203z00_88); } 
BgL_arg1047z00_26 = 
MAKE_PAIR(BgL_arg1064z00_32, BNIL); } 
BgL_arg1043z00_24 = 
MAKE_PAIR(BgL_arg1046z00_25, BgL_arg1047z00_26); } 
BgL_arg1039z00_22 = 
MAKE_PAIR(BgL_arg1042z00_23, BgL_arg1043z00_24); } 
BgL_arg1036z00_21 = 
BGl_epairifyz00zztools_miscz00(BgL_arg1039z00_22, BgL_xz00_1); } 
BgL_arg1032z00_19 = 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_arg1036z00_21, BgL_ez00_2, BEOA); } 
{ /* ./Expand/struct.scm 77 */
obj_t BgL_arg1358z00_150;obj_t BgL_arg1359z00_151;
{ /* ./Expand/struct.scm 77 */
obj_t BgL_arg1362z00_152;
{ /* ./Expand/struct.scm 77 */
obj_t BgL_arg1365z00_153;
{ /* ./Expand/struct.scm 77 */
obj_t BgL_arg1368z00_154;obj_t BgL_arg1370z00_155;
BgL_arg1368z00_154 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/struct.scm 77 */
obj_t BgL_arg1374z00_156;obj_t BgL_arg1375z00_157;
{ /* ./Expand/struct.scm 77 */
obj_t BgL_arg1378z00_158;
BgL_arg1378z00_158 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_slotszd2namezd2_14, BNIL); 
BgL_arg1374z00_156 = 
MAKE_PAIR(BgL_namez00_3, BgL_arg1378z00_158); } 
{ /* ./Expand/struct.scm 78 */
obj_t BgL_arg1382z00_159;
{ /* ./Expand/struct.scm 78 */
obj_t BgL_arg1388z00_161;obj_t BgL_arg1390z00_162;
BgL_arg1388z00_161 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Expand/struct.scm 78 */
obj_t BgL_arg1393z00_163;obj_t BgL_arg1394z00_164;
{ /* ./Expand/struct.scm 78 */
obj_t BgL_arg1397z00_165;
{ /* ./Expand/struct.scm 78 */
obj_t BgL_arg1401z00_167;obj_t BgL_arg1402z00_168;
BgL_arg1401z00_167 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Expand/struct.scm 78 */
obj_t BgL_arg1406z00_169;
{ /* ./Expand/struct.scm 78 */
obj_t BgL_arg1410z00_171;obj_t BgL_arg1412z00_172;
BgL_arg1410z00_171 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Expand/struct.scm 78 */
obj_t BgL_arg1415z00_173;obj_t BgL_arg1416z00_174;
{ /* ./Expand/struct.scm 78 */
obj_t BgL_arg1419z00_175;obj_t BgL_arg1420z00_176;
BgL_arg1419z00_175 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg1420z00_176 = 
MAKE_PAIR(BgL_namez00_3, BNIL); 
BgL_arg1415z00_173 = 
MAKE_PAIR(BgL_arg1419z00_175, BgL_arg1420z00_176); } 
{ /* ./Expand/struct.scm 78 */
obj_t BgL_auxz00_718;
BgL_auxz00_718 = 
BINT(BgL_lenz00_13); 
BgL_arg1416z00_174 = 
MAKE_PAIR(BgL_auxz00_718, BNIL); } 
BgL_arg1412z00_172 = 
MAKE_PAIR(BgL_arg1415z00_173, BgL_arg1416z00_174); } 
BgL_arg1406z00_169 = 
MAKE_PAIR(BgL_arg1410z00_171, BgL_arg1412z00_172); } 
BgL_arg1402z00_168 = 
MAKE_PAIR(BgL_arg1406z00_169, BNIL); } 
BgL_arg1397z00_165 = 
MAKE_PAIR(BgL_arg1401z00_167, BgL_arg1402z00_168); } 
BgL_arg1393z00_163 = 
MAKE_PAIR(BgL_arg1397z00_165, BNIL); } 
{ /* ./Expand/struct.scm 79 */
obj_t BgL_arg1425z00_177;obj_t BgL_arg1426z00_178;
{ 
obj_t BgL_slotsz00_179;obj_t BgL_resz00_180;
BgL_slotsz00_179 = BgL_slotszd2namezd2_14; 
BgL_resz00_180 = BNIL; 
BgL_loopz00_181:
{ /* ./Expand/struct.scm 81 */
bool_t BgL_test1429z00_182;
BgL_test1429z00_182 = 
NULLP(BgL_slotsz00_179); 
if(BgL_test1429z00_182)
{ /* ./Expand/struct.scm 81 */
BgL_arg1425z00_177 = BgL_resz00_180; }  else 
{ /* ./Expand/struct.scm 83 */
obj_t BgL_arg1431z00_183;obj_t BgL_arg1432z00_184;
BgL_arg1431z00_183 = 
CDR(BgL_slotsz00_179); 
{ /* ./Expand/struct.scm 85 */
obj_t BgL_arg1436z00_185;
{ /* ./Expand/struct.scm 85 */
obj_t BgL_arg1440z00_186;obj_t BgL_arg1441z00_187;
{ /* ./Expand/struct.scm 85 */
obj_t BgL_arg1444z00_188;obj_t BgL_arg1446z00_189;obj_t BgL_arg1448z00_190;
BgL_arg1444z00_188 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg1446z00_189 = 
CAR(BgL_slotsz00_179); 
BgL_arg1448z00_190 = 
CNST_TABLE_REF(((long)18)); 
{ /* ./Expand/struct.scm 84 */
obj_t BgL_list1450z00_191;
{ /* ./Expand/struct.scm 84 */
obj_t BgL_arg1453z00_192;
{ /* ./Expand/struct.scm 84 */
obj_t BgL_arg1456z00_193;
{ /* ./Expand/struct.scm 84 */
obj_t BgL_arg1461z00_194;
BgL_arg1461z00_194 = 
MAKE_PAIR(BgL_arg1448z00_190, BNIL); 
BgL_arg1456z00_193 = 
MAKE_PAIR(BgL_arg1446z00_189, BgL_arg1461z00_194); } 
BgL_arg1453z00_192 = 
MAKE_PAIR(BgL_arg1444z00_188, BgL_arg1456z00_193); } 
BgL_list1450z00_191 = 
MAKE_PAIR(BgL_namez00_3, BgL_arg1453z00_192); } 
BgL_arg1440z00_186 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1450z00_191); } } 
{ /* ./Expand/struct.scm 84 */
obj_t BgL_arg1466z00_195;obj_t BgL_arg1468z00_196;
BgL_arg1466z00_195 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Expand/struct.scm 89 */
obj_t BgL_arg1471z00_197;
BgL_arg1471z00_197 = 
CAR(BgL_slotsz00_179); 
BgL_arg1468z00_196 = 
MAKE_PAIR(BgL_arg1471z00_197, BNIL); } 
BgL_arg1441z00_187 = 
MAKE_PAIR(BgL_arg1466z00_195, BgL_arg1468z00_196); } 
BgL_arg1436z00_185 = 
MAKE_PAIR(BgL_arg1440z00_186, BgL_arg1441z00_187); } 
BgL_arg1432z00_184 = 
MAKE_PAIR(BgL_arg1436z00_185, BgL_resz00_180); } 
{ 
obj_t BgL_resz00_744;obj_t BgL_slotsz00_743;
BgL_slotsz00_743 = BgL_arg1431z00_183; 
BgL_resz00_744 = BgL_arg1432z00_184; 
BgL_resz00_180 = BgL_resz00_744; 
BgL_slotsz00_179 = BgL_slotsz00_743; 
goto BgL_loopz00_181;} } } } 
{ /* ./Expand/struct.scm 78 */
obj_t BgL_auxz00_745;
BgL_auxz00_745 = 
CNST_TABLE_REF(((long)15)); 
BgL_arg1426z00_178 = 
MAKE_PAIR(BgL_auxz00_745, BNIL); } 
BgL_arg1394z00_164 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1425z00_177, BgL_arg1426z00_178); } 
BgL_arg1390z00_162 = 
MAKE_PAIR(BgL_arg1393z00_163, BgL_arg1394z00_164); } 
BgL_arg1382z00_159 = 
MAKE_PAIR(BgL_arg1388z00_161, BgL_arg1390z00_162); } 
BgL_arg1375z00_157 = 
MAKE_PAIR(BgL_arg1382z00_159, BNIL); } 
BgL_arg1370z00_155 = 
MAKE_PAIR(BgL_arg1374z00_156, BgL_arg1375z00_157); } 
BgL_arg1365z00_153 = 
MAKE_PAIR(BgL_arg1368z00_154, BgL_arg1370z00_155); } 
BgL_arg1362z00_152 = 
BGl_epairifyz00zztools_miscz00(BgL_arg1365z00_153, BgL_xz00_1); } 
BgL_arg1358z00_150 = 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_arg1362z00_152, BgL_ez00_2, BEOA); } 
{ /* ./Expand/struct.scm 97 */
obj_t BgL_arg1480z00_199;obj_t BgL_arg1481z00_200;
{ /* ./Expand/struct.scm 97 */
obj_t BgL_arg1484z00_201;
{ /* ./Expand/struct.scm 97 */
obj_t BgL_arg1487z00_202;
{ /* ./Expand/struct.scm 97 */
obj_t BgL_arg1490z00_203;obj_t BgL_arg1491z00_204;
BgL_arg1490z00_203 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/struct.scm 97 */
obj_t BgL_arg1494z00_205;obj_t BgL_arg1496z00_206;
{ /* ./Expand/struct.scm 97 */
obj_t BgL_arg1500z00_207;obj_t BgL_arg1501z00_208;
{ /* ./Expand/struct.scm 97 */
obj_t BgL_list1504z00_209;
{ /* ./Expand/struct.scm 97 */
obj_t BgL_arg1506z00_210;
{ /* ./Expand/struct.scm 97 */
obj_t BgL_auxz00_758;
BgL_auxz00_758 = 
CNST_TABLE_REF(((long)19)); 
BgL_arg1506z00_210 = 
MAKE_PAIR(BgL_auxz00_758, BNIL); } 
BgL_list1504z00_209 = 
MAKE_PAIR(BgL_namez00_3, BgL_arg1506z00_210); } 
BgL_arg1500z00_207 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1504z00_209); } 
{ /* ./Expand/struct.scm 97 */
obj_t BgL_auxz00_763;
BgL_auxz00_763 = 
CNST_TABLE_REF(((long)20)); 
BgL_arg1501z00_208 = 
MAKE_PAIR(BgL_auxz00_763, BNIL); } 
BgL_arg1494z00_205 = 
MAKE_PAIR(BgL_arg1500z00_207, BgL_arg1501z00_208); } 
{ /* ./Expand/struct.scm 98 */
obj_t BgL_arg1511z00_211;
{ /* ./Expand/struct.scm 98 */
obj_t BgL_arg1516z00_213;obj_t BgL_arg1518z00_214;
BgL_arg1516z00_213 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/struct.scm 98 */
obj_t BgL_arg1521z00_215;obj_t BgL_arg1524z00_216;
{ /* ./Expand/struct.scm 98 */
obj_t BgL_arg1527z00_217;obj_t BgL_arg1528z00_218;
BgL_arg1527z00_217 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Expand/struct.scm 98 */
obj_t BgL_auxz00_769;
BgL_auxz00_769 = 
CNST_TABLE_REF(((long)20)); 
BgL_arg1528z00_218 = 
MAKE_PAIR(BgL_auxz00_769, BNIL); } 
BgL_arg1521z00_215 = 
MAKE_PAIR(BgL_arg1527z00_217, BgL_arg1528z00_218); } 
{ /* ./Expand/struct.scm 99 */
obj_t BgL_arg1533z00_219;obj_t BgL_arg1534z00_220;
{ /* ./Expand/struct.scm 99 */
obj_t BgL_arg1537z00_221;obj_t BgL_arg1538z00_222;
BgL_arg1537z00_221 = 
CNST_TABLE_REF(((long)22)); 
{ /* ./Expand/struct.scm 99 */
obj_t BgL_arg1541z00_223;obj_t BgL_arg1543z00_224;
{ /* ./Expand/struct.scm 99 */
obj_t BgL_arg1547z00_225;obj_t BgL_arg1548z00_226;
BgL_arg1547z00_225 = 
CNST_TABLE_REF(((long)23)); 
{ /* ./Expand/struct.scm 99 */
obj_t BgL_auxz00_775;
BgL_auxz00_775 = 
CNST_TABLE_REF(((long)20)); 
BgL_arg1548z00_226 = 
MAKE_PAIR(BgL_auxz00_775, BNIL); } 
BgL_arg1541z00_223 = 
MAKE_PAIR(BgL_arg1547z00_225, BgL_arg1548z00_226); } 
{ /* ./Expand/struct.scm 99 */
obj_t BgL_arg1552z00_227;
{ /* ./Expand/struct.scm 99 */
obj_t BgL_arg1557z00_229;obj_t BgL_arg1558z00_230;
BgL_arg1557z00_229 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg1558z00_230 = 
MAKE_PAIR(BgL_namez00_3, BNIL); 
BgL_arg1552z00_227 = 
MAKE_PAIR(BgL_arg1557z00_229, BgL_arg1558z00_230); } 
BgL_arg1543z00_224 = 
MAKE_PAIR(BgL_arg1552z00_227, BNIL); } 
BgL_arg1538z00_222 = 
MAKE_PAIR(BgL_arg1541z00_223, BgL_arg1543z00_224); } 
BgL_arg1533z00_219 = 
MAKE_PAIR(BgL_arg1537z00_221, BgL_arg1538z00_222); } 
BgL_arg1534z00_220 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg1524z00_216 = 
MAKE_PAIR(BgL_arg1533z00_219, BgL_arg1534z00_220); } 
BgL_arg1518z00_214 = 
MAKE_PAIR(BgL_arg1521z00_215, BgL_arg1524z00_216); } 
BgL_arg1511z00_211 = 
MAKE_PAIR(BgL_arg1516z00_213, BgL_arg1518z00_214); } 
BgL_arg1496z00_206 = 
MAKE_PAIR(BgL_arg1511z00_211, BNIL); } 
BgL_arg1491z00_204 = 
MAKE_PAIR(BgL_arg1494z00_205, BgL_arg1496z00_206); } 
BgL_arg1487z00_202 = 
MAKE_PAIR(BgL_arg1490z00_203, BgL_arg1491z00_204); } 
BgL_arg1484z00_201 = 
BGl_epairifyz00zztools_miscz00(BgL_arg1487z00_202, BgL_xz00_1); } 
BgL_arg1480z00_199 = 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_arg1484z00_201, BgL_ez00_2, BEOA); } 
{ 
long BgL_iz00_231;obj_t BgL_slotsz00_232;obj_t BgL_resz00_233;
BgL_iz00_231 = ((long)0); 
BgL_slotsz00_232 = BgL_slotszd2namezd2_14; 
BgL_resz00_233 = 
CNST_TABLE_REF(((long)30)); 
BgL_loopz00_234:
{ /* ./Expand/struct.scm 107 */
bool_t BgL_test1563z00_235;
BgL_test1563z00_235 = 
(BgL_iz00_231==BgL_lenz00_13); 
if(BgL_test1563z00_235)
{ /* ./Expand/struct.scm 107 */
BgL_arg1481z00_200 = BgL_resz00_233; }  else 
{ /* ./Expand/struct.scm 109 */
obj_t BgL_prz00_236;
BgL_prz00_236 = 
CAR(BgL_slotsz00_232); 
{ /* ./Expand/struct.scm 110 */
long BgL_arg1565z00_237;obj_t BgL_arg1566z00_238;obj_t BgL_arg1568z00_239;
BgL_arg1565z00_237 = 
(BgL_iz00_231+((long)1)); 
BgL_arg1566z00_238 = 
CDR(BgL_slotsz00_232); 
{ /* ./Expand/struct.scm 116 */
obj_t BgL_arg1573z00_240;obj_t BgL_arg1575z00_241;
{ /* ./Expand/struct.scm 116 */
obj_t BgL_arg1578z00_242;
{ /* ./Expand/struct.scm 116 */
obj_t BgL_arg1581z00_243;
{ /* ./Expand/struct.scm 116 */
obj_t BgL_arg1586z00_244;obj_t BgL_arg1587z00_245;
BgL_arg1586z00_244 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/struct.scm 117 */
obj_t BgL_arg1590z00_246;obj_t BgL_arg1591z00_247;
{ /* ./Expand/struct.scm 117 */
obj_t BgL_arg1594z00_248;obj_t BgL_arg1596z00_249;
{ /* ./Expand/struct.scm 117 */
obj_t BgL_list1599z00_250;
{ /* ./Expand/struct.scm 117 */
obj_t BgL_arg1601z00_251;
{ /* ./Expand/struct.scm 117 */
obj_t BgL_arg1604z00_252;obj_t BgL_arg1606z00_253;
BgL_arg1604z00_252 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg1606z00_253 = 
MAKE_PAIR(BgL_prz00_236, BNIL); 
BgL_arg1601z00_251 = 
MAKE_PAIR(BgL_arg1604z00_252, BgL_arg1606z00_253); } 
BgL_list1599z00_250 = 
MAKE_PAIR(BgL_namez00_3, BgL_arg1601z00_251); } 
BgL_arg1594z00_248 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1599z00_250); } 
{ /* ./Expand/struct.scm 117 */
obj_t BgL_auxz00_806;
BgL_auxz00_806 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg1596z00_249 = 
MAKE_PAIR(BgL_auxz00_806, BNIL); } 
BgL_arg1590z00_246 = 
MAKE_PAIR(BgL_arg1594z00_248, BgL_arg1596z00_249); } 
{ /* ./Expand/struct.scm 118 */
obj_t BgL_arg1611z00_254;
if(
CBOOL(BGl_za2unsafezd2structza2zd2zzengine_paramz00))
{ /* ./Expand/struct.scm 119 */
obj_t BgL_arg1617z00_256;obj_t BgL_arg1618z00_257;
BgL_arg1617z00_256 = 
CNST_TABLE_REF(((long)25)); 
{ /* ./Expand/struct.scm 119 */
obj_t BgL_arg1621z00_258;obj_t BgL_arg1622z00_259;
BgL_arg1621z00_258 = 
CNST_TABLE_REF(((long)24)); 
{ /* ./Expand/struct.scm 119 */
obj_t BgL_auxz00_814;
BgL_auxz00_814 = 
BINT(BgL_iz00_231); 
BgL_arg1622z00_259 = 
MAKE_PAIR(BgL_auxz00_814, BNIL); } 
BgL_arg1618z00_257 = 
MAKE_PAIR(BgL_arg1621z00_258, BgL_arg1622z00_259); } 
BgL_arg1611z00_254 = 
MAKE_PAIR(BgL_arg1617z00_256, BgL_arg1618z00_257); }  else 
{ /* ./Expand/struct.scm 125 */
obj_t BgL_arg1627z00_260;obj_t BgL_arg1628z00_261;
BgL_arg1627z00_260 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/struct.scm 120 */
obj_t BgL_arg1631z00_262;obj_t BgL_arg1632z00_263;
{ /* ./Expand/struct.scm 120 */
obj_t BgL_arg1635z00_264;obj_t BgL_arg1636z00_265;
BgL_arg1635z00_264 = 
CNST_TABLE_REF(((long)22)); 
{ /* ./Expand/struct.scm 120 */
obj_t BgL_arg1641z00_266;obj_t BgL_arg1642z00_267;
{ /* ./Expand/struct.scm 120 */
obj_t BgL_arg1648z00_268;obj_t BgL_arg1650z00_269;
BgL_arg1648z00_268 = 
CNST_TABLE_REF(((long)23)); 
{ /* ./Expand/struct.scm 120 */
obj_t BgL_auxz00_822;
BgL_auxz00_822 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg1650z00_269 = 
MAKE_PAIR(BgL_auxz00_822, BNIL); } 
BgL_arg1641z00_266 = 
MAKE_PAIR(BgL_arg1648z00_268, BgL_arg1650z00_269); } 
{ /* ./Expand/struct.scm 120 */
obj_t BgL_arg1654z00_270;
{ /* ./Expand/struct.scm 120 */
obj_t BgL_arg1658z00_272;obj_t BgL_arg1659z00_273;
BgL_arg1658z00_272 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg1659z00_273 = 
MAKE_PAIR(BgL_namez00_3, BNIL); 
BgL_arg1654z00_270 = 
MAKE_PAIR(BgL_arg1658z00_272, BgL_arg1659z00_273); } 
BgL_arg1642z00_267 = 
MAKE_PAIR(BgL_arg1654z00_270, BNIL); } 
BgL_arg1636z00_265 = 
MAKE_PAIR(BgL_arg1641z00_266, BgL_arg1642z00_267); } 
BgL_arg1631z00_262 = 
MAKE_PAIR(BgL_arg1635z00_264, BgL_arg1636z00_265); } 
{ /* ./Expand/struct.scm 121 */
obj_t BgL_arg1663z00_274;obj_t BgL_arg1666z00_275;
{ /* ./Expand/struct.scm 121 */
obj_t BgL_arg1669z00_276;obj_t BgL_arg1670z00_277;
BgL_arg1669z00_276 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Expand/struct.scm 121 */
obj_t BgL_arg1673z00_278;obj_t BgL_arg1674z00_279;
BgL_arg1673z00_278 = 
CNST_TABLE_REF(((long)24)); 
{ /* ./Expand/struct.scm 121 */
obj_t BgL_auxz00_834;
BgL_auxz00_834 = 
BINT(BgL_iz00_231); 
BgL_arg1674z00_279 = 
MAKE_PAIR(BgL_auxz00_834, BNIL); } 
BgL_arg1670z00_277 = 
MAKE_PAIR(BgL_arg1673z00_278, BgL_arg1674z00_279); } 
BgL_arg1663z00_274 = 
MAKE_PAIR(BgL_arg1669z00_276, BgL_arg1670z00_277); } 
{ /* ./Expand/struct.scm 122 */
obj_t BgL_arg1678z00_280;
{ /* ./Expand/struct.scm 122 */
obj_t BgL_arg1682z00_282;obj_t BgL_arg1683z00_283;
BgL_arg1682z00_282 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/struct.scm 122 */
obj_t BgL_arg1687z00_285;
{ /* ./Expand/struct.scm 124 */
obj_t BgL_arg1690z00_286;obj_t BgL_arg1691z00_287;
BgL_arg1690z00_286 = 
SYMBOL_TO_STRING(BgL_namez00_3); 
{ /* ./Expand/struct.scm 122 */
obj_t BgL_auxz00_841;
BgL_auxz00_841 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg1691z00_287 = 
MAKE_PAIR(BgL_auxz00_841, BNIL); } 
BgL_arg1687z00_285 = 
MAKE_PAIR(BgL_arg1690z00_286, BgL_arg1691z00_287); } 
BgL_arg1683z00_283 = 
MAKE_PAIR(BGl_string1952z00zzexpand_structz00, BgL_arg1687z00_285); } 
BgL_arg1678z00_280 = 
MAKE_PAIR(BgL_arg1682z00_282, BgL_arg1683z00_283); } 
BgL_arg1666z00_275 = 
MAKE_PAIR(BgL_arg1678z00_280, BNIL); } 
BgL_arg1632z00_263 = 
MAKE_PAIR(BgL_arg1663z00_274, BgL_arg1666z00_275); } 
BgL_arg1628z00_261 = 
MAKE_PAIR(BgL_arg1631z00_262, BgL_arg1632z00_263); } 
BgL_arg1611z00_254 = 
MAKE_PAIR(BgL_arg1627z00_260, BgL_arg1628z00_261); } 
BgL_arg1591z00_247 = 
MAKE_PAIR(BgL_arg1611z00_254, BNIL); } 
BgL_arg1587z00_245 = 
MAKE_PAIR(BgL_arg1590z00_246, BgL_arg1591z00_247); } 
BgL_arg1581z00_243 = 
MAKE_PAIR(BgL_arg1586z00_244, BgL_arg1587z00_245); } 
BgL_arg1578z00_242 = 
BGl_epairifyz00zztools_miscz00(BgL_arg1581z00_243, BgL_xz00_1); } 
BgL_arg1573z00_240 = 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_arg1578z00_242, BgL_ez00_2, BEOA); } 
{ /* ./Expand/struct.scm 132 */
obj_t BgL_arg1696z00_288;
{ /* ./Expand/struct.scm 132 */
obj_t BgL_arg1699z00_289;
{ /* ./Expand/struct.scm 132 */
obj_t BgL_arg1702z00_290;
{ /* ./Expand/struct.scm 132 */
obj_t BgL_arg1705z00_291;obj_t BgL_arg1706z00_292;
BgL_arg1705z00_291 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/struct.scm 133 */
obj_t BgL_arg1709z00_293;obj_t BgL_arg1710z00_294;
{ /* ./Expand/struct.scm 133 */
obj_t BgL_arg1713z00_295;obj_t BgL_arg1714z00_296;
{ /* ./Expand/struct.scm 133 */
obj_t BgL_list1717z00_297;
{ /* ./Expand/struct.scm 133 */
obj_t BgL_arg1719z00_298;
{ /* ./Expand/struct.scm 133 */
obj_t BgL_arg1722z00_299;obj_t BgL_arg1723z00_300;
BgL_arg1722z00_299 = 
CNST_TABLE_REF(((long)17)); 
{ /* ./Expand/struct.scm 133 */
obj_t BgL_arg1726z00_301;
{ /* ./Expand/struct.scm 133 */
obj_t BgL_auxz00_859;
BgL_auxz00_859 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg1726z00_301 = 
MAKE_PAIR(BgL_auxz00_859, BNIL); } 
BgL_arg1723z00_300 = 
MAKE_PAIR(BgL_prz00_236, BgL_arg1726z00_301); } 
BgL_arg1719z00_298 = 
MAKE_PAIR(BgL_arg1722z00_299, BgL_arg1723z00_300); } 
BgL_list1717z00_297 = 
MAKE_PAIR(BgL_namez00_3, BgL_arg1719z00_298); } 
BgL_arg1713z00_295 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1717z00_297); } 
{ /* ./Expand/struct.scm 133 */
obj_t BgL_arg1731z00_302;obj_t BgL_arg1732z00_303;
BgL_arg1731z00_302 = 
CNST_TABLE_REF(((long)24)); 
{ /* ./Expand/struct.scm 133 */
obj_t BgL_auxz00_867;
BgL_auxz00_867 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg1732z00_303 = 
MAKE_PAIR(BgL_auxz00_867, BNIL); } 
BgL_arg1714z00_296 = 
MAKE_PAIR(BgL_arg1731z00_302, BgL_arg1732z00_303); } 
BgL_arg1709z00_293 = 
MAKE_PAIR(BgL_arg1713z00_295, BgL_arg1714z00_296); } 
{ /* ./Expand/struct.scm 134 */
obj_t BgL_arg1736z00_304;
if(
CBOOL(BGl_za2unsafezd2structza2zd2zzengine_paramz00))
{ /* ./Expand/struct.scm 135 */
obj_t BgL_arg1741z00_306;obj_t BgL_arg1743z00_307;
BgL_arg1741z00_306 = 
CNST_TABLE_REF(((long)28)); 
{ /* ./Expand/struct.scm 135 */
obj_t BgL_arg1748z00_308;obj_t BgL_arg1749z00_309;
BgL_arg1748z00_308 = 
CNST_TABLE_REF(((long)24)); 
{ /* ./Expand/struct.scm 135 */
obj_t BgL_arg1752z00_310;
{ /* ./Expand/struct.scm 135 */
obj_t BgL_auxz00_876;
BgL_auxz00_876 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg1752z00_310 = 
MAKE_PAIR(BgL_auxz00_876, BNIL); } 
{ /* ./Expand/struct.scm 135 */
obj_t BgL_auxz00_879;
BgL_auxz00_879 = 
BINT(BgL_iz00_231); 
BgL_arg1749z00_309 = 
MAKE_PAIR(BgL_auxz00_879, BgL_arg1752z00_310); } } 
BgL_arg1743z00_307 = 
MAKE_PAIR(BgL_arg1748z00_308, BgL_arg1749z00_309); } 
BgL_arg1736z00_304 = 
MAKE_PAIR(BgL_arg1741z00_306, BgL_arg1743z00_307); }  else 
{ /* ./Expand/struct.scm 141 */
obj_t BgL_arg1756z00_311;obj_t BgL_arg1757z00_312;
BgL_arg1756z00_311 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/struct.scm 136 */
obj_t BgL_arg1760z00_313;obj_t BgL_arg1761z00_314;
{ /* ./Expand/struct.scm 136 */
obj_t BgL_arg1766z00_315;obj_t BgL_arg1767z00_316;
BgL_arg1766z00_315 = 
CNST_TABLE_REF(((long)22)); 
{ /* ./Expand/struct.scm 136 */
obj_t BgL_arg1771z00_317;obj_t BgL_arg1772z00_318;
{ /* ./Expand/struct.scm 136 */
obj_t BgL_arg1775z00_319;obj_t BgL_arg1776z00_320;
BgL_arg1775z00_319 = 
CNST_TABLE_REF(((long)23)); 
{ /* ./Expand/struct.scm 136 */
obj_t BgL_auxz00_887;
BgL_auxz00_887 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg1776z00_320 = 
MAKE_PAIR(BgL_auxz00_887, BNIL); } 
BgL_arg1771z00_317 = 
MAKE_PAIR(BgL_arg1775z00_319, BgL_arg1776z00_320); } 
{ /* ./Expand/struct.scm 136 */
obj_t BgL_arg1780z00_321;
{ /* ./Expand/struct.scm 136 */
obj_t BgL_arg1784z00_323;obj_t BgL_arg1785z00_324;
BgL_arg1784z00_323 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg1785z00_324 = 
MAKE_PAIR(BgL_namez00_3, BNIL); 
BgL_arg1780z00_321 = 
MAKE_PAIR(BgL_arg1784z00_323, BgL_arg1785z00_324); } 
BgL_arg1772z00_318 = 
MAKE_PAIR(BgL_arg1780z00_321, BNIL); } 
BgL_arg1767z00_316 = 
MAKE_PAIR(BgL_arg1771z00_317, BgL_arg1772z00_318); } 
BgL_arg1760z00_313 = 
MAKE_PAIR(BgL_arg1766z00_315, BgL_arg1767z00_316); } 
{ /* ./Expand/struct.scm 137 */
obj_t BgL_arg1789z00_325;obj_t BgL_arg1790z00_326;
{ /* ./Expand/struct.scm 137 */
obj_t BgL_arg1793z00_327;obj_t BgL_arg1794z00_328;
BgL_arg1793z00_327 = 
CNST_TABLE_REF(((long)29)); 
{ /* ./Expand/struct.scm 137 */
obj_t BgL_arg1798z00_329;obj_t BgL_arg1799z00_330;
BgL_arg1798z00_329 = 
CNST_TABLE_REF(((long)24)); 
{ /* ./Expand/struct.scm 137 */
obj_t BgL_arg1802z00_331;
{ /* ./Expand/struct.scm 137 */
obj_t BgL_auxz00_899;
BgL_auxz00_899 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg1802z00_331 = 
MAKE_PAIR(BgL_auxz00_899, BNIL); } 
{ /* ./Expand/struct.scm 137 */
obj_t BgL_auxz00_902;
BgL_auxz00_902 = 
BINT(BgL_iz00_231); 
BgL_arg1799z00_330 = 
MAKE_PAIR(BgL_auxz00_902, BgL_arg1802z00_331); } } 
BgL_arg1794z00_328 = 
MAKE_PAIR(BgL_arg1798z00_329, BgL_arg1799z00_330); } 
BgL_arg1789z00_325 = 
MAKE_PAIR(BgL_arg1793z00_327, BgL_arg1794z00_328); } 
{ /* ./Expand/struct.scm 138 */
obj_t BgL_arg1806z00_332;
{ /* ./Expand/struct.scm 138 */
obj_t BgL_arg1810z00_334;obj_t BgL_arg1811z00_335;
BgL_arg1810z00_334 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/struct.scm 138 */
obj_t BgL_arg1816z00_337;
{ /* ./Expand/struct.scm 140 */
obj_t BgL_arg1821z00_338;obj_t BgL_arg1822z00_339;
BgL_arg1821z00_338 = 
SYMBOL_TO_STRING(BgL_namez00_3); 
{ /* ./Expand/struct.scm 138 */
obj_t BgL_auxz00_909;
BgL_auxz00_909 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg1822z00_339 = 
MAKE_PAIR(BgL_auxz00_909, BNIL); } 
BgL_arg1816z00_337 = 
MAKE_PAIR(BgL_arg1821z00_338, BgL_arg1822z00_339); } 
BgL_arg1811z00_335 = 
MAKE_PAIR(BGl_string1953z00zzexpand_structz00, BgL_arg1816z00_337); } 
BgL_arg1806z00_332 = 
MAKE_PAIR(BgL_arg1810z00_334, BgL_arg1811z00_335); } 
BgL_arg1790z00_326 = 
MAKE_PAIR(BgL_arg1806z00_332, BNIL); } 
BgL_arg1761z00_314 = 
MAKE_PAIR(BgL_arg1789z00_325, BgL_arg1790z00_326); } 
BgL_arg1757z00_312 = 
MAKE_PAIR(BgL_arg1760z00_313, BgL_arg1761z00_314); } 
BgL_arg1736z00_304 = 
MAKE_PAIR(BgL_arg1756z00_311, BgL_arg1757z00_312); } 
BgL_arg1710z00_294 = 
MAKE_PAIR(BgL_arg1736z00_304, BNIL); } 
BgL_arg1706z00_292 = 
MAKE_PAIR(BgL_arg1709z00_293, BgL_arg1710z00_294); } 
BgL_arg1702z00_290 = 
MAKE_PAIR(BgL_arg1705z00_291, BgL_arg1706z00_292); } 
BgL_arg1699z00_289 = 
BGl_epairifyz00zztools_miscz00(BgL_arg1702z00_290, BgL_xz00_1); } 
BgL_arg1696z00_288 = 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_arg1699z00_289, BgL_ez00_2, BEOA); } 
BgL_arg1575z00_241 = 
MAKE_PAIR(BgL_arg1696z00_288, BgL_resz00_233); } 
BgL_arg1568z00_239 = 
MAKE_PAIR(BgL_arg1573z00_240, BgL_arg1575z00_241); } 
{ 
obj_t BgL_resz00_929;obj_t BgL_slotsz00_928;long BgL_iz00_927;
BgL_iz00_927 = BgL_arg1565z00_237; 
BgL_slotsz00_928 = BgL_arg1566z00_238; 
BgL_resz00_929 = BgL_arg1568z00_239; 
BgL_resz00_233 = BgL_resz00_929; 
BgL_slotsz00_232 = BgL_slotsz00_928; 
BgL_iz00_231 = BgL_iz00_927; 
goto BgL_loopz00_234;} } } } } 
BgL_arg1359z00_151 = 
MAKE_PAIR(BgL_arg1480z00_199, BgL_arg1481z00_200); } 
BgL_arg1033z00_20 = 
MAKE_PAIR(BgL_arg1358z00_150, BgL_arg1359z00_151); } 
BgL_arg1029z00_18 = 
MAKE_PAIR(BgL_arg1032z00_19, BgL_arg1033z00_20); } 
return 
MAKE_PAIR(BgL_arg1028z00_17, BgL_arg1029z00_18);} } } } } } }  else 
{ /* ./Expand/struct.scm 24 */
BgL_tagzd2102zd2_6:
FAILURE(BFALSE,BGl_string1950z00zzexpand_structz00,BgL_xz00_1);} } }  else 
{ /* ./Expand/struct.scm 24 */
goto BgL_tagzd2102zd2_6;} } } } 
}



/* _expand-struct1927 */
obj_t BGl__expandzd2struct1927zd2zzexpand_structz00(obj_t BgL_envz00_464, obj_t BgL_xz00_465, obj_t BgL_ez00_466)
{ AN_OBJECT;
{ /* ./Expand/struct.scm 23 */
return 
BGl_expandzd2structzd2zzexpand_structz00(BgL_xz00_465, BgL_ez00_466);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzexpand_structz00()
{ AN_OBJECT;
{ /* ./Expand/struct.scm 15 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "expand_struct"); 
return 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "expand_struct");} 
}

