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

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

static obj_t BGl_symbol3060z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3058z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3056z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31075ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__install_expandersz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__macroz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_quotez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_letz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_boolz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_casez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_definez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_doz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_tryz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_structz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_recordz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_srfizd20zd2(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expander_argsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__lalr_expandz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_expandz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__match_expandz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_hygienez00(long, char *);
extern obj_t BGl_normaliza7ezd2prognz75zz__prognz00(obj_t);
static obj_t BGl_symbol3054z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31285ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31987ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3052z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3050z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3048z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3046z00zz__install_expandersz00 = BUNSPEC;
extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31149ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3042z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3040z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3038z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3036z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31224ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3034z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3032z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3030z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3028z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3027z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3026z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3024z00zz__install_expandersz00 = BUNSPEC;
extern obj_t BGl_expandzd2andzd2zz__expander_boolz00(obj_t);
static obj_t BGl_symbol3022z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3020z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3018z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3016z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3014z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3013z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3012z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3011z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31499ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3009z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3007z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3005z00zz__install_expandersz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_installzd2allzd2expandersz12z12zz__install_expandersz00();
static obj_t BGl_symbol3003z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31993ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3001z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31082ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl__installzd2allzd2expandersz12z12zz__install_expandersz00(obj_t);
static obj_t BGl_zc3anonymousza31858ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t string_to_symbol(char *);
static obj_t BGl_zc3anonymousza31158ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2tryzd2zz__expander_tryz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31999ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2definezd2expanderz00zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31864ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31091ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31103ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31806ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31167ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_installzd2evalzd2expanderz00zz__macroz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31097ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2evalzd2definezd2structzd2zz__expander_structz00(obj_t, obj_t);
extern obj_t BGl_expandzd2evalzd2casez00zz__expander_casez00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31737ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31109ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_quasiquotationz00zz__expander_quotez00(obj_t, obj_t);
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
extern obj_t BGl_expandzd2definezd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
extern obj_t BGl_za2nilza2z00zz__evalz00;
extern obj_t BGl_expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31176ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31460ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31743ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2definezd2hygienezd2macrozd2zz__evalz00(obj_t, obj_t);
extern obj_t BGl_expandzd2dozd2zz__expander_doz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31955ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2matchzd2casez00zz__match_expandz00(obj_t);
static obj_t BGl_zc3anonymousza31610ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2definezd2patternz00zz__evalz00(obj_t);
extern obj_t BGl_installzd2expanderzd2zz__macroz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31401ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31119ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2definezd2macroz00zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31750ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2evalzd2letz00zz__expander_letz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31962ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__install_expandersz00();
static obj_t BGl_zc3anonymousza31543ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_expandzd2testzd2zz__install_expandersz00(obj_t, obj_t);
extern obj_t BGl_expandzd2orzd2zz__expander_boolz00(obj_t);
static obj_t BGl_zc3anonymousza31757ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31128ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31968ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31340ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2evalzd2letza2za2zz__expander_letz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32006ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2evalzd2letrecz00zz__expander_letz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__install_expandersz00();
static obj_t BGl_requirezd2initializa7ationz75zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31975ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31137ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32013ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
extern obj_t BGl_expandzd2letzd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
extern obj_t BGl_expandzd2condzd2expandz00zz__expander_srfizd20zd2(obj_t, obj_t);
extern obj_t BGl_expandzd2matchzd2lambdaz00zz__match_expandz00(obj_t);
extern obj_t BGl_expandzd2evalzd2definezd2inlinezd2zz__expander_definez00(obj_t, obj_t);
extern obj_t BGl_expandzd2evalzd2definez00zz__expander_definez00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31981ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31143ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2999z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol2997z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol2995z00zz__install_expandersz00 = BUNSPEC;
extern obj_t BGl_expandzd2condzd2zz__expander_boolz00(obj_t);
static obj_t BGl_zc3anonymousza32020ze3z83zz__install_expandersz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2993z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol2991z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol2989z00zz__install_expandersz00 = BUNSPEC;
extern obj_t BGl_expandzd2evalzd2labelsz00zz__expander_letz00(obj_t, obj_t);
static obj_t BGl_symbol3087z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol2987z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol2985z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol2983z00zz__install_expandersz00 = BUNSPEC;
extern obj_t BGl_expandzd2evalzd2lambdaz00zz__expander_definez00(obj_t, obj_t);
extern obj_t BGl_expandzd2quotezd2zz__expander_quotez00(obj_t, obj_t);
static obj_t BGl_symbol2982z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3081z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol2981z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol2979z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol2980z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3076z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3075z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3068z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3067z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3066z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3064z00zz__install_expandersz00 = BUNSPEC;
static obj_t BGl_symbol3062z00zz__install_expandersz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_STRING( BGl_string3088z00zz__install_expandersz00, BgL_bgl_string3088za700za7za7__install_expandersza7003094z00, "delay", 5 );
DEFINE_STRING( BGl_string3086z00zz__install_expandersz00, BgL_bgl_string3086za700za7za7__install_expandersza7003095z00, "begin", 5 );
DEFINE_STRING( BGl_string3085z00zz__install_expandersz00, BgL_bgl_string3085za700za7za7__install_expandersza7003096z00, "Illegal `failure' form", 22 );
DEFINE_STRING( BGl_string3084z00zz__install_expandersz00, BgL_bgl_string3084za700za7za7__install_expandersza7003097z00, "failure", 7 );
DEFINE_STRING( BGl_string3083z00zz__install_expandersz00, BgL_bgl_string3083za700za7za7__install_expandersza7003098z00, "multiple-value-bind", 19 );
DEFINE_STRING( BGl_string3082z00zz__install_expandersz00, BgL_bgl_string3082za700za7za7__install_expandersza7003099z00, "receive", 7 );
DEFINE_STRING( BGl_string3080z00zz__install_expandersz00, BgL_bgl_string3080za700za7za7__install_expandersza7003100z00, "when", 4 );
DEFINE_STRING( BGl_string3079z00zz__install_expandersz00, BgL_bgl_string3079za700za7za7__install_expandersza7003101z00, "unless", 6 );
DEFINE_STRING( BGl_string3078z00zz__install_expandersz00, BgL_bgl_string3078za700za7za7__install_expandersza7003102z00, ",", 1 );
DEFINE_STRING( BGl_string3077z00zz__install_expandersz00, BgL_bgl_string3077za700za7za7__install_expandersza7003103z00, ":", 1 );
DEFINE_STRING( BGl_string3074z00zz__install_expandersz00, BgL_bgl_string3074za700za7za7__install_expandersza7003104z00, "Illegal `and-let*' form", 23 );
DEFINE_STRING( BGl_string3073z00zz__install_expandersz00, BgL_bgl_string3073za700za7za7__install_expandersza7003105z00, "bind-exit", 9 );
DEFINE_STRING( BGl_string3072z00zz__install_expandersz00, BgL_bgl_string3072za700za7za7__install_expandersza7003106z00, "unwind-protect", 14 );
DEFINE_STRING( BGl_string3071z00zz__install_expandersz00, BgL_bgl_string3071za700za7za7__install_expandersza7003107z00, "if", 2 );
DEFINE_STRING( BGl_string3070z00zz__install_expandersz00, BgL_bgl_string3070za700za7za7__install_expandersza7003108z00, "Illegal form", 12 );
DEFINE_STRING( BGl_string3069z00zz__install_expandersz00, BgL_bgl_string3069za700za7za7__install_expandersza7003109z00, "profile", 7 );
extern obj_t BGl_expandzd2argszd2parsezd2envzd2zz__expander_argsz00;
extern obj_t BGl_expandzd2regularzd2grammarzd2envzd2zz__rgc_expandz00;
DEFINE_EXPORT_PROCEDURE( BGl_installzd2allzd2expandersz12zd2envzc0zz__install_expandersz00, BgL_bgl__installza7d2allza7d2expandersza712za712za7za7__install_expandersza7003110za7, BGl__installzd2allzd2expandersz12z12zz__install_expandersz00, 0L, 0 );
extern obj_t BGl_expandzd2lalrzd2grammarzd2envzd2zz__lalr_expandz00;
extern obj_t BGl_expandzd2definezd2recordzd2typezd2envz00zz__expander_recordz00;
DEFINE_STATIC_PROCEDURE( BGl_proc3000z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31137za7e3za783za7za7__install_expandersza7003111za7, BGl_zc3anonymousza31137ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3002z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31143za7e3za783za7za7__install_expandersza7003112za7, BGl_zc3anonymousza31143ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3004z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31149za7e3za783za7za7__install_expandersza7003113za7, BGl_zc3anonymousza31149ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3006z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31158za7e3za783za7za7__install_expandersza7003114za7, BGl_zc3anonymousza31158ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3008z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31167za7e3za783za7za7__install_expandersza7003115za7, BGl_zc3anonymousza31167ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3010z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31176za7e3za783za7za7__install_expandersza7003116za7, BGl_zc3anonymousza31176ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3015z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31224za7e3za783za7za7__install_expandersza7003117za7, BGl_zc3anonymousza31224ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3017z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31285za7e3za783za7za7__install_expandersza7003118za7, BGl_zc3anonymousza31285ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3019z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31340za7e3za783za7za7__install_expandersza7003119za7, BGl_zc3anonymousza31340ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3021z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31401za7e3za783za7za7__install_expandersza7003120za7, BGl_zc3anonymousza31401ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3023z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31460za7e3za783za7za7__install_expandersza7003121za7, BGl_zc3anonymousza31460ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3025z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31499za7e3za783za7za7__install_expandersza7003122za7, BGl_zc3anonymousza31499ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3029z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31543za7e3za783za7za7__install_expandersza7003123za7, BGl_zc3anonymousza31543ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3031z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31610za7e3za783za7za7__install_expandersza7003124za7, BGl_zc3anonymousza31610ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3033z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31737za7e3za783za7za7__install_expandersza7003125za7, BGl_zc3anonymousza31737ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3035z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31743za7e3za783za7za7__install_expandersza7003126za7, BGl_zc3anonymousza31743ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3037z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31750za7e3za783za7za7__install_expandersza7003127za7, BGl_zc3anonymousza31750ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3039z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31757za7e3za783za7za7__install_expandersza7003128za7, BGl_zc3anonymousza31757ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3041z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31806za7e3za783za7za7__install_expandersza7003129za7, BGl_zc3anonymousza31806ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3043z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31858za7e3za783za7za7__install_expandersza7003130za7, BGl_zc3anonymousza31858ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3044z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31864za7e3za783za7za7__install_expandersza7003131za7, BGl_zc3anonymousza31864ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3045z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31955za7e3za783za7za7__install_expandersza7003132za7, BGl_zc3anonymousza31955ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3047z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31962za7e3za783za7za7__install_expandersza7003133za7, BGl_zc3anonymousza31962ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3049z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31968za7e3za783za7za7__install_expandersza7003134za7, BGl_zc3anonymousza31968ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3051z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31975za7e3za783za7za7__install_expandersza7003135za7, BGl_zc3anonymousza31975ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3053z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31981za7e3za783za7za7__install_expandersza7003136za7, BGl_zc3anonymousza31981ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3055z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31987za7e3za783za7za7__install_expandersza7003137za7, BGl_zc3anonymousza31987ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3057z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31993za7e3za783za7za7__install_expandersza7003138za7, BGl_zc3anonymousza31993ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3059z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31999za7e3za783za7za7__install_expandersza7003139za7, BGl_zc3anonymousza31999ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3061z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a32006za7e3za783za7za7__install_expandersza7003140za7, BGl_zc3anonymousza32006ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3063z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a32013za7e3za783za7za7__install_expandersza7003141za7, BGl_zc3anonymousza32013ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3065z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a32020za7e3za783za7za7__install_expandersza7003142za7, BGl_zc3anonymousza32020ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc2984z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31075za7e3za783za7za7__install_expandersza7003143za7, BGl_zc3anonymousza31075ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc2986z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31082za7e3za783za7za7__install_expandersza7003144za7, BGl_zc3anonymousza31082ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc2988z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31091za7e3za783za7za7__install_expandersza7003145za7, BGl_zc3anonymousza31091ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc2990z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31097za7e3za783za7za7__install_expandersza7003146za7, BGl_zc3anonymousza31097ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc2992z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31103za7e3za783za7za7__install_expandersza7003147za7, BGl_zc3anonymousza31103ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc2994z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31109za7e3za783za7za7__install_expandersza7003148za7, BGl_zc3anonymousza31109ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc2996z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31119za7e3za783za7za7__install_expandersza7003149za7, BGl_zc3anonymousza31119ze3z83zz__install_expandersz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc2998z00zz__install_expandersz00, BgL_bgl_za7c3anonymousza7a31128za7e3za783za7za7__install_expandersza7003150za7, BGl_zc3anonymousza31128ze3z83zz__install_expandersz00, 0L, 2 );
extern obj_t BGl_expandzd2stringzd2casezd2envzd2zz__rgc_expandz00;



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__install_expandersz00(long BgL_checksumz00_1870, char * BgL_fromz00_1871)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__install_expandersz00))
{ 
BGl_requirezd2initializa7ationz75zz__install_expandersz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__install_expandersz00(); 
BGl_importedzd2moduleszd2initz00zz__install_expandersz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__install_expandersz00()
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 15 */
BGl_symbol2979z00zz__install_expandersz00 = 
string_to_symbol("lambda"); 
BGl_symbol2980z00zz__install_expandersz00 = 
string_to_symbol("test-aux-for-nil"); 
BGl_symbol2981z00zz__install_expandersz00 = 
string_to_symbol("if"); 
BGl_symbol2982z00zz__install_expandersz00 = 
string_to_symbol("null?"); 
BGl_symbol2983z00zz__install_expandersz00 = 
string_to_symbol("quote"); 
BGl_symbol2985z00zz__install_expandersz00 = 
string_to_symbol("quasiquote"); 
BGl_symbol2987z00zz__install_expandersz00 = 
string_to_symbol("define-macro"); 
BGl_symbol2989z00zz__install_expandersz00 = 
string_to_symbol("define-hygiene-macro"); 
BGl_symbol2991z00zz__install_expandersz00 = 
string_to_symbol("define-expander"); 
BGl_symbol2993z00zz__install_expandersz00 = 
string_to_symbol("or"); 
BGl_symbol2995z00zz__install_expandersz00 = 
string_to_symbol("and"); 
BGl_symbol2997z00zz__install_expandersz00 = 
string_to_symbol("cond"); 
BGl_symbol2999z00zz__install_expandersz00 = 
string_to_symbol("do"); 
BGl_symbol3001z00zz__install_expandersz00 = 
string_to_symbol("try"); 
BGl_symbol3003z00zz__install_expandersz00 = 
string_to_symbol("match-case"); 
BGl_symbol3005z00zz__install_expandersz00 = 
string_to_symbol("match-lambda"); 
BGl_symbol3007z00zz__install_expandersz00 = 
string_to_symbol("define-pattern"); 
BGl_symbol3009z00zz__install_expandersz00 = 
string_to_symbol("delay"); 
BGl_symbol3011z00zz__install_expandersz00 = 
string_to_symbol("regular-grammar"); 
BGl_symbol3012z00zz__install_expandersz00 = 
string_to_symbol("string-case"); 
BGl_symbol3013z00zz__install_expandersz00 = 
string_to_symbol("lalr-grammar"); 
BGl_symbol3014z00zz__install_expandersz00 = 
string_to_symbol("begin"); 
BGl_symbol3016z00zz__install_expandersz00 = 
string_to_symbol("failure"); 
BGl_symbol3018z00zz__install_expandersz00 = 
string_to_symbol("multiple-value-bind"); 
BGl_symbol3020z00zz__install_expandersz00 = 
string_to_symbol("receive"); 
BGl_symbol3022z00zz__install_expandersz00 = 
string_to_symbol("when"); 
BGl_symbol3024z00zz__install_expandersz00 = 
string_to_symbol("unless"); 
BGl_symbol3026z00zz__install_expandersz00 = 
string_to_symbol("define-record-type"); 
BGl_symbol3027z00zz__install_expandersz00 = 
string_to_symbol("args-parse"); 
BGl_symbol3028z00zz__install_expandersz00 = 
string_to_symbol("tprint"); 
BGl_symbol3030z00zz__install_expandersz00 = 
string_to_symbol("and-let*"); 
BGl_symbol3032z00zz__install_expandersz00 = 
string_to_symbol("define-syntax"); 
BGl_symbol3034z00zz__install_expandersz00 = 
string_to_symbol("letrec-syntax"); 
BGl_symbol3036z00zz__install_expandersz00 = 
string_to_symbol("let-syntax"); 
BGl_symbol3038z00zz__install_expandersz00 = 
string_to_symbol("bind-exit"); 
BGl_symbol3040z00zz__install_expandersz00 = 
string_to_symbol("unwind-protect"); 
BGl_symbol3042z00zz__install_expandersz00 = 
string_to_symbol("module"); 
BGl_symbol3046z00zz__install_expandersz00 = 
string_to_symbol("let"); 
BGl_symbol3048z00zz__install_expandersz00 = 
string_to_symbol("let*"); 
BGl_symbol3050z00zz__install_expandersz00 = 
string_to_symbol("letrec"); 
BGl_symbol3052z00zz__install_expandersz00 = 
string_to_symbol("labels"); 
BGl_symbol3054z00zz__install_expandersz00 = 
string_to_symbol("define"); 
BGl_symbol3056z00zz__install_expandersz00 = 
string_to_symbol("define-inline"); 
BGl_symbol3058z00zz__install_expandersz00 = 
string_to_symbol("define-struct"); 
BGl_symbol3060z00zz__install_expandersz00 = 
string_to_symbol("case"); 
BGl_symbol3062z00zz__install_expandersz00 = 
string_to_symbol("cond-expand"); 
BGl_symbol3064z00zz__install_expandersz00 = 
string_to_symbol("profile"); 
BGl_symbol3066z00zz__install_expandersz00 = 
string_to_symbol("value"); 
BGl_symbol3067z00zz__install_expandersz00 = 
string_to_symbol("GC-profile-push"); 
BGl_symbol3068z00zz__install_expandersz00 = 
string_to_symbol("GC-profile-pop"); 
BGl_symbol3075z00zz__install_expandersz00 = 
string_to_symbol("print"); 
BGl_symbol3076z00zz__install_expandersz00 = 
string_to_symbol("at"); 
BGl_symbol3081z00zz__install_expandersz00 = 
string_to_symbol("call-with-values"); 
return ( 
BGl_symbol3087z00zz__install_expandersz00 = 
string_to_symbol("make-promise"), BUNSPEC) ;} 
}



/* expand-test */
obj_t BGl_expandzd2testzd2zz__install_expandersz00(obj_t BgL_xz00_1, obj_t BgL_ez00_2)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 70 */
if(
CBOOL(BGl_za2nilza2z00zz__evalz00))
{ /* ./Eval/expanders.scm 71 */
return 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_xz00_1, BgL_ez00_2, BEOA);}  else 
{ /* ./Eval/expanders.scm 73 */
obj_t BgL_arg1016z00_361;obj_t BgL_arg1017z00_362;
{ /* ./Eval/expanders.scm 73 */
obj_t BgL_arg1020z00_363;obj_t BgL_arg1021z00_364;
BgL_arg1020z00_363 = BGl_symbol2979z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 73 */
obj_t BgL_arg1024z00_365;obj_t BgL_arg1025z00_366;
BgL_arg1024z00_365 = 
MAKE_PAIR(BGl_symbol2980z00zz__install_expandersz00, BNIL); 
{ /* ./Eval/expanders.scm 74 */
obj_t BgL_arg1029z00_367;
{ /* ./Eval/expanders.scm 74 */
obj_t BgL_arg1033z00_369;obj_t BgL_arg1034z00_370;
BgL_arg1033z00_369 = BGl_symbol2981z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 74 */
obj_t BgL_arg1037z00_371;obj_t BgL_arg1038z00_372;
BgL_arg1037z00_371 = BGl_symbol2980z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 75 */
obj_t BgL_arg1041z00_373;obj_t BgL_arg1042z00_374;
{ /* ./Eval/expanders.scm 75 */
obj_t BgL_arg1045z00_375;obj_t BgL_arg1046z00_376;
BgL_arg1045z00_375 = BGl_symbol2981z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 75 */
obj_t BgL_arg1049z00_377;obj_t BgL_arg1050z00_378;
{ /* ./Eval/expanders.scm 75 */
obj_t BgL_arg1053z00_379;obj_t BgL_arg1054z00_380;
BgL_arg1053z00_379 = BGl_symbol2982z00zz__install_expandersz00; 
BgL_arg1054z00_380 = 
MAKE_PAIR(BGl_symbol2980z00zz__install_expandersz00, BNIL); 
BgL_arg1049z00_377 = 
MAKE_PAIR(BgL_arg1053z00_379, BgL_arg1054z00_380); } 
{ /* ./Eval/expanders.scm 75 */
obj_t BgL_arg1058z00_381;
BgL_arg1058z00_381 = 
MAKE_PAIR(BTRUE, BNIL); 
BgL_arg1050z00_378 = 
MAKE_PAIR(BFALSE, BgL_arg1058z00_381); } 
BgL_arg1046z00_376 = 
MAKE_PAIR(BgL_arg1049z00_377, BgL_arg1050z00_378); } 
BgL_arg1041z00_373 = 
MAKE_PAIR(BgL_arg1045z00_375, BgL_arg1046z00_376); } 
BgL_arg1042z00_374 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg1038z00_372 = 
MAKE_PAIR(BgL_arg1041z00_373, BgL_arg1042z00_374); } 
BgL_arg1034z00_370 = 
MAKE_PAIR(BgL_arg1037z00_371, BgL_arg1038z00_372); } 
BgL_arg1029z00_367 = 
MAKE_PAIR(BgL_arg1033z00_369, BgL_arg1034z00_370); } 
BgL_arg1025z00_366 = 
MAKE_PAIR(BgL_arg1029z00_367, BNIL); } 
BgL_arg1021z00_364 = 
MAKE_PAIR(BgL_arg1024z00_365, BgL_arg1025z00_366); } 
BgL_arg1016z00_361 = 
MAKE_PAIR(BgL_arg1020z00_363, BgL_arg1021z00_364); } 
{ /* ./Eval/expanders.scm 79 */
obj_t BgL_arg1064z00_382;
BgL_arg1064z00_382 = 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_xz00_1, BgL_ez00_2, BEOA); 
BgL_arg1017z00_362 = 
MAKE_PAIR(BgL_arg1064z00_382, BNIL); } 
return 
MAKE_PAIR(BgL_arg1016z00_361, BgL_arg1017z00_362);} } 
}



/* install-all-expanders! */
BGL_EXPORTED_DEF obj_t BGl_installzd2allzd2expandersz12z12zz__install_expandersz00()
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 90 */
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol2983z00zz__install_expandersz00, BGl_proc2984z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol2985z00zz__install_expandersz00, BGl_proc2986z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol2987z00zz__install_expandersz00, BGl_proc2988z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol2989z00zz__install_expandersz00, BGl_proc2990z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol2991z00zz__install_expandersz00, BGl_proc2992z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol2993z00zz__install_expandersz00, BGl_proc2994z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol2995z00zz__install_expandersz00, BGl_proc2996z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol2997z00zz__install_expandersz00, BGl_proc2998z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol2999z00zz__install_expandersz00, BGl_proc3000z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3001z00zz__install_expandersz00, BGl_proc3002z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3003z00zz__install_expandersz00, BGl_proc3004z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3005z00zz__install_expandersz00, BGl_proc3006z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3007z00zz__install_expandersz00, BGl_proc3008z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3009z00zz__install_expandersz00, BGl_proc3010z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3011z00zz__install_expandersz00, BGl_expandzd2regularzd2grammarzd2envzd2zz__rgc_expandz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3012z00zz__install_expandersz00, BGl_expandzd2stringzd2casezd2envzd2zz__rgc_expandz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3013z00zz__install_expandersz00, BGl_expandzd2lalrzd2grammarzd2envzd2zz__lalr_expandz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3014z00zz__install_expandersz00, BGl_proc3015z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3016z00zz__install_expandersz00, BGl_proc3017z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3018z00zz__install_expandersz00, BGl_proc3019z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3020z00zz__install_expandersz00, BGl_proc3021z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3022z00zz__install_expandersz00, BGl_proc3023z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3024z00zz__install_expandersz00, BGl_proc3025z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3026z00zz__install_expandersz00, BGl_expandzd2definezd2recordzd2typezd2envz00zz__expander_recordz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3027z00zz__install_expandersz00, BGl_expandzd2argszd2parsezd2envzd2zz__expander_argsz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3028z00zz__install_expandersz00, BGl_proc3029z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3030z00zz__install_expandersz00, BGl_proc3031z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3032z00zz__install_expandersz00, BGl_proc3033z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3034z00zz__install_expandersz00, BGl_proc3035z00zz__install_expandersz00); 
BGl_installzd2expanderzd2zz__macroz00(BGl_symbol3036z00zz__install_expandersz00, BGl_proc3037z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3038z00zz__install_expandersz00, BGl_proc3039z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3040z00zz__install_expandersz00, BGl_proc3041z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3042z00zz__install_expandersz00, BGl_proc3043z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol2981z00zz__install_expandersz00, BGl_proc3044z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol2979z00zz__install_expandersz00, BGl_proc3045z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3046z00zz__install_expandersz00, BGl_proc3047z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3048z00zz__install_expandersz00, BGl_proc3049z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3050z00zz__install_expandersz00, BGl_proc3051z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3052z00zz__install_expandersz00, BGl_proc3053z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3054z00zz__install_expandersz00, BGl_proc3055z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3056z00zz__install_expandersz00, BGl_proc3057z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3058z00zz__install_expandersz00, BGl_proc3059z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3060z00zz__install_expandersz00, BGl_proc3061z00zz__install_expandersz00); 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3062z00zz__install_expandersz00, BGl_proc3063z00zz__install_expandersz00); 
return 
BGl_installzd2evalzd2expanderz00zz__macroz00(BGl_symbol3064z00zz__install_expandersz00, BGl_proc3065z00zz__install_expandersz00);} 
}



/* _install-all-expanders! */
obj_t BGl__installzd2allzd2expandersz12z12zz__install_expandersz00(obj_t BgL_envz00_1694)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 90 */
return 
BGl_installzd2allzd2expandersz12z12zz__install_expandersz00();} 
}



/* <anonymous:2020> */
obj_t BGl_zc3anonymousza32020ze3z83zz__install_expandersz00(obj_t BgL_envz00_1695, obj_t BgL_xz00_1696, obj_t BgL_ez00_1697)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 382 */
{ 
obj_t BgL_xz00_981;obj_t BgL_ez00_982;
BgL_xz00_981 = BgL_xz00_1696; 
BgL_ez00_982 = BgL_ez00_1697; 
{ 
obj_t BgL_lblz00_984;obj_t BgL_exprsz00_985;
if(
PAIRP(BgL_xz00_981))
{ /* ./Eval/expanders.scm 382 */
obj_t BgL_cdrzd2409zd2_990;
BgL_cdrzd2409zd2_990 = 
CDR(BgL_xz00_981); 
if(
PAIRP(BgL_cdrzd2409zd2_990))
{ /* ./Eval/expanders.scm 382 */
obj_t BgL_carzd2412zd2_992;
BgL_carzd2412zd2_992 = 
CAR(BgL_cdrzd2409zd2_990); 
if(
SYMBOLP(BgL_carzd2412zd2_992))
{ /* ./Eval/expanders.scm 382 */
BgL_lblz00_984 = BgL_carzd2412zd2_992; 
BgL_exprsz00_985 = 
CDR(BgL_cdrzd2409zd2_990); 
{ /* ./Eval/expanders.scm 385 */
obj_t BgL_laz00_995;
{ /* ./Eval/expanders.scm 385 */
obj_t BgL_arg2123z00_1035;obj_t BgL_arg2124z00_1036;
BgL_arg2123z00_1035 = BGl_symbol2979z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 385 */
obj_t BgL_auxz00_2007;
BgL_auxz00_2007 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprsz00_985, BNIL); 
BgL_arg2124z00_1036 = 
MAKE_PAIR(BNIL, BgL_auxz00_2007); } 
BgL_laz00_995 = 
MAKE_PAIR(BgL_arg2123z00_1035, BgL_arg2124z00_1036); } 
{ /* ./Eval/expanders.scm 385 */
obj_t BgL_lamz00_996;
{ /* ./Eval/expanders.scm 386 */
bool_t BgL_test2111z00_1031;
BgL_test2111z00_1031 = 
EXTENDED_PAIRP(BgL_xz00_981); 
if(BgL_test2111z00_1031)
{ /* ./Eval/expanders.scm 387 */
obj_t BgL_arg2113z00_1032;obj_t BgL_arg2115z00_1033;obj_t BgL_arg2116z00_1034;
BgL_arg2113z00_1032 = 
CAR(BgL_laz00_995); 
BgL_arg2115z00_1033 = 
CDR(BgL_laz00_995); 
BgL_arg2116z00_1034 = 
CER(BgL_xz00_981); 
{ /* ./Eval/expanders.scm 387 */
obj_t BgL_res2797z00_1634;
BgL_res2797z00_1634 = 
MAKE_EXTENDED_PAIR(BgL_arg2113z00_1032, BgL_arg2115z00_1033, BgL_arg2116z00_1034); 
BgL_lamz00_996 = BgL_res2797z00_1634; } }  else 
{ /* ./Eval/expanders.scm 386 */
BgL_lamz00_996 = BgL_laz00_995; } } 
{ /* ./Eval/expanders.scm 386 */
obj_t BgL_valz00_997;
{ /* ./Eval/expanders.scm 391 */
obj_t BgL_symz00_1030;
BgL_symz00_1030 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol3066z00zz__install_expandersz00, BEOA); 
BgL_valz00_997 = BgL_symz00_1030; } 
{ /* ./Eval/expanders.scm 391 */
obj_t BgL_auxz00_998;
{ /* ./Eval/expanders.scm 393 */
obj_t BgL_arg2049z00_1004;obj_t BgL_arg2050z00_1005;
BgL_arg2049z00_1004 = BGl_symbol3046z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 393 */
obj_t BgL_arg2053z00_1006;obj_t BgL_arg2054z00_1007;
{ /* ./Eval/expanders.scm 393 */
obj_t BgL_arg2057z00_1008;
{ /* ./Eval/expanders.scm 393 */
obj_t BgL_arg2061z00_1010;
BgL_arg2061z00_1010 = 
MAKE_PAIR(BgL_lamz00_996, BNIL); 
BgL_arg2057z00_1008 = 
MAKE_PAIR(BgL_lblz00_984, BgL_arg2061z00_1010); } 
BgL_arg2053z00_1006 = 
MAKE_PAIR(BgL_arg2057z00_1008, BNIL); } 
{ /* ./Eval/expanders.scm 394 */
obj_t BgL_arg2065z00_1011;obj_t BgL_arg2066z00_1012;
{ /* ./Eval/expanders.scm 394 */
obj_t BgL_arg2069z00_1013;obj_t BgL_arg2070z00_1014;
BgL_arg2069z00_1013 = BGl_symbol3067z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 395 */
obj_t BgL_arg2073z00_1015;obj_t BgL_arg2074z00_1016;
BgL_arg2073z00_1015 = 
SYMBOL_TO_STRING(BgL_lblz00_984); 
BgL_arg2074z00_1016 = 
MAKE_PAIR(BgL_lblz00_984, BNIL); 
BgL_arg2070z00_1014 = 
MAKE_PAIR(BgL_arg2073z00_1015, BgL_arg2074z00_1016); } 
BgL_arg2065z00_1011 = 
MAKE_PAIR(BgL_arg2069z00_1013, BgL_arg2070z00_1014); } 
{ /* ./Eval/expanders.scm 397 */
obj_t BgL_arg2080z00_1017;
{ /* ./Eval/expanders.scm 397 */
obj_t BgL_arg2084z00_1019;obj_t BgL_arg2085z00_1020;
BgL_arg2084z00_1019 = BGl_symbol3046z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 397 */
obj_t BgL_arg2088z00_1021;obj_t BgL_arg2089z00_1022;
{ /* ./Eval/expanders.scm 397 */
obj_t BgL_arg2092z00_1023;
{ /* ./Eval/expanders.scm 397 */
obj_t BgL_arg2096z00_1025;
{ /* ./Eval/expanders.scm 397 */
obj_t BgL_arg2099z00_1026;
BgL_arg2099z00_1026 = 
MAKE_PAIR(BgL_lblz00_984, BNIL); 
BgL_arg2096z00_1025 = 
MAKE_PAIR(BgL_arg2099z00_1026, BNIL); } 
BgL_arg2092z00_1023 = 
MAKE_PAIR(BgL_valz00_997, BgL_arg2096z00_1025); } 
BgL_arg2088z00_1021 = 
MAKE_PAIR(BgL_arg2092z00_1023, BNIL); } 
{ /* ./Eval/expanders.scm 398 */
obj_t BgL_arg2105z00_1028;obj_t BgL_arg2106z00_1029;
BgL_arg2105z00_1028 = 
MAKE_PAIR(BGl_symbol3068z00zz__install_expandersz00, BNIL); 
BgL_arg2106z00_1029 = 
MAKE_PAIR(BgL_valz00_997, BNIL); 
BgL_arg2089z00_1022 = 
MAKE_PAIR(BgL_arg2105z00_1028, BgL_arg2106z00_1029); } 
BgL_arg2085z00_1020 = 
MAKE_PAIR(BgL_arg2088z00_1021, BgL_arg2089z00_1022); } 
BgL_arg2080z00_1017 = 
MAKE_PAIR(BgL_arg2084z00_1019, BgL_arg2085z00_1020); } 
BgL_arg2066z00_1012 = 
MAKE_PAIR(BgL_arg2080z00_1017, BNIL); } 
BgL_arg2054z00_1007 = 
MAKE_PAIR(BgL_arg2065z00_1011, BgL_arg2066z00_1012); } 
BgL_arg2050z00_1005 = 
MAKE_PAIR(BgL_arg2053z00_1006, BgL_arg2054z00_1007); } 
BgL_auxz00_998 = 
MAKE_PAIR(BgL_arg2049z00_1004, BgL_arg2050z00_1005); } 
{ /* ./Eval/expanders.scm 393 */
obj_t BgL_resz00_999;
{ /* ./Eval/expanders.scm 400 */
bool_t BgL_test2038z00_1000;
BgL_test2038z00_1000 = 
EXTENDED_PAIRP(BgL_xz00_981); 
if(BgL_test2038z00_1000)
{ /* ./Eval/expanders.scm 401 */
obj_t BgL_arg2040z00_1001;obj_t BgL_arg2041z00_1002;obj_t BgL_arg2042z00_1003;
BgL_arg2040z00_1001 = 
CAR(BgL_auxz00_998); 
BgL_arg2041z00_1002 = 
CDR(BgL_auxz00_998); 
BgL_arg2042z00_1003 = 
CER(BgL_xz00_981); 
{ /* ./Eval/expanders.scm 401 */
obj_t BgL_res2798z00_1643;
BgL_res2798z00_1643 = 
MAKE_EXTENDED_PAIR(BgL_arg2040z00_1001, BgL_arg2041z00_1002, BgL_arg2042z00_1003); 
BgL_resz00_999 = BgL_res2798z00_1643; } }  else 
{ /* ./Eval/expanders.scm 400 */
BgL_resz00_999 = BgL_auxz00_998; } } 
{ /* ./Eval/expanders.scm 400 */

return 
PROCEDURE_ENTRY(BgL_ez00_982)(BgL_ez00_982, BgL_auxz00_998, BgL_ez00_982, BEOA);} } } } } } }  else 
{ /* ./Eval/expanders.scm 382 */
FAILURE(BGl_string3069z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_981);} }  else 
{ /* ./Eval/expanders.scm 382 */
FAILURE(BGl_string3069z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_981);} }  else 
{ /* ./Eval/expanders.scm 382 */
FAILURE(BGl_string3069z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_981);} } } } 
}



/* <anonymous:2013> */
obj_t BGl_zc3anonymousza32013ze3z83zz__install_expandersz00(obj_t BgL_envz00_1698, obj_t BgL_xz00_1699, obj_t BgL_ez00_1700)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 377 */
return 
BGl_expandzd2condzd2expandz00zz__expander_srfizd20zd2(BgL_xz00_1699, BgL_ez00_1700);} 
}



/* <anonymous:2006> */
obj_t BGl_zc3anonymousza32006ze3z83zz__install_expandersz00(obj_t BgL_envz00_1701, obj_t BgL_xz00_1702, obj_t BgL_ez00_1703)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 374 */
return 
BGl_expandzd2evalzd2casez00zz__expander_casez00(BgL_xz00_1702, BgL_ez00_1703);} 
}



/* <anonymous:1999> */
obj_t BGl_zc3anonymousza31999ze3z83zz__install_expandersz00(obj_t BgL_envz00_1704, obj_t BgL_xz00_1705, obj_t BgL_ez00_1706)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 370 */
return 
BGl_expandzd2evalzd2definezd2structzd2zz__expander_structz00(BgL_xz00_1705, BgL_ez00_1706);} 
}



/* <anonymous:1993> */
obj_t BGl_zc3anonymousza31993ze3z83zz__install_expandersz00(obj_t BgL_envz00_1707, obj_t BgL_xz00_1708, obj_t BgL_ez00_1709)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 366 */
return 
BGl_expandzd2evalzd2definezd2inlinezd2zz__expander_definez00(BgL_xz00_1708, BgL_ez00_1709);} 
}



/* <anonymous:1987> */
obj_t BGl_zc3anonymousza31987ze3z83zz__install_expandersz00(obj_t BgL_envz00_1710, obj_t BgL_xz00_1711, obj_t BgL_ez00_1712)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 363 */
return 
BGl_expandzd2evalzd2definez00zz__expander_definez00(BgL_xz00_1711, BgL_ez00_1712);} 
}



/* <anonymous:1981> */
obj_t BGl_zc3anonymousza31981ze3z83zz__install_expandersz00(obj_t BgL_envz00_1713, obj_t BgL_xz00_1714, obj_t BgL_ez00_1715)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 360 */
return 
BGl_expandzd2evalzd2labelsz00zz__expander_letz00(BgL_xz00_1714, BgL_ez00_1715);} 
}



/* <anonymous:1975> */
obj_t BGl_zc3anonymousza31975ze3z83zz__install_expandersz00(obj_t BgL_envz00_1716, obj_t BgL_xz00_1717, obj_t BgL_ez00_1718)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 357 */
return 
BGl_expandzd2evalzd2letrecz00zz__expander_letz00(BgL_xz00_1717, BgL_ez00_1718);} 
}



/* <anonymous:1968> */
obj_t BGl_zc3anonymousza31968ze3z83zz__install_expandersz00(obj_t BgL_envz00_1719, obj_t BgL_xz00_1720, obj_t BgL_ez00_1721)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 354 */
return 
BGl_expandzd2evalzd2letza2za2zz__expander_letz00(BgL_xz00_1720, BgL_ez00_1721);} 
}



/* <anonymous:1962> */
obj_t BGl_zc3anonymousza31962ze3z83zz__install_expandersz00(obj_t BgL_envz00_1722, obj_t BgL_xz00_1723, obj_t BgL_ez00_1724)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 351 */
return 
BGl_expandzd2evalzd2letz00zz__expander_letz00(BgL_xz00_1723, BgL_ez00_1724);} 
}



/* <anonymous:1955> */
obj_t BGl_zc3anonymousza31955ze3z83zz__install_expandersz00(obj_t BgL_envz00_1725, obj_t BgL_xz00_1726, obj_t BgL_ez00_1727)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 348 */
return 
BGl_expandzd2evalzd2lambdaz00zz__expander_definez00(BgL_xz00_1726, BgL_ez00_1727);} 
}



/* <anonymous:1864> */
obj_t BGl_zc3anonymousza31864ze3z83zz__install_expandersz00(obj_t BgL_envz00_1728, obj_t BgL_xz00_1729, obj_t BgL_ez00_1730)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 334 */
{ 
obj_t BgL_xz00_871;obj_t BgL_ez00_872;
BgL_xz00_871 = BgL_xz00_1729; 
BgL_ez00_872 = BgL_ez00_1730; 
if(
PAIRP(BgL_xz00_871))
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_cdrzd2340zd2_884;
BgL_cdrzd2340zd2_884 = 
CDR(BgL_xz00_871); 
{ /* ./Eval/expanders.scm 334 */
bool_t BgL_testz00_2064;
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_auxz00_2065;
BgL_auxz00_2065 = 
CAR(BgL_xz00_871); 
BgL_testz00_2064 = 
(BgL_auxz00_2065==BGl_symbol2981z00zz__install_expandersz00); } 
if(BgL_testz00_2064)
{ /* ./Eval/expanders.scm 334 */
if(
PAIRP(BgL_cdrzd2340zd2_884))
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_cdrzd2345zd2_887;
BgL_cdrzd2345zd2_887 = 
CDR(BgL_cdrzd2340zd2_884); 
if(
PAIRP(BgL_cdrzd2345zd2_887))
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_cdrzd2350zd2_889;
BgL_cdrzd2350zd2_889 = 
CDR(BgL_cdrzd2345zd2_887); 
if(
PAIRP(BgL_cdrzd2350zd2_889))
{ /* ./Eval/expanders.scm 334 */
bool_t BgL_testz00_2076;
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_auxz00_2077;
BgL_auxz00_2077 = 
CDR(BgL_cdrzd2350zd2_889); 
BgL_testz00_2076 = 
NULLP(BgL_auxz00_2077); } 
if(BgL_testz00_2076)
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_arg1872z00_892;obj_t BgL_arg1873z00_893;obj_t BgL_arg1874z00_894;
BgL_arg1872z00_892 = 
CAR(BgL_cdrzd2340zd2_884); 
BgL_arg1873z00_893 = 
CAR(BgL_cdrzd2345zd2_887); 
BgL_arg1874z00_894 = 
CAR(BgL_cdrzd2350zd2_889); 
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_arg1915z00_1555;obj_t BgL_arg1916z00_1556;
BgL_arg1915z00_1555 = BGl_symbol2981z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_arg1919z00_1557;obj_t BgL_arg1920z00_1558;
BgL_arg1919z00_1557 = 
BGl_expandzd2testzd2zz__install_expandersz00(BgL_arg1872z00_892, BgL_ez00_872); 
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_arg1924z00_1559;obj_t BgL_arg1925z00_1560;
BgL_arg1924z00_1559 = 
PROCEDURE_ENTRY(BgL_ez00_872)(BgL_ez00_872, BgL_arg1873z00_893, BgL_ez00_872, BEOA); 
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_arg1930z00_1561;
BgL_arg1930z00_1561 = 
PROCEDURE_ENTRY(BgL_ez00_872)(BgL_ez00_872, BgL_arg1874z00_894, BgL_ez00_872, BEOA); 
BgL_arg1925z00_1560 = 
MAKE_PAIR(BgL_arg1930z00_1561, BNIL); } 
BgL_arg1920z00_1558 = 
MAKE_PAIR(BgL_arg1924z00_1559, BgL_arg1925z00_1560); } 
BgL_arg1916z00_1556 = 
MAKE_PAIR(BgL_arg1919z00_1557, BgL_arg1920z00_1558); } 
return 
MAKE_PAIR(BgL_arg1915z00_1555, BgL_arg1916z00_1556);} }  else 
{ /* ./Eval/expanders.scm 334 */
FAILURE(BGl_string3071z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_871);} }  else 
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_cdrzd2375zd2_897;
BgL_cdrzd2375zd2_897 = 
CDR(BgL_cdrzd2340zd2_884); 
{ /* ./Eval/expanders.scm 334 */
bool_t BgL_testz00_2094;
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_auxz00_2095;
BgL_auxz00_2095 = 
CDR(BgL_cdrzd2375zd2_897); 
BgL_testz00_2094 = 
NULLP(BgL_auxz00_2095); } 
if(BgL_testz00_2094)
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_arg1886z00_899;obj_t BgL_arg1887z00_900;
BgL_arg1886z00_899 = 
CAR(BgL_cdrzd2340zd2_884); 
BgL_arg1887z00_900 = 
CAR(BgL_cdrzd2375zd2_897); 
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_arg1935z00_1574;obj_t BgL_arg1936z00_1575;
BgL_arg1935z00_1574 = BGl_symbol2981z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_arg1939z00_1576;obj_t BgL_arg1941z00_1577;
BgL_arg1939z00_1576 = 
BGl_expandzd2testzd2zz__install_expandersz00(BgL_arg1886z00_899, BgL_ez00_872); 
{ /* ./Eval/expanders.scm 334 */
obj_t BgL_arg1945z00_1578;obj_t BgL_arg1946z00_1579;
BgL_arg1945z00_1578 = 
PROCEDURE_ENTRY(BgL_ez00_872)(BgL_ez00_872, BgL_arg1887z00_900, BgL_ez00_872, BEOA); 
BgL_arg1946z00_1579 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg1941z00_1577 = 
MAKE_PAIR(BgL_arg1945z00_1578, BgL_arg1946z00_1579); } 
BgL_arg1936z00_1575 = 
MAKE_PAIR(BgL_arg1939z00_1576, BgL_arg1941z00_1577); } 
return 
MAKE_PAIR(BgL_arg1935z00_1574, BgL_arg1936z00_1575);} }  else 
{ /* ./Eval/expanders.scm 334 */
FAILURE(BGl_string3071z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_871);} } } }  else 
{ /* ./Eval/expanders.scm 334 */
FAILURE(BGl_string3071z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_871);} }  else 
{ /* ./Eval/expanders.scm 334 */
FAILURE(BGl_string3071z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_871);} }  else 
{ /* ./Eval/expanders.scm 334 */
FAILURE(BGl_string3071z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_871);} } }  else 
{ /* ./Eval/expanders.scm 334 */
FAILURE(BGl_string3071z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_871);} } } 
}



/* <anonymous:1858> */
obj_t BGl_zc3anonymousza31858ze3z83zz__install_expandersz00(obj_t BgL_envz00_1731, obj_t BgL_xz00_1732, obj_t BgL_ez00_1733)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 331 */
return BgL_xz00_1732;} 
}



/* <anonymous:1806> */
obj_t BGl_zc3anonymousza31806ze3z83zz__install_expandersz00(obj_t BgL_envz00_1734, obj_t BgL_xz00_1735, obj_t BgL_ez00_1736)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 317 */
{ 
obj_t BgL_xz00_831;obj_t BgL_ez00_832;
BgL_xz00_831 = BgL_xz00_1735; 
BgL_ez00_832 = BgL_ez00_1736; 
{ 
obj_t BgL_bodyz00_834;obj_t BgL_expz00_835;
if(
PAIRP(BgL_xz00_831))
{ /* ./Eval/expanders.scm 317 */
obj_t BgL_cdrzd2322zd2_840;
BgL_cdrzd2322zd2_840 = 
CDR(BgL_xz00_831); 
if(
PAIRP(BgL_cdrzd2322zd2_840))
{ /* ./Eval/expanders.scm 317 */
BgL_bodyz00_834 = 
CAR(BgL_cdrzd2322zd2_840); 
BgL_expz00_835 = 
CDR(BgL_cdrzd2322zd2_840); 
{ /* ./Eval/expanders.scm 320 */
obj_t BgL_arg1821z00_844;obj_t BgL_arg1822z00_845;
BgL_arg1821z00_844 = BGl_symbol3040z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 321 */
obj_t BgL_arg1825z00_846;obj_t BgL_arg1826z00_847;
BgL_arg1825z00_846 = 
PROCEDURE_ENTRY(BgL_ez00_832)(BgL_ez00_832, BgL_bodyz00_834, BgL_ez00_832, BEOA); 
{ /* ./Eval/expanders.scm 322 */
obj_t BgL_arg1830z00_848;
if(
NULLP(BgL_expz00_835))
{ /* ./Eval/expanders.scm 322 */
BgL_arg1830z00_848 = BNIL; }  else 
{ /* ./Eval/expanders.scm 322 */
obj_t BgL_head1010z00_852;
BgL_head1010z00_852 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1008z00_853;obj_t BgL_tail1011z00_854;
BgL_l1008z00_853 = BgL_expz00_835; 
BgL_tail1011z00_854 = BgL_head1010z00_852; 
BgL_map1009z00_855:
if(
NULLP(BgL_l1008z00_853))
{ /* ./Eval/expanders.scm 322 */
BgL_arg1830z00_848 = 
CDR(BgL_head1010z00_852); }  else 
{ /* ./Eval/expanders.scm 323 */
obj_t BgL_newtail1012z00_857;
{ /* ./Eval/expanders.scm 323 */
obj_t BgL_arg1845z00_859;
{ /* ./Eval/expanders.scm 323 */
obj_t BgL_xz00_861;
BgL_xz00_861 = 
CAR(BgL_l1008z00_853); 
BgL_arg1845z00_859 = 
PROCEDURE_ENTRY(BgL_ez00_832)(BgL_ez00_832, BgL_xz00_861, BgL_ez00_832, BEOA); } 
BgL_newtail1012z00_857 = 
MAKE_PAIR(BgL_arg1845z00_859, BNIL); } 
SET_CDR(BgL_tail1011z00_854, BgL_newtail1012z00_857); 
{ 
obj_t BgL_tail1011z00_2132;obj_t BgL_l1008z00_2130;
BgL_l1008z00_2130 = 
CDR(BgL_l1008z00_853); 
BgL_tail1011z00_2132 = BgL_newtail1012z00_857; 
BgL_tail1011z00_854 = BgL_tail1011z00_2132; 
BgL_l1008z00_853 = BgL_l1008z00_2130; 
goto BgL_map1009z00_855;} } } } 
BgL_arg1826z00_847 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1830z00_848, BNIL); } 
BgL_arg1822z00_845 = 
MAKE_PAIR(BgL_arg1825z00_846, BgL_arg1826z00_847); } 
return 
MAKE_PAIR(BgL_arg1821z00_844, BgL_arg1822z00_845);} }  else 
{ /* ./Eval/expanders.scm 317 */
FAILURE(BGl_string3072z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_831);} }  else 
{ /* ./Eval/expanders.scm 317 */
FAILURE(BGl_string3072z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_831);} } } } 
}



/* <anonymous:1757> */
obj_t BGl_zc3anonymousza31757ze3z83zz__install_expandersz00(obj_t BgL_envz00_1737, obj_t BgL_xz00_1738, obj_t BgL_ez00_1739)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 305 */
{ 
obj_t BgL_xz00_803;obj_t BgL_ez00_804;
BgL_xz00_803 = BgL_xz00_1738; 
BgL_ez00_804 = BgL_ez00_1739; 
if(
PAIRP(BgL_xz00_803))
{ /* ./Eval/expanders.scm 305 */
obj_t BgL_cdrzd2303zd2_812;
BgL_cdrzd2303zd2_812 = 
CDR(BgL_xz00_803); 
if(
PAIRP(BgL_cdrzd2303zd2_812))
{ /* ./Eval/expanders.scm 305 */
obj_t BgL_carzd2306zd2_814;obj_t BgL_cdrzd2307zd2_815;
BgL_carzd2306zd2_814 = 
CAR(BgL_cdrzd2303zd2_812); 
BgL_cdrzd2307zd2_815 = 
CDR(BgL_cdrzd2303zd2_812); 
if(
PAIRP(BgL_carzd2306zd2_814))
{ /* ./Eval/expanders.scm 305 */
bool_t BgL_testz00_2149;
{ /* ./Eval/expanders.scm 305 */
obj_t BgL_auxz00_2150;
BgL_auxz00_2150 = 
CDR(BgL_carzd2306zd2_814); 
BgL_testz00_2149 = 
NULLP(BgL_auxz00_2150); } 
if(BgL_testz00_2149)
{ /* ./Eval/expanders.scm 305 */
if(
NULLP(BgL_cdrzd2307zd2_815))
{ /* ./Eval/expanders.scm 305 */
FAILURE(BGl_string3073z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_803);}  else 
{ /* ./Eval/expanders.scm 305 */
obj_t BgL_arg1766z00_819;
BgL_arg1766z00_819 = 
CAR(BgL_carzd2306zd2_814); 
{ /* ./Eval/expanders.scm 305 */
obj_t BgL_arg1785z00_1485;obj_t BgL_arg1786z00_1486;
BgL_arg1785z00_1485 = BGl_symbol3038z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 305 */
obj_t BgL_arg1789z00_1487;obj_t BgL_arg1790z00_1488;
BgL_arg1789z00_1487 = 
MAKE_PAIR(BgL_arg1766z00_819, BNIL); 
{ /* ./Eval/expanders.scm 305 */
obj_t BgL_arg1794z00_1489;
{ /* ./Eval/expanders.scm 305 */
obj_t BgL_arg1798z00_1491;
BgL_arg1798z00_1491 = 
BGl_normaliza7ezd2prognz75zz__prognz00(BgL_cdrzd2307zd2_815); 
BgL_arg1794z00_1489 = 
PROCEDURE_ENTRY(BgL_ez00_804)(BgL_ez00_804, BgL_arg1798z00_1491, BgL_ez00_804, BEOA); } 
BgL_arg1790z00_1488 = 
MAKE_PAIR(BgL_arg1794z00_1489, BNIL); } 
BgL_arg1786z00_1486 = 
MAKE_PAIR(BgL_arg1789z00_1487, BgL_arg1790z00_1488); } 
return 
MAKE_PAIR(BgL_arg1785z00_1485, BgL_arg1786z00_1486);} } }  else 
{ /* ./Eval/expanders.scm 305 */
FAILURE(BGl_string3073z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_803);} }  else 
{ /* ./Eval/expanders.scm 305 */
FAILURE(BGl_string3073z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_803);} }  else 
{ /* ./Eval/expanders.scm 305 */
FAILURE(BGl_string3073z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_803);} }  else 
{ /* ./Eval/expanders.scm 305 */
FAILURE(BGl_string3073z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_803);} } } 
}



/* <anonymous:1750> */
obj_t BGl_zc3anonymousza31750ze3z83zz__install_expandersz00(obj_t BgL_envz00_1740, obj_t BgL_xz00_1741, obj_t BgL_ez00_1742)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 299 */
return 
BGl_expandzd2letzd2syntaxz00zz__r5_macro_4_3_syntaxz00(BgL_xz00_1741, BgL_ez00_1742);} 
}



/* <anonymous:1743> */
obj_t BGl_zc3anonymousza31743ze3z83zz__install_expandersz00(obj_t BgL_envz00_1743, obj_t BgL_xz00_1744, obj_t BgL_ez00_1745)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 298 */
return 
BGl_expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00(BgL_xz00_1744, BgL_ez00_1745);} 
}



/* <anonymous:1737> */
obj_t BGl_zc3anonymousza31737ze3z83zz__install_expandersz00(obj_t BgL_envz00_1746, obj_t BgL_xz00_1747, obj_t BgL_ez00_1748)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 297 */
return 
BGl_expandzd2definezd2syntaxz00zz__r5_macro_4_3_syntaxz00(BgL_xz00_1747, BgL_ez00_1748);} 
}



/* <anonymous:1610> */
obj_t BGl_zc3anonymousza31610ze3z83zz__install_expandersz00(obj_t BgL_envz00_1749, obj_t BgL_xz00_1750, obj_t BgL_ez00_1751)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 271 */
{ 
obj_t BgL_xz00_716;obj_t BgL_ez00_717;
BgL_xz00_716 = BgL_xz00_1750; 
BgL_ez00_717 = BgL_ez00_1751; 
{ 

{ 
obj_t BgL_bindingsz00_720;obj_t BgL_bodyz00_721;
if(
PAIRP(BgL_xz00_716))
{ /* ./Eval/expanders.scm 274 */
obj_t BgL_cdrzd2251zd2_726;
BgL_cdrzd2251zd2_726 = 
CDR(BgL_xz00_716); 
if(
PAIRP(BgL_cdrzd2251zd2_726))
{ /* ./Eval/expanders.scm 274 */
obj_t BgL_carzd2254zd2_728;obj_t BgL_cdrzd2255zd2_729;
BgL_carzd2254zd2_728 = 
CAR(BgL_cdrzd2251zd2_726); 
BgL_cdrzd2255zd2_729 = 
CDR(BgL_cdrzd2251zd2_726); 
{ /* ./Eval/expanders.scm 274 */
bool_t BgL_test1613z00_730;
if(
PAIRP(BgL_carzd2254zd2_728))
{ /* ./Eval/expanders.scm 274 */
BgL_test1613z00_730 = ((bool_t)1); }  else 
{ /* ./Eval/expanders.scm 274 */
BgL_test1613z00_730 = 
NULLP(BgL_carzd2254zd2_728); } 
if(BgL_test1613z00_730)
{ /* ./Eval/expanders.scm 274 */
if(
NULLP(BgL_cdrzd2255zd2_729))
{ /* ./Eval/expanders.scm 274 */
BgL_zc3anonymousza31731ze3z83_780:
FAILURE(BFALSE,BGl_string3074z00zz__install_expandersz00,BgL_xz00_716);}  else 
{ /* ./Eval/expanders.scm 274 */
BgL_bindingsz00_720 = BgL_carzd2254zd2_728; 
BgL_bodyz00_721 = BgL_cdrzd2255zd2_729; 
if(
NULLP(BgL_bindingsz00_720))
{ /* ./Eval/expanders.scm 279 */
obj_t BgL_arg1629z00_733;obj_t BgL_arg1630z00_734;
BgL_arg1629z00_733 = BGl_symbol3014z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 279 */
obj_t BgL_arg1633z00_735;
{ /* ./Eval/expanders.scm 279 */
obj_t BgL_arg1637z00_737;
BgL_arg1637z00_737 = 
BGl_normaliza7ezd2prognz75zz__prognz00(BgL_bodyz00_721); 
BgL_arg1633z00_735 = 
PROCEDURE_ENTRY(BgL_ez00_717)(BgL_ez00_717, BgL_arg1637z00_737, BgL_ez00_717, BEOA); } 
BgL_arg1630z00_734 = 
MAKE_PAIR(BgL_arg1633z00_735, BNIL); } 
return 
MAKE_PAIR(BgL_arg1629z00_733, BgL_arg1630z00_734);}  else 
{ /* ./Eval/expanders.scm 280 */
obj_t BgL_firstzd2bindingzd2_738;
BgL_firstzd2bindingzd2_738 = 
CAR(BgL_bindingsz00_720); 
if(
PAIRP(BgL_firstzd2bindingzd2_738))
{ /* ./Eval/expanders.scm 281 */BUNSPEC; }  else 
{ /* ./Eval/expanders.scm 281 */
FAILURE(BFALSE,BGl_string3074z00zz__install_expandersz00,BgL_xz00_716);} 
{ /* ./Eval/expanders.scm 283 */
obj_t BgL_slz00_740;
{ /* ./Eval/expanders.scm 283 */
obj_t BgL_arg1719z00_776;obj_t BgL_arg1720z00_777;
BgL_arg1719z00_776 = BGl_symbol3030z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 283 */
obj_t BgL_auxz00_2198;obj_t BgL_auxz00_2196;
BgL_auxz00_2198 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_721, BNIL); 
BgL_auxz00_2196 = 
CDR(BgL_bindingsz00_720); 
BgL_arg1720z00_777 = 
MAKE_PAIR(BgL_auxz00_2196, BgL_auxz00_2198); } 
BgL_slz00_740 = 
MAKE_PAIR(BgL_arg1719z00_776, BgL_arg1720z00_777); } 
{ 
obj_t BgL_varnamez00_741;obj_t BgL_exprz00_742;
if(
PAIRP(BgL_firstzd2bindingzd2_738))
{ /* ./Eval/expanders.scm 285 */
obj_t BgL_carzd2269zd2_749;obj_t BgL_cdrzd2270zd2_750;
BgL_carzd2269zd2_749 = 
CAR(BgL_firstzd2bindingzd2_738); 
BgL_cdrzd2270zd2_750 = 
CDR(BgL_firstzd2bindingzd2_738); 
if(
SYMBOLP(BgL_carzd2269zd2_749))
{ /* ./Eval/expanders.scm 285 */
if(
PAIRP(BgL_cdrzd2270zd2_750))
{ /* ./Eval/expanders.scm 285 */
bool_t BgL_testz00_2210;
{ /* ./Eval/expanders.scm 285 */
obj_t BgL_auxz00_2211;
BgL_auxz00_2211 = 
CDR(BgL_cdrzd2270zd2_750); 
BgL_testz00_2210 = 
NULLP(BgL_auxz00_2211); } 
if(BgL_testz00_2210)
{ /* ./Eval/expanders.scm 285 */
BgL_varnamez00_741 = BgL_carzd2269zd2_749; 
BgL_exprz00_742 = 
CAR(BgL_cdrzd2270zd2_750); 
{ /* ./Eval/expanders.scm 287 */
obj_t BgL_arg1683z00_762;
{ /* ./Eval/expanders.scm 287 */
obj_t BgL_arg1686z00_763;obj_t BgL_arg1687z00_764;
BgL_arg1686z00_763 = BGl_symbol3046z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 287 */
obj_t BgL_arg1690z00_765;obj_t BgL_arg1691z00_766;
BgL_arg1690z00_765 = 
MAKE_PAIR(BgL_firstzd2bindingzd2_738, BNIL); 
{ /* ./Eval/expanders.scm 288 */
obj_t BgL_arg1695z00_767;
{ /* ./Eval/expanders.scm 288 */
obj_t BgL_arg1699z00_769;obj_t BgL_arg1700z00_770;
BgL_arg1699z00_769 = BGl_symbol2995z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 288 */
obj_t BgL_arg1703z00_771;
BgL_arg1703z00_771 = 
MAKE_PAIR(BgL_slz00_740, BNIL); 
BgL_arg1700z00_770 = 
MAKE_PAIR(BgL_varnamez00_741, BgL_arg1703z00_771); } 
BgL_arg1695z00_767 = 
MAKE_PAIR(BgL_arg1699z00_769, BgL_arg1700z00_770); } 
BgL_arg1691z00_766 = 
MAKE_PAIR(BgL_arg1695z00_767, BNIL); } 
BgL_arg1687z00_764 = 
MAKE_PAIR(BgL_arg1690z00_765, BgL_arg1691z00_766); } 
BgL_arg1683z00_762 = 
MAKE_PAIR(BgL_arg1686z00_763, BgL_arg1687z00_764); } 
return 
PROCEDURE_ENTRY(BgL_ez00_717)(BgL_ez00_717, BgL_arg1683z00_762, BgL_ez00_717, BEOA);} }  else 
{ /* ./Eval/expanders.scm 285 */
goto BgL_zc3anonymousza31731ze3z83_780;} }  else 
{ /* ./Eval/expanders.scm 285 */
if(
NULLP(BgL_cdrzd2270zd2_750))
{ /* ./Eval/expanders.scm 285 */
obj_t BgL_arg1707z00_1445;
{ /* ./Eval/expanders.scm 285 */
obj_t BgL_arg1710z00_1446;obj_t BgL_arg1711z00_1447;
BgL_arg1710z00_1446 = BGl_symbol2995z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 285 */
obj_t BgL_arg1714z00_1448;
BgL_arg1714z00_1448 = 
MAKE_PAIR(BgL_slz00_740, BNIL); 
BgL_arg1711z00_1447 = 
MAKE_PAIR(BgL_carzd2269zd2_749, BgL_arg1714z00_1448); } 
BgL_arg1707z00_1445 = 
MAKE_PAIR(BgL_arg1710z00_1446, BgL_arg1711z00_1447); } 
return 
PROCEDURE_ENTRY(BgL_ez00_717)(BgL_ez00_717, BgL_arg1707z00_1445, BgL_ez00_717, BEOA);}  else 
{ /* ./Eval/expanders.scm 285 */
goto BgL_zc3anonymousza31731ze3z83_780;} } }  else 
{ /* ./Eval/expanders.scm 285 */
if(
NULLP(BgL_cdrzd2270zd2_750))
{ /* ./Eval/expanders.scm 285 */
obj_t BgL_arg1707z00_1453;
{ /* ./Eval/expanders.scm 285 */
obj_t BgL_arg1710z00_1454;obj_t BgL_arg1711z00_1455;
BgL_arg1710z00_1454 = BGl_symbol2995z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 285 */
obj_t BgL_arg1714z00_1456;
BgL_arg1714z00_1456 = 
MAKE_PAIR(BgL_slz00_740, BNIL); 
BgL_arg1711z00_1455 = 
MAKE_PAIR(BgL_carzd2269zd2_749, BgL_arg1714z00_1456); } 
BgL_arg1707z00_1453 = 
MAKE_PAIR(BgL_arg1710z00_1454, BgL_arg1711z00_1455); } 
return 
PROCEDURE_ENTRY(BgL_ez00_717)(BgL_ez00_717, BgL_arg1707z00_1453, BgL_ez00_717, BEOA);}  else 
{ /* ./Eval/expanders.scm 285 */
goto BgL_zc3anonymousza31731ze3z83_780;} } }  else 
{ /* ./Eval/expanders.scm 285 */
goto BgL_zc3anonymousza31731ze3z83_780;} } } } } }  else 
{ /* ./Eval/expanders.scm 274 */
goto BgL_zc3anonymousza31731ze3z83_780;} } }  else 
{ /* ./Eval/expanders.scm 274 */
goto BgL_zc3anonymousza31731ze3z83_780;} }  else 
{ /* ./Eval/expanders.scm 274 */
goto BgL_zc3anonymousza31731ze3z83_780;} } } } } 
}



/* <anonymous:1543> */
obj_t BGl_zc3anonymousza31543ze3z83zz__install_expandersz00(obj_t BgL_envz00_1752, obj_t BgL_xz00_1753, obj_t BgL_ez00_1754)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 249 */
{ 
obj_t BgL_xz00_682;obj_t BgL_ez00_683;
BgL_xz00_682 = BgL_xz00_1753; 
BgL_ez00_683 = BgL_ez00_1754; 
SET_CAR(BgL_xz00_682, BGl_symbol3075z00zz__install_expandersz00); 
{ /* ./Eval/expanders.scm 251 */
obj_t BgL_arg1546z00_685;
{ /* ./Eval/expanders.scm 251 */
bool_t BgL_test1548z00_686;
BgL_test1548z00_686 = 
EXTENDED_PAIRP(BgL_xz00_682); 
if(BgL_test1548z00_686)
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_ezd2224zd2_691;
BgL_ezd2224zd2_691 = 
CER(BgL_xz00_682); 
if(
PAIRP(BgL_ezd2224zd2_691))
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_cdrzd2230zd2_693;
BgL_cdrzd2230zd2_693 = 
CDR(BgL_ezd2224zd2_691); 
{ /* ./Eval/expanders.scm 252 */
bool_t BgL_testz00_2245;
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_auxz00_2246;
BgL_auxz00_2246 = 
CAR(BgL_ezd2224zd2_691); 
BgL_testz00_2245 = 
(BgL_auxz00_2246==BGl_symbol3076z00zz__install_expandersz00); } 
if(BgL_testz00_2245)
{ /* ./Eval/expanders.scm 252 */
if(
PAIRP(BgL_cdrzd2230zd2_693))
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_cdrzd2234zd2_696;
BgL_cdrzd2234zd2_696 = 
CDR(BgL_cdrzd2230zd2_693); 
if(
PAIRP(BgL_cdrzd2234zd2_696))
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_cdrzd2238zd2_698;
BgL_cdrzd2238zd2_698 = 
CDR(BgL_cdrzd2234zd2_696); 
if(
PAIRP(BgL_cdrzd2238zd2_698))
{ /* ./Eval/expanders.scm 252 */
bool_t BgL_testz00_2257;
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_auxz00_2258;
BgL_auxz00_2258 = 
CDR(BgL_cdrzd2238zd2_698); 
BgL_testz00_2257 = 
NULLP(BgL_auxz00_2258); } 
if(BgL_testz00_2257)
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_arg1556z00_701;obj_t BgL_arg1557z00_702;
BgL_arg1556z00_701 = 
CAR(BgL_cdrzd2230zd2_693); 
BgL_arg1557z00_702 = 
CAR(BgL_cdrzd2238zd2_698); 
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_arg1585z00_1379;
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_arg1588z00_1380;
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_arg1593z00_1382;
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_arg1596z00_1383;
{ /* ./Eval/expanders.scm 252 */
obj_t BgL_auxz00_2263;
BgL_auxz00_2263 = 
CDR(BgL_xz00_682); 
BgL_arg1596z00_1383 = 
MAKE_PAIR(BGl_string3077z00zz__install_expandersz00, BgL_auxz00_2263); } 
BgL_arg1593z00_1382 = 
MAKE_PAIR(BgL_arg1557z00_702, BgL_arg1596z00_1383); } 
BgL_arg1588z00_1380 = 
MAKE_PAIR(BGl_string3078z00zz__install_expandersz00, BgL_arg1593z00_1382); } 
BgL_arg1585z00_1379 = 
MAKE_PAIR(BgL_arg1556z00_701, BgL_arg1588z00_1380); } 
SET_CDR(BgL_xz00_682, BgL_arg1585z00_1379); } 
BgL_arg1546z00_685 = BgL_xz00_682; }  else 
{ /* ./Eval/expanders.scm 252 */
SET_CAR(BgL_xz00_682, BGl_symbol3075z00zz__install_expandersz00); 
BgL_arg1546z00_685 = BgL_xz00_682; } }  else 
{ /* ./Eval/expanders.scm 252 */
SET_CAR(BgL_xz00_682, BGl_symbol3075z00zz__install_expandersz00); 
BgL_arg1546z00_685 = BgL_xz00_682; } }  else 
{ /* ./Eval/expanders.scm 252 */
SET_CAR(BgL_xz00_682, BGl_symbol3075z00zz__install_expandersz00); 
BgL_arg1546z00_685 = BgL_xz00_682; } }  else 
{ /* ./Eval/expanders.scm 252 */
SET_CAR(BgL_xz00_682, BGl_symbol3075z00zz__install_expandersz00); 
BgL_arg1546z00_685 = BgL_xz00_682; } }  else 
{ /* ./Eval/expanders.scm 252 */
SET_CAR(BgL_xz00_682, BGl_symbol3075z00zz__install_expandersz00); 
BgL_arg1546z00_685 = BgL_xz00_682; } } }  else 
{ /* ./Eval/expanders.scm 252 */
SET_CAR(BgL_xz00_682, BGl_symbol3075z00zz__install_expandersz00); 
BgL_arg1546z00_685 = BgL_xz00_682; } }  else 
{ /* ./Eval/expanders.scm 251 */
SET_CAR(BgL_xz00_682, BGl_symbol3075z00zz__install_expandersz00); 
BgL_arg1546z00_685 = BgL_xz00_682; } } 
return 
PROCEDURE_ENTRY(BgL_ez00_683)(BgL_ez00_683, BgL_arg1546z00_685, BgL_ez00_683, BEOA);} } } 
}



/* <anonymous:1499> */
obj_t BGl_zc3anonymousza31499ze3z83zz__install_expandersz00(obj_t BgL_envz00_1755, obj_t BgL_xz00_1756, obj_t BgL_ez00_1757)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 233 */
{ 
obj_t BgL_xz00_657;obj_t BgL_ez00_658;
BgL_xz00_657 = BgL_xz00_1756; 
BgL_ez00_658 = BgL_ez00_1757; 
{ 
obj_t BgL_siz00_660;obj_t BgL_bodyz00_661;
if(
PAIRP(BgL_xz00_657))
{ /* ./Eval/expanders.scm 233 */
obj_t BgL_cdrzd2215zd2_666;
BgL_cdrzd2215zd2_666 = 
CDR(BgL_xz00_657); 
if(
PAIRP(BgL_cdrzd2215zd2_666))
{ /* ./Eval/expanders.scm 233 */
BgL_siz00_660 = 
CAR(BgL_cdrzd2215zd2_666); 
BgL_bodyz00_661 = 
CDR(BgL_cdrzd2215zd2_666); 
{ /* ./Eval/expanders.scm 236 */
obj_t BgL_arg1514z00_670;
{ /* ./Eval/expanders.scm 236 */
obj_t BgL_arg1518z00_671;obj_t BgL_arg1519z00_672;
BgL_arg1518z00_671 = BGl_symbol2981z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 238 */
obj_t BgL_arg1522z00_673;
{ /* ./Eval/expanders.scm 238 */
obj_t BgL_arg1525z00_674;
{ /* ./Eval/expanders.scm 238 */
obj_t BgL_arg1528z00_675;
{ /* ./Eval/expanders.scm 238 */
obj_t BgL_auxz00_2284;
BgL_auxz00_2284 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_661, BNIL); 
BgL_arg1528z00_675 = 
MAKE_PAIR(BGl_symbol3014z00zz__install_expandersz00, BgL_auxz00_2284); } 
BgL_arg1525z00_674 = 
MAKE_PAIR(BgL_arg1528z00_675, BNIL); } 
BgL_arg1522z00_673 = 
MAKE_PAIR(BUNSPEC, BgL_arg1525z00_674); } 
BgL_arg1519z00_672 = 
MAKE_PAIR(BgL_siz00_660, BgL_arg1522z00_673); } 
BgL_arg1514z00_670 = 
MAKE_PAIR(BgL_arg1518z00_671, BgL_arg1519z00_672); } 
return 
PROCEDURE_ENTRY(BgL_ez00_658)(BgL_ez00_658, BgL_arg1514z00_670, BgL_ez00_658, BEOA);} }  else 
{ /* ./Eval/expanders.scm 233 */
FAILURE(BGl_string3079z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_657);} }  else 
{ /* ./Eval/expanders.scm 233 */
FAILURE(BGl_string3079z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_657);} } } } 
}



/* <anonymous:1460> */
obj_t BGl_zc3anonymousza31460ze3z83zz__install_expandersz00(obj_t BgL_envz00_1758, obj_t BgL_xz00_1759, obj_t BgL_ez00_1760)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 221 */
{ 
obj_t BgL_xz00_633;obj_t BgL_ez00_634;
BgL_xz00_633 = BgL_xz00_1759; 
BgL_ez00_634 = BgL_ez00_1760; 
{ 
obj_t BgL_siz00_636;obj_t BgL_bodyz00_637;
if(
PAIRP(BgL_xz00_633))
{ /* ./Eval/expanders.scm 221 */
obj_t BgL_cdrzd2200zd2_642;
BgL_cdrzd2200zd2_642 = 
CDR(BgL_xz00_633); 
if(
PAIRP(BgL_cdrzd2200zd2_642))
{ /* ./Eval/expanders.scm 221 */
BgL_siz00_636 = 
CAR(BgL_cdrzd2200zd2_642); 
BgL_bodyz00_637 = 
CDR(BgL_cdrzd2200zd2_642); 
{ /* ./Eval/expanders.scm 224 */
obj_t BgL_arg1475z00_646;
{ /* ./Eval/expanders.scm 224 */
obj_t BgL_arg1478z00_647;obj_t BgL_arg1479z00_648;
BgL_arg1478z00_647 = BGl_symbol2981z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 225 */
obj_t BgL_arg1482z00_649;
{ /* ./Eval/expanders.scm 225 */
obj_t BgL_arg1485z00_650;obj_t BgL_arg1486z00_651;
{ /* ./Eval/expanders.scm 225 */
obj_t BgL_auxz00_2302;
BgL_auxz00_2302 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_637, BNIL); 
BgL_arg1485z00_650 = 
MAKE_PAIR(BGl_symbol3014z00zz__install_expandersz00, BgL_auxz00_2302); } 
BgL_arg1486z00_651 = 
MAKE_PAIR(BUNSPEC, BNIL); 
BgL_arg1482z00_649 = 
MAKE_PAIR(BgL_arg1485z00_650, BgL_arg1486z00_651); } 
BgL_arg1479z00_648 = 
MAKE_PAIR(BgL_siz00_636, BgL_arg1482z00_649); } 
BgL_arg1475z00_646 = 
MAKE_PAIR(BgL_arg1478z00_647, BgL_arg1479z00_648); } 
return 
PROCEDURE_ENTRY(BgL_ez00_634)(BgL_ez00_634, BgL_arg1475z00_646, BgL_ez00_634, BEOA);} }  else 
{ /* ./Eval/expanders.scm 221 */
FAILURE(BGl_string3080z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_633);} }  else 
{ /* ./Eval/expanders.scm 221 */
FAILURE(BGl_string3080z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_633);} } } } 
}



/* <anonymous:1401> */
obj_t BGl_zc3anonymousza31401ze3z83zz__install_expandersz00(obj_t BgL_envz00_1761, obj_t BgL_xz00_1762, obj_t BgL_ez00_1763)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 208 */
{ 
obj_t BgL_xz00_599;obj_t BgL_ez00_600;
BgL_xz00_599 = BgL_xz00_1762; 
BgL_ez00_600 = BgL_ez00_1763; 
{ 
obj_t BgL_varsz00_602;obj_t BgL_callz00_603;obj_t BgL_exprsz00_604;
if(
PAIRP(BgL_xz00_599))
{ /* ./Eval/expanders.scm 208 */
obj_t BgL_cdrzd2179zd2_609;
BgL_cdrzd2179zd2_609 = 
CDR(BgL_xz00_599); 
if(
PAIRP(BgL_cdrzd2179zd2_609))
{ /* ./Eval/expanders.scm 208 */
obj_t BgL_cdrzd2184zd2_611;
BgL_cdrzd2184zd2_611 = 
CDR(BgL_cdrzd2179zd2_609); 
if(
PAIRP(BgL_cdrzd2184zd2_611))
{ /* ./Eval/expanders.scm 208 */
BgL_varsz00_602 = 
CAR(BgL_cdrzd2179zd2_609); 
BgL_callz00_603 = 
CAR(BgL_cdrzd2184zd2_611); 
BgL_exprsz00_604 = 
CDR(BgL_cdrzd2184zd2_611); 
{ /* ./Eval/expanders.scm 211 */
obj_t BgL_arg1422z00_616;
{ /* ./Eval/expanders.scm 211 */
obj_t BgL_arg1425z00_617;obj_t BgL_arg1426z00_618;
BgL_arg1425z00_617 = BGl_symbol3081z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 211 */
obj_t BgL_arg1429z00_619;obj_t BgL_arg1430z00_620;
{ /* ./Eval/expanders.scm 211 */
obj_t BgL_arg1433z00_621;obj_t BgL_arg1434z00_622;
BgL_arg1433z00_621 = BGl_symbol2979z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 211 */
obj_t BgL_arg1438z00_624;
BgL_arg1438z00_624 = 
MAKE_PAIR(BgL_callz00_603, BNIL); 
BgL_arg1434z00_622 = 
MAKE_PAIR(BNIL, BgL_arg1438z00_624); } 
BgL_arg1429z00_619 = 
MAKE_PAIR(BgL_arg1433z00_621, BgL_arg1434z00_622); } 
{ /* ./Eval/expanders.scm 212 */
obj_t BgL_arg1442z00_625;
{ /* ./Eval/expanders.scm 212 */
obj_t BgL_arg1448z00_627;obj_t BgL_arg1449z00_628;
BgL_arg1448z00_627 = BGl_symbol2979z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 212 */
obj_t BgL_auxz00_2326;
BgL_auxz00_2326 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprsz00_604, BNIL); 
BgL_arg1449z00_628 = 
MAKE_PAIR(BgL_varsz00_602, BgL_auxz00_2326); } 
BgL_arg1442z00_625 = 
MAKE_PAIR(BgL_arg1448z00_627, BgL_arg1449z00_628); } 
BgL_arg1430z00_620 = 
MAKE_PAIR(BgL_arg1442z00_625, BNIL); } 
BgL_arg1426z00_618 = 
MAKE_PAIR(BgL_arg1429z00_619, BgL_arg1430z00_620); } 
BgL_arg1422z00_616 = 
MAKE_PAIR(BgL_arg1425z00_617, BgL_arg1426z00_618); } 
return 
PROCEDURE_ENTRY(BgL_ez00_600)(BgL_ez00_600, BgL_arg1422z00_616, BgL_ez00_600, BEOA);} }  else 
{ /* ./Eval/expanders.scm 208 */
FAILURE(BGl_string3082z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_599);} }  else 
{ /* ./Eval/expanders.scm 208 */
FAILURE(BGl_string3082z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_599);} }  else 
{ /* ./Eval/expanders.scm 208 */
FAILURE(BGl_string3082z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_599);} } } } 
}



/* <anonymous:1340> */
obj_t BGl_zc3anonymousza31340ze3z83zz__install_expandersz00(obj_t BgL_envz00_1764, obj_t BgL_xz00_1765, obj_t BgL_ez00_1766)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 196 */
{ 
obj_t BgL_xz00_565;obj_t BgL_ez00_566;
BgL_xz00_565 = BgL_xz00_1765; 
BgL_ez00_566 = BgL_ez00_1766; 
{ 
obj_t BgL_varsz00_568;obj_t BgL_callz00_569;obj_t BgL_exprsz00_570;
if(
PAIRP(BgL_xz00_565))
{ /* ./Eval/expanders.scm 196 */
obj_t BgL_cdrzd2156zd2_575;
BgL_cdrzd2156zd2_575 = 
CDR(BgL_xz00_565); 
if(
PAIRP(BgL_cdrzd2156zd2_575))
{ /* ./Eval/expanders.scm 196 */
obj_t BgL_cdrzd2161zd2_577;
BgL_cdrzd2161zd2_577 = 
CDR(BgL_cdrzd2156zd2_575); 
if(
PAIRP(BgL_cdrzd2161zd2_577))
{ /* ./Eval/expanders.scm 196 */
BgL_varsz00_568 = 
CAR(BgL_cdrzd2156zd2_575); 
BgL_callz00_569 = 
CAR(BgL_cdrzd2161zd2_577); 
BgL_exprsz00_570 = 
CDR(BgL_cdrzd2161zd2_577); 
{ /* ./Eval/expanders.scm 199 */
obj_t BgL_arg1361z00_582;
{ /* ./Eval/expanders.scm 199 */
obj_t BgL_arg1364z00_583;obj_t BgL_arg1365z00_584;
BgL_arg1364z00_583 = BGl_symbol3081z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 199 */
obj_t BgL_arg1368z00_585;obj_t BgL_arg1370z00_586;
{ /* ./Eval/expanders.scm 199 */
obj_t BgL_arg1374z00_587;obj_t BgL_arg1375z00_588;
BgL_arg1374z00_587 = BGl_symbol2979z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 199 */
obj_t BgL_arg1380z00_590;
BgL_arg1380z00_590 = 
MAKE_PAIR(BgL_callz00_569, BNIL); 
BgL_arg1375z00_588 = 
MAKE_PAIR(BNIL, BgL_arg1380z00_590); } 
BgL_arg1368z00_585 = 
MAKE_PAIR(BgL_arg1374z00_587, BgL_arg1375z00_588); } 
{ /* ./Eval/expanders.scm 200 */
obj_t BgL_arg1384z00_591;
{ /* ./Eval/expanders.scm 200 */
obj_t BgL_arg1388z00_593;obj_t BgL_arg1390z00_594;
BgL_arg1388z00_593 = BGl_symbol2979z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 200 */
obj_t BgL_auxz00_2352;
BgL_auxz00_2352 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprsz00_570, BNIL); 
BgL_arg1390z00_594 = 
MAKE_PAIR(BgL_varsz00_568, BgL_auxz00_2352); } 
BgL_arg1384z00_591 = 
MAKE_PAIR(BgL_arg1388z00_593, BgL_arg1390z00_594); } 
BgL_arg1370z00_586 = 
MAKE_PAIR(BgL_arg1384z00_591, BNIL); } 
BgL_arg1365z00_584 = 
MAKE_PAIR(BgL_arg1368z00_585, BgL_arg1370z00_586); } 
BgL_arg1361z00_582 = 
MAKE_PAIR(BgL_arg1364z00_583, BgL_arg1365z00_584); } 
return 
PROCEDURE_ENTRY(BgL_ez00_566)(BgL_ez00_566, BgL_arg1361z00_582, BgL_ez00_566, BEOA);} }  else 
{ /* ./Eval/expanders.scm 196 */
FAILURE(BGl_string3083z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_565);} }  else 
{ /* ./Eval/expanders.scm 196 */
FAILURE(BGl_string3083z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_565);} }  else 
{ /* ./Eval/expanders.scm 196 */
FAILURE(BGl_string3083z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_565);} } } } 
}



/* <anonymous:1285> */
obj_t BGl_zc3anonymousza31285ze3z83zz__install_expandersz00(obj_t BgL_envz00_1767, obj_t BgL_xz00_1768, obj_t BgL_ez00_1769)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 182 */
{ 
obj_t BgL_xz00_533;obj_t BgL_ez00_534;
BgL_xz00_533 = BgL_xz00_1768; 
BgL_ez00_534 = BgL_ez00_1769; 
if(
PAIRP(BgL_xz00_533))
{ /* ./Eval/expanders.scm 182 */
obj_t BgL_cdrzd2130zd2_543;
BgL_cdrzd2130zd2_543 = 
CDR(BgL_xz00_533); 
if(
PAIRP(BgL_cdrzd2130zd2_543))
{ /* ./Eval/expanders.scm 182 */
obj_t BgL_cdrzd2135zd2_545;
BgL_cdrzd2135zd2_545 = 
CDR(BgL_cdrzd2130zd2_543); 
if(
PAIRP(BgL_cdrzd2135zd2_545))
{ /* ./Eval/expanders.scm 182 */
obj_t BgL_cdrzd2140zd2_547;
BgL_cdrzd2140zd2_547 = 
CDR(BgL_cdrzd2135zd2_545); 
if(
PAIRP(BgL_cdrzd2140zd2_547))
{ /* ./Eval/expanders.scm 182 */
bool_t BgL_testz00_2378;
{ /* ./Eval/expanders.scm 182 */
obj_t BgL_auxz00_2379;
BgL_auxz00_2379 = 
CDR(BgL_cdrzd2140zd2_547); 
BgL_testz00_2378 = 
NULLP(BgL_auxz00_2379); } 
if(BgL_testz00_2378)
{ /* ./Eval/expanders.scm 182 */
obj_t BgL_arg1292z00_550;obj_t BgL_arg1293z00_551;obj_t BgL_arg1294z00_552;
BgL_arg1292z00_550 = 
CAR(BgL_cdrzd2130zd2_543); 
BgL_arg1293z00_551 = 
CAR(BgL_cdrzd2135zd2_545); 
BgL_arg1294z00_552 = 
CAR(BgL_cdrzd2140zd2_547); 
{ /* ./Eval/expanders.scm 182 */
obj_t BgL_arg1316z00_1259;obj_t BgL_arg1317z00_1260;
BgL_arg1316z00_1259 = BGl_symbol3016z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 182 */
obj_t BgL_arg1320z00_1261;obj_t BgL_arg1321z00_1262;
BgL_arg1320z00_1261 = 
PROCEDURE_ENTRY(BgL_ez00_534)(BgL_ez00_534, BgL_arg1292z00_550, BgL_ez00_534, BEOA); 
{ /* ./Eval/expanders.scm 182 */
obj_t BgL_arg1326z00_1263;obj_t BgL_arg1327z00_1264;
BgL_arg1326z00_1263 = 
PROCEDURE_ENTRY(BgL_ez00_534)(BgL_ez00_534, BgL_arg1293z00_551, BgL_ez00_534, BEOA); 
{ /* ./Eval/expanders.scm 182 */
obj_t BgL_arg1331z00_1265;
BgL_arg1331z00_1265 = 
PROCEDURE_ENTRY(BgL_ez00_534)(BgL_ez00_534, BgL_arg1294z00_552, BgL_ez00_534, BEOA); 
BgL_arg1327z00_1264 = 
MAKE_PAIR(BgL_arg1331z00_1265, BNIL); } 
BgL_arg1321z00_1262 = 
MAKE_PAIR(BgL_arg1326z00_1263, BgL_arg1327z00_1264); } 
BgL_arg1317z00_1260 = 
MAKE_PAIR(BgL_arg1320z00_1261, BgL_arg1321z00_1262); } 
return 
MAKE_PAIR(BgL_arg1316z00_1259, BgL_arg1317z00_1260);} }  else 
{ /* ./Eval/expanders.scm 182 */
FAILURE(BGl_string3084z00zz__install_expandersz00,BGl_string3085z00zz__install_expandersz00,BgL_xz00_533);} }  else 
{ /* ./Eval/expanders.scm 182 */
FAILURE(BGl_string3084z00zz__install_expandersz00,BGl_string3085z00zz__install_expandersz00,BgL_xz00_533);} }  else 
{ /* ./Eval/expanders.scm 182 */
FAILURE(BGl_string3084z00zz__install_expandersz00,BGl_string3085z00zz__install_expandersz00,BgL_xz00_533);} }  else 
{ /* ./Eval/expanders.scm 182 */
FAILURE(BGl_string3084z00zz__install_expandersz00,BGl_string3085z00zz__install_expandersz00,BgL_xz00_533);} }  else 
{ /* ./Eval/expanders.scm 182 */
FAILURE(BGl_string3084z00zz__install_expandersz00,BGl_string3085z00zz__install_expandersz00,BgL_xz00_533);} } } 
}



/* <anonymous:1224> */
obj_t BGl_zc3anonymousza31224ze3z83zz__install_expandersz00(obj_t BgL_envz00_1770, obj_t BgL_xz00_1771, obj_t BgL_ez00_1772)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 158 */
{ 
obj_t BgL_xz00_497;obj_t BgL_ez00_498;
BgL_xz00_497 = BgL_xz00_1771; 
BgL_ez00_498 = BgL_ez00_1772; 
{ 
obj_t BgL_bodyz00_500;
if(
PAIRP(BgL_xz00_497))
{ /* ./Eval/expanders.scm 158 */
BgL_bodyz00_500 = 
CDR(BgL_xz00_497); 
{ 
obj_t BgL_lz00_506;
BgL_lz00_506 = BgL_bodyz00_500; 
BgL_loopz00_507:
if(
NULLP(BgL_lz00_506))
{ /* ./Eval/expanders.scm 163 */
{ /* ./Eval/expanders.scm 164 */
obj_t BgL_newz00_509;
{ /* ./Eval/expanders.scm 164 */
obj_t BgL_arg1244z00_512;obj_t BgL_arg1245z00_513;
BgL_arg1244z00_512 = BGl_symbol3014z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 165 */
obj_t BgL_arg1249z00_514;
if(
NULLP(BgL_bodyz00_500))
{ /* ./Eval/expanders.scm 165 */
BgL_arg1249z00_514 = BNIL; }  else 
{ /* ./Eval/expanders.scm 165 */
obj_t BgL_head1005z00_518;
BgL_head1005z00_518 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1003z00_519;obj_t BgL_tail1006z00_520;
BgL_l1003z00_519 = BgL_bodyz00_500; 
BgL_tail1006z00_520 = BgL_head1005z00_518; 
BgL_map1004z00_521:
if(
NULLP(BgL_l1003z00_519))
{ /* ./Eval/expanders.scm 165 */
BgL_arg1249z00_514 = 
CDR(BgL_head1005z00_518); }  else 
{ /* ./Eval/expanders.scm 167 */
obj_t BgL_newtail1007z00_523;
{ /* ./Eval/expanders.scm 167 */
obj_t BgL_arg1262z00_525;
{ /* ./Eval/expanders.scm 167 */
obj_t BgL_xz00_527;
BgL_xz00_527 = 
CAR(BgL_l1003z00_519); 
BgL_arg1262z00_525 = 
PROCEDURE_ENTRY(BgL_ez00_498)(BgL_ez00_498, BgL_xz00_527, BgL_ez00_498, BEOA); } 
BgL_newtail1007z00_523 = 
MAKE_PAIR(BgL_arg1262z00_525, BNIL); } 
SET_CDR(BgL_tail1006z00_520, BgL_newtail1007z00_523); 
{ 
obj_t BgL_tail1006z00_2417;obj_t BgL_l1003z00_2415;
BgL_l1003z00_2415 = 
CDR(BgL_l1003z00_519); 
BgL_tail1006z00_2417 = BgL_newtail1007z00_523; 
BgL_tail1006z00_520 = BgL_tail1006z00_2417; 
BgL_l1003z00_519 = BgL_l1003z00_2415; 
goto BgL_map1004z00_521;} } } } 
BgL_arg1245z00_513 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1249z00_514, BNIL); } 
BgL_newz00_509 = 
MAKE_PAIR(BgL_arg1244z00_512, BgL_arg1245z00_513); } 
{ /* ./Eval/expanders.scm 169 */
obj_t BgL_auxz00_2420;
BgL_auxz00_2420 = 
CAR(BgL_newz00_509); 
SET_CAR(BgL_xz00_497, BgL_auxz00_2420); } 
{ /* ./Eval/expanders.scm 170 */
obj_t BgL_auxz00_2423;
BgL_auxz00_2423 = 
CDR(BgL_newz00_509); 
SET_CDR(BgL_xz00_497, BgL_auxz00_2423); } 
return BgL_xz00_497;} }  else 
{ /* ./Eval/expanders.scm 163 */
if(
PAIRP(BgL_lz00_506))
{ /* ./Eval/expanders.scm 172 */
{ 
obj_t BgL_lz00_2428;
BgL_lz00_2428 = 
CDR(BgL_lz00_506); 
BgL_lz00_506 = BgL_lz00_2428; 
goto BgL_loopz00_507;} }  else 
{ /* ./Eval/expanders.scm 172 */
FAILURE(BGl_string3086z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_497);} } } }  else 
{ /* ./Eval/expanders.scm 158 */
FAILURE(BGl_string3086z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_497);} } } } 
}



/* <anonymous:1176> */
obj_t BGl_zc3anonymousza31176ze3z83zz__install_expandersz00(obj_t BgL_envz00_1773, obj_t BgL_xz00_1774, obj_t BgL_ez00_1775)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 140 */
{ 
obj_t BgL_xz00_471;obj_t BgL_ez00_472;
BgL_xz00_471 = BgL_xz00_1774; 
BgL_ez00_472 = BgL_ez00_1775; 
{ 
obj_t BgL_expz00_474;
if(
PAIRP(BgL_xz00_471))
{ /* ./Eval/expanders.scm 140 */
obj_t BgL_cdrzd2107zd2_479;
BgL_cdrzd2107zd2_479 = 
CDR(BgL_xz00_471); 
if(
PAIRP(BgL_cdrzd2107zd2_479))
{ /* ./Eval/expanders.scm 140 */
bool_t BgL_testz00_2438;
{ /* ./Eval/expanders.scm 140 */
obj_t BgL_auxz00_2439;
BgL_auxz00_2439 = 
CDR(BgL_cdrzd2107zd2_479); 
BgL_testz00_2438 = 
NULLP(BgL_auxz00_2439); } 
if(BgL_testz00_2438)
{ /* ./Eval/expanders.scm 140 */
BgL_expz00_474 = 
CAR(BgL_cdrzd2107zd2_479); 
{ /* ./Eval/expanders.scm 143 */
obj_t BgL_arg1196z00_484;obj_t BgL_arg1197z00_485;
BgL_arg1196z00_484 = BGl_symbol3087z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 143 */
obj_t BgL_arg1200z00_486;
{ /* ./Eval/expanders.scm 143 */
obj_t BgL_arg1204z00_488;obj_t BgL_arg1205z00_489;
BgL_arg1204z00_488 = BGl_symbol2979z00zz__install_expandersz00; 
{ /* ./Eval/expanders.scm 143 */
obj_t BgL_arg1209z00_491;
{ /* ./Eval/expanders.scm 143 */
obj_t BgL_arg1212z00_492;
BgL_arg1212z00_492 = 
PROCEDURE_ENTRY(BgL_ez00_472)(BgL_ez00_472, BgL_expz00_474, BgL_ez00_472, BEOA); 
BgL_arg1209z00_491 = 
MAKE_PAIR(BgL_arg1212z00_492, BNIL); } 
BgL_arg1205z00_489 = 
MAKE_PAIR(BNIL, BgL_arg1209z00_491); } 
BgL_arg1200z00_486 = 
MAKE_PAIR(BgL_arg1204z00_488, BgL_arg1205z00_489); } 
BgL_arg1197z00_485 = 
MAKE_PAIR(BgL_arg1200z00_486, BNIL); } 
return 
MAKE_PAIR(BgL_arg1196z00_484, BgL_arg1197z00_485);} }  else 
{ /* ./Eval/expanders.scm 140 */
FAILURE(BGl_string3088z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_471);} }  else 
{ /* ./Eval/expanders.scm 140 */
FAILURE(BGl_string3088z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_471);} }  else 
{ /* ./Eval/expanders.scm 140 */
FAILURE(BGl_string3088z00zz__install_expandersz00,BGl_string3070z00zz__install_expandersz00,BgL_xz00_471);} } } } 
}



/* <anonymous:1167> */
obj_t BGl_zc3anonymousza31167ze3z83zz__install_expandersz00(obj_t BgL_envz00_1776, obj_t BgL_xz00_1777, obj_t BgL_ez00_1778)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 136 */
{ 
obj_t BgL_xz00_464;obj_t BgL_ez00_465;
BgL_xz00_464 = BgL_xz00_1777; 
BgL_ez00_465 = BgL_ez00_1778; 
{ /* ./Eval/expanders.scm 137 */
obj_t BgL_arg1169z00_1194;
BgL_arg1169z00_1194 = 
BGl_expandzd2definezd2patternz00zz__evalz00(BgL_xz00_464); 
return 
PROCEDURE_ENTRY(BgL_ez00_465)(BgL_ez00_465, BgL_arg1169z00_1194, BgL_ez00_465, BEOA);} } } 
}



/* <anonymous:1158> */
obj_t BGl_zc3anonymousza31158ze3z83zz__install_expandersz00(obj_t BgL_envz00_1779, obj_t BgL_xz00_1780, obj_t BgL_ez00_1781)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 132 */
{ 
obj_t BgL_xz00_457;obj_t BgL_ez00_458;
BgL_xz00_457 = BgL_xz00_1780; 
BgL_ez00_458 = BgL_ez00_1781; 
{ /* ./Eval/expanders.scm 133 */
obj_t BgL_arg1160z00_1193;
BgL_arg1160z00_1193 = 
BGl_expandzd2matchzd2lambdaz00zz__match_expandz00(BgL_xz00_457); 
return 
PROCEDURE_ENTRY(BgL_ez00_458)(BgL_ez00_458, BgL_arg1160z00_1193, BgL_ez00_458, BEOA);} } } 
}



/* <anonymous:1149> */
obj_t BGl_zc3anonymousza31149ze3z83zz__install_expandersz00(obj_t BgL_envz00_1782, obj_t BgL_xz00_1783, obj_t BgL_ez00_1784)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 129 */
{ 
obj_t BgL_xz00_450;obj_t BgL_ez00_451;
BgL_xz00_450 = BgL_xz00_1783; 
BgL_ez00_451 = BgL_ez00_1784; 
{ /* ./Eval/expanders.scm 129 */
obj_t BgL_arg1151z00_1192;
BgL_arg1151z00_1192 = 
BGl_expandzd2matchzd2casez00zz__match_expandz00(BgL_xz00_450); 
return 
PROCEDURE_ENTRY(BgL_ez00_451)(BgL_ez00_451, BgL_arg1151z00_1192, BgL_ez00_451, BEOA);} } } 
}



/* <anonymous:1143> */
obj_t BGl_zc3anonymousza31143ze3z83zz__install_expandersz00(obj_t BgL_envz00_1785, obj_t BgL_xz00_1786, obj_t BgL_ez00_1787)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 126 */
return 
BGl_expandzd2tryzd2zz__expander_tryz00(BgL_xz00_1786, BgL_ez00_1787);} 
}



/* <anonymous:1137> */
obj_t BGl_zc3anonymousza31137ze3z83zz__install_expandersz00(obj_t BgL_envz00_1788, obj_t BgL_xz00_1789, obj_t BgL_ez00_1790)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 123 */
return 
BGl_expandzd2dozd2zz__expander_doz00(BgL_xz00_1789, BgL_ez00_1790);} 
}



/* <anonymous:1128> */
obj_t BGl_zc3anonymousza31128ze3z83zz__install_expandersz00(obj_t BgL_envz00_1791, obj_t BgL_xz00_1792, obj_t BgL_ez00_1793)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 120 */
{ 
obj_t BgL_xz00_431;obj_t BgL_ez00_432;
BgL_xz00_431 = BgL_xz00_1792; 
BgL_ez00_432 = BgL_ez00_1793; 
{ /* ./Eval/expanders.scm 120 */
obj_t BgL_arg1130z00_1191;
BgL_arg1130z00_1191 = 
BGl_expandzd2condzd2zz__expander_boolz00(BgL_xz00_431); 
return 
PROCEDURE_ENTRY(BgL_ez00_432)(BgL_ez00_432, BgL_arg1130z00_1191, BgL_ez00_432, BEOA);} } } 
}



/* <anonymous:1119> */
obj_t BGl_zc3anonymousza31119ze3z83zz__install_expandersz00(obj_t BgL_envz00_1794, obj_t BgL_xz00_1795, obj_t BgL_ez00_1796)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 117 */
{ 
obj_t BgL_xz00_424;obj_t BgL_ez00_425;
BgL_xz00_424 = BgL_xz00_1795; 
BgL_ez00_425 = BgL_ez00_1796; 
{ /* ./Eval/expanders.scm 117 */
obj_t BgL_arg1121z00_1190;
BgL_arg1121z00_1190 = 
BGl_expandzd2andzd2zz__expander_boolz00(BgL_xz00_424); 
return 
PROCEDURE_ENTRY(BgL_ez00_425)(BgL_ez00_425, BgL_arg1121z00_1190, BgL_ez00_425, BEOA);} } } 
}



/* <anonymous:1109> */
obj_t BGl_zc3anonymousza31109ze3z83zz__install_expandersz00(obj_t BgL_envz00_1797, obj_t BgL_xz00_1798, obj_t BgL_ez00_1799)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 114 */
{ 
obj_t BgL_xz00_417;obj_t BgL_ez00_418;
BgL_xz00_417 = BgL_xz00_1798; 
BgL_ez00_418 = BgL_ez00_1799; 
{ /* ./Eval/expanders.scm 114 */
obj_t BgL_arg1111z00_1189;
BgL_arg1111z00_1189 = 
BGl_expandzd2orzd2zz__expander_boolz00(BgL_xz00_417); 
return 
PROCEDURE_ENTRY(BgL_ez00_418)(BgL_ez00_418, BgL_arg1111z00_1189, BgL_ez00_418, BEOA);} } } 
}



/* <anonymous:1103> */
obj_t BGl_zc3anonymousza31103ze3z83zz__install_expandersz00(obj_t BgL_envz00_1800, obj_t BgL_xz00_1801, obj_t BgL_ez00_1802)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 110 */
return 
BGl_expandzd2definezd2expanderz00zz__evalz00(BgL_xz00_1801, BgL_ez00_1802);} 
}



/* <anonymous:1097> */
obj_t BGl_zc3anonymousza31097ze3z83zz__install_expandersz00(obj_t BgL_envz00_1803, obj_t BgL_xz00_1804, obj_t BgL_ez00_1805)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 106 */
return 
BGl_expandzd2definezd2hygienezd2macrozd2zz__evalz00(BgL_xz00_1804, BgL_ez00_1805);} 
}



/* <anonymous:1091> */
obj_t BGl_zc3anonymousza31091ze3z83zz__install_expandersz00(obj_t BgL_envz00_1806, obj_t BgL_xz00_1807, obj_t BgL_ez00_1808)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 102 */
return 
BGl_expandzd2definezd2macroz00zz__evalz00(BgL_xz00_1807, BgL_ez00_1808);} 
}



/* <anonymous:1082> */
obj_t BGl_zc3anonymousza31082ze3z83zz__install_expandersz00(obj_t BgL_envz00_1809, obj_t BgL_xz00_1810, obj_t BgL_ez00_1811)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 99 */
{ 
obj_t BgL_xz00_392;obj_t BgL_ez00_393;
BgL_xz00_392 = BgL_xz00_1810; 
BgL_ez00_393 = BgL_ez00_1811; 
{ /* ./Eval/expanders.scm 99 */
obj_t BgL_arg1084z00_1188;
BgL_arg1084z00_1188 = 
BGl_quasiquotationz00zz__expander_quotez00(
BINT(((long)1)), BgL_xz00_392); 
return 
PROCEDURE_ENTRY(BgL_ez00_393)(BgL_ez00_393, BgL_arg1084z00_1188, BgL_ez00_393, BEOA);} } } 
}



/* <anonymous:1075> */
obj_t BGl_zc3anonymousza31075ze3z83zz__install_expandersz00(obj_t BgL_envz00_1812, obj_t BgL_xz00_1813, obj_t BgL_ez00_1814)
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 96 */
return 
BGl_expandzd2quotezd2zz__expander_quotez00(BgL_xz00_1813, BgL_ez00_1814);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__install_expandersz00()
{ AN_OBJECT;
{ /* ./Eval/expanders.scm 15 */
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__macroz00(((long)11817), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_quotez00(((long)39), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_letz00(((long)56455), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_boolz00(((long)48893), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_casez00(((long)58027), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_definez00(((long)237), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_doz00(((long)22742), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_tryz00(((long)31246), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_structz00(((long)26241), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_recordz00(((long)7975), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_srfizd20zd2(((long)2210), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__expander_argsz00(((long)63091), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__evalz00(((long)51415), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__prognz00(((long)9608), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__lalr_expandz00(((long)14455), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__rgc_expandz00(((long)26731), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__match_expandz00(((long)59821), "__install_expanders"); 
BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00(((long)58463), "__install_expanders"); 
return 
BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_hygienez00(((long)17498), "__install_expanders");} 
}

