/*===========================================================================*/
/*   (Eval/evcompile.scm)                                                    */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Eval/evcompile.scm -indent -o objs/obj_u/Eval/evcompile.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___EVCOMPILE_TYPE_DEFINITIONS
#define BGL___EVCOMPILE_TYPE_DEFINITIONS
#endif													// BGL___EVCOMPILE_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_evcompilezd2letreczd2lambdaz00zz__evcompilez00(obj_t, obj_t,
		obj_t, obj_t, obj_t, bool_t, obj_t, bool_t);
	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
	static obj_t BGl_z62evcompilez62zz__evcompilez00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_evcompilezd2orzd2zz__evcompilez00(obj_t, obj_t, obj_t, obj_t,
		obj_t, bool_t);
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_evmodulez00zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_untypezd2identzd2zz__evcompilez00(obj_t);
	extern obj_t bstring_to_keyword(obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__evcompilez00 = BUNSPEC;
	extern obj_t BGl_classzd2fieldzd2typez00zz__objectz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_evcompilezd2loczd2filenamez00zz__evcompilez00(obj_t);
	static obj_t BGl_z04variablez04zz__evcompilez00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t bgl_list_ref(obj_t, long);
	static obj_t BGl_z62zc3z04anonymousza32755ze3ze5zz__evcompilez00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evmodulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evobjectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__dssslz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__typez00(long, char *);
	extern obj_t BGl_expandz00zz__expandz00(obj_t);
	extern obj_t BGl_schemezd2reportzd2environmentz00zz__evalz00(obj_t);
	static obj_t BGl_evcompilezd2refzd2zz__evcompilez00(long, obj_t, obj_t, obj_t,
		bool_t);
	extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
	extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	static obj_t BGl_za2includedzd2filesza2zd2zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_za2afilezd2listza2zd2zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_evcompilezd2letza2z70zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t, obj_t, bool_t, obj_t, bool_t);
	BGL_EXPORTED_DECL obj_t BGl_evcompilez00zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t, bool_t, obj_t, bool_t, bool_t);
	static obj_t BGl_toplevelzd2initzd2zz__evcompilez00(void);
	extern int bgl_debug(void);
	static obj_t BGl_evcompilezd2lambdazd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32757ze3ze5zz__evcompilez00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
	static obj_t BGl_keyword3869z00zz__evcompilez00 = BUNSPEC;
	extern obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_symbol3828z00zz__evcompilez00 = BUNSPEC;
	extern bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
	static obj_t BGl_cnstzd2initzd2zz__evcompilez00(void);
	static obj_t BGl_evcompilezd2setzd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_genericzd2initzd2zz__evcompilez00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_evcompilezd2inline1zd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_evcompilezd2inline2zd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern long bgl_list_length(obj_t);
	extern obj_t BGl_classzd2existszd2zz__objectz00(obj_t);
	static obj_t BGl_symbol3833z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3835z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3837z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_importedzd2moduleszd2initz00zz__evcompilez00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__evcompilez00(void);
	static obj_t BGl_objectzd2initzd2zz__evcompilez00(void);
	static obj_t BGl_za2importedzd2filesza2zd2zz__evcompilez00 = BUNSPEC;
	extern bool_t BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00(obj_t);
	static obj_t BGl_symbol3840z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3844z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3846z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3848z00zz__evcompilez00 = BUNSPEC;
	extern obj_t BGl_evmodulezd2findzd2globalz00zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_evcompilezd2letzd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t, obj_t, bool_t, obj_t, bool_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	static obj_t BGl_symbol3850z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3852z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3854z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3856z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3858z00zz__evcompilez00 = BUNSPEC;
	extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_findzd2classzd2fieldz00zz__objectz00(obj_t, obj_t);
	static obj_t BGl_evcompilezd2fieldzd2refz00zz__evcompilez00(obj_t, obj_t,
		obj_t, obj_t, bool_t, obj_t, bool_t, bool_t);
	extern bool_t BGl_evmodulezf3zf3zz__evmodulez00(obj_t);
	extern obj_t BGl_getpropz00zz__r4_symbols_6_4z00(obj_t, obj_t);
	extern obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t);
	extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
	static obj_t BGl_evcompilezd2applicationzd2zz__evcompilez00(obj_t, obj_t,
		obj_t, bool_t, obj_t);
	static obj_t BGl_symbol3860z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3861z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3863z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3865z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3867z00zz__evcompilez00 = BUNSPEC;
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t
		BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00(obj_t,
		obj_t, bool_t);
	extern obj_t BGl_classzd2fieldzd2mutatorz00zz__objectz00(obj_t);
	static obj_t BGl_evcompilezd2andzd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t, obj_t, bool_t);
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_symbol3871z00zz__evcompilez00 = BUNSPEC;
	extern obj_t BGl_evalzd2findzd2modulez00zz__evmodulez00(obj_t);
	static obj_t BGl_symbol3873z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3875z00zz__evcompilez00 = BUNSPEC;
	extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	static obj_t BGl_evcompilezd2beginzd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t, bool_t, obj_t, bool_t, bool_t);
	BGL_EXPORTED_DECL obj_t BGl_evcompilezd2errorzd2zz__evcompilez00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62evcompilezd2errorzb0zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__evcompilez00(void);
	static obj_t BGl_variablez00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_symbol3882z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_symbol3884z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_evcompilezd2fieldzd2setz00zz__evcompilez00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, bool_t, obj_t, bool_t, bool_t);
	static obj_t BGl_symbol3887z00zz__evcompilez00 = BUNSPEC;
	static obj_t BGl_evcompilezd2letreczd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t, obj_t, bool_t, obj_t, bool_t);
	static obj_t BGl_z62evcompilezd2loczd2filenamez62zz__evcompilez00(obj_t,
		obj_t);
	static obj_t BGl_loopze70ze7zz__evcompilez00(obj_t, obj_t);
	static obj_t BGl_loopze71ze7zz__evcompilez00(bool_t, bool_t, bool_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_evcompilezd2cnstzd2zz__evcompilez00(obj_t, obj_t);
	extern obj_t BGl_nullzd2environmentzd2zz__evalz00(obj_t);
	static obj_t BGl_evcompilezd2letreczd2genericz00zz__evcompilez00(obj_t, obj_t,
		obj_t, obj_t, obj_t, bool_t, obj_t, bool_t);
	static obj_t BGl_evcompilezd2compiledzd2applicationz00zz__evcompilez00(obj_t,
		obj_t, obj_t);
	extern obj_t string_append(obj_t, obj_t);
	extern obj_t BGl_classzd2fieldzd2accessorz00zz__objectz00(obj_t);
	extern obj_t BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00(obj_t, obj_t,
		obj_t, obj_t);
	static bool_t BGl_tracedzf3ze70z14zz__evcompilez00(obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t *__cnst;


	extern obj_t BGl_ze3fxzd2envz31zz__r4_numbers_6_5_fixnumz00;
	extern obj_t BGl_zd2zd2envz00zz__r4_numbers_6_5z00;
	   
		 
		BGL_DEFINE_STRING(BGl_string3824z00zz__evcompilez00,
		BgL_bgl_string3824za700za7za7_3893za7, "eval", 4);
	      BGL_DEFINE_STRING(BGl_string3825z00zz__evcompilez00,
		BgL_bgl_string3825za700za7za7_3894za7,
		"Illegal non toplevel module declaration", 39);
	      BGL_DEFINE_STRING(BGl_string3826z00zz__evcompilez00,
		BgL_bgl_string3826za700za7za7_3895za7,
		"Illegal procedure in unlinked byte code", 39);
	      BGL_DEFINE_STRING(BGl_string3827z00zz__evcompilez00,
		BgL_bgl_string3827za700za7za7_3896za7, "Illegal form", 12);
	      BGL_DEFINE_STRING(BGl_string3829z00zz__evcompilez00,
		BgL_bgl_string3829za700za7za7_3897za7, "_", 1);
	extern obj_t BGl_zd3zd2envz01zz__r4_numbers_6_5z00;
	   
		 
		BGL_DEFINE_STRING(BGl_string3830z00zz__evcompilez00,
		BgL_bgl_string3830za700za7za7_3898za7,
		"Illegal define form (sealed environment)", 40);
	      BGL_DEFINE_STRING(BGl_string3831z00zz__evcompilez00,
		BgL_bgl_string3831za700za7za7_3899za7, "Illegal non toplevel define", 27);
	      BGL_DEFINE_STRING(BGl_string3832z00zz__evcompilez00,
		BgL_bgl_string3832za700za7za7_3900za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string3834z00zz__evcompilez00,
		BgL_bgl_string3834za700za7za7_3901za7, "@", 1);
	      BGL_DEFINE_STRING(BGl_string3836z00zz__evcompilez00,
		BgL_bgl_string3836za700za7za7_3902za7, "->", 2);
	      BGL_DEFINE_STRING(BGl_string3838z00zz__evcompilez00,
		BgL_bgl_string3838za700za7za7_3903za7, "lambda", 6);
	      BGL_DEFINE_STRING(BGl_string3839z00zz__evcompilez00,
		BgL_bgl_string3839za700za7za7_3904za7, "Not a procedure", 15);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evcompilezd2envzd2zz__evcompilez00,
		BgL_bgl_za762evcompileza762za73905za7, BGl_z62evcompilez62zz__evcompilez00,
		0L, BUNSPEC, 8);
	      BGL_DEFINE_STRING(BGl_string3841z00zz__evcompilez00,
		BgL_bgl_string3841za700za7za7_3906za7, "dynamic", 7);
	      BGL_DEFINE_STRING(BGl_string3842z00zz__evcompilez00,
		BgL_bgl_string3842za700za7za7_3907za7, "variable unbound", 16);
	      BGL_DEFINE_STRING(BGl_string3843z00zz__evcompilez00,
		BgL_bgl_string3843za700za7za7_3908za7, "Illegal expression", 18);
	      BGL_DEFINE_STRING(BGl_string3845z00zz__evcompilez00,
		BgL_bgl_string3845za700za7za7_3909za7, "module", 6);
	      BGL_DEFINE_STRING(BGl_string3847z00zz__evcompilez00,
		BgL_bgl_string3847za700za7za7_3910za7, "assert", 6);
	      BGL_DEFINE_STRING(BGl_string3849z00zz__evcompilez00,
		BgL_bgl_string3849za700za7za7_3911za7, "quote", 5);
	extern obj_t BGl_ze3zd3fxzd2envze2zz__r4_numbers_6_5_fixnumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string3851z00zz__evcompilez00,
		BgL_bgl_string3851za700za7za7_3912za7, "if", 2);
	      BGL_DEFINE_STRING(BGl_string3853z00zz__evcompilez00,
		BgL_bgl_string3853za700za7za7_3913za7, "or", 2);
	      BGL_DEFINE_STRING(BGl_string3855z00zz__evcompilez00,
		BgL_bgl_string3855za700za7za7_3914za7, "and", 3);
	      BGL_DEFINE_STRING(BGl_string3857z00zz__evcompilez00,
		BgL_bgl_string3857za700za7za7_3915za7, "begin", 5);
	extern obj_t BGl_zc3zd3zd2envzc2zz__r4_numbers_6_5z00;
	   
		 
		BGL_DEFINE_STRING(BGl_string3859z00zz__evcompilez00,
		BgL_bgl_string3859za700za7za7_3916za7, "define", 6);
	extern obj_t BGl_zc3fxzd2envz11zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evcompilezd2loczd2filenamezd2envzd2zz__evcompilez00,
		BgL_bgl_za762evcompileza7d2l3917z00,
		BGl_z62evcompilezd2loczd2filenamez62zz__evcompilez00, 0L, BUNSPEC, 1);
	extern obj_t BGl_za2zd2envz70zz__r4_numbers_6_5z00;
	   
		 
		BGL_DEFINE_STRING(BGl_string3862z00zz__evcompilez00,
		BgL_bgl_string3862za700za7za7_3918za7, "bind-exit", 9);
	      BGL_DEFINE_STRING(BGl_string3864z00zz__evcompilez00,
		BgL_bgl_string3864za700za7za7_3919za7, "unwind-protect", 14);
	extern obj_t BGl_zc3zd3fxzd2envzc2zz__r4_numbers_6_5_fixnumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string3866z00zz__evcompilez00,
		BgL_bgl_string3866za700za7za7_3920za7, "with-handler", 12);
	      BGL_DEFINE_STRING(BGl_string3868z00zz__evcompilez00,
		BgL_bgl_string3868za700za7za7_3921za7, "synchronize", 11);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_evcompilezd2errorzd2envz00zz__evcompilez00,
		BgL_bgl_za762evcompileza7d2e3922z00,
		BGl_z62evcompilezd2errorzb0zz__evcompilez00, 0L, BUNSPEC, 4);
	extern obj_t BGl_ze3zd2envz31zz__r4_numbers_6_5z00;
	extern obj_t BGl_zf2fxzd2envz20zz__r4_numbers_6_5_fixnumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string3870z00zz__evcompilez00,
		BgL_bgl_string3870za700za7za7_3923za7, "prelock", 7);
	      BGL_DEFINE_STRING(BGl_string3872z00zz__evcompilez00,
		BgL_bgl_string3872za700za7za7_3924za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string3874z00zz__evcompilez00,
		BgL_bgl_string3874za700za7za7_3925za7, "let*", 4);
	      BGL_DEFINE_STRING(BGl_string3876z00zz__evcompilez00,
		BgL_bgl_string3876za700za7za7_3926za7, "letrec", 6);
	      BGL_DEFINE_STRING(BGl_string3877z00zz__evcompilez00,
		BgL_bgl_string3877za700za7za7_3927za7,
		"/tmp/bigloo/runtime/Eval/evcompile.scm", 38);
	      BGL_DEFINE_STRING(BGl_string3878z00zz__evcompilez00,
		BgL_bgl_string3878za700za7za7_3928za7, "&evcompile", 10);
	      BGL_DEFINE_STRING(BGl_string3879z00zz__evcompilez00,
		BgL_bgl_string3879za700za7za7_3929za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string3880z00zz__evcompilez00,
		BgL_bgl_string3880za700za7za7_3930za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string3881z00zz__evcompilez00,
		BgL_bgl_string3881za700za7za7_3931za7, "Read-only variable", 18);
	      BGL_DEFINE_STRING(BGl_string3883z00zz__evcompilez00,
		BgL_bgl_string3883za700za7za7_3932za7, "(+)", 3);
	      BGL_DEFINE_STRING(BGl_string3885z00zz__evcompilez00,
		BgL_bgl_string3885za700za7za7_3933za7, "non-user", 8);
	      BGL_DEFINE_STRING(BGl_string3886z00zz__evcompilez00,
		BgL_bgl_string3886za700za7za7_3934za7, "Illegal `set!' expression", 25);
	      BGL_DEFINE_STRING(BGl_string3888z00zz__evcompilez00,
		BgL_bgl_string3888za700za7za7_3935za7, "at", 2);
	      BGL_DEFINE_STRING(BGl_string3889z00zz__evcompilez00,
		BgL_bgl_string3889za700za7za7_3936za7, "Class \"~a\" has not field \"~a\"",
		29);
	extern obj_t BGl_za2fxzd2envz70zz__r4_numbers_6_5_fixnumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string3890z00zz__evcompilez00,
		BgL_bgl_string3890za700za7za7_3937za7, "Static type not a class", 23);
	      BGL_DEFINE_STRING(BGl_string3891z00zz__evcompilez00,
		BgL_bgl_string3891za700za7za7_3938za7, "Field read-only", 15);
	      BGL_DEFINE_STRING(BGl_string3892z00zz__evcompilez00,
		BgL_bgl_string3892za700za7za7_3939za7, "__evcompile", 11);
	extern obj_t BGl_zb2zd2envz60zz__r4_numbers_6_5z00;
	extern obj_t BGl_zf2zd2envz20zz__r4_numbers_6_5z00;
	extern obj_t BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00;
	extern obj_t BGl_zd2fxzd2envz00zz__r4_numbers_6_5_fixnumz00;
	extern obj_t BGl_zd3fxzd2envz01zz__r4_numbers_6_5_fixnumz00;
	extern obj_t BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00;
	extern obj_t BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00;
	extern obj_t BGl_zc3zd2envz11zz__r4_numbers_6_5z00;
	extern obj_t BGl_zb2fxzd2envz60zz__r4_numbers_6_5_fixnumz00;
	extern obj_t BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00;
	extern obj_t BGl_cadrzd2envzd2zz__r4_pairs_and_lists_6_3z00;
	extern obj_t BGl_ze3zd3zd2envze2zz__r4_numbers_6_5z00;

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string3892z00zz__evcompilez00,
			BgL_bgl_string3892za700za7za7_3939za7);
		BGL_BIND_STRING(BGl_string3891z00zz__evcompilez00,
			BgL_bgl_string3891za700za7za7_3938za7);
		BGL_BIND_STRING(BGl_string3890z00zz__evcompilez00,
			BgL_bgl_string3890za700za7za7_3937za7);
		BGL_BIND_STRING(BGl_string3889z00zz__evcompilez00,
			BgL_bgl_string3889za700za7za7_3936za7);
		BGL_BIND_STRING(BGl_string3888z00zz__evcompilez00,
			BgL_bgl_string3888za700za7za7_3935za7);
		BGL_BIND_STRING(BGl_string3886z00zz__evcompilez00,
			BgL_bgl_string3886za700za7za7_3934za7);
		BGL_BIND_STRING(BGl_string3885z00zz__evcompilez00,
			BgL_bgl_string3885za700za7za7_3933za7);
		BGL_BIND_STRING(BGl_string3883z00zz__evcompilez00,
			BgL_bgl_string3883za700za7za7_3932za7);
		BGL_BIND_STRING(BGl_string3881z00zz__evcompilez00,
			BgL_bgl_string3881za700za7za7_3931za7);
		BGL_BIND_STRING(BGl_string3880z00zz__evcompilez00,
			BgL_bgl_string3880za700za7za7_3930za7);
		BGL_BIND_STRING(BGl_string3879z00zz__evcompilez00,
			BgL_bgl_string3879za700za7za7_3929za7);
		BGL_BIND_STRING(BGl_string3878z00zz__evcompilez00,
			BgL_bgl_string3878za700za7za7_3928za7);
		BGL_BIND_STRING(BGl_string3877z00zz__evcompilez00,
			BgL_bgl_string3877za700za7za7_3927za7);
		BGL_BIND_STRING(BGl_string3876z00zz__evcompilez00,
			BgL_bgl_string3876za700za7za7_3926za7);
		BGL_BIND_STRING(BGl_string3874z00zz__evcompilez00,
			BgL_bgl_string3874za700za7za7_3925za7);
		BGL_BIND_STRING(BGl_string3872z00zz__evcompilez00,
			BgL_bgl_string3872za700za7za7_3924za7);
		BGL_BIND_STRING(BGl_string3870z00zz__evcompilez00,
			BgL_bgl_string3870za700za7za7_3923za7);
		BGL_BIND_PROCEDURE(BGl_evcompilezd2errorzd2envz00zz__evcompilez00,
			BgL_bgl_za762evcompileza7d2e3922z00);
		BGL_BIND_STRING(BGl_string3868z00zz__evcompilez00,
			BgL_bgl_string3868za700za7za7_3921za7);
		BGL_BIND_STRING(BGl_string3866z00zz__evcompilez00,
			BgL_bgl_string3866za700za7za7_3920za7);
		BGL_BIND_STRING(BGl_string3864z00zz__evcompilez00,
			BgL_bgl_string3864za700za7za7_3919za7);
		BGL_BIND_STRING(BGl_string3862z00zz__evcompilez00,
			BgL_bgl_string3862za700za7za7_3918za7);
		BGL_BIND_PROCEDURE(BGl_evcompilezd2loczd2filenamezd2envzd2zz__evcompilez00,
			BgL_bgl_za762evcompileza7d2l3917z00);
		BGL_BIND_STRING(BGl_string3859z00zz__evcompilez00,
			BgL_bgl_string3859za700za7za7_3916za7);
		BGL_BIND_STRING(BGl_string3857z00zz__evcompilez00,
			BgL_bgl_string3857za700za7za7_3915za7);
		BGL_BIND_STRING(BGl_string3855z00zz__evcompilez00,
			BgL_bgl_string3855za700za7za7_3914za7);
		BGL_BIND_STRING(BGl_string3853z00zz__evcompilez00,
			BgL_bgl_string3853za700za7za7_3913za7);
		BGL_BIND_STRING(BGl_string3851z00zz__evcompilez00,
			BgL_bgl_string3851za700za7za7_3912za7);
		BGL_BIND_STRING(BGl_string3849z00zz__evcompilez00,
			BgL_bgl_string3849za700za7za7_3911za7);
		BGL_BIND_STRING(BGl_string3847z00zz__evcompilez00,
			BgL_bgl_string3847za700za7za7_3910za7);
		BGL_BIND_STRING(BGl_string3845z00zz__evcompilez00,
			BgL_bgl_string3845za700za7za7_3909za7);
		BGL_BIND_STRING(BGl_string3843z00zz__evcompilez00,
			BgL_bgl_string3843za700za7za7_3908za7);
		BGL_BIND_STRING(BGl_string3842z00zz__evcompilez00,
			BgL_bgl_string3842za700za7za7_3907za7);
		BGL_BIND_STRING(BGl_string3841z00zz__evcompilez00,
			BgL_bgl_string3841za700za7za7_3906za7);
		BGL_BIND_PROCEDURE(BGl_evcompilezd2envzd2zz__evcompilez00,
			BgL_bgl_za762evcompileza762za73905za7);
		BGL_BIND_STRING(BGl_string3839z00zz__evcompilez00,
			BgL_bgl_string3839za700za7za7_3904za7);
		BGL_BIND_STRING(BGl_string3838z00zz__evcompilez00,
			BgL_bgl_string3838za700za7za7_3903za7);
		BGL_BIND_STRING(BGl_string3836z00zz__evcompilez00,
			BgL_bgl_string3836za700za7za7_3902za7);
		BGL_BIND_STRING(BGl_string3834z00zz__evcompilez00,
			BgL_bgl_string3834za700za7za7_3901za7);
		BGL_BIND_STRING(BGl_string3832z00zz__evcompilez00,
			BgL_bgl_string3832za700za7za7_3900za7);
		BGL_BIND_STRING(BGl_string3831z00zz__evcompilez00,
			BgL_bgl_string3831za700za7za7_3899za7);
		BGL_BIND_STRING(BGl_string3830z00zz__evcompilez00,
			BgL_bgl_string3830za700za7za7_3898za7);
		BGL_BIND_STRING(BGl_string3829z00zz__evcompilez00,
			BgL_bgl_string3829za700za7za7_3897za7);
		BGL_BIND_STRING(BGl_string3827z00zz__evcompilez00,
			BgL_bgl_string3827za700za7za7_3896za7);
		BGL_BIND_STRING(BGl_string3826z00zz__evcompilez00,
			BgL_bgl_string3826za700za7za7_3895za7);
		BGL_BIND_STRING(BGl_string3825z00zz__evcompilez00,
			BgL_bgl_string3825za700za7za7_3894za7);
		BGL_BIND_STRING(BGl_string3824z00zz__evcompilez00,
			BgL_bgl_string3824za700za7za7_3893za7);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_za2includedzd2filesza2zd2zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_za2afilezd2listza2zd2zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_keyword3869z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3828z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3833z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3835z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3837z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_za2importedzd2filesza2zd2zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3840z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3844z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3846z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3848z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3850z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3852z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3854z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3856z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3858z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3860z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3861z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3863z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3865z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3867z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3871z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3873z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3875z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3882z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3884z00zz__evcompilez00));
		ADD_ROOT((void *) (&BGl_symbol3887z00zz__evcompilez00));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long
		BgL_checksumz00_6801, char *BgL_fromz00_6802)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__evcompilez00))
				{
					BGl_requirezd2initializa7ationz75zz__evcompilez00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__evcompilez00();
					BGl_cnstzd2initzd2zz__evcompilez00();
					BGl_importedzd2moduleszd2initz00zz__evcompilez00();
					return BGl_toplevelzd2initzd2zz__evcompilez00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__evcompilez00(void)
	{
		{	/* Eval/evcompile.scm 15 */
			BGl_symbol3828z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3829z00zz__evcompilez00);
			BGl_symbol3833z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3834z00zz__evcompilez00);
			BGl_symbol3835z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3836z00zz__evcompilez00);
			BGl_symbol3837z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3838z00zz__evcompilez00);
			BGl_symbol3840z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3841z00zz__evcompilez00);
			BGl_symbol3844z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3845z00zz__evcompilez00);
			BGl_symbol3846z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3847z00zz__evcompilez00);
			BGl_symbol3848z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3849z00zz__evcompilez00);
			BGl_symbol3850z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3851z00zz__evcompilez00);
			BGl_symbol3852z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3853z00zz__evcompilez00);
			BGl_symbol3854z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3855z00zz__evcompilez00);
			BGl_symbol3856z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3857z00zz__evcompilez00);
			BGl_symbol3858z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3859z00zz__evcompilez00);
			BGl_symbol3860z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3832z00zz__evcompilez00);
			BGl_symbol3861z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3862z00zz__evcompilez00);
			BGl_symbol3863z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3864z00zz__evcompilez00);
			BGl_symbol3865z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3866z00zz__evcompilez00);
			BGl_symbol3867z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3868z00zz__evcompilez00);
			BGl_keyword3869z00zz__evcompilez00 =
				bstring_to_keyword(BGl_string3870z00zz__evcompilez00);
			BGl_symbol3871z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3872z00zz__evcompilez00);
			BGl_symbol3873z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3874z00zz__evcompilez00);
			BGl_symbol3875z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3876z00zz__evcompilez00);
			BGl_symbol3882z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3883z00zz__evcompilez00);
			BGl_symbol3884z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3885z00zz__evcompilez00);
			return (BGl_symbol3887z00zz__evcompilez00 =
				bstring_to_symbol(BGl_string3888z00zz__evcompilez00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__evcompilez00(void)
	{
		{	/* Eval/evcompile.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__evcompilez00(void)
	{
		{	/* Eval/evcompile.scm 15 */
			BGl_za2includedzd2filesza2zd2zz__evcompilez00 = BNIL;
			BGl_za2importedzd2filesza2zd2zz__evcompilez00 = BNIL;
			return (BGl_za2afilezd2listza2zd2zz__evcompilez00 = BNIL, BUNSPEC);
		}

	}



/* evcompile */
	BGL_EXPORTED_DEF obj_t BGl_evcompilez00zz__evcompilez00(obj_t BgL_expz00_5,
		obj_t BgL_envz00_6, obj_t BgL_genvz00_7, obj_t BgL_wherez00_8,
		bool_t BgL_tailz00_9, obj_t BgL_locz00_10, bool_t BgL_lkpz00_11,
		bool_t BgL_toplevelpz00_12)
	{
		{	/* Eval/evcompile.scm 79 */
		BGl_evcompilez00zz__evcompilez00:
			{
				obj_t BgL_funz00_1370;
				obj_t BgL_argsz00_1371;
				obj_t BgL_funz00_1366;
				obj_t BgL_modz00_1367;
				obj_t BgL_argsz00_1368;
				obj_t BgL_funz00_1363;
				obj_t BgL_argsz00_1364;
				obj_t BgL_formalsz00_1351;
				obj_t BgL_bodyz00_1352;
				obj_t BgL_mutexz00_1348;
				obj_t BgL_bodyz00_1349;
				obj_t BgL_mutexz00_1344;
				obj_t BgL_prelockz00_1345;
				obj_t BgL_bodyz00_1346;
				obj_t BgL_handlerz00_1341;
				obj_t BgL_bodyz00_1342;
				obj_t BgL_bodyz00_1338;
				obj_t BgL_protectz00_1339;
				obj_t BgL_escapez00_1335;
				obj_t BgL_bodyz00_1336;
				obj_t BgL_varz00_1331;
				obj_t BgL_valz00_1332;
				obj_t BgL_siz00_1322;
				obj_t BgL_alorsz00_1323;
				obj_t BgL_siz00_1318;
				obj_t BgL_alorsz00_1319;
				obj_t BgL_sinonz00_1320;
				obj_t BgL_lz00_1314;
				obj_t BgL_atomz00_1309;

				if (NULLP(BgL_expz00_5))
					{	/* Eval/evcompile.scm 83 */
						return
							BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_10,
							BGl_string3824z00zz__evcompilez00,
							BGl_string3843z00zz__evcompilez00, BNIL);
					}
				else
					{	/* Eval/evcompile.scm 83 */
						if (PAIRP(BgL_expz00_5))
							{	/* Eval/evcompile.scm 83 */
								if (
									(CAR(
											((obj_t) BgL_expz00_5)) ==
										BGl_symbol3844z00zz__evcompilez00))
									{	/* Eval/evcompile.scm 83 */
										if (BgL_toplevelpz00_12)
											{	/* Eval/evcompile.scm 88 */
												obj_t BgL_formsz00_2580;

												{	/* Eval/evcompile.scm 88 */
													obj_t BgL_arg2541z00_2583;

													{	/* Eval/evcompile.scm 65 */
														obj_t BgL__ortest_1065z00_4189;

														BgL__ortest_1065z00_4189 =
															BGl_getzd2sourcezd2locationz00zz__readerz00
															(BgL_expz00_5);
														if (CBOOL(BgL__ortest_1065z00_4189))
															{	/* Eval/evcompile.scm 65 */
																BgL_arg2541z00_2583 = BgL__ortest_1065z00_4189;
															}
														else
															{	/* Eval/evcompile.scm 65 */
																BgL_arg2541z00_2583 = BgL_locz00_10;
															}
													}
													BgL_formsz00_2580 =
														BGl_evmodulez00zz__evmodulez00(BgL_expz00_5,
														BgL_arg2541z00_2583);
												}
												{	/* Eval/evcompile.scm 89 */
													obj_t BgL_arg2539z00_2581;
													obj_t BgL_arg2540z00_2582;

													BgL_arg2539z00_2581 =
														BGl_expandz00zz__expandz00(BgL_formsz00_2580);
													BgL_arg2540z00_2582 = BGL_MODULE();
													{
														bool_t BgL_toplevelpz00_6856;
														bool_t BgL_tailz00_6855;
														obj_t BgL_genvz00_6854;
														obj_t BgL_expz00_6853;

														BgL_expz00_6853 = BgL_arg2539z00_2581;
														BgL_genvz00_6854 = BgL_arg2540z00_2582;
														BgL_tailz00_6855 = ((bool_t) 0);
														BgL_toplevelpz00_6856 = ((bool_t) 1);
														BgL_toplevelpz00_12 = BgL_toplevelpz00_6856;
														BgL_tailz00_9 = BgL_tailz00_6855;
														BgL_genvz00_7 = BgL_genvz00_6854;
														BgL_expz00_5 = BgL_expz00_6853;
														goto BGl_evcompilez00zz__evcompilez00;
													}
												}
											}
										else
											{	/* Eval/evcompile.scm 87 */
												return
													BGl_evcompilezd2errorzd2zz__evcompilez00
													(BgL_locz00_10, BGl_string3824z00zz__evcompilez00,
													BGl_string3825z00zz__evcompilez00, BgL_expz00_5);
											}
									}
								else
									{	/* Eval/evcompile.scm 83 */
										if (
											(CAR(
													((obj_t) BgL_expz00_5)) ==
												BGl_symbol3846z00zz__evcompilez00))
											{	/* Eval/evcompile.scm 83 */
												return BUNSPEC;
											}
										else
											{	/* Eval/evcompile.scm 83 */
												obj_t BgL_cdrzd2397zd2_1381;

												BgL_cdrzd2397zd2_1381 = CDR(((obj_t) BgL_expz00_5));
												if (
													(CAR(
															((obj_t) BgL_expz00_5)) ==
														BGl_symbol3833z00zz__evcompilez00))
													{	/* Eval/evcompile.scm 83 */
														if (PAIRP(BgL_cdrzd2397zd2_1381))
															{	/* Eval/evcompile.scm 83 */
																obj_t BgL_carzd2400zd2_1385;
																obj_t BgL_cdrzd2401zd2_1386;

																BgL_carzd2400zd2_1385 =
																	CAR(BgL_cdrzd2397zd2_1381);
																BgL_cdrzd2401zd2_1386 =
																	CDR(BgL_cdrzd2397zd2_1381);
																if (SYMBOLP(BgL_carzd2400zd2_1385))
																	{	/* Eval/evcompile.scm 83 */
																		if (PAIRP(BgL_cdrzd2401zd2_1386))
																			{	/* Eval/evcompile.scm 83 */
																				obj_t BgL_carzd2405zd2_1389;

																				BgL_carzd2405zd2_1389 =
																					CAR(BgL_cdrzd2401zd2_1386);
																				if (SYMBOLP(BgL_carzd2405zd2_1389))
																					{	/* Eval/evcompile.scm 83 */
																						if (NULLP(CDR
																								(BgL_cdrzd2401zd2_1386)))
																							{	/* Eval/evcompile.scm 83 */
																								return
																									BGl_evcompilezd2refzd2zz__evcompilez00
																									(2L,
																									BGl_z04variablez04zz__evcompilez00
																									(BgL_locz00_10,
																										BgL_carzd2400zd2_1385,
																										BgL_envz00_6, BgL_genvz00_7,
																										BgL_carzd2405zd2_1389),
																									BgL_genvz00_7, BgL_locz00_10,
																									BgL_lkpz00_11);
																							}
																						else
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_carzd2647zd2_1393;

																								BgL_carzd2647zd2_1393 =
																									CAR(((obj_t) BgL_expz00_5));
																								if (PAIRP
																									(BgL_carzd2647zd2_1393))
																									{	/* Eval/evcompile.scm 83 */
																										obj_t BgL_cdrzd2664zd2_1396;

																										BgL_cdrzd2664zd2_1396 =
																											CDR(
																											((obj_t)
																												BgL_carzd2647zd2_1393));
																										if ((CAR(((obj_t)
																														BgL_carzd2647zd2_1393))
																												==
																												BGl_symbol3833z00zz__evcompilez00))
																											{	/* Eval/evcompile.scm 83 */
																												if (PAIRP
																													(BgL_cdrzd2664zd2_1396))
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_carzd2667zd2_1400;
																														obj_t
																															BgL_cdrzd2668zd2_1401;
																														BgL_carzd2667zd2_1400
																															=
																															CAR
																															(BgL_cdrzd2664zd2_1396);
																														BgL_cdrzd2668zd2_1401
																															=
																															CDR
																															(BgL_cdrzd2664zd2_1396);
																														if (SYMBOLP
																															(BgL_carzd2667zd2_1400))
																															{	/* Eval/evcompile.scm 83 */
																																if (PAIRP
																																	(BgL_cdrzd2668zd2_1401))
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_carzd2673zd2_1404;
																																		BgL_carzd2673zd2_1404
																																			=
																																			CAR
																																			(BgL_cdrzd2668zd2_1401);
																																		if (SYMBOLP
																																			(BgL_carzd2673zd2_1404))
																																			{	/* Eval/evcompile.scm 83 */
																																				if (NULLP(CDR(BgL_cdrzd2668zd2_1401)))
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg1421z00_1408;
																																						BgL_arg1421z00_1408
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						BgL_funz00_1366
																																							=
																																							BgL_carzd2667zd2_1400;
																																						BgL_modz00_1367
																																							=
																																							BgL_carzd2673zd2_1404;
																																						BgL_argsz00_1368
																																							=
																																							BgL_arg1421z00_1408;
																																					BgL_tagzd2278zd2_1369:
																																						{	/* Eval/evcompile.scm 320 */
																																							obj_t
																																								BgL_locz00_2868;
																																							{	/* Eval/evcompile.scm 65 */
																																								obj_t
																																									BgL__ortest_1065z00_4448;
																																								BgL__ortest_1065z00_4448
																																									=
																																									BGl_getzd2sourcezd2locationz00zz__readerz00
																																									(BgL_expz00_5);
																																								if (CBOOL(BgL__ortest_1065z00_4448))
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_locz00_2868
																																											=
																																											BgL__ortest_1065z00_4448;
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_locz00_2868
																																											=
																																											BgL_locz00_10;
																																									}
																																							}
																																							{	/* Eval/evcompile.scm 320 */
																																								obj_t
																																									BgL_actualsz00_2869;
																																								if (NULLP(BgL_argsz00_1368))
																																									{	/* Eval/evcompile.scm 321 */
																																										BgL_actualsz00_2869
																																											=
																																											BNIL;
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 321 */
																																										obj_t
																																											BgL_head1150z00_2874;
																																										BgL_head1150z00_2874
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BNIL,
																																											BNIL);
																																										{
																																											obj_t
																																												BgL_l1148z00_2876;
																																											obj_t
																																												BgL_tail1151z00_2877;
																																											BgL_l1148z00_2876
																																												=
																																												BgL_argsz00_1368;
																																											BgL_tail1151z00_2877
																																												=
																																												BgL_head1150z00_2874;
																																										BgL_zc3z04anonymousza32776ze3z87_2878:
																																											if (NULLP(BgL_l1148z00_2876))
																																												{	/* Eval/evcompile.scm 321 */
																																													BgL_actualsz00_2869
																																														=
																																														CDR
																																														(BgL_head1150z00_2874);
																																												}
																																											else
																																												{	/* Eval/evcompile.scm 321 */
																																													obj_t
																																														BgL_newtail1152z00_2880;
																																													{	/* Eval/evcompile.scm 321 */
																																														obj_t
																																															BgL_arg2779z00_2882;
																																														{	/* Eval/evcompile.scm 321 */
																																															obj_t
																																																BgL_az00_2883;
																																															BgL_az00_2883
																																																=
																																																CAR
																																																(
																																																((obj_t) BgL_l1148z00_2876));
																																															BgL_arg2779z00_2882
																																																=
																																																BGl_evcompilez00zz__evcompilez00
																																																(BgL_az00_2883,
																																																BgL_envz00_6,
																																																BgL_genvz00_7,
																																																BgL_wherez00_8,
																																																((bool_t) 0), BgL_locz00_2868, BgL_lkpz00_11, ((bool_t) 0));
																																														}
																																														BgL_newtail1152z00_2880
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BgL_arg2779z00_2882,
																																															BNIL);
																																													}
																																													SET_CDR
																																														(BgL_tail1151z00_2877,
																																														BgL_newtail1152z00_2880);
																																													{	/* Eval/evcompile.scm 321 */
																																														obj_t
																																															BgL_arg2778z00_2881;
																																														BgL_arg2778z00_2881
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_l1148z00_2876));
																																														{
																																															obj_t
																																																BgL_tail1151z00_6927;
																																															obj_t
																																																BgL_l1148z00_6926;
																																															BgL_l1148z00_6926
																																																=
																																																BgL_arg2778z00_2881;
																																															BgL_tail1151z00_6927
																																																=
																																																BgL_newtail1152z00_2880;
																																															BgL_tail1151z00_2877
																																																=
																																																BgL_tail1151z00_6927;
																																															BgL_l1148z00_2876
																																																=
																																																BgL_l1148z00_6926;
																																															goto
																																																BgL_zc3z04anonymousza32776ze3z87_2878;
																																														}
																																													}
																																												}
																																										}
																																									}
																																								{	/* Eval/evcompile.scm 321 */
																																									obj_t
																																										BgL_z04procz04_2870;
																																									{	/* Eval/evcompile.scm 794 */
																																										obj_t
																																											BgL_modz00_4453;
																																										BgL_modz00_4453
																																											=
																																											BGl_evalzd2findzd2modulez00zz__evmodulez00
																																											(BgL_modz00_1367);
																																										{	/* Eval/evcompile.scm 794 */
																																											obj_t
																																												BgL_globalz00_4454;
																																											BgL_globalz00_4454
																																												=
																																												BGl_evmodulezd2findzd2globalz00zz__evmodulez00
																																												(BgL_modz00_4453,
																																												BgL_funz00_1366);
																																											{	/* Eval/evcompile.scm 795 */

																																												if (CBOOL(BgL_globalz00_4454))
																																													{	/* Eval/evcompile.scm 796 */
																																														BgL_z04procz04_2870
																																															=
																																															BgL_globalz00_4454;
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 796 */
																																														if ((BgL_genvz00_7 == BgL_modz00_4453))
																																															{	/* Eval/evcompile.scm 797 */
																																																BgL_z04procz04_2870
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BGl_symbol3840z00zz__evcompilez00,
																																																	BgL_funz00_1366);
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 800 */
																																																obj_t
																																																	BgL_arg3289z00_4455;
																																																{	/* Eval/evcompile.scm 800 */
																																																	obj_t
																																																		BgL_arg3290z00_4456;
																																																	{	/* Eval/evcompile.scm 800 */
																																																		obj_t
																																																			BgL_arg3291z00_4457;
																																																		BgL_arg3291z00_4457
																																																			=
																																																			MAKE_YOUNG_PAIR
																																																			(BgL_modz00_1367,
																																																			BNIL);
																																																		BgL_arg3290z00_4456
																																																			=
																																																			MAKE_YOUNG_PAIR
																																																			(BgL_funz00_1366,
																																																			BgL_arg3291z00_4457);
																																																	}
																																																	BgL_arg3289z00_4455
																																																		=
																																																		MAKE_YOUNG_PAIR
																																																		(BGl_symbol3833z00zz__evcompilez00,
																																																		BgL_arg3290z00_4456);
																																																}
																																																BgL_z04procz04_2870
																																																	=
																																																	BGl_evcompilezd2errorzd2zz__evcompilez00
																																																	(BgL_locz00_2868,
																																																	BGl_string3824z00zz__evcompilez00,
																																																	BGl_string3842z00zz__evcompilez00,
																																																	BgL_arg3289z00_4455);
																																															}
																																													}
																																											}
																																										}
																																									}
																																									{	/* Eval/evcompile.scm 324 */

																																										return
																																											BGl_evcompilezd2applicationzd2zz__evcompilez00
																																											(BgL_funz00_1366,
																																											BGl_evcompilezd2refzd2zz__evcompilez00
																																											(4L,
																																												BgL_z04procz04_2870,
																																												BgL_genvz00_7,
																																												BgL_locz00_2868,
																																												BgL_lkpz00_11),
																																											BgL_actualsz00_2869,
																																											BgL_tailz00_9,
																																											BgL_locz00_2868);
																																									}
																																								}
																																							}
																																						}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg1422z00_1409;
																																						obj_t
																																							BgL_arg1423z00_1410;
																																						BgL_arg1422z00_1409
																																							=
																																							CAR
																																							(((obj_t) BgL_expz00_5));
																																						BgL_arg1423z00_1410
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						BgL_funz00_1370
																																							=
																																							BgL_arg1422z00_1409;
																																						BgL_argsz00_1371
																																							=
																																							BgL_arg1423z00_1410;
																																					BgL_tagzd2279zd2_1372:
																																						{	/* Eval/evcompile.scm 331 */
																																							obj_t
																																								BgL_locz00_2885;
																																							obj_t
																																								BgL_actualsz00_2886;
																																							obj_t
																																								BgL_procz00_2887;
																																							{	/* Eval/evcompile.scm 65 */
																																								obj_t
																																									BgL__ortest_1065z00_4458;
																																								BgL__ortest_1065z00_4458
																																									=
																																									BGl_getzd2sourcezd2locationz00zz__readerz00
																																									(BgL_expz00_5);
																																								if (CBOOL(BgL__ortest_1065z00_4458))
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_locz00_2885
																																											=
																																											BgL__ortest_1065z00_4458;
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_locz00_2885
																																											=
																																											BgL_locz00_10;
																																									}
																																							}
																																							if (NULLP(BgL_argsz00_1371))
																																								{	/* Eval/evcompile.scm 332 */
																																									BgL_actualsz00_2886
																																										=
																																										BNIL;
																																								}
																																							else
																																								{	/* Eval/evcompile.scm 332 */
																																									obj_t
																																										BgL_head1155z00_2890;
																																									BgL_head1155z00_2890
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BNIL,
																																										BNIL);
																																									{
																																										obj_t
																																											BgL_l1153z00_2892;
																																										obj_t
																																											BgL_tail1156z00_2893;
																																										BgL_l1153z00_2892
																																											=
																																											BgL_argsz00_1371;
																																										BgL_tail1156z00_2893
																																											=
																																											BgL_head1155z00_2890;
																																									BgL_zc3z04anonymousza32781ze3z87_2894:
																																										if (NULLP(BgL_l1153z00_2892))
																																											{	/* Eval/evcompile.scm 332 */
																																												BgL_actualsz00_2886
																																													=
																																													CDR
																																													(BgL_head1155z00_2890);
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 332 */
																																												obj_t
																																													BgL_newtail1157z00_2896;
																																												{	/* Eval/evcompile.scm 332 */
																																													obj_t
																																														BgL_arg2784z00_2898;
																																													{	/* Eval/evcompile.scm 332 */
																																														obj_t
																																															BgL_az00_2899;
																																														BgL_az00_2899
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_l1153z00_2892));
																																														BgL_arg2784z00_2898
																																															=
																																															BGl_evcompilez00zz__evcompilez00
																																															(BgL_az00_2899,
																																															BgL_envz00_6,
																																															BgL_genvz00_7,
																																															BgL_wherez00_8,
																																															((bool_t) 0), BgL_locz00_10, BgL_lkpz00_11, ((bool_t) 0));
																																													}
																																													BgL_newtail1157z00_2896
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg2784z00_2898,
																																														BNIL);
																																												}
																																												SET_CDR
																																													(BgL_tail1156z00_2893,
																																													BgL_newtail1157z00_2896);
																																												{	/* Eval/evcompile.scm 332 */
																																													obj_t
																																														BgL_arg2783z00_2897;
																																													BgL_arg2783z00_2897
																																														=
																																														CDR
																																														(
																																														((obj_t) BgL_l1153z00_2892));
																																													{
																																														obj_t
																																															BgL_tail1156z00_6962;
																																														obj_t
																																															BgL_l1153z00_6961;
																																														BgL_l1153z00_6961
																																															=
																																															BgL_arg2783z00_2897;
																																														BgL_tail1156z00_6962
																																															=
																																															BgL_newtail1157z00_2896;
																																														BgL_tail1156z00_2893
																																															=
																																															BgL_tail1156z00_6962;
																																														BgL_l1153z00_2892
																																															=
																																															BgL_l1153z00_6961;
																																														goto
																																															BgL_zc3z04anonymousza32781ze3z87_2894;
																																													}
																																												}
																																											}
																																									}
																																								}
																																							BgL_procz00_2887
																																								=
																																								BGl_evcompilez00zz__evcompilez00
																																								(BgL_funz00_1370,
																																								BgL_envz00_6,
																																								BgL_genvz00_7,
																																								BgL_wherez00_8,
																																								((bool_t) 0), BgL_locz00_10, BgL_lkpz00_11, ((bool_t) 0));
																																							return
																																								BGl_evcompilezd2applicationzd2zz__evcompilez00
																																								(BgL_funz00_1370,
																																								BgL_procz00_2887,
																																								BgL_actualsz00_2886,
																																								BgL_tailz00_9,
																																								BgL_locz00_2885);
																																						}
																																					}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1425z00_1412;
																																				obj_t
																																					BgL_arg1426z00_1413;
																																				BgL_arg1425z00_1412
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				BgL_arg1426z00_1413
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_6970;
																																					obj_t
																																						BgL_funz00_6969;
																																					BgL_funz00_6969
																																						=
																																						BgL_arg1425z00_1412;
																																					BgL_argsz00_6970
																																						=
																																						BgL_arg1426z00_1413;
																																					BgL_argsz00_1371
																																						=
																																						BgL_argsz00_6970;
																																					BgL_funz00_1370
																																						=
																																						BgL_funz00_6969;
																																					goto
																																						BgL_tagzd2279zd2_1372;
																																				}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1427z00_1414;
																																		obj_t
																																			BgL_arg1428z00_1415;
																																		BgL_arg1427z00_1414
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		BgL_arg1428z00_1415
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_6976;
																																			obj_t
																																				BgL_funz00_6975;
																																			BgL_funz00_6975
																																				=
																																				BgL_arg1427z00_1414;
																																			BgL_argsz00_6976
																																				=
																																				BgL_arg1428z00_1415;
																																			BgL_argsz00_1371
																																				=
																																				BgL_argsz00_6976;
																																			BgL_funz00_1370
																																				=
																																				BgL_funz00_6975;
																																			goto
																																				BgL_tagzd2279zd2_1372;
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1429z00_1416;
																																obj_t
																																	BgL_arg1430z00_1417;
																																BgL_arg1429z00_1416
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																BgL_arg1430z00_1417
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_6982;
																																	obj_t
																																		BgL_funz00_6981;
																																	BgL_funz00_6981
																																		=
																																		BgL_arg1429z00_1416;
																																	BgL_argsz00_6982
																																		=
																																		BgL_arg1430z00_1417;
																																	BgL_argsz00_1371
																																		=
																																		BgL_argsz00_6982;
																																	BgL_funz00_1370
																																		=
																																		BgL_funz00_6981;
																																	goto
																																		BgL_tagzd2279zd2_1372;
																																}
																															}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1431z00_1418;
																														obj_t
																															BgL_arg1432z00_1419;
																														BgL_arg1431z00_1418
																															=
																															CAR(((obj_t)
																																BgL_expz00_5));
																														BgL_arg1432z00_1419
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_6988;
																															obj_t
																																BgL_funz00_6987;
																															BgL_funz00_6987 =
																																BgL_arg1431z00_1418;
																															BgL_argsz00_6988 =
																																BgL_arg1432z00_1419;
																															BgL_argsz00_1371 =
																																BgL_argsz00_6988;
																															BgL_funz00_1370 =
																																BgL_funz00_6987;
																															goto
																																BgL_tagzd2279zd2_1372;
																														}
																													}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_arg1433z00_1420;
																												obj_t
																													BgL_arg1434z00_1421;
																												BgL_arg1433z00_1420 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												BgL_arg1434z00_1421 =
																													CDR(((obj_t)
																														BgL_expz00_5));
																												{
																													obj_t
																														BgL_argsz00_6994;
																													obj_t BgL_funz00_6993;

																													BgL_funz00_6993 =
																														BgL_arg1433z00_1420;
																													BgL_argsz00_6994 =
																														BgL_arg1434z00_1421;
																													BgL_argsz00_1371 =
																														BgL_argsz00_6994;
																													BgL_funz00_1370 =
																														BgL_funz00_6993;
																													goto
																														BgL_tagzd2279zd2_1372;
																												}
																											}
																									}
																								else
																									{	/* Eval/evcompile.scm 83 */
																										BgL_funz00_1363 =
																											BgL_carzd2647zd2_1393;
																										BgL_argsz00_1364 =
																											BgL_cdrzd2397zd2_1381;
																									BgL_tagzd2277zd2_1365:
																										{	/* Eval/evcompile.scm 300 */
																											obj_t BgL_locz00_2844;

																											{	/* Eval/evcompile.scm 65 */
																												obj_t
																													BgL__ortest_1065z00_4439;
																												BgL__ortest_1065z00_4439
																													=
																													BGl_getzd2sourcezd2locationz00zz__readerz00
																													(BgL_expz00_5);
																												if (CBOOL
																													(BgL__ortest_1065z00_4439))
																													{	/* Eval/evcompile.scm 65 */
																														BgL_locz00_2844 =
																															BgL__ortest_1065z00_4439;
																													}
																												else
																													{	/* Eval/evcompile.scm 65 */
																														BgL_locz00_2844 =
																															BgL_locz00_10;
																													}
																											}
																											{	/* Eval/evcompile.scm 300 */
																												obj_t
																													BgL_actualsz00_2845;
																												if (NULLP
																													(BgL_argsz00_1364))
																													{	/* Eval/evcompile.scm 301 */
																														BgL_actualsz00_2845
																															= BNIL;
																													}
																												else
																													{	/* Eval/evcompile.scm 301 */
																														obj_t
																															BgL_head1144z00_2857;
																														BgL_head1144z00_2857
																															=
																															MAKE_YOUNG_PAIR
																															(BNIL, BNIL);
																														{
																															obj_t
																																BgL_l1142z00_2859;
																															obj_t
																																BgL_tail1145z00_2860;
																															BgL_l1142z00_2859
																																=
																																BgL_argsz00_1364;
																															BgL_tail1145z00_2860
																																=
																																BgL_head1144z00_2857;
																														BgL_zc3z04anonymousza32770ze3z87_2861:
																															if (NULLP
																																(BgL_l1142z00_2859))
																																{	/* Eval/evcompile.scm 301 */
																																	BgL_actualsz00_2845
																																		=
																																		CDR
																																		(BgL_head1144z00_2857);
																																}
																															else
																																{	/* Eval/evcompile.scm 301 */
																																	obj_t
																																		BgL_newtail1146z00_2863;
																																	{	/* Eval/evcompile.scm 301 */
																																		obj_t
																																			BgL_arg2773z00_2865;
																																		{	/* Eval/evcompile.scm 301 */
																																			obj_t
																																				BgL_az00_2866;
																																			BgL_az00_2866
																																				=
																																				CAR((
																																					(obj_t)
																																					BgL_l1142z00_2859));
																																			BgL_arg2773z00_2865
																																				=
																																				BGl_evcompilez00zz__evcompilez00
																																				(BgL_az00_2866,
																																				BgL_envz00_6,
																																				BgL_genvz00_7,
																																				BgL_wherez00_8,
																																				((bool_t) 0), BgL_locz00_2844, BgL_lkpz00_11, ((bool_t) 0));
																																		}
																																		BgL_newtail1146z00_2863
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg2773z00_2865,
																																			BNIL);
																																	}
																																	SET_CDR
																																		(BgL_tail1145z00_2860,
																																		BgL_newtail1146z00_2863);
																																	{	/* Eval/evcompile.scm 301 */
																																		obj_t
																																			BgL_arg2772z00_2864;
																																		BgL_arg2772z00_2864
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_l1142z00_2859));
																																		{
																																			obj_t
																																				BgL_tail1145z00_7012;
																																			obj_t
																																				BgL_l1142z00_7011;
																																			BgL_l1142z00_7011
																																				=
																																				BgL_arg2772z00_2864;
																																			BgL_tail1145z00_7012
																																				=
																																				BgL_newtail1146z00_2863;
																																			BgL_tail1145z00_2860
																																				=
																																				BgL_tail1145z00_7012;
																																			BgL_l1142z00_2859
																																				=
																																				BgL_l1142z00_7011;
																																			goto
																																				BgL_zc3z04anonymousza32770ze3z87_2861;
																																		}
																																	}
																																}
																														}
																													}
																												{	/* Eval/evcompile.scm 301 */

																													if (SYMBOLP
																														(BgL_funz00_1363))
																														{	/* Eval/evcompile.scm 306 */
																															obj_t
																																BgL_procz00_2847;
																															BgL_procz00_2847 =
																																BGl_variablez00zz__evcompilez00
																																(BgL_locz00_2844,
																																BgL_funz00_1363,
																																BgL_envz00_6,
																																BgL_genvz00_7);
																															{	/* Eval/evcompile.scm 306 */
																																obj_t
																																	BgL_refz00_2848;
																																BgL_refz00_2848
																																	=
																																	BGl_evcompilezd2refzd2zz__evcompilez00
																																	(3L,
																																	BgL_procz00_2847,
																																	BgL_genvz00_7,
																																	BgL_locz00_2844,
																																	BgL_lkpz00_11);
																																{	/* Eval/evcompile.scm 307 */

																																	return
																																		BGl_evcompilezd2applicationzd2zz__evcompilez00
																																		(BgL_funz00_1363,
																																		BgL_refz00_2848,
																																		BgL_actualsz00_2845,
																																		BgL_tailz00_9,
																																		BgL_locz00_2844);
																																}
																															}
																														}
																													else
																														{	/* Eval/evcompile.scm 305 */
																															if (PROCEDUREP
																																(BgL_funz00_1363))
																																{	/* Eval/evcompile.scm 309 */
																																	if (BgL_lkpz00_11)
																																		{	/* Eval/evcompile.scm 310 */
																																			return
																																				BGl_evcompilezd2compiledzd2applicationz00zz__evcompilez00
																																				(BgL_funz00_1363,
																																				BgL_actualsz00_2845,
																																				BgL_locz00_2844);
																																		}
																																	else
																																		{	/* Eval/evcompile.scm 310 */
																																			return
																																				BGl_evcompilezd2errorzd2zz__evcompilez00
																																				(BgL_locz00_2844,
																																				BGl_string3824z00zz__evcompilez00,
																																				BGl_string3826z00zz__evcompilez00,
																																				BgL_funz00_1363);
																																		}
																																}
																															else
																																{	/* Eval/evcompile.scm 309 */
																																	BGl_evcompilezd2errorzd2zz__evcompilez00
																																		(BgL_locz00_2844,
																																		BGl_string3824z00zz__evcompilez00,
																																		BGl_string3839z00zz__evcompilez00,
																																		BgL_funz00_1363);
																																	{	/* Eval/evcompile.scm 318 */
																																		obj_t
																																			BgL_v1147z00_2850;
																																		BgL_v1147z00_2850
																																			=
																																			create_vector
																																			(3L);
																																		VECTOR_SET
																																			(BgL_v1147z00_2850,
																																			0L,
																																			BINT(
																																				(-2L)));
																																		VECTOR_SET
																																			(BgL_v1147z00_2850,
																																			1L,
																																			BgL_locz00_2844);
																																		{	/* Eval/evcompile.scm 318 */
																																			obj_t
																																				BgL_arg2765z00_2851;
																																			{	/* Eval/evcompile.scm 318 */
																																				obj_t
																																					BgL_list2766z00_2852;
																																				{	/* Eval/evcompile.scm 318 */
																																					obj_t
																																						BgL_arg2767z00_2853;
																																					{	/* Eval/evcompile.scm 318 */
																																						obj_t
																																							BgL_arg2768z00_2854;
																																						BgL_arg2768z00_2854
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_funz00_1363,
																																							BNIL);
																																						BgL_arg2767z00_2853
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_string3839z00zz__evcompilez00,
																																							BgL_arg2768z00_2854);
																																					}
																																					BgL_list2766z00_2852
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_string3824z00zz__evcompilez00,
																																						BgL_arg2767z00_2853);
																																				}
																																				BgL_arg2765z00_2851
																																					=
																																					BgL_list2766z00_2852;
																																			}
																																			VECTOR_SET
																																				(BgL_v1147z00_2850,
																																				2L,
																																				BgL_arg2765z00_2851);
																																		}
																																		return
																																			BgL_v1147z00_2850;
																																	}
																																}
																														}
																												}
																											}
																										}
																									}
																							}
																					}
																				else
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_carzd2967zd2_1425;

																						BgL_carzd2967zd2_1425 =
																							CAR(((obj_t) BgL_expz00_5));
																						if (PAIRP(BgL_carzd2967zd2_1425))
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_cdrzd2984zd2_1428;

																								BgL_cdrzd2984zd2_1428 =
																									CDR(
																									((obj_t)
																										BgL_carzd2967zd2_1425));
																								if ((CAR(((obj_t)
																												BgL_carzd2967zd2_1425))
																										==
																										BGl_symbol3833z00zz__evcompilez00))
																									{	/* Eval/evcompile.scm 83 */
																										if (PAIRP
																											(BgL_cdrzd2984zd2_1428))
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_carzd2987zd2_1432;
																												obj_t
																													BgL_cdrzd2988zd2_1433;
																												BgL_carzd2987zd2_1432 =
																													CAR
																													(BgL_cdrzd2984zd2_1428);
																												BgL_cdrzd2988zd2_1433 =
																													CDR
																													(BgL_cdrzd2984zd2_1428);
																												if (SYMBOLP
																													(BgL_carzd2987zd2_1432))
																													{	/* Eval/evcompile.scm 83 */
																														if (PAIRP
																															(BgL_cdrzd2988zd2_1433))
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_carzd2993zd2_1436;
																																BgL_carzd2993zd2_1436
																																	=
																																	CAR
																																	(BgL_cdrzd2988zd2_1433);
																																if (SYMBOLP
																																	(BgL_carzd2993zd2_1436))
																																	{	/* Eval/evcompile.scm 83 */
																																		if (NULLP
																																			(CDR
																																				(BgL_cdrzd2988zd2_1433)))
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1447z00_1440;
																																				BgL_arg1447z00_1440
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_7060;
																																					obj_t
																																						BgL_modz00_7059;
																																					obj_t
																																						BgL_funz00_7058;
																																					BgL_funz00_7058
																																						=
																																						BgL_carzd2987zd2_1432;
																																					BgL_modz00_7059
																																						=
																																						BgL_carzd2993zd2_1436;
																																					BgL_argsz00_7060
																																						=
																																						BgL_arg1447z00_1440;
																																					BgL_argsz00_1368
																																						=
																																						BgL_argsz00_7060;
																																					BgL_modz00_1367
																																						=
																																						BgL_modz00_7059;
																																					BgL_funz00_1366
																																						=
																																						BgL_funz00_7058;
																																					goto
																																						BgL_tagzd2278zd2_1369;
																																				}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1448z00_1441;
																																				obj_t
																																					BgL_arg1450z00_1442;
																																				BgL_arg1448z00_1441
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				BgL_arg1450z00_1442
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_7066;
																																					obj_t
																																						BgL_funz00_7065;
																																					BgL_funz00_7065
																																						=
																																						BgL_arg1448z00_1441;
																																					BgL_argsz00_7066
																																						=
																																						BgL_arg1450z00_1442;
																																					BgL_argsz00_1371
																																						=
																																						BgL_argsz00_7066;
																																					BgL_funz00_1370
																																						=
																																						BgL_funz00_7065;
																																					goto
																																						BgL_tagzd2279zd2_1372;
																																				}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1452z00_1444;
																																		obj_t
																																			BgL_arg1453z00_1445;
																																		BgL_arg1452z00_1444
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		BgL_arg1453z00_1445
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_7072;
																																			obj_t
																																				BgL_funz00_7071;
																																			BgL_funz00_7071
																																				=
																																				BgL_arg1452z00_1444;
																																			BgL_argsz00_7072
																																				=
																																				BgL_arg1453z00_1445;
																																			BgL_argsz00_1371
																																				=
																																				BgL_argsz00_7072;
																																			BgL_funz00_1370
																																				=
																																				BgL_funz00_7071;
																																			goto
																																				BgL_tagzd2279zd2_1372;
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1455z00_1446;
																																obj_t
																																	BgL_arg1456z00_1447;
																																BgL_arg1455z00_1446
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																BgL_arg1456z00_1447
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_7078;
																																	obj_t
																																		BgL_funz00_7077;
																																	BgL_funz00_7077
																																		=
																																		BgL_arg1455z00_1446;
																																	BgL_argsz00_7078
																																		=
																																		BgL_arg1456z00_1447;
																																	BgL_argsz00_1371
																																		=
																																		BgL_argsz00_7078;
																																	BgL_funz00_1370
																																		=
																																		BgL_funz00_7077;
																																	goto
																																		BgL_tagzd2279zd2_1372;
																																}
																															}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1457z00_1448;
																														obj_t
																															BgL_arg1458z00_1449;
																														BgL_arg1457z00_1448
																															=
																															CAR(((obj_t)
																																BgL_expz00_5));
																														BgL_arg1458z00_1449
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_7084;
																															obj_t
																																BgL_funz00_7083;
																															BgL_funz00_7083 =
																																BgL_arg1457z00_1448;
																															BgL_argsz00_7084 =
																																BgL_arg1458z00_1449;
																															BgL_argsz00_1371 =
																																BgL_argsz00_7084;
																															BgL_funz00_1370 =
																																BgL_funz00_7083;
																															goto
																																BgL_tagzd2279zd2_1372;
																														}
																													}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_arg1459z00_1450;
																												obj_t
																													BgL_arg1460z00_1451;
																												BgL_arg1459z00_1450 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												BgL_arg1460z00_1451 =
																													CDR(((obj_t)
																														BgL_expz00_5));
																												{
																													obj_t
																														BgL_argsz00_7090;
																													obj_t BgL_funz00_7089;

																													BgL_funz00_7089 =
																														BgL_arg1459z00_1450;
																													BgL_argsz00_7090 =
																														BgL_arg1460z00_1451;
																													BgL_argsz00_1371 =
																														BgL_argsz00_7090;
																													BgL_funz00_1370 =
																														BgL_funz00_7089;
																													goto
																														BgL_tagzd2279zd2_1372;
																												}
																											}
																									}
																								else
																									{	/* Eval/evcompile.scm 83 */
																										obj_t BgL_arg1461z00_1452;
																										obj_t BgL_arg1462z00_1453;

																										BgL_arg1461z00_1452 =
																											CAR(
																											((obj_t) BgL_expz00_5));
																										BgL_arg1462z00_1453 =
																											CDR(
																											((obj_t) BgL_expz00_5));
																										{
																											obj_t BgL_argsz00_7096;
																											obj_t BgL_funz00_7095;

																											BgL_funz00_7095 =
																												BgL_arg1461z00_1452;
																											BgL_argsz00_7096 =
																												BgL_arg1462z00_1453;
																											BgL_argsz00_1371 =
																												BgL_argsz00_7096;
																											BgL_funz00_1370 =
																												BgL_funz00_7095;
																											goto
																												BgL_tagzd2279zd2_1372;
																										}
																									}
																							}
																						else
																							{
																								obj_t BgL_argsz00_7098;
																								obj_t BgL_funz00_7097;

																								BgL_funz00_7097 =
																									BgL_carzd2967zd2_1425;
																								BgL_argsz00_7098 =
																									BgL_cdrzd2397zd2_1381;
																								BgL_argsz00_1364 =
																									BgL_argsz00_7098;
																								BgL_funz00_1363 =
																									BgL_funz00_7097;
																								goto BgL_tagzd2277zd2_1365;
																							}
																					}
																			}
																		else
																			{	/* Eval/evcompile.scm 83 */
																				obj_t BgL_carzd21287zd2_1456;

																				BgL_carzd21287zd2_1456 =
																					CAR(((obj_t) BgL_expz00_5));
																				if (PAIRP(BgL_carzd21287zd2_1456))
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_cdrzd21304zd2_1459;

																						BgL_cdrzd21304zd2_1459 =
																							CDR(
																							((obj_t) BgL_carzd21287zd2_1456));
																						if (
																							(CAR(
																									((obj_t)
																										BgL_carzd21287zd2_1456)) ==
																								BGl_symbol3833z00zz__evcompilez00))
																							{	/* Eval/evcompile.scm 83 */
																								if (PAIRP
																									(BgL_cdrzd21304zd2_1459))
																									{	/* Eval/evcompile.scm 83 */
																										obj_t
																											BgL_carzd21307zd2_1463;
																										obj_t
																											BgL_cdrzd21308zd2_1464;
																										BgL_carzd21307zd2_1463 =
																											CAR
																											(BgL_cdrzd21304zd2_1459);
																										BgL_cdrzd21308zd2_1464 =
																											CDR
																											(BgL_cdrzd21304zd2_1459);
																										if (SYMBOLP
																											(BgL_carzd21307zd2_1463))
																											{	/* Eval/evcompile.scm 83 */
																												if (PAIRP
																													(BgL_cdrzd21308zd2_1464))
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_carzd21313zd2_1467;
																														BgL_carzd21313zd2_1467
																															=
																															CAR
																															(BgL_cdrzd21308zd2_1464);
																														if (SYMBOLP
																															(BgL_carzd21313zd2_1467))
																															{	/* Eval/evcompile.scm 83 */
																																if (NULLP(CDR
																																		(BgL_cdrzd21308zd2_1464)))
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1475z00_1471;
																																		BgL_arg1475z00_1471
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_7127;
																																			obj_t
																																				BgL_modz00_7126;
																																			obj_t
																																				BgL_funz00_7125;
																																			BgL_funz00_7125
																																				=
																																				BgL_carzd21307zd2_1463;
																																			BgL_modz00_7126
																																				=
																																				BgL_carzd21313zd2_1467;
																																			BgL_argsz00_7127
																																				=
																																				BgL_arg1475z00_1471;
																																			BgL_argsz00_1368
																																				=
																																				BgL_argsz00_7127;
																																			BgL_modz00_1367
																																				=
																																				BgL_modz00_7126;
																																			BgL_funz00_1366
																																				=
																																				BgL_funz00_7125;
																																			goto
																																				BgL_tagzd2278zd2_1369;
																																		}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1476z00_1472;
																																		obj_t
																																			BgL_arg1479z00_1473;
																																		BgL_arg1476z00_1472
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		BgL_arg1479z00_1473
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_7133;
																																			obj_t
																																				BgL_funz00_7132;
																																			BgL_funz00_7132
																																				=
																																				BgL_arg1476z00_1472;
																																			BgL_argsz00_7133
																																				=
																																				BgL_arg1479z00_1473;
																																			BgL_argsz00_1371
																																				=
																																				BgL_argsz00_7133;
																																			BgL_funz00_1370
																																				=
																																				BgL_funz00_7132;
																																			goto
																																				BgL_tagzd2279zd2_1372;
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1481z00_1475;
																																obj_t
																																	BgL_arg1482z00_1476;
																																BgL_arg1481z00_1475
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																BgL_arg1482z00_1476
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_7139;
																																	obj_t
																																		BgL_funz00_7138;
																																	BgL_funz00_7138
																																		=
																																		BgL_arg1481z00_1475;
																																	BgL_argsz00_7139
																																		=
																																		BgL_arg1482z00_1476;
																																	BgL_argsz00_1371
																																		=
																																		BgL_argsz00_7139;
																																	BgL_funz00_1370
																																		=
																																		BgL_funz00_7138;
																																	goto
																																		BgL_tagzd2279zd2_1372;
																																}
																															}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1483z00_1477;
																														obj_t
																															BgL_arg1484z00_1478;
																														BgL_arg1483z00_1477
																															=
																															CAR(((obj_t)
																																BgL_expz00_5));
																														BgL_arg1484z00_1478
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_7145;
																															obj_t
																																BgL_funz00_7144;
																															BgL_funz00_7144 =
																																BgL_arg1483z00_1477;
																															BgL_argsz00_7145 =
																																BgL_arg1484z00_1478;
																															BgL_argsz00_1371 =
																																BgL_argsz00_7145;
																															BgL_funz00_1370 =
																																BgL_funz00_7144;
																															goto
																																BgL_tagzd2279zd2_1372;
																														}
																													}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_arg1486z00_1479;
																												obj_t
																													BgL_arg1487z00_1480;
																												BgL_arg1486z00_1479 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												BgL_arg1487z00_1480 =
																													CDR(((obj_t)
																														BgL_expz00_5));
																												{
																													obj_t
																														BgL_argsz00_7151;
																													obj_t BgL_funz00_7150;

																													BgL_funz00_7150 =
																														BgL_arg1486z00_1479;
																													BgL_argsz00_7151 =
																														BgL_arg1487z00_1480;
																													BgL_argsz00_1371 =
																														BgL_argsz00_7151;
																													BgL_funz00_1370 =
																														BgL_funz00_7150;
																													goto
																														BgL_tagzd2279zd2_1372;
																												}
																											}
																									}
																								else
																									{	/* Eval/evcompile.scm 83 */
																										obj_t BgL_arg1488z00_1481;
																										obj_t BgL_arg1489z00_1482;

																										BgL_arg1488z00_1481 =
																											CAR(
																											((obj_t) BgL_expz00_5));
																										BgL_arg1489z00_1482 =
																											CDR(
																											((obj_t) BgL_expz00_5));
																										{
																											obj_t BgL_argsz00_7157;
																											obj_t BgL_funz00_7156;

																											BgL_funz00_7156 =
																												BgL_arg1488z00_1481;
																											BgL_argsz00_7157 =
																												BgL_arg1489z00_1482;
																											BgL_argsz00_1371 =
																												BgL_argsz00_7157;
																											BgL_funz00_1370 =
																												BgL_funz00_7156;
																											goto
																												BgL_tagzd2279zd2_1372;
																										}
																									}
																							}
																						else
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_arg1490z00_1483;
																								obj_t BgL_arg1491z00_1484;

																								BgL_arg1490z00_1483 =
																									CAR(((obj_t) BgL_expz00_5));
																								BgL_arg1491z00_1484 =
																									CDR(((obj_t) BgL_expz00_5));
																								{
																									obj_t BgL_argsz00_7163;
																									obj_t BgL_funz00_7162;

																									BgL_funz00_7162 =
																										BgL_arg1490z00_1483;
																									BgL_argsz00_7163 =
																										BgL_arg1491z00_1484;
																									BgL_argsz00_1371 =
																										BgL_argsz00_7163;
																									BgL_funz00_1370 =
																										BgL_funz00_7162;
																									goto BgL_tagzd2279zd2_1372;
																								}
																							}
																					}
																				else
																					{
																						obj_t BgL_argsz00_7165;
																						obj_t BgL_funz00_7164;

																						BgL_funz00_7164 =
																							BgL_carzd21287zd2_1456;
																						BgL_argsz00_7165 =
																							BgL_cdrzd2397zd2_1381;
																						BgL_argsz00_1364 = BgL_argsz00_7165;
																						BgL_funz00_1363 = BgL_funz00_7164;
																						goto BgL_tagzd2277zd2_1365;
																					}
																			}
																	}
																else
																	{	/* Eval/evcompile.scm 83 */
																		obj_t BgL_carzd21607zd2_1487;

																		BgL_carzd21607zd2_1487 =
																			CAR(((obj_t) BgL_expz00_5));
																		if (PAIRP(BgL_carzd21607zd2_1487))
																			{	/* Eval/evcompile.scm 83 */
																				obj_t BgL_cdrzd21624zd2_1490;

																				BgL_cdrzd21624zd2_1490 =
																					CDR(((obj_t) BgL_carzd21607zd2_1487));
																				if (
																					(CAR(
																							((obj_t) BgL_carzd21607zd2_1487))
																						==
																						BGl_symbol3833z00zz__evcompilez00))
																					{	/* Eval/evcompile.scm 83 */
																						if (PAIRP(BgL_cdrzd21624zd2_1490))
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_carzd21627zd2_1494;
																								obj_t BgL_cdrzd21628zd2_1495;

																								BgL_carzd21627zd2_1494 =
																									CAR(BgL_cdrzd21624zd2_1490);
																								BgL_cdrzd21628zd2_1495 =
																									CDR(BgL_cdrzd21624zd2_1490);
																								if (SYMBOLP
																									(BgL_carzd21627zd2_1494))
																									{	/* Eval/evcompile.scm 83 */
																										if (PAIRP
																											(BgL_cdrzd21628zd2_1495))
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_carzd21633zd2_1498;
																												BgL_carzd21633zd2_1498 =
																													CAR
																													(BgL_cdrzd21628zd2_1495);
																												if (SYMBOLP
																													(BgL_carzd21633zd2_1498))
																													{	/* Eval/evcompile.scm 83 */
																														if (NULLP(CDR
																																(BgL_cdrzd21628zd2_1495)))
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1507z00_1502;
																																BgL_arg1507z00_1502
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_7194;
																																	obj_t
																																		BgL_modz00_7193;
																																	obj_t
																																		BgL_funz00_7192;
																																	BgL_funz00_7192
																																		=
																																		BgL_carzd21627zd2_1494;
																																	BgL_modz00_7193
																																		=
																																		BgL_carzd21633zd2_1498;
																																	BgL_argsz00_7194
																																		=
																																		BgL_arg1507z00_1502;
																																	BgL_argsz00_1368
																																		=
																																		BgL_argsz00_7194;
																																	BgL_modz00_1367
																																		=
																																		BgL_modz00_7193;
																																	BgL_funz00_1366
																																		=
																																		BgL_funz00_7192;
																																	goto
																																		BgL_tagzd2278zd2_1369;
																																}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1508z00_1503;
																																obj_t
																																	BgL_arg1509z00_1504;
																																BgL_arg1508z00_1503
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																BgL_arg1509z00_1504
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_7200;
																																	obj_t
																																		BgL_funz00_7199;
																																	BgL_funz00_7199
																																		=
																																		BgL_arg1508z00_1503;
																																	BgL_argsz00_7200
																																		=
																																		BgL_arg1509z00_1504;
																																	BgL_argsz00_1371
																																		=
																																		BgL_argsz00_7200;
																																	BgL_funz00_1370
																																		=
																																		BgL_funz00_7199;
																																	goto
																																		BgL_tagzd2279zd2_1372;
																																}
																															}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1511z00_1506;
																														obj_t
																															BgL_arg1512z00_1507;
																														BgL_arg1511z00_1506
																															=
																															CAR(((obj_t)
																																BgL_expz00_5));
																														BgL_arg1512z00_1507
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_7206;
																															obj_t
																																BgL_funz00_7205;
																															BgL_funz00_7205 =
																																BgL_arg1511z00_1506;
																															BgL_argsz00_7206 =
																																BgL_arg1512z00_1507;
																															BgL_argsz00_1371 =
																																BgL_argsz00_7206;
																															BgL_funz00_1370 =
																																BgL_funz00_7205;
																															goto
																																BgL_tagzd2279zd2_1372;
																														}
																													}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_arg1513z00_1508;
																												obj_t
																													BgL_arg1514z00_1509;
																												BgL_arg1513z00_1508 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												BgL_arg1514z00_1509 =
																													CDR(((obj_t)
																														BgL_expz00_5));
																												{
																													obj_t
																														BgL_argsz00_7212;
																													obj_t BgL_funz00_7211;

																													BgL_funz00_7211 =
																														BgL_arg1513z00_1508;
																													BgL_argsz00_7212 =
																														BgL_arg1514z00_1509;
																													BgL_argsz00_1371 =
																														BgL_argsz00_7212;
																													BgL_funz00_1370 =
																														BgL_funz00_7211;
																													goto
																														BgL_tagzd2279zd2_1372;
																												}
																											}
																									}
																								else
																									{	/* Eval/evcompile.scm 83 */
																										obj_t BgL_arg1515z00_1510;
																										obj_t BgL_arg1516z00_1511;

																										BgL_arg1515z00_1510 =
																											CAR(
																											((obj_t) BgL_expz00_5));
																										BgL_arg1516z00_1511 =
																											CDR(
																											((obj_t) BgL_expz00_5));
																										{
																											obj_t BgL_argsz00_7218;
																											obj_t BgL_funz00_7217;

																											BgL_funz00_7217 =
																												BgL_arg1515z00_1510;
																											BgL_argsz00_7218 =
																												BgL_arg1516z00_1511;
																											BgL_argsz00_1371 =
																												BgL_argsz00_7218;
																											BgL_funz00_1370 =
																												BgL_funz00_7217;
																											goto
																												BgL_tagzd2279zd2_1372;
																										}
																									}
																							}
																						else
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_arg1517z00_1512;
																								obj_t BgL_arg1520z00_1513;

																								BgL_arg1517z00_1512 =
																									CAR(((obj_t) BgL_expz00_5));
																								BgL_arg1520z00_1513 =
																									CDR(((obj_t) BgL_expz00_5));
																								{
																									obj_t BgL_argsz00_7224;
																									obj_t BgL_funz00_7223;

																									BgL_funz00_7223 =
																										BgL_arg1517z00_1512;
																									BgL_argsz00_7224 =
																										BgL_arg1520z00_1513;
																									BgL_argsz00_1371 =
																										BgL_argsz00_7224;
																									BgL_funz00_1370 =
																										BgL_funz00_7223;
																									goto BgL_tagzd2279zd2_1372;
																								}
																							}
																					}
																				else
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_arg1521z00_1514;
																						obj_t BgL_arg1522z00_1515;

																						BgL_arg1521z00_1514 =
																							CAR(((obj_t) BgL_expz00_5));
																						BgL_arg1522z00_1515 =
																							CDR(((obj_t) BgL_expz00_5));
																						{
																							obj_t BgL_argsz00_7230;
																							obj_t BgL_funz00_7229;

																							BgL_funz00_7229 =
																								BgL_arg1521z00_1514;
																							BgL_argsz00_7230 =
																								BgL_arg1522z00_1515;
																							BgL_argsz00_1371 =
																								BgL_argsz00_7230;
																							BgL_funz00_1370 = BgL_funz00_7229;
																							goto BgL_tagzd2279zd2_1372;
																						}
																					}
																			}
																		else
																			{
																				obj_t BgL_argsz00_7232;
																				obj_t BgL_funz00_7231;

																				BgL_funz00_7231 =
																					BgL_carzd21607zd2_1487;
																				BgL_argsz00_7232 =
																					BgL_cdrzd2397zd2_1381;
																				BgL_argsz00_1364 = BgL_argsz00_7232;
																				BgL_funz00_1363 = BgL_funz00_7231;
																				goto BgL_tagzd2277zd2_1365;
																			}
																	}
															}
														else
															{	/* Eval/evcompile.scm 83 */
																obj_t BgL_carzd21927zd2_1518;

																BgL_carzd21927zd2_1518 =
																	CAR(((obj_t) BgL_expz00_5));
																if (PAIRP(BgL_carzd21927zd2_1518))
																	{	/* Eval/evcompile.scm 83 */
																		obj_t BgL_cdrzd21944zd2_1521;

																		BgL_cdrzd21944zd2_1521 =
																			CDR(((obj_t) BgL_carzd21927zd2_1518));
																		if (
																			(CAR(
																					((obj_t) BgL_carzd21927zd2_1518)) ==
																				BGl_symbol3833z00zz__evcompilez00))
																			{	/* Eval/evcompile.scm 83 */
																				if (PAIRP(BgL_cdrzd21944zd2_1521))
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_carzd21947zd2_1525;
																						obj_t BgL_cdrzd21948zd2_1526;

																						BgL_carzd21947zd2_1525 =
																							CAR(BgL_cdrzd21944zd2_1521);
																						BgL_cdrzd21948zd2_1526 =
																							CDR(BgL_cdrzd21944zd2_1521);
																						if (SYMBOLP(BgL_carzd21947zd2_1525))
																							{	/* Eval/evcompile.scm 83 */
																								if (PAIRP
																									(BgL_cdrzd21948zd2_1526))
																									{	/* Eval/evcompile.scm 83 */
																										obj_t
																											BgL_carzd21953zd2_1529;
																										BgL_carzd21953zd2_1529 =
																											CAR
																											(BgL_cdrzd21948zd2_1526);
																										if (SYMBOLP
																											(BgL_carzd21953zd2_1529))
																											{	/* Eval/evcompile.scm 83 */
																												if (NULLP(CDR
																														(BgL_cdrzd21948zd2_1526)))
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1534z00_1533;
																														BgL_arg1534z00_1533
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_7261;
																															obj_t
																																BgL_modz00_7260;
																															obj_t
																																BgL_funz00_7259;
																															BgL_funz00_7259 =
																																BgL_carzd21947zd2_1525;
																															BgL_modz00_7260 =
																																BgL_carzd21953zd2_1529;
																															BgL_argsz00_7261 =
																																BgL_arg1534z00_1533;
																															BgL_argsz00_1368 =
																																BgL_argsz00_7261;
																															BgL_modz00_1367 =
																																BgL_modz00_7260;
																															BgL_funz00_1366 =
																																BgL_funz00_7259;
																															goto
																																BgL_tagzd2278zd2_1369;
																														}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1537z00_1534;
																														obj_t
																															BgL_arg1538z00_1535;
																														BgL_arg1537z00_1534
																															=
																															CAR(((obj_t)
																																BgL_expz00_5));
																														BgL_arg1538z00_1535
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_7267;
																															obj_t
																																BgL_funz00_7266;
																															BgL_funz00_7266 =
																																BgL_arg1537z00_1534;
																															BgL_argsz00_7267 =
																																BgL_arg1538z00_1535;
																															BgL_argsz00_1371 =
																																BgL_argsz00_7267;
																															BgL_funz00_1370 =
																																BgL_funz00_7266;
																															goto
																																BgL_tagzd2279zd2_1372;
																														}
																													}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_arg1541z00_1537;
																												obj_t
																													BgL_arg1542z00_1538;
																												BgL_arg1541z00_1537 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												BgL_arg1542z00_1538 =
																													CDR(((obj_t)
																														BgL_expz00_5));
																												{
																													obj_t
																														BgL_argsz00_7273;
																													obj_t BgL_funz00_7272;

																													BgL_funz00_7272 =
																														BgL_arg1541z00_1537;
																													BgL_argsz00_7273 =
																														BgL_arg1542z00_1538;
																													BgL_argsz00_1371 =
																														BgL_argsz00_7273;
																													BgL_funz00_1370 =
																														BgL_funz00_7272;
																													goto
																														BgL_tagzd2279zd2_1372;
																												}
																											}
																									}
																								else
																									{	/* Eval/evcompile.scm 83 */
																										obj_t BgL_arg1543z00_1539;
																										obj_t BgL_arg1545z00_1540;

																										BgL_arg1543z00_1539 =
																											CAR(
																											((obj_t) BgL_expz00_5));
																										BgL_arg1545z00_1540 =
																											CDR(
																											((obj_t) BgL_expz00_5));
																										{
																											obj_t BgL_argsz00_7279;
																											obj_t BgL_funz00_7278;

																											BgL_funz00_7278 =
																												BgL_arg1543z00_1539;
																											BgL_argsz00_7279 =
																												BgL_arg1545z00_1540;
																											BgL_argsz00_1371 =
																												BgL_argsz00_7279;
																											BgL_funz00_1370 =
																												BgL_funz00_7278;
																											goto
																												BgL_tagzd2279zd2_1372;
																										}
																									}
																							}
																						else
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_arg1546z00_1541;
																								obj_t BgL_arg1547z00_1542;

																								BgL_arg1546z00_1541 =
																									CAR(((obj_t) BgL_expz00_5));
																								BgL_arg1547z00_1542 =
																									CDR(((obj_t) BgL_expz00_5));
																								{
																									obj_t BgL_argsz00_7285;
																									obj_t BgL_funz00_7284;

																									BgL_funz00_7284 =
																										BgL_arg1546z00_1541;
																									BgL_argsz00_7285 =
																										BgL_arg1547z00_1542;
																									BgL_argsz00_1371 =
																										BgL_argsz00_7285;
																									BgL_funz00_1370 =
																										BgL_funz00_7284;
																									goto BgL_tagzd2279zd2_1372;
																								}
																							}
																					}
																				else
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_arg1549z00_1543;
																						obj_t BgL_arg1551z00_1544;

																						BgL_arg1549z00_1543 =
																							CAR(((obj_t) BgL_expz00_5));
																						BgL_arg1551z00_1544 =
																							CDR(((obj_t) BgL_expz00_5));
																						{
																							obj_t BgL_argsz00_7291;
																							obj_t BgL_funz00_7290;

																							BgL_funz00_7290 =
																								BgL_arg1549z00_1543;
																							BgL_argsz00_7291 =
																								BgL_arg1551z00_1544;
																							BgL_argsz00_1371 =
																								BgL_argsz00_7291;
																							BgL_funz00_1370 = BgL_funz00_7290;
																							goto BgL_tagzd2279zd2_1372;
																						}
																					}
																			}
																		else
																			{	/* Eval/evcompile.scm 83 */
																				obj_t BgL_arg1552z00_1545;
																				obj_t BgL_arg1554z00_1546;

																				BgL_arg1552z00_1545 =
																					CAR(((obj_t) BgL_expz00_5));
																				BgL_arg1554z00_1546 =
																					CDR(((obj_t) BgL_expz00_5));
																				{
																					obj_t BgL_argsz00_7297;
																					obj_t BgL_funz00_7296;

																					BgL_funz00_7296 = BgL_arg1552z00_1545;
																					BgL_argsz00_7297 =
																						BgL_arg1554z00_1546;
																					BgL_argsz00_1371 = BgL_argsz00_7297;
																					BgL_funz00_1370 = BgL_funz00_7296;
																					goto BgL_tagzd2279zd2_1372;
																				}
																			}
																	}
																else
																	{
																		obj_t BgL_argsz00_7299;
																		obj_t BgL_funz00_7298;

																		BgL_funz00_7298 = BgL_carzd21927zd2_1518;
																		BgL_argsz00_7299 = BgL_cdrzd2397zd2_1381;
																		BgL_argsz00_1364 = BgL_argsz00_7299;
																		BgL_funz00_1363 = BgL_funz00_7298;
																		goto BgL_tagzd2277zd2_1365;
																	}
															}
													}
												else
													{	/* Eval/evcompile.scm 83 */
														if (
															(CAR(
																	((obj_t) BgL_expz00_5)) ==
																BGl_symbol3835z00zz__evcompilez00))
															{	/* Eval/evcompile.scm 83 */
																BgL_lz00_1314 = BgL_cdrzd2397zd2_1381;
																{	/* Eval/evcompile.scm 110 */
																	bool_t BgL_test4003z00_7304;

																	if (PAIRP(BgL_lz00_1314))
																		{	/* Eval/evcompile.scm 110 */
																			bool_t BgL_test4005z00_7307;

																			{	/* Eval/evcompile.scm 110 */
																				obj_t BgL_tmpz00_7308;

																				BgL_tmpz00_7308 = CDR(BgL_lz00_1314);
																				BgL_test4005z00_7307 =
																					PAIRP(BgL_tmpz00_7308);
																			}
																			if (BgL_test4005z00_7307)
																				{
																					obj_t BgL_l1136z00_2607;

																					BgL_l1136z00_2607 = BgL_lz00_1314;
																				BgL_zc3z04anonymousza32559ze3z87_2608:
																					if (NULLP(BgL_l1136z00_2607))
																						{	/* Eval/evcompile.scm 110 */
																							BgL_test4003z00_7304 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Eval/evcompile.scm 110 */
																							bool_t BgL_test4007z00_7313;

																							{	/* Eval/evcompile.scm 110 */
																								obj_t BgL_tmpz00_7314;

																								BgL_tmpz00_7314 =
																									CAR(
																									((obj_t) BgL_l1136z00_2607));
																								BgL_test4007z00_7313 =
																									SYMBOLP(BgL_tmpz00_7314);
																							}
																							if (BgL_test4007z00_7313)
																								{
																									obj_t BgL_l1136z00_7318;

																									BgL_l1136z00_7318 =
																										CDR(
																										((obj_t)
																											BgL_l1136z00_2607));
																									BgL_l1136z00_2607 =
																										BgL_l1136z00_7318;
																									goto
																										BgL_zc3z04anonymousza32559ze3z87_2608;
																								}
																							else
																								{	/* Eval/evcompile.scm 110 */
																									BgL_test4003z00_7304 =
																										((bool_t) 0);
																								}
																						}
																				}
																			else
																				{	/* Eval/evcompile.scm 110 */
																					BgL_test4003z00_7304 = ((bool_t) 0);
																				}
																		}
																	else
																		{	/* Eval/evcompile.scm 110 */
																			BgL_test4003z00_7304 = ((bool_t) 0);
																		}
																	if (BgL_test4003z00_7304)
																		{	/* Eval/evcompile.scm 110 */
																			BGL_TAIL return
																				BGl_evcompilezd2fieldzd2refz00zz__evcompilez00
																				(BgL_expz00_5, BgL_envz00_6,
																				BgL_genvz00_7, BgL_wherez00_8,
																				BgL_tailz00_9, BgL_locz00_10,
																				BgL_lkpz00_11, BgL_toplevelpz00_12);
																		}
																	else
																		{	/* Eval/evcompile.scm 110 */
																			return
																				BGl_evcompilezd2errorzd2zz__evcompilez00
																				(BgL_locz00_10,
																				BGl_string3824z00zz__evcompilez00,
																				BGl_string3827z00zz__evcompilez00,
																				BgL_expz00_5);
																		}
																}
															}
														else
															{	/* Eval/evcompile.scm 83 */
																if (
																	(CAR(
																			((obj_t) BgL_expz00_5)) ==
																		BGl_symbol3848z00zz__evcompilez00))
																	{	/* Eval/evcompile.scm 83 */
																		if (PAIRP(BgL_cdrzd2397zd2_1381))
																			{	/* Eval/evcompile.scm 83 */
																				if (NULLP(CDR(BgL_cdrzd2397zd2_1381)))
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_arg1568z00_1558;

																						BgL_arg1568z00_1558 =
																							CAR(BgL_cdrzd2397zd2_1381);
																						{	/* Eval/evcompile.scm 114 */
																							obj_t BgL_arg2563z00_4589;

																							{	/* Eval/evcompile.scm 65 */
																								obj_t BgL__ortest_1065z00_4590;

																								BgL__ortest_1065z00_4590 =
																									BGl_getzd2sourcezd2locationz00zz__readerz00
																									(BgL_expz00_5);
																								if (CBOOL
																									(BgL__ortest_1065z00_4590))
																									{	/* Eval/evcompile.scm 65 */
																										BgL_arg2563z00_4589 =
																											BgL__ortest_1065z00_4590;
																									}
																								else
																									{	/* Eval/evcompile.scm 65 */
																										BgL_arg2563z00_4589 =
																											BgL_locz00_10;
																									}
																							}
																							return
																								BGl_evcompilezd2cnstzd2zz__evcompilez00
																								(BgL_arg1568z00_1558,
																								BgL_arg2563z00_4589);
																						}
																					}
																				else
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_carzd22256zd2_1559;

																						BgL_carzd22256zd2_1559 =
																							CAR(((obj_t) BgL_expz00_5));
																						if (PAIRP(BgL_carzd22256zd2_1559))
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_cdrzd22273zd2_1562;

																								BgL_cdrzd22273zd2_1562 =
																									CDR(
																									((obj_t)
																										BgL_carzd22256zd2_1559));
																								if ((CAR(((obj_t)
																												BgL_carzd22256zd2_1559))
																										==
																										BGl_symbol3833z00zz__evcompilez00))
																									{	/* Eval/evcompile.scm 83 */
																										if (PAIRP
																											(BgL_cdrzd22273zd2_1562))
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_carzd22276zd2_1566;
																												obj_t
																													BgL_cdrzd22277zd2_1567;
																												BgL_carzd22276zd2_1566 =
																													CAR
																													(BgL_cdrzd22273zd2_1562);
																												BgL_cdrzd22277zd2_1567 =
																													CDR
																													(BgL_cdrzd22273zd2_1562);
																												if (SYMBOLP
																													(BgL_carzd22276zd2_1566))
																													{	/* Eval/evcompile.scm 83 */
																														if (PAIRP
																															(BgL_cdrzd22277zd2_1567))
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_carzd22282zd2_1570;
																																BgL_carzd22282zd2_1570
																																	=
																																	CAR
																																	(BgL_cdrzd22277zd2_1567);
																																if (SYMBOLP
																																	(BgL_carzd22282zd2_1570))
																																	{	/* Eval/evcompile.scm 83 */
																																		if (NULLP
																																			(CDR
																																				(BgL_cdrzd22277zd2_1567)))
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1582z00_1574;
																																				BgL_arg1582z00_1574
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_7365;
																																					obj_t
																																						BgL_modz00_7364;
																																					obj_t
																																						BgL_funz00_7363;
																																					BgL_funz00_7363
																																						=
																																						BgL_carzd22276zd2_1566;
																																					BgL_modz00_7364
																																						=
																																						BgL_carzd22282zd2_1570;
																																					BgL_argsz00_7365
																																						=
																																						BgL_arg1582z00_1574;
																																					BgL_argsz00_1368
																																						=
																																						BgL_argsz00_7365;
																																					BgL_modz00_1367
																																						=
																																						BgL_modz00_7364;
																																					BgL_funz00_1366
																																						=
																																						BgL_funz00_7363;
																																					goto
																																						BgL_tagzd2278zd2_1369;
																																				}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1584z00_1575;
																																				obj_t
																																					BgL_arg1586z00_1576;
																																				BgL_arg1584z00_1575
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				BgL_arg1586z00_1576
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_7371;
																																					obj_t
																																						BgL_funz00_7370;
																																					BgL_funz00_7370
																																						=
																																						BgL_arg1584z00_1575;
																																					BgL_argsz00_7371
																																						=
																																						BgL_arg1586z00_1576;
																																					BgL_argsz00_1371
																																						=
																																						BgL_argsz00_7371;
																																					BgL_funz00_1370
																																						=
																																						BgL_funz00_7370;
																																					goto
																																						BgL_tagzd2279zd2_1372;
																																				}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1588z00_1578;
																																		obj_t
																																			BgL_arg1592z00_1579;
																																		BgL_arg1588z00_1578
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		BgL_arg1592z00_1579
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_7377;
																																			obj_t
																																				BgL_funz00_7376;
																																			BgL_funz00_7376
																																				=
																																				BgL_arg1588z00_1578;
																																			BgL_argsz00_7377
																																				=
																																				BgL_arg1592z00_1579;
																																			BgL_argsz00_1371
																																				=
																																				BgL_argsz00_7377;
																																			BgL_funz00_1370
																																				=
																																				BgL_funz00_7376;
																																			goto
																																				BgL_tagzd2279zd2_1372;
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1593z00_1580;
																																obj_t
																																	BgL_arg1595z00_1581;
																																BgL_arg1593z00_1580
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																BgL_arg1595z00_1581
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_7383;
																																	obj_t
																																		BgL_funz00_7382;
																																	BgL_funz00_7382
																																		=
																																		BgL_arg1593z00_1580;
																																	BgL_argsz00_7383
																																		=
																																		BgL_arg1595z00_1581;
																																	BgL_argsz00_1371
																																		=
																																		BgL_argsz00_7383;
																																	BgL_funz00_1370
																																		=
																																		BgL_funz00_7382;
																																	goto
																																		BgL_tagzd2279zd2_1372;
																																}
																															}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1596z00_1582;
																														obj_t
																															BgL_arg1597z00_1583;
																														BgL_arg1596z00_1582
																															=
																															CAR(((obj_t)
																																BgL_expz00_5));
																														BgL_arg1597z00_1583
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_7389;
																															obj_t
																																BgL_funz00_7388;
																															BgL_funz00_7388 =
																																BgL_arg1596z00_1582;
																															BgL_argsz00_7389 =
																																BgL_arg1597z00_1583;
																															BgL_argsz00_1371 =
																																BgL_argsz00_7389;
																															BgL_funz00_1370 =
																																BgL_funz00_7388;
																															goto
																																BgL_tagzd2279zd2_1372;
																														}
																													}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_arg1598z00_1584;
																												obj_t
																													BgL_arg1599z00_1585;
																												BgL_arg1598z00_1584 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												BgL_arg1599z00_1585 =
																													CDR(((obj_t)
																														BgL_expz00_5));
																												{
																													obj_t
																														BgL_argsz00_7395;
																													obj_t BgL_funz00_7394;

																													BgL_funz00_7394 =
																														BgL_arg1598z00_1584;
																													BgL_argsz00_7395 =
																														BgL_arg1599z00_1585;
																													BgL_argsz00_1371 =
																														BgL_argsz00_7395;
																													BgL_funz00_1370 =
																														BgL_funz00_7394;
																													goto
																														BgL_tagzd2279zd2_1372;
																												}
																											}
																									}
																								else
																									{	/* Eval/evcompile.scm 83 */
																										obj_t BgL_arg1600z00_1586;
																										obj_t BgL_arg1602z00_1587;

																										BgL_arg1600z00_1586 =
																											CAR(
																											((obj_t) BgL_expz00_5));
																										BgL_arg1602z00_1587 =
																											CDR(
																											((obj_t) BgL_expz00_5));
																										{
																											obj_t BgL_argsz00_7401;
																											obj_t BgL_funz00_7400;

																											BgL_funz00_7400 =
																												BgL_arg1600z00_1586;
																											BgL_argsz00_7401 =
																												BgL_arg1602z00_1587;
																											BgL_argsz00_1371 =
																												BgL_argsz00_7401;
																											BgL_funz00_1370 =
																												BgL_funz00_7400;
																											goto
																												BgL_tagzd2279zd2_1372;
																										}
																									}
																							}
																						else
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_arg1604z00_1589;

																								BgL_arg1604z00_1589 =
																									CDR(((obj_t) BgL_expz00_5));
																								{
																									obj_t BgL_argsz00_7405;
																									obj_t BgL_funz00_7404;

																									BgL_funz00_7404 =
																										BgL_carzd22256zd2_1559;
																									BgL_argsz00_7405 =
																										BgL_arg1604z00_1589;
																									BgL_argsz00_1364 =
																										BgL_argsz00_7405;
																									BgL_funz00_1363 =
																										BgL_funz00_7404;
																									goto BgL_tagzd2277zd2_1365;
																								}
																							}
																					}
																			}
																		else
																			{	/* Eval/evcompile.scm 83 */
																				obj_t BgL_carzd22537zd2_1591;

																				BgL_carzd22537zd2_1591 =
																					CAR(((obj_t) BgL_expz00_5));
																				if (PAIRP(BgL_carzd22537zd2_1591))
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_cdrzd22554zd2_1594;

																						BgL_cdrzd22554zd2_1594 =
																							CDR(
																							((obj_t) BgL_carzd22537zd2_1591));
																						if (
																							(CAR(
																									((obj_t)
																										BgL_carzd22537zd2_1591)) ==
																								BGl_symbol3833z00zz__evcompilez00))
																							{	/* Eval/evcompile.scm 83 */
																								if (PAIRP
																									(BgL_cdrzd22554zd2_1594))
																									{	/* Eval/evcompile.scm 83 */
																										obj_t
																											BgL_carzd22557zd2_1598;
																										obj_t
																											BgL_cdrzd22558zd2_1599;
																										BgL_carzd22557zd2_1598 =
																											CAR
																											(BgL_cdrzd22554zd2_1594);
																										BgL_cdrzd22558zd2_1599 =
																											CDR
																											(BgL_cdrzd22554zd2_1594);
																										if (SYMBOLP
																											(BgL_carzd22557zd2_1598))
																											{	/* Eval/evcompile.scm 83 */
																												if (PAIRP
																													(BgL_cdrzd22558zd2_1599))
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_carzd22563zd2_1602;
																														BgL_carzd22563zd2_1602
																															=
																															CAR
																															(BgL_cdrzd22558zd2_1599);
																														if (SYMBOLP
																															(BgL_carzd22563zd2_1602))
																															{	/* Eval/evcompile.scm 83 */
																																if (NULLP(CDR
																																		(BgL_cdrzd22558zd2_1599)))
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1616z00_1606;
																																		BgL_arg1616z00_1606
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_7434;
																																			obj_t
																																				BgL_modz00_7433;
																																			obj_t
																																				BgL_funz00_7432;
																																			BgL_funz00_7432
																																				=
																																				BgL_carzd22557zd2_1598;
																																			BgL_modz00_7433
																																				=
																																				BgL_carzd22563zd2_1602;
																																			BgL_argsz00_7434
																																				=
																																				BgL_arg1616z00_1606;
																																			BgL_argsz00_1368
																																				=
																																				BgL_argsz00_7434;
																																			BgL_modz00_1367
																																				=
																																				BgL_modz00_7433;
																																			BgL_funz00_1366
																																				=
																																				BgL_funz00_7432;
																																			goto
																																				BgL_tagzd2278zd2_1369;
																																		}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1617z00_1607;
																																		obj_t
																																			BgL_arg1619z00_1608;
																																		BgL_arg1617z00_1607
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		BgL_arg1619z00_1608
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_7440;
																																			obj_t
																																				BgL_funz00_7439;
																																			BgL_funz00_7439
																																				=
																																				BgL_arg1617z00_1607;
																																			BgL_argsz00_7440
																																				=
																																				BgL_arg1619z00_1608;
																																			BgL_argsz00_1371
																																				=
																																				BgL_argsz00_7440;
																																			BgL_funz00_1370
																																				=
																																				BgL_funz00_7439;
																																			goto
																																				BgL_tagzd2279zd2_1372;
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1621z00_1610;
																																obj_t
																																	BgL_arg1622z00_1611;
																																BgL_arg1621z00_1610
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																BgL_arg1622z00_1611
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_7446;
																																	obj_t
																																		BgL_funz00_7445;
																																	BgL_funz00_7445
																																		=
																																		BgL_arg1621z00_1610;
																																	BgL_argsz00_7446
																																		=
																																		BgL_arg1622z00_1611;
																																	BgL_argsz00_1371
																																		=
																																		BgL_argsz00_7446;
																																	BgL_funz00_1370
																																		=
																																		BgL_funz00_7445;
																																	goto
																																		BgL_tagzd2279zd2_1372;
																																}
																															}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1623z00_1612;
																														obj_t
																															BgL_arg1624z00_1613;
																														BgL_arg1623z00_1612
																															=
																															CAR(((obj_t)
																																BgL_expz00_5));
																														BgL_arg1624z00_1613
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_7452;
																															obj_t
																																BgL_funz00_7451;
																															BgL_funz00_7451 =
																																BgL_arg1623z00_1612;
																															BgL_argsz00_7452 =
																																BgL_arg1624z00_1613;
																															BgL_argsz00_1371 =
																																BgL_argsz00_7452;
																															BgL_funz00_1370 =
																																BgL_funz00_7451;
																															goto
																																BgL_tagzd2279zd2_1372;
																														}
																													}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_arg1625z00_1614;
																												obj_t
																													BgL_arg1626z00_1615;
																												BgL_arg1625z00_1614 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												BgL_arg1626z00_1615 =
																													CDR(((obj_t)
																														BgL_expz00_5));
																												{
																													obj_t
																														BgL_argsz00_7458;
																													obj_t BgL_funz00_7457;

																													BgL_funz00_7457 =
																														BgL_arg1625z00_1614;
																													BgL_argsz00_7458 =
																														BgL_arg1626z00_1615;
																													BgL_argsz00_1371 =
																														BgL_argsz00_7458;
																													BgL_funz00_1370 =
																														BgL_funz00_7457;
																													goto
																														BgL_tagzd2279zd2_1372;
																												}
																											}
																									}
																								else
																									{	/* Eval/evcompile.scm 83 */
																										obj_t BgL_arg1627z00_1616;
																										obj_t BgL_arg1628z00_1617;

																										BgL_arg1627z00_1616 =
																											CAR(
																											((obj_t) BgL_expz00_5));
																										BgL_arg1628z00_1617 =
																											CDR(
																											((obj_t) BgL_expz00_5));
																										{
																											obj_t BgL_argsz00_7464;
																											obj_t BgL_funz00_7463;

																											BgL_funz00_7463 =
																												BgL_arg1627z00_1616;
																											BgL_argsz00_7464 =
																												BgL_arg1628z00_1617;
																											BgL_argsz00_1371 =
																												BgL_argsz00_7464;
																											BgL_funz00_1370 =
																												BgL_funz00_7463;
																											goto
																												BgL_tagzd2279zd2_1372;
																										}
																									}
																							}
																						else
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_arg1629z00_1618;
																								obj_t BgL_arg1630z00_1619;

																								BgL_arg1629z00_1618 =
																									CAR(((obj_t) BgL_expz00_5));
																								BgL_arg1630z00_1619 =
																									CDR(((obj_t) BgL_expz00_5));
																								{
																									obj_t BgL_argsz00_7470;
																									obj_t BgL_funz00_7469;

																									BgL_funz00_7469 =
																										BgL_arg1629z00_1618;
																									BgL_argsz00_7470 =
																										BgL_arg1630z00_1619;
																									BgL_argsz00_1371 =
																										BgL_argsz00_7470;
																									BgL_funz00_1370 =
																										BgL_funz00_7469;
																									goto BgL_tagzd2279zd2_1372;
																								}
																							}
																					}
																				else
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_arg1632z00_1621;

																						BgL_arg1632z00_1621 =
																							CDR(((obj_t) BgL_expz00_5));
																						{
																							obj_t BgL_argsz00_7474;
																							obj_t BgL_funz00_7473;

																							BgL_funz00_7473 =
																								BgL_carzd22537zd2_1591;
																							BgL_argsz00_7474 =
																								BgL_arg1632z00_1621;
																							BgL_argsz00_1364 =
																								BgL_argsz00_7474;
																							BgL_funz00_1363 = BgL_funz00_7473;
																							goto BgL_tagzd2277zd2_1365;
																						}
																					}
																			}
																	}
																else
																	{	/* Eval/evcompile.scm 83 */
																		obj_t BgL_cdrzd22640zd2_1622;

																		BgL_cdrzd22640zd2_1622 =
																			CDR(((obj_t) BgL_expz00_5));
																		if (
																			(CAR(
																					((obj_t) BgL_expz00_5)) ==
																				BGl_symbol3850z00zz__evcompilez00))
																			{	/* Eval/evcompile.scm 83 */
																				if (PAIRP(BgL_cdrzd22640zd2_1622))
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_cdrzd22645zd2_1626;

																						BgL_cdrzd22645zd2_1626 =
																							CDR(BgL_cdrzd22640zd2_1622);
																						if (PAIRP(BgL_cdrzd22645zd2_1626))
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_cdrzd22650zd2_1628;

																								BgL_cdrzd22650zd2_1628 =
																									CDR(BgL_cdrzd22645zd2_1626);
																								if (PAIRP
																									(BgL_cdrzd22650zd2_1628))
																									{	/* Eval/evcompile.scm 83 */
																										if (NULLP(CDR
																												(BgL_cdrzd22650zd2_1628)))
																											{	/* Eval/evcompile.scm 83 */
																												BgL_siz00_1318 =
																													CAR
																													(BgL_cdrzd22640zd2_1622);
																												BgL_alorsz00_1319 =
																													CAR
																													(BgL_cdrzd22645zd2_1626);
																												BgL_sinonz00_1320 =
																													CAR
																													(BgL_cdrzd22650zd2_1628);
																												{	/* Eval/evcompile.scm 116 */
																													obj_t BgL_locz00_2617;

																													{	/* Eval/evcompile.scm 65 */
																														obj_t
																															BgL__ortest_1065z00_4212;
																														BgL__ortest_1065z00_4212
																															=
																															BGl_getzd2sourcezd2locationz00zz__readerz00
																															(BgL_expz00_5);
																														if (CBOOL
																															(BgL__ortest_1065z00_4212))
																															{	/* Eval/evcompile.scm 65 */
																																BgL_locz00_2617
																																	=
																																	BgL__ortest_1065z00_4212;
																															}
																														else
																															{	/* Eval/evcompile.scm 65 */
																																BgL_locz00_2617
																																	=
																																	BgL_locz00_10;
																															}
																													}
																													{	/* Eval/evcompile.scm 119 */
																														obj_t
																															BgL_arg2564z00_2618;
																														obj_t
																															BgL_arg2565z00_2619;
																														obj_t
																															BgL_arg2566z00_2620;
																														{	/* Eval/evcompile.scm 119 */
																															obj_t
																																BgL_arg2567z00_2621;
																															{	/* Eval/evcompile.scm 65 */
																																obj_t
																																	BgL__ortest_1065z00_4213;
																																BgL__ortest_1065z00_4213
																																	=
																																	BGl_getzd2sourcezd2locationz00zz__readerz00
																																	(BgL_siz00_1318);
																																if (CBOOL
																																	(BgL__ortest_1065z00_4213))
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2567z00_2621
																																			=
																																			BgL__ortest_1065z00_4213;
																																	}
																																else
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2567z00_2621
																																			=
																																			BgL_locz00_2617;
																																	}
																															}
																															BgL_arg2564z00_2618
																																=
																																BGl_evcompilez00zz__evcompilez00
																																(BgL_siz00_1318,
																																BgL_envz00_6,
																																BgL_genvz00_7,
																																BgL_wherez00_8,
																																((bool_t) 0),
																																BgL_arg2567z00_2621,
																																BgL_lkpz00_11,
																																((bool_t) 0));
																														}
																														{	/* Eval/evcompile.scm 123 */
																															obj_t
																																BgL_arg2568z00_2622;
																															{	/* Eval/evcompile.scm 65 */
																																obj_t
																																	BgL__ortest_1065z00_4214;
																																BgL__ortest_1065z00_4214
																																	=
																																	BGl_getzd2sourcezd2locationz00zz__readerz00
																																	(BgL_alorsz00_1319);
																																if (CBOOL
																																	(BgL__ortest_1065z00_4214))
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2568z00_2622
																																			=
																																			BgL__ortest_1065z00_4214;
																																	}
																																else
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2568z00_2622
																																			=
																																			BgL_locz00_2617;
																																	}
																															}
																															BgL_arg2565z00_2619
																																=
																																BGl_evcompilez00zz__evcompilez00
																																(BgL_alorsz00_1319,
																																BgL_envz00_6,
																																BgL_genvz00_7,
																																BgL_wherez00_8,
																																BgL_tailz00_9,
																																BgL_arg2568z00_2622,
																																BgL_lkpz00_11,
																																((bool_t) 0));
																														}
																														{	/* Eval/evcompile.scm 127 */
																															obj_t
																																BgL_arg2569z00_2623;
																															{	/* Eval/evcompile.scm 65 */
																																obj_t
																																	BgL__ortest_1065z00_4215;
																																BgL__ortest_1065z00_4215
																																	=
																																	BGl_getzd2sourcezd2locationz00zz__readerz00
																																	(BgL_sinonz00_1320);
																																if (CBOOL
																																	(BgL__ortest_1065z00_4215))
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2569z00_2623
																																			=
																																			BgL__ortest_1065z00_4215;
																																	}
																																else
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2569z00_2623
																																			=
																																			BgL_locz00_2617;
																																	}
																															}
																															BgL_arg2566z00_2620
																																=
																																BGl_evcompilez00zz__evcompilez00
																																(BgL_sinonz00_1320,
																																BgL_envz00_6,
																																BgL_genvz00_7,
																																BgL_wherez00_8,
																																BgL_tailz00_9,
																																BgL_arg2569z00_2623,
																																BgL_lkpz00_11,
																																((bool_t) 0));
																														}
																														{	/* Eval/evcompile.scm 414 */
																															obj_t
																																BgL_v1168z00_4216;
																															BgL_v1168z00_4216
																																=
																																create_vector
																																(5L);
																															VECTOR_SET
																																(BgL_v1168z00_4216,
																																0L, BINT(15L));
																															VECTOR_SET
																																(BgL_v1168z00_4216,
																																1L,
																																BgL_locz00_2617);
																															VECTOR_SET
																																(BgL_v1168z00_4216,
																																2L,
																																BgL_arg2564z00_2618);
																															VECTOR_SET
																																(BgL_v1168z00_4216,
																																3L,
																																BgL_arg2565z00_2619);
																															VECTOR_SET
																																(BgL_v1168z00_4216,
																																4L,
																																BgL_arg2566z00_2620);
																															return
																																BgL_v1168z00_4216;
																														}
																													}
																												}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_carzd22837zd2_1635;
																												BgL_carzd22837zd2_1635 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												if (PAIRP
																													(BgL_carzd22837zd2_1635))
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_cdrzd22854zd2_1638;
																														BgL_cdrzd22854zd2_1638
																															=
																															CDR(((obj_t)
																																BgL_carzd22837zd2_1635));
																														if ((CAR(((obj_t)
																																		BgL_carzd22837zd2_1635))
																																==
																																BGl_symbol3833z00zz__evcompilez00))
																															{	/* Eval/evcompile.scm 83 */
																																if (PAIRP
																																	(BgL_cdrzd22854zd2_1638))
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_carzd22857zd2_1642;
																																		obj_t
																																			BgL_cdrzd22858zd2_1643;
																																		BgL_carzd22857zd2_1642
																																			=
																																			CAR
																																			(BgL_cdrzd22854zd2_1638);
																																		BgL_cdrzd22858zd2_1643
																																			=
																																			CDR
																																			(BgL_cdrzd22854zd2_1638);
																																		if (SYMBOLP
																																			(BgL_carzd22857zd2_1642))
																																			{	/* Eval/evcompile.scm 83 */
																																				if (PAIRP(BgL_cdrzd22858zd2_1643))
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_carzd22863zd2_1646;
																																						BgL_carzd22863zd2_1646
																																							=
																																							CAR
																																							(BgL_cdrzd22858zd2_1643);
																																						if (SYMBOLP(BgL_carzd22863zd2_1646))
																																							{	/* Eval/evcompile.scm 83 */
																																								if (NULLP(CDR(BgL_cdrzd22858zd2_1643)))
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg1653z00_1650;
																																										BgL_arg1653z00_1650
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_7545;
																																											obj_t
																																												BgL_modz00_7544;
																																											obj_t
																																												BgL_funz00_7543;
																																											BgL_funz00_7543
																																												=
																																												BgL_carzd22857zd2_1642;
																																											BgL_modz00_7544
																																												=
																																												BgL_carzd22863zd2_1646;
																																											BgL_argsz00_7545
																																												=
																																												BgL_arg1653z00_1650;
																																											BgL_argsz00_1368
																																												=
																																												BgL_argsz00_7545;
																																											BgL_modz00_1367
																																												=
																																												BgL_modz00_7544;
																																											BgL_funz00_1366
																																												=
																																												BgL_funz00_7543;
																																											goto
																																												BgL_tagzd2278zd2_1369;
																																										}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg1655z00_1651;
																																										obj_t
																																											BgL_arg1658z00_1652;
																																										BgL_arg1655z00_1651
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										BgL_arg1658z00_1652
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_7551;
																																											obj_t
																																												BgL_funz00_7550;
																																											BgL_funz00_7550
																																												=
																																												BgL_arg1655z00_1651;
																																											BgL_argsz00_7551
																																												=
																																												BgL_arg1658z00_1652;
																																											BgL_argsz00_1371
																																												=
																																												BgL_argsz00_7551;
																																											BgL_funz00_1370
																																												=
																																												BgL_funz00_7550;
																																											goto
																																												BgL_tagzd2279zd2_1372;
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_arg1660z00_1654;
																																								obj_t
																																									BgL_arg1662z00_1655;
																																								BgL_arg1660z00_1654
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								BgL_arg1662z00_1655
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								{
																																									obj_t
																																										BgL_argsz00_7557;
																																									obj_t
																																										BgL_funz00_7556;
																																									BgL_funz00_7556
																																										=
																																										BgL_arg1660z00_1654;
																																									BgL_argsz00_7557
																																										=
																																										BgL_arg1662z00_1655;
																																									BgL_argsz00_1371
																																										=
																																										BgL_argsz00_7557;
																																									BgL_funz00_1370
																																										=
																																										BgL_funz00_7556;
																																									goto
																																										BgL_tagzd2279zd2_1372;
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg1664z00_1656;
																																						obj_t
																																							BgL_arg1665z00_1657;
																																						BgL_arg1664z00_1656
																																							=
																																							CAR
																																							(((obj_t) BgL_expz00_5));
																																						BgL_arg1665z00_1657
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						{
																																							obj_t
																																								BgL_argsz00_7563;
																																							obj_t
																																								BgL_funz00_7562;
																																							BgL_funz00_7562
																																								=
																																								BgL_arg1664z00_1656;
																																							BgL_argsz00_7563
																																								=
																																								BgL_arg1665z00_1657;
																																							BgL_argsz00_1371
																																								=
																																								BgL_argsz00_7563;
																																							BgL_funz00_1370
																																								=
																																								BgL_funz00_7562;
																																							goto
																																								BgL_tagzd2279zd2_1372;
																																						}
																																					}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1666z00_1658;
																																				obj_t
																																					BgL_arg1667z00_1659;
																																				BgL_arg1666z00_1658
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				BgL_arg1667z00_1659
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_7569;
																																					obj_t
																																						BgL_funz00_7568;
																																					BgL_funz00_7568
																																						=
																																						BgL_arg1666z00_1658;
																																					BgL_argsz00_7569
																																						=
																																						BgL_arg1667z00_1659;
																																					BgL_argsz00_1371
																																						=
																																						BgL_argsz00_7569;
																																					BgL_funz00_1370
																																						=
																																						BgL_funz00_7568;
																																					goto
																																						BgL_tagzd2279zd2_1372;
																																				}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1671z00_1660;
																																		obj_t
																																			BgL_arg1672z00_1661;
																																		BgL_arg1671z00_1660
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		BgL_arg1672z00_1661
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_7575;
																																			obj_t
																																				BgL_funz00_7574;
																																			BgL_funz00_7574
																																				=
																																				BgL_arg1671z00_1660;
																																			BgL_argsz00_7575
																																				=
																																				BgL_arg1672z00_1661;
																																			BgL_argsz00_1371
																																				=
																																				BgL_argsz00_7575;
																																			BgL_funz00_1370
																																				=
																																				BgL_funz00_7574;
																																			goto
																																				BgL_tagzd2279zd2_1372;
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1673z00_1662;
																																obj_t
																																	BgL_arg1674z00_1663;
																																BgL_arg1673z00_1662
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																BgL_arg1674z00_1663
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_7581;
																																	obj_t
																																		BgL_funz00_7580;
																																	BgL_funz00_7580
																																		=
																																		BgL_arg1673z00_1662;
																																	BgL_argsz00_7581
																																		=
																																		BgL_arg1674z00_1663;
																																	BgL_argsz00_1371
																																		=
																																		BgL_argsz00_7581;
																																	BgL_funz00_1370
																																		=
																																		BgL_funz00_7580;
																																	goto
																																		BgL_tagzd2279zd2_1372;
																																}
																															}
																													}
																												else
																													{
																														obj_t
																															BgL_argsz00_7583;
																														obj_t
																															BgL_funz00_7582;
																														BgL_funz00_7582 =
																															BgL_carzd22837zd2_1635;
																														BgL_argsz00_7583 =
																															BgL_cdrzd22640zd2_1622;
																														BgL_argsz00_1364 =
																															BgL_argsz00_7583;
																														BgL_funz00_1363 =
																															BgL_funz00_7582;
																														goto
																															BgL_tagzd2277zd2_1365;
																													}
																											}
																									}
																								else
																									{	/* Eval/evcompile.scm 83 */
																										obj_t
																											BgL_cdrzd22946zd2_1668;
																										BgL_cdrzd22946zd2_1668 =
																											CDR(((obj_t)
																												BgL_cdrzd22640zd2_1622));
																										if (NULLP(CDR(((obj_t)
																														BgL_cdrzd22946zd2_1668))))
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_arg1689z00_1671;
																												obj_t
																													BgL_arg1690z00_1672;
																												BgL_arg1689z00_1671 =
																													CAR(((obj_t)
																														BgL_cdrzd22640zd2_1622));
																												BgL_arg1690z00_1672 =
																													CAR(((obj_t)
																														BgL_cdrzd22946zd2_1668));
																												BgL_siz00_1322 =
																													BgL_arg1689z00_1671;
																												BgL_alorsz00_1323 =
																													BgL_arg1690z00_1672;
																												{	/* Eval/evcompile.scm 131 */
																													obj_t BgL_locz00_2624;

																													{	/* Eval/evcompile.scm 65 */
																														obj_t
																															BgL__ortest_1065z00_4222;
																														BgL__ortest_1065z00_4222
																															=
																															BGl_getzd2sourcezd2locationz00zz__readerz00
																															(BgL_expz00_5);
																														if (CBOOL
																															(BgL__ortest_1065z00_4222))
																															{	/* Eval/evcompile.scm 65 */
																																BgL_locz00_2624
																																	=
																																	BgL__ortest_1065z00_4222;
																															}
																														else
																															{	/* Eval/evcompile.scm 65 */
																																BgL_locz00_2624
																																	=
																																	BgL_locz00_10;
																															}
																													}
																													{	/* Eval/evcompile.scm 134 */
																														obj_t
																															BgL_arg2570z00_2625;
																														obj_t
																															BgL_arg2571z00_2626;
																														obj_t
																															BgL_arg2572z00_2627;
																														{	/* Eval/evcompile.scm 134 */
																															obj_t
																																BgL_arg2574z00_2628;
																															{	/* Eval/evcompile.scm 65 */
																																obj_t
																																	BgL__ortest_1065z00_4223;
																																BgL__ortest_1065z00_4223
																																	=
																																	BGl_getzd2sourcezd2locationz00zz__readerz00
																																	(BgL_siz00_1322);
																																if (CBOOL
																																	(BgL__ortest_1065z00_4223))
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2574z00_2628
																																			=
																																			BgL__ortest_1065z00_4223;
																																	}
																																else
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2574z00_2628
																																			=
																																			BgL_locz00_2624;
																																	}
																															}
																															BgL_arg2570z00_2625
																																=
																																BGl_evcompilez00zz__evcompilez00
																																(BgL_siz00_1322,
																																BgL_envz00_6,
																																BgL_genvz00_7,
																																BgL_wherez00_8,
																																((bool_t) 0),
																																BgL_arg2574z00_2628,
																																BgL_lkpz00_11,
																																((bool_t) 0));
																														}
																														{	/* Eval/evcompile.scm 138 */
																															obj_t
																																BgL_arg2575z00_2629;
																															{	/* Eval/evcompile.scm 65 */
																																obj_t
																																	BgL__ortest_1065z00_4224;
																																BgL__ortest_1065z00_4224
																																	=
																																	BGl_getzd2sourcezd2locationz00zz__readerz00
																																	(BgL_alorsz00_1323);
																																if (CBOOL
																																	(BgL__ortest_1065z00_4224))
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2575z00_2629
																																			=
																																			BgL__ortest_1065z00_4224;
																																	}
																																else
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2575z00_2629
																																			=
																																			BgL_locz00_2624;
																																	}
																															}
																															BgL_arg2571z00_2626
																																=
																																BGl_evcompilez00zz__evcompilez00
																																(BgL_alorsz00_1323,
																																BgL_envz00_6,
																																BgL_genvz00_7,
																																BgL_wherez00_8,
																																BgL_tailz00_9,
																																BgL_arg2575z00_2629,
																																BgL_lkpz00_11,
																																((bool_t) 0));
																														}
																														{	/* Eval/evcompile.scm 142 */
																															obj_t
																																BgL_arg2576z00_2630;
																															{	/* Eval/evcompile.scm 65 */
																																obj_t
																																	BgL__ortest_1065z00_4225;
																																BgL__ortest_1065z00_4225
																																	=
																																	BGl_getzd2sourcezd2locationz00zz__readerz00
																																	(BgL_expz00_5);
																																if (CBOOL
																																	(BgL__ortest_1065z00_4225))
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2576z00_2630
																																			=
																																			BgL__ortest_1065z00_4225;
																																	}
																																else
																																	{	/* Eval/evcompile.scm 65 */
																																		BgL_arg2576z00_2630
																																			=
																																			BgL_locz00_2624;
																																	}
																															}
																															BgL_arg2572z00_2627
																																=
																																BGl_evcompilez00zz__evcompilez00
																																(BFALSE,
																																BgL_envz00_6,
																																BgL_genvz00_7,
																																BgL_wherez00_8,
																																BgL_tailz00_9,
																																BgL_arg2576z00_2630,
																																BgL_lkpz00_11,
																																((bool_t) 0));
																														}
																														{	/* Eval/evcompile.scm 414 */
																															obj_t
																																BgL_v1168z00_4226;
																															BgL_v1168z00_4226
																																=
																																create_vector
																																(5L);
																															VECTOR_SET
																																(BgL_v1168z00_4226,
																																0L, BINT(15L));
																															VECTOR_SET
																																(BgL_v1168z00_4226,
																																1L,
																																BgL_locz00_2624);
																															VECTOR_SET
																																(BgL_v1168z00_4226,
																																2L,
																																BgL_arg2570z00_2625);
																															VECTOR_SET
																																(BgL_v1168z00_4226,
																																3L,
																																BgL_arg2571z00_2626);
																															VECTOR_SET
																																(BgL_v1168z00_4226,
																																4L,
																																BgL_arg2572z00_2627);
																															return
																																BgL_v1168z00_4226;
																														}
																													}
																												}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_carzd23116zd2_1673;
																												BgL_carzd23116zd2_1673 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												if (PAIRP
																													(BgL_carzd23116zd2_1673))
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_cdrzd23133zd2_1676;
																														BgL_cdrzd23133zd2_1676
																															=
																															CDR(((obj_t)
																																BgL_carzd23116zd2_1673));
																														if ((CAR(((obj_t)
																																		BgL_carzd23116zd2_1673))
																																==
																																BGl_symbol3833z00zz__evcompilez00))
																															{	/* Eval/evcompile.scm 83 */
																																if (PAIRP
																																	(BgL_cdrzd23133zd2_1676))
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_carzd23136zd2_1680;
																																		obj_t
																																			BgL_cdrzd23137zd2_1681;
																																		BgL_carzd23136zd2_1680
																																			=
																																			CAR
																																			(BgL_cdrzd23133zd2_1676);
																																		BgL_cdrzd23137zd2_1681
																																			=
																																			CDR
																																			(BgL_cdrzd23133zd2_1676);
																																		if (SYMBOLP
																																			(BgL_carzd23136zd2_1680))
																																			{	/* Eval/evcompile.scm 83 */
																																				if (PAIRP(BgL_cdrzd23137zd2_1681))
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_carzd23142zd2_1684;
																																						BgL_carzd23142zd2_1684
																																							=
																																							CAR
																																							(BgL_cdrzd23137zd2_1681);
																																						if (SYMBOLP(BgL_carzd23142zd2_1684))
																																							{	/* Eval/evcompile.scm 83 */
																																								if (NULLP(CDR(BgL_cdrzd23137zd2_1681)))
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg1702z00_1688;
																																										BgL_arg1702z00_1688
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_7644;
																																											obj_t
																																												BgL_modz00_7643;
																																											obj_t
																																												BgL_funz00_7642;
																																											BgL_funz00_7642
																																												=
																																												BgL_carzd23136zd2_1680;
																																											BgL_modz00_7643
																																												=
																																												BgL_carzd23142zd2_1684;
																																											BgL_argsz00_7644
																																												=
																																												BgL_arg1702z00_1688;
																																											BgL_argsz00_1368
																																												=
																																												BgL_argsz00_7644;
																																											BgL_modz00_1367
																																												=
																																												BgL_modz00_7643;
																																											BgL_funz00_1366
																																												=
																																												BgL_funz00_7642;
																																											goto
																																												BgL_tagzd2278zd2_1369;
																																										}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg1703z00_1689;
																																										obj_t
																																											BgL_arg1705z00_1690;
																																										BgL_arg1703z00_1689
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										BgL_arg1705z00_1690
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_7650;
																																											obj_t
																																												BgL_funz00_7649;
																																											BgL_funz00_7649
																																												=
																																												BgL_arg1703z00_1689;
																																											BgL_argsz00_7650
																																												=
																																												BgL_arg1705z00_1690;
																																											BgL_argsz00_1371
																																												=
																																												BgL_argsz00_7650;
																																											BgL_funz00_1370
																																												=
																																												BgL_funz00_7649;
																																											goto
																																												BgL_tagzd2279zd2_1372;
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_arg1707z00_1692;
																																								obj_t
																																									BgL_arg1708z00_1693;
																																								BgL_arg1707z00_1692
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								BgL_arg1708z00_1693
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								{
																																									obj_t
																																										BgL_argsz00_7656;
																																									obj_t
																																										BgL_funz00_7655;
																																									BgL_funz00_7655
																																										=
																																										BgL_arg1707z00_1692;
																																									BgL_argsz00_7656
																																										=
																																										BgL_arg1708z00_1693;
																																									BgL_argsz00_1371
																																										=
																																										BgL_argsz00_7656;
																																									BgL_funz00_1370
																																										=
																																										BgL_funz00_7655;
																																									goto
																																										BgL_tagzd2279zd2_1372;
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg1709z00_1694;
																																						obj_t
																																							BgL_arg1710z00_1695;
																																						BgL_arg1709z00_1694
																																							=
																																							CAR
																																							(((obj_t) BgL_expz00_5));
																																						BgL_arg1710z00_1695
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						{
																																							obj_t
																																								BgL_argsz00_7662;
																																							obj_t
																																								BgL_funz00_7661;
																																							BgL_funz00_7661
																																								=
																																								BgL_arg1709z00_1694;
																																							BgL_argsz00_7662
																																								=
																																								BgL_arg1710z00_1695;
																																							BgL_argsz00_1371
																																								=
																																								BgL_argsz00_7662;
																																							BgL_funz00_1370
																																								=
																																								BgL_funz00_7661;
																																							goto
																																								BgL_tagzd2279zd2_1372;
																																						}
																																					}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1711z00_1696;
																																				obj_t
																																					BgL_arg1712z00_1697;
																																				BgL_arg1711z00_1696
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				BgL_arg1712z00_1697
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_7668;
																																					obj_t
																																						BgL_funz00_7667;
																																					BgL_funz00_7667
																																						=
																																						BgL_arg1711z00_1696;
																																					BgL_argsz00_7668
																																						=
																																						BgL_arg1712z00_1697;
																																					BgL_argsz00_1371
																																						=
																																						BgL_argsz00_7668;
																																					BgL_funz00_1370
																																						=
																																						BgL_funz00_7667;
																																					goto
																																						BgL_tagzd2279zd2_1372;
																																				}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1714z00_1698;
																																		obj_t
																																			BgL_arg1715z00_1699;
																																		BgL_arg1714z00_1698
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		BgL_arg1715z00_1699
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_7674;
																																			obj_t
																																				BgL_funz00_7673;
																																			BgL_funz00_7673
																																				=
																																				BgL_arg1714z00_1698;
																																			BgL_argsz00_7674
																																				=
																																				BgL_arg1715z00_1699;
																																			BgL_argsz00_1371
																																				=
																																				BgL_argsz00_7674;
																																			BgL_funz00_1370
																																				=
																																				BgL_funz00_7673;
																																			goto
																																				BgL_tagzd2279zd2_1372;
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1716z00_1700;
																																obj_t
																																	BgL_arg1718z00_1701;
																																BgL_arg1716z00_1700
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																BgL_arg1718z00_1701
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_7680;
																																	obj_t
																																		BgL_funz00_7679;
																																	BgL_funz00_7679
																																		=
																																		BgL_arg1716z00_1700;
																																	BgL_argsz00_7680
																																		=
																																		BgL_arg1718z00_1701;
																																	BgL_argsz00_1371
																																		=
																																		BgL_argsz00_7680;
																																	BgL_funz00_1370
																																		=
																																		BgL_funz00_7679;
																																	goto
																																		BgL_tagzd2279zd2_1372;
																																}
																															}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1720z00_1703;
																														BgL_arg1720z00_1703
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_7684;
																															obj_t
																																BgL_funz00_7683;
																															BgL_funz00_7683 =
																																BgL_carzd23116zd2_1673;
																															BgL_argsz00_7684 =
																																BgL_arg1720z00_1703;
																															BgL_argsz00_1364 =
																																BgL_argsz00_7684;
																															BgL_funz00_1363 =
																																BgL_funz00_7683;
																															goto
																																BgL_tagzd2277zd2_1365;
																														}
																													}
																											}
																									}
																							}
																						else
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_carzd23378zd2_1705;

																								BgL_carzd23378zd2_1705 =
																									CAR(((obj_t) BgL_expz00_5));
																								if (PAIRP
																									(BgL_carzd23378zd2_1705))
																									{	/* Eval/evcompile.scm 83 */
																										obj_t
																											BgL_cdrzd23395zd2_1708;
																										BgL_cdrzd23395zd2_1708 =
																											CDR(((obj_t)
																												BgL_carzd23378zd2_1705));
																										if ((CAR(((obj_t)
																														BgL_carzd23378zd2_1705))
																												==
																												BGl_symbol3833z00zz__evcompilez00))
																											{	/* Eval/evcompile.scm 83 */
																												if (PAIRP
																													(BgL_cdrzd23395zd2_1708))
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_carzd23398zd2_1712;
																														obj_t
																															BgL_cdrzd23399zd2_1713;
																														BgL_carzd23398zd2_1712
																															=
																															CAR
																															(BgL_cdrzd23395zd2_1708);
																														BgL_cdrzd23399zd2_1713
																															=
																															CDR
																															(BgL_cdrzd23395zd2_1708);
																														if (SYMBOLP
																															(BgL_carzd23398zd2_1712))
																															{	/* Eval/evcompile.scm 83 */
																																if (PAIRP
																																	(BgL_cdrzd23399zd2_1713))
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_carzd23404zd2_1716;
																																		BgL_carzd23404zd2_1716
																																			=
																																			CAR
																																			(BgL_cdrzd23399zd2_1713);
																																		if (SYMBOLP
																																			(BgL_carzd23404zd2_1716))
																																			{	/* Eval/evcompile.scm 83 */
																																				if (NULLP(CDR(BgL_cdrzd23399zd2_1713)))
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg1731z00_1720;
																																						BgL_arg1731z00_1720
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						{
																																							obj_t
																																								BgL_argsz00_7713;
																																							obj_t
																																								BgL_modz00_7712;
																																							obj_t
																																								BgL_funz00_7711;
																																							BgL_funz00_7711
																																								=
																																								BgL_carzd23398zd2_1712;
																																							BgL_modz00_7712
																																								=
																																								BgL_carzd23404zd2_1716;
																																							BgL_argsz00_7713
																																								=
																																								BgL_arg1731z00_1720;
																																							BgL_argsz00_1368
																																								=
																																								BgL_argsz00_7713;
																																							BgL_modz00_1367
																																								=
																																								BgL_modz00_7712;
																																							BgL_funz00_1366
																																								=
																																								BgL_funz00_7711;
																																							goto
																																								BgL_tagzd2278zd2_1369;
																																						}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg1732z00_1721;
																																						obj_t
																																							BgL_arg1733z00_1722;
																																						BgL_arg1732z00_1721
																																							=
																																							CAR
																																							(((obj_t) BgL_expz00_5));
																																						BgL_arg1733z00_1722
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						{
																																							obj_t
																																								BgL_argsz00_7719;
																																							obj_t
																																								BgL_funz00_7718;
																																							BgL_funz00_7718
																																								=
																																								BgL_arg1732z00_1721;
																																							BgL_argsz00_7719
																																								=
																																								BgL_arg1733z00_1722;
																																							BgL_argsz00_1371
																																								=
																																								BgL_argsz00_7719;
																																							BgL_funz00_1370
																																								=
																																								BgL_funz00_7718;
																																							goto
																																								BgL_tagzd2279zd2_1372;
																																						}
																																					}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1735z00_1724;
																																				obj_t
																																					BgL_arg1739z00_1725;
																																				BgL_arg1735z00_1724
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				BgL_arg1739z00_1725
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_7725;
																																					obj_t
																																						BgL_funz00_7724;
																																					BgL_funz00_7724
																																						=
																																						BgL_arg1735z00_1724;
																																					BgL_argsz00_7725
																																						=
																																						BgL_arg1739z00_1725;
																																					BgL_argsz00_1371
																																						=
																																						BgL_argsz00_7725;
																																					BgL_funz00_1370
																																						=
																																						BgL_funz00_7724;
																																					goto
																																						BgL_tagzd2279zd2_1372;
																																				}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1740z00_1726;
																																		obj_t
																																			BgL_arg1741z00_1727;
																																		BgL_arg1740z00_1726
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		BgL_arg1741z00_1727
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_7731;
																																			obj_t
																																				BgL_funz00_7730;
																																			BgL_funz00_7730
																																				=
																																				BgL_arg1740z00_1726;
																																			BgL_argsz00_7731
																																				=
																																				BgL_arg1741z00_1727;
																																			BgL_argsz00_1371
																																				=
																																				BgL_argsz00_7731;
																																			BgL_funz00_1370
																																				=
																																				BgL_funz00_7730;
																																			goto
																																				BgL_tagzd2279zd2_1372;
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1742z00_1728;
																																obj_t
																																	BgL_arg1743z00_1729;
																																BgL_arg1742z00_1728
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																BgL_arg1743z00_1729
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_7737;
																																	obj_t
																																		BgL_funz00_7736;
																																	BgL_funz00_7736
																																		=
																																		BgL_arg1742z00_1728;
																																	BgL_argsz00_7737
																																		=
																																		BgL_arg1743z00_1729;
																																	BgL_argsz00_1371
																																		=
																																		BgL_argsz00_7737;
																																	BgL_funz00_1370
																																		=
																																		BgL_funz00_7736;
																																	goto
																																		BgL_tagzd2279zd2_1372;
																																}
																															}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1744z00_1730;
																														obj_t
																															BgL_arg1745z00_1731;
																														BgL_arg1744z00_1730
																															=
																															CAR(((obj_t)
																																BgL_expz00_5));
																														BgL_arg1745z00_1731
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_7743;
																															obj_t
																																BgL_funz00_7742;
																															BgL_funz00_7742 =
																																BgL_arg1744z00_1730;
																															BgL_argsz00_7743 =
																																BgL_arg1745z00_1731;
																															BgL_argsz00_1371 =
																																BgL_argsz00_7743;
																															BgL_funz00_1370 =
																																BgL_funz00_7742;
																															goto
																																BgL_tagzd2279zd2_1372;
																														}
																													}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_arg1747z00_1732;
																												obj_t
																													BgL_arg1748z00_1733;
																												BgL_arg1747z00_1732 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												BgL_arg1748z00_1733 =
																													CDR(((obj_t)
																														BgL_expz00_5));
																												{
																													obj_t
																														BgL_argsz00_7749;
																													obj_t BgL_funz00_7748;

																													BgL_funz00_7748 =
																														BgL_arg1747z00_1732;
																													BgL_argsz00_7749 =
																														BgL_arg1748z00_1733;
																													BgL_argsz00_1371 =
																														BgL_argsz00_7749;
																													BgL_funz00_1370 =
																														BgL_funz00_7748;
																													goto
																														BgL_tagzd2279zd2_1372;
																												}
																											}
																									}
																								else
																									{
																										obj_t BgL_argsz00_7751;
																										obj_t BgL_funz00_7750;

																										BgL_funz00_7750 =
																											BgL_carzd23378zd2_1705;
																										BgL_argsz00_7751 =
																											BgL_cdrzd22640zd2_1622;
																										BgL_argsz00_1364 =
																											BgL_argsz00_7751;
																										BgL_funz00_1363 =
																											BgL_funz00_7750;
																										goto BgL_tagzd2277zd2_1365;
																									}
																							}
																					}
																				else
																					{	/* Eval/evcompile.scm 83 */
																						obj_t BgL_carzd23639zd2_1736;

																						BgL_carzd23639zd2_1736 =
																							CAR(((obj_t) BgL_expz00_5));
																						if (PAIRP(BgL_carzd23639zd2_1736))
																							{	/* Eval/evcompile.scm 83 */
																								obj_t BgL_cdrzd23656zd2_1739;

																								BgL_cdrzd23656zd2_1739 =
																									CDR(
																									((obj_t)
																										BgL_carzd23639zd2_1736));
																								if ((CAR(((obj_t)
																												BgL_carzd23639zd2_1736))
																										==
																										BGl_symbol3833z00zz__evcompilez00))
																									{	/* Eval/evcompile.scm 83 */
																										if (PAIRP
																											(BgL_cdrzd23656zd2_1739))
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_carzd23659zd2_1743;
																												obj_t
																													BgL_cdrzd23660zd2_1744;
																												BgL_carzd23659zd2_1743 =
																													CAR
																													(BgL_cdrzd23656zd2_1739);
																												BgL_cdrzd23660zd2_1744 =
																													CDR
																													(BgL_cdrzd23656zd2_1739);
																												if (SYMBOLP
																													(BgL_carzd23659zd2_1743))
																													{	/* Eval/evcompile.scm 83 */
																														if (PAIRP
																															(BgL_cdrzd23660zd2_1744))
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_carzd23665zd2_1747;
																																BgL_carzd23665zd2_1747
																																	=
																																	CAR
																																	(BgL_cdrzd23660zd2_1744);
																																if (SYMBOLP
																																	(BgL_carzd23665zd2_1747))
																																	{	/* Eval/evcompile.scm 83 */
																																		if (NULLP
																																			(CDR
																																				(BgL_cdrzd23660zd2_1744)))
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1762z00_1751;
																																				BgL_arg1762z00_1751
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_7780;
																																					obj_t
																																						BgL_modz00_7779;
																																					obj_t
																																						BgL_funz00_7778;
																																					BgL_funz00_7778
																																						=
																																						BgL_carzd23659zd2_1743;
																																					BgL_modz00_7779
																																						=
																																						BgL_carzd23665zd2_1747;
																																					BgL_argsz00_7780
																																						=
																																						BgL_arg1762z00_1751;
																																					BgL_argsz00_1368
																																						=
																																						BgL_argsz00_7780;
																																					BgL_modz00_1367
																																						=
																																						BgL_modz00_7779;
																																					BgL_funz00_1366
																																						=
																																						BgL_funz00_7778;
																																					goto
																																						BgL_tagzd2278zd2_1369;
																																				}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1763z00_1752;
																																				obj_t
																																					BgL_arg1764z00_1753;
																																				BgL_arg1763z00_1752
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				BgL_arg1764z00_1753
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_7786;
																																					obj_t
																																						BgL_funz00_7785;
																																					BgL_funz00_7785
																																						=
																																						BgL_arg1763z00_1752;
																																					BgL_argsz00_7786
																																						=
																																						BgL_arg1764z00_1753;
																																					BgL_argsz00_1371
																																						=
																																						BgL_argsz00_7786;
																																					BgL_funz00_1370
																																						=
																																						BgL_funz00_7785;
																																					goto
																																						BgL_tagzd2279zd2_1372;
																																				}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1766z00_1755;
																																		obj_t
																																			BgL_arg1767z00_1756;
																																		BgL_arg1766z00_1755
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		BgL_arg1767z00_1756
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_7792;
																																			obj_t
																																				BgL_funz00_7791;
																																			BgL_funz00_7791
																																				=
																																				BgL_arg1766z00_1755;
																																			BgL_argsz00_7792
																																				=
																																				BgL_arg1767z00_1756;
																																			BgL_argsz00_1371
																																				=
																																				BgL_argsz00_7792;
																																			BgL_funz00_1370
																																				=
																																				BgL_funz00_7791;
																																			goto
																																				BgL_tagzd2279zd2_1372;
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1768z00_1757;
																																obj_t
																																	BgL_arg1769z00_1758;
																																BgL_arg1768z00_1757
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																BgL_arg1769z00_1758
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_7798;
																																	obj_t
																																		BgL_funz00_7797;
																																	BgL_funz00_7797
																																		=
																																		BgL_arg1768z00_1757;
																																	BgL_argsz00_7798
																																		=
																																		BgL_arg1769z00_1758;
																																	BgL_argsz00_1371
																																		=
																																		BgL_argsz00_7798;
																																	BgL_funz00_1370
																																		=
																																		BgL_funz00_7797;
																																	goto
																																		BgL_tagzd2279zd2_1372;
																																}
																															}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_arg1770z00_1759;
																														obj_t
																															BgL_arg1771z00_1760;
																														BgL_arg1770z00_1759
																															=
																															CAR(((obj_t)
																																BgL_expz00_5));
																														BgL_arg1771z00_1760
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														{
																															obj_t
																																BgL_argsz00_7804;
																															obj_t
																																BgL_funz00_7803;
																															BgL_funz00_7803 =
																																BgL_arg1770z00_1759;
																															BgL_argsz00_7804 =
																																BgL_arg1771z00_1760;
																															BgL_argsz00_1371 =
																																BgL_argsz00_7804;
																															BgL_funz00_1370 =
																																BgL_funz00_7803;
																															goto
																																BgL_tagzd2279zd2_1372;
																														}
																													}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												obj_t
																													BgL_arg1772z00_1761;
																												obj_t
																													BgL_arg1773z00_1762;
																												BgL_arg1772z00_1761 =
																													CAR(((obj_t)
																														BgL_expz00_5));
																												BgL_arg1773z00_1762 =
																													CDR(((obj_t)
																														BgL_expz00_5));
																												{
																													obj_t
																														BgL_argsz00_7810;
																													obj_t BgL_funz00_7809;

																													BgL_funz00_7809 =
																														BgL_arg1772z00_1761;
																													BgL_argsz00_7810 =
																														BgL_arg1773z00_1762;
																													BgL_argsz00_1371 =
																														BgL_argsz00_7810;
																													BgL_funz00_1370 =
																														BgL_funz00_7809;
																													goto
																														BgL_tagzd2279zd2_1372;
																												}
																											}
																									}
																								else
																									{	/* Eval/evcompile.scm 83 */
																										obj_t BgL_arg1775z00_1763;
																										obj_t BgL_arg1776z00_1764;

																										BgL_arg1775z00_1763 =
																											CAR(
																											((obj_t) BgL_expz00_5));
																										BgL_arg1776z00_1764 =
																											CDR(
																											((obj_t) BgL_expz00_5));
																										{
																											obj_t BgL_argsz00_7816;
																											obj_t BgL_funz00_7815;

																											BgL_funz00_7815 =
																												BgL_arg1775z00_1763;
																											BgL_argsz00_7816 =
																												BgL_arg1776z00_1764;
																											BgL_argsz00_1371 =
																												BgL_argsz00_7816;
																											BgL_funz00_1370 =
																												BgL_funz00_7815;
																											goto
																												BgL_tagzd2279zd2_1372;
																										}
																									}
																							}
																						else
																							{
																								obj_t BgL_argsz00_7818;
																								obj_t BgL_funz00_7817;

																								BgL_funz00_7817 =
																									BgL_carzd23639zd2_1736;
																								BgL_argsz00_7818 =
																									BgL_cdrzd22640zd2_1622;
																								BgL_argsz00_1364 =
																									BgL_argsz00_7818;
																								BgL_funz00_1363 =
																									BgL_funz00_7817;
																								goto BgL_tagzd2277zd2_1365;
																							}
																					}
																			}
																		else
																			{	/* Eval/evcompile.scm 83 */
																				if (
																					(CAR(
																							((obj_t) BgL_expz00_5)) ==
																						BGl_symbol3852z00zz__evcompilez00))
																					{	/* Eval/evcompile.scm 146 */
																						obj_t BgL_arg2577z00_4738;

																						{	/* Eval/evcompile.scm 65 */
																							obj_t BgL__ortest_1065z00_4739;

																							BgL__ortest_1065z00_4739 =
																								BGl_getzd2sourcezd2locationz00zz__readerz00
																								(BgL_expz00_5);
																							if (CBOOL
																								(BgL__ortest_1065z00_4739))
																								{	/* Eval/evcompile.scm 65 */
																									BgL_arg2577z00_4738 =
																										BgL__ortest_1065z00_4739;
																								}
																							else
																								{	/* Eval/evcompile.scm 65 */
																									BgL_arg2577z00_4738 =
																										BgL_locz00_10;
																								}
																						}
																						return
																							BGl_evcompilezd2orzd2zz__evcompilez00
																							(BgL_cdrzd22640zd2_1622,
																							BgL_envz00_6, BgL_genvz00_7,
																							BgL_wherez00_8,
																							BgL_arg2577z00_4738,
																							BgL_lkpz00_11);
																					}
																				else
																					{	/* Eval/evcompile.scm 83 */
																						if (
																							(CAR(
																									((obj_t) BgL_expz00_5)) ==
																								BGl_symbol3854z00zz__evcompilez00))
																							{	/* Eval/evcompile.scm 148 */
																								obj_t BgL_arg2578z00_4742;

																								{	/* Eval/evcompile.scm 65 */
																									obj_t
																										BgL__ortest_1065z00_4743;
																									BgL__ortest_1065z00_4743 =
																										BGl_getzd2sourcezd2locationz00zz__readerz00
																										(BgL_expz00_5);
																									if (CBOOL
																										(BgL__ortest_1065z00_4743))
																										{	/* Eval/evcompile.scm 65 */
																											BgL_arg2578z00_4742 =
																												BgL__ortest_1065z00_4743;
																										}
																									else
																										{	/* Eval/evcompile.scm 65 */
																											BgL_arg2578z00_4742 =
																												BgL_locz00_10;
																										}
																								}
																								return
																									BGl_evcompilezd2andzd2zz__evcompilez00
																									(BgL_cdrzd22640zd2_1622,
																									BgL_envz00_6, BgL_genvz00_7,
																									BgL_wherez00_8,
																									BgL_arg2578z00_4742,
																									BgL_lkpz00_11);
																							}
																						else
																							{	/* Eval/evcompile.scm 83 */
																								if (
																									(CAR(
																											((obj_t) BgL_expz00_5)) ==
																										BGl_symbol3856z00zz__evcompilez00))
																									{	/* Eval/evcompile.scm 151 */
																										obj_t BgL_arg2580z00_4746;

																										{	/* Eval/evcompile.scm 65 */
																											obj_t
																												BgL__ortest_1065z00_4747;
																											BgL__ortest_1065z00_4747 =
																												BGl_getzd2sourcezd2locationz00zz__readerz00
																												(BgL_expz00_5);
																											if (CBOOL
																												(BgL__ortest_1065z00_4747))
																												{	/* Eval/evcompile.scm 65 */
																													BgL_arg2580z00_4746 =
																														BgL__ortest_1065z00_4747;
																												}
																											else
																												{	/* Eval/evcompile.scm 65 */
																													BgL_arg2580z00_4746 =
																														BgL_locz00_10;
																												}
																										}
																										BGL_TAIL return
																											BGl_evcompilezd2beginzd2zz__evcompilez00
																											(BgL_cdrzd22640zd2_1622,
																											BgL_envz00_6,
																											BgL_genvz00_7,
																											BgL_wherez00_8,
																											BgL_tailz00_9,
																											BgL_arg2580z00_4746,
																											BgL_lkpz00_11,
																											BgL_toplevelpz00_12);
																									}
																								else
																									{	/* Eval/evcompile.scm 83 */
																										if (
																											(CAR(
																													((obj_t)
																														BgL_expz00_5)) ==
																												BGl_symbol3858z00zz__evcompilez00))
																											{	/* Eval/evcompile.scm 83 */
																												if (PAIRP
																													(BgL_cdrzd22640zd2_1622))
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_cdrzd23813zd2_1780;
																														BgL_cdrzd23813zd2_1780
																															=
																															CDR
																															(BgL_cdrzd22640zd2_1622);
																														if (PAIRP
																															(BgL_cdrzd23813zd2_1780))
																															{	/* Eval/evcompile.scm 83 */
																																if (NULLP(CDR
																																		(BgL_cdrzd23813zd2_1780)))
																																	{	/* Eval/evcompile.scm 83 */
																																		BgL_varz00_1331
																																			=
																																			CAR
																																			(BgL_cdrzd22640zd2_1622);
																																		BgL_valz00_1332
																																			=
																																			CAR
																																			(BgL_cdrzd23813zd2_1780);
																																		{	/* Eval/evcompile.scm 154 */
																																			bool_t
																																				BgL_test4078z00_7855;
																																			if (
																																				(BgL_wherez00_8
																																					==
																																					BGl_symbol3828z00zz__evcompilez00))
																																				{	/* Eval/evcompile.scm 155 */
																																					bool_t
																																						BgL__ortest_1066z00_2643;
																																					BgL__ortest_1066z00_2643
																																						=
																																						(BgL_genvz00_7
																																						==
																																						BGl_schemezd2reportzd2environmentz00zz__evalz00
																																						(BINT
																																							(5L)));
																																					if (BgL__ortest_1066z00_2643)
																																						{	/* Eval/evcompile.scm 155 */
																																							BgL_test4078z00_7855
																																								=
																																								BgL__ortest_1066z00_2643;
																																						}
																																					else
																																						{	/* Eval/evcompile.scm 155 */
																																							BgL_test4078z00_7855
																																								=
																																								(BgL_genvz00_7
																																								==
																																								BGl_nullzd2environmentzd2zz__evalz00
																																								(BINT
																																									(5L)));
																																						}
																																				}
																																			else
																																				{	/* Eval/evcompile.scm 154 */
																																					BgL_test4078z00_7855
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test4078z00_7855)
																																				{	/* Eval/evcompile.scm 154 */
																																					return
																																						BGl_evcompilezd2errorzd2zz__evcompilez00
																																						(BgL_locz00_10,
																																						BGl_string3824z00zz__evcompilez00,
																																						BGl_string3830z00zz__evcompilez00,
																																						BgL_expz00_5);
																																				}
																																			else
																																				{	/* Eval/evcompile.scm 154 */
																																					if (BgL_toplevelpz00_12)
																																						{	/* Eval/evcompile.scm 167 */
																																							obj_t
																																								BgL_locz00_2638;
																																							{	/* Eval/evcompile.scm 65 */
																																								obj_t
																																									BgL__ortest_1065z00_4276;
																																								BgL__ortest_1065z00_4276
																																									=
																																									BGl_getzd2sourcezd2locationz00zz__readerz00
																																									(BgL_expz00_5);
																																								if (CBOOL(BgL__ortest_1065z00_4276))
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_locz00_2638
																																											=
																																											BgL__ortest_1065z00_4276;
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_locz00_2638
																																											=
																																											BgL_locz00_10;
																																									}
																																							}
																																							{	/* Eval/evcompile.scm 170 */
																																								obj_t
																																									BgL_arg2584z00_2639;
																																								{	/* Eval/evcompile.scm 170 */
																																									bool_t
																																										BgL_arg2586z00_2641;
																																									obj_t
																																										BgL_arg2588z00_2642;
																																									{	/* Eval/evcompile.scm 71 */
																																										int
																																											BgL_arg1396z00_4277;
																																										BgL_arg1396z00_4277
																																											=
																																											bgl_debug
																																											();
																																										BgL_arg2586z00_2641
																																											=
																																											(
																																											(long)
																																											(BgL_arg1396z00_4277)
																																											<
																																											3L);
																																									}
																																									{	/* Eval/evcompile.scm 65 */
																																										obj_t
																																											BgL__ortest_1065z00_4279;
																																										BgL__ortest_1065z00_4279
																																											=
																																											BGl_getzd2sourcezd2locationz00zz__readerz00
																																											(BgL_valz00_1332);
																																										if (CBOOL(BgL__ortest_1065z00_4279))
																																											{	/* Eval/evcompile.scm 65 */
																																												BgL_arg2588z00_2642
																																													=
																																													BgL__ortest_1065z00_4279;
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 65 */
																																												BgL_arg2588z00_2642
																																													=
																																													BgL_locz00_2638;
																																											}
																																									}
																																									{	/* Eval/evcompile.scm 169 */
																																										obj_t
																																											BgL_auxz00_7876;
																																										if (BgL_toplevelpz00_12)
																																											{	/* Eval/evcompile.scm 170 */
																																												BgL_auxz00_7876
																																													=
																																													BgL_varz00_1331;
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 170 */
																																												BgL_auxz00_7876
																																													=
																																													BgL_wherez00_8;
																																											}
																																										BgL_arg2584z00_2639
																																											=
																																											BGl_evcompilez00zz__evcompilez00
																																											(BgL_valz00_1332,
																																											BNIL,
																																											BgL_genvz00_7,
																																											BgL_auxz00_7876,
																																											BgL_arg2586z00_2641,
																																											BgL_arg2588z00_2642,
																																											BgL_lkpz00_11,
																																											((bool_t) 0));
																																									}
																																								}
																																								{	/* Eval/evcompile.scm 468 */
																																									obj_t
																																										BgL_v1179z00_4280;
																																									BgL_v1179z00_4280
																																										=
																																										create_vector
																																										(5L);
																																									VECTOR_SET
																																										(BgL_v1179z00_4280,
																																										0L,
																																										BINT
																																										(17L));
																																									VECTOR_SET
																																										(BgL_v1179z00_4280,
																																										1L,
																																										BgL_locz00_2638);
																																									VECTOR_SET
																																										(BgL_v1179z00_4280,
																																										2L,
																																										BGl_untypezd2identzd2zz__evcompilez00
																																										(BgL_varz00_1331));
																																									VECTOR_SET
																																										(BgL_v1179z00_4280,
																																										3L,
																																										BgL_arg2584z00_2639);
																																									{	/* Eval/evcompile.scm 468 */
																																										obj_t
																																											BgL_arg2917z00_4282;
																																										BgL_arg2917z00_4282
																																											=
																																											BGL_MODULE
																																											();
																																										VECTOR_SET
																																											(BgL_v1179z00_4280,
																																											4L,
																																											BgL_arg2917z00_4282);
																																									}
																																									return
																																										BgL_v1179z00_4280;
																																								}
																																							}
																																						}
																																					else
																																						{	/* Eval/evcompile.scm 161 */
																																							return
																																								BGl_evcompilezd2errorzd2zz__evcompilez00
																																								(BgL_locz00_10,
																																								BGl_string3824z00zz__evcompilez00,
																																								BGl_string3831z00zz__evcompilez00,
																																								BgL_expz00_5);
																																						}
																																				}
																																		}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_carzd23920zd2_1786;
																																		BgL_carzd23920zd2_1786
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		if (PAIRP
																																			(BgL_carzd23920zd2_1786))
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_cdrzd23937zd2_1789;
																																				BgL_cdrzd23937zd2_1789
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_carzd23920zd2_1786));
																																				if ((CAR
																																						(((obj_t) BgL_carzd23920zd2_1786)) == BGl_symbol3833z00zz__evcompilez00))
																																					{	/* Eval/evcompile.scm 83 */
																																						if (PAIRP(BgL_cdrzd23937zd2_1789))
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_carzd23940zd2_1793;
																																								obj_t
																																									BgL_cdrzd23941zd2_1794;
																																								BgL_carzd23940zd2_1793
																																									=
																																									CAR
																																									(BgL_cdrzd23937zd2_1789);
																																								BgL_cdrzd23941zd2_1794
																																									=
																																									CDR
																																									(BgL_cdrzd23937zd2_1789);
																																								if (SYMBOLP(BgL_carzd23940zd2_1793))
																																									{	/* Eval/evcompile.scm 83 */
																																										if (PAIRP(BgL_cdrzd23941zd2_1794))
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_carzd23946zd2_1797;
																																												BgL_carzd23946zd2_1797
																																													=
																																													CAR
																																													(BgL_cdrzd23941zd2_1794);
																																												if (SYMBOLP(BgL_carzd23946zd2_1797))
																																													{	/* Eval/evcompile.scm 83 */
																																														if (NULLP(CDR(BgL_cdrzd23941zd2_1794)))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg1807z00_1801;
																																																BgL_arg1807z00_1801
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_7919;
																																																	obj_t
																																																		BgL_modz00_7918;
																																																	obj_t
																																																		BgL_funz00_7917;
																																																	BgL_funz00_7917
																																																		=
																																																		BgL_carzd23940zd2_1793;
																																																	BgL_modz00_7918
																																																		=
																																																		BgL_carzd23946zd2_1797;
																																																	BgL_argsz00_7919
																																																		=
																																																		BgL_arg1807z00_1801;
																																																	BgL_argsz00_1368
																																																		=
																																																		BgL_argsz00_7919;
																																																	BgL_modz00_1367
																																																		=
																																																		BgL_modz00_7918;
																																																	BgL_funz00_1366
																																																		=
																																																		BgL_funz00_7917;
																																																	goto
																																																		BgL_tagzd2278zd2_1369;
																																																}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg1808z00_1802;
																																																obj_t
																																																	BgL_arg1809z00_1803;
																																																BgL_arg1808z00_1802
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																BgL_arg1809z00_1803
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_7925;
																																																	obj_t
																																																		BgL_funz00_7924;
																																																	BgL_funz00_7924
																																																		=
																																																		BgL_arg1808z00_1802;
																																																	BgL_argsz00_7925
																																																		=
																																																		BgL_arg1809z00_1803;
																																																	BgL_argsz00_1371
																																																		=
																																																		BgL_argsz00_7925;
																																																	BgL_funz00_1370
																																																		=
																																																		BgL_funz00_7924;
																																																	goto
																																																		BgL_tagzd2279zd2_1372;
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg1812z00_1805;
																																														obj_t
																																															BgL_arg1813z00_1806;
																																														BgL_arg1812z00_1805
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														BgL_arg1813z00_1806
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_7931;
																																															obj_t
																																																BgL_funz00_7930;
																																															BgL_funz00_7930
																																																=
																																																BgL_arg1812z00_1805;
																																															BgL_argsz00_7931
																																																=
																																																BgL_arg1813z00_1806;
																																															BgL_argsz00_1371
																																																=
																																																BgL_argsz00_7931;
																																															BgL_funz00_1370
																																																=
																																																BgL_funz00_7930;
																																															goto
																																																BgL_tagzd2279zd2_1372;
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_arg1814z00_1807;
																																												obj_t
																																													BgL_arg1815z00_1808;
																																												BgL_arg1814z00_1807
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												BgL_arg1815z00_1808
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{
																																													obj_t
																																														BgL_argsz00_7937;
																																													obj_t
																																														BgL_funz00_7936;
																																													BgL_funz00_7936
																																														=
																																														BgL_arg1814z00_1807;
																																													BgL_argsz00_7937
																																														=
																																														BgL_arg1815z00_1808;
																																													BgL_argsz00_1371
																																														=
																																														BgL_argsz00_7937;
																																													BgL_funz00_1370
																																														=
																																														BgL_funz00_7936;
																																													goto
																																														BgL_tagzd2279zd2_1372;
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg1816z00_1809;
																																										obj_t
																																											BgL_arg1817z00_1810;
																																										BgL_arg1816z00_1809
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										BgL_arg1817z00_1810
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_7943;
																																											obj_t
																																												BgL_funz00_7942;
																																											BgL_funz00_7942
																																												=
																																												BgL_arg1816z00_1809;
																																											BgL_argsz00_7943
																																												=
																																												BgL_arg1817z00_1810;
																																											BgL_argsz00_1371
																																												=
																																												BgL_argsz00_7943;
																																											BgL_funz00_1370
																																												=
																																												BgL_funz00_7942;
																																											goto
																																												BgL_tagzd2279zd2_1372;
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_arg1818z00_1811;
																																								obj_t
																																									BgL_arg1819z00_1812;
																																								BgL_arg1818z00_1811
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								BgL_arg1819z00_1812
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								{
																																									obj_t
																																										BgL_argsz00_7949;
																																									obj_t
																																										BgL_funz00_7948;
																																									BgL_funz00_7948
																																										=
																																										BgL_arg1818z00_1811;
																																									BgL_argsz00_7949
																																										=
																																										BgL_arg1819z00_1812;
																																									BgL_argsz00_1371
																																										=
																																										BgL_argsz00_7949;
																																									BgL_funz00_1370
																																										=
																																										BgL_funz00_7948;
																																									goto
																																										BgL_tagzd2279zd2_1372;
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg1820z00_1813;
																																						obj_t
																																							BgL_arg1821z00_1814;
																																						BgL_arg1820z00_1813
																																							=
																																							CAR
																																							(((obj_t) BgL_expz00_5));
																																						BgL_arg1821z00_1814
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						{
																																							obj_t
																																								BgL_argsz00_7955;
																																							obj_t
																																								BgL_funz00_7954;
																																							BgL_funz00_7954
																																								=
																																								BgL_arg1820z00_1813;
																																							BgL_argsz00_7955
																																								=
																																								BgL_arg1821z00_1814;
																																							BgL_argsz00_1371
																																								=
																																								BgL_argsz00_7955;
																																							BgL_funz00_1370
																																								=
																																								BgL_funz00_7954;
																																							goto
																																								BgL_tagzd2279zd2_1372;
																																						}
																																					}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1824z00_1816;
																																				BgL_arg1824z00_1816
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_7959;
																																					obj_t
																																						BgL_funz00_7958;
																																					BgL_funz00_7958
																																						=
																																						BgL_carzd23920zd2_1786;
																																					BgL_argsz00_7959
																																						=
																																						BgL_arg1824z00_1816;
																																					BgL_argsz00_1364
																																						=
																																						BgL_argsz00_7959;
																																					BgL_funz00_1363
																																						=
																																						BgL_funz00_7958;
																																					goto
																																						BgL_tagzd2277zd2_1365;
																																				}
																																			}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_carzd24103zd2_1818;
																																BgL_carzd24103zd2_1818
																																	=
																																	CAR(((obj_t)
																																		BgL_expz00_5));
																																if (PAIRP
																																	(BgL_carzd24103zd2_1818))
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_cdrzd24120zd2_1821;
																																		BgL_cdrzd24120zd2_1821
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_carzd24103zd2_1818));
																																		if ((CAR((
																																						(obj_t)
																																						BgL_carzd24103zd2_1818))
																																				==
																																				BGl_symbol3833z00zz__evcompilez00))
																																			{	/* Eval/evcompile.scm 83 */
																																				if (PAIRP(BgL_cdrzd24120zd2_1821))
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_carzd24123zd2_1825;
																																						obj_t
																																							BgL_cdrzd24124zd2_1826;
																																						BgL_carzd24123zd2_1825
																																							=
																																							CAR
																																							(BgL_cdrzd24120zd2_1821);
																																						BgL_cdrzd24124zd2_1826
																																							=
																																							CDR
																																							(BgL_cdrzd24120zd2_1821);
																																						if (SYMBOLP(BgL_carzd24123zd2_1825))
																																							{	/* Eval/evcompile.scm 83 */
																																								if (PAIRP(BgL_cdrzd24124zd2_1826))
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_carzd24129zd2_1829;
																																										BgL_carzd24129zd2_1829
																																											=
																																											CAR
																																											(BgL_cdrzd24124zd2_1826);
																																										if (SYMBOLP(BgL_carzd24129zd2_1829))
																																											{	/* Eval/evcompile.scm 83 */
																																												if (NULLP(CDR(BgL_cdrzd24124zd2_1826)))
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg1835z00_1833;
																																														BgL_arg1835z00_1833
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_7988;
																																															obj_t
																																																BgL_modz00_7987;
																																															obj_t
																																																BgL_funz00_7986;
																																															BgL_funz00_7986
																																																=
																																																BgL_carzd24123zd2_1825;
																																															BgL_modz00_7987
																																																=
																																																BgL_carzd24129zd2_1829;
																																															BgL_argsz00_7988
																																																=
																																																BgL_arg1835z00_1833;
																																															BgL_argsz00_1368
																																																=
																																																BgL_argsz00_7988;
																																															BgL_modz00_1367
																																																=
																																																BgL_modz00_7987;
																																															BgL_funz00_1366
																																																=
																																																BgL_funz00_7986;
																																															goto
																																																BgL_tagzd2278zd2_1369;
																																														}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg1836z00_1834;
																																														obj_t
																																															BgL_arg1837z00_1835;
																																														BgL_arg1836z00_1834
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														BgL_arg1837z00_1835
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_7994;
																																															obj_t
																																																BgL_funz00_7993;
																																															BgL_funz00_7993
																																																=
																																																BgL_arg1836z00_1834;
																																															BgL_argsz00_7994
																																																=
																																																BgL_arg1837z00_1835;
																																															BgL_argsz00_1371
																																																=
																																																BgL_argsz00_7994;
																																															BgL_funz00_1370
																																																=
																																																BgL_funz00_7993;
																																															goto
																																																BgL_tagzd2279zd2_1372;
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_arg1840z00_1837;
																																												obj_t
																																													BgL_arg1841z00_1838;
																																												BgL_arg1840z00_1837
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												BgL_arg1841z00_1838
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{
																																													obj_t
																																														BgL_argsz00_8000;
																																													obj_t
																																														BgL_funz00_7999;
																																													BgL_funz00_7999
																																														=
																																														BgL_arg1840z00_1837;
																																													BgL_argsz00_8000
																																														=
																																														BgL_arg1841z00_1838;
																																													BgL_argsz00_1371
																																														=
																																														BgL_argsz00_8000;
																																													BgL_funz00_1370
																																														=
																																														BgL_funz00_7999;
																																													goto
																																														BgL_tagzd2279zd2_1372;
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg1842z00_1839;
																																										obj_t
																																											BgL_arg1845z00_1840;
																																										BgL_arg1842z00_1839
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										BgL_arg1845z00_1840
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_8006;
																																											obj_t
																																												BgL_funz00_8005;
																																											BgL_funz00_8005
																																												=
																																												BgL_arg1842z00_1839;
																																											BgL_argsz00_8006
																																												=
																																												BgL_arg1845z00_1840;
																																											BgL_argsz00_1371
																																												=
																																												BgL_argsz00_8006;
																																											BgL_funz00_1370
																																												=
																																												BgL_funz00_8005;
																																											goto
																																												BgL_tagzd2279zd2_1372;
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_arg1846z00_1841;
																																								obj_t
																																									BgL_arg1847z00_1842;
																																								BgL_arg1846z00_1841
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								BgL_arg1847z00_1842
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								{
																																									obj_t
																																										BgL_argsz00_8012;
																																									obj_t
																																										BgL_funz00_8011;
																																									BgL_funz00_8011
																																										=
																																										BgL_arg1846z00_1841;
																																									BgL_argsz00_8012
																																										=
																																										BgL_arg1847z00_1842;
																																									BgL_argsz00_1371
																																										=
																																										BgL_argsz00_8012;
																																									BgL_funz00_1370
																																										=
																																										BgL_funz00_8011;
																																									goto
																																										BgL_tagzd2279zd2_1372;
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg1848z00_1843;
																																						obj_t
																																							BgL_arg1849z00_1844;
																																						BgL_arg1848z00_1843
																																							=
																																							CAR
																																							(((obj_t) BgL_expz00_5));
																																						BgL_arg1849z00_1844
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						{
																																							obj_t
																																								BgL_argsz00_8018;
																																							obj_t
																																								BgL_funz00_8017;
																																							BgL_funz00_8017
																																								=
																																								BgL_arg1848z00_1843;
																																							BgL_argsz00_8018
																																								=
																																								BgL_arg1849z00_1844;
																																							BgL_argsz00_1371
																																								=
																																								BgL_argsz00_8018;
																																							BgL_funz00_1370
																																								=
																																								BgL_funz00_8017;
																																							goto
																																								BgL_tagzd2279zd2_1372;
																																						}
																																					}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1851z00_1845;
																																				obj_t
																																					BgL_arg1852z00_1846;
																																				BgL_arg1851z00_1845
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				BgL_arg1852z00_1846
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_8024;
																																					obj_t
																																						BgL_funz00_8023;
																																					BgL_funz00_8023
																																						=
																																						BgL_arg1851z00_1845;
																																					BgL_argsz00_8024
																																						=
																																						BgL_arg1852z00_1846;
																																					BgL_argsz00_1371
																																						=
																																						BgL_argsz00_8024;
																																					BgL_funz00_1370
																																						=
																																						BgL_funz00_8023;
																																					goto
																																						BgL_tagzd2279zd2_1372;
																																				}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1854z00_1848;
																																		BgL_arg1854z00_1848
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_8028;
																																			obj_t
																																				BgL_funz00_8027;
																																			BgL_funz00_8027
																																				=
																																				BgL_carzd24103zd2_1818;
																																			BgL_argsz00_8028
																																				=
																																				BgL_arg1854z00_1848;
																																			BgL_argsz00_1364
																																				=
																																				BgL_argsz00_8028;
																																			BgL_funz00_1363
																																				=
																																				BgL_funz00_8027;
																																			goto
																																				BgL_tagzd2277zd2_1365;
																																		}
																																	}
																															}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_carzd24286zd2_1849;
																														BgL_carzd24286zd2_1849
																															=
																															CAR(((obj_t)
																																BgL_expz00_5));
																														if (PAIRP
																															(BgL_carzd24286zd2_1849))
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_cdrzd24303zd2_1852;
																																BgL_cdrzd24303zd2_1852
																																	=
																																	CDR(((obj_t)
																																		BgL_carzd24286zd2_1849));
																																if ((CAR((
																																				(obj_t)
																																				BgL_carzd24286zd2_1849))
																																		==
																																		BGl_symbol3833z00zz__evcompilez00))
																																	{	/* Eval/evcompile.scm 83 */
																																		if (PAIRP
																																			(BgL_cdrzd24303zd2_1852))
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_carzd24306zd2_1856;
																																				obj_t
																																					BgL_cdrzd24307zd2_1857;
																																				BgL_carzd24306zd2_1856
																																					=
																																					CAR
																																					(BgL_cdrzd24303zd2_1852);
																																				BgL_cdrzd24307zd2_1857
																																					=
																																					CDR
																																					(BgL_cdrzd24303zd2_1852);
																																				if (SYMBOLP(BgL_carzd24306zd2_1856))
																																					{	/* Eval/evcompile.scm 83 */
																																						if (PAIRP(BgL_cdrzd24307zd2_1857))
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_carzd24312zd2_1860;
																																								BgL_carzd24312zd2_1860
																																									=
																																									CAR
																																									(BgL_cdrzd24307zd2_1857);
																																								if (SYMBOLP(BgL_carzd24312zd2_1860))
																																									{	/* Eval/evcompile.scm 83 */
																																										if (NULLP(CDR(BgL_cdrzd24307zd2_1857)))
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_arg1864z00_1864;
																																												BgL_arg1864z00_1864
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{
																																													obj_t
																																														BgL_argsz00_8057;
																																													obj_t
																																														BgL_modz00_8056;
																																													obj_t
																																														BgL_funz00_8055;
																																													BgL_funz00_8055
																																														=
																																														BgL_carzd24306zd2_1856;
																																													BgL_modz00_8056
																																														=
																																														BgL_carzd24312zd2_1860;
																																													BgL_argsz00_8057
																																														=
																																														BgL_arg1864z00_1864;
																																													BgL_argsz00_1368
																																														=
																																														BgL_argsz00_8057;
																																													BgL_modz00_1367
																																														=
																																														BgL_modz00_8056;
																																													BgL_funz00_1366
																																														=
																																														BgL_funz00_8055;
																																													goto
																																														BgL_tagzd2278zd2_1369;
																																												}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_arg1865z00_1865;
																																												obj_t
																																													BgL_arg1866z00_1866;
																																												BgL_arg1865z00_1865
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												BgL_arg1866z00_1866
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{
																																													obj_t
																																														BgL_argsz00_8063;
																																													obj_t
																																														BgL_funz00_8062;
																																													BgL_funz00_8062
																																														=
																																														BgL_arg1865z00_1865;
																																													BgL_argsz00_8063
																																														=
																																														BgL_arg1866z00_1866;
																																													BgL_argsz00_1371
																																														=
																																														BgL_argsz00_8063;
																																													BgL_funz00_1370
																																														=
																																														BgL_funz00_8062;
																																													goto
																																														BgL_tagzd2279zd2_1372;
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg1868z00_1868;
																																										obj_t
																																											BgL_arg1869z00_1869;
																																										BgL_arg1868z00_1868
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										BgL_arg1869z00_1869
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_8069;
																																											obj_t
																																												BgL_funz00_8068;
																																											BgL_funz00_8068
																																												=
																																												BgL_arg1868z00_1868;
																																											BgL_argsz00_8069
																																												=
																																												BgL_arg1869z00_1869;
																																											BgL_argsz00_1371
																																												=
																																												BgL_argsz00_8069;
																																											BgL_funz00_1370
																																												=
																																												BgL_funz00_8068;
																																											goto
																																												BgL_tagzd2279zd2_1372;
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_arg1870z00_1870;
																																								obj_t
																																									BgL_arg1873z00_1871;
																																								BgL_arg1870z00_1870
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								BgL_arg1873z00_1871
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								{
																																									obj_t
																																										BgL_argsz00_8075;
																																									obj_t
																																										BgL_funz00_8074;
																																									BgL_funz00_8074
																																										=
																																										BgL_arg1870z00_1870;
																																									BgL_argsz00_8075
																																										=
																																										BgL_arg1873z00_1871;
																																									BgL_argsz00_1371
																																										=
																																										BgL_argsz00_8075;
																																									BgL_funz00_1370
																																										=
																																										BgL_funz00_8074;
																																									goto
																																										BgL_tagzd2279zd2_1372;
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg1876z00_1872;
																																						obj_t
																																							BgL_arg1878z00_1873;
																																						BgL_arg1876z00_1872
																																							=
																																							CAR
																																							(((obj_t) BgL_expz00_5));
																																						BgL_arg1878z00_1873
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						{
																																							obj_t
																																								BgL_argsz00_8081;
																																							obj_t
																																								BgL_funz00_8080;
																																							BgL_funz00_8080
																																								=
																																								BgL_arg1876z00_1872;
																																							BgL_argsz00_8081
																																								=
																																								BgL_arg1878z00_1873;
																																							BgL_argsz00_1371
																																								=
																																								BgL_argsz00_8081;
																																							BgL_funz00_1370
																																								=
																																								BgL_funz00_8080;
																																							goto
																																								BgL_tagzd2279zd2_1372;
																																						}
																																					}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_arg1879z00_1874;
																																				obj_t
																																					BgL_arg1881z00_1875;
																																				BgL_arg1879z00_1874
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				BgL_arg1881z00_1875
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				{
																																					obj_t
																																						BgL_argsz00_8087;
																																					obj_t
																																						BgL_funz00_8086;
																																					BgL_funz00_8086
																																						=
																																						BgL_arg1879z00_1874;
																																					BgL_argsz00_8087
																																						=
																																						BgL_arg1881z00_1875;
																																					BgL_argsz00_1371
																																						=
																																						BgL_argsz00_8087;
																																					BgL_funz00_1370
																																						=
																																						BgL_funz00_8086;
																																					goto
																																						BgL_tagzd2279zd2_1372;
																																				}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_arg1882z00_1876;
																																		obj_t
																																			BgL_arg1883z00_1877;
																																		BgL_arg1882z00_1876
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		BgL_arg1883z00_1877
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		{
																																			obj_t
																																				BgL_argsz00_8093;
																																			obj_t
																																				BgL_funz00_8092;
																																			BgL_funz00_8092
																																				=
																																				BgL_arg1882z00_1876;
																																			BgL_argsz00_8093
																																				=
																																				BgL_arg1883z00_1877;
																																			BgL_argsz00_1371
																																				=
																																				BgL_argsz00_8093;
																																			BgL_funz00_1370
																																				=
																																				BgL_funz00_8092;
																																			goto
																																				BgL_tagzd2279zd2_1372;
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																obj_t
																																	BgL_arg1885z00_1879;
																																BgL_arg1885z00_1879
																																	=
																																	CDR(((obj_t)
																																		BgL_expz00_5));
																																{
																																	obj_t
																																		BgL_argsz00_8097;
																																	obj_t
																																		BgL_funz00_8096;
																																	BgL_funz00_8096
																																		=
																																		BgL_carzd24286zd2_1849;
																																	BgL_argsz00_8097
																																		=
																																		BgL_arg1885z00_1879;
																																	BgL_argsz00_1364
																																		=
																																		BgL_argsz00_8097;
																																	BgL_funz00_1363
																																		=
																																		BgL_funz00_8096;
																																	goto
																																		BgL_tagzd2277zd2_1365;
																																}
																															}
																													}
																											}
																										else
																											{	/* Eval/evcompile.scm 83 */
																												if (
																													(CAR(
																															((obj_t)
																																BgL_expz00_5))
																														==
																														BGl_symbol3860z00zz__evcompilez00))
																													{	/* Eval/evcompile.scm 83 */
																														{
																															obj_t
																																BgL_varz00_2653;
																															obj_t
																																BgL_valz00_2654;
																															obj_t
																																BgL_lz00_2650;
																															obj_t
																																BgL_valz00_2651;
																															if (PAIRP
																																(BgL_expz00_5))
																																{	/* Eval/evcompile.scm 83 */
																																	obj_t
																																		BgL_cdrzd26816zd2_2659;
																																	BgL_cdrzd26816zd2_2659
																																		=
																																		CDR(((obj_t)
																																			BgL_expz00_5));
																																	if (PAIRP
																																		(BgL_cdrzd26816zd2_2659))
																																		{	/* Eval/evcompile.scm 83 */
																																			obj_t
																																				BgL_carzd26820zd2_2661;
																																			obj_t
																																				BgL_cdrzd26821zd2_2662;
																																			BgL_carzd26820zd2_2661
																																				=
																																				CAR
																																				(BgL_cdrzd26816zd2_2659);
																																			BgL_cdrzd26821zd2_2662
																																				=
																																				CDR
																																				(BgL_cdrzd26816zd2_2659);
																																			if (PAIRP
																																				(BgL_carzd26820zd2_2661))
																																				{	/* Eval/evcompile.scm 83 */
																																					obj_t
																																						BgL_cdrzd26825zd2_2664;
																																					BgL_cdrzd26825zd2_2664
																																						=
																																						CDR
																																						(BgL_carzd26820zd2_2661);
																																					if (
																																						(CAR
																																							(BgL_carzd26820zd2_2661)
																																							==
																																							BGl_symbol3833z00zz__evcompilez00))
																																						{	/* Eval/evcompile.scm 83 */
																																							if (PAIRP(BgL_cdrzd26825zd2_2664))
																																								{	/* Eval/evcompile.scm 83 */
																																									obj_t
																																										BgL_carzd26828zd2_2668;
																																									obj_t
																																										BgL_cdrzd26829zd2_2669;
																																									BgL_carzd26828zd2_2668
																																										=
																																										CAR
																																										(BgL_cdrzd26825zd2_2664);
																																									BgL_cdrzd26829zd2_2669
																																										=
																																										CDR
																																										(BgL_cdrzd26825zd2_2664);
																																									if (SYMBOLP(BgL_carzd26828zd2_2668))
																																										{	/* Eval/evcompile.scm 83 */
																																											if (PAIRP(BgL_cdrzd26829zd2_2669))
																																												{	/* Eval/evcompile.scm 83 */
																																													obj_t
																																														BgL_carzd26833zd2_2672;
																																													BgL_carzd26833zd2_2672
																																														=
																																														CAR
																																														(BgL_cdrzd26829zd2_2669);
																																													if (SYMBOLP(BgL_carzd26833zd2_2672))
																																														{	/* Eval/evcompile.scm 83 */
																																															if (NULLP(CDR(BgL_cdrzd26829zd2_2669)))
																																																{	/* Eval/evcompile.scm 83 */
																																																	if (PAIRP(BgL_cdrzd26821zd2_2662))
																																																		{	/* Eval/evcompile.scm 83 */
																																																			if (NULLP(CDR(BgL_cdrzd26821zd2_2662)))
																																																				{	/* Eval/evcompile.scm 83 */
																																																					obj_t
																																																						BgL_arg2605z00_2679;
																																																					BgL_arg2605z00_2679
																																																						=
																																																						CAR
																																																						(BgL_cdrzd26821zd2_2662);
																																																					{	/* Eval/evcompile.scm 178 */
																																																						obj_t
																																																							BgL_locz00_4316;
																																																						{	/* Eval/evcompile.scm 65 */
																																																							obj_t
																																																								BgL__ortest_1065z00_4320;
																																																							BgL__ortest_1065z00_4320
																																																								=
																																																								BGl_getzd2sourcezd2locationz00zz__readerz00
																																																								(BgL_expz00_5);
																																																							if (CBOOL(BgL__ortest_1065z00_4320))
																																																								{	/* Eval/evcompile.scm 65 */
																																																									BgL_locz00_4316
																																																										=
																																																										BgL__ortest_1065z00_4320;
																																																								}
																																																							else
																																																								{	/* Eval/evcompile.scm 65 */
																																																									BgL_locz00_4316
																																																										=
																																																										BgL_locz00_10;
																																																								}
																																																						}
																																																						{	/* Eval/evcompile.scm 179 */
																																																							obj_t
																																																								BgL_arg2678z00_4317;
																																																							obj_t
																																																								BgL_arg2680z00_4318;
																																																							BgL_arg2678z00_4317
																																																								=
																																																								BGl_z04variablez04zz__evcompilez00
																																																								(BgL_locz00_4316,
																																																								BgL_carzd26828zd2_2668,
																																																								BgL_envz00_6,
																																																								BgL_genvz00_7,
																																																								BgL_carzd26833zd2_2672);
																																																							{	/* Eval/evcompile.scm 182 */
																																																								obj_t
																																																									BgL_arg2681z00_4319;
																																																								{	/* Eval/evcompile.scm 65 */
																																																									obj_t
																																																										BgL__ortest_1065z00_4321;
																																																									BgL__ortest_1065z00_4321
																																																										=
																																																										BGl_getzd2sourcezd2locationz00zz__readerz00
																																																										(BgL_arg2605z00_2679);
																																																									if (CBOOL(BgL__ortest_1065z00_4321))
																																																										{	/* Eval/evcompile.scm 65 */
																																																											BgL_arg2681z00_4319
																																																												=
																																																												BgL__ortest_1065z00_4321;
																																																										}
																																																									else
																																																										{	/* Eval/evcompile.scm 65 */
																																																											BgL_arg2681z00_4319
																																																												=
																																																												BgL_locz00_4316;
																																																										}
																																																								}
																																																								BgL_arg2680z00_4318
																																																									=
																																																									BGl_evcompilez00zz__evcompilez00
																																																									(BgL_arg2605z00_2679,
																																																									BgL_envz00_6,
																																																									BgL_genvz00_7,
																																																									BgL_carzd26828zd2_2668,
																																																									((bool_t) 0), BgL_arg2681z00_4319, BgL_lkpz00_11, ((bool_t) 0));
																																																							}
																																																							return
																																																								BGl_evcompilezd2setzd2zz__evcompilez00
																																																								(BgL_arg2678z00_4317,
																																																								BgL_arg2680z00_4318,
																																																								BgL_genvz00_7,
																																																								BgL_locz00_4316);
																																																						}
																																																					}
																																																				}
																																																			else
																																																				{	/* Eval/evcompile.scm 83 */
																																																				BgL_tagzd26805zd2_2656:
																																																					{	/* Eval/evcompile.scm 200 */
																																																						obj_t
																																																							BgL_arg2713z00_2792;
																																																						{	/* Eval/evcompile.scm 65 */
																																																							obj_t
																																																								BgL__ortest_1065z00_4304;
																																																							BgL__ortest_1065z00_4304
																																																								=
																																																								BGl_getzd2sourcezd2locationz00zz__readerz00
																																																								(BgL_expz00_5);
																																																							if (CBOOL(BgL__ortest_1065z00_4304))
																																																								{	/* Eval/evcompile.scm 65 */
																																																									BgL_arg2713z00_2792
																																																										=
																																																										BgL__ortest_1065z00_4304;
																																																								}
																																																							else
																																																								{	/* Eval/evcompile.scm 65 */
																																																									BgL_arg2713z00_2792
																																																										=
																																																										BgL_locz00_10;
																																																								}
																																																						}
																																																						return
																																																							BGl_evcompilezd2errorzd2zz__evcompilez00
																																																							(BgL_arg2713z00_2792,
																																																							BGl_string3832z00zz__evcompilez00,
																																																							BGl_string3827z00zz__evcompilez00,
																																																							BgL_expz00_5);
																																																					}
																																																				}
																																																		}
																																																	else
																																																		{	/* Eval/evcompile.scm 83 */
																																																			goto
																																																				BgL_tagzd26805zd2_2656;
																																																		}
																																																}
																																															else
																																																{	/* Eval/evcompile.scm 83 */
																																																	obj_t
																																																		BgL_carzd26873zd2_2682;
																																																	obj_t
																																																		BgL_cdrzd26874zd2_2683;
																																																	BgL_carzd26873zd2_2682
																																																		=
																																																		CAR
																																																		(
																																																		((obj_t) BgL_cdrzd26816zd2_2659));
																																																	BgL_cdrzd26874zd2_2683
																																																		=
																																																		CDR
																																																		(
																																																		((obj_t) BgL_cdrzd26816zd2_2659));
																																																	if (SYMBOLP(BgL_carzd26873zd2_2682))
																																																		{	/* Eval/evcompile.scm 83 */
																																																			if (PAIRP(BgL_cdrzd26874zd2_2683))
																																																				{	/* Eval/evcompile.scm 83 */
																																																					if (NULLP(CDR(BgL_cdrzd26874zd2_2683)))
																																																						{	/* Eval/evcompile.scm 83 */
																																																							BgL_varz00_2653
																																																								=
																																																								BgL_carzd26873zd2_2682;
																																																							BgL_valz00_2654
																																																								=
																																																								CAR
																																																								(BgL_cdrzd26874zd2_2683);
																																																						BgL_tagzd26804zd2_2655:
																																																							{	/* Eval/evcompile.scm 191 */
																																																								obj_t
																																																									BgL_locz00_2788;
																																																								{	/* Eval/evcompile.scm 65 */
																																																									obj_t
																																																										BgL__ortest_1065z00_4302;
																																																									BgL__ortest_1065z00_4302
																																																										=
																																																										BGl_getzd2sourcezd2locationz00zz__readerz00
																																																										(BgL_expz00_5);
																																																									if (CBOOL(BgL__ortest_1065z00_4302))
																																																										{	/* Eval/evcompile.scm 65 */
																																																											BgL_locz00_2788
																																																												=
																																																												BgL__ortest_1065z00_4302;
																																																										}
																																																									else
																																																										{	/* Eval/evcompile.scm 65 */
																																																											BgL_locz00_2788
																																																												=
																																																												BgL_locz00_10;
																																																										}
																																																								}
																																																								{	/* Eval/evcompile.scm 192 */
																																																									obj_t
																																																										BgL_arg2698z00_2789;
																																																									obj_t
																																																										BgL_arg2701z00_2790;
																																																									BgL_arg2698z00_2789
																																																										=
																																																										BGl_variablez00zz__evcompilez00
																																																										(BgL_locz00_2788,
																																																										BgL_varz00_2653,
																																																										BgL_envz00_6,
																																																										BgL_genvz00_7);
																																																									{	/* Eval/evcompile.scm 195 */
																																																										obj_t
																																																											BgL_arg2712z00_2791;
																																																										{	/* Eval/evcompile.scm 65 */
																																																											obj_t
																																																												BgL__ortest_1065z00_4303;
																																																											BgL__ortest_1065z00_4303
																																																												=
																																																												BGl_getzd2sourcezd2locationz00zz__readerz00
																																																												(BgL_valz00_2654);
																																																											if (CBOOL(BgL__ortest_1065z00_4303))
																																																												{	/* Eval/evcompile.scm 65 */
																																																													BgL_arg2712z00_2791
																																																														=
																																																														BgL__ortest_1065z00_4303;
																																																												}
																																																											else
																																																												{	/* Eval/evcompile.scm 65 */
																																																													BgL_arg2712z00_2791
																																																														=
																																																														BgL_locz00_2788;
																																																												}
																																																										}
																																																										BgL_arg2701z00_2790
																																																											=
																																																											BGl_evcompilez00zz__evcompilez00
																																																											(BgL_valz00_2654,
																																																											BgL_envz00_6,
																																																											BgL_genvz00_7,
																																																											BgL_varz00_2653,
																																																											((bool_t) 0), BgL_arg2712z00_2791, BgL_lkpz00_11, ((bool_t) 0));
																																																									}
																																																									return
																																																										BGl_evcompilezd2setzd2zz__evcompilez00
																																																										(BgL_arg2698z00_2789,
																																																										BgL_arg2701z00_2790,
																																																										BgL_genvz00_7,
																																																										BgL_locz00_2788);
																																																								}
																																																							}
																																																						}
																																																					else
																																																						{	/* Eval/evcompile.scm 83 */
																																																							goto
																																																								BgL_tagzd26805zd2_2656;
																																																						}
																																																				}
																																																			else
																																																				{	/* Eval/evcompile.scm 83 */
																																																					goto
																																																						BgL_tagzd26805zd2_2656;
																																																				}
																																																		}
																																																	else
																																																		{	/* Eval/evcompile.scm 83 */
																																																			goto
																																																				BgL_tagzd26805zd2_2656;
																																																		}
																																																}
																																														}
																																													else
																																														{	/* Eval/evcompile.scm 83 */
																																															obj_t
																																																BgL_carzd26895zd2_2692;
																																															obj_t
																																																BgL_cdrzd26896zd2_2693;
																																															BgL_carzd26895zd2_2692
																																																=
																																																CAR
																																																(
																																																((obj_t) BgL_cdrzd26816zd2_2659));
																																															BgL_cdrzd26896zd2_2693
																																																=
																																																CDR
																																																(
																																																((obj_t) BgL_cdrzd26816zd2_2659));
																																															if (SYMBOLP(BgL_carzd26895zd2_2692))
																																																{	/* Eval/evcompile.scm 83 */
																																																	if (PAIRP(BgL_cdrzd26896zd2_2693))
																																																		{	/* Eval/evcompile.scm 83 */
																																																			if (NULLP(CDR(BgL_cdrzd26896zd2_2693)))
																																																				{
																																																					obj_t
																																																						BgL_valz00_8182;
																																																					obj_t
																																																						BgL_varz00_8181;
																																																					BgL_varz00_8181
																																																						=
																																																						BgL_carzd26895zd2_2692;
																																																					BgL_valz00_8182
																																																						=
																																																						CAR
																																																						(BgL_cdrzd26896zd2_2693);
																																																					BgL_valz00_2654
																																																						=
																																																						BgL_valz00_8182;
																																																					BgL_varz00_2653
																																																						=
																																																						BgL_varz00_8181;
																																																					goto
																																																						BgL_tagzd26804zd2_2655;
																																																				}
																																																			else
																																																				{	/* Eval/evcompile.scm 83 */
																																																					goto
																																																						BgL_tagzd26805zd2_2656;
																																																				}
																																																		}
																																																	else
																																																		{	/* Eval/evcompile.scm 83 */
																																																			goto
																																																				BgL_tagzd26805zd2_2656;
																																																		}
																																																}
																																															else
																																																{	/* Eval/evcompile.scm 83 */
																																																	goto
																																																		BgL_tagzd26805zd2_2656;
																																																}
																																														}
																																												}
																																											else
																																												{	/* Eval/evcompile.scm 83 */
																																													obj_t
																																														BgL_carzd26917zd2_2701;
																																													obj_t
																																														BgL_cdrzd26918zd2_2702;
																																													BgL_carzd26917zd2_2701
																																														=
																																														CAR
																																														(
																																														((obj_t) BgL_cdrzd26816zd2_2659));
																																													BgL_cdrzd26918zd2_2702
																																														=
																																														CDR
																																														(
																																														((obj_t) BgL_cdrzd26816zd2_2659));
																																													if (SYMBOLP(BgL_carzd26917zd2_2701))
																																														{	/* Eval/evcompile.scm 83 */
																																															if (PAIRP(BgL_cdrzd26918zd2_2702))
																																																{	/* Eval/evcompile.scm 83 */
																																																	if (NULLP(CDR(BgL_cdrzd26918zd2_2702)))
																																																		{
																																																			obj_t
																																																				BgL_valz00_8196;
																																																			obj_t
																																																				BgL_varz00_8195;
																																																			BgL_varz00_8195
																																																				=
																																																				BgL_carzd26917zd2_2701;
																																																			BgL_valz00_8196
																																																				=
																																																				CAR
																																																				(BgL_cdrzd26918zd2_2702);
																																																			BgL_valz00_2654
																																																				=
																																																				BgL_valz00_8196;
																																																			BgL_varz00_2653
																																																				=
																																																				BgL_varz00_8195;
																																																			goto
																																																				BgL_tagzd26804zd2_2655;
																																																		}
																																																	else
																																																		{	/* Eval/evcompile.scm 83 */
																																																			goto
																																																				BgL_tagzd26805zd2_2656;
																																																		}
																																																}
																																															else
																																																{	/* Eval/evcompile.scm 83 */
																																																	goto
																																																		BgL_tagzd26805zd2_2656;
																																																}
																																														}
																																													else
																																														{	/* Eval/evcompile.scm 83 */
																																															goto
																																																BgL_tagzd26805zd2_2656;
																																														}
																																												}
																																										}
																																									else
																																										{	/* Eval/evcompile.scm 83 */
																																											obj_t
																																												BgL_carzd26939zd2_2710;
																																											obj_t
																																												BgL_cdrzd26940zd2_2711;
																																											BgL_carzd26939zd2_2710
																																												=
																																												CAR
																																												(
																																												((obj_t) BgL_cdrzd26816zd2_2659));
																																											BgL_cdrzd26940zd2_2711
																																												=
																																												CDR
																																												(
																																												((obj_t) BgL_cdrzd26816zd2_2659));
																																											if (SYMBOLP(BgL_carzd26939zd2_2710))
																																												{	/* Eval/evcompile.scm 83 */
																																													if (PAIRP(BgL_cdrzd26940zd2_2711))
																																														{	/* Eval/evcompile.scm 83 */
																																															if (NULLP(CDR(BgL_cdrzd26940zd2_2711)))
																																																{
																																																	obj_t
																																																		BgL_valz00_8210;
																																																	obj_t
																																																		BgL_varz00_8209;
																																																	BgL_varz00_8209
																																																		=
																																																		BgL_carzd26939zd2_2710;
																																																	BgL_valz00_8210
																																																		=
																																																		CAR
																																																		(BgL_cdrzd26940zd2_2711);
																																																	BgL_valz00_2654
																																																		=
																																																		BgL_valz00_8210;
																																																	BgL_varz00_2653
																																																		=
																																																		BgL_varz00_8209;
																																																	goto
																																																		BgL_tagzd26804zd2_2655;
																																																}
																																															else
																																																{	/* Eval/evcompile.scm 83 */
																																																	goto
																																																		BgL_tagzd26805zd2_2656;
																																																}
																																														}
																																													else
																																														{	/* Eval/evcompile.scm 83 */
																																															goto
																																																BgL_tagzd26805zd2_2656;
																																														}
																																												}
																																											else
																																												{	/* Eval/evcompile.scm 83 */
																																													goto
																																														BgL_tagzd26805zd2_2656;
																																												}
																																										}
																																								}
																																							else
																																								{	/* Eval/evcompile.scm 83 */
																																									obj_t
																																										BgL_carzd26961zd2_2719;
																																									obj_t
																																										BgL_cdrzd26962zd2_2720;
																																									BgL_carzd26961zd2_2719
																																										=
																																										CAR
																																										(
																																										((obj_t) BgL_cdrzd26816zd2_2659));
																																									BgL_cdrzd26962zd2_2720
																																										=
																																										CDR
																																										(
																																										((obj_t) BgL_cdrzd26816zd2_2659));
																																									if (SYMBOLP(BgL_carzd26961zd2_2719))
																																										{	/* Eval/evcompile.scm 83 */
																																											if (PAIRP(BgL_cdrzd26962zd2_2720))
																																												{	/* Eval/evcompile.scm 83 */
																																													if (NULLP(CDR(BgL_cdrzd26962zd2_2720)))
																																														{
																																															obj_t
																																																BgL_valz00_8224;
																																															obj_t
																																																BgL_varz00_8223;
																																															BgL_varz00_8223
																																																=
																																																BgL_carzd26961zd2_2719;
																																															BgL_valz00_8224
																																																=
																																																CAR
																																																(BgL_cdrzd26962zd2_2720);
																																															BgL_valz00_2654
																																																=
																																																BgL_valz00_8224;
																																															BgL_varz00_2653
																																																=
																																																BgL_varz00_8223;
																																															goto
																																																BgL_tagzd26804zd2_2655;
																																														}
																																													else
																																														{	/* Eval/evcompile.scm 83 */
																																															goto
																																																BgL_tagzd26805zd2_2656;
																																														}
																																												}
																																											else
																																												{	/* Eval/evcompile.scm 83 */
																																													goto
																																														BgL_tagzd26805zd2_2656;
																																												}
																																										}
																																									else
																																										{	/* Eval/evcompile.scm 83 */
																																											goto
																																												BgL_tagzd26805zd2_2656;
																																										}
																																								}
																																						}
																																					else
																																						{	/* Eval/evcompile.scm 83 */
																																							obj_t
																																								BgL_carzd26979zd2_2728;
																																							obj_t
																																								BgL_cdrzd26980zd2_2729;
																																							BgL_carzd26979zd2_2728
																																								=
																																								CAR
																																								(
																																								((obj_t) BgL_cdrzd26816zd2_2659));
																																							BgL_cdrzd26980zd2_2729
																																								=
																																								CDR
																																								(
																																								((obj_t) BgL_cdrzd26816zd2_2659));
																																							if ((CAR(((obj_t) BgL_carzd26979zd2_2728)) == BGl_symbol3835z00zz__evcompilez00))
																																								{	/* Eval/evcompile.scm 83 */
																																									if (PAIRP(BgL_cdrzd26980zd2_2729))
																																										{	/* Eval/evcompile.scm 83 */
																																											if (NULLP(CDR(BgL_cdrzd26980zd2_2729)))
																																												{	/* Eval/evcompile.scm 83 */
																																													obj_t
																																														BgL_arg2650z00_2735;
																																													obj_t
																																														BgL_arg2651z00_2736;
																																													BgL_arg2650z00_2735
																																														=
																																														CDR
																																														(
																																														((obj_t) BgL_carzd26979zd2_2728));
																																													BgL_arg2651z00_2736
																																														=
																																														CAR
																																														(BgL_cdrzd26980zd2_2729);
																																													BgL_lz00_2650
																																														=
																																														BgL_arg2650z00_2735;
																																													BgL_valz00_2651
																																														=
																																														BgL_arg2651z00_2736;
																																													{	/* Eval/evcompile.scm 187 */
																																														bool_t
																																															BgL_test4141z00_8242;
																																														if (PAIRP(BgL_lz00_2650))
																																															{	/* Eval/evcompile.scm 187 */
																																																bool_t
																																																	BgL_test4143z00_8245;
																																																{	/* Eval/evcompile.scm 187 */
																																																	obj_t
																																																		BgL_tmpz00_8246;
																																																	BgL_tmpz00_8246
																																																		=
																																																		CDR
																																																		(BgL_lz00_2650);
																																																	BgL_test4143z00_8245
																																																		=
																																																		PAIRP
																																																		(BgL_tmpz00_8246);
																																																}
																																																if (BgL_test4143z00_8245)
																																																	{
																																																		obj_t
																																																			BgL_l1139z00_2779;
																																																		BgL_l1139z00_2779
																																																			=
																																																			BgL_lz00_2650;
																																																	BgL_zc3z04anonymousza32692ze3z87_2780:
																																																		if (NULLP(BgL_l1139z00_2779))
																																																			{	/* Eval/evcompile.scm 187 */
																																																				BgL_test4141z00_8242
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 187 */
																																																				bool_t
																																																					BgL_test4145z00_8251;
																																																				{	/* Eval/evcompile.scm 187 */
																																																					obj_t
																																																						BgL_tmpz00_8252;
																																																					BgL_tmpz00_8252
																																																						=
																																																						CAR
																																																						(
																																																						((obj_t) BgL_l1139z00_2779));
																																																					BgL_test4145z00_8251
																																																						=
																																																						SYMBOLP
																																																						(BgL_tmpz00_8252);
																																																				}
																																																				if (BgL_test4145z00_8251)
																																																					{
																																																						obj_t
																																																							BgL_l1139z00_8256;
																																																						BgL_l1139z00_8256
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_l1139z00_2779));
																																																						BgL_l1139z00_2779
																																																							=
																																																							BgL_l1139z00_8256;
																																																						goto
																																																							BgL_zc3z04anonymousza32692ze3z87_2780;
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 187 */
																																																						BgL_test4141z00_8242
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 187 */
																																																		BgL_test4141z00_8242
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 187 */
																																																BgL_test4141z00_8242
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test4141z00_8242)
																																															{	/* Eval/evcompile.scm 187 */
																																																return
																																																	BGl_evcompilezd2fieldzd2setz00zz__evcompilez00
																																																	(BgL_lz00_2650,
																																																	BgL_valz00_2651,
																																																	BgL_expz00_5,
																																																	BgL_envz00_6,
																																																	BgL_genvz00_7,
																																																	BgL_wherez00_8,
																																																	BgL_tailz00_9,
																																																	BgL_locz00_10,
																																																	BgL_lkpz00_11,
																																																	BgL_toplevelpz00_12);
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 187 */
																																																return
																																																	BGl_evcompilezd2errorzd2zz__evcompilez00
																																																	(BgL_locz00_10,
																																																	BGl_string3824z00zz__evcompilez00,
																																																	BGl_string3827z00zz__evcompilez00,
																																																	BgL_expz00_5);
																																															}
																																													}
																																												}
																																											else
																																												{	/* Eval/evcompile.scm 83 */
																																													goto
																																														BgL_tagzd26805zd2_2656;
																																												}
																																										}
																																									else
																																										{	/* Eval/evcompile.scm 83 */
																																											goto
																																												BgL_tagzd26805zd2_2656;
																																										}
																																								}
																																							else
																																								{	/* Eval/evcompile.scm 83 */
																																									obj_t
																																										BgL_cdrzd27003zd2_2738;
																																									BgL_cdrzd27003zd2_2738
																																										=
																																										CDR
																																										(
																																										((obj_t) BgL_expz00_5));
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_carzd27006zd2_2739;
																																										obj_t
																																											BgL_cdrzd27007zd2_2740;
																																										BgL_carzd27006zd2_2739
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_cdrzd27003zd2_2738));
																																										BgL_cdrzd27007zd2_2740
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_cdrzd27003zd2_2738));
																																										if (SYMBOLP(BgL_carzd27006zd2_2739))
																																											{	/* Eval/evcompile.scm 83 */
																																												if (PAIRP(BgL_cdrzd27007zd2_2740))
																																													{	/* Eval/evcompile.scm 83 */
																																														if (NULLP(CDR(BgL_cdrzd27007zd2_2740)))
																																															{
																																																obj_t
																																																	BgL_valz00_8275;
																																																obj_t
																																																	BgL_varz00_8274;
																																																BgL_varz00_8274
																																																	=
																																																	BgL_carzd27006zd2_2739;
																																																BgL_valz00_8275
																																																	=
																																																	CAR
																																																	(BgL_cdrzd27007zd2_2740);
																																																BgL_valz00_2654
																																																	=
																																																	BgL_valz00_8275;
																																																BgL_varz00_2653
																																																	=
																																																	BgL_varz00_8274;
																																																goto
																																																	BgL_tagzd26804zd2_2655;
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																goto
																																																	BgL_tagzd26805zd2_2656;
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														goto
																																															BgL_tagzd26805zd2_2656;
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												goto
																																													BgL_tagzd26805zd2_2656;
																																											}
																																									}
																																								}
																																						}
																																				}
																																			else
																																				{	/* Eval/evcompile.scm 83 */
																																					obj_t
																																						BgL_carzd27028zd2_2750;
																																					obj_t
																																						BgL_cdrzd27029zd2_2751;
																																					BgL_carzd27028zd2_2750
																																						=
																																						CAR(
																																						((obj_t) BgL_cdrzd26816zd2_2659));
																																					BgL_cdrzd27029zd2_2751
																																						=
																																						CDR(
																																						((obj_t) BgL_cdrzd26816zd2_2659));
																																					if (SYMBOLP(BgL_carzd27028zd2_2750))
																																						{	/* Eval/evcompile.scm 83 */
																																							if (PAIRP(BgL_cdrzd27029zd2_2751))
																																								{	/* Eval/evcompile.scm 83 */
																																									if (NULLP(CDR(BgL_cdrzd27029zd2_2751)))
																																										{
																																											obj_t
																																												BgL_valz00_8289;
																																											obj_t
																																												BgL_varz00_8288;
																																											BgL_varz00_8288
																																												=
																																												BgL_carzd27028zd2_2750;
																																											BgL_valz00_8289
																																												=
																																												CAR
																																												(BgL_cdrzd27029zd2_2751);
																																											BgL_valz00_2654
																																												=
																																												BgL_valz00_8289;
																																											BgL_varz00_2653
																																												=
																																												BgL_varz00_8288;
																																											goto
																																												BgL_tagzd26804zd2_2655;
																																										}
																																									else
																																										{	/* Eval/evcompile.scm 83 */
																																											goto
																																												BgL_tagzd26805zd2_2656;
																																										}
																																								}
																																							else
																																								{	/* Eval/evcompile.scm 83 */
																																									goto
																																										BgL_tagzd26805zd2_2656;
																																								}
																																						}
																																					else
																																						{	/* Eval/evcompile.scm 83 */
																																							goto
																																								BgL_tagzd26805zd2_2656;
																																						}
																																				}
																																		}
																																	else
																																		{	/* Eval/evcompile.scm 83 */
																																			goto
																																				BgL_tagzd26805zd2_2656;
																																		}
																																}
																															else
																																{	/* Eval/evcompile.scm 83 */
																																	goto
																																		BgL_tagzd26805zd2_2656;
																																}
																														}
																													}
																												else
																													{	/* Eval/evcompile.scm 83 */
																														obj_t
																															BgL_cdrzd24395zd2_1882;
																														BgL_cdrzd24395zd2_1882
																															=
																															CDR(((obj_t)
																																BgL_expz00_5));
																														if ((CAR(((obj_t)
																																		BgL_expz00_5))
																																==
																																BGl_symbol3861z00zz__evcompilez00))
																															{	/* Eval/evcompile.scm 83 */
																																if (PAIRP
																																	(BgL_cdrzd24395zd2_1882))
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_cdrzd24399zd2_1886;
																																		BgL_cdrzd24399zd2_1886
																																			=
																																			CDR
																																			(BgL_cdrzd24395zd2_1882);
																																		if (PAIRP
																																			(BgL_cdrzd24399zd2_1886))
																																			{	/* Eval/evcompile.scm 83 */
																																				if (NULLP(CDR(BgL_cdrzd24399zd2_1886)))
																																					{	/* Eval/evcompile.scm 83 */
																																						BgL_escapez00_1335
																																							=
																																							CAR
																																							(BgL_cdrzd24395zd2_1882);
																																						BgL_bodyz00_1336
																																							=
																																							CAR
																																							(BgL_cdrzd24399zd2_1886);
																																						{	/* Eval/evcompile.scm 202 */
																																							obj_t
																																								BgL_locz00_2793;
																																							{	/* Eval/evcompile.scm 65 */
																																								obj_t
																																									BgL__ortest_1065z00_4364;
																																								BgL__ortest_1065z00_4364
																																									=
																																									BGl_getzd2sourcezd2locationz00zz__readerz00
																																									(BgL_expz00_5);
																																								if (CBOOL(BgL__ortest_1065z00_4364))
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_locz00_2793
																																											=
																																											BgL__ortest_1065z00_4364;
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_locz00_2793
																																											=
																																											BgL_locz00_10;
																																									}
																																							}
																																							{	/* Eval/evcompile.scm 204 */
																																								obj_t
																																									BgL_arg2716z00_2794;
																																								{	/* Eval/evcompile.scm 204 */
																																									obj_t
																																										BgL_arg2717z00_2795;
																																									obj_t
																																										BgL_arg2720z00_2796;
																																									obj_t
																																										BgL_arg2722z00_2797;
																																									{	/* Eval/evcompile.scm 204 */
																																										obj_t
																																											BgL_arg2723z00_2798;
																																										{	/* Eval/evcompile.scm 204 */
																																											obj_t
																																												BgL_arg2724z00_2799;
																																											BgL_arg2724z00_2799
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_bodyz00_1336,
																																												BNIL);
																																											BgL_arg2723z00_2798
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_escapez00_1335,
																																												BgL_arg2724z00_2799);
																																										}
																																										BgL_arg2717z00_2795
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol3837z00zz__evcompilez00,
																																											BgL_arg2723z00_2798);
																																									}
																																									BgL_arg2720z00_2796
																																										=
																																										CAR
																																										(
																																										((obj_t) BgL_escapez00_1335));
																																									{	/* Eval/evcompile.scm 65 */
																																										obj_t
																																											BgL__ortest_1065z00_4366;
																																										BgL__ortest_1065z00_4366
																																											=
																																											BGl_getzd2sourcezd2locationz00zz__readerz00
																																											(BgL_bodyz00_1336);
																																										if (CBOOL(BgL__ortest_1065z00_4366))
																																											{	/* Eval/evcompile.scm 65 */
																																												BgL_arg2722z00_2797
																																													=
																																													BgL__ortest_1065z00_4366;
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 65 */
																																												BgL_arg2722z00_2797
																																													=
																																													BgL_locz00_2793;
																																											}
																																									}
																																									BgL_arg2716z00_2794
																																										=
																																										BGl_evcompilez00zz__evcompilez00
																																										(BgL_arg2717z00_2795,
																																										BgL_envz00_6,
																																										BgL_genvz00_7,
																																										BgL_arg2720z00_2796,
																																										((bool_t) 0), BgL_arg2722z00_2797, BgL_lkpz00_11, ((bool_t) 0));
																																								}
																																								{	/* Eval/evcompile.scm 474 */
																																									obj_t
																																										BgL_v1180z00_4367;
																																									BgL_v1180z00_4367
																																										=
																																										create_vector
																																										(3L);
																																									VECTOR_SET
																																										(BgL_v1180z00_4367,
																																										0L,
																																										BINT
																																										(18L));
																																									VECTOR_SET
																																										(BgL_v1180z00_4367,
																																										1L,
																																										BgL_locz00_2793);
																																									VECTOR_SET
																																										(BgL_v1180z00_4367,
																																										2L,
																																										BgL_arg2716z00_2794);
																																									return
																																										BgL_v1180z00_4367;
																																								}
																																							}
																																						}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_carzd24482zd2_1892;
																																						BgL_carzd24482zd2_1892
																																							=
																																							CAR
																																							(((obj_t) BgL_expz00_5));
																																						if (PAIRP(BgL_carzd24482zd2_1892))
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_cdrzd24499zd2_1895;
																																								BgL_cdrzd24499zd2_1895
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_carzd24482zd2_1892));
																																								if ((CAR(((obj_t) BgL_carzd24482zd2_1892)) == BGl_symbol3833z00zz__evcompilez00))
																																									{	/* Eval/evcompile.scm 83 */
																																										if (PAIRP(BgL_cdrzd24499zd2_1895))
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_carzd24502zd2_1899;
																																												obj_t
																																													BgL_cdrzd24503zd2_1900;
																																												BgL_carzd24502zd2_1899
																																													=
																																													CAR
																																													(BgL_cdrzd24499zd2_1895);
																																												BgL_cdrzd24503zd2_1900
																																													=
																																													CDR
																																													(BgL_cdrzd24499zd2_1895);
																																												if (SYMBOLP(BgL_carzd24502zd2_1899))
																																													{	/* Eval/evcompile.scm 83 */
																																														if (PAIRP(BgL_cdrzd24503zd2_1900))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_carzd24508zd2_1903;
																																																BgL_carzd24508zd2_1903
																																																	=
																																																	CAR
																																																	(BgL_cdrzd24503zd2_1900);
																																																if (SYMBOLP(BgL_carzd24508zd2_1903))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		if (NULLP(CDR(BgL_cdrzd24503zd2_1900)))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg1907z00_1907;
																																																				BgL_arg1907z00_1907
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_8352;
																																																					obj_t
																																																						BgL_modz00_8351;
																																																					obj_t
																																																						BgL_funz00_8350;
																																																					BgL_funz00_8350
																																																						=
																																																						BgL_carzd24502zd2_1899;
																																																					BgL_modz00_8351
																																																						=
																																																						BgL_carzd24508zd2_1903;
																																																					BgL_argsz00_8352
																																																						=
																																																						BgL_arg1907z00_1907;
																																																					BgL_argsz00_1368
																																																						=
																																																						BgL_argsz00_8352;
																																																					BgL_modz00_1367
																																																						=
																																																						BgL_modz00_8351;
																																																					BgL_funz00_1366
																																																						=
																																																						BgL_funz00_8350;
																																																					goto
																																																						BgL_tagzd2278zd2_1369;
																																																				}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg1908z00_1908;
																																																				obj_t
																																																					BgL_arg1911z00_1909;
																																																				BgL_arg1908z00_1908
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg1911z00_1909
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_8358;
																																																					obj_t
																																																						BgL_funz00_8357;
																																																					BgL_funz00_8357
																																																						=
																																																						BgL_arg1908z00_1908;
																																																					BgL_argsz00_8358
																																																						=
																																																						BgL_arg1911z00_1909;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_8358;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_8357;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg1915z00_1911;
																																																		obj_t
																																																			BgL_arg1916z00_1912;
																																																		BgL_arg1915z00_1911
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg1916z00_1912
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_8364;
																																																			obj_t
																																																				BgL_funz00_8363;
																																																			BgL_funz00_8363
																																																				=
																																																				BgL_arg1915z00_1911;
																																																			BgL_argsz00_8364
																																																				=
																																																				BgL_arg1916z00_1912;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_8364;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_8363;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg1917z00_1913;
																																																obj_t
																																																	BgL_arg1918z00_1914;
																																																BgL_arg1917z00_1913
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																BgL_arg1918z00_1914
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_8370;
																																																	obj_t
																																																		BgL_funz00_8369;
																																																	BgL_funz00_8369
																																																		=
																																																		BgL_arg1917z00_1913;
																																																	BgL_argsz00_8370
																																																		=
																																																		BgL_arg1918z00_1914;
																																																	BgL_argsz00_1371
																																																		=
																																																		BgL_argsz00_8370;
																																																	BgL_funz00_1370
																																																		=
																																																		BgL_funz00_8369;
																																																	goto
																																																		BgL_tagzd2279zd2_1372;
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg1919z00_1915;
																																														obj_t
																																															BgL_arg1920z00_1916;
																																														BgL_arg1919z00_1915
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														BgL_arg1920z00_1916
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_8376;
																																															obj_t
																																																BgL_funz00_8375;
																																															BgL_funz00_8375
																																																=
																																																BgL_arg1919z00_1915;
																																															BgL_argsz00_8376
																																																=
																																																BgL_arg1920z00_1916;
																																															BgL_argsz00_1371
																																																=
																																																BgL_argsz00_8376;
																																															BgL_funz00_1370
																																																=
																																																BgL_funz00_8375;
																																															goto
																																																BgL_tagzd2279zd2_1372;
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_arg1921z00_1917;
																																												obj_t
																																													BgL_arg1922z00_1918;
																																												BgL_arg1921z00_1917
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												BgL_arg1922z00_1918
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{
																																													obj_t
																																														BgL_argsz00_8382;
																																													obj_t
																																														BgL_funz00_8381;
																																													BgL_funz00_8381
																																														=
																																														BgL_arg1921z00_1917;
																																													BgL_argsz00_8382
																																														=
																																														BgL_arg1922z00_1918;
																																													BgL_argsz00_1371
																																														=
																																														BgL_argsz00_8382;
																																													BgL_funz00_1370
																																														=
																																														BgL_funz00_8381;
																																													goto
																																														BgL_tagzd2279zd2_1372;
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg1923z00_1919;
																																										obj_t
																																											BgL_arg1924z00_1920;
																																										BgL_arg1923z00_1919
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										BgL_arg1924z00_1920
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_8388;
																																											obj_t
																																												BgL_funz00_8387;
																																											BgL_funz00_8387
																																												=
																																												BgL_arg1923z00_1919;
																																											BgL_argsz00_8388
																																												=
																																												BgL_arg1924z00_1920;
																																											BgL_argsz00_1371
																																												=
																																												BgL_argsz00_8388;
																																											BgL_funz00_1370
																																												=
																																												BgL_funz00_8387;
																																											goto
																																												BgL_tagzd2279zd2_1372;
																																										}
																																									}
																																							}
																																						else
																																							{
																																								obj_t
																																									BgL_argsz00_8390;
																																								obj_t
																																									BgL_funz00_8389;
																																								BgL_funz00_8389
																																									=
																																									BgL_carzd24482zd2_1892;
																																								BgL_argsz00_8390
																																									=
																																									BgL_cdrzd24395zd2_1882;
																																								BgL_argsz00_1364
																																									=
																																									BgL_argsz00_8390;
																																								BgL_funz00_1363
																																									=
																																									BgL_funz00_8389;
																																								goto
																																									BgL_tagzd2277zd2_1365;
																																							}
																																					}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_carzd24641zd2_1924;
																																				BgL_carzd24641zd2_1924
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				if (PAIRP(BgL_carzd24641zd2_1924))
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_cdrzd24658zd2_1927;
																																						BgL_cdrzd24658zd2_1927
																																							=
																																							CDR
																																							(((obj_t) BgL_carzd24641zd2_1924));
																																						if (
																																							(CAR
																																								(((obj_t) BgL_carzd24641zd2_1924)) == BGl_symbol3833z00zz__evcompilez00))
																																							{	/* Eval/evcompile.scm 83 */
																																								if (PAIRP(BgL_cdrzd24658zd2_1927))
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_carzd24661zd2_1931;
																																										obj_t
																																											BgL_cdrzd24662zd2_1932;
																																										BgL_carzd24661zd2_1931
																																											=
																																											CAR
																																											(BgL_cdrzd24658zd2_1927);
																																										BgL_cdrzd24662zd2_1932
																																											=
																																											CDR
																																											(BgL_cdrzd24658zd2_1927);
																																										if (SYMBOLP(BgL_carzd24661zd2_1931))
																																											{	/* Eval/evcompile.scm 83 */
																																												if (PAIRP(BgL_cdrzd24662zd2_1932))
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_carzd24667zd2_1935;
																																														BgL_carzd24667zd2_1935
																																															=
																																															CAR
																																															(BgL_cdrzd24662zd2_1932);
																																														if (SYMBOLP(BgL_carzd24667zd2_1935))
																																															{	/* Eval/evcompile.scm 83 */
																																																if (NULLP(CDR(BgL_cdrzd24662zd2_1932)))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg1939z00_1939;
																																																		BgL_arg1939z00_1939
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_8419;
																																																			obj_t
																																																				BgL_modz00_8418;
																																																			obj_t
																																																				BgL_funz00_8417;
																																																			BgL_funz00_8417
																																																				=
																																																				BgL_carzd24661zd2_1931;
																																																			BgL_modz00_8418
																																																				=
																																																				BgL_carzd24667zd2_1935;
																																																			BgL_argsz00_8419
																																																				=
																																																				BgL_arg1939z00_1939;
																																																			BgL_argsz00_1368
																																																				=
																																																				BgL_argsz00_8419;
																																																			BgL_modz00_1367
																																																				=
																																																				BgL_modz00_8418;
																																																			BgL_funz00_1366
																																																				=
																																																				BgL_funz00_8417;
																																																			goto
																																																				BgL_tagzd2278zd2_1369;
																																																		}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg1940z00_1940;
																																																		obj_t
																																																			BgL_arg1941z00_1941;
																																																		BgL_arg1940z00_1940
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg1941z00_1941
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_8425;
																																																			obj_t
																																																				BgL_funz00_8424;
																																																			BgL_funz00_8424
																																																				=
																																																				BgL_arg1940z00_1940;
																																																			BgL_argsz00_8425
																																																				=
																																																				BgL_arg1941z00_1941;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_8425;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_8424;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg1943z00_1943;
																																																obj_t
																																																	BgL_arg1944z00_1944;
																																																BgL_arg1943z00_1943
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																BgL_arg1944z00_1944
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_8431;
																																																	obj_t
																																																		BgL_funz00_8430;
																																																	BgL_funz00_8430
																																																		=
																																																		BgL_arg1943z00_1943;
																																																	BgL_argsz00_8431
																																																		=
																																																		BgL_arg1944z00_1944;
																																																	BgL_argsz00_1371
																																																		=
																																																		BgL_argsz00_8431;
																																																	BgL_funz00_1370
																																																		=
																																																		BgL_funz00_8430;
																																																	goto
																																																		BgL_tagzd2279zd2_1372;
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg1945z00_1945;
																																														obj_t
																																															BgL_arg1946z00_1946;
																																														BgL_arg1945z00_1945
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														BgL_arg1946z00_1946
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_8437;
																																															obj_t
																																																BgL_funz00_8436;
																																															BgL_funz00_8436
																																																=
																																																BgL_arg1945z00_1945;
																																															BgL_argsz00_8437
																																																=
																																																BgL_arg1946z00_1946;
																																															BgL_argsz00_1371
																																																=
																																																BgL_argsz00_8437;
																																															BgL_funz00_1370
																																																=
																																																BgL_funz00_8436;
																																															goto
																																																BgL_tagzd2279zd2_1372;
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_arg1947z00_1947;
																																												obj_t
																																													BgL_arg1948z00_1948;
																																												BgL_arg1947z00_1947
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												BgL_arg1948z00_1948
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{
																																													obj_t
																																														BgL_argsz00_8443;
																																													obj_t
																																														BgL_funz00_8442;
																																													BgL_funz00_8442
																																														=
																																														BgL_arg1947z00_1947;
																																													BgL_argsz00_8443
																																														=
																																														BgL_arg1948z00_1948;
																																													BgL_argsz00_1371
																																														=
																																														BgL_argsz00_8443;
																																													BgL_funz00_1370
																																														=
																																														BgL_funz00_8442;
																																													goto
																																														BgL_tagzd2279zd2_1372;
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg1949z00_1949;
																																										obj_t
																																											BgL_arg1950z00_1950;
																																										BgL_arg1949z00_1949
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										BgL_arg1950z00_1950
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_8449;
																																											obj_t
																																												BgL_funz00_8448;
																																											BgL_funz00_8448
																																												=
																																												BgL_arg1949z00_1949;
																																											BgL_argsz00_8449
																																												=
																																												BgL_arg1950z00_1950;
																																											BgL_argsz00_1371
																																												=
																																												BgL_argsz00_8449;
																																											BgL_funz00_1370
																																												=
																																												BgL_funz00_8448;
																																											goto
																																												BgL_tagzd2279zd2_1372;
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_arg1953z00_1951;
																																								obj_t
																																									BgL_arg1954z00_1952;
																																								BgL_arg1953z00_1951
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								BgL_arg1954z00_1952
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								{
																																									obj_t
																																										BgL_argsz00_8455;
																																									obj_t
																																										BgL_funz00_8454;
																																									BgL_funz00_8454
																																										=
																																										BgL_arg1953z00_1951;
																																									BgL_argsz00_8455
																																										=
																																										BgL_arg1954z00_1952;
																																									BgL_argsz00_1371
																																										=
																																										BgL_argsz00_8455;
																																									BgL_funz00_1370
																																										=
																																										BgL_funz00_8454;
																																									goto
																																										BgL_tagzd2279zd2_1372;
																																								}
																																							}
																																					}
																																				else
																																					{
																																						obj_t
																																							BgL_argsz00_8457;
																																						obj_t
																																							BgL_funz00_8456;
																																						BgL_funz00_8456
																																							=
																																							BgL_carzd24641zd2_1924;
																																						BgL_argsz00_8457
																																							=
																																							BgL_cdrzd24395zd2_1882;
																																						BgL_argsz00_1364
																																							=
																																							BgL_argsz00_8457;
																																						BgL_funz00_1363
																																							=
																																							BgL_funz00_8456;
																																						goto
																																							BgL_tagzd2277zd2_1365;
																																					}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_carzd24800zd2_1955;
																																		BgL_carzd24800zd2_1955
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		if (PAIRP
																																			(BgL_carzd24800zd2_1955))
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_cdrzd24817zd2_1958;
																																				BgL_cdrzd24817zd2_1958
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_carzd24800zd2_1955));
																																				if ((CAR
																																						(((obj_t) BgL_carzd24800zd2_1955)) == BGl_symbol3833z00zz__evcompilez00))
																																					{	/* Eval/evcompile.scm 83 */
																																						if (PAIRP(BgL_cdrzd24817zd2_1958))
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_carzd24820zd2_1962;
																																								obj_t
																																									BgL_cdrzd24821zd2_1963;
																																								BgL_carzd24820zd2_1962
																																									=
																																									CAR
																																									(BgL_cdrzd24817zd2_1958);
																																								BgL_cdrzd24821zd2_1963
																																									=
																																									CDR
																																									(BgL_cdrzd24817zd2_1958);
																																								if (SYMBOLP(BgL_carzd24820zd2_1962))
																																									{	/* Eval/evcompile.scm 83 */
																																										if (PAIRP(BgL_cdrzd24821zd2_1963))
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_carzd24826zd2_1966;
																																												BgL_carzd24826zd2_1966
																																													=
																																													CAR
																																													(BgL_cdrzd24821zd2_1963);
																																												if (SYMBOLP(BgL_carzd24826zd2_1966))
																																													{	/* Eval/evcompile.scm 83 */
																																														if (NULLP(CDR(BgL_cdrzd24821zd2_1963)))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg1967z00_1970;
																																																BgL_arg1967z00_1970
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_8486;
																																																	obj_t
																																																		BgL_modz00_8485;
																																																	obj_t
																																																		BgL_funz00_8484;
																																																	BgL_funz00_8484
																																																		=
																																																		BgL_carzd24820zd2_1962;
																																																	BgL_modz00_8485
																																																		=
																																																		BgL_carzd24826zd2_1966;
																																																	BgL_argsz00_8486
																																																		=
																																																		BgL_arg1967z00_1970;
																																																	BgL_argsz00_1368
																																																		=
																																																		BgL_argsz00_8486;
																																																	BgL_modz00_1367
																																																		=
																																																		BgL_modz00_8485;
																																																	BgL_funz00_1366
																																																		=
																																																		BgL_funz00_8484;
																																																	goto
																																																		BgL_tagzd2278zd2_1369;
																																																}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg1968z00_1971;
																																																obj_t
																																																	BgL_arg1969z00_1972;
																																																BgL_arg1968z00_1971
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																BgL_arg1969z00_1972
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_8492;
																																																	obj_t
																																																		BgL_funz00_8491;
																																																	BgL_funz00_8491
																																																		=
																																																		BgL_arg1968z00_1971;
																																																	BgL_argsz00_8492
																																																		=
																																																		BgL_arg1969z00_1972;
																																																	BgL_argsz00_1371
																																																		=
																																																		BgL_argsz00_8492;
																																																	BgL_funz00_1370
																																																		=
																																																		BgL_funz00_8491;
																																																	goto
																																																		BgL_tagzd2279zd2_1372;
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg1971z00_1974;
																																														obj_t
																																															BgL_arg1972z00_1975;
																																														BgL_arg1971z00_1974
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														BgL_arg1972z00_1975
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_8498;
																																															obj_t
																																																BgL_funz00_8497;
																																															BgL_funz00_8497
																																																=
																																																BgL_arg1971z00_1974;
																																															BgL_argsz00_8498
																																																=
																																																BgL_arg1972z00_1975;
																																															BgL_argsz00_1371
																																																=
																																																BgL_argsz00_8498;
																																															BgL_funz00_1370
																																																=
																																																BgL_funz00_8497;
																																															goto
																																																BgL_tagzd2279zd2_1372;
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_arg1975z00_1976;
																																												obj_t
																																													BgL_arg1977z00_1977;
																																												BgL_arg1975z00_1976
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												BgL_arg1977z00_1977
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{
																																													obj_t
																																														BgL_argsz00_8504;
																																													obj_t
																																														BgL_funz00_8503;
																																													BgL_funz00_8503
																																														=
																																														BgL_arg1975z00_1976;
																																													BgL_argsz00_8504
																																														=
																																														BgL_arg1977z00_1977;
																																													BgL_argsz00_1371
																																														=
																																														BgL_argsz00_8504;
																																													BgL_funz00_1370
																																														=
																																														BgL_funz00_8503;
																																													goto
																																														BgL_tagzd2279zd2_1372;
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg1978z00_1978;
																																										obj_t
																																											BgL_arg1979z00_1979;
																																										BgL_arg1978z00_1978
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										BgL_arg1979z00_1979
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_8510;
																																											obj_t
																																												BgL_funz00_8509;
																																											BgL_funz00_8509
																																												=
																																												BgL_arg1978z00_1978;
																																											BgL_argsz00_8510
																																												=
																																												BgL_arg1979z00_1979;
																																											BgL_argsz00_1371
																																												=
																																												BgL_argsz00_8510;
																																											BgL_funz00_1370
																																												=
																																												BgL_funz00_8509;
																																											goto
																																												BgL_tagzd2279zd2_1372;
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_arg1980z00_1980;
																																								obj_t
																																									BgL_arg1981z00_1981;
																																								BgL_arg1980z00_1980
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								BgL_arg1981z00_1981
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								{
																																									obj_t
																																										BgL_argsz00_8516;
																																									obj_t
																																										BgL_funz00_8515;
																																									BgL_funz00_8515
																																										=
																																										BgL_arg1980z00_1980;
																																									BgL_argsz00_8516
																																										=
																																										BgL_arg1981z00_1981;
																																									BgL_argsz00_1371
																																										=
																																										BgL_argsz00_8516;
																																									BgL_funz00_1370
																																										=
																																										BgL_funz00_8515;
																																									goto
																																										BgL_tagzd2279zd2_1372;
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg1982z00_1982;
																																						obj_t
																																							BgL_arg1983z00_1983;
																																						BgL_arg1982z00_1982
																																							=
																																							CAR
																																							(((obj_t) BgL_expz00_5));
																																						BgL_arg1983z00_1983
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						{
																																							obj_t
																																								BgL_argsz00_8522;
																																							obj_t
																																								BgL_funz00_8521;
																																							BgL_funz00_8521
																																								=
																																								BgL_arg1982z00_1982;
																																							BgL_argsz00_8522
																																								=
																																								BgL_arg1983z00_1983;
																																							BgL_argsz00_1371
																																								=
																																								BgL_argsz00_8522;
																																							BgL_funz00_1370
																																								=
																																								BgL_funz00_8521;
																																							goto
																																								BgL_tagzd2279zd2_1372;
																																						}
																																					}
																																			}
																																		else
																																			{
																																				obj_t
																																					BgL_argsz00_8524;
																																				obj_t
																																					BgL_funz00_8523;
																																				BgL_funz00_8523
																																					=
																																					BgL_carzd24800zd2_1955;
																																				BgL_argsz00_8524
																																					=
																																					BgL_cdrzd24395zd2_1882;
																																				BgL_argsz00_1364
																																					=
																																					BgL_argsz00_8524;
																																				BgL_funz00_1363
																																					=
																																					BgL_funz00_8523;
																																				goto
																																					BgL_tagzd2277zd2_1365;
																																			}
																																	}
																															}
																														else
																															{	/* Eval/evcompile.scm 83 */
																																if (
																																	(CAR(
																																			((obj_t)
																																				BgL_expz00_5))
																																		==
																																		BGl_symbol3863z00zz__evcompilez00))
																																	{	/* Eval/evcompile.scm 83 */
																																		if (PAIRP
																																			(BgL_cdrzd24395zd2_1882))
																																			{	/* Eval/evcompile.scm 83 */
																																				BgL_bodyz00_1338
																																					=
																																					CAR
																																					(BgL_cdrzd24395zd2_1882);
																																				BgL_protectz00_1339
																																					=
																																					CDR
																																					(BgL_cdrzd24395zd2_1882);
																																				{	/* Eval/evcompile.scm 211 */
																																					obj_t
																																						BgL_locz00_2800;
																																					{	/* Eval/evcompile.scm 65 */
																																						obj_t
																																							BgL__ortest_1065z00_4371;
																																						BgL__ortest_1065z00_4371
																																							=
																																							BGl_getzd2sourcezd2locationz00zz__readerz00
																																							(BgL_expz00_5);
																																						if (CBOOL(BgL__ortest_1065z00_4371))
																																							{	/* Eval/evcompile.scm 65 */
																																								BgL_locz00_2800
																																									=
																																									BgL__ortest_1065z00_4371;
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 65 */
																																								BgL_locz00_2800
																																									=
																																									BgL_locz00_10;
																																							}
																																					}
																																					{	/* Eval/evcompile.scm 215 */
																																						obj_t
																																							BgL_arg2725z00_2801;
																																						obj_t
																																							BgL_arg2726z00_2802;
																																						{	/* Eval/evcompile.scm 215 */
																																							obj_t
																																								BgL_arg2727z00_2803;
																																							{	/* Eval/evcompile.scm 65 */
																																								obj_t
																																									BgL__ortest_1065z00_4372;
																																								BgL__ortest_1065z00_4372
																																									=
																																									BGl_getzd2sourcezd2locationz00zz__readerz00
																																									(BgL_bodyz00_1338);
																																								if (CBOOL(BgL__ortest_1065z00_4372))
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_arg2727z00_2803
																																											=
																																											BgL__ortest_1065z00_4372;
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_arg2727z00_2803
																																											=
																																											BgL_locz00_2800;
																																									}
																																							}
																																							BgL_arg2725z00_2801
																																								=
																																								BGl_evcompilez00zz__evcompilez00
																																								(BgL_bodyz00_1338,
																																								BgL_envz00_6,
																																								BgL_genvz00_7,
																																								BgL_wherez00_8,
																																								((bool_t) 0), BgL_arg2727z00_2803, BgL_lkpz00_11, ((bool_t) 0));
																																						}
																																						{	/* Eval/evcompile.scm 219 */
																																							obj_t
																																								BgL_arg2728z00_2804;
																																							{	/* Eval/evcompile.scm 65 */
																																								obj_t
																																									BgL__ortest_1065z00_4373;
																																								BgL__ortest_1065z00_4373
																																									=
																																									BGl_getzd2sourcezd2locationz00zz__readerz00
																																									(BgL_protectz00_1339);
																																								if (CBOOL(BgL__ortest_1065z00_4373))
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_arg2728z00_2804
																																											=
																																											BgL__ortest_1065z00_4373;
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_arg2728z00_2804
																																											=
																																											BgL_locz00_2800;
																																									}
																																							}
																																							BgL_arg2726z00_2802
																																								=
																																								BGl_evcompilezd2beginzd2zz__evcompilez00
																																								(BgL_protectz00_1339,
																																								BgL_envz00_6,
																																								BgL_genvz00_7,
																																								BgL_wherez00_8,
																																								((bool_t) 0), BgL_arg2728z00_2804, BgL_lkpz00_11, ((bool_t) 0));
																																						}
																																						{	/* Eval/evcompile.scm 480 */
																																							obj_t
																																								BgL_v1181z00_4374;
																																							BgL_v1181z00_4374
																																								=
																																								create_vector
																																								(4L);
																																							VECTOR_SET
																																								(BgL_v1181z00_4374,
																																								0L,
																																								BINT
																																								(64L));
																																							VECTOR_SET
																																								(BgL_v1181z00_4374,
																																								1L,
																																								BgL_locz00_2800);
																																							VECTOR_SET
																																								(BgL_v1181z00_4374,
																																								2L,
																																								BgL_arg2725z00_2801);
																																							VECTOR_SET
																																								(BgL_v1181z00_4374,
																																								3L,
																																								BgL_arg2726z00_2802);
																																							return
																																								BgL_v1181z00_4374;
																																						}
																																					}
																																				}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				obj_t
																																					BgL_carzd24967zd2_1992;
																																				BgL_carzd24967zd2_1992
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_expz00_5));
																																				if (PAIRP(BgL_carzd24967zd2_1992))
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_cdrzd24984zd2_1995;
																																						BgL_cdrzd24984zd2_1995
																																							=
																																							CDR
																																							(((obj_t) BgL_carzd24967zd2_1992));
																																						if (
																																							(CAR
																																								(((obj_t) BgL_carzd24967zd2_1992)) == BGl_symbol3833z00zz__evcompilez00))
																																							{	/* Eval/evcompile.scm 83 */
																																								if (PAIRP(BgL_cdrzd24984zd2_1995))
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_carzd24987zd2_1999;
																																										obj_t
																																											BgL_cdrzd24988zd2_2000;
																																										BgL_carzd24987zd2_1999
																																											=
																																											CAR
																																											(BgL_cdrzd24984zd2_1995);
																																										BgL_cdrzd24988zd2_2000
																																											=
																																											CDR
																																											(BgL_cdrzd24984zd2_1995);
																																										if (SYMBOLP(BgL_carzd24987zd2_1999))
																																											{	/* Eval/evcompile.scm 83 */
																																												if (PAIRP(BgL_cdrzd24988zd2_2000))
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_carzd24993zd2_2003;
																																														BgL_carzd24993zd2_2003
																																															=
																																															CAR
																																															(BgL_cdrzd24988zd2_2000);
																																														if (SYMBOLP(BgL_carzd24993zd2_2003))
																																															{	/* Eval/evcompile.scm 83 */
																																																if (NULLP(CDR(BgL_cdrzd24988zd2_2000)))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2002z00_2007;
																																																		BgL_arg2002z00_2007
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_8578;
																																																			obj_t
																																																				BgL_modz00_8577;
																																																			obj_t
																																																				BgL_funz00_8576;
																																																			BgL_funz00_8576
																																																				=
																																																				BgL_carzd24987zd2_1999;
																																																			BgL_modz00_8577
																																																				=
																																																				BgL_carzd24993zd2_2003;
																																																			BgL_argsz00_8578
																																																				=
																																																				BgL_arg2002z00_2007;
																																																			BgL_argsz00_1368
																																																				=
																																																				BgL_argsz00_8578;
																																																			BgL_modz00_1367
																																																				=
																																																				BgL_modz00_8577;
																																																			BgL_funz00_1366
																																																				=
																																																				BgL_funz00_8576;
																																																			goto
																																																				BgL_tagzd2278zd2_1369;
																																																		}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2003z00_2008;
																																																		obj_t
																																																			BgL_arg2004z00_2009;
																																																		BgL_arg2003z00_2008
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg2004z00_2009
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_8584;
																																																			obj_t
																																																				BgL_funz00_8583;
																																																			BgL_funz00_8583
																																																				=
																																																				BgL_arg2003z00_2008;
																																																			BgL_argsz00_8584
																																																				=
																																																				BgL_arg2004z00_2009;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_8584;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_8583;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg2007z00_2011;
																																																obj_t
																																																	BgL_arg2008z00_2012;
																																																BgL_arg2007z00_2011
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																BgL_arg2008z00_2012
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_8590;
																																																	obj_t
																																																		BgL_funz00_8589;
																																																	BgL_funz00_8589
																																																		=
																																																		BgL_arg2007z00_2011;
																																																	BgL_argsz00_8590
																																																		=
																																																		BgL_arg2008z00_2012;
																																																	BgL_argsz00_1371
																																																		=
																																																		BgL_argsz00_8590;
																																																	BgL_funz00_1370
																																																		=
																																																		BgL_funz00_8589;
																																																	goto
																																																		BgL_tagzd2279zd2_1372;
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg2009z00_2013;
																																														obj_t
																																															BgL_arg2011z00_2014;
																																														BgL_arg2009z00_2013
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														BgL_arg2011z00_2014
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_8596;
																																															obj_t
																																																BgL_funz00_8595;
																																															BgL_funz00_8595
																																																=
																																																BgL_arg2009z00_2013;
																																															BgL_argsz00_8596
																																																=
																																																BgL_arg2011z00_2014;
																																															BgL_argsz00_1371
																																																=
																																																BgL_argsz00_8596;
																																															BgL_funz00_1370
																																																=
																																																BgL_funz00_8595;
																																															goto
																																																BgL_tagzd2279zd2_1372;
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_arg2012z00_2015;
																																												obj_t
																																													BgL_arg2013z00_2016;
																																												BgL_arg2012z00_2015
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												BgL_arg2013z00_2016
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{
																																													obj_t
																																														BgL_argsz00_8602;
																																													obj_t
																																														BgL_funz00_8601;
																																													BgL_funz00_8601
																																														=
																																														BgL_arg2012z00_2015;
																																													BgL_argsz00_8602
																																														=
																																														BgL_arg2013z00_2016;
																																													BgL_argsz00_1371
																																														=
																																														BgL_argsz00_8602;
																																													BgL_funz00_1370
																																														=
																																														BgL_funz00_8601;
																																													goto
																																														BgL_tagzd2279zd2_1372;
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg2016z00_2017;
																																										obj_t
																																											BgL_arg2017z00_2018;
																																										BgL_arg2016z00_2017
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										BgL_arg2017z00_2018
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_8608;
																																											obj_t
																																												BgL_funz00_8607;
																																											BgL_funz00_8607
																																												=
																																												BgL_arg2016z00_2017;
																																											BgL_argsz00_8608
																																												=
																																												BgL_arg2017z00_2018;
																																											BgL_argsz00_1371
																																												=
																																												BgL_argsz00_8608;
																																											BgL_funz00_1370
																																												=
																																												BgL_funz00_8607;
																																											goto
																																												BgL_tagzd2279zd2_1372;
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_arg2018z00_2019;
																																								obj_t
																																									BgL_arg2019z00_2020;
																																								BgL_arg2018z00_2019
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								BgL_arg2019z00_2020
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								{
																																									obj_t
																																										BgL_argsz00_8614;
																																									obj_t
																																										BgL_funz00_8613;
																																									BgL_funz00_8613
																																										=
																																										BgL_arg2018z00_2019;
																																									BgL_argsz00_8614
																																										=
																																										BgL_arg2019z00_2020;
																																									BgL_argsz00_1371
																																										=
																																										BgL_argsz00_8614;
																																									BgL_funz00_1370
																																										=
																																										BgL_funz00_8613;
																																									goto
																																										BgL_tagzd2279zd2_1372;
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_arg2021z00_2022;
																																						BgL_arg2021z00_2022
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						{
																																							obj_t
																																								BgL_argsz00_8618;
																																							obj_t
																																								BgL_funz00_8617;
																																							BgL_funz00_8617
																																								=
																																								BgL_carzd24967zd2_1992;
																																							BgL_argsz00_8618
																																								=
																																								BgL_arg2021z00_2022;
																																							BgL_argsz00_1364
																																								=
																																								BgL_argsz00_8618;
																																							BgL_funz00_1363
																																								=
																																								BgL_funz00_8617;
																																							goto
																																								BgL_tagzd2277zd2_1365;
																																						}
																																					}
																																			}
																																	}
																																else
																																	{	/* Eval/evcompile.scm 83 */
																																		obj_t
																																			BgL_cdrzd25061zd2_2023;
																																		BgL_cdrzd25061zd2_2023
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_expz00_5));
																																		if ((CAR((
																																						(obj_t)
																																						BgL_expz00_5))
																																				==
																																				BGl_symbol3865z00zz__evcompilez00))
																																			{	/* Eval/evcompile.scm 83 */
																																				if (PAIRP(BgL_cdrzd25061zd2_2023))
																																					{	/* Eval/evcompile.scm 83 */
																																						BgL_handlerz00_1341
																																							=
																																							CAR
																																							(BgL_cdrzd25061zd2_2023);
																																						BgL_bodyz00_1342
																																							=
																																							CDR
																																							(BgL_cdrzd25061zd2_2023);
																																						{	/* Eval/evcompile.scm 223 */
																																							obj_t
																																								BgL_locz00_2805;
																																							{	/* Eval/evcompile.scm 65 */
																																								obj_t
																																									BgL__ortest_1065z00_4379;
																																								BgL__ortest_1065z00_4379
																																									=
																																									BGl_getzd2sourcezd2locationz00zz__readerz00
																																									(BgL_expz00_5);
																																								if (CBOOL(BgL__ortest_1065z00_4379))
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_locz00_2805
																																											=
																																											BgL__ortest_1065z00_4379;
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 65 */
																																										BgL_locz00_2805
																																											=
																																											BgL_locz00_10;
																																									}
																																							}
																																							{	/* Eval/evcompile.scm 227 */
																																								obj_t
																																									BgL_arg2729z00_2806;
																																								obj_t
																																									BgL_arg2730z00_2807;
																																								{	/* Eval/evcompile.scm 227 */
																																									obj_t
																																										BgL_arg2731z00_2808;
																																									{	/* Eval/evcompile.scm 65 */
																																										obj_t
																																											BgL__ortest_1065z00_4380;
																																										BgL__ortest_1065z00_4380
																																											=
																																											BGl_getzd2sourcezd2locationz00zz__readerz00
																																											(BgL_handlerz00_1341);
																																										if (CBOOL(BgL__ortest_1065z00_4380))
																																											{	/* Eval/evcompile.scm 65 */
																																												BgL_arg2731z00_2808
																																													=
																																													BgL__ortest_1065z00_4380;
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 65 */
																																												BgL_arg2731z00_2808
																																													=
																																													BgL_locz00_2805;
																																											}
																																									}
																																									BgL_arg2729z00_2806
																																										=
																																										BGl_evcompilez00zz__evcompilez00
																																										(BgL_handlerz00_1341,
																																										BgL_envz00_6,
																																										BgL_genvz00_7,
																																										BgL_wherez00_8,
																																										((bool_t) 0), BgL_arg2731z00_2808, BgL_lkpz00_11, ((bool_t) 0));
																																								}
																																								{	/* Eval/evcompile.scm 231 */
																																									obj_t
																																										BgL_arg2732z00_2809;
																																									{	/* Eval/evcompile.scm 65 */
																																										obj_t
																																											BgL__ortest_1065z00_4381;
																																										BgL__ortest_1065z00_4381
																																											=
																																											BGl_getzd2sourcezd2locationz00zz__readerz00
																																											(BgL_bodyz00_1342);
																																										if (CBOOL(BgL__ortest_1065z00_4381))
																																											{	/* Eval/evcompile.scm 65 */
																																												BgL_arg2732z00_2809
																																													=
																																													BgL__ortest_1065z00_4381;
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 65 */
																																												BgL_arg2732z00_2809
																																													=
																																													BgL_locz00_2805;
																																											}
																																									}
																																									BgL_arg2730z00_2807
																																										=
																																										BGl_evcompilezd2beginzd2zz__evcompilez00
																																										(BgL_bodyz00_1342,
																																										BgL_envz00_6,
																																										BgL_genvz00_7,
																																										BgL_wherez00_8,
																																										((bool_t) 0), BgL_arg2732z00_2809, BgL_lkpz00_11, ((bool_t) 0));
																																								}
																																								{	/* Eval/evcompile.scm 486 */
																																									obj_t
																																										BgL_v1182z00_4382;
																																									BgL_v1182z00_4382
																																										=
																																										create_vector
																																										(4L);
																																									VECTOR_SET
																																										(BgL_v1182z00_4382,
																																										0L,
																																										BINT
																																										(71L));
																																									VECTOR_SET
																																										(BgL_v1182z00_4382,
																																										1L,
																																										BgL_locz00_2805);
																																									VECTOR_SET
																																										(BgL_v1182z00_4382,
																																										2L,
																																										BgL_arg2729z00_2806);
																																									VECTOR_SET
																																										(BgL_v1182z00_4382,
																																										3L,
																																										BgL_arg2730z00_2807);
																																									return
																																										BgL_v1182z00_4382;
																																								}
																																							}
																																						}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_carzd25122zd2_2029;
																																						BgL_carzd25122zd2_2029
																																							=
																																							CAR
																																							(((obj_t) BgL_expz00_5));
																																						if (PAIRP(BgL_carzd25122zd2_2029))
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_cdrzd25139zd2_2032;
																																								BgL_cdrzd25139zd2_2032
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_carzd25122zd2_2029));
																																								if ((CAR(((obj_t) BgL_carzd25122zd2_2029)) == BGl_symbol3833z00zz__evcompilez00))
																																									{	/* Eval/evcompile.scm 83 */
																																										if (PAIRP(BgL_cdrzd25139zd2_2032))
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_carzd25142zd2_2036;
																																												obj_t
																																													BgL_cdrzd25143zd2_2037;
																																												BgL_carzd25142zd2_2036
																																													=
																																													CAR
																																													(BgL_cdrzd25139zd2_2032);
																																												BgL_cdrzd25143zd2_2037
																																													=
																																													CDR
																																													(BgL_cdrzd25139zd2_2032);
																																												if (SYMBOLP(BgL_carzd25142zd2_2036))
																																													{	/* Eval/evcompile.scm 83 */
																																														if (PAIRP(BgL_cdrzd25143zd2_2037))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_carzd25148zd2_2040;
																																																BgL_carzd25148zd2_2040
																																																	=
																																																	CAR
																																																	(BgL_cdrzd25143zd2_2037);
																																																if (SYMBOLP(BgL_carzd25148zd2_2040))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		if (NULLP(CDR(BgL_cdrzd25143zd2_2037)))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2037z00_2044;
																																																				BgL_arg2037z00_2044
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_8674;
																																																					obj_t
																																																						BgL_modz00_8673;
																																																					obj_t
																																																						BgL_funz00_8672;
																																																					BgL_funz00_8672
																																																						=
																																																						BgL_carzd25142zd2_2036;
																																																					BgL_modz00_8673
																																																						=
																																																						BgL_carzd25148zd2_2040;
																																																					BgL_argsz00_8674
																																																						=
																																																						BgL_arg2037z00_2044;
																																																					BgL_argsz00_1368
																																																						=
																																																						BgL_argsz00_8674;
																																																					BgL_modz00_1367
																																																						=
																																																						BgL_modz00_8673;
																																																					BgL_funz00_1366
																																																						=
																																																						BgL_funz00_8672;
																																																					goto
																																																						BgL_tagzd2278zd2_1369;
																																																				}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2038z00_2045;
																																																				obj_t
																																																					BgL_arg2039z00_2046;
																																																				BgL_arg2038z00_2045
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2039z00_2046
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_8680;
																																																					obj_t
																																																						BgL_funz00_8679;
																																																					BgL_funz00_8679
																																																						=
																																																						BgL_arg2038z00_2045;
																																																					BgL_argsz00_8680
																																																						=
																																																						BgL_arg2039z00_2046;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_8680;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_8679;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2042z00_2048;
																																																		obj_t
																																																			BgL_arg2043z00_2049;
																																																		BgL_arg2042z00_2048
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg2043z00_2049
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_8686;
																																																			obj_t
																																																				BgL_funz00_8685;
																																																			BgL_funz00_8685
																																																				=
																																																				BgL_arg2042z00_2048;
																																																			BgL_argsz00_8686
																																																				=
																																																				BgL_arg2043z00_2049;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_8686;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_8685;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg2044z00_2050;
																																																obj_t
																																																	BgL_arg2045z00_2051;
																																																BgL_arg2044z00_2050
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																BgL_arg2045z00_2051
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_8692;
																																																	obj_t
																																																		BgL_funz00_8691;
																																																	BgL_funz00_8691
																																																		=
																																																		BgL_arg2044z00_2050;
																																																	BgL_argsz00_8692
																																																		=
																																																		BgL_arg2045z00_2051;
																																																	BgL_argsz00_1371
																																																		=
																																																		BgL_argsz00_8692;
																																																	BgL_funz00_1370
																																																		=
																																																		BgL_funz00_8691;
																																																	goto
																																																		BgL_tagzd2279zd2_1372;
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg2046z00_2052;
																																														obj_t
																																															BgL_arg2047z00_2053;
																																														BgL_arg2046z00_2052
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														BgL_arg2047z00_2053
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_8698;
																																															obj_t
																																																BgL_funz00_8697;
																																															BgL_funz00_8697
																																																=
																																																BgL_arg2046z00_2052;
																																															BgL_argsz00_8698
																																																=
																																																BgL_arg2047z00_2053;
																																															BgL_argsz00_1371
																																																=
																																																BgL_argsz00_8698;
																																															BgL_funz00_1370
																																																=
																																																BgL_funz00_8697;
																																															goto
																																																BgL_tagzd2279zd2_1372;
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_arg2048z00_2054;
																																												obj_t
																																													BgL_arg2049z00_2055;
																																												BgL_arg2048z00_2054
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												BgL_arg2049z00_2055
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{
																																													obj_t
																																														BgL_argsz00_8704;
																																													obj_t
																																														BgL_funz00_8703;
																																													BgL_funz00_8703
																																														=
																																														BgL_arg2048z00_2054;
																																													BgL_argsz00_8704
																																														=
																																														BgL_arg2049z00_2055;
																																													BgL_argsz00_1371
																																														=
																																														BgL_argsz00_8704;
																																													BgL_funz00_1370
																																														=
																																														BgL_funz00_8703;
																																													goto
																																														BgL_tagzd2279zd2_1372;
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg2050z00_2056;
																																										obj_t
																																											BgL_arg2051z00_2057;
																																										BgL_arg2050z00_2056
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										BgL_arg2051z00_2057
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_8710;
																																											obj_t
																																												BgL_funz00_8709;
																																											BgL_funz00_8709
																																												=
																																												BgL_arg2050z00_2056;
																																											BgL_argsz00_8710
																																												=
																																												BgL_arg2051z00_2057;
																																											BgL_argsz00_1371
																																												=
																																												BgL_argsz00_8710;
																																											BgL_funz00_1370
																																												=
																																												BgL_funz00_8709;
																																											goto
																																												BgL_tagzd2279zd2_1372;
																																										}
																																									}
																																							}
																																						else
																																							{
																																								obj_t
																																									BgL_argsz00_8712;
																																								obj_t
																																									BgL_funz00_8711;
																																								BgL_funz00_8711
																																									=
																																									BgL_carzd25122zd2_2029;
																																								BgL_argsz00_8712
																																									=
																																									BgL_cdrzd25061zd2_2023;
																																								BgL_argsz00_1364
																																									=
																																									BgL_argsz00_8712;
																																								BgL_funz00_1363
																																									=
																																									BgL_funz00_8711;
																																								goto
																																									BgL_tagzd2277zd2_1365;
																																							}
																																					}
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 83 */
																																				if (
																																					(CAR(
																																							((obj_t) BgL_expz00_5)) == BGl_symbol3867z00zz__evcompilez00))
																																					{	/* Eval/evcompile.scm 83 */
																																						if (PAIRP(BgL_cdrzd25061zd2_2023))
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_cdrzd25221zd2_2064;
																																								BgL_cdrzd25221zd2_2064
																																									=
																																									CDR
																																									(BgL_cdrzd25061zd2_2023);
																																								if (PAIRP(BgL_cdrzd25221zd2_2064))
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_cdrzd25226zd2_2066;
																																										BgL_cdrzd25226zd2_2066
																																											=
																																											CDR
																																											(BgL_cdrzd25221zd2_2064);
																																										if ((CAR(BgL_cdrzd25221zd2_2064) == BGl_keyword3869z00zz__evcompilez00))
																																											{	/* Eval/evcompile.scm 83 */
																																												if (PAIRP(BgL_cdrzd25226zd2_2066))
																																													{	/* Eval/evcompile.scm 83 */
																																														BgL_mutexz00_1344
																																															=
																																															CAR
																																															(BgL_cdrzd25061zd2_2023);
																																														BgL_prelockz00_1345
																																															=
																																															CAR
																																															(BgL_cdrzd25226zd2_2066);
																																														BgL_bodyz00_1346
																																															=
																																															CDR
																																															(BgL_cdrzd25226zd2_2066);
																																														{	/* Eval/evcompile.scm 235 */
																																															obj_t
																																																BgL_locz00_2810;
																																															{	/* Eval/evcompile.scm 65 */
																																																obj_t
																																																	BgL__ortest_1065z00_4387;
																																																BgL__ortest_1065z00_4387
																																																	=
																																																	BGl_getzd2sourcezd2locationz00zz__readerz00
																																																	(BgL_expz00_5);
																																																if (CBOOL(BgL__ortest_1065z00_4387))
																																																	{	/* Eval/evcompile.scm 65 */
																																																		BgL_locz00_2810
																																																			=
																																																			BgL__ortest_1065z00_4387;
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 65 */
																																																		BgL_locz00_2810
																																																			=
																																																			BgL_locz00_10;
																																																	}
																																															}
																																															{	/* Eval/evcompile.scm 239 */
																																																obj_t
																																																	BgL_arg2733z00_2811;
																																																obj_t
																																																	BgL_arg2734z00_2812;
																																																obj_t
																																																	BgL_arg2735z00_2813;
																																																{	/* Eval/evcompile.scm 239 */
																																																	obj_t
																																																		BgL_arg2736z00_2814;
																																																	{	/* Eval/evcompile.scm 65 */
																																																		obj_t
																																																			BgL__ortest_1065z00_4388;
																																																		BgL__ortest_1065z00_4388
																																																			=
																																																			BGl_getzd2sourcezd2locationz00zz__readerz00
																																																			(BgL_mutexz00_1344);
																																																		if (CBOOL(BgL__ortest_1065z00_4388))
																																																			{	/* Eval/evcompile.scm 65 */
																																																				BgL_arg2736z00_2814
																																																					=
																																																					BgL__ortest_1065z00_4388;
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 65 */
																																																				BgL_arg2736z00_2814
																																																					=
																																																					BgL_locz00_2810;
																																																			}
																																																	}
																																																	BgL_arg2733z00_2811
																																																		=
																																																		BGl_evcompilez00zz__evcompilez00
																																																		(BgL_mutexz00_1344,
																																																		BgL_envz00_6,
																																																		BgL_genvz00_7,
																																																		BgL_wherez00_8,
																																																		((bool_t) 0), BgL_arg2736z00_2814, BgL_lkpz00_11, ((bool_t) 0));
																																																}
																																																{	/* Eval/evcompile.scm 243 */
																																																	obj_t
																																																		BgL_arg2737z00_2815;
																																																	{	/* Eval/evcompile.scm 65 */
																																																		obj_t
																																																			BgL__ortest_1065z00_4389;
																																																		BgL__ortest_1065z00_4389
																																																			=
																																																			BGl_getzd2sourcezd2locationz00zz__readerz00
																																																			(BgL_mutexz00_1344);
																																																		if (CBOOL(BgL__ortest_1065z00_4389))
																																																			{	/* Eval/evcompile.scm 65 */
																																																				BgL_arg2737z00_2815
																																																					=
																																																					BgL__ortest_1065z00_4389;
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 65 */
																																																				BgL_arg2737z00_2815
																																																					=
																																																					BgL_locz00_2810;
																																																			}
																																																	}
																																																	BgL_arg2734z00_2812
																																																		=
																																																		BGl_evcompilez00zz__evcompilez00
																																																		(BgL_prelockz00_1345,
																																																		BgL_envz00_6,
																																																		BgL_genvz00_7,
																																																		BgL_wherez00_8,
																																																		((bool_t) 0), BgL_arg2737z00_2815, BgL_lkpz00_11, ((bool_t) 0));
																																																}
																																																{	/* Eval/evcompile.scm 247 */
																																																	obj_t
																																																		BgL_arg2738z00_2816;
																																																	{	/* Eval/evcompile.scm 65 */
																																																		obj_t
																																																			BgL__ortest_1065z00_4390;
																																																		BgL__ortest_1065z00_4390
																																																			=
																																																			BGl_getzd2sourcezd2locationz00zz__readerz00
																																																			(BgL_bodyz00_1346);
																																																		if (CBOOL(BgL__ortest_1065z00_4390))
																																																			{	/* Eval/evcompile.scm 65 */
																																																				BgL_arg2738z00_2816
																																																					=
																																																					BgL__ortest_1065z00_4390;
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 65 */
																																																				BgL_arg2738z00_2816
																																																					=
																																																					BgL_locz00_2810;
																																																			}
																																																	}
																																																	BgL_arg2735z00_2813
																																																		=
																																																		BGl_evcompilezd2beginzd2zz__evcompilez00
																																																		(BgL_bodyz00_1346,
																																																		BgL_envz00_6,
																																																		BgL_genvz00_7,
																																																		BgL_wherez00_8,
																																																		((bool_t) 0), BgL_arg2738z00_2816, BgL_lkpz00_11, ((bool_t) 0));
																																																}
																																																{	/* Eval/evcompile.scm 498 */
																																																	obj_t
																																																		BgL_v1184z00_4391;
																																																	BgL_v1184z00_4391
																																																		=
																																																		create_vector
																																																		(5L);
																																																	VECTOR_SET
																																																		(BgL_v1184z00_4391,
																																																		0L,
																																																		BINT
																																																		(176L));
																																																	VECTOR_SET
																																																		(BgL_v1184z00_4391,
																																																		1L,
																																																		BgL_locz00_2810);
																																																	VECTOR_SET
																																																		(BgL_v1184z00_4391,
																																																		2L,
																																																		BgL_arg2733z00_2811);
																																																	VECTOR_SET
																																																		(BgL_v1184z00_4391,
																																																		3L,
																																																		BgL_arg2734z00_2812);
																																																	VECTOR_SET
																																																		(BgL_v1184z00_4391,
																																																		4L,
																																																		BgL_arg2735z00_2813);
																																																	return
																																																		BgL_v1184z00_4391;
																																																}
																																															}
																																														}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_cdrzd25244zd2_2073;
																																														BgL_cdrzd25244zd2_2073
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{	/* Eval/evcompile.scm 83 */
																																															obj_t
																																																BgL_arg2064z00_2074;
																																															obj_t
																																																BgL_arg2065z00_2075;
																																															BgL_arg2064z00_2074
																																																=
																																																CAR
																																																(
																																																((obj_t) BgL_cdrzd25244zd2_2073));
																																															BgL_arg2065z00_2075
																																																=
																																																CDR
																																																(
																																																((obj_t) BgL_cdrzd25244zd2_2073));
																																															BgL_mutexz00_1348
																																																=
																																																BgL_arg2064z00_2074;
																																															BgL_bodyz00_1349
																																																=
																																																BgL_arg2065z00_2075;
																																														BgL_tagzd2272zd2_1350:
																																															{	/* Eval/evcompile.scm 251 */
																																																obj_t
																																																	BgL_locz00_2817;
																																																{	/* Eval/evcompile.scm 65 */
																																																	obj_t
																																																		BgL__ortest_1065z00_4397;
																																																	BgL__ortest_1065z00_4397
																																																		=
																																																		BGl_getzd2sourcezd2locationz00zz__readerz00
																																																		(BgL_expz00_5);
																																																	if (CBOOL(BgL__ortest_1065z00_4397))
																																																		{	/* Eval/evcompile.scm 65 */
																																																			BgL_locz00_2817
																																																				=
																																																				BgL__ortest_1065z00_4397;
																																																		}
																																																	else
																																																		{	/* Eval/evcompile.scm 65 */
																																																			BgL_locz00_2817
																																																				=
																																																				BgL_locz00_10;
																																																		}
																																																}
																																																{	/* Eval/evcompile.scm 255 */
																																																	obj_t
																																																		BgL_arg2739z00_2818;
																																																	obj_t
																																																		BgL_arg2740z00_2819;
																																																	{	/* Eval/evcompile.scm 255 */
																																																		obj_t
																																																			BgL_arg2741z00_2820;
																																																		{	/* Eval/evcompile.scm 65 */
																																																			obj_t
																																																				BgL__ortest_1065z00_4398;
																																																			BgL__ortest_1065z00_4398
																																																				=
																																																				BGl_getzd2sourcezd2locationz00zz__readerz00
																																																				(BgL_mutexz00_1348);
																																																			if (CBOOL(BgL__ortest_1065z00_4398))
																																																				{	/* Eval/evcompile.scm 65 */
																																																					BgL_arg2741z00_2820
																																																						=
																																																						BgL__ortest_1065z00_4398;
																																																				}
																																																			else
																																																				{	/* Eval/evcompile.scm 65 */
																																																					BgL_arg2741z00_2820
																																																						=
																																																						BgL_locz00_2817;
																																																				}
																																																		}
																																																		BgL_arg2739z00_2818
																																																			=
																																																			BGl_evcompilez00zz__evcompilez00
																																																			(BgL_mutexz00_1348,
																																																			BgL_envz00_6,
																																																			BgL_genvz00_7,
																																																			BgL_wherez00_8,
																																																			((bool_t) 0), BgL_arg2741z00_2820, BgL_lkpz00_11, ((bool_t) 0));
																																																	}
																																																	{	/* Eval/evcompile.scm 259 */
																																																		obj_t
																																																			BgL_arg2744z00_2821;
																																																		{	/* Eval/evcompile.scm 65 */
																																																			obj_t
																																																				BgL__ortest_1065z00_4399;
																																																			BgL__ortest_1065z00_4399
																																																				=
																																																				BGl_getzd2sourcezd2locationz00zz__readerz00
																																																				(BgL_bodyz00_1349);
																																																			if (CBOOL(BgL__ortest_1065z00_4399))
																																																				{	/* Eval/evcompile.scm 65 */
																																																					BgL_arg2744z00_2821
																																																						=
																																																						BgL__ortest_1065z00_4399;
																																																				}
																																																			else
																																																				{	/* Eval/evcompile.scm 65 */
																																																					BgL_arg2744z00_2821
																																																						=
																																																						BgL_locz00_2817;
																																																				}
																																																		}
																																																		BgL_arg2740z00_2819
																																																			=
																																																			BGl_evcompilezd2beginzd2zz__evcompilez00
																																																			(BgL_bodyz00_1349,
																																																			BgL_envz00_6,
																																																			BgL_genvz00_7,
																																																			BgL_wherez00_8,
																																																			((bool_t) 0), BgL_arg2744z00_2821, BgL_lkpz00_11, ((bool_t) 0));
																																																	}
																																																	{	/* Eval/evcompile.scm 492 */
																																																		obj_t
																																																			BgL_v1183z00_4400;
																																																		BgL_v1183z00_4400
																																																			=
																																																			create_vector
																																																			(4L);
																																																		VECTOR_SET
																																																			(BgL_v1183z00_4400,
																																																			0L,
																																																			BINT
																																																			(175L));
																																																		VECTOR_SET
																																																			(BgL_v1183z00_4400,
																																																			1L,
																																																			BgL_locz00_2817);
																																																		VECTOR_SET
																																																			(BgL_v1183z00_4400,
																																																			2L,
																																																			BgL_arg2739z00_2818);
																																																		VECTOR_SET
																																																			(BgL_v1183z00_4400,
																																																			3L,
																																																			BgL_arg2740z00_2819);
																																																		return
																																																			BgL_v1183z00_4400;
																																																	}
																																																}
																																															}
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_cdrzd25264zd2_2076;
																																												BgL_cdrzd25264zd2_2076
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{	/* Eval/evcompile.scm 83 */
																																													obj_t
																																														BgL_arg2067z00_2077;
																																													obj_t
																																														BgL_arg2068z00_2078;
																																													BgL_arg2067z00_2077
																																														=
																																														CAR
																																														(
																																														((obj_t) BgL_cdrzd25264zd2_2076));
																																													BgL_arg2068z00_2078
																																														=
																																														CDR
																																														(
																																														((obj_t) BgL_cdrzd25264zd2_2076));
																																													{
																																														obj_t
																																															BgL_bodyz00_8783;
																																														obj_t
																																															BgL_mutexz00_8782;
																																														BgL_mutexz00_8782
																																															=
																																															BgL_arg2067z00_2077;
																																														BgL_bodyz00_8783
																																															=
																																															BgL_arg2068z00_2078;
																																														BgL_bodyz00_1349
																																															=
																																															BgL_bodyz00_8783;
																																														BgL_mutexz00_1348
																																															=
																																															BgL_mutexz00_8782;
																																														goto
																																															BgL_tagzd2272zd2_1350;
																																													}
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_cdrzd25284zd2_2080;
																																										BgL_cdrzd25284zd2_2080
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{	/* Eval/evcompile.scm 83 */
																																											obj_t
																																												BgL_arg2070z00_2081;
																																											obj_t
																																												BgL_arg2071z00_2082;
																																											BgL_arg2070z00_2081
																																												=
																																												CAR
																																												(
																																												((obj_t) BgL_cdrzd25284zd2_2080));
																																											BgL_arg2071z00_2082
																																												=
																																												CDR
																																												(
																																												((obj_t) BgL_cdrzd25284zd2_2080));
																																											{
																																												obj_t
																																													BgL_bodyz00_8791;
																																												obj_t
																																													BgL_mutexz00_8790;
																																												BgL_mutexz00_8790
																																													=
																																													BgL_arg2070z00_2081;
																																												BgL_bodyz00_8791
																																													=
																																													BgL_arg2071z00_2082;
																																												BgL_bodyz00_1349
																																													=
																																													BgL_bodyz00_8791;
																																												BgL_mutexz00_1348
																																													=
																																													BgL_mutexz00_8790;
																																												goto
																																													BgL_tagzd2272zd2_1350;
																																											}
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 83 */
																																								obj_t
																																									BgL_carzd25336zd2_2083;
																																								BgL_carzd25336zd2_2083
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_expz00_5));
																																								if (PAIRP(BgL_carzd25336zd2_2083))
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_cdrzd25353zd2_2086;
																																										BgL_cdrzd25353zd2_2086
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_carzd25336zd2_2083));
																																										if ((CAR(((obj_t) BgL_carzd25336zd2_2083)) == BGl_symbol3833z00zz__evcompilez00))
																																											{	/* Eval/evcompile.scm 83 */
																																												if (PAIRP(BgL_cdrzd25353zd2_2086))
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_carzd25356zd2_2090;
																																														obj_t
																																															BgL_cdrzd25357zd2_2091;
																																														BgL_carzd25356zd2_2090
																																															=
																																															CAR
																																															(BgL_cdrzd25353zd2_2086);
																																														BgL_cdrzd25357zd2_2091
																																															=
																																															CDR
																																															(BgL_cdrzd25353zd2_2086);
																																														if (SYMBOLP(BgL_carzd25356zd2_2090))
																																															{	/* Eval/evcompile.scm 83 */
																																																if (PAIRP(BgL_cdrzd25357zd2_2091))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_carzd25362zd2_2094;
																																																		BgL_carzd25362zd2_2094
																																																			=
																																																			CAR
																																																			(BgL_cdrzd25357zd2_2091);
																																																		if (SYMBOLP(BgL_carzd25362zd2_2094))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				if (NULLP(CDR(BgL_cdrzd25357zd2_2091)))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2081z00_2098;
																																																						BgL_arg2081z00_2098
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_8820;
																																																							obj_t
																																																								BgL_modz00_8819;
																																																							obj_t
																																																								BgL_funz00_8818;
																																																							BgL_funz00_8818
																																																								=
																																																								BgL_carzd25356zd2_2090;
																																																							BgL_modz00_8819
																																																								=
																																																								BgL_carzd25362zd2_2094;
																																																							BgL_argsz00_8820
																																																								=
																																																								BgL_arg2081z00_2098;
																																																							BgL_argsz00_1368
																																																								=
																																																								BgL_argsz00_8820;
																																																							BgL_modz00_1367
																																																								=
																																																								BgL_modz00_8819;
																																																							BgL_funz00_1366
																																																								=
																																																								BgL_funz00_8818;
																																																							goto
																																																								BgL_tagzd2278zd2_1369;
																																																						}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2082z00_2099;
																																																						obj_t
																																																							BgL_arg2083z00_2100;
																																																						BgL_arg2082z00_2099
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2083z00_2100
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_8826;
																																																							obj_t
																																																								BgL_funz00_8825;
																																																							BgL_funz00_8825
																																																								=
																																																								BgL_arg2082z00_2099;
																																																							BgL_argsz00_8826
																																																								=
																																																								BgL_arg2083z00_2100;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_8826;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_8825;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2085z00_2102;
																																																				obj_t
																																																					BgL_arg2086z00_2103;
																																																				BgL_arg2085z00_2102
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2086z00_2103
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_8832;
																																																					obj_t
																																																						BgL_funz00_8831;
																																																					BgL_funz00_8831
																																																						=
																																																						BgL_arg2085z00_2102;
																																																					BgL_argsz00_8832
																																																						=
																																																						BgL_arg2086z00_2103;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_8832;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_8831;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2087z00_2104;
																																																		obj_t
																																																			BgL_arg2088z00_2105;
																																																		BgL_arg2087z00_2104
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg2088z00_2105
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_8838;
																																																			obj_t
																																																				BgL_funz00_8837;
																																																			BgL_funz00_8837
																																																				=
																																																				BgL_arg2087z00_2104;
																																																			BgL_argsz00_8838
																																																				=
																																																				BgL_arg2088z00_2105;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_8838;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_8837;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg2089z00_2106;
																																																obj_t
																																																	BgL_arg2090z00_2107;
																																																BgL_arg2089z00_2106
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																BgL_arg2090z00_2107
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_8844;
																																																	obj_t
																																																		BgL_funz00_8843;
																																																	BgL_funz00_8843
																																																		=
																																																		BgL_arg2089z00_2106;
																																																	BgL_argsz00_8844
																																																		=
																																																		BgL_arg2090z00_2107;
																																																	BgL_argsz00_1371
																																																		=
																																																		BgL_argsz00_8844;
																																																	BgL_funz00_1370
																																																		=
																																																		BgL_funz00_8843;
																																																	goto
																																																		BgL_tagzd2279zd2_1372;
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg2091z00_2108;
																																														obj_t
																																															BgL_arg2092z00_2109;
																																														BgL_arg2091z00_2108
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														BgL_arg2092z00_2109
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_8850;
																																															obj_t
																																																BgL_funz00_8849;
																																															BgL_funz00_8849
																																																=
																																																BgL_arg2091z00_2108;
																																															BgL_argsz00_8850
																																																=
																																																BgL_arg2092z00_2109;
																																															BgL_argsz00_1371
																																																=
																																																BgL_argsz00_8850;
																																															BgL_funz00_1370
																																																=
																																																BgL_funz00_8849;
																																															goto
																																																BgL_tagzd2279zd2_1372;
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_arg2093z00_2110;
																																												obj_t
																																													BgL_arg2094z00_2111;
																																												BgL_arg2093z00_2110
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												BgL_arg2094z00_2111
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												{
																																													obj_t
																																														BgL_argsz00_8856;
																																													obj_t
																																														BgL_funz00_8855;
																																													BgL_funz00_8855
																																														=
																																														BgL_arg2093z00_2110;
																																													BgL_argsz00_8856
																																														=
																																														BgL_arg2094z00_2111;
																																													BgL_argsz00_1371
																																														=
																																														BgL_argsz00_8856;
																																													BgL_funz00_1370
																																														=
																																														BgL_funz00_8855;
																																													goto
																																														BgL_tagzd2279zd2_1372;
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_arg2096z00_2113;
																																										BgL_arg2096z00_2113
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										{
																																											obj_t
																																												BgL_argsz00_8860;
																																											obj_t
																																												BgL_funz00_8859;
																																											BgL_funz00_8859
																																												=
																																												BgL_carzd25336zd2_2083;
																																											BgL_argsz00_8860
																																												=
																																												BgL_arg2096z00_2113;
																																											BgL_argsz00_1364
																																												=
																																												BgL_argsz00_8860;
																																											BgL_funz00_1363
																																												=
																																												BgL_funz00_8859;
																																											goto
																																												BgL_tagzd2277zd2_1365;
																																										}
																																									}
																																							}
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 83 */
																																						obj_t
																																							BgL_cdrzd25436zd2_2114;
																																						BgL_cdrzd25436zd2_2114
																																							=
																																							CDR
																																							(((obj_t) BgL_expz00_5));
																																						if (
																																							(CAR
																																								(((obj_t) BgL_expz00_5)) == BGl_symbol3837z00zz__evcompilez00))
																																							{	/* Eval/evcompile.scm 83 */
																																								if (PAIRP(BgL_cdrzd25436zd2_2114))
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_cdrzd25440zd2_2118;
																																										BgL_cdrzd25440zd2_2118
																																											=
																																											CDR
																																											(BgL_cdrzd25436zd2_2114);
																																										if (PAIRP(BgL_cdrzd25440zd2_2118))
																																											{	/* Eval/evcompile.scm 83 */
																																												if (NULLP(CDR(BgL_cdrzd25440zd2_2118)))
																																													{	/* Eval/evcompile.scm 83 */
																																														BgL_formalsz00_1351
																																															=
																																															CAR
																																															(BgL_cdrzd25436zd2_2114);
																																														BgL_bodyz00_1352
																																															=
																																															CAR
																																															(BgL_cdrzd25440zd2_2118);
																																														{	/* Eval/evcompile.scm 263 */
																																															obj_t
																																																BgL_locz00_2822;
																																															{	/* Eval/evcompile.scm 65 */
																																																obj_t
																																																	BgL__ortest_1065z00_4405;
																																																BgL__ortest_1065z00_4405
																																																	=
																																																	BGl_getzd2sourcezd2locationz00zz__readerz00
																																																	(BgL_expz00_5);
																																																if (CBOOL(BgL__ortest_1065z00_4405))
																																																	{	/* Eval/evcompile.scm 65 */
																																																		BgL_locz00_2822
																																																			=
																																																			BgL__ortest_1065z00_4405;
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 65 */
																																																		BgL_locz00_2822
																																																			=
																																																			BgL_locz00_10;
																																																	}
																																															}
																																															{	/* Eval/evcompile.scm 263 */
																																																obj_t
																																																	BgL_scmzd2formalszd2_2823;
																																																{	/* Eval/evcompile.scm 267 */
																																																	obj_t
																																																		BgL_zc3z04anonymousza32757ze3z87_6661;
																																																	BgL_zc3z04anonymousza32757ze3z87_6661
																																																		=
																																																		MAKE_FX_PROCEDURE
																																																		(BGl_z62zc3z04anonymousza32757ze3ze5zz__evcompilez00,
																																																		(int)
																																																		(3L),
																																																		(int)
																																																		(1L));
																																																	PROCEDURE_SET
																																																		(BgL_zc3z04anonymousza32757ze3z87_6661,
																																																		(int)
																																																		(0L),
																																																		BgL_locz00_2822);
																																																	BgL_scmzd2formalszd2_2823
																																																		=
																																																		BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00
																																																		(BgL_formalsz00_1351,
																																																		BgL_zc3z04anonymousza32757ze3z87_6661,
																																																		((bool_t) 1));
																																																}
																																																{	/* Eval/evcompile.scm 264 */

																																																	{	/* Eval/evcompile.scm 275 */
																																																		obj_t
																																																			BgL_arg2749z00_2824;
																																																		{	/* Eval/evcompile.scm 275 */
																																																			obj_t
																																																				BgL_arg2750z00_2825;
																																																			obj_t
																																																				BgL_arg2751z00_2826;
																																																			bool_t
																																																				BgL_arg2752z00_2827;
																																																			obj_t
																																																				BgL_arg2753z00_2828;
																																																			{	/* Eval/evcompile.scm 275 */
																																																				obj_t
																																																					BgL_zc3z04anonymousza32755ze3z87_6660;
																																																				BgL_zc3z04anonymousza32755ze3z87_6660
																																																					=
																																																					MAKE_FX_PROCEDURE
																																																					(BGl_z62zc3z04anonymousza32755ze3ze5zz__evcompilez00,
																																																					(int)
																																																					(3L),
																																																					(int)
																																																					(1L));
																																																				PROCEDURE_SET
																																																					(BgL_zc3z04anonymousza32755ze3z87_6660,
																																																					(int)
																																																					(0L),
																																																					BgL_locz00_2822);
																																																				BgL_arg2750z00_2825
																																																					=
																																																					BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00
																																																					(BgL_expz00_5,
																																																					BgL_formalsz00_1351,
																																																					BgL_bodyz00_1352,
																																																					BgL_zc3z04anonymousza32755ze3z87_6660);
																																																			}
																																																			BgL_arg2751z00_2826
																																																				=
																																																				BGl_loopze70ze7zz__evcompilez00
																																																				(BgL_envz00_6,
																																																				BgL_scmzd2formalszd2_2823);
																																																			{	/* Eval/evcompile.scm 71 */
																																																				int
																																																					BgL_arg1396z00_4406;
																																																				BgL_arg1396z00_4406
																																																					=
																																																					bgl_debug
																																																					();
																																																				BgL_arg2752z00_2827
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_arg1396z00_4406)
																																																					<
																																																					3L);
																																																			}
																																																			{	/* Eval/evcompile.scm 65 */
																																																				obj_t
																																																					BgL__ortest_1065z00_4408;
																																																				BgL__ortest_1065z00_4408
																																																					=
																																																					BGl_getzd2sourcezd2locationz00zz__readerz00
																																																					(BgL_bodyz00_1352);
																																																				if (CBOOL(BgL__ortest_1065z00_4408))
																																																					{	/* Eval/evcompile.scm 65 */
																																																						BgL_arg2753z00_2828
																																																							=
																																																							BgL__ortest_1065z00_4408;
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 65 */
																																																						BgL_arg2753z00_2828
																																																							=
																																																							BgL_locz00_2822;
																																																					}
																																																			}
																																																			BgL_arg2749z00_2824
																																																				=
																																																				BGl_evcompilez00zz__evcompilez00
																																																				(BgL_arg2750z00_2825,
																																																				BgL_arg2751z00_2826,
																																																				BgL_genvz00_7,
																																																				BgL_wherez00_8,
																																																				BgL_arg2752z00_2827,
																																																				BgL_arg2753z00_2828,
																																																				BgL_lkpz00_11,
																																																				((bool_t) 0));
																																																		}
																																																		return
																																																			BGl_evcompilezd2lambdazd2zz__evcompilez00
																																																			(BgL_scmzd2formalszd2_2823,
																																																			BgL_arg2749z00_2824,
																																																			BgL_wherez00_8,
																																																			BgL_locz00_2822);
																																																	}
																																																}
																																															}
																																														}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_carzd25472zd2_2124;
																																														BgL_carzd25472zd2_2124
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														if (PAIRP(BgL_carzd25472zd2_2124))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_cdrzd25489zd2_2127;
																																																BgL_cdrzd25489zd2_2127
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_carzd25472zd2_2124));
																																																if ((CAR(((obj_t) BgL_carzd25472zd2_2124)) == BGl_symbol3833z00zz__evcompilez00))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		if (PAIRP(BgL_cdrzd25489zd2_2127))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_carzd25492zd2_2131;
																																																				obj_t
																																																					BgL_cdrzd25493zd2_2132;
																																																				BgL_carzd25492zd2_2131
																																																					=
																																																					CAR
																																																					(BgL_cdrzd25489zd2_2127);
																																																				BgL_cdrzd25493zd2_2132
																																																					=
																																																					CDR
																																																					(BgL_cdrzd25489zd2_2127);
																																																				if (SYMBOLP(BgL_carzd25492zd2_2131))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						if (PAIRP(BgL_cdrzd25493zd2_2132))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_carzd25498zd2_2135;
																																																								BgL_carzd25498zd2_2135
																																																									=
																																																									CAR
																																																									(BgL_cdrzd25493zd2_2132);
																																																								if (SYMBOLP(BgL_carzd25498zd2_2135))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										if (NULLP(CDR(BgL_cdrzd25493zd2_2132)))
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2114z00_2139;
																																																												BgL_arg2114z00_2139
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_8929;
																																																													obj_t
																																																														BgL_modz00_8928;
																																																													obj_t
																																																														BgL_funz00_8927;
																																																													BgL_funz00_8927
																																																														=
																																																														BgL_carzd25492zd2_2131;
																																																													BgL_modz00_8928
																																																														=
																																																														BgL_carzd25498zd2_2135;
																																																													BgL_argsz00_8929
																																																														=
																																																														BgL_arg2114z00_2139;
																																																													BgL_argsz00_1368
																																																														=
																																																														BgL_argsz00_8929;
																																																													BgL_modz00_1367
																																																														=
																																																														BgL_modz00_8928;
																																																													BgL_funz00_1366
																																																														=
																																																														BgL_funz00_8927;
																																																													goto
																																																														BgL_tagzd2278zd2_1369;
																																																												}
																																																											}
																																																										else
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2115z00_2140;
																																																												obj_t
																																																													BgL_arg2116z00_2141;
																																																												BgL_arg2115z00_2140
																																																													=
																																																													CAR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												BgL_arg2116z00_2141
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_8935;
																																																													obj_t
																																																														BgL_funz00_8934;
																																																													BgL_funz00_8934
																																																														=
																																																														BgL_arg2115z00_2140;
																																																													BgL_argsz00_8935
																																																														=
																																																														BgL_arg2116z00_2141;
																																																													BgL_argsz00_1371
																																																														=
																																																														BgL_argsz00_8935;
																																																													BgL_funz00_1370
																																																														=
																																																														BgL_funz00_8934;
																																																													goto
																																																														BgL_tagzd2279zd2_1372;
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2118z00_2143;
																																																										obj_t
																																																											BgL_arg2119z00_2144;
																																																										BgL_arg2118z00_2143
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2119z00_2144
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_8941;
																																																											obj_t
																																																												BgL_funz00_8940;
																																																											BgL_funz00_8940
																																																												=
																																																												BgL_arg2118z00_2143;
																																																											BgL_argsz00_8941
																																																												=
																																																												BgL_arg2119z00_2144;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_8941;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_8940;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2120z00_2145;
																																																								obj_t
																																																									BgL_arg2121z00_2146;
																																																								BgL_arg2120z00_2145
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2121z00_2146
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_8947;
																																																									obj_t
																																																										BgL_funz00_8946;
																																																									BgL_funz00_8946
																																																										=
																																																										BgL_arg2120z00_2145;
																																																									BgL_argsz00_8947
																																																										=
																																																										BgL_arg2121z00_2146;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_8947;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_8946;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2122z00_2147;
																																																						obj_t
																																																							BgL_arg2123z00_2148;
																																																						BgL_arg2122z00_2147
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2123z00_2148
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_8953;
																																																							obj_t
																																																								BgL_funz00_8952;
																																																							BgL_funz00_8952
																																																								=
																																																								BgL_arg2122z00_2147;
																																																							BgL_argsz00_8953
																																																								=
																																																								BgL_arg2123z00_2148;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_8953;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_8952;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2124z00_2149;
																																																				obj_t
																																																					BgL_arg2125z00_2150;
																																																				BgL_arg2124z00_2149
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2125z00_2150
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_8959;
																																																					obj_t
																																																						BgL_funz00_8958;
																																																					BgL_funz00_8958
																																																						=
																																																						BgL_arg2124z00_2149;
																																																					BgL_argsz00_8959
																																																						=
																																																						BgL_arg2125z00_2150;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_8959;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_8958;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2126z00_2151;
																																																		obj_t
																																																			BgL_arg2127z00_2152;
																																																		BgL_arg2126z00_2151
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg2127z00_2152
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_8965;
																																																			obj_t
																																																				BgL_funz00_8964;
																																																			BgL_funz00_8964
																																																				=
																																																				BgL_arg2126z00_2151;
																																																			BgL_argsz00_8965
																																																				=
																																																				BgL_arg2127z00_2152;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_8965;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_8964;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{
																																																obj_t
																																																	BgL_argsz00_8967;
																																																obj_t
																																																	BgL_funz00_8966;
																																																BgL_funz00_8966
																																																	=
																																																	BgL_carzd25472zd2_2124;
																																																BgL_argsz00_8967
																																																	=
																																																	BgL_cdrzd25436zd2_2114;
																																																BgL_argsz00_1364
																																																	=
																																																	BgL_argsz00_8967;
																																																BgL_funz00_1363
																																																	=
																																																	BgL_funz00_8966;
																																																goto
																																																	BgL_tagzd2277zd2_1365;
																																															}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_carzd25580zd2_2156;
																																												BgL_carzd25580zd2_2156
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												if (PAIRP(BgL_carzd25580zd2_2156))
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_cdrzd25597zd2_2159;
																																														BgL_cdrzd25597zd2_2159
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_carzd25580zd2_2156));
																																														if ((CAR(((obj_t) BgL_carzd25580zd2_2156)) == BGl_symbol3833z00zz__evcompilez00))
																																															{	/* Eval/evcompile.scm 83 */
																																																if (PAIRP(BgL_cdrzd25597zd2_2159))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_carzd25600zd2_2163;
																																																		obj_t
																																																			BgL_cdrzd25601zd2_2164;
																																																		BgL_carzd25600zd2_2163
																																																			=
																																																			CAR
																																																			(BgL_cdrzd25597zd2_2159);
																																																		BgL_cdrzd25601zd2_2164
																																																			=
																																																			CDR
																																																			(BgL_cdrzd25597zd2_2159);
																																																		if (SYMBOLP(BgL_carzd25600zd2_2163))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				if (PAIRP(BgL_cdrzd25601zd2_2164))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_carzd25606zd2_2167;
																																																						BgL_carzd25606zd2_2167
																																																							=
																																																							CAR
																																																							(BgL_cdrzd25601zd2_2164);
																																																						if (SYMBOLP(BgL_carzd25606zd2_2167))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								if (NULLP(CDR(BgL_cdrzd25601zd2_2164)))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2141z00_2171;
																																																										BgL_arg2141z00_2171
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_8996;
																																																											obj_t
																																																												BgL_modz00_8995;
																																																											obj_t
																																																												BgL_funz00_8994;
																																																											BgL_funz00_8994
																																																												=
																																																												BgL_carzd25600zd2_2163;
																																																											BgL_modz00_8995
																																																												=
																																																												BgL_carzd25606zd2_2167;
																																																											BgL_argsz00_8996
																																																												=
																																																												BgL_arg2141z00_2171;
																																																											BgL_argsz00_1368
																																																												=
																																																												BgL_argsz00_8996;
																																																											BgL_modz00_1367
																																																												=
																																																												BgL_modz00_8995;
																																																											BgL_funz00_1366
																																																												=
																																																												BgL_funz00_8994;
																																																											goto
																																																												BgL_tagzd2278zd2_1369;
																																																										}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2142z00_2172;
																																																										obj_t
																																																											BgL_arg2143z00_2173;
																																																										BgL_arg2142z00_2172
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2143z00_2173
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9002;
																																																											obj_t
																																																												BgL_funz00_9001;
																																																											BgL_funz00_9001
																																																												=
																																																												BgL_arg2142z00_2172;
																																																											BgL_argsz00_9002
																																																												=
																																																												BgL_arg2143z00_2173;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9002;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9001;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2145z00_2175;
																																																								obj_t
																																																									BgL_arg2146z00_2176;
																																																								BgL_arg2145z00_2175
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2146z00_2176
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9008;
																																																									obj_t
																																																										BgL_funz00_9007;
																																																									BgL_funz00_9007
																																																										=
																																																										BgL_arg2145z00_2175;
																																																									BgL_argsz00_9008
																																																										=
																																																										BgL_arg2146z00_2176;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9008;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9007;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2147z00_2177;
																																																						obj_t
																																																							BgL_arg2148z00_2178;
																																																						BgL_arg2147z00_2177
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2148z00_2178
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9014;
																																																							obj_t
																																																								BgL_funz00_9013;
																																																							BgL_funz00_9013
																																																								=
																																																								BgL_arg2147z00_2177;
																																																							BgL_argsz00_9014
																																																								=
																																																								BgL_arg2148z00_2178;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9014;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9013;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2149z00_2179;
																																																				obj_t
																																																					BgL_arg2150z00_2180;
																																																				BgL_arg2149z00_2179
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2150z00_2180
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_9020;
																																																					obj_t
																																																						BgL_funz00_9019;
																																																					BgL_funz00_9019
																																																						=
																																																						BgL_arg2149z00_2179;
																																																					BgL_argsz00_9020
																																																						=
																																																						BgL_arg2150z00_2180;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_9020;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_9019;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2151z00_2181;
																																																		obj_t
																																																			BgL_arg2152z00_2182;
																																																		BgL_arg2151z00_2181
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg2152z00_2182
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_9026;
																																																			obj_t
																																																				BgL_funz00_9025;
																																																			BgL_funz00_9025
																																																				=
																																																				BgL_arg2151z00_2181;
																																																			BgL_argsz00_9026
																																																				=
																																																				BgL_arg2152z00_2182;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_9026;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_9025;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg2153z00_2183;
																																																obj_t
																																																	BgL_arg2154z00_2184;
																																																BgL_arg2153z00_2183
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																BgL_arg2154z00_2184
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_9032;
																																																	obj_t
																																																		BgL_funz00_9031;
																																																	BgL_funz00_9031
																																																		=
																																																		BgL_arg2153z00_2183;
																																																	BgL_argsz00_9032
																																																		=
																																																		BgL_arg2154z00_2184;
																																																	BgL_argsz00_1371
																																																		=
																																																		BgL_argsz00_9032;
																																																	BgL_funz00_1370
																																																		=
																																																		BgL_funz00_9031;
																																																	goto
																																																		BgL_tagzd2279zd2_1372;
																																																}
																																															}
																																													}
																																												else
																																													{
																																														obj_t
																																															BgL_argsz00_9034;
																																														obj_t
																																															BgL_funz00_9033;
																																														BgL_funz00_9033
																																															=
																																															BgL_carzd25580zd2_2156;
																																														BgL_argsz00_9034
																																															=
																																															BgL_cdrzd25436zd2_2114;
																																														BgL_argsz00_1364
																																															=
																																															BgL_argsz00_9034;
																																														BgL_funz00_1363
																																															=
																																															BgL_funz00_9033;
																																														goto
																																															BgL_tagzd2277zd2_1365;
																																													}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_carzd25688zd2_2187;
																																										BgL_carzd25688zd2_2187
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										if (PAIRP(BgL_carzd25688zd2_2187))
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_cdrzd25705zd2_2190;
																																												BgL_cdrzd25705zd2_2190
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_carzd25688zd2_2187));
																																												if ((CAR(((obj_t) BgL_carzd25688zd2_2187)) == BGl_symbol3833z00zz__evcompilez00))
																																													{	/* Eval/evcompile.scm 83 */
																																														if (PAIRP(BgL_cdrzd25705zd2_2190))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_carzd25708zd2_2194;
																																																obj_t
																																																	BgL_cdrzd25709zd2_2195;
																																																BgL_carzd25708zd2_2194
																																																	=
																																																	CAR
																																																	(BgL_cdrzd25705zd2_2190);
																																																BgL_cdrzd25709zd2_2195
																																																	=
																																																	CDR
																																																	(BgL_cdrzd25705zd2_2190);
																																																if (SYMBOLP(BgL_carzd25708zd2_2194))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		if (PAIRP(BgL_cdrzd25709zd2_2195))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_carzd25714zd2_2198;
																																																				BgL_carzd25714zd2_2198
																																																					=
																																																					CAR
																																																					(BgL_cdrzd25709zd2_2195);
																																																				if (SYMBOLP(BgL_carzd25714zd2_2198))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						if (NULLP(CDR(BgL_cdrzd25709zd2_2195)))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2166z00_2202;
																																																								BgL_arg2166z00_2202
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9063;
																																																									obj_t
																																																										BgL_modz00_9062;
																																																									obj_t
																																																										BgL_funz00_9061;
																																																									BgL_funz00_9061
																																																										=
																																																										BgL_carzd25708zd2_2194;
																																																									BgL_modz00_9062
																																																										=
																																																										BgL_carzd25714zd2_2198;
																																																									BgL_argsz00_9063
																																																										=
																																																										BgL_arg2166z00_2202;
																																																									BgL_argsz00_1368
																																																										=
																																																										BgL_argsz00_9063;
																																																									BgL_modz00_1367
																																																										=
																																																										BgL_modz00_9062;
																																																									BgL_funz00_1366
																																																										=
																																																										BgL_funz00_9061;
																																																									goto
																																																										BgL_tagzd2278zd2_1369;
																																																								}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2167z00_2203;
																																																								obj_t
																																																									BgL_arg2168z00_2204;
																																																								BgL_arg2167z00_2203
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2168z00_2204
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9069;
																																																									obj_t
																																																										BgL_funz00_9068;
																																																									BgL_funz00_9068
																																																										=
																																																										BgL_arg2167z00_2203;
																																																									BgL_argsz00_9069
																																																										=
																																																										BgL_arg2168z00_2204;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9069;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9068;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2170z00_2206;
																																																						obj_t
																																																							BgL_arg2171z00_2207;
																																																						BgL_arg2170z00_2206
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2171z00_2207
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9075;
																																																							obj_t
																																																								BgL_funz00_9074;
																																																							BgL_funz00_9074
																																																								=
																																																								BgL_arg2170z00_2206;
																																																							BgL_argsz00_9075
																																																								=
																																																								BgL_arg2171z00_2207;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9075;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9074;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2172z00_2208;
																																																				obj_t
																																																					BgL_arg2173z00_2209;
																																																				BgL_arg2172z00_2208
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2173z00_2209
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_9081;
																																																					obj_t
																																																						BgL_funz00_9080;
																																																					BgL_funz00_9080
																																																						=
																																																						BgL_arg2172z00_2208;
																																																					BgL_argsz00_9081
																																																						=
																																																						BgL_arg2173z00_2209;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_9081;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_9080;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2174z00_2210;
																																																		obj_t
																																																			BgL_arg2175z00_2211;
																																																		BgL_arg2174z00_2210
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg2175z00_2211
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_9087;
																																																			obj_t
																																																				BgL_funz00_9086;
																																																			BgL_funz00_9086
																																																				=
																																																				BgL_arg2174z00_2210;
																																																			BgL_argsz00_9087
																																																				=
																																																				BgL_arg2175z00_2211;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_9087;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_9086;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg2176z00_2212;
																																																obj_t
																																																	BgL_arg2177z00_2213;
																																																BgL_arg2176z00_2212
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																BgL_arg2177z00_2213
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_9093;
																																																	obj_t
																																																		BgL_funz00_9092;
																																																	BgL_funz00_9092
																																																		=
																																																		BgL_arg2176z00_2212;
																																																	BgL_argsz00_9093
																																																		=
																																																		BgL_arg2177z00_2213;
																																																	BgL_argsz00_1371
																																																		=
																																																		BgL_argsz00_9093;
																																																	BgL_funz00_1370
																																																		=
																																																		BgL_funz00_9092;
																																																	goto
																																																		BgL_tagzd2279zd2_1372;
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg2178z00_2214;
																																														obj_t
																																															BgL_arg2179z00_2215;
																																														BgL_arg2178z00_2214
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														BgL_arg2179z00_2215
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_9099;
																																															obj_t
																																																BgL_funz00_9098;
																																															BgL_funz00_9098
																																																=
																																																BgL_arg2178z00_2214;
																																															BgL_argsz00_9099
																																																=
																																																BgL_arg2179z00_2215;
																																															BgL_argsz00_1371
																																																=
																																																BgL_argsz00_9099;
																																															BgL_funz00_1370
																																																=
																																																BgL_funz00_9098;
																																															goto
																																																BgL_tagzd2279zd2_1372;
																																														}
																																													}
																																											}
																																										else
																																											{
																																												obj_t
																																													BgL_argsz00_9101;
																																												obj_t
																																													BgL_funz00_9100;
																																												BgL_funz00_9100
																																													=
																																													BgL_carzd25688zd2_2187;
																																												BgL_argsz00_9101
																																													=
																																													BgL_cdrzd25436zd2_2114;
																																												BgL_argsz00_1364
																																													=
																																													BgL_argsz00_9101;
																																												BgL_funz00_1363
																																													=
																																													BgL_funz00_9100;
																																												goto
																																													BgL_tagzd2277zd2_1365;
																																											}
																																									}
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 83 */
																																								if ((CAR(((obj_t) BgL_expz00_5)) == BGl_symbol3871z00zz__evcompilez00))
																																									{	/* Eval/evcompile.scm 83 */
																																										if (PAIRP(BgL_cdrzd25436zd2_2114))
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_cdrzd25782zd2_2222;
																																												BgL_cdrzd25782zd2_2222
																																													=
																																													CDR
																																													(BgL_cdrzd25436zd2_2114);
																																												if (PAIRP(BgL_cdrzd25782zd2_2222))
																																													{	/* Eval/evcompile.scm 83 */
																																														if (NULLP(CDR(BgL_cdrzd25782zd2_2222)))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg2188z00_2226;
																																																obj_t
																																																	BgL_arg2189z00_2227;
																																																BgL_arg2188z00_2226
																																																	=
																																																	CAR
																																																	(BgL_cdrzd25436zd2_2114);
																																																BgL_arg2189z00_2227
																																																	=
																																																	CAR
																																																	(BgL_cdrzd25782zd2_2222);
																																																{	/* Eval/evcompile.scm 287 */
																																																	obj_t
																																																		BgL_arg2760z00_5062;
																																																	{	/* Eval/evcompile.scm 65 */
																																																		obj_t
																																																			BgL__ortest_1065z00_5063;
																																																		BgL__ortest_1065z00_5063
																																																			=
																																																			BGl_getzd2sourcezd2locationz00zz__readerz00
																																																			(BgL_expz00_5);
																																																		if (CBOOL(BgL__ortest_1065z00_5063))
																																																			{	/* Eval/evcompile.scm 65 */
																																																				BgL_arg2760z00_5062
																																																					=
																																																					BgL__ortest_1065z00_5063;
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 65 */
																																																				BgL_arg2760z00_5062
																																																					=
																																																					BgL_locz00_10;
																																																			}
																																																	}
																																																	return
																																																		BGl_evcompilezd2letzd2zz__evcompilez00
																																																		(BgL_arg2188z00_2226,
																																																		BgL_arg2189z00_2227,
																																																		BgL_envz00_6,
																																																		BgL_genvz00_7,
																																																		BgL_wherez00_8,
																																																		BgL_tailz00_9,
																																																		BgL_arg2760z00_5062,
																																																		BgL_lkpz00_11);
																																																}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_carzd25807zd2_2228;
																																																BgL_carzd25807zd2_2228
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																if (PAIRP(BgL_carzd25807zd2_2228))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_cdrzd25824zd2_2231;
																																																		BgL_cdrzd25824zd2_2231
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_carzd25807zd2_2228));
																																																		if ((CAR(((obj_t) BgL_carzd25807zd2_2228)) == BGl_symbol3833z00zz__evcompilez00))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				if (PAIRP(BgL_cdrzd25824zd2_2231))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_carzd25827zd2_2235;
																																																						obj_t
																																																							BgL_cdrzd25828zd2_2236;
																																																						BgL_carzd25827zd2_2235
																																																							=
																																																							CAR
																																																							(BgL_cdrzd25824zd2_2231);
																																																						BgL_cdrzd25828zd2_2236
																																																							=
																																																							CDR
																																																							(BgL_cdrzd25824zd2_2231);
																																																						if (SYMBOLP(BgL_carzd25827zd2_2235))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								if (PAIRP(BgL_cdrzd25828zd2_2236))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_carzd25833zd2_2239;
																																																										BgL_carzd25833zd2_2239
																																																											=
																																																											CAR
																																																											(BgL_cdrzd25828zd2_2236);
																																																										if (SYMBOLP(BgL_carzd25833zd2_2239))
																																																											{	/* Eval/evcompile.scm 83 */
																																																												if (NULLP(CDR(BgL_cdrzd25828zd2_2236)))
																																																													{	/* Eval/evcompile.scm 83 */
																																																														obj_t
																																																															BgL_arg2199z00_2243;
																																																														BgL_arg2199z00_2243
																																																															=
																																																															CDR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														{
																																																															obj_t
																																																																BgL_argsz00_9148;
																																																															obj_t
																																																																BgL_modz00_9147;
																																																															obj_t
																																																																BgL_funz00_9146;
																																																															BgL_funz00_9146
																																																																=
																																																																BgL_carzd25827zd2_2235;
																																																															BgL_modz00_9147
																																																																=
																																																																BgL_carzd25833zd2_2239;
																																																															BgL_argsz00_9148
																																																																=
																																																																BgL_arg2199z00_2243;
																																																															BgL_argsz00_1368
																																																																=
																																																																BgL_argsz00_9148;
																																																															BgL_modz00_1367
																																																																=
																																																																BgL_modz00_9147;
																																																															BgL_funz00_1366
																																																																=
																																																																BgL_funz00_9146;
																																																															goto
																																																																BgL_tagzd2278zd2_1369;
																																																														}
																																																													}
																																																												else
																																																													{	/* Eval/evcompile.scm 83 */
																																																														obj_t
																																																															BgL_arg2200z00_2244;
																																																														obj_t
																																																															BgL_arg2201z00_2245;
																																																														BgL_arg2200z00_2244
																																																															=
																																																															CAR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														BgL_arg2201z00_2245
																																																															=
																																																															CDR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														{
																																																															obj_t
																																																																BgL_argsz00_9154;
																																																															obj_t
																																																																BgL_funz00_9153;
																																																															BgL_funz00_9153
																																																																=
																																																																BgL_arg2200z00_2244;
																																																															BgL_argsz00_9154
																																																																=
																																																																BgL_arg2201z00_2245;
																																																															BgL_argsz00_1371
																																																																=
																																																																BgL_argsz00_9154;
																																																															BgL_funz00_1370
																																																																=
																																																																BgL_funz00_9153;
																																																															goto
																																																																BgL_tagzd2279zd2_1372;
																																																														}
																																																													}
																																																											}
																																																										else
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2203z00_2247;
																																																												obj_t
																																																													BgL_arg2204z00_2248;
																																																												BgL_arg2203z00_2247
																																																													=
																																																													CAR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												BgL_arg2204z00_2248
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9160;
																																																													obj_t
																																																														BgL_funz00_9159;
																																																													BgL_funz00_9159
																																																														=
																																																														BgL_arg2203z00_2247;
																																																													BgL_argsz00_9160
																																																														=
																																																														BgL_arg2204z00_2248;
																																																													BgL_argsz00_1371
																																																														=
																																																														BgL_argsz00_9160;
																																																													BgL_funz00_1370
																																																														=
																																																														BgL_funz00_9159;
																																																													goto
																																																														BgL_tagzd2279zd2_1372;
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2205z00_2249;
																																																										obj_t
																																																											BgL_arg2206z00_2250;
																																																										BgL_arg2205z00_2249
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2206z00_2250
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9166;
																																																											obj_t
																																																												BgL_funz00_9165;
																																																											BgL_funz00_9165
																																																												=
																																																												BgL_arg2205z00_2249;
																																																											BgL_argsz00_9166
																																																												=
																																																												BgL_arg2206z00_2250;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9166;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9165;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2207z00_2251;
																																																								obj_t
																																																									BgL_arg2208z00_2252;
																																																								BgL_arg2207z00_2251
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2208z00_2252
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9172;
																																																									obj_t
																																																										BgL_funz00_9171;
																																																									BgL_funz00_9171
																																																										=
																																																										BgL_arg2207z00_2251;
																																																									BgL_argsz00_9172
																																																										=
																																																										BgL_arg2208z00_2252;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9172;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9171;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2209z00_2253;
																																																						obj_t
																																																							BgL_arg2210z00_2254;
																																																						BgL_arg2209z00_2253
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2210z00_2254
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9178;
																																																							obj_t
																																																								BgL_funz00_9177;
																																																							BgL_funz00_9177
																																																								=
																																																								BgL_arg2209z00_2253;
																																																							BgL_argsz00_9178
																																																								=
																																																								BgL_arg2210z00_2254;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9178;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9177;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2211z00_2255;
																																																				obj_t
																																																					BgL_arg2212z00_2256;
																																																				BgL_arg2211z00_2255
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2212z00_2256
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_9184;
																																																					obj_t
																																																						BgL_funz00_9183;
																																																					BgL_funz00_9183
																																																						=
																																																						BgL_arg2211z00_2255;
																																																					BgL_argsz00_9184
																																																						=
																																																						BgL_arg2212z00_2256;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_9184;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_9183;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2214z00_2258;
																																																		BgL_arg2214z00_2258
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_9188;
																																																			obj_t
																																																				BgL_funz00_9187;
																																																			BgL_funz00_9187
																																																				=
																																																				BgL_carzd25807zd2_2228;
																																																			BgL_argsz00_9188
																																																				=
																																																				BgL_arg2214z00_2258;
																																																			BgL_argsz00_1364
																																																				=
																																																				BgL_argsz00_9188;
																																																			BgL_funz00_1363
																																																				=
																																																				BgL_funz00_9187;
																																																			goto
																																																				BgL_tagzd2277zd2_1365;
																																																		}
																																																	}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_carzd25908zd2_2260;
																																														BgL_carzd25908zd2_2260
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														if (PAIRP(BgL_carzd25908zd2_2260))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_cdrzd25925zd2_2263;
																																																BgL_cdrzd25925zd2_2263
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_carzd25908zd2_2260));
																																																if ((CAR(((obj_t) BgL_carzd25908zd2_2260)) == BGl_symbol3833z00zz__evcompilez00))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		if (PAIRP(BgL_cdrzd25925zd2_2263))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_carzd25928zd2_2267;
																																																				obj_t
																																																					BgL_cdrzd25929zd2_2268;
																																																				BgL_carzd25928zd2_2267
																																																					=
																																																					CAR
																																																					(BgL_cdrzd25925zd2_2263);
																																																				BgL_cdrzd25929zd2_2268
																																																					=
																																																					CDR
																																																					(BgL_cdrzd25925zd2_2263);
																																																				if (SYMBOLP(BgL_carzd25928zd2_2267))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						if (PAIRP(BgL_cdrzd25929zd2_2268))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_carzd25934zd2_2271;
																																																								BgL_carzd25934zd2_2271
																																																									=
																																																									CAR
																																																									(BgL_cdrzd25929zd2_2268);
																																																								if (SYMBOLP(BgL_carzd25934zd2_2271))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										if (NULLP(CDR(BgL_cdrzd25929zd2_2268)))
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2226z00_2275;
																																																												BgL_arg2226z00_2275
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9217;
																																																													obj_t
																																																														BgL_modz00_9216;
																																																													obj_t
																																																														BgL_funz00_9215;
																																																													BgL_funz00_9215
																																																														=
																																																														BgL_carzd25928zd2_2267;
																																																													BgL_modz00_9216
																																																														=
																																																														BgL_carzd25934zd2_2271;
																																																													BgL_argsz00_9217
																																																														=
																																																														BgL_arg2226z00_2275;
																																																													BgL_argsz00_1368
																																																														=
																																																														BgL_argsz00_9217;
																																																													BgL_modz00_1367
																																																														=
																																																														BgL_modz00_9216;
																																																													BgL_funz00_1366
																																																														=
																																																														BgL_funz00_9215;
																																																													goto
																																																														BgL_tagzd2278zd2_1369;
																																																												}
																																																											}
																																																										else
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2227z00_2276;
																																																												obj_t
																																																													BgL_arg2228z00_2277;
																																																												BgL_arg2227z00_2276
																																																													=
																																																													CAR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												BgL_arg2228z00_2277
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9223;
																																																													obj_t
																																																														BgL_funz00_9222;
																																																													BgL_funz00_9222
																																																														=
																																																														BgL_arg2227z00_2276;
																																																													BgL_argsz00_9223
																																																														=
																																																														BgL_arg2228z00_2277;
																																																													BgL_argsz00_1371
																																																														=
																																																														BgL_argsz00_9223;
																																																													BgL_funz00_1370
																																																														=
																																																														BgL_funz00_9222;
																																																													goto
																																																														BgL_tagzd2279zd2_1372;
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2230z00_2279;
																																																										obj_t
																																																											BgL_arg2231z00_2280;
																																																										BgL_arg2230z00_2279
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2231z00_2280
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9229;
																																																											obj_t
																																																												BgL_funz00_9228;
																																																											BgL_funz00_9228
																																																												=
																																																												BgL_arg2230z00_2279;
																																																											BgL_argsz00_9229
																																																												=
																																																												BgL_arg2231z00_2280;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9229;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9228;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2232z00_2281;
																																																								obj_t
																																																									BgL_arg2233z00_2282;
																																																								BgL_arg2232z00_2281
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2233z00_2282
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9235;
																																																									obj_t
																																																										BgL_funz00_9234;
																																																									BgL_funz00_9234
																																																										=
																																																										BgL_arg2232z00_2281;
																																																									BgL_argsz00_9235
																																																										=
																																																										BgL_arg2233z00_2282;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9235;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9234;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2234z00_2283;
																																																						obj_t
																																																							BgL_arg2235z00_2284;
																																																						BgL_arg2234z00_2283
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2235z00_2284
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9241;
																																																							obj_t
																																																								BgL_funz00_9240;
																																																							BgL_funz00_9240
																																																								=
																																																								BgL_arg2234z00_2283;
																																																							BgL_argsz00_9241
																																																								=
																																																								BgL_arg2235z00_2284;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9241;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9240;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2237z00_2285;
																																																				obj_t
																																																					BgL_arg2238z00_2286;
																																																				BgL_arg2237z00_2285
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2238z00_2286
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_9247;
																																																					obj_t
																																																						BgL_funz00_9246;
																																																					BgL_funz00_9246
																																																						=
																																																						BgL_arg2237z00_2285;
																																																					BgL_argsz00_9247
																																																						=
																																																						BgL_arg2238z00_2286;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_9247;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_9246;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2239z00_2287;
																																																		obj_t
																																																			BgL_arg2240z00_2288;
																																																		BgL_arg2239z00_2287
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg2240z00_2288
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_9253;
																																																			obj_t
																																																				BgL_funz00_9252;
																																																			BgL_funz00_9252
																																																				=
																																																				BgL_arg2239z00_2287;
																																																			BgL_argsz00_9253
																																																				=
																																																				BgL_arg2240z00_2288;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_9253;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_9252;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg2242z00_2290;
																																																BgL_arg2242z00_2290
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_9257;
																																																	obj_t
																																																		BgL_funz00_9256;
																																																	BgL_funz00_9256
																																																		=
																																																		BgL_carzd25908zd2_2260;
																																																	BgL_argsz00_9257
																																																		=
																																																		BgL_arg2242z00_2290;
																																																	BgL_argsz00_1364
																																																		=
																																																		BgL_argsz00_9257;
																																																	BgL_funz00_1363
																																																		=
																																																		BgL_funz00_9256;
																																																	goto
																																																		BgL_tagzd2277zd2_1365;
																																																}
																																															}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												obj_t
																																													BgL_carzd26009zd2_2291;
																																												BgL_carzd26009zd2_2291
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_expz00_5));
																																												if (PAIRP(BgL_carzd26009zd2_2291))
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_cdrzd26026zd2_2294;
																																														BgL_cdrzd26026zd2_2294
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_carzd26009zd2_2291));
																																														if ((CAR(((obj_t) BgL_carzd26009zd2_2291)) == BGl_symbol3833z00zz__evcompilez00))
																																															{	/* Eval/evcompile.scm 83 */
																																																if (PAIRP(BgL_cdrzd26026zd2_2294))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_carzd26029zd2_2298;
																																																		obj_t
																																																			BgL_cdrzd26030zd2_2299;
																																																		BgL_carzd26029zd2_2298
																																																			=
																																																			CAR
																																																			(BgL_cdrzd26026zd2_2294);
																																																		BgL_cdrzd26030zd2_2299
																																																			=
																																																			CDR
																																																			(BgL_cdrzd26026zd2_2294);
																																																		if (SYMBOLP(BgL_carzd26029zd2_2298))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				if (PAIRP(BgL_cdrzd26030zd2_2299))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_carzd26035zd2_2302;
																																																						BgL_carzd26035zd2_2302
																																																							=
																																																							CAR
																																																							(BgL_cdrzd26030zd2_2299);
																																																						if (SYMBOLP(BgL_carzd26035zd2_2302))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								if (NULLP(CDR(BgL_cdrzd26030zd2_2299)))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2253z00_2306;
																																																										BgL_arg2253z00_2306
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9286;
																																																											obj_t
																																																												BgL_modz00_9285;
																																																											obj_t
																																																												BgL_funz00_9284;
																																																											BgL_funz00_9284
																																																												=
																																																												BgL_carzd26029zd2_2298;
																																																											BgL_modz00_9285
																																																												=
																																																												BgL_carzd26035zd2_2302;
																																																											BgL_argsz00_9286
																																																												=
																																																												BgL_arg2253z00_2306;
																																																											BgL_argsz00_1368
																																																												=
																																																												BgL_argsz00_9286;
																																																											BgL_modz00_1367
																																																												=
																																																												BgL_modz00_9285;
																																																											BgL_funz00_1366
																																																												=
																																																												BgL_funz00_9284;
																																																											goto
																																																												BgL_tagzd2278zd2_1369;
																																																										}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2254z00_2307;
																																																										obj_t
																																																											BgL_arg2255z00_2308;
																																																										BgL_arg2254z00_2307
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2255z00_2308
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9292;
																																																											obj_t
																																																												BgL_funz00_9291;
																																																											BgL_funz00_9291
																																																												=
																																																												BgL_arg2254z00_2307;
																																																											BgL_argsz00_9292
																																																												=
																																																												BgL_arg2255z00_2308;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9292;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9291;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2257z00_2310;
																																																								obj_t
																																																									BgL_arg2258z00_2311;
																																																								BgL_arg2257z00_2310
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2258z00_2311
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9298;
																																																									obj_t
																																																										BgL_funz00_9297;
																																																									BgL_funz00_9297
																																																										=
																																																										BgL_arg2257z00_2310;
																																																									BgL_argsz00_9298
																																																										=
																																																										BgL_arg2258z00_2311;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9298;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9297;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2259z00_2312;
																																																						obj_t
																																																							BgL_arg2260z00_2313;
																																																						BgL_arg2259z00_2312
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2260z00_2313
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9304;
																																																							obj_t
																																																								BgL_funz00_9303;
																																																							BgL_funz00_9303
																																																								=
																																																								BgL_arg2259z00_2312;
																																																							BgL_argsz00_9304
																																																								=
																																																								BgL_arg2260z00_2313;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9304;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9303;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2261z00_2314;
																																																				obj_t
																																																					BgL_arg2262z00_2315;
																																																				BgL_arg2261z00_2314
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2262z00_2315
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_9310;
																																																					obj_t
																																																						BgL_funz00_9309;
																																																					BgL_funz00_9309
																																																						=
																																																						BgL_arg2261z00_2314;
																																																					BgL_argsz00_9310
																																																						=
																																																						BgL_arg2262z00_2315;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_9310;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_9309;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2263z00_2316;
																																																		obj_t
																																																			BgL_arg2264z00_2317;
																																																		BgL_arg2263z00_2316
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg2264z00_2317
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_9316;
																																																			obj_t
																																																				BgL_funz00_9315;
																																																			BgL_funz00_9315
																																																				=
																																																				BgL_arg2263z00_2316;
																																																			BgL_argsz00_9316
																																																				=
																																																				BgL_arg2264z00_2317;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_9316;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_9315;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg2265z00_2318;
																																																obj_t
																																																	BgL_arg2266z00_2319;
																																																BgL_arg2265z00_2318
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																BgL_arg2266z00_2319
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_9322;
																																																	obj_t
																																																		BgL_funz00_9321;
																																																	BgL_funz00_9321
																																																		=
																																																		BgL_arg2265z00_2318;
																																																	BgL_argsz00_9322
																																																		=
																																																		BgL_arg2266z00_2319;
																																																	BgL_argsz00_1371
																																																		=
																																																		BgL_argsz00_9322;
																																																	BgL_funz00_1370
																																																		=
																																																		BgL_funz00_9321;
																																																	goto
																																																		BgL_tagzd2279zd2_1372;
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_arg2268z00_2321;
																																														BgL_arg2268z00_2321
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														{
																																															obj_t
																																																BgL_argsz00_9326;
																																															obj_t
																																																BgL_funz00_9325;
																																															BgL_funz00_9325
																																																=
																																																BgL_carzd26009zd2_2291;
																																															BgL_argsz00_9326
																																																=
																																																BgL_arg2268z00_2321;
																																															BgL_argsz00_1364
																																																=
																																																BgL_argsz00_9326;
																																															BgL_funz00_1363
																																																=
																																																BgL_funz00_9325;
																																															goto
																																																BgL_tagzd2277zd2_1365;
																																														}
																																													}
																																											}
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 83 */
																																										obj_t
																																											BgL_cdrzd26099zd2_2322;
																																										BgL_cdrzd26099zd2_2322
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_expz00_5));
																																										if ((CAR(((obj_t) BgL_expz00_5)) == BGl_symbol3873z00zz__evcompilez00))
																																											{	/* Eval/evcompile.scm 83 */
																																												if (PAIRP(BgL_cdrzd26099zd2_2322))
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_cdrzd26103zd2_2326;
																																														BgL_cdrzd26103zd2_2326
																																															=
																																															CDR
																																															(BgL_cdrzd26099zd2_2322);
																																														if (PAIRP(BgL_cdrzd26103zd2_2326))
																																															{	/* Eval/evcompile.scm 83 */
																																																if (NULLP(CDR(BgL_cdrzd26103zd2_2326)))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2275z00_2330;
																																																		obj_t
																																																			BgL_arg2276z00_2331;
																																																		BgL_arg2275z00_2330
																																																			=
																																																			CAR
																																																			(BgL_cdrzd26099zd2_2322);
																																																		BgL_arg2276z00_2331
																																																			=
																																																			CAR
																																																			(BgL_cdrzd26103zd2_2326);
																																																		{	/* Eval/evcompile.scm 292 */
																																																			obj_t
																																																				BgL_arg2761z00_5136;
																																																			{	/* Eval/evcompile.scm 65 */
																																																				obj_t
																																																					BgL__ortest_1065z00_5137;
																																																				BgL__ortest_1065z00_5137
																																																					=
																																																					BGl_getzd2sourcezd2locationz00zz__readerz00
																																																					(BgL_expz00_5);
																																																				if (CBOOL(BgL__ortest_1065z00_5137))
																																																					{	/* Eval/evcompile.scm 65 */
																																																						BgL_arg2761z00_5136
																																																							=
																																																							BgL__ortest_1065z00_5137;
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 65 */
																																																						BgL_arg2761z00_5136
																																																							=
																																																							BgL_locz00_10;
																																																					}
																																																			}
																																																			return
																																																				BGl_evcompilezd2letza2z70zz__evcompilez00
																																																				(BgL_arg2275z00_2330,
																																																				BgL_arg2276z00_2331,
																																																				BgL_envz00_6,
																																																				BgL_genvz00_7,
																																																				BgL_wherez00_8,
																																																				BgL_tailz00_9,
																																																				BgL_arg2761z00_5136,
																																																				BgL_lkpz00_11);
																																																		}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_carzd26121zd2_2332;
																																																		BgL_carzd26121zd2_2332
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		if (PAIRP(BgL_carzd26121zd2_2332))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_cdrzd26138zd2_2335;
																																																				BgL_cdrzd26138zd2_2335
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_carzd26121zd2_2332));
																																																				if ((CAR(((obj_t) BgL_carzd26121zd2_2332)) == BGl_symbol3833z00zz__evcompilez00))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						if (PAIRP(BgL_cdrzd26138zd2_2335))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_carzd26141zd2_2339;
																																																								obj_t
																																																									BgL_cdrzd26142zd2_2340;
																																																								BgL_carzd26141zd2_2339
																																																									=
																																																									CAR
																																																									(BgL_cdrzd26138zd2_2335);
																																																								BgL_cdrzd26142zd2_2340
																																																									=
																																																									CDR
																																																									(BgL_cdrzd26138zd2_2335);
																																																								if (SYMBOLP(BgL_carzd26141zd2_2339))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										if (PAIRP(BgL_cdrzd26142zd2_2340))
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_carzd26147zd2_2343;
																																																												BgL_carzd26147zd2_2343
																																																													=
																																																													CAR
																																																													(BgL_cdrzd26142zd2_2340);
																																																												if (SYMBOLP(BgL_carzd26147zd2_2343))
																																																													{	/* Eval/evcompile.scm 83 */
																																																														if (NULLP(CDR(BgL_cdrzd26142zd2_2340)))
																																																															{	/* Eval/evcompile.scm 83 */
																																																																obj_t
																																																																	BgL_arg2286z00_2347;
																																																																BgL_arg2286z00_2347
																																																																	=
																																																																	CDR
																																																																	(
																																																																	((obj_t) BgL_expz00_5));
																																																																{
																																																																	obj_t
																																																																		BgL_argsz00_9375;
																																																																	obj_t
																																																																		BgL_modz00_9374;
																																																																	obj_t
																																																																		BgL_funz00_9373;
																																																																	BgL_funz00_9373
																																																																		=
																																																																		BgL_carzd26141zd2_2339;
																																																																	BgL_modz00_9374
																																																																		=
																																																																		BgL_carzd26147zd2_2343;
																																																																	BgL_argsz00_9375
																																																																		=
																																																																		BgL_arg2286z00_2347;
																																																																	BgL_argsz00_1368
																																																																		=
																																																																		BgL_argsz00_9375;
																																																																	BgL_modz00_1367
																																																																		=
																																																																		BgL_modz00_9374;
																																																																	BgL_funz00_1366
																																																																		=
																																																																		BgL_funz00_9373;
																																																																	goto
																																																																		BgL_tagzd2278zd2_1369;
																																																																}
																																																															}
																																																														else
																																																															{	/* Eval/evcompile.scm 83 */
																																																																obj_t
																																																																	BgL_arg2287z00_2348;
																																																																obj_t
																																																																	BgL_arg2288z00_2349;
																																																																BgL_arg2287z00_2348
																																																																	=
																																																																	CAR
																																																																	(
																																																																	((obj_t) BgL_expz00_5));
																																																																BgL_arg2288z00_2349
																																																																	=
																																																																	CDR
																																																																	(
																																																																	((obj_t) BgL_expz00_5));
																																																																{
																																																																	obj_t
																																																																		BgL_argsz00_9381;
																																																																	obj_t
																																																																		BgL_funz00_9380;
																																																																	BgL_funz00_9380
																																																																		=
																																																																		BgL_arg2287z00_2348;
																																																																	BgL_argsz00_9381
																																																																		=
																																																																		BgL_arg2288z00_2349;
																																																																	BgL_argsz00_1371
																																																																		=
																																																																		BgL_argsz00_9381;
																																																																	BgL_funz00_1370
																																																																		=
																																																																		BgL_funz00_9380;
																																																																	goto
																																																																		BgL_tagzd2279zd2_1372;
																																																																}
																																																															}
																																																													}
																																																												else
																																																													{	/* Eval/evcompile.scm 83 */
																																																														obj_t
																																																															BgL_arg2290z00_2351;
																																																														obj_t
																																																															BgL_arg2292z00_2352;
																																																														BgL_arg2290z00_2351
																																																															=
																																																															CAR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														BgL_arg2292z00_2352
																																																															=
																																																															CDR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														{
																																																															obj_t
																																																																BgL_argsz00_9387;
																																																															obj_t
																																																																BgL_funz00_9386;
																																																															BgL_funz00_9386
																																																																=
																																																																BgL_arg2290z00_2351;
																																																															BgL_argsz00_9387
																																																																=
																																																																BgL_arg2292z00_2352;
																																																															BgL_argsz00_1371
																																																																=
																																																																BgL_argsz00_9387;
																																																															BgL_funz00_1370
																																																																=
																																																																BgL_funz00_9386;
																																																															goto
																																																																BgL_tagzd2279zd2_1372;
																																																														}
																																																													}
																																																											}
																																																										else
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2294z00_2353;
																																																												obj_t
																																																													BgL_arg2295z00_2354;
																																																												BgL_arg2294z00_2353
																																																													=
																																																													CAR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												BgL_arg2295z00_2354
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9393;
																																																													obj_t
																																																														BgL_funz00_9392;
																																																													BgL_funz00_9392
																																																														=
																																																														BgL_arg2294z00_2353;
																																																													BgL_argsz00_9393
																																																														=
																																																														BgL_arg2295z00_2354;
																																																													BgL_argsz00_1371
																																																														=
																																																														BgL_argsz00_9393;
																																																													BgL_funz00_1370
																																																														=
																																																														BgL_funz00_9392;
																																																													goto
																																																														BgL_tagzd2279zd2_1372;
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2296z00_2355;
																																																										obj_t
																																																											BgL_arg2297z00_2356;
																																																										BgL_arg2296z00_2355
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2297z00_2356
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9399;
																																																											obj_t
																																																												BgL_funz00_9398;
																																																											BgL_funz00_9398
																																																												=
																																																												BgL_arg2296z00_2355;
																																																											BgL_argsz00_9399
																																																												=
																																																												BgL_arg2297z00_2356;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9399;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9398;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2299z00_2357;
																																																								obj_t
																																																									BgL_arg2300z00_2358;
																																																								BgL_arg2299z00_2357
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2300z00_2358
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9405;
																																																									obj_t
																																																										BgL_funz00_9404;
																																																									BgL_funz00_9404
																																																										=
																																																										BgL_arg2299z00_2357;
																																																									BgL_argsz00_9405
																																																										=
																																																										BgL_arg2300z00_2358;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9405;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9404;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2301z00_2359;
																																																						obj_t
																																																							BgL_arg2302z00_2360;
																																																						BgL_arg2301z00_2359
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2302z00_2360
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9411;
																																																							obj_t
																																																								BgL_funz00_9410;
																																																							BgL_funz00_9410
																																																								=
																																																								BgL_arg2301z00_2359;
																																																							BgL_argsz00_9411
																																																								=
																																																								BgL_arg2302z00_2360;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9411;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9410;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{
																																																				obj_t
																																																					BgL_argsz00_9413;
																																																				obj_t
																																																					BgL_funz00_9412;
																																																				BgL_funz00_9412
																																																					=
																																																					BgL_carzd26121zd2_2332;
																																																				BgL_argsz00_9413
																																																					=
																																																					BgL_cdrzd26099zd2_2322;
																																																				BgL_argsz00_1364
																																																					=
																																																					BgL_argsz00_9413;
																																																				BgL_funz00_1363
																																																					=
																																																					BgL_funz00_9412;
																																																				goto
																																																					BgL_tagzd2277zd2_1365;
																																																			}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_carzd26215zd2_2364;
																																																BgL_carzd26215zd2_2364
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																if (PAIRP(BgL_carzd26215zd2_2364))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_cdrzd26232zd2_2367;
																																																		BgL_cdrzd26232zd2_2367
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_carzd26215zd2_2364));
																																																		if ((CAR(((obj_t) BgL_carzd26215zd2_2364)) == BGl_symbol3833z00zz__evcompilez00))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				if (PAIRP(BgL_cdrzd26232zd2_2367))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_carzd26235zd2_2371;
																																																						obj_t
																																																							BgL_cdrzd26236zd2_2372;
																																																						BgL_carzd26235zd2_2371
																																																							=
																																																							CAR
																																																							(BgL_cdrzd26232zd2_2367);
																																																						BgL_cdrzd26236zd2_2372
																																																							=
																																																							CDR
																																																							(BgL_cdrzd26232zd2_2367);
																																																						if (SYMBOLP(BgL_carzd26235zd2_2371))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								if (PAIRP(BgL_cdrzd26236zd2_2372))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_carzd26241zd2_2375;
																																																										BgL_carzd26241zd2_2375
																																																											=
																																																											CAR
																																																											(BgL_cdrzd26236zd2_2372);
																																																										if (SYMBOLP(BgL_carzd26241zd2_2375))
																																																											{	/* Eval/evcompile.scm 83 */
																																																												if (NULLP(CDR(BgL_cdrzd26236zd2_2372)))
																																																													{	/* Eval/evcompile.scm 83 */
																																																														obj_t
																																																															BgL_arg2318z00_2379;
																																																														BgL_arg2318z00_2379
																																																															=
																																																															CDR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														{
																																																															obj_t
																																																																BgL_argsz00_9442;
																																																															obj_t
																																																																BgL_modz00_9441;
																																																															obj_t
																																																																BgL_funz00_9440;
																																																															BgL_funz00_9440
																																																																=
																																																																BgL_carzd26235zd2_2371;
																																																															BgL_modz00_9441
																																																																=
																																																																BgL_carzd26241zd2_2375;
																																																															BgL_argsz00_9442
																																																																=
																																																																BgL_arg2318z00_2379;
																																																															BgL_argsz00_1368
																																																																=
																																																																BgL_argsz00_9442;
																																																															BgL_modz00_1367
																																																																=
																																																																BgL_modz00_9441;
																																																															BgL_funz00_1366
																																																																=
																																																																BgL_funz00_9440;
																																																															goto
																																																																BgL_tagzd2278zd2_1369;
																																																														}
																																																													}
																																																												else
																																																													{	/* Eval/evcompile.scm 83 */
																																																														obj_t
																																																															BgL_arg2319z00_2380;
																																																														obj_t
																																																															BgL_arg2320z00_2381;
																																																														BgL_arg2319z00_2380
																																																															=
																																																															CAR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														BgL_arg2320z00_2381
																																																															=
																																																															CDR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														{
																																																															obj_t
																																																																BgL_argsz00_9448;
																																																															obj_t
																																																																BgL_funz00_9447;
																																																															BgL_funz00_9447
																																																																=
																																																																BgL_arg2319z00_2380;
																																																															BgL_argsz00_9448
																																																																=
																																																																BgL_arg2320z00_2381;
																																																															BgL_argsz00_1371
																																																																=
																																																																BgL_argsz00_9448;
																																																															BgL_funz00_1370
																																																																=
																																																																BgL_funz00_9447;
																																																															goto
																																																																BgL_tagzd2279zd2_1372;
																																																														}
																																																													}
																																																											}
																																																										else
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2323z00_2383;
																																																												obj_t
																																																													BgL_arg2324z00_2384;
																																																												BgL_arg2323z00_2383
																																																													=
																																																													CAR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												BgL_arg2324z00_2384
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9454;
																																																													obj_t
																																																														BgL_funz00_9453;
																																																													BgL_funz00_9453
																																																														=
																																																														BgL_arg2323z00_2383;
																																																													BgL_argsz00_9454
																																																														=
																																																														BgL_arg2324z00_2384;
																																																													BgL_argsz00_1371
																																																														=
																																																														BgL_argsz00_9454;
																																																													BgL_funz00_1370
																																																														=
																																																														BgL_funz00_9453;
																																																													goto
																																																														BgL_tagzd2279zd2_1372;
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2325z00_2385;
																																																										obj_t
																																																											BgL_arg2326z00_2386;
																																																										BgL_arg2325z00_2385
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2326z00_2386
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9460;
																																																											obj_t
																																																												BgL_funz00_9459;
																																																											BgL_funz00_9459
																																																												=
																																																												BgL_arg2325z00_2385;
																																																											BgL_argsz00_9460
																																																												=
																																																												BgL_arg2326z00_2386;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9460;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9459;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2328z00_2387;
																																																								obj_t
																																																									BgL_arg2329z00_2388;
																																																								BgL_arg2328z00_2387
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2329z00_2388
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9466;
																																																									obj_t
																																																										BgL_funz00_9465;
																																																									BgL_funz00_9465
																																																										=
																																																										BgL_arg2328z00_2387;
																																																									BgL_argsz00_9466
																																																										=
																																																										BgL_arg2329z00_2388;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9466;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9465;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2330z00_2389;
																																																						obj_t
																																																							BgL_arg2331z00_2390;
																																																						BgL_arg2330z00_2389
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2331z00_2390
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9472;
																																																							obj_t
																																																								BgL_funz00_9471;
																																																							BgL_funz00_9471
																																																								=
																																																								BgL_arg2330z00_2389;
																																																							BgL_argsz00_9472
																																																								=
																																																								BgL_arg2331z00_2390;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9472;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9471;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2332z00_2391;
																																																				obj_t
																																																					BgL_arg2333z00_2392;
																																																				BgL_arg2332z00_2391
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2333z00_2392
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_9478;
																																																					obj_t
																																																						BgL_funz00_9477;
																																																					BgL_funz00_9477
																																																						=
																																																						BgL_arg2332z00_2391;
																																																					BgL_argsz00_9478
																																																						=
																																																						BgL_arg2333z00_2392;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_9478;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_9477;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{
																																																		obj_t
																																																			BgL_argsz00_9480;
																																																		obj_t
																																																			BgL_funz00_9479;
																																																		BgL_funz00_9479
																																																			=
																																																			BgL_carzd26215zd2_2364;
																																																		BgL_argsz00_9480
																																																			=
																																																			BgL_cdrzd26099zd2_2322;
																																																		BgL_argsz00_1364
																																																			=
																																																			BgL_argsz00_9480;
																																																		BgL_funz00_1363
																																																			=
																																																			BgL_funz00_9479;
																																																		goto
																																																			BgL_tagzd2277zd2_1365;
																																																	}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_carzd26309zd2_2395;
																																														BgL_carzd26309zd2_2395
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														if (PAIRP(BgL_carzd26309zd2_2395))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_cdrzd26326zd2_2398;
																																																BgL_cdrzd26326zd2_2398
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_carzd26309zd2_2395));
																																																if ((CAR(((obj_t) BgL_carzd26309zd2_2395)) == BGl_symbol3833z00zz__evcompilez00))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		if (PAIRP(BgL_cdrzd26326zd2_2398))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_carzd26329zd2_2402;
																																																				obj_t
																																																					BgL_cdrzd26330zd2_2403;
																																																				BgL_carzd26329zd2_2402
																																																					=
																																																					CAR
																																																					(BgL_cdrzd26326zd2_2398);
																																																				BgL_cdrzd26330zd2_2403
																																																					=
																																																					CDR
																																																					(BgL_cdrzd26326zd2_2398);
																																																				if (SYMBOLP(BgL_carzd26329zd2_2402))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						if (PAIRP(BgL_cdrzd26330zd2_2403))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_carzd26335zd2_2406;
																																																								BgL_carzd26335zd2_2406
																																																									=
																																																									CAR
																																																									(BgL_cdrzd26330zd2_2403);
																																																								if (SYMBOLP(BgL_carzd26335zd2_2406))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										if (NULLP(CDR(BgL_cdrzd26330zd2_2403)))
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2347z00_2410;
																																																												BgL_arg2347z00_2410
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9509;
																																																													obj_t
																																																														BgL_modz00_9508;
																																																													obj_t
																																																														BgL_funz00_9507;
																																																													BgL_funz00_9507
																																																														=
																																																														BgL_carzd26329zd2_2402;
																																																													BgL_modz00_9508
																																																														=
																																																														BgL_carzd26335zd2_2406;
																																																													BgL_argsz00_9509
																																																														=
																																																														BgL_arg2347z00_2410;
																																																													BgL_argsz00_1368
																																																														=
																																																														BgL_argsz00_9509;
																																																													BgL_modz00_1367
																																																														=
																																																														BgL_modz00_9508;
																																																													BgL_funz00_1366
																																																														=
																																																														BgL_funz00_9507;
																																																													goto
																																																														BgL_tagzd2278zd2_1369;
																																																												}
																																																											}
																																																										else
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2349z00_2411;
																																																												obj_t
																																																													BgL_arg2350z00_2412;
																																																												BgL_arg2349z00_2411
																																																													=
																																																													CAR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												BgL_arg2350z00_2412
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9515;
																																																													obj_t
																																																														BgL_funz00_9514;
																																																													BgL_funz00_9514
																																																														=
																																																														BgL_arg2349z00_2411;
																																																													BgL_argsz00_9515
																																																														=
																																																														BgL_arg2350z00_2412;
																																																													BgL_argsz00_1371
																																																														=
																																																														BgL_argsz00_9515;
																																																													BgL_funz00_1370
																																																														=
																																																														BgL_funz00_9514;
																																																													goto
																																																														BgL_tagzd2279zd2_1372;
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2353z00_2414;
																																																										obj_t
																																																											BgL_arg2354z00_2415;
																																																										BgL_arg2353z00_2414
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2354z00_2415
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9521;
																																																											obj_t
																																																												BgL_funz00_9520;
																																																											BgL_funz00_9520
																																																												=
																																																												BgL_arg2353z00_2414;
																																																											BgL_argsz00_9521
																																																												=
																																																												BgL_arg2354z00_2415;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9521;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9520;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2356z00_2416;
																																																								obj_t
																																																									BgL_arg2358z00_2417;
																																																								BgL_arg2356z00_2416
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2358z00_2417
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9527;
																																																									obj_t
																																																										BgL_funz00_9526;
																																																									BgL_funz00_9526
																																																										=
																																																										BgL_arg2356z00_2416;
																																																									BgL_argsz00_9527
																																																										=
																																																										BgL_arg2358z00_2417;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9527;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9526;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2359z00_2418;
																																																						obj_t
																																																							BgL_arg2360z00_2419;
																																																						BgL_arg2359z00_2418
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2360z00_2419
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9533;
																																																							obj_t
																																																								BgL_funz00_9532;
																																																							BgL_funz00_9532
																																																								=
																																																								BgL_arg2359z00_2418;
																																																							BgL_argsz00_9533
																																																								=
																																																								BgL_arg2360z00_2419;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9533;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9532;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2362z00_2420;
																																																				obj_t
																																																					BgL_arg2363z00_2421;
																																																				BgL_arg2362z00_2420
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2363z00_2421
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_9539;
																																																					obj_t
																																																						BgL_funz00_9538;
																																																					BgL_funz00_9538
																																																						=
																																																						BgL_arg2362z00_2420;
																																																					BgL_argsz00_9539
																																																						=
																																																						BgL_arg2363z00_2421;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_9539;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_9538;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2364z00_2422;
																																																		obj_t
																																																			BgL_arg2365z00_2423;
																																																		BgL_arg2364z00_2422
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg2365z00_2423
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_9545;
																																																			obj_t
																																																				BgL_funz00_9544;
																																																			BgL_funz00_9544
																																																				=
																																																				BgL_arg2364z00_2422;
																																																			BgL_argsz00_9545
																																																				=
																																																				BgL_arg2365z00_2423;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_9545;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_9544;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{
																																																obj_t
																																																	BgL_argsz00_9547;
																																																obj_t
																																																	BgL_funz00_9546;
																																																BgL_funz00_9546
																																																	=
																																																	BgL_carzd26309zd2_2395;
																																																BgL_argsz00_9547
																																																	=
																																																	BgL_cdrzd26099zd2_2322;
																																																BgL_argsz00_1364
																																																	=
																																																	BgL_argsz00_9547;
																																																BgL_funz00_1363
																																																	=
																																																	BgL_funz00_9546;
																																																goto
																																																	BgL_tagzd2277zd2_1365;
																																															}
																																													}
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 83 */
																																												if ((CAR(((obj_t) BgL_expz00_5)) == BGl_symbol3875z00zz__evcompilez00))
																																													{	/* Eval/evcompile.scm 83 */
																																														if (PAIRP(BgL_cdrzd26099zd2_2322))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_cdrzd26403zd2_2430;
																																																BgL_cdrzd26403zd2_2430
																																																	=
																																																	CDR
																																																	(BgL_cdrzd26099zd2_2322);
																																																if (PAIRP(BgL_cdrzd26403zd2_2430))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		if (NULLP(CDR(BgL_cdrzd26403zd2_2430)))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2375z00_2434;
																																																				obj_t
																																																					BgL_arg2376z00_2435;
																																																				BgL_arg2375z00_2434
																																																					=
																																																					CAR
																																																					(BgL_cdrzd26099zd2_2322);
																																																				BgL_arg2376z00_2435
																																																					=
																																																					CAR
																																																					(BgL_cdrzd26403zd2_2430);
																																																				{	/* Eval/evcompile.scm 297 */
																																																					obj_t
																																																						BgL_arg2762z00_5210;
																																																					{	/* Eval/evcompile.scm 65 */
																																																						obj_t
																																																							BgL__ortest_1065z00_5211;
																																																						BgL__ortest_1065z00_5211
																																																							=
																																																							BGl_getzd2sourcezd2locationz00zz__readerz00
																																																							(BgL_expz00_5);
																																																						if (CBOOL(BgL__ortest_1065z00_5211))
																																																							{	/* Eval/evcompile.scm 65 */
																																																								BgL_arg2762z00_5210
																																																									=
																																																									BgL__ortest_1065z00_5211;
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 65 */
																																																								BgL_arg2762z00_5210
																																																									=
																																																									BgL_locz00_10;
																																																							}
																																																					}
																																																					return
																																																						BGl_evcompilezd2letreczd2zz__evcompilez00
																																																						(BgL_arg2375z00_2434,
																																																						BgL_arg2376z00_2435,
																																																						BgL_envz00_6,
																																																						BgL_genvz00_7,
																																																						BgL_wherez00_8,
																																																						BgL_tailz00_9,
																																																						BgL_arg2762z00_5210,
																																																						BgL_lkpz00_11);
																																																				}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_carzd26414zd2_2436;
																																																				BgL_carzd26414zd2_2436
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				if (PAIRP(BgL_carzd26414zd2_2436))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_cdrzd26431zd2_2439;
																																																						BgL_cdrzd26431zd2_2439
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_carzd26414zd2_2436));
																																																						if ((CAR(((obj_t) BgL_carzd26414zd2_2436)) == BGl_symbol3833z00zz__evcompilez00))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								if (PAIRP(BgL_cdrzd26431zd2_2439))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_carzd26434zd2_2443;
																																																										obj_t
																																																											BgL_cdrzd26435zd2_2444;
																																																										BgL_carzd26434zd2_2443
																																																											=
																																																											CAR
																																																											(BgL_cdrzd26431zd2_2439);
																																																										BgL_cdrzd26435zd2_2444
																																																											=
																																																											CDR
																																																											(BgL_cdrzd26431zd2_2439);
																																																										if (SYMBOLP(BgL_carzd26434zd2_2443))
																																																											{	/* Eval/evcompile.scm 83 */
																																																												if (PAIRP(BgL_cdrzd26435zd2_2444))
																																																													{	/* Eval/evcompile.scm 83 */
																																																														obj_t
																																																															BgL_carzd26440zd2_2447;
																																																														BgL_carzd26440zd2_2447
																																																															=
																																																															CAR
																																																															(BgL_cdrzd26435zd2_2444);
																																																														if (SYMBOLP(BgL_carzd26440zd2_2447))
																																																															{	/* Eval/evcompile.scm 83 */
																																																																if (NULLP(CDR(BgL_cdrzd26435zd2_2444)))
																																																																	{	/* Eval/evcompile.scm 83 */
																																																																		obj_t
																																																																			BgL_arg2387z00_2451;
																																																																		BgL_arg2387z00_2451
																																																																			=
																																																																			CDR
																																																																			(
																																																																			((obj_t) BgL_expz00_5));
																																																																		{
																																																																			obj_t
																																																																				BgL_argsz00_9594;
																																																																			obj_t
																																																																				BgL_modz00_9593;
																																																																			obj_t
																																																																				BgL_funz00_9592;
																																																																			BgL_funz00_9592
																																																																				=
																																																																				BgL_carzd26434zd2_2443;
																																																																			BgL_modz00_9593
																																																																				=
																																																																				BgL_carzd26440zd2_2447;
																																																																			BgL_argsz00_9594
																																																																				=
																																																																				BgL_arg2387z00_2451;
																																																																			BgL_argsz00_1368
																																																																				=
																																																																				BgL_argsz00_9594;
																																																																			BgL_modz00_1367
																																																																				=
																																																																				BgL_modz00_9593;
																																																																			BgL_funz00_1366
																																																																				=
																																																																				BgL_funz00_9592;
																																																																			goto
																																																																				BgL_tagzd2278zd2_1369;
																																																																		}
																																																																	}
																																																																else
																																																																	{	/* Eval/evcompile.scm 83 */
																																																																		obj_t
																																																																			BgL_arg2388z00_2452;
																																																																		obj_t
																																																																			BgL_arg2389z00_2453;
																																																																		BgL_arg2388z00_2452
																																																																			=
																																																																			CAR
																																																																			(
																																																																			((obj_t) BgL_expz00_5));
																																																																		BgL_arg2389z00_2453
																																																																			=
																																																																			CDR
																																																																			(
																																																																			((obj_t) BgL_expz00_5));
																																																																		{
																																																																			obj_t
																																																																				BgL_argsz00_9600;
																																																																			obj_t
																																																																				BgL_funz00_9599;
																																																																			BgL_funz00_9599
																																																																				=
																																																																				BgL_arg2388z00_2452;
																																																																			BgL_argsz00_9600
																																																																				=
																																																																				BgL_arg2389z00_2453;
																																																																			BgL_argsz00_1371
																																																																				=
																																																																				BgL_argsz00_9600;
																																																																			BgL_funz00_1370
																																																																				=
																																																																				BgL_funz00_9599;
																																																																			goto
																																																																				BgL_tagzd2279zd2_1372;
																																																																		}
																																																																	}
																																																															}
																																																														else
																																																															{	/* Eval/evcompile.scm 83 */
																																																																obj_t
																																																																	BgL_arg2391z00_2455;
																																																																obj_t
																																																																	BgL_arg2393z00_2456;
																																																																BgL_arg2391z00_2455
																																																																	=
																																																																	CAR
																																																																	(
																																																																	((obj_t) BgL_expz00_5));
																																																																BgL_arg2393z00_2456
																																																																	=
																																																																	CDR
																																																																	(
																																																																	((obj_t) BgL_expz00_5));
																																																																{
																																																																	obj_t
																																																																		BgL_argsz00_9606;
																																																																	obj_t
																																																																		BgL_funz00_9605;
																																																																	BgL_funz00_9605
																																																																		=
																																																																		BgL_arg2391z00_2455;
																																																																	BgL_argsz00_9606
																																																																		=
																																																																		BgL_arg2393z00_2456;
																																																																	BgL_argsz00_1371
																																																																		=
																																																																		BgL_argsz00_9606;
																																																																	BgL_funz00_1370
																																																																		=
																																																																		BgL_funz00_9605;
																																																																	goto
																																																																		BgL_tagzd2279zd2_1372;
																																																																}
																																																															}
																																																													}
																																																												else
																																																													{	/* Eval/evcompile.scm 83 */
																																																														obj_t
																																																															BgL_arg2395z00_2457;
																																																														obj_t
																																																															BgL_arg2396z00_2458;
																																																														BgL_arg2395z00_2457
																																																															=
																																																															CAR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														BgL_arg2396z00_2458
																																																															=
																																																															CDR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														{
																																																															obj_t
																																																																BgL_argsz00_9612;
																																																															obj_t
																																																																BgL_funz00_9611;
																																																															BgL_funz00_9611
																																																																=
																																																																BgL_arg2395z00_2457;
																																																															BgL_argsz00_9612
																																																																=
																																																																BgL_arg2396z00_2458;
																																																															BgL_argsz00_1371
																																																																=
																																																																BgL_argsz00_9612;
																																																															BgL_funz00_1370
																																																																=
																																																																BgL_funz00_9611;
																																																															goto
																																																																BgL_tagzd2279zd2_1372;
																																																														}
																																																													}
																																																											}
																																																										else
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2397z00_2459;
																																																												obj_t
																																																													BgL_arg2398z00_2460;
																																																												BgL_arg2397z00_2459
																																																													=
																																																													CAR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												BgL_arg2398z00_2460
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9618;
																																																													obj_t
																																																														BgL_funz00_9617;
																																																													BgL_funz00_9617
																																																														=
																																																														BgL_arg2397z00_2459;
																																																													BgL_argsz00_9618
																																																														=
																																																														BgL_arg2398z00_2460;
																																																													BgL_argsz00_1371
																																																														=
																																																														BgL_argsz00_9618;
																																																													BgL_funz00_1370
																																																														=
																																																														BgL_funz00_9617;
																																																													goto
																																																														BgL_tagzd2279zd2_1372;
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2399z00_2461;
																																																										obj_t
																																																											BgL_arg2400z00_2462;
																																																										BgL_arg2399z00_2461
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2400z00_2462
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9624;
																																																											obj_t
																																																												BgL_funz00_9623;
																																																											BgL_funz00_9623
																																																												=
																																																												BgL_arg2399z00_2461;
																																																											BgL_argsz00_9624
																																																												=
																																																												BgL_arg2400z00_2462;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9624;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9623;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2402z00_2463;
																																																								obj_t
																																																									BgL_arg2404z00_2464;
																																																								BgL_arg2402z00_2463
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2404z00_2464
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9630;
																																																									obj_t
																																																										BgL_funz00_9629;
																																																									BgL_funz00_9629
																																																										=
																																																										BgL_arg2402z00_2463;
																																																									BgL_argsz00_9630
																																																										=
																																																										BgL_arg2404z00_2464;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9630;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9629;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2406z00_2466;
																																																						BgL_arg2406z00_2466
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9634;
																																																							obj_t
																																																								BgL_funz00_9633;
																																																							BgL_funz00_9633
																																																								=
																																																								BgL_carzd26414zd2_2436;
																																																							BgL_argsz00_9634
																																																								=
																																																								BgL_arg2406z00_2466;
																																																							BgL_argsz00_1364
																																																								=
																																																								BgL_argsz00_9634;
																																																							BgL_funz00_1363
																																																								=
																																																								BgL_funz00_9633;
																																																							goto
																																																								BgL_tagzd2277zd2_1365;
																																																						}
																																																					}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_carzd26501zd2_2468;
																																																		BgL_carzd26501zd2_2468
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		if (PAIRP(BgL_carzd26501zd2_2468))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_cdrzd26518zd2_2471;
																																																				BgL_cdrzd26518zd2_2471
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_carzd26501zd2_2468));
																																																				if ((CAR(((obj_t) BgL_carzd26501zd2_2468)) == BGl_symbol3833z00zz__evcompilez00))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						if (PAIRP(BgL_cdrzd26518zd2_2471))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_carzd26521zd2_2475;
																																																								obj_t
																																																									BgL_cdrzd26522zd2_2476;
																																																								BgL_carzd26521zd2_2475
																																																									=
																																																									CAR
																																																									(BgL_cdrzd26518zd2_2471);
																																																								BgL_cdrzd26522zd2_2476
																																																									=
																																																									CDR
																																																									(BgL_cdrzd26518zd2_2471);
																																																								if (SYMBOLP(BgL_carzd26521zd2_2475))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										if (PAIRP(BgL_cdrzd26522zd2_2476))
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_carzd26527zd2_2479;
																																																												BgL_carzd26527zd2_2479
																																																													=
																																																													CAR
																																																													(BgL_cdrzd26522zd2_2476);
																																																												if (SYMBOLP(BgL_carzd26527zd2_2479))
																																																													{	/* Eval/evcompile.scm 83 */
																																																														if (NULLP(CDR(BgL_cdrzd26522zd2_2476)))
																																																															{	/* Eval/evcompile.scm 83 */
																																																																obj_t
																																																																	BgL_arg2418z00_2483;
																																																																BgL_arg2418z00_2483
																																																																	=
																																																																	CDR
																																																																	(
																																																																	((obj_t) BgL_expz00_5));
																																																																{
																																																																	obj_t
																																																																		BgL_argsz00_9663;
																																																																	obj_t
																																																																		BgL_modz00_9662;
																																																																	obj_t
																																																																		BgL_funz00_9661;
																																																																	BgL_funz00_9661
																																																																		=
																																																																		BgL_carzd26521zd2_2475;
																																																																	BgL_modz00_9662
																																																																		=
																																																																		BgL_carzd26527zd2_2479;
																																																																	BgL_argsz00_9663
																																																																		=
																																																																		BgL_arg2418z00_2483;
																																																																	BgL_argsz00_1368
																																																																		=
																																																																		BgL_argsz00_9663;
																																																																	BgL_modz00_1367
																																																																		=
																																																																		BgL_modz00_9662;
																																																																	BgL_funz00_1366
																																																																		=
																																																																		BgL_funz00_9661;
																																																																	goto
																																																																		BgL_tagzd2278zd2_1369;
																																																																}
																																																															}
																																																														else
																																																															{	/* Eval/evcompile.scm 83 */
																																																																obj_t
																																																																	BgL_arg2419z00_2484;
																																																																obj_t
																																																																	BgL_arg2420z00_2485;
																																																																BgL_arg2419z00_2484
																																																																	=
																																																																	CAR
																																																																	(
																																																																	((obj_t) BgL_expz00_5));
																																																																BgL_arg2420z00_2485
																																																																	=
																																																																	CDR
																																																																	(
																																																																	((obj_t) BgL_expz00_5));
																																																																{
																																																																	obj_t
																																																																		BgL_argsz00_9669;
																																																																	obj_t
																																																																		BgL_funz00_9668;
																																																																	BgL_funz00_9668
																																																																		=
																																																																		BgL_arg2419z00_2484;
																																																																	BgL_argsz00_9669
																																																																		=
																																																																		BgL_arg2420z00_2485;
																																																																	BgL_argsz00_1371
																																																																		=
																																																																		BgL_argsz00_9669;
																																																																	BgL_funz00_1370
																																																																		=
																																																																		BgL_funz00_9668;
																																																																	goto
																																																																		BgL_tagzd2279zd2_1372;
																																																																}
																																																															}
																																																													}
																																																												else
																																																													{	/* Eval/evcompile.scm 83 */
																																																														obj_t
																																																															BgL_arg2424z00_2487;
																																																														obj_t
																																																															BgL_arg2427z00_2488;
																																																														BgL_arg2424z00_2487
																																																															=
																																																															CAR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														BgL_arg2427z00_2488
																																																															=
																																																															CDR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														{
																																																															obj_t
																																																																BgL_argsz00_9675;
																																																															obj_t
																																																																BgL_funz00_9674;
																																																															BgL_funz00_9674
																																																																=
																																																																BgL_arg2424z00_2487;
																																																															BgL_argsz00_9675
																																																																=
																																																																BgL_arg2427z00_2488;
																																																															BgL_argsz00_1371
																																																																=
																																																																BgL_argsz00_9675;
																																																															BgL_funz00_1370
																																																																=
																																																																BgL_funz00_9674;
																																																															goto
																																																																BgL_tagzd2279zd2_1372;
																																																														}
																																																													}
																																																											}
																																																										else
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2429z00_2489;
																																																												obj_t
																																																													BgL_arg2430z00_2490;
																																																												BgL_arg2429z00_2489
																																																													=
																																																													CAR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												BgL_arg2430z00_2490
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9681;
																																																													obj_t
																																																														BgL_funz00_9680;
																																																													BgL_funz00_9680
																																																														=
																																																														BgL_arg2429z00_2489;
																																																													BgL_argsz00_9681
																																																														=
																																																														BgL_arg2430z00_2490;
																																																													BgL_argsz00_1371
																																																														=
																																																														BgL_argsz00_9681;
																																																													BgL_funz00_1370
																																																														=
																																																														BgL_funz00_9680;
																																																													goto
																																																														BgL_tagzd2279zd2_1372;
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2433z00_2491;
																																																										obj_t
																																																											BgL_arg2436z00_2492;
																																																										BgL_arg2433z00_2491
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2436z00_2492
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9687;
																																																											obj_t
																																																												BgL_funz00_9686;
																																																											BgL_funz00_9686
																																																												=
																																																												BgL_arg2433z00_2491;
																																																											BgL_argsz00_9687
																																																												=
																																																												BgL_arg2436z00_2492;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9687;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9686;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2437z00_2493;
																																																								obj_t
																																																									BgL_arg2440z00_2494;
																																																								BgL_arg2437z00_2493
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2440z00_2494
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9693;
																																																									obj_t
																																																										BgL_funz00_9692;
																																																									BgL_funz00_9692
																																																										=
																																																										BgL_arg2437z00_2493;
																																																									BgL_argsz00_9693
																																																										=
																																																										BgL_arg2440z00_2494;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9693;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9692;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2441z00_2495;
																																																						obj_t
																																																							BgL_arg2442z00_2496;
																																																						BgL_arg2441z00_2495
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2442z00_2496
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9699;
																																																							obj_t
																																																								BgL_funz00_9698;
																																																							BgL_funz00_9698
																																																								=
																																																								BgL_arg2441z00_2495;
																																																							BgL_argsz00_9699
																																																								=
																																																								BgL_arg2442z00_2496;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9699;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9698;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2446z00_2498;
																																																				BgL_arg2446z00_2498
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_9703;
																																																					obj_t
																																																						BgL_funz00_9702;
																																																					BgL_funz00_9702
																																																						=
																																																						BgL_carzd26501zd2_2468;
																																																					BgL_argsz00_9703
																																																						=
																																																						BgL_arg2446z00_2498;
																																																					BgL_argsz00_1364
																																																						=
																																																						BgL_argsz00_9703;
																																																					BgL_funz00_1363
																																																						=
																																																						BgL_funz00_9702;
																																																					goto
																																																						BgL_tagzd2277zd2_1365;
																																																				}
																																																			}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_carzd26588zd2_2499;
																																																BgL_carzd26588zd2_2499
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																if (PAIRP(BgL_carzd26588zd2_2499))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_cdrzd26605zd2_2502;
																																																		BgL_cdrzd26605zd2_2502
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_carzd26588zd2_2499));
																																																		if ((CAR(((obj_t) BgL_carzd26588zd2_2499)) == BGl_symbol3833z00zz__evcompilez00))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				if (PAIRP(BgL_cdrzd26605zd2_2502))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_carzd26608zd2_2506;
																																																						obj_t
																																																							BgL_cdrzd26609zd2_2507;
																																																						BgL_carzd26608zd2_2506
																																																							=
																																																							CAR
																																																							(BgL_cdrzd26605zd2_2502);
																																																						BgL_cdrzd26609zd2_2507
																																																							=
																																																							CDR
																																																							(BgL_cdrzd26605zd2_2502);
																																																						if (SYMBOLP(BgL_carzd26608zd2_2506))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								if (PAIRP(BgL_cdrzd26609zd2_2507))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_carzd26614zd2_2510;
																																																										BgL_carzd26614zd2_2510
																																																											=
																																																											CAR
																																																											(BgL_cdrzd26609zd2_2507);
																																																										if (SYMBOLP(BgL_carzd26614zd2_2510))
																																																											{	/* Eval/evcompile.scm 83 */
																																																												if (NULLP(CDR(BgL_cdrzd26609zd2_2507)))
																																																													{	/* Eval/evcompile.scm 83 */
																																																														obj_t
																																																															BgL_arg2459z00_2514;
																																																														BgL_arg2459z00_2514
																																																															=
																																																															CDR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														{
																																																															obj_t
																																																																BgL_argsz00_9732;
																																																															obj_t
																																																																BgL_modz00_9731;
																																																															obj_t
																																																																BgL_funz00_9730;
																																																															BgL_funz00_9730
																																																																=
																																																																BgL_carzd26608zd2_2506;
																																																															BgL_modz00_9731
																																																																=
																																																																BgL_carzd26614zd2_2510;
																																																															BgL_argsz00_9732
																																																																=
																																																																BgL_arg2459z00_2514;
																																																															BgL_argsz00_1368
																																																																=
																																																																BgL_argsz00_9732;
																																																															BgL_modz00_1367
																																																																=
																																																																BgL_modz00_9731;
																																																															BgL_funz00_1366
																																																																=
																																																																BgL_funz00_9730;
																																																															goto
																																																																BgL_tagzd2278zd2_1369;
																																																														}
																																																													}
																																																												else
																																																													{	/* Eval/evcompile.scm 83 */
																																																														obj_t
																																																															BgL_arg2460z00_2515;
																																																														obj_t
																																																															BgL_arg2461z00_2516;
																																																														BgL_arg2460z00_2515
																																																															=
																																																															CAR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														BgL_arg2461z00_2516
																																																															=
																																																															CDR
																																																															(
																																																															((obj_t) BgL_expz00_5));
																																																														{
																																																															obj_t
																																																																BgL_argsz00_9738;
																																																															obj_t
																																																																BgL_funz00_9737;
																																																															BgL_funz00_9737
																																																																=
																																																																BgL_arg2460z00_2515;
																																																															BgL_argsz00_9738
																																																																=
																																																																BgL_arg2461z00_2516;
																																																															BgL_argsz00_1371
																																																																=
																																																																BgL_argsz00_9738;
																																																															BgL_funz00_1370
																																																																=
																																																																BgL_funz00_9737;
																																																															goto
																																																																BgL_tagzd2279zd2_1372;
																																																														}
																																																													}
																																																											}
																																																										else
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2463z00_2518;
																																																												obj_t
																																																													BgL_arg2465z00_2519;
																																																												BgL_arg2463z00_2518
																																																													=
																																																													CAR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												BgL_arg2465z00_2519
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9744;
																																																													obj_t
																																																														BgL_funz00_9743;
																																																													BgL_funz00_9743
																																																														=
																																																														BgL_arg2463z00_2518;
																																																													BgL_argsz00_9744
																																																														=
																																																														BgL_arg2465z00_2519;
																																																													BgL_argsz00_1371
																																																														=
																																																														BgL_argsz00_9744;
																																																													BgL_funz00_1370
																																																														=
																																																														BgL_funz00_9743;
																																																													goto
																																																														BgL_tagzd2279zd2_1372;
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2470z00_2520;
																																																										obj_t
																																																											BgL_arg2472z00_2521;
																																																										BgL_arg2470z00_2520
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2472z00_2521
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9750;
																																																											obj_t
																																																												BgL_funz00_9749;
																																																											BgL_funz00_9749
																																																												=
																																																												BgL_arg2470z00_2520;
																																																											BgL_argsz00_9750
																																																												=
																																																												BgL_arg2472z00_2521;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9750;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9749;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2473z00_2522;
																																																								obj_t
																																																									BgL_arg2474z00_2523;
																																																								BgL_arg2473z00_2522
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2474z00_2523
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9756;
																																																									obj_t
																																																										BgL_funz00_9755;
																																																									BgL_funz00_9755
																																																										=
																																																										BgL_arg2473z00_2522;
																																																									BgL_argsz00_9756
																																																										=
																																																										BgL_arg2474z00_2523;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9756;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9755;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2475z00_2524;
																																																						obj_t
																																																							BgL_arg2477z00_2525;
																																																						BgL_arg2475z00_2524
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2477z00_2525
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9762;
																																																							obj_t
																																																								BgL_funz00_9761;
																																																							BgL_funz00_9761
																																																								=
																																																								BgL_arg2475z00_2524;
																																																							BgL_argsz00_9762
																																																								=
																																																								BgL_arg2477z00_2525;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9762;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9761;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2478z00_2526;
																																																				obj_t
																																																					BgL_arg2479z00_2527;
																																																				BgL_arg2478z00_2526
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2479z00_2527
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_9768;
																																																					obj_t
																																																						BgL_funz00_9767;
																																																					BgL_funz00_9767
																																																						=
																																																						BgL_arg2478z00_2526;
																																																					BgL_argsz00_9768
																																																						=
																																																						BgL_arg2479z00_2527;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_9768;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_9767;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2481z00_2529;
																																																		BgL_arg2481z00_2529
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_9772;
																																																			obj_t
																																																				BgL_funz00_9771;
																																																			BgL_funz00_9771
																																																				=
																																																				BgL_carzd26588zd2_2499;
																																																			BgL_argsz00_9772
																																																				=
																																																				BgL_arg2481z00_2529;
																																																			BgL_argsz00_1364
																																																				=
																																																				BgL_argsz00_9772;
																																																			BgL_funz00_1363
																																																				=
																																																				BgL_funz00_9771;
																																																			goto
																																																				BgL_tagzd2277zd2_1365;
																																																		}
																																																	}
																																															}
																																													}
																																												else
																																													{	/* Eval/evcompile.scm 83 */
																																														obj_t
																																															BgL_carzd26675zd2_2530;
																																														BgL_carzd26675zd2_2530
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_expz00_5));
																																														if (PAIRP(BgL_carzd26675zd2_2530))
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_cdrzd26692zd2_2533;
																																																BgL_cdrzd26692zd2_2533
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_carzd26675zd2_2530));
																																																if ((CAR(((obj_t) BgL_carzd26675zd2_2530)) == BGl_symbol3833z00zz__evcompilez00))
																																																	{	/* Eval/evcompile.scm 83 */
																																																		if (PAIRP(BgL_cdrzd26692zd2_2533))
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_carzd26695zd2_2537;
																																																				obj_t
																																																					BgL_cdrzd26696zd2_2538;
																																																				BgL_carzd26695zd2_2537
																																																					=
																																																					CAR
																																																					(BgL_cdrzd26692zd2_2533);
																																																				BgL_cdrzd26696zd2_2538
																																																					=
																																																					CDR
																																																					(BgL_cdrzd26692zd2_2533);
																																																				if (SYMBOLP(BgL_carzd26695zd2_2537))
																																																					{	/* Eval/evcompile.scm 83 */
																																																						if (PAIRP(BgL_cdrzd26696zd2_2538))
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_carzd26701zd2_2541;
																																																								BgL_carzd26701zd2_2541
																																																									=
																																																									CAR
																																																									(BgL_cdrzd26696zd2_2538);
																																																								if (SYMBOLP(BgL_carzd26701zd2_2541))
																																																									{	/* Eval/evcompile.scm 83 */
																																																										if (NULLP(CDR(BgL_cdrzd26696zd2_2538)))
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2492z00_2545;
																																																												BgL_arg2492z00_2545
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9801;
																																																													obj_t
																																																														BgL_modz00_9800;
																																																													obj_t
																																																														BgL_funz00_9799;
																																																													BgL_funz00_9799
																																																														=
																																																														BgL_carzd26695zd2_2537;
																																																													BgL_modz00_9800
																																																														=
																																																														BgL_carzd26701zd2_2541;
																																																													BgL_argsz00_9801
																																																														=
																																																														BgL_arg2492z00_2545;
																																																													BgL_argsz00_1368
																																																														=
																																																														BgL_argsz00_9801;
																																																													BgL_modz00_1367
																																																														=
																																																														BgL_modz00_9800;
																																																													BgL_funz00_1366
																																																														=
																																																														BgL_funz00_9799;
																																																													goto
																																																														BgL_tagzd2278zd2_1369;
																																																												}
																																																											}
																																																										else
																																																											{	/* Eval/evcompile.scm 83 */
																																																												obj_t
																																																													BgL_arg2493z00_2546;
																																																												obj_t
																																																													BgL_arg2496z00_2547;
																																																												BgL_arg2493z00_2546
																																																													=
																																																													CAR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												BgL_arg2496z00_2547
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_expz00_5));
																																																												{
																																																													obj_t
																																																														BgL_argsz00_9807;
																																																													obj_t
																																																														BgL_funz00_9806;
																																																													BgL_funz00_9806
																																																														=
																																																														BgL_arg2493z00_2546;
																																																													BgL_argsz00_9807
																																																														=
																																																														BgL_arg2496z00_2547;
																																																													BgL_argsz00_1371
																																																														=
																																																														BgL_argsz00_9807;
																																																													BgL_funz00_1370
																																																														=
																																																														BgL_funz00_9806;
																																																													goto
																																																														BgL_tagzd2279zd2_1372;
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Eval/evcompile.scm 83 */
																																																										obj_t
																																																											BgL_arg2499z00_2549;
																																																										obj_t
																																																											BgL_arg2500z00_2550;
																																																										BgL_arg2499z00_2549
																																																											=
																																																											CAR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										BgL_arg2500z00_2550
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_expz00_5));
																																																										{
																																																											obj_t
																																																												BgL_argsz00_9813;
																																																											obj_t
																																																												BgL_funz00_9812;
																																																											BgL_funz00_9812
																																																												=
																																																												BgL_arg2499z00_2549;
																																																											BgL_argsz00_9813
																																																												=
																																																												BgL_arg2500z00_2550;
																																																											BgL_argsz00_1371
																																																												=
																																																												BgL_argsz00_9813;
																																																											BgL_funz00_1370
																																																												=
																																																												BgL_funz00_9812;
																																																											goto
																																																												BgL_tagzd2279zd2_1372;
																																																										}
																																																									}
																																																							}
																																																						else
																																																							{	/* Eval/evcompile.scm 83 */
																																																								obj_t
																																																									BgL_arg2501z00_2551;
																																																								obj_t
																																																									BgL_arg2502z00_2552;
																																																								BgL_arg2501z00_2551
																																																									=
																																																									CAR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								BgL_arg2502z00_2552
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_expz00_5));
																																																								{
																																																									obj_t
																																																										BgL_argsz00_9819;
																																																									obj_t
																																																										BgL_funz00_9818;
																																																									BgL_funz00_9818
																																																										=
																																																										BgL_arg2501z00_2551;
																																																									BgL_argsz00_9819
																																																										=
																																																										BgL_arg2502z00_2552;
																																																									BgL_argsz00_1371
																																																										=
																																																										BgL_argsz00_9819;
																																																									BgL_funz00_1370
																																																										=
																																																										BgL_funz00_9818;
																																																									goto
																																																										BgL_tagzd2279zd2_1372;
																																																								}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evcompile.scm 83 */
																																																						obj_t
																																																							BgL_arg2504z00_2553;
																																																						obj_t
																																																							BgL_arg2506z00_2554;
																																																						BgL_arg2504z00_2553
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						BgL_arg2506z00_2554
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_expz00_5));
																																																						{
																																																							obj_t
																																																								BgL_argsz00_9825;
																																																							obj_t
																																																								BgL_funz00_9824;
																																																							BgL_funz00_9824
																																																								=
																																																								BgL_arg2504z00_2553;
																																																							BgL_argsz00_9825
																																																								=
																																																								BgL_arg2506z00_2554;
																																																							BgL_argsz00_1371
																																																								=
																																																								BgL_argsz00_9825;
																																																							BgL_funz00_1370
																																																								=
																																																								BgL_funz00_9824;
																																																							goto
																																																								BgL_tagzd2279zd2_1372;
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evcompile.scm 83 */
																																																				obj_t
																																																					BgL_arg2507z00_2555;
																																																				obj_t
																																																					BgL_arg2508z00_2556;
																																																				BgL_arg2507z00_2555
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				BgL_arg2508z00_2556
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_expz00_5));
																																																				{
																																																					obj_t
																																																						BgL_argsz00_9831;
																																																					obj_t
																																																						BgL_funz00_9830;
																																																					BgL_funz00_9830
																																																						=
																																																						BgL_arg2507z00_2555;
																																																					BgL_argsz00_9831
																																																						=
																																																						BgL_arg2508z00_2556;
																																																					BgL_argsz00_1371
																																																						=
																																																						BgL_argsz00_9831;
																																																					BgL_funz00_1370
																																																						=
																																																						BgL_funz00_9830;
																																																					goto
																																																						BgL_tagzd2279zd2_1372;
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evcompile.scm 83 */
																																																		obj_t
																																																			BgL_arg2509z00_2557;
																																																		obj_t
																																																			BgL_arg2510z00_2558;
																																																		BgL_arg2509z00_2557
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		BgL_arg2510z00_2558
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_expz00_5));
																																																		{
																																																			obj_t
																																																				BgL_argsz00_9837;
																																																			obj_t
																																																				BgL_funz00_9836;
																																																			BgL_funz00_9836
																																																				=
																																																				BgL_arg2509z00_2557;
																																																			BgL_argsz00_9837
																																																				=
																																																				BgL_arg2510z00_2558;
																																																			BgL_argsz00_1371
																																																				=
																																																				BgL_argsz00_9837;
																																																			BgL_funz00_1370
																																																				=
																																																				BgL_funz00_9836;
																																																			goto
																																																				BgL_tagzd2279zd2_1372;
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evcompile.scm 83 */
																																																obj_t
																																																	BgL_arg2512z00_2560;
																																																BgL_arg2512z00_2560
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_expz00_5));
																																																{
																																																	obj_t
																																																		BgL_argsz00_9841;
																																																	obj_t
																																																		BgL_funz00_9840;
																																																	BgL_funz00_9840
																																																		=
																																																		BgL_carzd26675zd2_2530;
																																																	BgL_argsz00_9841
																																																		=
																																																		BgL_arg2512z00_2560;
																																																	BgL_argsz00_1364
																																																		=
																																																		BgL_argsz00_9841;
																																																	BgL_funz00_1363
																																																		=
																																																		BgL_funz00_9840;
																																																	goto
																																																		BgL_tagzd2277zd2_1365;
																																																}
																																															}
																																													}
																																											}
																																									}
																																							}
																																					}
																																			}
																																	}
																															}
																													}
																											}
																									}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
							}
						else
							{	/* Eval/evcompile.scm 83 */
								BgL_atomz00_1309 = BgL_expz00_5;
								if (SYMBOLP(BgL_atomz00_1309))
									{	/* Eval/evcompile.scm 97 */
										return
											BGl_evcompilezd2refzd2zz__evcompilez00(1L,
											BGl_variablez00zz__evcompilez00(BgL_locz00_10,
												BgL_atomz00_1309, BgL_envz00_6, BgL_genvz00_7),
											BgL_genvz00_7, BgL_locz00_10, BgL_lkpz00_11);
									}
								else
									{	/* Eval/evcompile.scm 99 */
										bool_t BgL_test4335z00_9846;

										if (PROCEDUREP(BgL_atomz00_1309))
											{	/* Eval/evcompile.scm 99 */
												if (BgL_lkpz00_11)
													{	/* Eval/evcompile.scm 99 */
														BgL_test4335z00_9846 = ((bool_t) 0);
													}
												else
													{	/* Eval/evcompile.scm 99 */
														BgL_test4335z00_9846 = ((bool_t) 1);
													}
											}
										else
											{	/* Eval/evcompile.scm 99 */
												BgL_test4335z00_9846 = ((bool_t) 0);
											}
										if (BgL_test4335z00_9846)
											{	/* Eval/evcompile.scm 99 */
												return
													BGl_evcompilezd2errorzd2zz__evcompilez00
													(BgL_locz00_10, BGl_string3824z00zz__evcompilez00,
													BGl_string3826z00zz__evcompilez00, BgL_atomz00_1309);
											}
										else
											{	/* Eval/evcompile.scm 99 */
												if (VECTORP(BgL_atomz00_1309))
													{	/* Eval/evcompile.scm 346 */
														obj_t BgL_v1158z00_4192;

														BgL_v1158z00_4192 = create_vector(3L);
														VECTOR_SET(BgL_v1158z00_4192, 0L, BINT((-1L)));
														VECTOR_SET(BgL_v1158z00_4192, 1L, BgL_locz00_10);
														VECTOR_SET(BgL_v1158z00_4192, 2L, BgL_atomz00_1309);
														return BgL_v1158z00_4192;
													}
												else
													{	/* Eval/evcompile.scm 345 */
														return BgL_atomz00_1309;
													}
											}
									}
							}
					}
			}
		}

	}



/* &evcompile */
	obj_t BGl_z62evcompilez62zz__evcompilez00(obj_t BgL_envz00_6662,
		obj_t BgL_expz00_6663, obj_t BgL_envz00_6664, obj_t BgL_genvz00_6665,
		obj_t BgL_wherez00_6666, obj_t BgL_tailz00_6667, obj_t BgL_locz00_6668,
		obj_t BgL_lkpz00_6669, obj_t BgL_toplevelpz00_6670)
	{
		{	/* Eval/evcompile.scm 79 */
			{	/* Eval/evcompile.scm 83 */
				obj_t BgL_auxz00_9865;
				obj_t BgL_auxz00_9858;

				if (SYMBOLP(BgL_wherez00_6666))
					{	/* Eval/evcompile.scm 83 */
						BgL_auxz00_9865 = BgL_wherez00_6666;
					}
				else
					{
						obj_t BgL_auxz00_9868;

						BgL_auxz00_9868 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3877z00zz__evcompilez00,
							BINT(3006L), BGl_string3878z00zz__evcompilez00,
							BGl_string3880z00zz__evcompilez00, BgL_wherez00_6666);
						FAILURE(BgL_auxz00_9868, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_envz00_6664))
					{	/* Eval/evcompile.scm 83 */
						BgL_auxz00_9858 = BgL_envz00_6664;
					}
				else
					{
						obj_t BgL_auxz00_9861;

						BgL_auxz00_9861 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3877z00zz__evcompilez00,
							BINT(3006L), BGl_string3878z00zz__evcompilez00,
							BGl_string3879z00zz__evcompilez00, BgL_envz00_6664);
						FAILURE(BgL_auxz00_9861, BFALSE, BFALSE);
					}
				return
					BGl_evcompilez00zz__evcompilez00(BgL_expz00_6663, BgL_auxz00_9858,
					BgL_genvz00_6665, BgL_auxz00_9865, CBOOL(BgL_tailz00_6667),
					BgL_locz00_6668, CBOOL(BgL_lkpz00_6669),
					CBOOL(BgL_toplevelpz00_6670));
			}
		}

	}



/* &<@anonymous:2755> */
	obj_t BGl_z62zc3z04anonymousza32755ze3ze5zz__evcompilez00(obj_t
		BgL_envz00_6671, obj_t BgL_procz00_6673, obj_t BgL_msgz00_6674,
		obj_t BgL_objz00_6675)
	{
		{	/* Eval/evcompile.scm 274 */
			return
				BGl_evcompilezd2errorzd2zz__evcompilez00(PROCEDURE_REF(BgL_envz00_6671,
					(int) (0L)), BgL_procz00_6673, BgL_msgz00_6674, BgL_objz00_6675);
		}

	}



/* &<@anonymous:2757> */
	obj_t BGl_z62zc3z04anonymousza32757ze3ze5zz__evcompilez00(obj_t
		BgL_envz00_6676, obj_t BgL_procz00_6678, obj_t BgL_msgz00_6679,
		obj_t BgL_objz00_6680)
	{
		{	/* Eval/evcompile.scm 266 */
			return
				BGl_evcompilezd2errorzd2zz__evcompilez00(PROCEDURE_REF(BgL_envz00_6676,
					(int) (0L)), BgL_procz00_6678, BgL_msgz00_6679, BgL_objz00_6680);
		}

	}



/* evcompile-cnst */
	obj_t BGl_evcompilezd2cnstzd2zz__evcompilez00(obj_t BgL_cnstz00_13,
		obj_t BgL_locz00_14)
	{
		{	/* Eval/evcompile.scm 343 */
			if (VECTORP(BgL_cnstz00_13))
				{	/* Eval/evcompile.scm 346 */
					obj_t BgL_v1158z00_5301;

					BgL_v1158z00_5301 = create_vector(3L);
					VECTOR_SET(BgL_v1158z00_5301, 0L, BINT((-1L)));
					VECTOR_SET(BgL_v1158z00_5301, 1L, BgL_locz00_14);
					VECTOR_SET(BgL_v1158z00_5301, 2L, BgL_cnstz00_13);
					return BgL_v1158z00_5301;
				}
			else
				{	/* Eval/evcompile.scm 345 */
					return BgL_cnstz00_13;
				}
		}

	}



/* evcompile-ref */
	obj_t BGl_evcompilezd2refzd2zz__evcompilez00(long BgL_wherez00_16,
		obj_t BgL_variablez00_17, obj_t BgL_modz00_18, obj_t BgL_locz00_19,
		bool_t BgL_lkpz00_20)
	{
		{	/* Eval/evcompile.scm 359 */
			{	/* Eval/evcompile.scm 361 */
				bool_t BgL_test4342z00_9889;

				if (VECTORP(BgL_variablez00_17))
					{	/* Eval/evcompile.scm 361 */
						BgL_test4342z00_9889 = (VECTOR_LENGTH(BgL_variablez00_17) == 5L);
					}
				else
					{	/* Eval/evcompile.scm 361 */
						BgL_test4342z00_9889 = ((bool_t) 0);
					}
				if (BgL_test4342z00_9889)
					{	/* Eval/evcompile.scm 361 */
						if (BgL_lkpz00_20)
							{	/* Eval/evcompile.scm 363 */
								obj_t BgL_v1159z00_2906;

								BgL_v1159z00_2906 = create_vector(3L);
								{	/* Eval/evcompile.scm 363 */
									obj_t BgL_arg2788z00_2907;

									{	/* Eval/evcompile.scm 363 */
										bool_t BgL_test4345z00_9896;

										{	/* Eval/evcompile.scm 363 */
											int BgL_arg2812z00_2910;

											BgL_arg2812z00_2910 =
												CINT(VECTOR_REF(BgL_variablez00_17, 0L));
											BgL_test4345z00_9896 =
												(BINT(BgL_arg2812z00_2910) == BINT(1L));
										}
										if (BgL_test4345z00_9896)
											{	/* Eval/evcompile.scm 363 */
												BgL_arg2788z00_2907 = BINT(5L);
											}
										else
											{	/* Eval/evcompile.scm 363 */
												BgL_arg2788z00_2907 = BINT(6L);
											}
									}
									VECTOR_SET(BgL_v1159z00_2906, 0L, BgL_arg2788z00_2907);
								}
								VECTOR_SET(BgL_v1159z00_2906, 1L, BgL_locz00_19);
								VECTOR_SET(BgL_v1159z00_2906, 2L, BgL_variablez00_17);
								return BgL_v1159z00_2906;
							}
						else
							{	/* Eval/evcompile.scm 366 */
								obj_t BgL_v1160z00_2911;

								BgL_v1160z00_2911 = create_vector(4L);
								{	/* Eval/evcompile.scm 366 */
									obj_t BgL_arg2813z00_2912;

									{	/* Eval/evcompile.scm 366 */
										bool_t BgL_test4346z00_9908;

										{	/* Eval/evcompile.scm 366 */
											int BgL_arg2819z00_2915;

											BgL_arg2819z00_2915 =
												CINT(VECTOR_REF(BgL_variablez00_17, 0L));
											BgL_test4346z00_9908 =
												(BINT(BgL_arg2819z00_2915) == BINT(1L));
										}
										if (BgL_test4346z00_9908)
											{	/* Eval/evcompile.scm 366 */
												BgL_arg2813z00_2912 = BINT(145L);
											}
										else
											{	/* Eval/evcompile.scm 366 */
												BgL_arg2813z00_2912 = BINT(146L);
											}
									}
									VECTOR_SET(BgL_v1160z00_2911, 0L, BgL_arg2813z00_2912);
								}
								VECTOR_SET(BgL_v1160z00_2911, 1L, BgL_locz00_19);
								VECTOR_SET(BgL_v1160z00_2911, 2L,
									VECTOR_REF(BgL_variablez00_17, 1L));
								{	/* Eval/evcompile.scm 369 */
									obj_t BgL_arg2821z00_2917;

									BgL_arg2821z00_2917 = BGL_MODULE();
									VECTOR_SET(BgL_v1160z00_2911, 3L, BgL_arg2821z00_2917);
								}
								return BgL_v1160z00_2911;
							}
					}
				else
					{	/* Eval/evcompile.scm 370 */
						bool_t BgL_test4347z00_9922;

						if (PAIRP(BgL_variablez00_17))
							{	/* Eval/evcompile.scm 807 */
								BgL_test4347z00_9922 =
									(CAR(BgL_variablez00_17) ==
									BGl_symbol3840z00zz__evcompilez00);
							}
						else
							{	/* Eval/evcompile.scm 807 */
								BgL_test4347z00_9922 = ((bool_t) 0);
							}
						if (BgL_test4347z00_9922)
							{	/* Eval/evcompile.scm 371 */
								obj_t BgL_namez00_2919;

								BgL_namez00_2919 = CDR(BgL_variablez00_17);
								if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_modz00_18))
									{	/* Eval/evcompile.scm 373 */
										obj_t BgL_gz00_2921;

										{	/* Eval/evcompile.scm 373 */
											obj_t BgL_v1311z00_5333;

											BgL_v1311z00_5333 = create_vector(5L);
											VECTOR_SET(BgL_v1311z00_5333, 0L, BINT(2L));
											VECTOR_SET(BgL_v1311z00_5333, 1L,
												((obj_t) BgL_namez00_2919));
											VECTOR_SET(BgL_v1311z00_5333, 2L, BUNSPEC);
											VECTOR_SET(BgL_v1311z00_5333, 3L, BgL_modz00_18);
											VECTOR_SET(BgL_v1311z00_5333, 4L, BgL_locz00_19);
											BgL_gz00_2921 = BgL_v1311z00_5333;
										}
										VECTOR_SET(BgL_gz00_2921, 0L, BINT(3L));
										BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
											(BgL_modz00_18, BgL_namez00_2919, BgL_gz00_2921,
											BgL_locz00_19);
									}
								else
									{	/* Eval/evcompile.scm 372 */
										BFALSE;
									}
								{	/* Eval/evcompile.scm 376 */
									obj_t BgL_v1161z00_2922;

									BgL_v1161z00_2922 = create_vector(4L);
									VECTOR_SET(BgL_v1161z00_2922, 0L, BINT(7L));
									VECTOR_SET(BgL_v1161z00_2922, 1L, BgL_locz00_19);
									VECTOR_SET(BgL_v1161z00_2922, 2L, BgL_namez00_2919);
									{	/* Eval/evcompile.scm 376 */
										obj_t BgL_arg2824z00_2923;

										BgL_arg2824z00_2923 = BGL_MODULE();
										VECTOR_SET(BgL_v1161z00_2922, 3L, BgL_arg2824z00_2923);
									}
									return BgL_v1161z00_2922;
								}
							}
						else
							{

								if (INTEGERP(BgL_variablez00_17))
									{	/* Eval/evcompile.scm 378 */
										switch ((long) CINT(BgL_variablez00_17))
											{
											case 0L:
											case 1L:
											case 2L:
											case 3L:

												{	/* Eval/evcompile.scm 380 */
													obj_t BgL_v1163z00_2926;

													BgL_v1163z00_2926 = create_vector(2L);
													VECTOR_SET(BgL_v1163z00_2926, 0L, BgL_variablez00_17);
													VECTOR_SET(BgL_v1163z00_2926, 1L, BgL_locz00_19);
													return BgL_v1163z00_2926;
												}
												break;
											default:
											BgL_case_else1068z00_2924:
												{	/* Eval/evcompile.scm 382 */
													obj_t BgL_v1162z00_2927;

													BgL_v1162z00_2927 = create_vector(3L);
													VECTOR_SET(BgL_v1162z00_2927, 0L, BINT(4L));
													VECTOR_SET(BgL_v1162z00_2927, 1L, BgL_locz00_19);
													VECTOR_SET(BgL_v1162z00_2927, 2L, BgL_variablez00_17);
													return BgL_v1162z00_2927;
												}
											}
									}
								else
									{	/* Eval/evcompile.scm 378 */
										goto BgL_case_else1068z00_2924;
									}
							}
					}
			}
		}

	}



/* evcompile-set */
	obj_t BGl_evcompilezd2setzd2zz__evcompilez00(obj_t BgL_varz00_21,
		obj_t BgL_valuez00_22, obj_t BgL_modz00_23, obj_t BgL_locz00_24)
	{
		{	/* Eval/evcompile.scm 387 */
			{	/* Eval/evcompile.scm 389 */
				bool_t BgL_test4351z00_9960;

				if (VECTORP(BgL_varz00_21))
					{	/* Eval/evcompile.scm 389 */
						BgL_test4351z00_9960 = (VECTOR_LENGTH(BgL_varz00_21) == 5L);
					}
				else
					{	/* Eval/evcompile.scm 389 */
						BgL_test4351z00_9960 = ((bool_t) 0);
					}
				if (BgL_test4351z00_9960)
					{	/* Eval/evcompile.scm 390 */
						bool_t BgL_test4353z00_9965;

						{	/* Eval/evcompile.scm 390 */
							bool_t BgL_test4354z00_9966;

							{	/* Eval/evcompile.scm 390 */
								int BgL_arg2837z00_2943;

								BgL_arg2837z00_2943 = CINT(VECTOR_REF(BgL_varz00_21, 0L));
								BgL_test4354z00_9966 = (BINT(BgL_arg2837z00_2943) == BINT(0L));
							}
							if (BgL_test4354z00_9966)
								{	/* Eval/evcompile.scm 390 */
									BgL_test4353z00_9965 = ((bool_t) 1);
								}
							else
								{	/* Eval/evcompile.scm 391 */
									bool_t BgL_test4355z00_9972;

									{	/* Eval/evcompile.scm 391 */
										int BgL_arg2836z00_2942;

										BgL_arg2836z00_2942 = CINT(VECTOR_REF(BgL_varz00_21, 0L));
										BgL_test4355z00_9972 =
											(BINT(BgL_arg2836z00_2942) == BINT(4L));
									}
									if (BgL_test4355z00_9972)
										{	/* Eval/evcompile.scm 391 */
											BgL_test4353z00_9965 = ((bool_t) 1);
										}
									else
										{	/* Eval/evcompile.scm 392 */
											int BgL_arg2835z00_2941;

											BgL_arg2835z00_2941 = CINT(VECTOR_REF(BgL_varz00_21, 0L));
											BgL_test4353z00_9965 =
												(BINT(BgL_arg2835z00_2941) == BINT(5L));
						}}}
						if (BgL_test4353z00_9965)
							{	/* Eval/evcompile.scm 390 */
								BGL_TAIL return
									BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_24,
									BGl_string3824z00zz__evcompilez00,
									BGl_string3881z00zz__evcompilez00, VECTOR_REF(BgL_varz00_21,
										1L));
							}
						else
							{	/* Eval/evcompile.scm 395 */
								obj_t BgL_v1164z00_2938;

								BgL_v1164z00_2938 = create_vector(4L);
								VECTOR_SET(BgL_v1164z00_2938, 0L, BINT(8L));
								VECTOR_SET(BgL_v1164z00_2938, 1L, BgL_locz00_24);
								VECTOR_SET(BgL_v1164z00_2938, 2L, BgL_varz00_21);
								VECTOR_SET(BgL_v1164z00_2938, 3L, BgL_valuez00_22);
								return BgL_v1164z00_2938;
							}
					}
				else
					{	/* Eval/evcompile.scm 396 */
						bool_t BgL_test4356z00_9991;

						if (PAIRP(BgL_varz00_21))
							{	/* Eval/evcompile.scm 807 */
								BgL_test4356z00_9991 =
									(CAR(BgL_varz00_21) == BGl_symbol3840z00zz__evcompilez00);
							}
						else
							{	/* Eval/evcompile.scm 807 */
								BgL_test4356z00_9991 = ((bool_t) 0);
							}
						if (BgL_test4356z00_9991)
							{	/* Eval/evcompile.scm 397 */
								obj_t BgL_namez00_2945;

								BgL_namez00_2945 = CDR(BgL_varz00_21);
								if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_modz00_23))
									{	/* Eval/evcompile.scm 399 */
										obj_t BgL_gz00_2947;

										{	/* Eval/evcompile.scm 399 */
											obj_t BgL_v1311z00_5374;

											BgL_v1311z00_5374 = create_vector(5L);
											VECTOR_SET(BgL_v1311z00_5374, 0L, BINT(2L));
											VECTOR_SET(BgL_v1311z00_5374, 1L,
												((obj_t) BgL_namez00_2945));
											VECTOR_SET(BgL_v1311z00_5374, 2L, BUNSPEC);
											VECTOR_SET(BgL_v1311z00_5374, 3L, BgL_modz00_23);
											VECTOR_SET(BgL_v1311z00_5374, 4L, BgL_locz00_24);
											BgL_gz00_2947 = BgL_v1311z00_5374;
										}
										VECTOR_SET(BgL_gz00_2947, 0L, BINT(3L));
										BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
											(BgL_modz00_23, BgL_namez00_2945, BgL_gz00_2947,
											BgL_locz00_24);
									}
								else
									{	/* Eval/evcompile.scm 398 */
										BFALSE;
									}
								{	/* Eval/evcompile.scm 402 */
									obj_t BgL_v1165z00_2948;

									BgL_v1165z00_2948 = create_vector(5L);
									VECTOR_SET(BgL_v1165z00_2948, 0L, BINT(9L));
									VECTOR_SET(BgL_v1165z00_2948, 1L, BgL_locz00_24);
									VECTOR_SET(BgL_v1165z00_2948, 2L, BgL_namez00_2945);
									VECTOR_SET(BgL_v1165z00_2948, 3L, BgL_valuez00_22);
									{	/* Eval/evcompile.scm 402 */
										obj_t BgL_arg2840z00_2949;

										BgL_arg2840z00_2949 = BGL_MODULE();
										VECTOR_SET(BgL_v1165z00_2948, 4L, BgL_arg2840z00_2949);
									}
									return BgL_v1165z00_2948;
								}
							}
						else
							{

								if (INTEGERP(BgL_varz00_21))
									{	/* Eval/evcompile.scm 404 */
										switch ((long) CINT(BgL_varz00_21))
											{
											case 0L:
											case 1L:
											case 2L:
											case 3L:

												{	/* Eval/evcompile.scm 406 */
													obj_t BgL_v1167z00_2952;

													BgL_v1167z00_2952 = create_vector(3L);
													{	/* Eval/evcompile.scm 406 */
														long BgL_arg2841z00_2953;

														BgL_arg2841z00_2953 =
															(10L + (long) CINT(BgL_varz00_21));
														VECTOR_SET(BgL_v1167z00_2952, 0L,
															BINT(BgL_arg2841z00_2953));
													}
													VECTOR_SET(BgL_v1167z00_2952, 1L, BgL_locz00_24);
													VECTOR_SET(BgL_v1167z00_2952, 2L, BgL_valuez00_22);
													return BgL_v1167z00_2952;
												}
												break;
											default:
											BgL_case_else1070z00_2950:
												{	/* Eval/evcompile.scm 408 */
													obj_t BgL_v1166z00_2954;

													BgL_v1166z00_2954 = create_vector(4L);
													VECTOR_SET(BgL_v1166z00_2954, 0L, BINT(14L));
													VECTOR_SET(BgL_v1166z00_2954, 1L, BgL_locz00_24);
													VECTOR_SET(BgL_v1166z00_2954, 2L, BgL_varz00_21);
													VECTOR_SET(BgL_v1166z00_2954, 3L, BgL_valuez00_22);
													return BgL_v1166z00_2954;
												}
											}
									}
								else
									{	/* Eval/evcompile.scm 404 */
										goto BgL_case_else1070z00_2950;
									}
							}
					}
			}
		}

	}



/* evcompile-or */
	obj_t BGl_evcompilezd2orzd2zz__evcompilez00(obj_t BgL_bodyz00_29,
		obj_t BgL_envz00_30, obj_t BgL_genvz00_31, obj_t BgL_wherez00_32,
		obj_t BgL_locz00_33, bool_t BgL_lkpz00_34)
	{
		{	/* Eval/evcompile.scm 419 */
			{	/* Eval/evcompile.scm 420 */
				obj_t BgL_asz00_5401;

				if (NULLP(BgL_bodyz00_29))
					{	/* Eval/evcompile.scm 420 */
						BgL_asz00_5401 = BNIL;
					}
				else
					{	/* Eval/evcompile.scm 420 */
						obj_t BgL_head1171z00_5404;

						BgL_head1171z00_5404 = MAKE_YOUNG_PAIR(BNIL, BNIL);
						{
							obj_t BgL_l1169z00_5406;
							obj_t BgL_tail1172z00_5407;

							BgL_l1169z00_5406 = BgL_bodyz00_29;
							BgL_tail1172z00_5407 = BgL_head1171z00_5404;
						BgL_zc3z04anonymousza32847ze3z87_5405:
							if (NULLP(BgL_l1169z00_5406))
								{	/* Eval/evcompile.scm 420 */
									BgL_asz00_5401 = CDR(BgL_head1171z00_5404);
								}
							else
								{	/* Eval/evcompile.scm 420 */
									obj_t BgL_newtail1173z00_5409;

									{	/* Eval/evcompile.scm 420 */
										obj_t BgL_arg2851z00_5410;

										{	/* Eval/evcompile.scm 420 */
											obj_t BgL_xz00_5411;

											BgL_xz00_5411 = CAR(((obj_t) BgL_l1169z00_5406));
											BgL_arg2851z00_5410 =
												BGl_evcompilez00zz__evcompilez00(BgL_xz00_5411,
												BgL_envz00_30, BgL_genvz00_31, BgL_wherez00_32,
												((bool_t) 0), BgL_locz00_33, BgL_lkpz00_34,
												((bool_t) 0));
										}
										BgL_newtail1173z00_5409 =
											MAKE_YOUNG_PAIR(BgL_arg2851z00_5410, BNIL);
									}
									SET_CDR(BgL_tail1172z00_5407, BgL_newtail1173z00_5409);
									{	/* Eval/evcompile.scm 420 */
										obj_t BgL_arg2849z00_5412;

										BgL_arg2849z00_5412 = CDR(((obj_t) BgL_l1169z00_5406));
										{
											obj_t BgL_tail1172z00_10049;
											obj_t BgL_l1169z00_10048;

											BgL_l1169z00_10048 = BgL_arg2849z00_5412;
											BgL_tail1172z00_10049 = BgL_newtail1173z00_5409;
											BgL_tail1172z00_5407 = BgL_tail1172z00_10049;
											BgL_l1169z00_5406 = BgL_l1169z00_10048;
											goto BgL_zc3z04anonymousza32847ze3z87_5405;
										}
									}
								}
						}
					}
				{	/* Eval/evcompile.scm 423 */
					obj_t BgL_runner2845z00_5413;

					{	/* Eval/evcompile.scm 423 */
						obj_t BgL_list2842z00_5414;

						{	/* Eval/evcompile.scm 423 */
							obj_t BgL_arg2844z00_5415;

							BgL_arg2844z00_5415 = MAKE_YOUNG_PAIR(BgL_asz00_5401, BNIL);
							BgL_list2842z00_5414 =
								MAKE_YOUNG_PAIR(BgL_locz00_33, BgL_arg2844z00_5415);
						}
						BgL_runner2845z00_5413 =
							BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BINT(67L),
							BgL_list2842z00_5414);
					}
					return
						BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
						(BgL_runner2845z00_5413);
				}
			}
		}

	}



/* evcompile-and */
	obj_t BGl_evcompilezd2andzd2zz__evcompilez00(obj_t BgL_bodyz00_35,
		obj_t BgL_envz00_36, obj_t BgL_genvz00_37, obj_t BgL_wherez00_38,
		obj_t BgL_locz00_39, bool_t BgL_lkpz00_40)
	{
		{	/* Eval/evcompile.scm 428 */
			{	/* Eval/evcompile.scm 429 */
				obj_t BgL_asz00_5420;

				if (NULLP(BgL_bodyz00_35))
					{	/* Eval/evcompile.scm 429 */
						BgL_asz00_5420 = BNIL;
					}
				else
					{	/* Eval/evcompile.scm 429 */
						obj_t BgL_head1176z00_5423;

						BgL_head1176z00_5423 = MAKE_YOUNG_PAIR(BNIL, BNIL);
						{
							obj_t BgL_l1174z00_5425;
							obj_t BgL_tail1177z00_5426;

							BgL_l1174z00_5425 = BgL_bodyz00_35;
							BgL_tail1177z00_5426 = BgL_head1176z00_5423;
						BgL_zc3z04anonymousza32856ze3z87_5424:
							if (NULLP(BgL_l1174z00_5425))
								{	/* Eval/evcompile.scm 429 */
									BgL_asz00_5420 = CDR(BgL_head1176z00_5423);
								}
							else
								{	/* Eval/evcompile.scm 429 */
									obj_t BgL_newtail1178z00_5428;

									{	/* Eval/evcompile.scm 429 */
										obj_t BgL_arg2859z00_5429;

										{	/* Eval/evcompile.scm 429 */
											obj_t BgL_xz00_5430;

											BgL_xz00_5430 = CAR(((obj_t) BgL_l1174z00_5425));
											BgL_arg2859z00_5429 =
												BGl_evcompilez00zz__evcompilez00(BgL_xz00_5430,
												BgL_envz00_36, BgL_genvz00_37, BgL_wherez00_38,
												((bool_t) 0), BgL_locz00_39, BgL_lkpz00_40,
												((bool_t) 0));
										}
										BgL_newtail1178z00_5428 =
											MAKE_YOUNG_PAIR(BgL_arg2859z00_5429, BNIL);
									}
									SET_CDR(BgL_tail1177z00_5426, BgL_newtail1178z00_5428);
									{	/* Eval/evcompile.scm 429 */
										obj_t BgL_arg2858z00_5431;

										BgL_arg2858z00_5431 = CDR(((obj_t) BgL_l1174z00_5425));
										{
											obj_t BgL_tail1177z00_10069;
											obj_t BgL_l1174z00_10068;

											BgL_l1174z00_10068 = BgL_arg2858z00_5431;
											BgL_tail1177z00_10069 = BgL_newtail1178z00_5428;
											BgL_tail1177z00_5426 = BgL_tail1177z00_10069;
											BgL_l1174z00_5425 = BgL_l1174z00_10068;
											goto BgL_zc3z04anonymousza32856ze3z87_5424;
										}
									}
								}
						}
					}
				{	/* Eval/evcompile.scm 432 */
					obj_t BgL_runner2854z00_5432;

					{	/* Eval/evcompile.scm 432 */
						obj_t BgL_list2852z00_5433;

						{	/* Eval/evcompile.scm 432 */
							obj_t BgL_arg2853z00_5434;

							BgL_arg2853z00_5434 = MAKE_YOUNG_PAIR(BgL_asz00_5420, BNIL);
							BgL_list2852z00_5433 =
								MAKE_YOUNG_PAIR(BgL_locz00_39, BgL_arg2853z00_5434);
						}
						BgL_runner2854z00_5432 =
							BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BINT(68L),
							BgL_list2852z00_5433);
					}
					return
						BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
						(BgL_runner2854z00_5432);
				}
			}
		}

	}



/* evcompile-begin */
	obj_t BGl_evcompilezd2beginzd2zz__evcompilez00(obj_t BgL_bodyz00_41,
		obj_t BgL_envz00_42, obj_t BgL_genvz00_43, obj_t BgL_wherez00_44,
		bool_t BgL_tailz00_45, obj_t BgL_locz00_46, bool_t BgL_lkpz00_47,
		bool_t BgL_tlpz00_48)
	{
		{	/* Eval/evcompile.scm 437 */
			if (NULLP(BgL_bodyz00_41))
				{	/* Eval/evcompile.scm 439 */
					BGL_TAIL return
						BGl_evcompilez00zz__evcompilez00(BUNSPEC, BgL_envz00_42,
						BgL_genvz00_43, BgL_wherez00_44, BgL_tailz00_45, BgL_locz00_46,
						BgL_lkpz00_47, BgL_tlpz00_48);
				}
			else
				{	/* Eval/evcompile.scm 439 */
					if (NULLP(CDR(((obj_t) BgL_bodyz00_41))))
						{	/* Eval/evcompile.scm 442 */
							obj_t BgL_arg2865z00_2993;
							obj_t BgL_arg2866z00_2994;

							BgL_arg2865z00_2993 = CAR(((obj_t) BgL_bodyz00_41));
							{	/* Eval/evcompile.scm 444 */
								obj_t BgL_arg2868z00_2995;

								BgL_arg2868z00_2995 = CAR(((obj_t) BgL_bodyz00_41));
								{	/* Eval/evcompile.scm 65 */
									obj_t BgL__ortest_1065z00_5442;

									BgL__ortest_1065z00_5442 =
										BGl_getzd2sourcezd2locationz00zz__readerz00
										(BgL_arg2868z00_2995);
									if (CBOOL(BgL__ortest_1065z00_5442))
										{	/* Eval/evcompile.scm 65 */
											BgL_arg2866z00_2994 = BgL__ortest_1065z00_5442;
										}
									else
										{	/* Eval/evcompile.scm 65 */
											BgL_arg2866z00_2994 = BgL_locz00_46;
										}
								}
							}
							BGL_TAIL return
								BGl_evcompilez00zz__evcompilez00(BgL_arg2865z00_2993,
								BgL_envz00_42, BgL_genvz00_43, BgL_wherez00_44, BgL_tailz00_45,
								BgL_arg2866z00_2994, BgL_lkpz00_47, BgL_tlpz00_48);
						}
					else
						{	/* Eval/evcompile.scm 447 */
							obj_t BgL_cbodyz00_2996;

							BgL_cbodyz00_2996 =
								BGl_loopze71ze7zz__evcompilez00(BgL_tailz00_45, BgL_tlpz00_48,
								BgL_lkpz00_47, BgL_wherez00_44, BgL_genvz00_43, BgL_envz00_42,
								BgL_locz00_46, BgL_bodyz00_41);
							{	/* Eval/evcompile.scm 462 */
								obj_t BgL_runner2871z00_2999;

								{	/* Eval/evcompile.scm 462 */
									obj_t BgL_list2869z00_2997;

									{	/* Eval/evcompile.scm 462 */
										obj_t BgL_arg2870z00_2998;

										BgL_arg2870z00_2998 =
											MAKE_YOUNG_PAIR(BgL_cbodyz00_2996, BNIL);
										BgL_list2869z00_2997 =
											MAKE_YOUNG_PAIR(BgL_locz00_46, BgL_arg2870z00_2998);
									}
									BgL_runner2871z00_2999 =
										BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BINT(16L),
										BgL_list2869z00_2997);
								}
								return
									BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
									(BgL_runner2871z00_2999);
							}
						}
				}
		}

	}



/* loop~1 */
	obj_t BGl_loopze71ze7zz__evcompilez00(bool_t BgL_tailz00_6765,
		bool_t BgL_tlpz00_6764, bool_t BgL_lkpz00_6763, obj_t BgL_wherez00_6762,
		obj_t BgL_genvz00_6761, obj_t BgL_envz00_6760, obj_t BgL_locz00_6759,
		obj_t BgL_restz00_3001)
	{
		{	/* Eval/evcompile.scm 447 */
			if (NULLP(BgL_restz00_3001))
				{	/* Eval/evcompile.scm 449 */
					return BNIL;
				}
			else
				{	/* Eval/evcompile.scm 449 */
					if (NULLP(CDR(((obj_t) BgL_restz00_3001))))
						{	/* Eval/evcompile.scm 452 */
							obj_t BgL_arg2879z00_3006;

							{	/* Eval/evcompile.scm 452 */
								obj_t BgL_arg2880z00_3007;
								obj_t BgL_arg2881z00_3008;

								BgL_arg2880z00_3007 = CAR(((obj_t) BgL_restz00_3001));
								{	/* Eval/evcompile.scm 454 */
									obj_t BgL_arg2882z00_3009;

									BgL_arg2882z00_3009 = CAR(((obj_t) BgL_restz00_3001));
									{	/* Eval/evcompile.scm 65 */
										obj_t BgL__ortest_1065z00_5446;

										BgL__ortest_1065z00_5446 =
											BGl_getzd2sourcezd2locationz00zz__readerz00
											(BgL_arg2882z00_3009);
										if (CBOOL(BgL__ortest_1065z00_5446))
											{	/* Eval/evcompile.scm 65 */
												BgL_arg2881z00_3008 = BgL__ortest_1065z00_5446;
											}
										else
											{	/* Eval/evcompile.scm 65 */
												BgL_arg2881z00_3008 = BgL_locz00_6759;
											}
									}
								}
								BgL_arg2879z00_3006 =
									BGl_evcompilez00zz__evcompilez00(BgL_arg2880z00_3007,
									BgL_envz00_6760, BgL_genvz00_6761, BgL_wherez00_6762,
									BgL_tailz00_6765, BgL_arg2881z00_3008, BgL_lkpz00_6763,
									BgL_tlpz00_6764);
							}
							return MAKE_YOUNG_PAIR(BgL_arg2879z00_3006, BNIL);
						}
					else
						{	/* Eval/evcompile.scm 458 */
							obj_t BgL_arg2897z00_3010;
							obj_t BgL_arg2898z00_3011;

							{	/* Eval/evcompile.scm 458 */
								obj_t BgL_arg2899z00_3012;
								obj_t BgL_arg2909z00_3013;

								BgL_arg2899z00_3012 = CAR(((obj_t) BgL_restz00_3001));
								{	/* Eval/evcompile.scm 459 */
									obj_t BgL_arg2910z00_3014;

									BgL_arg2910z00_3014 = CAR(((obj_t) BgL_restz00_3001));
									{	/* Eval/evcompile.scm 65 */
										obj_t BgL__ortest_1065z00_5449;

										BgL__ortest_1065z00_5449 =
											BGl_getzd2sourcezd2locationz00zz__readerz00
											(BgL_arg2910z00_3014);
										if (CBOOL(BgL__ortest_1065z00_5449))
											{	/* Eval/evcompile.scm 65 */
												BgL_arg2909z00_3013 = BgL__ortest_1065z00_5449;
											}
										else
											{	/* Eval/evcompile.scm 65 */
												BgL_arg2909z00_3013 = BgL_locz00_6759;
											}
									}
								}
								BgL_arg2897z00_3010 =
									BGl_evcompilez00zz__evcompilez00(BgL_arg2899z00_3012,
									BgL_envz00_6760, BgL_genvz00_6761, BgL_wherez00_6762,
									((bool_t) 0), BgL_arg2909z00_3013, BgL_lkpz00_6763,
									BgL_tlpz00_6764);
							}
							{	/* Eval/evcompile.scm 461 */
								obj_t BgL_arg2912z00_3015;

								BgL_arg2912z00_3015 = CDR(((obj_t) BgL_restz00_3001));
								BgL_arg2898z00_3011 =
									BGl_loopze71ze7zz__evcompilez00(BgL_tailz00_6765,
									BgL_tlpz00_6764, BgL_lkpz00_6763, BgL_wherez00_6762,
									BgL_genvz00_6761, BgL_envz00_6760, BgL_locz00_6759,
									BgL_arg2912z00_3015);
							}
							return MAKE_YOUNG_PAIR(BgL_arg2897z00_3010, BgL_arg2898z00_3011);
						}
				}
		}

	}



/* evcompile-compiled-application */
	obj_t BGl_evcompilezd2compiledzd2applicationz00zz__evcompilez00(obj_t
		BgL_procz00_67, obj_t BgL_argsz00_68, obj_t BgL_locz00_69)
	{
		{	/* Eval/evcompile.scm 503 */
			{

				{	/* Eval/evcompile.scm 504 */
					long BgL_aux1073z00_3028;

					BgL_aux1073z00_3028 = bgl_list_length(BgL_argsz00_68);
					switch (BgL_aux1073z00_3028)
						{
						case 0L:

							{	/* Eval/evcompile.scm 506 */
								obj_t BgL_v1186z00_3029;

								BgL_v1186z00_3029 = create_vector(3L);
								VECTOR_SET(BgL_v1186z00_3029, 0L, BINT(25L));
								VECTOR_SET(BgL_v1186z00_3029, 1L, BgL_locz00_69);
								VECTOR_SET(BgL_v1186z00_3029, 2L, BgL_procz00_67);
								return BgL_v1186z00_3029;
							}
							break;
						case 1L:

							{	/* Eval/evcompile.scm 508 */
								obj_t BgL_v1187z00_3030;

								BgL_v1187z00_3030 = create_vector(4L);
								VECTOR_SET(BgL_v1187z00_3030, 0L, BINT(26L));
								VECTOR_SET(BgL_v1187z00_3030, 1L, BgL_locz00_69);
								VECTOR_SET(BgL_v1187z00_3030, 2L, BgL_procz00_67);
								{	/* Eval/evcompile.scm 508 */
									obj_t BgL_arg2918z00_3031;

									BgL_arg2918z00_3031 = CAR(((obj_t) BgL_argsz00_68));
									VECTOR_SET(BgL_v1187z00_3030, 3L, BgL_arg2918z00_3031);
								}
								return BgL_v1187z00_3030;
							}
							break;
						case 2L:

							{	/* Eval/evcompile.scm 510 */
								obj_t BgL_v1188z00_3032;

								BgL_v1188z00_3032 = create_vector(5L);
								VECTOR_SET(BgL_v1188z00_3032, 0L, BINT(27L));
								VECTOR_SET(BgL_v1188z00_3032, 1L, BgL_locz00_69);
								VECTOR_SET(BgL_v1188z00_3032, 2L, BgL_procz00_67);
								{	/* Eval/evcompile.scm 510 */
									obj_t BgL_arg2919z00_3033;

									BgL_arg2919z00_3033 = CAR(((obj_t) BgL_argsz00_68));
									VECTOR_SET(BgL_v1188z00_3032, 3L, BgL_arg2919z00_3033);
								}
								{	/* Eval/evcompile.scm 510 */
									obj_t BgL_arg2920z00_3034;

									{	/* Eval/evcompile.scm 510 */
										obj_t BgL_pairz00_5504;

										BgL_pairz00_5504 = CDR(((obj_t) BgL_argsz00_68));
										BgL_arg2920z00_3034 = CAR(BgL_pairz00_5504);
									}
									VECTOR_SET(BgL_v1188z00_3032, 4L, BgL_arg2920z00_3034);
								}
								return BgL_v1188z00_3032;
							}
							break;
						case 3L:

							{	/* Eval/evcompile.scm 512 */
								obj_t BgL_v1189z00_3035;

								BgL_v1189z00_3035 = create_vector(6L);
								VECTOR_SET(BgL_v1189z00_3035, 0L, BINT(28L));
								VECTOR_SET(BgL_v1189z00_3035, 1L, BgL_locz00_69);
								VECTOR_SET(BgL_v1189z00_3035, 2L, BgL_procz00_67);
								{	/* Eval/evcompile.scm 512 */
									obj_t BgL_arg2921z00_3036;

									BgL_arg2921z00_3036 = CAR(((obj_t) BgL_argsz00_68));
									VECTOR_SET(BgL_v1189z00_3035, 3L, BgL_arg2921z00_3036);
								}
								{	/* Eval/evcompile.scm 512 */
									obj_t BgL_arg2922z00_3037;

									{	/* Eval/evcompile.scm 512 */
										obj_t BgL_pairz00_5514;

										BgL_pairz00_5514 = CDR(((obj_t) BgL_argsz00_68));
										BgL_arg2922z00_3037 = CAR(BgL_pairz00_5514);
									}
									VECTOR_SET(BgL_v1189z00_3035, 4L, BgL_arg2922z00_3037);
								}
								{	/* Eval/evcompile.scm 512 */
									obj_t BgL_arg2923z00_3038;

									{	/* Eval/evcompile.scm 512 */
										obj_t BgL_pairz00_5521;

										{	/* Eval/evcompile.scm 512 */
											obj_t BgL_pairz00_5520;

											BgL_pairz00_5520 = CDR(((obj_t) BgL_argsz00_68));
											BgL_pairz00_5521 = CDR(BgL_pairz00_5520);
										}
										BgL_arg2923z00_3038 = CAR(BgL_pairz00_5521);
									}
									VECTOR_SET(BgL_v1189z00_3035, 5L, BgL_arg2923z00_3038);
								}
								return BgL_v1189z00_3035;
							}
							break;
						case 4L:

							{	/* Eval/evcompile.scm 514 */
								obj_t BgL_v1190z00_3039;

								BgL_v1190z00_3039 = create_vector(7L);
								VECTOR_SET(BgL_v1190z00_3039, 0L, BINT(29L));
								VECTOR_SET(BgL_v1190z00_3039, 1L, BgL_locz00_69);
								VECTOR_SET(BgL_v1190z00_3039, 2L, BgL_procz00_67);
								{	/* Eval/evcompile.scm 514 */
									obj_t BgL_arg2924z00_3040;

									BgL_arg2924z00_3040 = CAR(((obj_t) BgL_argsz00_68));
									VECTOR_SET(BgL_v1190z00_3039, 3L, BgL_arg2924z00_3040);
								}
								{	/* Eval/evcompile.scm 514 */
									obj_t BgL_arg2925z00_3041;

									{	/* Eval/evcompile.scm 514 */
										obj_t BgL_pairz00_5531;

										BgL_pairz00_5531 = CDR(((obj_t) BgL_argsz00_68));
										BgL_arg2925z00_3041 = CAR(BgL_pairz00_5531);
									}
									VECTOR_SET(BgL_v1190z00_3039, 4L, BgL_arg2925z00_3041);
								}
								{	/* Eval/evcompile.scm 514 */
									obj_t BgL_arg2926z00_3042;

									{	/* Eval/evcompile.scm 514 */
										obj_t BgL_pairz00_5538;

										{	/* Eval/evcompile.scm 514 */
											obj_t BgL_pairz00_5537;

											BgL_pairz00_5537 = CDR(((obj_t) BgL_argsz00_68));
											BgL_pairz00_5538 = CDR(BgL_pairz00_5537);
										}
										BgL_arg2926z00_3042 = CAR(BgL_pairz00_5538);
									}
									VECTOR_SET(BgL_v1190z00_3039, 5L, BgL_arg2926z00_3042);
								}
								{	/* Eval/evcompile.scm 514 */
									obj_t BgL_arg2927z00_3043;

									{	/* Eval/evcompile.scm 514 */
										obj_t BgL_pairz00_5547;

										{	/* Eval/evcompile.scm 514 */
											obj_t BgL_pairz00_5546;

											{	/* Eval/evcompile.scm 514 */
												obj_t BgL_pairz00_5545;

												BgL_pairz00_5545 = CDR(((obj_t) BgL_argsz00_68));
												BgL_pairz00_5546 = CDR(BgL_pairz00_5545);
											}
											BgL_pairz00_5547 = CDR(BgL_pairz00_5546);
										}
										BgL_arg2927z00_3043 = CAR(BgL_pairz00_5547);
									}
									VECTOR_SET(BgL_v1190z00_3039, 6L, BgL_arg2927z00_3043);
								}
								return BgL_v1190z00_3039;
							}
							break;
						default:
							{	/* Eval/evcompile.scm 516 */
								obj_t BgL_v1185z00_3044;

								BgL_v1185z00_3044 = create_vector(4L);
								VECTOR_SET(BgL_v1185z00_3044, 0L, BINT(30L));
								VECTOR_SET(BgL_v1185z00_3044, 1L, BgL_locz00_69);
								VECTOR_SET(BgL_v1185z00_3044, 2L, BgL_procz00_67);
								VECTOR_SET(BgL_v1185z00_3044, 3L, BgL_argsz00_68);
								return BgL_v1185z00_3044;
							}
						}
				}
			}
		}

	}



/* evcompile-application */
	obj_t BGl_evcompilezd2applicationzd2zz__evcompilez00(obj_t BgL_namez00_70,
		obj_t BgL_procz00_71, obj_t BgL_argsz00_72, bool_t BgL_tailz00_73,
		obj_t BgL_locz00_74)
	{
		{	/* Eval/evcompile.scm 521 */
			if (BgL_tailz00_73)
				{	/* Eval/evcompile.scm 523 */
					obj_t BgL_namez00_3045;

					if (SYMBOLP(BgL_namez00_70))
						{	/* Eval/evcompile.scm 523 */
							obj_t BgL_arg2954z00_3084;

							{	/* Eval/evcompile.scm 523 */
								obj_t BgL_arg2956z00_3085;
								obj_t BgL_arg2958z00_3086;

								{	/* Eval/evcompile.scm 523 */
									obj_t BgL_arg3606z00_5550;

									BgL_arg3606z00_5550 = SYMBOL_TO_STRING(BgL_namez00_70);
									BgL_arg2956z00_3085 =
										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
										(BgL_arg3606z00_5550);
								}
								{	/* Eval/evcompile.scm 523 */
									obj_t BgL_symbolz00_5551;

									BgL_symbolz00_5551 = BGl_symbol3882z00zz__evcompilez00;
									{	/* Eval/evcompile.scm 523 */
										obj_t BgL_arg3606z00_5552;

										BgL_arg3606z00_5552 = SYMBOL_TO_STRING(BgL_symbolz00_5551);
										BgL_arg2958z00_3086 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg3606z00_5552);
									}
								}
								BgL_arg2954z00_3084 =
									string_append(BgL_arg2956z00_3085, BgL_arg2958z00_3086);
							}
							BgL_namez00_3045 = bstring_to_symbol(BgL_arg2954z00_3084);
						}
					else
						{	/* Eval/evcompile.scm 523 */
							BgL_namez00_3045 = BgL_namez00_70;
						}
					{

						{	/* Eval/evcompile.scm 524 */
							long BgL_aux1075z00_3047;

							BgL_aux1075z00_3047 = bgl_list_length(BgL_argsz00_72);
							switch (BgL_aux1075z00_3047)
								{
								case 0L:

									{	/* Eval/evcompile.scm 526 */
										obj_t BgL_v1192z00_3048;

										BgL_v1192z00_3048 = create_vector(5L);
										VECTOR_SET(BgL_v1192z00_3048, 0L, BINT(131L));
										VECTOR_SET(BgL_v1192z00_3048, 1L, BgL_locz00_74);
										VECTOR_SET(BgL_v1192z00_3048, 2L, BgL_namez00_3045);
										VECTOR_SET(BgL_v1192z00_3048, 3L, BgL_procz00_71);
										VECTOR_SET(BgL_v1192z00_3048, 4L, BBOOL(BgL_tailz00_73));
										return BgL_v1192z00_3048;
									}
									break;
								case 1L:

									{	/* Eval/evcompile.scm 528 */
										obj_t BgL_codez00_3049;

										BgL_codez00_3049 = BINT(132L);
										{	/* Eval/evcompile.scm 529 */
											bool_t BgL_test4373z00_10215;

											if (VECTORP(BgL_procz00_71))
												{	/* Eval/evcompile.scm 354 */
													obj_t BgL_arg2786z00_5566;

													BgL_arg2786z00_5566 = VECTOR_REF(BgL_procz00_71, 0L);
													BgL_test4373z00_10215 =
														((long) CINT(BgL_arg2786z00_5566) == 6L);
												}
											else
												{	/* Eval/evcompile.scm 354 */
													BgL_test4373z00_10215 = ((bool_t) 0);
												}
											if (BgL_test4373z00_10215)
												{	/* Eval/evcompile.scm 530 */
													obj_t BgL_funz00_3051;
													obj_t BgL_a0z00_3052;

													BgL_funz00_3051 = VECTOR_REF(BgL_procz00_71, 2L);
													BgL_a0z00_3052 = CAR(((obj_t) BgL_argsz00_72));
													{	/* Eval/evcompile.scm 532 */
														bool_t BgL_test4375z00_10224;

														if (VECTORP(BgL_funz00_3051))
															{	/* Eval/evcompile.scm 532 */
																BgL_test4375z00_10224 =
																	(VECTOR_LENGTH(BgL_funz00_3051) == 5L);
															}
														else
															{	/* Eval/evcompile.scm 532 */
																BgL_test4375z00_10224 = ((bool_t) 0);
															}
														if (BgL_test4375z00_10224)
															{	/* Eval/evcompile.scm 534 */
																obj_t BgL__ortest_1076z00_3054;

																BgL__ortest_1076z00_3054 =
																	BGl_evcompilezd2inline1zd2zz__evcompilez00
																	(BgL_locz00_74, BgL_namez00_3045,
																	BgL_funz00_3051, BgL_a0z00_3052);
																if (CBOOL(BgL__ortest_1076z00_3054))
																	{	/* Eval/evcompile.scm 534 */
																		return BgL__ortest_1076z00_3054;
																	}
																else
																	{	/* Eval/evcompile.scm 535 */
																		obj_t BgL_v1194z00_3055;

																		BgL_v1194z00_3055 = create_vector(6L);
																		VECTOR_SET(BgL_v1194z00_3055, 0L,
																			BgL_codez00_3049);
																		VECTOR_SET(BgL_v1194z00_3055, 1L,
																			BgL_locz00_74);
																		VECTOR_SET(BgL_v1194z00_3055, 2L,
																			BgL_namez00_3045);
																		VECTOR_SET(BgL_v1194z00_3055, 3L,
																			BgL_procz00_71);
																		{	/* Eval/evcompile.scm 535 */
																			obj_t BgL_arg2930z00_3056;

																			BgL_arg2930z00_3056 =
																				CAR(((obj_t) BgL_argsz00_72));
																			VECTOR_SET(BgL_v1194z00_3055, 4L,
																				BgL_arg2930z00_3056);
																		}
																		VECTOR_SET(BgL_v1194z00_3055, 5L,
																			BBOOL(BgL_tailz00_73));
																		return BgL_v1194z00_3055;
																	}
															}
														else
															{	/* Eval/evcompile.scm 533 */
																obj_t BgL_v1193z00_3057;

																BgL_v1193z00_3057 = create_vector(6L);
																VECTOR_SET(BgL_v1193z00_3057, 0L,
																	BgL_codez00_3049);
																VECTOR_SET(BgL_v1193z00_3057, 1L,
																	BgL_locz00_74);
																VECTOR_SET(BgL_v1193z00_3057, 2L,
																	BgL_namez00_3045);
																VECTOR_SET(BgL_v1193z00_3057, 3L,
																	BgL_procz00_71);
																VECTOR_SET(BgL_v1193z00_3057, 4L,
																	BgL_a0z00_3052);
																VECTOR_SET(BgL_v1193z00_3057, 5L,
																	BBOOL(BgL_tailz00_73));
																return BgL_v1193z00_3057;
															}
													}
												}
											else
												{	/* Eval/evcompile.scm 536 */
													obj_t BgL_v1195z00_3059;

													BgL_v1195z00_3059 = create_vector(6L);
													VECTOR_SET(BgL_v1195z00_3059, 0L, BgL_codez00_3049);
													VECTOR_SET(BgL_v1195z00_3059, 1L, BgL_locz00_74);
													VECTOR_SET(BgL_v1195z00_3059, 2L, BgL_namez00_3045);
													VECTOR_SET(BgL_v1195z00_3059, 3L, BgL_procz00_71);
													{	/* Eval/evcompile.scm 536 */
														obj_t BgL_arg2932z00_3060;

														BgL_arg2932z00_3060 = CAR(((obj_t) BgL_argsz00_72));
														VECTOR_SET(BgL_v1195z00_3059, 4L,
															BgL_arg2932z00_3060);
													}
													VECTOR_SET(BgL_v1195z00_3059, 5L,
														BBOOL(BgL_tailz00_73));
													return BgL_v1195z00_3059;
												}
										}
									}
									break;
								case 2L:

									{	/* Eval/evcompile.scm 539 */
										bool_t BgL_test4378z00_10260;

										if (VECTORP(BgL_procz00_71))
											{	/* Eval/evcompile.scm 354 */
												obj_t BgL_arg2786z00_5597;

												BgL_arg2786z00_5597 = VECTOR_REF(BgL_procz00_71, 0L);
												BgL_test4378z00_10260 =
													((long) CINT(BgL_arg2786z00_5597) == 6L);
											}
										else
											{	/* Eval/evcompile.scm 354 */
												BgL_test4378z00_10260 = ((bool_t) 0);
											}
										if (BgL_test4378z00_10260)
											{	/* Eval/evcompile.scm 540 */
												obj_t BgL_funz00_3063;
												obj_t BgL_a0z00_3064;
												obj_t BgL_a1z00_3065;

												BgL_funz00_3063 = VECTOR_REF(BgL_procz00_71, 2L);
												BgL_a0z00_3064 = CAR(((obj_t) BgL_argsz00_72));
												{	/* Eval/evcompile.scm 542 */
													obj_t BgL_pairz00_5605;

													BgL_pairz00_5605 = CDR(((obj_t) BgL_argsz00_72));
													BgL_a1z00_3065 = CAR(BgL_pairz00_5605);
												}
												{	/* Eval/evcompile.scm 543 */
													bool_t BgL_test4380z00_10272;

													if (VECTORP(BgL_funz00_3063))
														{	/* Eval/evcompile.scm 543 */
															BgL_test4380z00_10272 =
																(VECTOR_LENGTH(BgL_funz00_3063) == 5L);
														}
													else
														{	/* Eval/evcompile.scm 543 */
															BgL_test4380z00_10272 = ((bool_t) 0);
														}
													if (BgL_test4380z00_10272)
														{	/* Eval/evcompile.scm 545 */
															obj_t BgL__ortest_1077z00_3067;

															BgL__ortest_1077z00_3067 =
																BGl_evcompilezd2inline2zd2zz__evcompilez00
																(BgL_locz00_74, BgL_namez00_3045,
																BgL_funz00_3063, BgL_a0z00_3064,
																BgL_a1z00_3065);
															if (CBOOL(BgL__ortest_1077z00_3067))
																{	/* Eval/evcompile.scm 545 */
																	return BgL__ortest_1077z00_3067;
																}
															else
																{	/* Eval/evcompile.scm 546 */
																	obj_t BgL_v1197z00_3068;

																	BgL_v1197z00_3068 = create_vector(7L);
																	VECTOR_SET(BgL_v1197z00_3068, 0L, BINT(133L));
																	VECTOR_SET(BgL_v1197z00_3068, 1L,
																		BgL_locz00_74);
																	VECTOR_SET(BgL_v1197z00_3068, 2L,
																		BgL_namez00_3045);
																	VECTOR_SET(BgL_v1197z00_3068, 3L,
																		BgL_procz00_71);
																	VECTOR_SET(BgL_v1197z00_3068, 4L,
																		BgL_a0z00_3064);
																	VECTOR_SET(BgL_v1197z00_3068, 5L,
																		BgL_a1z00_3065);
																	VECTOR_SET(BgL_v1197z00_3068, 6L,
																		BBOOL(BgL_tailz00_73));
																	return BgL_v1197z00_3068;
																}
														}
													else
														{	/* Eval/evcompile.scm 544 */
															obj_t BgL_v1196z00_3069;

															BgL_v1196z00_3069 = create_vector(7L);
															VECTOR_SET(BgL_v1196z00_3069, 0L, BINT(133L));
															VECTOR_SET(BgL_v1196z00_3069, 1L, BgL_locz00_74);
															VECTOR_SET(BgL_v1196z00_3069, 2L,
																BgL_namez00_3045);
															VECTOR_SET(BgL_v1196z00_3069, 3L, BgL_procz00_71);
															VECTOR_SET(BgL_v1196z00_3069, 4L, BgL_a0z00_3064);
															VECTOR_SET(BgL_v1196z00_3069, 5L, BgL_a1z00_3065);
															VECTOR_SET(BgL_v1196z00_3069, 6L,
																BBOOL(BgL_tailz00_73));
															return BgL_v1196z00_3069;
														}
												}
											}
										else
											{	/* Eval/evcompile.scm 547 */
												obj_t BgL_v1198z00_3070;

												BgL_v1198z00_3070 = create_vector(7L);
												VECTOR_SET(BgL_v1198z00_3070, 0L, BINT(133L));
												VECTOR_SET(BgL_v1198z00_3070, 1L, BgL_locz00_74);
												VECTOR_SET(BgL_v1198z00_3070, 2L, BgL_namez00_3045);
												VECTOR_SET(BgL_v1198z00_3070, 3L, BgL_procz00_71);
												{	/* Eval/evcompile.scm 547 */
													obj_t BgL_arg2935z00_3071;

													BgL_arg2935z00_3071 = CAR(((obj_t) BgL_argsz00_72));
													VECTOR_SET(BgL_v1198z00_3070, 4L,
														BgL_arg2935z00_3071);
												}
												{	/* Eval/evcompile.scm 547 */
													obj_t BgL_arg2936z00_3072;

													{	/* Eval/evcompile.scm 547 */
														obj_t BgL_pairz00_5633;

														BgL_pairz00_5633 = CDR(((obj_t) BgL_argsz00_72));
														BgL_arg2936z00_3072 = CAR(BgL_pairz00_5633);
													}
													VECTOR_SET(BgL_v1198z00_3070, 5L,
														BgL_arg2936z00_3072);
												}
												VECTOR_SET(BgL_v1198z00_3070, 6L,
													BBOOL(BgL_tailz00_73));
												return BgL_v1198z00_3070;
											}
									}
									break;
								case 3L:

									{	/* Eval/evcompile.scm 549 */
										obj_t BgL_v1199z00_3073;

										BgL_v1199z00_3073 = create_vector(8L);
										VECTOR_SET(BgL_v1199z00_3073, 0L, BINT(134L));
										VECTOR_SET(BgL_v1199z00_3073, 1L, BgL_locz00_74);
										VECTOR_SET(BgL_v1199z00_3073, 2L, BgL_namez00_3045);
										VECTOR_SET(BgL_v1199z00_3073, 3L, BgL_procz00_71);
										{	/* Eval/evcompile.scm 550 */
											obj_t BgL_arg2937z00_3074;

											BgL_arg2937z00_3074 = CAR(((obj_t) BgL_argsz00_72));
											VECTOR_SET(BgL_v1199z00_3073, 4L, BgL_arg2937z00_3074);
										}
										{	/* Eval/evcompile.scm 550 */
											obj_t BgL_arg2938z00_3075;

											{	/* Eval/evcompile.scm 550 */
												obj_t BgL_pairz00_5645;

												BgL_pairz00_5645 = CDR(((obj_t) BgL_argsz00_72));
												BgL_arg2938z00_3075 = CAR(BgL_pairz00_5645);
											}
											VECTOR_SET(BgL_v1199z00_3073, 5L, BgL_arg2938z00_3075);
										}
										{	/* Eval/evcompile.scm 550 */
											obj_t BgL_arg2939z00_3076;

											{	/* Eval/evcompile.scm 550 */
												obj_t BgL_pairz00_5652;

												{	/* Eval/evcompile.scm 550 */
													obj_t BgL_pairz00_5651;

													BgL_pairz00_5651 = CDR(((obj_t) BgL_argsz00_72));
													BgL_pairz00_5652 = CDR(BgL_pairz00_5651);
												}
												BgL_arg2939z00_3076 = CAR(BgL_pairz00_5652);
											}
											VECTOR_SET(BgL_v1199z00_3073, 6L, BgL_arg2939z00_3076);
										}
										VECTOR_SET(BgL_v1199z00_3073, 7L, BBOOL(BgL_tailz00_73));
										return BgL_v1199z00_3073;
									}
									break;
								case 4L:

									{	/* Eval/evcompile.scm 552 */
										obj_t BgL_v1200z00_3077;

										BgL_v1200z00_3077 = create_vector(9L);
										VECTOR_SET(BgL_v1200z00_3077, 0L, BINT(135L));
										VECTOR_SET(BgL_v1200z00_3077, 1L, BgL_locz00_74);
										VECTOR_SET(BgL_v1200z00_3077, 2L, BgL_namez00_3045);
										VECTOR_SET(BgL_v1200z00_3077, 3L, BgL_procz00_71);
										{	/* Eval/evcompile.scm 553 */
											obj_t BgL_arg2940z00_3078;

											BgL_arg2940z00_3078 = CAR(((obj_t) BgL_argsz00_72));
											VECTOR_SET(BgL_v1200z00_3077, 4L, BgL_arg2940z00_3078);
										}
										{	/* Eval/evcompile.scm 553 */
											obj_t BgL_arg2941z00_3079;

											{	/* Eval/evcompile.scm 553 */
												obj_t BgL_pairz00_5664;

												BgL_pairz00_5664 = CDR(((obj_t) BgL_argsz00_72));
												BgL_arg2941z00_3079 = CAR(BgL_pairz00_5664);
											}
											VECTOR_SET(BgL_v1200z00_3077, 5L, BgL_arg2941z00_3079);
										}
										{	/* Eval/evcompile.scm 553 */
											obj_t BgL_arg2944z00_3080;

											{	/* Eval/evcompile.scm 553 */
												obj_t BgL_pairz00_5671;

												{	/* Eval/evcompile.scm 553 */
													obj_t BgL_pairz00_5670;

													BgL_pairz00_5670 = CDR(((obj_t) BgL_argsz00_72));
													BgL_pairz00_5671 = CDR(BgL_pairz00_5670);
												}
												BgL_arg2944z00_3080 = CAR(BgL_pairz00_5671);
											}
											VECTOR_SET(BgL_v1200z00_3077, 6L, BgL_arg2944z00_3080);
										}
										{	/* Eval/evcompile.scm 554 */
											obj_t BgL_arg2945z00_3081;

											{	/* Eval/evcompile.scm 554 */
												obj_t BgL_pairz00_5680;

												{	/* Eval/evcompile.scm 554 */
													obj_t BgL_pairz00_5679;

													{	/* Eval/evcompile.scm 554 */
														obj_t BgL_pairz00_5678;

														BgL_pairz00_5678 = CDR(((obj_t) BgL_argsz00_72));
														BgL_pairz00_5679 = CDR(BgL_pairz00_5678);
													}
													BgL_pairz00_5680 = CDR(BgL_pairz00_5679);
												}
												BgL_arg2945z00_3081 = CAR(BgL_pairz00_5680);
											}
											VECTOR_SET(BgL_v1200z00_3077, 7L, BgL_arg2945z00_3081);
										}
										VECTOR_SET(BgL_v1200z00_3077, 8L, BBOOL(BgL_tailz00_73));
										return BgL_v1200z00_3077;
									}
									break;
								default:
									{	/* Eval/evcompile.scm 556 */
										obj_t BgL_v1191z00_3082;

										BgL_v1191z00_3082 = create_vector(6L);
										VECTOR_SET(BgL_v1191z00_3082, 0L, BINT(136L));
										VECTOR_SET(BgL_v1191z00_3082, 1L, BgL_locz00_74);
										VECTOR_SET(BgL_v1191z00_3082, 2L, BgL_namez00_3045);
										VECTOR_SET(BgL_v1191z00_3082, 3L, BgL_procz00_71);
										VECTOR_SET(BgL_v1191z00_3082, 4L, BgL_argsz00_72);
										VECTOR_SET(BgL_v1191z00_3082, 5L, BBOOL(BgL_tailz00_73));
										return BgL_v1191z00_3082;
									}
								}
						}
					}
				}
			else
				{

					{	/* Eval/evcompile.scm 557 */
						long BgL_aux1079z00_3088;

						BgL_aux1079z00_3088 = bgl_list_length(BgL_argsz00_72);
						switch (BgL_aux1079z00_3088)
							{
							case 0L:

								{	/* Eval/evcompile.scm 559 */
									obj_t BgL_v1202z00_3089;

									BgL_v1202z00_3089 = create_vector(4L);
									VECTOR_SET(BgL_v1202z00_3089, 0L, BINT(31L));
									VECTOR_SET(BgL_v1202z00_3089, 1L, BgL_locz00_74);
									VECTOR_SET(BgL_v1202z00_3089, 2L, BgL_namez00_70);
									VECTOR_SET(BgL_v1202z00_3089, 3L, BgL_procz00_71);
									return BgL_v1202z00_3089;
								}
								break;
							case 1L:

								{	/* Eval/evcompile.scm 561 */
									bool_t BgL_test4383z00_10378;

									if (VECTORP(BgL_procz00_71))
										{	/* Eval/evcompile.scm 354 */
											obj_t BgL_arg2786z00_5693;

											BgL_arg2786z00_5693 = VECTOR_REF(BgL_procz00_71, 0L);
											BgL_test4383z00_10378 =
												((long) CINT(BgL_arg2786z00_5693) == 6L);
										}
									else
										{	/* Eval/evcompile.scm 354 */
											BgL_test4383z00_10378 = ((bool_t) 0);
										}
									if (BgL_test4383z00_10378)
										{	/* Eval/evcompile.scm 562 */
											obj_t BgL_funz00_3091;
											obj_t BgL_a0z00_3092;

											BgL_funz00_3091 = VECTOR_REF(BgL_procz00_71, 2L);
											BgL_a0z00_3092 = CAR(((obj_t) BgL_argsz00_72));
											{	/* Eval/evcompile.scm 564 */
												bool_t BgL_test4385z00_10387;

												if (VECTORP(BgL_funz00_3091))
													{	/* Eval/evcompile.scm 564 */
														BgL_test4385z00_10387 =
															(VECTOR_LENGTH(BgL_funz00_3091) == 5L);
													}
												else
													{	/* Eval/evcompile.scm 564 */
														BgL_test4385z00_10387 = ((bool_t) 0);
													}
												if (BgL_test4385z00_10387)
													{	/* Eval/evcompile.scm 566 */
														obj_t BgL__ortest_1080z00_3094;

														BgL__ortest_1080z00_3094 =
															BGl_evcompilezd2inline1zd2zz__evcompilez00
															(BgL_locz00_74, BgL_namez00_70, BgL_funz00_3091,
															BgL_a0z00_3092);
														if (CBOOL(BgL__ortest_1080z00_3094))
															{	/* Eval/evcompile.scm 566 */
																return BgL__ortest_1080z00_3094;
															}
														else
															{	/* Eval/evcompile.scm 567 */
																obj_t BgL_v1204z00_3095;

																BgL_v1204z00_3095 = create_vector(5L);
																VECTOR_SET(BgL_v1204z00_3095, 0L, BINT(32L));
																VECTOR_SET(BgL_v1204z00_3095, 1L,
																	BgL_locz00_74);
																VECTOR_SET(BgL_v1204z00_3095, 2L,
																	BgL_namez00_70);
																VECTOR_SET(BgL_v1204z00_3095, 3L,
																	BgL_procz00_71);
																{	/* Eval/evcompile.scm 567 */
																	obj_t BgL_arg2961z00_3096;

																	BgL_arg2961z00_3096 =
																		CAR(((obj_t) BgL_argsz00_72));
																	VECTOR_SET(BgL_v1204z00_3095, 4L,
																		BgL_arg2961z00_3096);
																}
																return BgL_v1204z00_3095;
															}
													}
												else
													{	/* Eval/evcompile.scm 565 */
														obj_t BgL_v1203z00_3097;

														BgL_v1203z00_3097 = create_vector(5L);
														VECTOR_SET(BgL_v1203z00_3097, 0L, BINT(32L));
														VECTOR_SET(BgL_v1203z00_3097, 1L, BgL_locz00_74);
														VECTOR_SET(BgL_v1203z00_3097, 2L, BgL_namez00_70);
														VECTOR_SET(BgL_v1203z00_3097, 3L, BgL_procz00_71);
														VECTOR_SET(BgL_v1203z00_3097, 4L, BgL_a0z00_3092);
														return BgL_v1203z00_3097;
													}
											}
										}
									else
										{	/* Eval/evcompile.scm 568 */
											obj_t BgL_v1205z00_3099;

											BgL_v1205z00_3099 = create_vector(5L);
											VECTOR_SET(BgL_v1205z00_3099, 0L, BINT(32L));
											VECTOR_SET(BgL_v1205z00_3099, 1L, BgL_locz00_74);
											VECTOR_SET(BgL_v1205z00_3099, 2L, BgL_namez00_70);
											VECTOR_SET(BgL_v1205z00_3099, 3L, BgL_procz00_71);
											{	/* Eval/evcompile.scm 568 */
												obj_t BgL_arg2967z00_3100;

												BgL_arg2967z00_3100 = CAR(((obj_t) BgL_argsz00_72));
												VECTOR_SET(BgL_v1205z00_3099, 4L, BgL_arg2967z00_3100);
											}
											return BgL_v1205z00_3099;
										}
								}
								break;
							case 2L:

								{	/* Eval/evcompile.scm 570 */
									bool_t BgL_test4388z00_10420;

									if (VECTORP(BgL_procz00_71))
										{	/* Eval/evcompile.scm 354 */
											obj_t BgL_arg2786z00_5721;

											BgL_arg2786z00_5721 = VECTOR_REF(BgL_procz00_71, 0L);
											BgL_test4388z00_10420 =
												((long) CINT(BgL_arg2786z00_5721) == 6L);
										}
									else
										{	/* Eval/evcompile.scm 354 */
											BgL_test4388z00_10420 = ((bool_t) 0);
										}
									if (BgL_test4388z00_10420)
										{	/* Eval/evcompile.scm 571 */
											obj_t BgL_funz00_3102;
											obj_t BgL_a0z00_3103;
											obj_t BgL_a1z00_3104;

											BgL_funz00_3102 = VECTOR_REF(BgL_procz00_71, 2L);
											BgL_a0z00_3103 = CAR(((obj_t) BgL_argsz00_72));
											{	/* Eval/evcompile.scm 573 */
												obj_t BgL_pairz00_5729;

												BgL_pairz00_5729 = CDR(((obj_t) BgL_argsz00_72));
												BgL_a1z00_3104 = CAR(BgL_pairz00_5729);
											}
											{	/* Eval/evcompile.scm 574 */
												bool_t BgL_test4390z00_10432;

												if (VECTORP(BgL_funz00_3102))
													{	/* Eval/evcompile.scm 574 */
														BgL_test4390z00_10432 =
															(VECTOR_LENGTH(BgL_funz00_3102) == 5L);
													}
												else
													{	/* Eval/evcompile.scm 574 */
														BgL_test4390z00_10432 = ((bool_t) 0);
													}
												if (BgL_test4390z00_10432)
													{	/* Eval/evcompile.scm 576 */
														obj_t BgL__ortest_1081z00_3106;

														BgL__ortest_1081z00_3106 =
															BGl_evcompilezd2inline2zd2zz__evcompilez00
															(BgL_locz00_74, BgL_namez00_70, BgL_funz00_3102,
															BgL_a0z00_3103, BgL_a1z00_3104);
														if (CBOOL(BgL__ortest_1081z00_3106))
															{	/* Eval/evcompile.scm 576 */
																return BgL__ortest_1081z00_3106;
															}
														else
															{	/* Eval/evcompile.scm 577 */
																obj_t BgL_v1207z00_3107;

																BgL_v1207z00_3107 = create_vector(6L);
																VECTOR_SET(BgL_v1207z00_3107, 0L, BINT(33L));
																VECTOR_SET(BgL_v1207z00_3107, 1L,
																	BgL_locz00_74);
																VECTOR_SET(BgL_v1207z00_3107, 2L,
																	BgL_namez00_70);
																VECTOR_SET(BgL_v1207z00_3107, 3L,
																	BgL_procz00_71);
																{	/* Eval/evcompile.scm 577 */
																	obj_t BgL_arg2971z00_3108;

																	BgL_arg2971z00_3108 =
																		CAR(((obj_t) BgL_argsz00_72));
																	VECTOR_SET(BgL_v1207z00_3107, 4L,
																		BgL_arg2971z00_3108);
																}
																{	/* Eval/evcompile.scm 577 */
																	obj_t BgL_arg2972z00_3109;

																	{	/* Eval/evcompile.scm 577 */
																		obj_t BgL_pairz00_5743;

																		BgL_pairz00_5743 =
																			CDR(((obj_t) BgL_argsz00_72));
																		BgL_arg2972z00_3109 = CAR(BgL_pairz00_5743);
																	}
																	VECTOR_SET(BgL_v1207z00_3107, 5L,
																		BgL_arg2972z00_3109);
																}
																return BgL_v1207z00_3107;
															}
													}
												else
													{	/* Eval/evcompile.scm 575 */
														obj_t BgL_v1206z00_3110;

														BgL_v1206z00_3110 = create_vector(6L);
														VECTOR_SET(BgL_v1206z00_3110, 0L, BINT(33L));
														VECTOR_SET(BgL_v1206z00_3110, 1L, BgL_locz00_74);
														VECTOR_SET(BgL_v1206z00_3110, 2L, BgL_namez00_70);
														VECTOR_SET(BgL_v1206z00_3110, 3L, BgL_procz00_71);
														VECTOR_SET(BgL_v1206z00_3110, 4L, BgL_a0z00_3103);
														{	/* Eval/evcompile.scm 575 */
															obj_t BgL_arg2974z00_3112;

															{	/* Eval/evcompile.scm 575 */
																obj_t BgL_pairz00_5754;

																BgL_pairz00_5754 =
																	CDR(((obj_t) BgL_argsz00_72));
																BgL_arg2974z00_3112 = CAR(BgL_pairz00_5754);
															}
															VECTOR_SET(BgL_v1206z00_3110, 5L,
																BgL_arg2974z00_3112);
														}
														return BgL_v1206z00_3110;
													}
											}
										}
									else
										{	/* Eval/evcompile.scm 578 */
											obj_t BgL_v1208z00_3113;

											BgL_v1208z00_3113 = create_vector(6L);
											VECTOR_SET(BgL_v1208z00_3113, 0L, BINT(33L));
											VECTOR_SET(BgL_v1208z00_3113, 1L, BgL_locz00_74);
											VECTOR_SET(BgL_v1208z00_3113, 2L, BgL_namez00_70);
											VECTOR_SET(BgL_v1208z00_3113, 3L, BgL_procz00_71);
											{	/* Eval/evcompile.scm 578 */
												obj_t BgL_arg2975z00_3114;

												BgL_arg2975z00_3114 = CAR(((obj_t) BgL_argsz00_72));
												VECTOR_SET(BgL_v1208z00_3113, 4L, BgL_arg2975z00_3114);
											}
											{	/* Eval/evcompile.scm 578 */
												obj_t BgL_arg2976z00_3115;

												{	/* Eval/evcompile.scm 578 */
													obj_t BgL_pairz00_5765;

													BgL_pairz00_5765 = CDR(((obj_t) BgL_argsz00_72));
													BgL_arg2976z00_3115 = CAR(BgL_pairz00_5765);
												}
												VECTOR_SET(BgL_v1208z00_3113, 5L, BgL_arg2976z00_3115);
											}
											return BgL_v1208z00_3113;
										}
								}
								break;
							case 3L:

								{	/* Eval/evcompile.scm 580 */
									obj_t BgL_v1209z00_3116;

									BgL_v1209z00_3116 = create_vector(7L);
									VECTOR_SET(BgL_v1209z00_3116, 0L, BINT(34L));
									VECTOR_SET(BgL_v1209z00_3116, 1L, BgL_locz00_74);
									VECTOR_SET(BgL_v1209z00_3116, 2L, BgL_namez00_70);
									VECTOR_SET(BgL_v1209z00_3116, 3L, BgL_procz00_71);
									{	/* Eval/evcompile.scm 580 */
										obj_t BgL_arg2977z00_3117;

										BgL_arg2977z00_3117 = CAR(((obj_t) BgL_argsz00_72));
										VECTOR_SET(BgL_v1209z00_3116, 4L, BgL_arg2977z00_3117);
									}
									{	/* Eval/evcompile.scm 580 */
										obj_t BgL_arg2978z00_3118;

										{	/* Eval/evcompile.scm 580 */
											obj_t BgL_pairz00_5776;

											BgL_pairz00_5776 = CDR(((obj_t) BgL_argsz00_72));
											BgL_arg2978z00_3118 = CAR(BgL_pairz00_5776);
										}
										VECTOR_SET(BgL_v1209z00_3116, 5L, BgL_arg2978z00_3118);
									}
									{	/* Eval/evcompile.scm 580 */
										obj_t BgL_arg2980z00_3119;

										{	/* Eval/evcompile.scm 580 */
											obj_t BgL_pairz00_5783;

											{	/* Eval/evcompile.scm 580 */
												obj_t BgL_pairz00_5782;

												BgL_pairz00_5782 = CDR(((obj_t) BgL_argsz00_72));
												BgL_pairz00_5783 = CDR(BgL_pairz00_5782);
											}
											BgL_arg2980z00_3119 = CAR(BgL_pairz00_5783);
										}
										VECTOR_SET(BgL_v1209z00_3116, 6L, BgL_arg2980z00_3119);
									}
									return BgL_v1209z00_3116;
								}
								break;
							case 4L:

								{	/* Eval/evcompile.scm 582 */
									obj_t BgL_v1210z00_3120;

									BgL_v1210z00_3120 = create_vector(8L);
									VECTOR_SET(BgL_v1210z00_3120, 0L, BINT(35L));
									VECTOR_SET(BgL_v1210z00_3120, 1L, BgL_locz00_74);
									VECTOR_SET(BgL_v1210z00_3120, 2L, BgL_namez00_70);
									VECTOR_SET(BgL_v1210z00_3120, 3L, BgL_procz00_71);
									{	/* Eval/evcompile.scm 582 */
										obj_t BgL_arg2981z00_3121;

										BgL_arg2981z00_3121 = CAR(((obj_t) BgL_argsz00_72));
										VECTOR_SET(BgL_v1210z00_3120, 4L, BgL_arg2981z00_3121);
									}
									{	/* Eval/evcompile.scm 582 */
										obj_t BgL_arg2982z00_3122;

										{	/* Eval/evcompile.scm 582 */
											obj_t BgL_pairz00_5794;

											BgL_pairz00_5794 = CDR(((obj_t) BgL_argsz00_72));
											BgL_arg2982z00_3122 = CAR(BgL_pairz00_5794);
										}
										VECTOR_SET(BgL_v1210z00_3120, 5L, BgL_arg2982z00_3122);
									}
									{	/* Eval/evcompile.scm 582 */
										obj_t BgL_arg2983z00_3123;

										{	/* Eval/evcompile.scm 582 */
											obj_t BgL_pairz00_5801;

											{	/* Eval/evcompile.scm 582 */
												obj_t BgL_pairz00_5800;

												BgL_pairz00_5800 = CDR(((obj_t) BgL_argsz00_72));
												BgL_pairz00_5801 = CDR(BgL_pairz00_5800);
											}
											BgL_arg2983z00_3123 = CAR(BgL_pairz00_5801);
										}
										VECTOR_SET(BgL_v1210z00_3120, 6L, BgL_arg2983z00_3123);
									}
									{	/* Eval/evcompile.scm 582 */
										obj_t BgL_arg2984z00_3124;

										{	/* Eval/evcompile.scm 582 */
											obj_t BgL_pairz00_5810;

											{	/* Eval/evcompile.scm 582 */
												obj_t BgL_pairz00_5809;

												{	/* Eval/evcompile.scm 582 */
													obj_t BgL_pairz00_5808;

													BgL_pairz00_5808 = CDR(((obj_t) BgL_argsz00_72));
													BgL_pairz00_5809 = CDR(BgL_pairz00_5808);
												}
												BgL_pairz00_5810 = CDR(BgL_pairz00_5809);
											}
											BgL_arg2984z00_3124 = CAR(BgL_pairz00_5810);
										}
										VECTOR_SET(BgL_v1210z00_3120, 7L, BgL_arg2984z00_3124);
									}
									return BgL_v1210z00_3120;
								}
								break;
							default:
								{	/* Eval/evcompile.scm 584 */
									obj_t BgL_v1201z00_3125;

									BgL_v1201z00_3125 = create_vector(5L);
									VECTOR_SET(BgL_v1201z00_3125, 0L, BINT(36L));
									VECTOR_SET(BgL_v1201z00_3125, 1L, BgL_locz00_74);
									VECTOR_SET(BgL_v1201z00_3125, 2L, BgL_namez00_70);
									VECTOR_SET(BgL_v1201z00_3125, 3L, BgL_procz00_71);
									VECTOR_SET(BgL_v1201z00_3125, 4L, BgL_argsz00_72);
									return BgL_v1201z00_3125;
								}
							}
					}
				}
		}

	}



/* evcompile-inline1 */
	obj_t BGl_evcompilezd2inline1zd2zz__evcompilez00(obj_t BgL_locz00_75,
		obj_t BgL_namez00_76, obj_t BgL_funz00_77, obj_t BgL_a0z00_78)
	{
		{	/* Eval/evcompile.scm 589 */
			{	/* Eval/evcompile.scm 590 */
				obj_t BgL_fz00_3126;

				BgL_fz00_3126 = VECTOR_REF(((obj_t) BgL_funz00_77), 2L);
				if ((BgL_fz00_3126 == BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00))
					{	/* Eval/evcompile.scm 593 */
						obj_t BgL_v1211z00_3127;

						BgL_v1211z00_3127 = create_vector(5L);
						VECTOR_SET(BgL_v1211z00_3127, 0L, BINT(158L));
						VECTOR_SET(BgL_v1211z00_3127, 1L, BgL_locz00_75);
						VECTOR_SET(BgL_v1211z00_3127, 2L, BgL_namez00_76);
						VECTOR_SET(BgL_v1211z00_3127, 3L, BgL_funz00_77);
						VECTOR_SET(BgL_v1211z00_3127, 4L, BgL_a0z00_78);
						return BgL_v1211z00_3127;
					}
				else
					{	/* Eval/evcompile.scm 592 */
						if (
							(BgL_fz00_3126 == BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00))
							{	/* Eval/evcompile.scm 595 */
								obj_t BgL_v1212z00_3128;

								BgL_v1212z00_3128 = create_vector(5L);
								VECTOR_SET(BgL_v1212z00_3128, 0L, BINT(159L));
								VECTOR_SET(BgL_v1212z00_3128, 1L, BgL_locz00_75);
								VECTOR_SET(BgL_v1212z00_3128, 2L, BgL_namez00_76);
								VECTOR_SET(BgL_v1212z00_3128, 3L, BgL_funz00_77);
								VECTOR_SET(BgL_v1212z00_3128, 4L, BgL_a0z00_78);
								return BgL_v1212z00_3128;
							}
						else
							{	/* Eval/evcompile.scm 594 */
								if (
									(BgL_fz00_3126 ==
										BGl_cadrzd2envzd2zz__r4_pairs_and_lists_6_3z00))
									{	/* Eval/evcompile.scm 597 */
										obj_t BgL_v1213z00_3129;

										BgL_v1213z00_3129 = create_vector(5L);
										VECTOR_SET(BgL_v1213z00_3129, 0L, BINT(160L));
										VECTOR_SET(BgL_v1213z00_3129, 1L, BgL_locz00_75);
										VECTOR_SET(BgL_v1213z00_3129, 2L, BgL_namez00_76);
										VECTOR_SET(BgL_v1213z00_3129, 3L, BgL_funz00_77);
										VECTOR_SET(BgL_v1213z00_3129, 4L, BgL_a0z00_78);
										return BgL_v1213z00_3129;
									}
								else
									{	/* Eval/evcompile.scm 596 */
										return BFALSE;
									}
							}
					}
			}
		}

	}



/* evcompile-inline2 */
	obj_t BGl_evcompilezd2inline2zd2zz__evcompilez00(obj_t BgL_locz00_79,
		obj_t BgL_namez00_80, obj_t BgL_funz00_81, obj_t BgL_a0z00_82,
		obj_t BgL_a1z00_83)
	{
		{	/* Eval/evcompile.scm 604 */
			{	/* Eval/evcompile.scm 605 */
				obj_t BgL_fz00_3130;

				BgL_fz00_3130 = VECTOR_REF(((obj_t) BgL_funz00_81), 2L);
				if ((BgL_fz00_3130 == BGl_zb2zd2envz60zz__r4_numbers_6_5z00))
					{	/* Eval/evcompile.scm 608 */
						obj_t BgL_v1214z00_3131;

						BgL_v1214z00_3131 = create_vector(6L);
						VECTOR_SET(BgL_v1214z00_3131, 0L, BINT(147L));
						VECTOR_SET(BgL_v1214z00_3131, 1L, BgL_locz00_79);
						VECTOR_SET(BgL_v1214z00_3131, 2L, BgL_namez00_80);
						VECTOR_SET(BgL_v1214z00_3131, 3L, BgL_funz00_81);
						VECTOR_SET(BgL_v1214z00_3131, 4L, BgL_a0z00_82);
						VECTOR_SET(BgL_v1214z00_3131, 5L, BgL_a1z00_83);
						return BgL_v1214z00_3131;
					}
				else
					{	/* Eval/evcompile.scm 607 */
						if ((BgL_fz00_3130 == BGl_zd2zd2envz00zz__r4_numbers_6_5z00))
							{	/* Eval/evcompile.scm 610 */
								obj_t BgL_v1215z00_3132;

								BgL_v1215z00_3132 = create_vector(6L);
								VECTOR_SET(BgL_v1215z00_3132, 0L, BINT(148L));
								VECTOR_SET(BgL_v1215z00_3132, 1L, BgL_locz00_79);
								VECTOR_SET(BgL_v1215z00_3132, 2L, BgL_namez00_80);
								VECTOR_SET(BgL_v1215z00_3132, 3L, BgL_funz00_81);
								VECTOR_SET(BgL_v1215z00_3132, 4L, BgL_a0z00_82);
								VECTOR_SET(BgL_v1215z00_3132, 5L, BgL_a1z00_83);
								return BgL_v1215z00_3132;
							}
						else
							{	/* Eval/evcompile.scm 609 */
								if ((BgL_fz00_3130 == BGl_za2zd2envz70zz__r4_numbers_6_5z00))
									{	/* Eval/evcompile.scm 612 */
										obj_t BgL_v1216z00_3133;

										BgL_v1216z00_3133 = create_vector(6L);
										VECTOR_SET(BgL_v1216z00_3133, 0L, BINT(149L));
										VECTOR_SET(BgL_v1216z00_3133, 1L, BgL_locz00_79);
										VECTOR_SET(BgL_v1216z00_3133, 2L, BgL_namez00_80);
										VECTOR_SET(BgL_v1216z00_3133, 3L, BgL_funz00_81);
										VECTOR_SET(BgL_v1216z00_3133, 4L, BgL_a0z00_82);
										VECTOR_SET(BgL_v1216z00_3133, 5L, BgL_a1z00_83);
										return BgL_v1216z00_3133;
									}
								else
									{	/* Eval/evcompile.scm 611 */
										if (
											(BgL_fz00_3130 == BGl_zf2zd2envz20zz__r4_numbers_6_5z00))
											{	/* Eval/evcompile.scm 614 */
												obj_t BgL_v1217z00_3134;

												BgL_v1217z00_3134 = create_vector(6L);
												VECTOR_SET(BgL_v1217z00_3134, 0L, BINT(150L));
												VECTOR_SET(BgL_v1217z00_3134, 1L, BgL_locz00_79);
												VECTOR_SET(BgL_v1217z00_3134, 2L, BgL_namez00_80);
												VECTOR_SET(BgL_v1217z00_3134, 3L, BgL_funz00_81);
												VECTOR_SET(BgL_v1217z00_3134, 4L, BgL_a0z00_82);
												VECTOR_SET(BgL_v1217z00_3134, 5L, BgL_a1z00_83);
												return BgL_v1217z00_3134;
											}
										else
											{	/* Eval/evcompile.scm 613 */
												if (
													(BgL_fz00_3130 ==
														BGl_zc3zd2envz11zz__r4_numbers_6_5z00))
													{	/* Eval/evcompile.scm 616 */
														obj_t BgL_v1218z00_3135;

														BgL_v1218z00_3135 = create_vector(6L);
														VECTOR_SET(BgL_v1218z00_3135, 0L, BINT(151L));
														VECTOR_SET(BgL_v1218z00_3135, 1L, BgL_locz00_79);
														VECTOR_SET(BgL_v1218z00_3135, 2L, BgL_namez00_80);
														VECTOR_SET(BgL_v1218z00_3135, 3L, BgL_funz00_81);
														VECTOR_SET(BgL_v1218z00_3135, 4L, BgL_a0z00_82);
														VECTOR_SET(BgL_v1218z00_3135, 5L, BgL_a1z00_83);
														return BgL_v1218z00_3135;
													}
												else
													{	/* Eval/evcompile.scm 615 */
														if (
															(BgL_fz00_3130 ==
																BGl_ze3zd2envz31zz__r4_numbers_6_5z00))
															{	/* Eval/evcompile.scm 618 */
																obj_t BgL_v1219z00_3136;

																BgL_v1219z00_3136 = create_vector(6L);
																VECTOR_SET(BgL_v1219z00_3136, 0L, BINT(152L));
																VECTOR_SET(BgL_v1219z00_3136, 1L,
																	BgL_locz00_79);
																VECTOR_SET(BgL_v1219z00_3136, 2L,
																	BgL_namez00_80);
																VECTOR_SET(BgL_v1219z00_3136, 3L,
																	BgL_funz00_81);
																VECTOR_SET(BgL_v1219z00_3136, 4L, BgL_a0z00_82);
																VECTOR_SET(BgL_v1219z00_3136, 5L, BgL_a1z00_83);
																return BgL_v1219z00_3136;
															}
														else
															{	/* Eval/evcompile.scm 617 */
																if (
																	(BgL_fz00_3130 ==
																		BGl_zc3zd3zd2envzc2zz__r4_numbers_6_5z00))
																	{	/* Eval/evcompile.scm 620 */
																		obj_t BgL_v1220z00_3137;

																		BgL_v1220z00_3137 = create_vector(6L);
																		VECTOR_SET(BgL_v1220z00_3137, 0L,
																			BINT(153L));
																		VECTOR_SET(BgL_v1220z00_3137, 1L,
																			BgL_locz00_79);
																		VECTOR_SET(BgL_v1220z00_3137, 2L,
																			BgL_namez00_80);
																		VECTOR_SET(BgL_v1220z00_3137, 3L,
																			BgL_funz00_81);
																		VECTOR_SET(BgL_v1220z00_3137, 4L,
																			BgL_a0z00_82);
																		VECTOR_SET(BgL_v1220z00_3137, 5L,
																			BgL_a1z00_83);
																		return BgL_v1220z00_3137;
																	}
																else
																	{	/* Eval/evcompile.scm 619 */
																		if (
																			(BgL_fz00_3130 ==
																				BGl_ze3zd3zd2envze2zz__r4_numbers_6_5z00))
																			{	/* Eval/evcompile.scm 622 */
																				obj_t BgL_v1221z00_3138;

																				BgL_v1221z00_3138 = create_vector(6L);
																				VECTOR_SET(BgL_v1221z00_3138, 0L,
																					BINT(154L));
																				VECTOR_SET(BgL_v1221z00_3138, 1L,
																					BgL_locz00_79);
																				VECTOR_SET(BgL_v1221z00_3138, 2L,
																					BgL_namez00_80);
																				VECTOR_SET(BgL_v1221z00_3138, 3L,
																					BgL_funz00_81);
																				VECTOR_SET(BgL_v1221z00_3138, 4L,
																					BgL_a0z00_82);
																				VECTOR_SET(BgL_v1221z00_3138, 5L,
																					BgL_a1z00_83);
																				return BgL_v1221z00_3138;
																			}
																		else
																			{	/* Eval/evcompile.scm 621 */
																				if (
																					(BgL_fz00_3130 ==
																						BGl_zd3zd2envz01zz__r4_numbers_6_5z00))
																					{	/* Eval/evcompile.scm 624 */
																						obj_t BgL_v1222z00_3139;

																						BgL_v1222z00_3139 =
																							create_vector(6L);
																						VECTOR_SET(BgL_v1222z00_3139, 0L,
																							BINT(155L));
																						VECTOR_SET(BgL_v1222z00_3139, 1L,
																							BgL_locz00_79);
																						VECTOR_SET(BgL_v1222z00_3139, 2L,
																							BgL_namez00_80);
																						VECTOR_SET(BgL_v1222z00_3139, 3L,
																							BgL_funz00_81);
																						VECTOR_SET(BgL_v1222z00_3139, 4L,
																							BgL_a0z00_82);
																						VECTOR_SET(BgL_v1222z00_3139, 5L,
																							BgL_a1z00_83);
																						return BgL_v1222z00_3139;
																					}
																				else
																					{	/* Eval/evcompile.scm 623 */
																						if (
																							(BgL_fz00_3130 ==
																								BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00))
																							{	/* Eval/evcompile.scm 626 */
																								obj_t BgL_v1223z00_3140;

																								BgL_v1223z00_3140 =
																									create_vector(6L);
																								VECTOR_SET(BgL_v1223z00_3140,
																									0L, BINT(156L));
																								VECTOR_SET(BgL_v1223z00_3140,
																									1L, BgL_locz00_79);
																								VECTOR_SET(BgL_v1223z00_3140,
																									2L, BgL_namez00_80);
																								VECTOR_SET(BgL_v1223z00_3140,
																									3L, BgL_funz00_81);
																								VECTOR_SET(BgL_v1223z00_3140,
																									4L, BgL_a0z00_82);
																								VECTOR_SET(BgL_v1223z00_3140,
																									5L, BgL_a1z00_83);
																								return BgL_v1223z00_3140;
																							}
																						else
																							{	/* Eval/evcompile.scm 625 */
																								if (
																									(BgL_fz00_3130 ==
																										BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00))
																									{	/* Eval/evcompile.scm 628 */
																										obj_t BgL_v1224z00_3141;

																										BgL_v1224z00_3141 =
																											create_vector(6L);
																										VECTOR_SET
																											(BgL_v1224z00_3141, 0L,
																											BINT(157L));
																										VECTOR_SET
																											(BgL_v1224z00_3141, 1L,
																											BgL_locz00_79);
																										VECTOR_SET
																											(BgL_v1224z00_3141, 2L,
																											BgL_namez00_80);
																										VECTOR_SET
																											(BgL_v1224z00_3141, 3L,
																											BgL_funz00_81);
																										VECTOR_SET
																											(BgL_v1224z00_3141, 4L,
																											BgL_a0z00_82);
																										VECTOR_SET
																											(BgL_v1224z00_3141, 5L,
																											BgL_a1z00_83);
																										return BgL_v1224z00_3141;
																									}
																								else
																									{	/* Eval/evcompile.scm 627 */
																										if (
																											(BgL_fz00_3130 ==
																												BGl_zb2fxzd2envz60zz__r4_numbers_6_5_fixnumz00))
																											{	/* Eval/evcompile.scm 630 */
																												obj_t BgL_v1225z00_3142;

																												BgL_v1225z00_3142 =
																													create_vector(6L);
																												VECTOR_SET
																													(BgL_v1225z00_3142,
																													0L, BINT(166L));
																												VECTOR_SET
																													(BgL_v1225z00_3142,
																													1L, BgL_locz00_79);
																												VECTOR_SET
																													(BgL_v1225z00_3142,
																													2L, BgL_namez00_80);
																												VECTOR_SET
																													(BgL_v1225z00_3142,
																													3L, BgL_funz00_81);
																												VECTOR_SET
																													(BgL_v1225z00_3142,
																													4L, BgL_a0z00_82);
																												VECTOR_SET
																													(BgL_v1225z00_3142,
																													5L, BgL_a1z00_83);
																												return
																													BgL_v1225z00_3142;
																											}
																										else
																											{	/* Eval/evcompile.scm 629 */
																												if (
																													(BgL_fz00_3130 ==
																														BGl_zd2fxzd2envz00zz__r4_numbers_6_5_fixnumz00))
																													{	/* Eval/evcompile.scm 632 */
																														obj_t
																															BgL_v1226z00_3143;
																														BgL_v1226z00_3143 =
																															create_vector(6L);
																														VECTOR_SET
																															(BgL_v1226z00_3143,
																															0L, BINT(167L));
																														VECTOR_SET
																															(BgL_v1226z00_3143,
																															1L,
																															BgL_locz00_79);
																														VECTOR_SET
																															(BgL_v1226z00_3143,
																															2L,
																															BgL_namez00_80);
																														VECTOR_SET
																															(BgL_v1226z00_3143,
																															3L,
																															BgL_funz00_81);
																														VECTOR_SET
																															(BgL_v1226z00_3143,
																															4L, BgL_a0z00_82);
																														VECTOR_SET
																															(BgL_v1226z00_3143,
																															5L, BgL_a1z00_83);
																														return
																															BgL_v1226z00_3143;
																													}
																												else
																													{	/* Eval/evcompile.scm 631 */
																														if (
																															(BgL_fz00_3130 ==
																																BGl_za2fxzd2envz70zz__r4_numbers_6_5_fixnumz00))
																															{	/* Eval/evcompile.scm 634 */
																																obj_t
																																	BgL_v1227z00_3144;
																																BgL_v1227z00_3144
																																	=
																																	create_vector
																																	(6L);
																																VECTOR_SET
																																	(BgL_v1227z00_3144,
																																	0L,
																																	BINT(168L));
																																VECTOR_SET
																																	(BgL_v1227z00_3144,
																																	1L,
																																	BgL_locz00_79);
																																VECTOR_SET
																																	(BgL_v1227z00_3144,
																																	2L,
																																	BgL_namez00_80);
																																VECTOR_SET
																																	(BgL_v1227z00_3144,
																																	3L,
																																	BgL_funz00_81);
																																VECTOR_SET
																																	(BgL_v1227z00_3144,
																																	4L,
																																	BgL_a0z00_82);
																																VECTOR_SET
																																	(BgL_v1227z00_3144,
																																	5L,
																																	BgL_a1z00_83);
																																return
																																	BgL_v1227z00_3144;
																															}
																														else
																															{	/* Eval/evcompile.scm 633 */
																																if (
																																	(BgL_fz00_3130
																																		==
																																		BGl_zf2fxzd2envz20zz__r4_numbers_6_5_fixnumz00))
																																	{	/* Eval/evcompile.scm 636 */
																																		obj_t
																																			BgL_v1228z00_3145;
																																		BgL_v1228z00_3145
																																			=
																																			create_vector
																																			(6L);
																																		VECTOR_SET
																																			(BgL_v1228z00_3145,
																																			0L,
																																			BINT
																																			(169L));
																																		VECTOR_SET
																																			(BgL_v1228z00_3145,
																																			1L,
																																			BgL_locz00_79);
																																		VECTOR_SET
																																			(BgL_v1228z00_3145,
																																			2L,
																																			BgL_namez00_80);
																																		VECTOR_SET
																																			(BgL_v1228z00_3145,
																																			3L,
																																			BgL_funz00_81);
																																		VECTOR_SET
																																			(BgL_v1228z00_3145,
																																			4L,
																																			BgL_a0z00_82);
																																		VECTOR_SET
																																			(BgL_v1228z00_3145,
																																			5L,
																																			BgL_a1z00_83);
																																		return
																																			BgL_v1228z00_3145;
																																	}
																																else
																																	{	/* Eval/evcompile.scm 635 */
																																		if (
																																			(BgL_fz00_3130
																																				==
																																				BGl_zc3fxzd2envz11zz__r4_numbers_6_5_fixnumz00))
																																			{	/* Eval/evcompile.scm 638 */
																																				obj_t
																																					BgL_v1229z00_3146;
																																				BgL_v1229z00_3146
																																					=
																																					create_vector
																																					(6L);
																																				VECTOR_SET
																																					(BgL_v1229z00_3146,
																																					0L,
																																					BINT
																																					(170L));
																																				VECTOR_SET
																																					(BgL_v1229z00_3146,
																																					1L,
																																					BgL_locz00_79);
																																				VECTOR_SET
																																					(BgL_v1229z00_3146,
																																					2L,
																																					BgL_namez00_80);
																																				VECTOR_SET
																																					(BgL_v1229z00_3146,
																																					3L,
																																					BgL_funz00_81);
																																				VECTOR_SET
																																					(BgL_v1229z00_3146,
																																					4L,
																																					BgL_a0z00_82);
																																				VECTOR_SET
																																					(BgL_v1229z00_3146,
																																					5L,
																																					BgL_a1z00_83);
																																				return
																																					BgL_v1229z00_3146;
																																			}
																																		else
																																			{	/* Eval/evcompile.scm 637 */
																																				if (
																																					(BgL_fz00_3130
																																						==
																																						BGl_ze3fxzd2envz31zz__r4_numbers_6_5_fixnumz00))
																																					{	/* Eval/evcompile.scm 640 */
																																						obj_t
																																							BgL_v1230z00_3147;
																																						BgL_v1230z00_3147
																																							=
																																							create_vector
																																							(6L);
																																						VECTOR_SET
																																							(BgL_v1230z00_3147,
																																							0L,
																																							BINT
																																							(171L));
																																						VECTOR_SET
																																							(BgL_v1230z00_3147,
																																							1L,
																																							BgL_locz00_79);
																																						VECTOR_SET
																																							(BgL_v1230z00_3147,
																																							2L,
																																							BgL_namez00_80);
																																						VECTOR_SET
																																							(BgL_v1230z00_3147,
																																							3L,
																																							BgL_funz00_81);
																																						VECTOR_SET
																																							(BgL_v1230z00_3147,
																																							4L,
																																							BgL_a0z00_82);
																																						VECTOR_SET
																																							(BgL_v1230z00_3147,
																																							5L,
																																							BgL_a1z00_83);
																																						return
																																							BgL_v1230z00_3147;
																																					}
																																				else
																																					{	/* Eval/evcompile.scm 639 */
																																						if (
																																							(BgL_fz00_3130
																																								==
																																								BGl_zc3zd3fxzd2envzc2zz__r4_numbers_6_5_fixnumz00))
																																							{	/* Eval/evcompile.scm 642 */
																																								obj_t
																																									BgL_v1231z00_3148;
																																								BgL_v1231z00_3148
																																									=
																																									create_vector
																																									(6L);
																																								VECTOR_SET
																																									(BgL_v1231z00_3148,
																																									0L,
																																									BINT
																																									(172L));
																																								VECTOR_SET
																																									(BgL_v1231z00_3148,
																																									1L,
																																									BgL_locz00_79);
																																								VECTOR_SET
																																									(BgL_v1231z00_3148,
																																									2L,
																																									BgL_namez00_80);
																																								VECTOR_SET
																																									(BgL_v1231z00_3148,
																																									3L,
																																									BgL_funz00_81);
																																								VECTOR_SET
																																									(BgL_v1231z00_3148,
																																									4L,
																																									BgL_a0z00_82);
																																								VECTOR_SET
																																									(BgL_v1231z00_3148,
																																									5L,
																																									BgL_a1z00_83);
																																								return
																																									BgL_v1231z00_3148;
																																							}
																																						else
																																							{	/* Eval/evcompile.scm 641 */
																																								if ((BgL_fz00_3130 == BGl_ze3zd3fxzd2envze2zz__r4_numbers_6_5_fixnumz00))
																																									{	/* Eval/evcompile.scm 644 */
																																										obj_t
																																											BgL_v1232z00_3149;
																																										BgL_v1232z00_3149
																																											=
																																											create_vector
																																											(6L);
																																										VECTOR_SET
																																											(BgL_v1232z00_3149,
																																											0L,
																																											BINT
																																											(173L));
																																										VECTOR_SET
																																											(BgL_v1232z00_3149,
																																											1L,
																																											BgL_locz00_79);
																																										VECTOR_SET
																																											(BgL_v1232z00_3149,
																																											2L,
																																											BgL_namez00_80);
																																										VECTOR_SET
																																											(BgL_v1232z00_3149,
																																											3L,
																																											BgL_funz00_81);
																																										VECTOR_SET
																																											(BgL_v1232z00_3149,
																																											4L,
																																											BgL_a0z00_82);
																																										VECTOR_SET
																																											(BgL_v1232z00_3149,
																																											5L,
																																											BgL_a1z00_83);
																																										return
																																											BgL_v1232z00_3149;
																																									}
																																								else
																																									{	/* Eval/evcompile.scm 643 */
																																										if ((BgL_fz00_3130 == BGl_zd3fxzd2envz01zz__r4_numbers_6_5_fixnumz00))
																																											{	/* Eval/evcompile.scm 646 */
																																												obj_t
																																													BgL_v1233z00_3150;
																																												BgL_v1233z00_3150
																																													=
																																													create_vector
																																													(6L);
																																												VECTOR_SET
																																													(BgL_v1233z00_3150,
																																													0L,
																																													BINT
																																													(174L));
																																												VECTOR_SET
																																													(BgL_v1233z00_3150,
																																													1L,
																																													BgL_locz00_79);
																																												VECTOR_SET
																																													(BgL_v1233z00_3150,
																																													2L,
																																													BgL_namez00_80);
																																												VECTOR_SET
																																													(BgL_v1233z00_3150,
																																													3L,
																																													BgL_funz00_81);
																																												VECTOR_SET
																																													(BgL_v1233z00_3150,
																																													4L,
																																													BgL_a0z00_82);
																																												VECTOR_SET
																																													(BgL_v1233z00_3150,
																																													5L,
																																													BgL_a1z00_83);
																																												return
																																													BgL_v1233z00_3150;
																																											}
																																										else
																																											{	/* Eval/evcompile.scm 645 */
																																												return
																																													BFALSE;
																																											}
																																									}
																																							}
																																					}
																																			}
																																	}
																															}
																													}
																											}
																									}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
							}
					}
			}
		}

	}



/* evcompile-lambda */
	obj_t BGl_evcompilezd2lambdazd2zz__evcompilez00(obj_t BgL_formalsz00_84,
		obj_t BgL_bodyz00_85, obj_t BgL_wherez00_86, obj_t BgL_locz00_87)
	{
		{	/* Eval/evcompile.scm 653 */
			{

				if (NULLP(BgL_formalsz00_84))
					{	/* Eval/evcompile.scm 658 */
					BgL_tagzd27055zd2_3152:
						if (BGl_tracedzf3ze70z14zz__evcompilez00(BgL_wherez00_86))
							{	/* Eval/evcompile.scm 661 */
								obj_t BgL_v1234z00_3224;

								BgL_v1234z00_3224 = create_vector(4L);
								{	/* Eval/evcompile.scm 661 */
									long BgL_arg3075z00_3225;

									BgL_arg3075z00_3225 =
										(bgl_list_length(BgL_formalsz00_84) + 37L);
									VECTOR_SET(BgL_v1234z00_3224, 0L, BINT(BgL_arg3075z00_3225));
								}
								VECTOR_SET(BgL_v1234z00_3224, 1L, BgL_locz00_87);
								VECTOR_SET(BgL_v1234z00_3224, 2L, BgL_bodyz00_85);
								VECTOR_SET(BgL_v1234z00_3224, 3L, BgL_wherez00_86);
								return BgL_v1234z00_3224;
							}
						else
							{	/* Eval/evcompile.scm 662 */
								obj_t BgL_v1235z00_3227;

								BgL_v1235z00_3227 = create_vector(3L);
								{	/* Eval/evcompile.scm 662 */
									long BgL_arg3077z00_3228;

									BgL_arg3077z00_3228 =
										(bgl_list_length(BgL_formalsz00_84) + 42L);
									VECTOR_SET(BgL_v1235z00_3227, 0L, BINT(BgL_arg3077z00_3228));
								}
								VECTOR_SET(BgL_v1235z00_3227, 1L, BgL_locz00_87);
								VECTOR_SET(BgL_v1235z00_3227, 2L, BgL_bodyz00_85);
								return BgL_v1235z00_3227;
							}
					}
				else
					{	/* Eval/evcompile.scm 658 */
						if (PAIRP(BgL_formalsz00_84))
							{	/* Eval/evcompile.scm 658 */
								if (NULLP(CDR(((obj_t) BgL_formalsz00_84))))
									{	/* Eval/evcompile.scm 658 */
										goto BgL_tagzd27055zd2_3152;
									}
								else
									{	/* Eval/evcompile.scm 658 */
										obj_t BgL_cdrzd27068zd2_3163;

										BgL_cdrzd27068zd2_3163 = CDR(((obj_t) BgL_formalsz00_84));
										if (PAIRP(BgL_cdrzd27068zd2_3163))
											{	/* Eval/evcompile.scm 658 */
												if (NULLP(CDR(BgL_cdrzd27068zd2_3163)))
													{	/* Eval/evcompile.scm 658 */
														goto BgL_tagzd27055zd2_3152;
													}
												else
													{	/* Eval/evcompile.scm 658 */
														obj_t BgL_cdrzd27075zd2_3167;

														BgL_cdrzd27075zd2_3167 =
															CDR(((obj_t) BgL_cdrzd27068zd2_3163));
														if (PAIRP(BgL_cdrzd27075zd2_3167))
															{	/* Eval/evcompile.scm 658 */
																if (NULLP(CDR(BgL_cdrzd27075zd2_3167)))
																	{	/* Eval/evcompile.scm 658 */
																		goto BgL_tagzd27055zd2_3152;
																	}
																else
																	{	/* Eval/evcompile.scm 658 */
																		obj_t BgL_cdrzd27083zd2_3171;

																		{	/* Eval/evcompile.scm 658 */
																			obj_t BgL_pairz00_6005;

																			BgL_pairz00_6005 =
																				CDR(((obj_t) BgL_cdrzd27068zd2_3163));
																			BgL_cdrzd27083zd2_3171 =
																				CDR(BgL_pairz00_6005);
																		}
																		if (PAIRP(BgL_cdrzd27083zd2_3171))
																			{	/* Eval/evcompile.scm 658 */
																				if (NULLP(CDR(BgL_cdrzd27083zd2_3171)))
																					{	/* Eval/evcompile.scm 658 */
																						goto BgL_tagzd27055zd2_3152;
																					}
																				else
																					{	/* Eval/evcompile.scm 658 */
																						bool_t BgL_test4426z00_10805;

																						{	/* Eval/evcompile.scm 658 */
																							obj_t BgL_tmpz00_10806;

																							BgL_tmpz00_10806 =
																								CAR(
																								((obj_t) BgL_formalsz00_84));
																							BgL_test4426z00_10805 =
																								PAIRP(BgL_tmpz00_10806);
																						}
																						if (BgL_test4426z00_10805)
																							{	/* Eval/evcompile.scm 658 */
																							BgL_tagzd27060zd2_3157:
																								if (BGl_tracedzf3ze70z14zz__evcompilez00(BgL_wherez00_86))
																									{	/* Eval/evcompile.scm 681 */
																										obj_t BgL_v1244z00_3243;

																										BgL_v1244z00_3243 =
																											create_vector(5L);
																										VECTOR_SET
																											(BgL_v1244z00_3243, 0L,
																											BINT(55L));
																										VECTOR_SET
																											(BgL_v1244z00_3243, 1L,
																											BgL_locz00_87);
																										VECTOR_SET
																											(BgL_v1244z00_3243, 2L,
																											BgL_bodyz00_85);
																										VECTOR_SET
																											(BgL_v1244z00_3243, 3L,
																											BgL_wherez00_86);
																										VECTOR_SET
																											(BgL_v1244z00_3243, 4L,
																											BgL_formalsz00_84);
																										return BgL_v1244z00_3243;
																									}
																								else
																									{	/* Eval/evcompile.scm 682 */
																										obj_t BgL_v1245z00_3244;

																										BgL_v1245z00_3244 =
																											create_vector(4L);
																										VECTOR_SET
																											(BgL_v1245z00_3244, 0L,
																											BINT(56L));
																										VECTOR_SET
																											(BgL_v1245z00_3244, 1L,
																											BgL_locz00_87);
																										VECTOR_SET
																											(BgL_v1245z00_3244, 2L,
																											BgL_bodyz00_85);
																										VECTOR_SET
																											(BgL_v1245z00_3244, 3L,
																											BgL_formalsz00_84);
																										return BgL_v1245z00_3244;
																									}
																							}
																						else
																							{	/* Eval/evcompile.scm 658 */
																								bool_t BgL_test4428z00_10825;

																								{	/* Eval/evcompile.scm 658 */
																									obj_t BgL_tmpz00_10826;

																									{	/* Eval/evcompile.scm 658 */
																										obj_t BgL_pairz00_6009;

																										BgL_pairz00_6009 =
																											CDR(
																											((obj_t)
																												BgL_formalsz00_84));
																										BgL_tmpz00_10826 =
																											CAR(BgL_pairz00_6009);
																									}
																									BgL_test4428z00_10825 =
																										PAIRP(BgL_tmpz00_10826);
																								}
																								if (BgL_test4428z00_10825)
																									{	/* Eval/evcompile.scm 658 */
																										goto BgL_tagzd27060zd2_3157;
																									}
																								else
																									{	/* Eval/evcompile.scm 658 */
																										bool_t
																											BgL_test4429z00_10831;
																										{	/* Eval/evcompile.scm 658 */
																											obj_t BgL_tmpz00_10832;

																											{	/* Eval/evcompile.scm 658 */
																												obj_t BgL_pairz00_6012;

																												{	/* Eval/evcompile.scm 658 */
																													obj_t
																														BgL_pairz00_6011;
																													BgL_pairz00_6011 =
																														CDR(((obj_t)
																															BgL_formalsz00_84));
																													BgL_pairz00_6012 =
																														CDR
																														(BgL_pairz00_6011);
																												}
																												BgL_tmpz00_10832 =
																													CAR(BgL_pairz00_6012);
																											}
																											BgL_test4429z00_10831 =
																												PAIRP(BgL_tmpz00_10832);
																										}
																										if (BgL_test4429z00_10831)
																											{	/* Eval/evcompile.scm 658 */
																												goto
																													BgL_tagzd27060zd2_3157;
																											}
																										else
																											{	/* Eval/evcompile.scm 658 */
																												goto
																													BgL_tagzd27060zd2_3157;
																											}
																									}
																							}
																					}
																			}
																		else
																			{	/* Eval/evcompile.scm 658 */
																				bool_t BgL_test4430z00_10838;

																				{	/* Eval/evcompile.scm 658 */
																					obj_t BgL_tmpz00_10839;

																					BgL_tmpz00_10839 =
																						CAR(((obj_t) BgL_formalsz00_84));
																					BgL_test4430z00_10838 =
																						PAIRP(BgL_tmpz00_10839);
																				}
																				if (BgL_test4430z00_10838)
																					{	/* Eval/evcompile.scm 658 */
																						goto BgL_tagzd27060zd2_3157;
																					}
																				else
																					{	/* Eval/evcompile.scm 658 */
																						bool_t BgL_test4431z00_10843;

																						{	/* Eval/evcompile.scm 658 */
																							obj_t BgL_tmpz00_10844;

																							{	/* Eval/evcompile.scm 658 */
																								obj_t BgL_pairz00_6015;

																								BgL_pairz00_6015 =
																									CDR(
																									((obj_t) BgL_formalsz00_84));
																								BgL_tmpz00_10844 =
																									CAR(BgL_pairz00_6015);
																							}
																							BgL_test4431z00_10843 =
																								PAIRP(BgL_tmpz00_10844);
																						}
																						if (BgL_test4431z00_10843)
																							{	/* Eval/evcompile.scm 658 */
																								goto BgL_tagzd27060zd2_3157;
																							}
																						else
																							{	/* Eval/evcompile.scm 658 */
																								bool_t BgL_test4432z00_10849;

																								{	/* Eval/evcompile.scm 658 */
																									obj_t BgL_tmpz00_10850;

																									{	/* Eval/evcompile.scm 658 */
																										obj_t BgL_pairz00_6018;

																										{	/* Eval/evcompile.scm 658 */
																											obj_t BgL_pairz00_6017;

																											BgL_pairz00_6017 =
																												CDR(
																												((obj_t)
																													BgL_formalsz00_84));
																											BgL_pairz00_6018 =
																												CDR(BgL_pairz00_6017);
																										}
																										BgL_tmpz00_10850 =
																											CAR(BgL_pairz00_6018);
																									}
																									BgL_test4432z00_10849 =
																										PAIRP(BgL_tmpz00_10850);
																								}
																								if (BgL_test4432z00_10849)
																									{	/* Eval/evcompile.scm 658 */
																										goto BgL_tagzd27060zd2_3157;
																									}
																								else
																									{	/* Eval/evcompile.scm 658 */
																										if (BGl_tracedzf3ze70z14zz__evcompilez00(BgL_wherez00_86))
																											{	/* Eval/evcompile.scm 677 */
																												obj_t BgL_v1242z00_3240;

																												BgL_v1242z00_3240 =
																													create_vector(4L);
																												VECTOR_SET
																													(BgL_v1242z00_3240,
																													0L, BINT(50L));
																												VECTOR_SET
																													(BgL_v1242z00_3240,
																													1L, BgL_locz00_87);
																												VECTOR_SET
																													(BgL_v1242z00_3240,
																													2L, BgL_bodyz00_85);
																												VECTOR_SET
																													(BgL_v1242z00_3240,
																													3L, BgL_wherez00_86);
																												return
																													BgL_v1242z00_3240;
																											}
																										else
																											{	/* Eval/evcompile.scm 678 */
																												obj_t BgL_v1243z00_3241;

																												BgL_v1243z00_3241 =
																													create_vector(3L);
																												VECTOR_SET
																													(BgL_v1243z00_3241,
																													0L, BINT(54L));
																												VECTOR_SET
																													(BgL_v1243z00_3241,
																													1L, BgL_locz00_87);
																												VECTOR_SET
																													(BgL_v1243z00_3241,
																													2L, BgL_bodyz00_85);
																												return
																													BgL_v1243z00_3241;
																											}
																									}
																							}
																					}
																			}
																	}
															}
														else
															{	/* Eval/evcompile.scm 658 */
																bool_t BgL_test4434z00_10869;

																{	/* Eval/evcompile.scm 658 */
																	obj_t BgL_tmpz00_10870;

																	BgL_tmpz00_10870 =
																		CAR(((obj_t) BgL_formalsz00_84));
																	BgL_test4434z00_10869 =
																		PAIRP(BgL_tmpz00_10870);
																}
																if (BgL_test4434z00_10869)
																	{	/* Eval/evcompile.scm 658 */
																		goto BgL_tagzd27060zd2_3157;
																	}
																else
																	{	/* Eval/evcompile.scm 658 */
																		bool_t BgL_test4435z00_10874;

																		{	/* Eval/evcompile.scm 658 */
																			obj_t BgL_tmpz00_10875;

																			BgL_tmpz00_10875 =
																				CAR(((obj_t) BgL_cdrzd27068zd2_3163));
																			BgL_test4435z00_10874 =
																				PAIRP(BgL_tmpz00_10875);
																		}
																		if (BgL_test4435z00_10874)
																			{	/* Eval/evcompile.scm 658 */
																				goto BgL_tagzd27060zd2_3157;
																			}
																		else
																			{	/* Eval/evcompile.scm 658 */
																				if (BGl_tracedzf3ze70z14zz__evcompilez00
																					(BgL_wherez00_86))
																					{	/* Eval/evcompile.scm 673 */
																						obj_t BgL_v1240z00_3237;

																						BgL_v1240z00_3237 =
																							create_vector(4L);
																						VECTOR_SET(BgL_v1240z00_3237, 0L,
																							BINT(49L));
																						VECTOR_SET(BgL_v1240z00_3237, 1L,
																							BgL_locz00_87);
																						VECTOR_SET(BgL_v1240z00_3237, 2L,
																							BgL_bodyz00_85);
																						VECTOR_SET(BgL_v1240z00_3237, 3L,
																							BgL_wherez00_86);
																						return BgL_v1240z00_3237;
																					}
																				else
																					{	/* Eval/evcompile.scm 674 */
																						obj_t BgL_v1241z00_3238;

																						BgL_v1241z00_3238 =
																							create_vector(3L);
																						VECTOR_SET(BgL_v1241z00_3238, 0L,
																							BINT(53L));
																						VECTOR_SET(BgL_v1241z00_3238, 1L,
																							BgL_locz00_87);
																						VECTOR_SET(BgL_v1241z00_3238, 2L,
																							BgL_bodyz00_85);
																						return BgL_v1241z00_3238;
																					}
																			}
																	}
															}
													}
											}
										else
											{	/* Eval/evcompile.scm 658 */
												bool_t BgL_test4437z00_10892;

												{	/* Eval/evcompile.scm 658 */
													obj_t BgL_tmpz00_10893;

													BgL_tmpz00_10893 = CAR(((obj_t) BgL_formalsz00_84));
													BgL_test4437z00_10892 = PAIRP(BgL_tmpz00_10893);
												}
												if (BgL_test4437z00_10892)
													{	/* Eval/evcompile.scm 658 */
														goto BgL_tagzd27060zd2_3157;
													}
												else
													{	/* Eval/evcompile.scm 658 */
														if (BGl_tracedzf3ze70z14zz__evcompilez00
															(BgL_wherez00_86))
															{	/* Eval/evcompile.scm 669 */
																obj_t BgL_v1238z00_3234;

																BgL_v1238z00_3234 = create_vector(4L);
																VECTOR_SET(BgL_v1238z00_3234, 0L, BINT(48L));
																VECTOR_SET(BgL_v1238z00_3234, 1L,
																	BgL_locz00_87);
																VECTOR_SET(BgL_v1238z00_3234, 2L,
																	BgL_bodyz00_85);
																VECTOR_SET(BgL_v1238z00_3234, 3L,
																	BgL_wherez00_86);
																return BgL_v1238z00_3234;
															}
														else
															{	/* Eval/evcompile.scm 670 */
																obj_t BgL_v1239z00_3235;

																BgL_v1239z00_3235 = create_vector(3L);
																VECTOR_SET(BgL_v1239z00_3235, 0L, BINT(52L));
																VECTOR_SET(BgL_v1239z00_3235, 1L,
																	BgL_locz00_87);
																VECTOR_SET(BgL_v1239z00_3235, 2L,
																	BgL_bodyz00_85);
																return BgL_v1239z00_3235;
															}
													}
											}
									}
							}
						else
							{	/* Eval/evcompile.scm 658 */
								if (BGl_tracedzf3ze70z14zz__evcompilez00(BgL_wherez00_86))
									{	/* Eval/evcompile.scm 665 */
										obj_t BgL_v1236z00_3231;

										BgL_v1236z00_3231 = create_vector(4L);
										VECTOR_SET(BgL_v1236z00_3231, 0L, BINT(47L));
										VECTOR_SET(BgL_v1236z00_3231, 1L, BgL_locz00_87);
										VECTOR_SET(BgL_v1236z00_3231, 2L, BgL_bodyz00_85);
										VECTOR_SET(BgL_v1236z00_3231, 3L, BgL_wherez00_86);
										return BgL_v1236z00_3231;
									}
								else
									{	/* Eval/evcompile.scm 666 */
										obj_t BgL_v1237z00_3232;

										BgL_v1237z00_3232 = create_vector(3L);
										VECTOR_SET(BgL_v1237z00_3232, 0L, BINT(51L));
										VECTOR_SET(BgL_v1237z00_3232, 1L, BgL_locz00_87);
										VECTOR_SET(BgL_v1237z00_3232, 2L, BgL_bodyz00_85);
										return BgL_v1237z00_3232;
									}
							}
					}
			}
		}

	}



/* traced?~0 */
	bool_t BGl_tracedzf3ze70z14zz__evcompilez00(obj_t BgL_wherez00_6758)
	{
		{	/* Eval/evcompile.scm 656 */
			if (CBOOL(BGl_getpropz00zz__r4_symbols_6_4z00(BgL_wherez00_6758,
						BGl_symbol3884z00zz__evcompilez00)))
				{	/* Eval/evcompile.scm 656 */
					return ((bool_t) 0);
				}
			else
				{	/* Eval/evcompile.scm 656 */
					return ((bool_t) 1);
				}
		}

	}



/* evcompile-let */
	obj_t BGl_evcompilezd2letzd2zz__evcompilez00(obj_t BgL_bindingsz00_88,
		obj_t BgL_bodyz00_89, obj_t BgL_envz00_90, obj_t BgL_genvz00_91,
		obj_t BgL_wherez00_92, bool_t BgL_tailz00_93, obj_t BgL_locz00_94,
		bool_t BgL_lkpz00_95)
	{
		{	/* Eval/evcompile.scm 687 */
			{	/* Eval/evcompile.scm 688 */
				obj_t BgL_env2z00_3249;

				{	/* Eval/evcompile.scm 688 */
					obj_t BgL_arg3105z00_3274;

					if (NULLP(BgL_bindingsz00_88))
						{	/* Eval/evcompile.scm 688 */
							BgL_arg3105z00_3274 = BNIL;
						}
					else
						{	/* Eval/evcompile.scm 688 */
							obj_t BgL_head1248z00_3277;

							{	/* Eval/evcompile.scm 688 */
								obj_t BgL_arg3119z00_3289;

								{	/* Eval/evcompile.scm 688 */
									obj_t BgL_pairz00_6024;

									BgL_pairz00_6024 = CAR(((obj_t) BgL_bindingsz00_88));
									BgL_arg3119z00_3289 = CAR(BgL_pairz00_6024);
								}
								BgL_head1248z00_3277 =
									MAKE_YOUNG_PAIR(BgL_arg3119z00_3289, BNIL);
							}
							{	/* Eval/evcompile.scm 688 */
								obj_t BgL_g1251z00_3278;

								BgL_g1251z00_3278 = CDR(((obj_t) BgL_bindingsz00_88));
								{
									obj_t BgL_l1246z00_6045;
									obj_t BgL_tail1249z00_6046;

									BgL_l1246z00_6045 = BgL_g1251z00_3278;
									BgL_tail1249z00_6046 = BgL_head1248z00_3277;
								BgL_zc3z04anonymousza33107ze3z87_6044:
									if (NULLP(BgL_l1246z00_6045))
										{	/* Eval/evcompile.scm 688 */
											BgL_arg3105z00_3274 = BgL_head1248z00_3277;
										}
									else
										{	/* Eval/evcompile.scm 688 */
											obj_t BgL_newtail1250z00_6053;

											{	/* Eval/evcompile.scm 688 */
												obj_t BgL_arg3111z00_6054;

												{	/* Eval/evcompile.scm 688 */
													obj_t BgL_pairz00_6058;

													BgL_pairz00_6058 = CAR(((obj_t) BgL_l1246z00_6045));
													BgL_arg3111z00_6054 = CAR(BgL_pairz00_6058);
												}
												BgL_newtail1250z00_6053 =
													MAKE_YOUNG_PAIR(BgL_arg3111z00_6054, BNIL);
											}
											SET_CDR(BgL_tail1249z00_6046, BgL_newtail1250z00_6053);
											{	/* Eval/evcompile.scm 688 */
												obj_t BgL_arg3110z00_6056;

												BgL_arg3110z00_6056 = CDR(((obj_t) BgL_l1246z00_6045));
												{
													obj_t BgL_tail1249z00_10944;
													obj_t BgL_l1246z00_10943;

													BgL_l1246z00_10943 = BgL_arg3110z00_6056;
													BgL_tail1249z00_10944 = BgL_newtail1250z00_6053;
													BgL_tail1249z00_6046 = BgL_tail1249z00_10944;
													BgL_l1246z00_6045 = BgL_l1246z00_10943;
													goto BgL_zc3z04anonymousza33107ze3z87_6044;
												}
											}
										}
								}
							}
						}
					BgL_env2z00_3249 =
						BGl_loopze70ze7zz__evcompilez00(BgL_envz00_90, BgL_arg3105z00_3274);
				}
				{	/* Eval/evcompile.scm 688 */
					obj_t BgL_bz00_3250;

					BgL_bz00_3250 =
						BGl_evcompilez00zz__evcompilez00(BgL_bodyz00_89, BgL_env2z00_3249,
						BgL_genvz00_91, BgL_wherez00_92, BgL_tailz00_93, BgL_locz00_94,
						BgL_lkpz00_95, ((bool_t) 0));
					{	/* Eval/evcompile.scm 689 */
						obj_t BgL_asz00_3251;

						if (NULLP(BgL_bindingsz00_88))
							{	/* Eval/evcompile.scm 690 */
								BgL_asz00_3251 = BNIL;
							}
						else
							{	/* Eval/evcompile.scm 690 */
								obj_t BgL_head1254z00_3256;

								BgL_head1254z00_3256 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1252z00_3258;
									obj_t BgL_tail1255z00_3259;

									BgL_l1252z00_3258 = BgL_bindingsz00_88;
									BgL_tail1255z00_3259 = BgL_head1254z00_3256;
								BgL_zc3z04anonymousza33091ze3z87_3260:
									if (NULLP(BgL_l1252z00_3258))
										{	/* Eval/evcompile.scm 690 */
											BgL_asz00_3251 = CDR(BgL_head1254z00_3256);
										}
									else
										{	/* Eval/evcompile.scm 690 */
											obj_t BgL_newtail1256z00_3262;

											{	/* Eval/evcompile.scm 690 */
												obj_t BgL_arg3097z00_3264;

												{	/* Eval/evcompile.scm 690 */
													obj_t BgL_az00_3265;

													BgL_az00_3265 = CAR(((obj_t) BgL_l1252z00_3258));
													{	/* Eval/evcompile.scm 691 */
														obj_t BgL_locz00_3266;
														obj_t BgL_nz00_3267;

														{	/* Eval/evcompile.scm 65 */
															obj_t BgL__ortest_1065z00_6063;

															BgL__ortest_1065z00_6063 =
																BGl_getzd2sourcezd2locationz00zz__readerz00
																(BgL_az00_3265);
															if (CBOOL(BgL__ortest_1065z00_6063))
																{	/* Eval/evcompile.scm 65 */
																	BgL_locz00_3266 = BgL__ortest_1065z00_6063;
																}
															else
																{	/* Eval/evcompile.scm 65 */
																	BgL_locz00_3266 = BgL_locz00_94;
																}
														}
														if (
															(BgL_wherez00_92 ==
																BGl_symbol3828z00zz__evcompilez00))
															{	/* Eval/evcompile.scm 692 */
																BgL_nz00_3267 = CAR(((obj_t) BgL_az00_3265));
															}
														else
															{	/* Eval/evcompile.scm 694 */
																obj_t BgL_arg3099z00_3269;

																BgL_arg3099z00_3269 =
																	CAR(((obj_t) BgL_az00_3265));
																{	/* Eval/evcompile.scm 694 */
																	obj_t BgL_list3100z00_3270;

																	{	/* Eval/evcompile.scm 694 */
																		obj_t BgL_arg3102z00_3271;

																		{	/* Eval/evcompile.scm 694 */
																			obj_t BgL_arg3103z00_3272;

																			BgL_arg3103z00_3272 =
																				MAKE_YOUNG_PAIR(BgL_wherez00_92, BNIL);
																			BgL_arg3102z00_3271 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol3833z00zz__evcompilez00,
																				BgL_arg3103z00_3272);
																		}
																		BgL_list3100z00_3270 =
																			MAKE_YOUNG_PAIR(BgL_arg3099z00_3269,
																			BgL_arg3102z00_3271);
																	}
																	BgL_nz00_3267 =
																		BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
																		(BgL_list3100z00_3270);
																}
															}
														{	/* Eval/evcompile.scm 695 */
															obj_t BgL_arg3098z00_3268;

															{	/* Eval/evcompile.scm 695 */
																obj_t BgL_pairz00_6069;

																BgL_pairz00_6069 = CDR(((obj_t) BgL_az00_3265));
																BgL_arg3098z00_3268 = CAR(BgL_pairz00_6069);
															}
															BgL_arg3097z00_3264 =
																BGl_evcompilez00zz__evcompilez00
																(BgL_arg3098z00_3268, BgL_envz00_90,
																BgL_genvz00_91, BgL_nz00_3267, ((bool_t) 0),
																BgL_locz00_3266, BgL_lkpz00_95, ((bool_t) 0));
														}
													}
												}
												BgL_newtail1256z00_3262 =
													MAKE_YOUNG_PAIR(BgL_arg3097z00_3264, BNIL);
											}
											SET_CDR(BgL_tail1255z00_3259, BgL_newtail1256z00_3262);
											{	/* Eval/evcompile.scm 690 */
												obj_t BgL_arg3096z00_3263;

												BgL_arg3096z00_3263 = CDR(((obj_t) BgL_l1252z00_3258));
												{
													obj_t BgL_tail1255z00_10977;
													obj_t BgL_l1252z00_10976;

													BgL_l1252z00_10976 = BgL_arg3096z00_3263;
													BgL_tail1255z00_10977 = BgL_newtail1256z00_3262;
													BgL_tail1255z00_3259 = BgL_tail1255z00_10977;
													BgL_l1252z00_3258 = BgL_l1252z00_10976;
													goto BgL_zc3z04anonymousza33091ze3z87_3260;
												}
											}
										}
								}
							}
						{	/* Eval/evcompile.scm 690 */

							{	/* Eval/evcompile.scm 697 */
								obj_t BgL_v1257z00_3252;

								BgL_v1257z00_3252 = create_vector(4L);
								VECTOR_SET(BgL_v1257z00_3252, 0L, BINT(65L));
								VECTOR_SET(BgL_v1257z00_3252, 1L, BgL_locz00_94);
								VECTOR_SET(BgL_v1257z00_3252, 2L, BgL_bz00_3250);
								VECTOR_SET(BgL_v1257z00_3252, 3L,
									bgl_reverse_bang(BgL_asz00_3251));
								return BgL_v1257z00_3252;
							}
						}
					}
				}
			}
		}

	}



/* evcompile-let* */
	obj_t BGl_evcompilezd2letza2z70zz__evcompilez00(obj_t BgL_bindingsz00_96,
		obj_t BgL_bodyz00_97, obj_t BgL_envz00_98, obj_t BgL_genvz00_99,
		obj_t BgL_wherez00_100, bool_t BgL_tailz00_101, obj_t BgL_locz00_102,
		bool_t BgL_lkpz00_103)
	{
		{	/* Eval/evcompile.scm 702 */
			{
				obj_t BgL_bdgsz00_3293;
				obj_t BgL_asz00_3294;
				obj_t BgL_env3z00_3295;

				BgL_bdgsz00_3293 = BgL_bindingsz00_96;
				BgL_asz00_3294 = BNIL;
				BgL_env3z00_3295 = BgL_envz00_98;
			BgL_zc3z04anonymousza33122ze3z87_3296:
				if (NULLP(BgL_bdgsz00_3293))
					{	/* Eval/evcompile.scm 707 */
						obj_t BgL_env2z00_3298;

						{	/* Eval/evcompile.scm 707 */
							obj_t BgL_arg3127z00_3302;

							{	/* Eval/evcompile.scm 707 */
								obj_t BgL_arg3128z00_3303;

								if (NULLP(BgL_bindingsz00_96))
									{	/* Eval/evcompile.scm 707 */
										BgL_arg3128z00_3303 = BNIL;
									}
								else
									{	/* Eval/evcompile.scm 707 */
										obj_t BgL_head1260z00_3306;

										{	/* Eval/evcompile.scm 707 */
											obj_t BgL_arg3136z00_3318;

											{	/* Eval/evcompile.scm 707 */
												obj_t BgL_pairz00_6077;

												BgL_pairz00_6077 = CAR(((obj_t) BgL_bindingsz00_96));
												BgL_arg3136z00_3318 = CAR(BgL_pairz00_6077);
											}
											BgL_head1260z00_3306 =
												MAKE_YOUNG_PAIR(BgL_arg3136z00_3318, BNIL);
										}
										{	/* Eval/evcompile.scm 707 */
											obj_t BgL_g1263z00_3307;

											BgL_g1263z00_3307 = CDR(((obj_t) BgL_bindingsz00_96));
											{
												obj_t BgL_l1258z00_6098;
												obj_t BgL_tail1261z00_6099;

												BgL_l1258z00_6098 = BgL_g1263z00_3307;
												BgL_tail1261z00_6099 = BgL_head1260z00_3306;
											BgL_zc3z04anonymousza33130ze3z87_6097:
												if (NULLP(BgL_l1258z00_6098))
													{	/* Eval/evcompile.scm 707 */
														BgL_arg3128z00_3303 = BgL_head1260z00_3306;
													}
												else
													{	/* Eval/evcompile.scm 707 */
														obj_t BgL_newtail1262z00_6106;

														{	/* Eval/evcompile.scm 707 */
															obj_t BgL_arg3134z00_6107;

															{	/* Eval/evcompile.scm 707 */
																obj_t BgL_pairz00_6111;

																BgL_pairz00_6111 =
																	CAR(((obj_t) BgL_l1258z00_6098));
																BgL_arg3134z00_6107 = CAR(BgL_pairz00_6111);
															}
															BgL_newtail1262z00_6106 =
																MAKE_YOUNG_PAIR(BgL_arg3134z00_6107, BNIL);
														}
														SET_CDR(BgL_tail1261z00_6099,
															BgL_newtail1262z00_6106);
														{	/* Eval/evcompile.scm 707 */
															obj_t BgL_arg3133z00_6109;

															BgL_arg3133z00_6109 =
																CDR(((obj_t) BgL_l1258z00_6098));
															{
																obj_t BgL_tail1261z00_11005;
																obj_t BgL_l1258z00_11004;

																BgL_l1258z00_11004 = BgL_arg3133z00_6109;
																BgL_tail1261z00_11005 = BgL_newtail1262z00_6106;
																BgL_tail1261z00_6099 = BgL_tail1261z00_11005;
																BgL_l1258z00_6098 = BgL_l1258z00_11004;
																goto BgL_zc3z04anonymousza33130ze3z87_6097;
															}
														}
													}
											}
										}
									}
								BgL_arg3127z00_3302 = bgl_reverse_bang(BgL_arg3128z00_3303);
							}
							BgL_env2z00_3298 =
								BGl_loopze70ze7zz__evcompilez00(BgL_envz00_98,
								BgL_arg3127z00_3302);
						}
						{	/* Eval/evcompile.scm 707 */
							obj_t BgL_bdz00_3299;

							BgL_bdz00_3299 =
								BGl_evcompilez00zz__evcompilez00(BgL_bodyz00_97,
								BgL_env2z00_3298, BgL_genvz00_99, BgL_wherez00_100,
								BgL_tailz00_101, BgL_locz00_102, BgL_lkpz00_103, ((bool_t) 0));
							{	/* Eval/evcompile.scm 708 */

								{	/* Eval/evcompile.scm 709 */
									obj_t BgL_v1264z00_3300;

									BgL_v1264z00_3300 = create_vector(4L);
									VECTOR_SET(BgL_v1264z00_3300, 0L, BINT(66L));
									VECTOR_SET(BgL_v1264z00_3300, 1L, BgL_locz00_102);
									VECTOR_SET(BgL_v1264z00_3300, 2L, BgL_bdz00_3299);
									VECTOR_SET(BgL_v1264z00_3300, 3L,
										bgl_reverse_bang(BgL_asz00_3294));
									return BgL_v1264z00_3300;
								}
							}
						}
					}
				else
					{	/* Eval/evcompile.scm 710 */
						obj_t BgL_bz00_3320;

						BgL_bz00_3320 = CAR(((obj_t) BgL_bdgsz00_3293));
						{	/* Eval/evcompile.scm 710 */
							obj_t BgL_locz00_3321;

							{	/* Eval/evcompile.scm 65 */
								obj_t BgL__ortest_1065z00_6119;

								BgL__ortest_1065z00_6119 =
									BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_bz00_3320);
								if (CBOOL(BgL__ortest_1065z00_6119))
									{	/* Eval/evcompile.scm 65 */
										BgL_locz00_3321 = BgL__ortest_1065z00_6119;
									}
								else
									{	/* Eval/evcompile.scm 65 */
										BgL_locz00_3321 = BgL_locz00_102;
									}
							}
							{	/* Eval/evcompile.scm 711 */
								obj_t BgL_nz00_3322;

								if ((BgL_wherez00_100 == BGl_symbol3828z00zz__evcompilez00))
									{	/* Eval/evcompile.scm 712 */
										BgL_nz00_3322 = CAR(((obj_t) BgL_bz00_3320));
									}
								else
									{	/* Eval/evcompile.scm 714 */
										obj_t BgL_arg3158z00_3331;

										BgL_arg3158z00_3331 = CAR(((obj_t) BgL_bz00_3320));
										{	/* Eval/evcompile.scm 714 */
											obj_t BgL_list3159z00_3332;

											{	/* Eval/evcompile.scm 714 */
												obj_t BgL_arg3160z00_3333;

												{	/* Eval/evcompile.scm 714 */
													obj_t BgL_arg3161z00_3334;

													BgL_arg3161z00_3334 =
														MAKE_YOUNG_PAIR(BgL_wherez00_100, BNIL);
													BgL_arg3160z00_3333 =
														MAKE_YOUNG_PAIR(BGl_symbol3833z00zz__evcompilez00,
														BgL_arg3161z00_3334);
												}
												BgL_list3159z00_3332 =
													MAKE_YOUNG_PAIR(BgL_arg3158z00_3331,
													BgL_arg3160z00_3333);
											}
											BgL_nz00_3322 =
												BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
												(BgL_list3159z00_3332);
										}
									}
								{	/* Eval/evcompile.scm 712 */
									obj_t BgL_az00_3323;

									{	/* Eval/evcompile.scm 715 */
										obj_t BgL_arg3157z00_3330;

										{	/* Eval/evcompile.scm 715 */
											obj_t BgL_pairz00_6125;

											BgL_pairz00_6125 = CDR(((obj_t) BgL_bz00_3320));
											BgL_arg3157z00_3330 = CAR(BgL_pairz00_6125);
										}
										BgL_az00_3323 =
											BGl_evcompilez00zz__evcompilez00(BgL_arg3157z00_3330,
											BgL_env3z00_3295, BgL_genvz00_99, BgL_nz00_3322,
											((bool_t) 0), BgL_locz00_3321, BgL_lkpz00_103,
											((bool_t) 0));
									}
									{	/* Eval/evcompile.scm 715 */

										{	/* Eval/evcompile.scm 716 */
											obj_t BgL_arg3139z00_3324;
											obj_t BgL_arg3141z00_3325;
											obj_t BgL_arg3146z00_3326;

											BgL_arg3139z00_3324 = CDR(((obj_t) BgL_bdgsz00_3293));
											BgL_arg3141z00_3325 =
												MAKE_YOUNG_PAIR(BgL_az00_3323, BgL_asz00_3294);
											{	/* Eval/evcompile.scm 718 */
												obj_t BgL_arg3150z00_3327;

												{	/* Eval/evcompile.scm 718 */
													obj_t BgL_arg3154z00_3328;

													BgL_arg3154z00_3328 = CAR(((obj_t) BgL_bz00_3320));
													{	/* Eval/evcompile.scm 718 */
														obj_t BgL_list3155z00_3329;

														BgL_list3155z00_3329 =
															MAKE_YOUNG_PAIR(BgL_arg3154z00_3328, BNIL);
														BgL_arg3150z00_3327 = BgL_list3155z00_3329;
													}
												}
												BgL_arg3146z00_3326 =
													BGl_loopze70ze7zz__evcompilez00(BgL_env3z00_3295,
													BgL_arg3150z00_3327);
											}
											{
												obj_t BgL_env3z00_11044;
												obj_t BgL_asz00_11043;
												obj_t BgL_bdgsz00_11042;

												BgL_bdgsz00_11042 = BgL_arg3139z00_3324;
												BgL_asz00_11043 = BgL_arg3141z00_3325;
												BgL_env3z00_11044 = BgL_arg3146z00_3326;
												BgL_env3z00_3295 = BgL_env3z00_11044;
												BgL_asz00_3294 = BgL_asz00_11043;
												BgL_bdgsz00_3293 = BgL_bdgsz00_11042;
												goto BgL_zc3z04anonymousza33122ze3z87_3296;
											}
										}
									}
								}
							}
						}
					}
			}
		}

	}



/* evcompile-letrec */
	obj_t BGl_evcompilezd2letreczd2zz__evcompilez00(obj_t BgL_bindingsz00_104,
		obj_t BgL_bodyz00_105, obj_t BgL_envz00_106, obj_t BgL_genvz00_107,
		obj_t BgL_wherez00_108, bool_t BgL_tailz00_109, obj_t BgL_locz00_110,
		bool_t BgL_lkpz00_111)
	{
		{	/* Eval/evcompile.scm 723 */
			{	/* Eval/evcompile.scm 724 */
				bool_t BgL_test4452z00_11045;

				{
					obj_t BgL_l1265z00_6131;

					BgL_l1265z00_6131 = BgL_bindingsz00_104;
				BgL_zc3z04anonymousza33171ze3z87_6130:
					if (NULLP(BgL_l1265z00_6131))
						{	/* Eval/evcompile.scm 724 */
							BgL_test4452z00_11045 = ((bool_t) 1);
						}
					else
						{	/* Eval/evcompile.scm 724 */
							bool_t BgL_test4454z00_11048;

							{	/* Eval/evcompile.scm 725 */
								obj_t BgL_xz00_6134;

								BgL_xz00_6134 = CAR(((obj_t) BgL_l1265z00_6131));
								if (PAIRP(BgL_xz00_6134))
									{	/* Eval/evcompile.scm 726 */
										bool_t BgL_test4456z00_11053;

										{	/* Eval/evcompile.scm 726 */
											obj_t BgL_tmpz00_11054;

											BgL_tmpz00_11054 = CAR(CDR(BgL_xz00_6134));
											BgL_test4456z00_11053 = PAIRP(BgL_tmpz00_11054);
										}
										if (BgL_test4456z00_11053)
											{	/* Eval/evcompile.scm 726 */
												BgL_test4454z00_11048 =
													(CAR(CAR(CDR(BgL_xz00_6134))) ==
													BGl_symbol3837z00zz__evcompilez00);
											}
										else
											{	/* Eval/evcompile.scm 726 */
												BgL_test4454z00_11048 = ((bool_t) 0);
											}
									}
								else
									{	/* Eval/evcompile.scm 725 */
										BgL_test4454z00_11048 = ((bool_t) 0);
									}
							}
							if (BgL_test4454z00_11048)
								{	/* Eval/evcompile.scm 724 */
									obj_t BgL_arg3172z00_6141;

									BgL_arg3172z00_6141 = CDR(((obj_t) BgL_l1265z00_6131));
									{
										obj_t BgL_l1265z00_11064;

										BgL_l1265z00_11064 = BgL_arg3172z00_6141;
										BgL_l1265z00_6131 = BgL_l1265z00_11064;
										goto BgL_zc3z04anonymousza33171ze3z87_6130;
									}
								}
							else
								{	/* Eval/evcompile.scm 724 */
									BgL_test4452z00_11045 = ((bool_t) 0);
								}
						}
				}
				if (BgL_test4452z00_11045)
					{	/* Eval/evcompile.scm 724 */
						return
							BGl_evcompilezd2letreczd2lambdaz00zz__evcompilez00
							(BgL_bindingsz00_104, BgL_bodyz00_105, BgL_envz00_106,
							BgL_genvz00_107, BgL_wherez00_108, BgL_tailz00_109,
							BgL_locz00_110, BgL_lkpz00_111);
					}
				else
					{	/* Eval/evcompile.scm 724 */
						BGL_TAIL return
							BGl_evcompilezd2letreczd2genericz00zz__evcompilez00
							(BgL_bindingsz00_104, BgL_bodyz00_105, BgL_envz00_106,
							BgL_genvz00_107, BgL_wherez00_108, BgL_tailz00_109,
							BgL_locz00_110, BgL_lkpz00_111);
					}
			}
		}

	}



/* evcompile-letrec-lambda */
	obj_t BGl_evcompilezd2letreczd2lambdaz00zz__evcompilez00(obj_t
		BgL_bindingsz00_112, obj_t BgL_bodyz00_113, obj_t BgL_envz00_114,
		obj_t BgL_genvz00_115, obj_t BgL_wherez00_116, bool_t BgL_tailz00_117,
		obj_t BgL_locz00_118, bool_t BgL_lkpz00_119)
	{
		{	/* Eval/evcompile.scm 737 */
			{	/* Eval/evcompile.scm 738 */
				obj_t BgL_env2z00_3365;

				{	/* Eval/evcompile.scm 738 */
					obj_t BgL_arg3207z00_3389;

					if (NULLP(BgL_bindingsz00_112))
						{	/* Eval/evcompile.scm 738 */
							BgL_arg3207z00_3389 = BNIL;
						}
					else
						{	/* Eval/evcompile.scm 738 */
							obj_t BgL_head1270z00_3392;

							{	/* Eval/evcompile.scm 738 */
								obj_t BgL_arg3215z00_3404;

								{	/* Eval/evcompile.scm 738 */
									obj_t BgL_pairz00_6154;

									BgL_pairz00_6154 = CAR(((obj_t) BgL_bindingsz00_112));
									BgL_arg3215z00_3404 = CAR(BgL_pairz00_6154);
								}
								BgL_head1270z00_3392 =
									MAKE_YOUNG_PAIR(BgL_arg3215z00_3404, BNIL);
							}
							{	/* Eval/evcompile.scm 738 */
								obj_t BgL_g1273z00_3393;

								BgL_g1273z00_3393 = CDR(((obj_t) BgL_bindingsz00_112));
								{
									obj_t BgL_l1268z00_6175;
									obj_t BgL_tail1271z00_6176;

									BgL_l1268z00_6175 = BgL_g1273z00_3393;
									BgL_tail1271z00_6176 = BgL_head1270z00_3392;
								BgL_zc3z04anonymousza33209ze3z87_6174:
									if (NULLP(BgL_l1268z00_6175))
										{	/* Eval/evcompile.scm 738 */
											BgL_arg3207z00_3389 = BgL_head1270z00_3392;
										}
									else
										{	/* Eval/evcompile.scm 738 */
											obj_t BgL_newtail1272z00_6183;

											{	/* Eval/evcompile.scm 738 */
												obj_t BgL_arg3212z00_6184;

												{	/* Eval/evcompile.scm 738 */
													obj_t BgL_pairz00_6188;

													BgL_pairz00_6188 = CAR(((obj_t) BgL_l1268z00_6175));
													BgL_arg3212z00_6184 = CAR(BgL_pairz00_6188);
												}
												BgL_newtail1272z00_6183 =
													MAKE_YOUNG_PAIR(BgL_arg3212z00_6184, BNIL);
											}
											SET_CDR(BgL_tail1271z00_6176, BgL_newtail1272z00_6183);
											{	/* Eval/evcompile.scm 738 */
												obj_t BgL_arg3211z00_6186;

												BgL_arg3211z00_6186 = CDR(((obj_t) BgL_l1268z00_6175));
												{
													obj_t BgL_tail1271z00_11085;
													obj_t BgL_l1268z00_11084;

													BgL_l1268z00_11084 = BgL_arg3211z00_6186;
													BgL_tail1271z00_11085 = BgL_newtail1272z00_6183;
													BgL_tail1271z00_6176 = BgL_tail1271z00_11085;
													BgL_l1268z00_6175 = BgL_l1268z00_11084;
													goto BgL_zc3z04anonymousza33209ze3z87_6174;
												}
											}
										}
								}
							}
						}
					BgL_env2z00_3365 =
						BGl_loopze70ze7zz__evcompilez00(BgL_envz00_114,
						BgL_arg3207z00_3389);
				}
				{	/* Eval/evcompile.scm 738 */
					obj_t BgL_bz00_3366;

					BgL_bz00_3366 =
						BGl_evcompilez00zz__evcompilez00(BgL_bodyz00_113, BgL_env2z00_3365,
						BgL_genvz00_115, BgL_wherez00_116, BgL_tailz00_117, BgL_locz00_118,
						BgL_lkpz00_119, ((bool_t) 0));
					{	/* Eval/evcompile.scm 739 */
						obj_t BgL_asz00_3367;

						if (NULLP(BgL_bindingsz00_112))
							{	/* Eval/evcompile.scm 740 */
								BgL_asz00_3367 = BNIL;
							}
						else
							{	/* Eval/evcompile.scm 740 */
								obj_t BgL_head1276z00_3371;

								BgL_head1276z00_3371 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1274z00_3373;
									obj_t BgL_tail1277z00_3374;

									BgL_l1274z00_3373 = BgL_bindingsz00_112;
									BgL_tail1277z00_3374 = BgL_head1276z00_3371;
								BgL_zc3z04anonymousza33179ze3z87_3375:
									if (NULLP(BgL_l1274z00_3373))
										{	/* Eval/evcompile.scm 740 */
											BgL_asz00_3367 = CDR(BgL_head1276z00_3371);
										}
									else
										{	/* Eval/evcompile.scm 740 */
											obj_t BgL_newtail1278z00_3377;

											{	/* Eval/evcompile.scm 740 */
												obj_t BgL_arg3184z00_3379;

												{	/* Eval/evcompile.scm 740 */
													obj_t BgL_az00_3380;

													BgL_az00_3380 = CAR(((obj_t) BgL_l1274z00_3373));
													{	/* Eval/evcompile.scm 741 */
														obj_t BgL_locz00_3381;
														obj_t BgL_nz00_3382;

														{	/* Eval/evcompile.scm 65 */
															obj_t BgL__ortest_1065z00_6193;

															BgL__ortest_1065z00_6193 =
																BGl_getzd2sourcezd2locationz00zz__readerz00
																(BgL_az00_3380);
															if (CBOOL(BgL__ortest_1065z00_6193))
																{	/* Eval/evcompile.scm 65 */
																	BgL_locz00_3381 = BgL__ortest_1065z00_6193;
																}
															else
																{	/* Eval/evcompile.scm 65 */
																	BgL_locz00_3381 = BgL_locz00_118;
																}
														}
														if (
															(BgL_wherez00_116 ==
																BGl_symbol3828z00zz__evcompilez00))
															{	/* Eval/evcompile.scm 742 */
																BgL_nz00_3382 = CAR(((obj_t) BgL_az00_3380));
															}
														else
															{	/* Eval/evcompile.scm 744 */
																obj_t BgL_arg3197z00_3384;

																BgL_arg3197z00_3384 =
																	CAR(((obj_t) BgL_az00_3380));
																{	/* Eval/evcompile.scm 744 */
																	obj_t BgL_list3198z00_3385;

																	{	/* Eval/evcompile.scm 744 */
																		obj_t BgL_arg3203z00_3386;

																		{	/* Eval/evcompile.scm 744 */
																			obj_t BgL_arg3204z00_3387;

																			BgL_arg3204z00_3387 =
																				MAKE_YOUNG_PAIR(BgL_wherez00_116, BNIL);
																			BgL_arg3203z00_3386 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol3833z00zz__evcompilez00,
																				BgL_arg3204z00_3387);
																		}
																		BgL_list3198z00_3385 =
																			MAKE_YOUNG_PAIR(BgL_arg3197z00_3384,
																			BgL_arg3203z00_3386);
																	}
																	BgL_nz00_3382 =
																		BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
																		(BgL_list3198z00_3385);
																}
															}
														{	/* Eval/evcompile.scm 745 */
															obj_t BgL_arg3194z00_3383;

															{	/* Eval/evcompile.scm 745 */
																obj_t BgL_pairz00_6199;

																BgL_pairz00_6199 = CDR(((obj_t) BgL_az00_3380));
																BgL_arg3194z00_3383 = CAR(BgL_pairz00_6199);
															}
															BgL_arg3184z00_3379 =
																BGl_evcompilez00zz__evcompilez00
																(BgL_arg3194z00_3383, BgL_env2z00_3365,
																BgL_genvz00_115, BgL_nz00_3382, ((bool_t) 0),
																BgL_locz00_3381, BgL_lkpz00_119, ((bool_t) 0));
														}
													}
												}
												BgL_newtail1278z00_3377 =
													MAKE_YOUNG_PAIR(BgL_arg3184z00_3379, BNIL);
											}
											SET_CDR(BgL_tail1277z00_3374, BgL_newtail1278z00_3377);
											{	/* Eval/evcompile.scm 740 */
												obj_t BgL_arg3183z00_3378;

												BgL_arg3183z00_3378 = CDR(((obj_t) BgL_l1274z00_3373));
												{
													obj_t BgL_tail1277z00_11118;
													obj_t BgL_l1274z00_11117;

													BgL_l1274z00_11117 = BgL_arg3183z00_3378;
													BgL_tail1277z00_11118 = BgL_newtail1278z00_3377;
													BgL_tail1277z00_3374 = BgL_tail1277z00_11118;
													BgL_l1274z00_3373 = BgL_l1274z00_11117;
													goto BgL_zc3z04anonymousza33179ze3z87_3375;
												}
											}
										}
								}
							}
						{	/* Eval/evcompile.scm 740 */

							{	/* Eval/evcompile.scm 747 */
								obj_t BgL_v1279z00_3368;

								BgL_v1279z00_3368 = create_vector(4L);
								VECTOR_SET(BgL_v1279z00_3368, 0L, BINT(70L));
								VECTOR_SET(BgL_v1279z00_3368, 1L, BgL_locz00_118);
								VECTOR_SET(BgL_v1279z00_3368, 2L, BgL_bz00_3366);
								VECTOR_SET(BgL_v1279z00_3368, 3L, BgL_asz00_3367);
								return BgL_v1279z00_3368;
							}
						}
					}
				}
			}
		}

	}



/* evcompile-letrec-generic */
	obj_t BGl_evcompilezd2letreczd2genericz00zz__evcompilez00(obj_t
		BgL_bindingsz00_120, obj_t BgL_bodyz00_121, obj_t BgL_envz00_122,
		obj_t BgL_genvz00_123, obj_t BgL_wherez00_124, bool_t BgL_tailz00_125,
		obj_t BgL_locz00_126, bool_t BgL_lkpz00_127)
	{
		{	/* Eval/evcompile.scm 752 */
			{	/* Eval/evcompile.scm 753 */
				obj_t BgL_auxz00_3406;

				if (NULLP(BgL_bindingsz00_120))
					{	/* Eval/evcompile.scm 753 */
						BgL_auxz00_3406 = BNIL;
					}
				else
					{	/* Eval/evcompile.scm 753 */
						obj_t BgL_head1282z00_3475;

						BgL_head1282z00_3475 = MAKE_YOUNG_PAIR(BNIL, BNIL);
						{
							obj_t BgL_l1280z00_6227;
							obj_t BgL_tail1283z00_6228;

							BgL_l1280z00_6227 = BgL_bindingsz00_120;
							BgL_tail1283z00_6228 = BgL_head1282z00_3475;
						BgL_zc3z04anonymousza33262ze3z87_6226:
							if (NULLP(BgL_l1280z00_6227))
								{	/* Eval/evcompile.scm 753 */
									BgL_auxz00_3406 = CDR(BgL_head1282z00_3475);
								}
							else
								{	/* Eval/evcompile.scm 753 */
									obj_t BgL_newtail1284z00_6236;

									{	/* Eval/evcompile.scm 753 */
										obj_t BgL_arg3268z00_6237;

										{	/* Eval/evcompile.scm 753 */

											{	/* Eval/evcompile.scm 753 */

												BgL_arg3268z00_6237 =
													BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
											}
										}
										BgL_newtail1284z00_6236 =
											MAKE_YOUNG_PAIR(BgL_arg3268z00_6237, BNIL);
									}
									SET_CDR(BgL_tail1283z00_6228, BgL_newtail1284z00_6236);
									{	/* Eval/evcompile.scm 753 */
										obj_t BgL_arg3264z00_6240;

										BgL_arg3264z00_6240 = CDR(((obj_t) BgL_l1280z00_6227));
										{
											obj_t BgL_tail1283z00_11137;
											obj_t BgL_l1280z00_11136;

											BgL_l1280z00_11136 = BgL_arg3264z00_6240;
											BgL_tail1283z00_11137 = BgL_newtail1284z00_6236;
											BgL_tail1283z00_6228 = BgL_tail1283z00_11137;
											BgL_l1280z00_6227 = BgL_l1280z00_11136;
											goto BgL_zc3z04anonymousza33262ze3z87_6226;
										}
									}
								}
						}
					}
				{	/* Eval/evcompile.scm 753 */
					obj_t BgL_expz00_3407;

					{	/* Eval/evcompile.scm 754 */
						obj_t BgL_arg3217z00_3408;

						{	/* Eval/evcompile.scm 754 */
							obj_t BgL_arg3218z00_3409;
							obj_t BgL_arg3219z00_3410;

							if (NULLP(BgL_bindingsz00_120))
								{	/* Eval/evcompile.scm 754 */
									BgL_arg3218z00_3409 = BNIL;
								}
							else
								{	/* Eval/evcompile.scm 754 */
									obj_t BgL_head1287z00_3413;

									BgL_head1287z00_3413 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{
										obj_t BgL_l1285z00_3415;
										obj_t BgL_tail1288z00_3416;

										BgL_l1285z00_3415 = BgL_bindingsz00_120;
										BgL_tail1288z00_3416 = BgL_head1287z00_3413;
									BgL_zc3z04anonymousza33221ze3z87_3417:
										if (NULLP(BgL_l1285z00_3415))
											{	/* Eval/evcompile.scm 754 */
												BgL_arg3218z00_3409 = CDR(BgL_head1287z00_3413);
											}
										else
											{	/* Eval/evcompile.scm 754 */
												obj_t BgL_newtail1289z00_3419;

												{	/* Eval/evcompile.scm 754 */
													obj_t BgL_arg3224z00_3421;

													{	/* Eval/evcompile.scm 754 */
														obj_t BgL_bz00_3422;

														BgL_bz00_3422 = CAR(((obj_t) BgL_l1285z00_3415));
														{	/* Eval/evcompile.scm 755 */
															obj_t BgL_arg3225z00_3423;

															BgL_arg3225z00_3423 =
																CAR(((obj_t) BgL_bz00_3422));
															{	/* Eval/evcompile.scm 755 */
																obj_t BgL_list3226z00_3424;

																{	/* Eval/evcompile.scm 755 */
																	obj_t BgL_arg3227z00_3425;

																	BgL_arg3227z00_3425 =
																		MAKE_YOUNG_PAIR(BUNSPEC, BNIL);
																	BgL_list3226z00_3424 =
																		MAKE_YOUNG_PAIR(BgL_arg3225z00_3423,
																		BgL_arg3227z00_3425);
																}
																BgL_arg3224z00_3421 = BgL_list3226z00_3424;
															}
														}
													}
													BgL_newtail1289z00_3419 =
														MAKE_YOUNG_PAIR(BgL_arg3224z00_3421, BNIL);
												}
												SET_CDR(BgL_tail1288z00_3416, BgL_newtail1289z00_3419);
												{	/* Eval/evcompile.scm 754 */
													obj_t BgL_arg3223z00_3420;

													BgL_arg3223z00_3420 =
														CDR(((obj_t) BgL_l1285z00_3415));
													{
														obj_t BgL_tail1288z00_11155;
														obj_t BgL_l1285z00_11154;

														BgL_l1285z00_11154 = BgL_arg3223z00_3420;
														BgL_tail1288z00_11155 = BgL_newtail1289z00_3419;
														BgL_tail1288z00_3416 = BgL_tail1288z00_11155;
														BgL_l1285z00_3415 = BgL_l1285z00_11154;
														goto BgL_zc3z04anonymousza33221ze3z87_3417;
													}
												}
											}
									}
								}
							{	/* Eval/evcompile.scm 757 */
								obj_t BgL_arg3228z00_3427;

								{	/* Eval/evcompile.scm 757 */
									obj_t BgL_arg3229z00_3428;

									{	/* Eval/evcompile.scm 757 */
										obj_t BgL_arg3233z00_3429;
										obj_t BgL_arg3234z00_3430;

										if (NULLP(BgL_auxz00_3406))
											{	/* Eval/evcompile.scm 757 */
												BgL_arg3233z00_3429 = BNIL;
											}
										else
											{	/* Eval/evcompile.scm 757 */
												obj_t BgL_head1292z00_3434;

												BgL_head1292z00_3434 = MAKE_YOUNG_PAIR(BNIL, BNIL);
												{
													obj_t BgL_ll1290z00_6282;
													obj_t BgL_ll1291z00_6283;
													obj_t BgL_tail1293z00_6284;

													BgL_ll1290z00_6282 = BgL_auxz00_3406;
													BgL_ll1291z00_6283 = BgL_bindingsz00_120;
													BgL_tail1293z00_6284 = BgL_head1292z00_3434;
												BgL_zc3z04anonymousza33236ze3z87_6281:
													if (NULLP(BgL_ll1290z00_6282))
														{	/* Eval/evcompile.scm 757 */
															BgL_arg3233z00_3429 = CDR(BgL_head1292z00_3434);
														}
													else
														{	/* Eval/evcompile.scm 757 */
															obj_t BgL_newtail1294z00_6294;

															{	/* Eval/evcompile.scm 757 */
																obj_t BgL_arg3240z00_6295;

																{	/* Eval/evcompile.scm 757 */
																	obj_t BgL_nz00_6296;
																	obj_t BgL_bz00_6297;

																	BgL_nz00_6296 =
																		CAR(((obj_t) BgL_ll1290z00_6282));
																	BgL_bz00_6297 =
																		CAR(((obj_t) BgL_ll1291z00_6283));
																	{	/* Eval/evcompile.scm 758 */
																		obj_t BgL_arg3241z00_6298;

																		BgL_arg3241z00_6298 =
																			CDR(((obj_t) BgL_bz00_6297));
																		BgL_arg3240z00_6295 =
																			MAKE_YOUNG_PAIR(BgL_nz00_6296,
																			BgL_arg3241z00_6298);
																	}
																}
																BgL_newtail1294z00_6294 =
																	MAKE_YOUNG_PAIR(BgL_arg3240z00_6295, BNIL);
															}
															SET_CDR(BgL_tail1293z00_6284,
																BgL_newtail1294z00_6294);
															{	/* Eval/evcompile.scm 757 */
																obj_t BgL_arg3238z00_6299;
																obj_t BgL_arg3239z00_6300;

																BgL_arg3238z00_6299 =
																	CDR(((obj_t) BgL_ll1290z00_6282));
																BgL_arg3239z00_6300 =
																	CDR(((obj_t) BgL_ll1291z00_6283));
																{
																	obj_t BgL_tail1293z00_11177;
																	obj_t BgL_ll1291z00_11176;
																	obj_t BgL_ll1290z00_11175;

																	BgL_ll1290z00_11175 = BgL_arg3238z00_6299;
																	BgL_ll1291z00_11176 = BgL_arg3239z00_6300;
																	BgL_tail1293z00_11177 =
																		BgL_newtail1294z00_6294;
																	BgL_tail1293z00_6284 = BgL_tail1293z00_11177;
																	BgL_ll1291z00_6283 = BgL_ll1291z00_11176;
																	BgL_ll1290z00_6282 = BgL_ll1290z00_11175;
																	goto BgL_zc3z04anonymousza33236ze3z87_6281;
																}
															}
														}
												}
											}
										{	/* Eval/evcompile.scm 761 */
											obj_t BgL_arg3245z00_3449;

											{	/* Eval/evcompile.scm 761 */
												obj_t BgL_arg3246z00_3450;

												{	/* Eval/evcompile.scm 761 */
													obj_t BgL_arg3247z00_3451;
													obj_t BgL_arg3248z00_3452;

													if (NULLP(BgL_auxz00_3406))
														{	/* Eval/evcompile.scm 761 */
															BgL_arg3247z00_3451 = BNIL;
														}
													else
														{	/* Eval/evcompile.scm 761 */
															obj_t BgL_head1298z00_3456;

															BgL_head1298z00_3456 =
																MAKE_YOUNG_PAIR(BNIL, BNIL);
															{
																obj_t BgL_ll1296z00_3458;
																obj_t BgL_ll1297z00_3459;
																obj_t BgL_tail1299z00_3460;

																BgL_ll1296z00_3458 = BgL_auxz00_3406;
																BgL_ll1297z00_3459 = BgL_bindingsz00_120;
																BgL_tail1299z00_3460 = BgL_head1298z00_3456;
															BgL_zc3z04anonymousza33250ze3z87_3461:
																if (NULLP(BgL_ll1296z00_3458))
																	{	/* Eval/evcompile.scm 761 */
																		BgL_arg3247z00_3451 =
																			CDR(BgL_head1298z00_3456);
																	}
																else
																	{	/* Eval/evcompile.scm 761 */
																		obj_t BgL_newtail1300z00_3463;

																		{	/* Eval/evcompile.scm 761 */
																			obj_t BgL_arg3257z00_3466;

																			{	/* Eval/evcompile.scm 761 */
																				obj_t BgL_nz00_3467;
																				obj_t BgL_bz00_3468;

																				BgL_nz00_3467 =
																					CAR(((obj_t) BgL_ll1296z00_3458));
																				BgL_bz00_3468 =
																					CAR(((obj_t) BgL_ll1297z00_3459));
																				{	/* Eval/evcompile.scm 762 */
																					obj_t BgL_arg3258z00_3469;

																					{	/* Eval/evcompile.scm 762 */
																						obj_t BgL_arg3259z00_3470;
																						obj_t BgL_arg3260z00_3471;

																						BgL_arg3259z00_3470 =
																							CAR(((obj_t) BgL_bz00_3468));
																						BgL_arg3260z00_3471 =
																							MAKE_YOUNG_PAIR(BgL_nz00_3467,
																							BNIL);
																						BgL_arg3258z00_3469 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg3259z00_3470,
																							BgL_arg3260z00_3471);
																					}
																					BgL_arg3257z00_3466 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol3860z00zz__evcompilez00,
																						BgL_arg3258z00_3469);
																				}
																			}
																			BgL_newtail1300z00_3463 =
																				MAKE_YOUNG_PAIR(BgL_arg3257z00_3466,
																				BNIL);
																		}
																		SET_CDR(BgL_tail1299z00_3460,
																			BgL_newtail1300z00_3463);
																		{	/* Eval/evcompile.scm 761 */
																			obj_t BgL_arg3252z00_3464;
																			obj_t BgL_arg3253z00_3465;

																			BgL_arg3252z00_3464 =
																				CDR(((obj_t) BgL_ll1296z00_3458));
																			BgL_arg3253z00_3465 =
																				CDR(((obj_t) BgL_ll1297z00_3459));
																			{
																				obj_t BgL_tail1299z00_11201;
																				obj_t BgL_ll1297z00_11200;
																				obj_t BgL_ll1296z00_11199;

																				BgL_ll1296z00_11199 =
																					BgL_arg3252z00_3464;
																				BgL_ll1297z00_11200 =
																					BgL_arg3253z00_3465;
																				BgL_tail1299z00_11201 =
																					BgL_newtail1300z00_3463;
																				BgL_tail1299z00_3460 =
																					BgL_tail1299z00_11201;
																				BgL_ll1297z00_3459 =
																					BgL_ll1297z00_11200;
																				BgL_ll1296z00_3458 =
																					BgL_ll1296z00_11199;
																				goto
																					BgL_zc3z04anonymousza33250ze3z87_3461;
																			}
																		}
																	}
															}
														}
													BgL_arg3248z00_3452 =
														MAKE_YOUNG_PAIR(BgL_bodyz00_121, BNIL);
													BgL_arg3246z00_3450 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
														(BgL_arg3247z00_3451, BgL_arg3248z00_3452);
												}
												BgL_arg3245z00_3449 =
													MAKE_YOUNG_PAIR(BGl_symbol3856z00zz__evcompilez00,
													BgL_arg3246z00_3450);
											}
											BgL_arg3234z00_3430 =
												MAKE_YOUNG_PAIR(BgL_arg3245z00_3449, BNIL);
										}
										BgL_arg3229z00_3428 =
											MAKE_YOUNG_PAIR(BgL_arg3233z00_3429, BgL_arg3234z00_3430);
									}
									BgL_arg3228z00_3427 =
										MAKE_YOUNG_PAIR(BGl_symbol3871z00zz__evcompilez00,
										BgL_arg3229z00_3428);
								}
								BgL_arg3219z00_3410 =
									MAKE_YOUNG_PAIR(BgL_arg3228z00_3427, BNIL);
							}
							BgL_arg3217z00_3408 =
								MAKE_YOUNG_PAIR(BgL_arg3218z00_3409, BgL_arg3219z00_3410);
						}
						BgL_expz00_3407 =
							MAKE_YOUNG_PAIR(BGl_symbol3871z00zz__evcompilez00,
							BgL_arg3217z00_3408);
					}
					{	/* Eval/evcompile.scm 754 */

						return
							BGl_evcompilez00zz__evcompilez00(BgL_expz00_3407, BgL_envz00_122,
							BgL_genvz00_123, BgL_wherez00_124, BgL_tailz00_125,
							BgL_locz00_126, BgL_lkpz00_127, ((bool_t) 0));
					}
				}
			}
		}

	}



/* variable */
	obj_t BGl_variablez00zz__evcompilez00(obj_t BgL_locz00_128,
		obj_t BgL_symbolz00_129, obj_t BgL_envz00_130, obj_t BgL_genvz00_131)
	{
		{	/* Eval/evcompile.scm 770 */
			if (SYMBOLP(BgL_symbolz00_129))
				{	/* Eval/evcompile.scm 773 */
					obj_t BgL_offsetz00_3488;

					{
						obj_t BgL_envz00_6338;
						long BgL_countz00_6339;

						BgL_envz00_6338 = BgL_envz00_130;
						BgL_countz00_6339 = 0L;
					BgL_loopz00_6337:
						if (NULLP(BgL_envz00_6338))
							{	/* Eval/evcompile.scm 776 */
								BgL_offsetz00_3488 = BFALSE;
							}
						else
							{	/* Eval/evcompile.scm 778 */
								bool_t BgL_test4473z00_11216;

								{	/* Eval/evcompile.scm 778 */
									obj_t BgL_tmpz00_11217;

									{	/* Eval/evcompile.scm 778 */
										obj_t BgL_pairz00_6353;

										BgL_pairz00_6353 = CAR(((obj_t) BgL_envz00_6338));
										BgL_tmpz00_11217 = CAR(BgL_pairz00_6353);
									}
									BgL_test4473z00_11216 =
										(BgL_tmpz00_11217 == BgL_symbolz00_129);
								}
								if (BgL_test4473z00_11216)
									{	/* Eval/evcompile.scm 778 */
										BgL_offsetz00_3488 = BINT(BgL_countz00_6339);
									}
								else
									{	/* Eval/evcompile.scm 781 */
										obj_t BgL_arg3286z00_6348;
										long BgL_arg3287z00_6349;

										BgL_arg3286z00_6348 = CDR(((obj_t) BgL_envz00_6338));
										BgL_arg3287z00_6349 = (BgL_countz00_6339 + 1L);
										{
											long BgL_countz00_11227;
											obj_t BgL_envz00_11226;

											BgL_envz00_11226 = BgL_arg3286z00_6348;
											BgL_countz00_11227 = BgL_arg3287z00_6349;
											BgL_countz00_6339 = BgL_countz00_11227;
											BgL_envz00_6338 = BgL_envz00_11226;
											goto BgL_loopz00_6337;
										}
									}
							}
					}
					if (CBOOL(BgL_offsetz00_3488))
						{	/* Eval/evcompile.scm 782 */
							return BgL_offsetz00_3488;
						}
					else
						{	/* Eval/evcompile.scm 784 */
							obj_t BgL_modz00_3489;

							if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_genvz00_131))
								{	/* Eval/evcompile.scm 784 */
									BgL_modz00_3489 = BgL_genvz00_131;
								}
							else
								{	/* Eval/evcompile.scm 784 */
									BgL_modz00_3489 = BGL_MODULE();
								}
							{	/* Eval/evcompile.scm 784 */
								obj_t BgL_globalz00_3490;

								BgL_globalz00_3490 =
									BGl_evmodulezd2findzd2globalz00zz__evmodulez00
									(BgL_modz00_3489, BgL_symbolz00_129);
								{	/* Eval/evcompile.scm 785 */

									if (CBOOL(BgL_globalz00_3490))
										{	/* Eval/evcompile.scm 786 */
											return BgL_globalz00_3490;
										}
									else
										{	/* Eval/evcompile.scm 786 */
											return
												MAKE_YOUNG_PAIR(BGl_symbol3840z00zz__evcompilez00,
												BgL_symbolz00_129);
										}
								}
							}
						}
				}
			else
				{	/* Eval/evcompile.scm 771 */
					return
						BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_128,
						BGl_string3824z00zz__evcompilez00,
						BGl_string3886z00zz__evcompilez00, BgL_symbolz00_129);
				}
		}

	}



/* @variable */
	obj_t BGl_z04variablez04zz__evcompilez00(obj_t BgL_locz00_132,
		obj_t BgL_symbolz00_133, obj_t BgL_envz00_134, obj_t BgL_genvz00_135,
		obj_t BgL_modnamez00_136)
	{
		{	/* Eval/evcompile.scm 793 */
			{	/* Eval/evcompile.scm 794 */
				obj_t BgL_modz00_6356;

				BgL_modz00_6356 =
					BGl_evalzd2findzd2modulez00zz__evmodulez00(BgL_modnamez00_136);
				{	/* Eval/evcompile.scm 794 */
					obj_t BgL_globalz00_6357;

					BgL_globalz00_6357 =
						BGl_evmodulezd2findzd2globalz00zz__evmodulez00(BgL_modz00_6356,
						BgL_symbolz00_133);
					{	/* Eval/evcompile.scm 795 */

						if (CBOOL(BgL_globalz00_6357))
							{	/* Eval/evcompile.scm 796 */
								return BgL_globalz00_6357;
							}
						else
							{	/* Eval/evcompile.scm 796 */
								if ((BgL_genvz00_135 == BgL_modz00_6356))
									{	/* Eval/evcompile.scm 797 */
										return
											MAKE_YOUNG_PAIR(BGl_symbol3840z00zz__evcompilez00,
											BgL_symbolz00_133);
									}
								else
									{	/* Eval/evcompile.scm 800 */
										obj_t BgL_arg3289z00_6358;

										{	/* Eval/evcompile.scm 800 */
											obj_t BgL_arg3290z00_6359;

											{	/* Eval/evcompile.scm 800 */
												obj_t BgL_arg3291z00_6360;

												BgL_arg3291z00_6360 =
													MAKE_YOUNG_PAIR(BgL_modnamez00_136, BNIL);
												BgL_arg3290z00_6359 =
													MAKE_YOUNG_PAIR(BgL_symbolz00_133,
													BgL_arg3291z00_6360);
											}
											BgL_arg3289z00_6358 =
												MAKE_YOUNG_PAIR(BGl_symbol3833z00zz__evcompilez00,
												BgL_arg3290z00_6359);
										}
										return
											BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_132,
											BGl_string3824z00zz__evcompilez00,
											BGl_string3842z00zz__evcompilez00, BgL_arg3289z00_6358);
									}
							}
					}
				}
			}
		}

	}



/* untype-ident */
	obj_t BGl_untypezd2identzd2zz__evcompilez00(obj_t BgL_idz00_139)
	{
		{	/* Eval/evcompile.scm 819 */
			if (SYMBOLP(BgL_idz00_139))
				{	/* Eval/evcompile.scm 822 */
					obj_t BgL_stringz00_3511;

					{	/* Eval/evcompile.scm 822 */
						obj_t BgL_arg3606z00_6366;

						BgL_arg3606z00_6366 = SYMBOL_TO_STRING(BgL_idz00_139);
						BgL_stringz00_3511 =
							BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg3606z00_6366);
					}
					{	/* Eval/evcompile.scm 822 */
						long BgL_lenz00_3512;

						BgL_lenz00_3512 = STRING_LENGTH(BgL_stringz00_3511);
						{	/* Eval/evcompile.scm 823 */

							{
								long BgL_walkerz00_3514;

								BgL_walkerz00_3514 = 0L;
							BgL_zc3z04anonymousza33294ze3z87_3515:
								if ((BgL_walkerz00_3514 == BgL_lenz00_3512))
									{	/* Eval/evcompile.scm 826 */
										return BgL_idz00_139;
									}
								else
									{	/* Eval/evcompile.scm 828 */
										bool_t BgL_test4481z00_11256;

										if (
											(STRING_REF(BgL_stringz00_3511,
													BgL_walkerz00_3514) == ((unsigned char) ':')))
											{	/* Eval/evcompile.scm 828 */
												if ((BgL_walkerz00_3514 < (BgL_lenz00_3512 - 1L)))
													{	/* Eval/evcompile.scm 829 */
														BgL_test4481z00_11256 =
															(STRING_REF(BgL_stringz00_3511,
																(BgL_walkerz00_3514 + 1L)) ==
															((unsigned char) ':'));
													}
												else
													{	/* Eval/evcompile.scm 829 */
														BgL_test4481z00_11256 = ((bool_t) 0);
													}
											}
										else
											{	/* Eval/evcompile.scm 828 */
												BgL_test4481z00_11256 = ((bool_t) 0);
											}
										if (BgL_test4481z00_11256)
											{	/* Eval/evcompile.scm 828 */
												return
													bstring_to_symbol(c_substring(BgL_stringz00_3511, 0L,
														BgL_walkerz00_3514));
											}
										else
											{
												long BgL_walkerz00_11268;

												BgL_walkerz00_11268 = (BgL_walkerz00_3514 + 1L);
												BgL_walkerz00_3514 = BgL_walkerz00_11268;
												goto BgL_zc3z04anonymousza33294ze3z87_3515;
											}
									}
							}
						}
					}
				}
			else
				{	/* Eval/evcompile.scm 820 */
					return BgL_idz00_139;
				}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__evcompilez00(obj_t BgL_envz00_6757,
		obj_t BgL_framesz00_3537)
	{
		{	/* Eval/evcompile.scm 856 */
			{
				obj_t BgL_varz00_3545;
				obj_t BgL_envz00_3546;

				if (NULLP(BgL_framesz00_3537))
					{	/* Eval/evcompile.scm 858 */
						return BgL_envz00_6757;
					}
				else
					{	/* Eval/evcompile.scm 858 */
						if (PAIRP(BgL_framesz00_3537))
							{	/* Eval/evcompile.scm 860 */
								BgL_varz00_3545 = CAR(BgL_framesz00_3537);
								BgL_envz00_3546 =
									BGl_loopze70ze7zz__evcompilez00(BgL_envz00_6757,
									CDR(BgL_framesz00_3537));
							BgL_zc3z04anonymousza33324ze3z87_3547:
								{	/* Eval/evcompile.scm 841 */
									obj_t BgL_stringz00_3548;

									BgL_stringz00_3548 =
										SYMBOL_TO_STRING(((obj_t) BgL_varz00_3545));
									{	/* Eval/evcompile.scm 841 */
										long BgL_lenz00_3549;

										BgL_lenz00_3549 = STRING_LENGTH(BgL_stringz00_3548);
										{	/* Eval/evcompile.scm 842 */

											{
												long BgL_walkerz00_3551;

												BgL_walkerz00_3551 = 0L;
											BgL_zc3z04anonymousza33325ze3z87_3552:
												if ((BgL_walkerz00_3551 == BgL_lenz00_3549))
													{	/* Eval/evcompile.scm 846 */
														obj_t BgL_arg3327z00_3554;

														BgL_arg3327z00_3554 =
															MAKE_YOUNG_PAIR(BgL_varz00_3545, BFALSE);
														return
															MAKE_YOUNG_PAIR(BgL_arg3327z00_3554,
															BgL_envz00_3546);
													}
												else
													{	/* Eval/evcompile.scm 847 */
														bool_t BgL_test4487z00_11281;

														if (
															(STRING_REF(BgL_stringz00_3548,
																	BgL_walkerz00_3551) == ((unsigned char) ':')))
															{	/* Eval/evcompile.scm 847 */
																if (
																	(BgL_walkerz00_3551 < (BgL_lenz00_3549 - 1L)))
																	{	/* Eval/evcompile.scm 848 */
																		BgL_test4487z00_11281 =
																			(STRING_REF(BgL_stringz00_3548,
																				(BgL_walkerz00_3551 + 1L)) ==
																			((unsigned char) ':'));
																	}
																else
																	{	/* Eval/evcompile.scm 848 */
																		BgL_test4487z00_11281 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evcompile.scm 847 */
																BgL_test4487z00_11281 = ((bool_t) 0);
															}
														if (BgL_test4487z00_11281)
															{	/* Eval/evcompile.scm 850 */
																obj_t BgL_idz00_3564;
																obj_t BgL_typez00_3565;

																BgL_idz00_3564 =
																	bstring_to_symbol(c_substring
																	(BgL_stringz00_3548, 0L, BgL_walkerz00_3551));
																{	/* Eval/evcompile.scm 851 */
																	obj_t BgL_arg3343z00_3570;

																	{	/* Eval/evcompile.scm 851 */
																		long BgL_arg3344z00_3571;

																		BgL_arg3344z00_3571 =
																			(BgL_walkerz00_3551 + 2L);
																		{	/* Ieee/string.scm 194 */
																			long BgL_endz00_3574;

																			BgL_endz00_3574 =
																				STRING_LENGTH(BgL_stringz00_3548);
																			{	/* Ieee/string.scm 194 */

																				BgL_arg3343z00_3570 =
																					BGl_substringz00zz__r4_strings_6_7z00
																					(BgL_stringz00_3548,
																					BgL_arg3344z00_3571, BgL_endz00_3574);
																	}}}
																	BgL_typez00_3565 =
																		bstring_to_symbol(BgL_arg3343z00_3570);
																}
																{	/* Eval/evcompile.scm 852 */
																	obj_t BgL_arg3339z00_3566;

																	{	/* Eval/evcompile.scm 852 */
																		obj_t BgL_arg3341z00_3567;

																		{	/* Eval/evcompile.scm 852 */
																			obj_t BgL__ortest_1087z00_3568;

																			BgL__ortest_1087z00_3568 =
																				BGl_classzd2existszd2zz__objectz00
																				(BgL_typez00_3565);
																			if (CBOOL(BgL__ortest_1087z00_3568))
																				{	/* Eval/evcompile.scm 852 */
																					BgL_arg3341z00_3567 =
																						BgL__ortest_1087z00_3568;
																				}
																			else
																				{	/* Eval/evcompile.scm 852 */
																					BgL_arg3341z00_3567 =
																						BgL_typez00_3565;
																				}
																		}
																		BgL_arg3339z00_3566 =
																			MAKE_YOUNG_PAIR(BgL_idz00_3564,
																			BgL_arg3341z00_3567);
																	}
																	return
																		MAKE_YOUNG_PAIR(BgL_arg3339z00_3566,
																		BgL_envz00_3546);
																}
															}
														else
															{
																long BgL_walkerz00_11302;

																BgL_walkerz00_11302 = (BgL_walkerz00_3551 + 1L);
																BgL_walkerz00_3551 = BgL_walkerz00_11302;
																goto BgL_zc3z04anonymousza33325ze3z87_3552;
															}
													}
											}
										}
									}
								}
							}
						else
							{
								obj_t BgL_envz00_11308;
								obj_t BgL_varz00_11307;

								BgL_varz00_11307 = BgL_framesz00_3537;
								BgL_envz00_11308 = BgL_envz00_6757;
								BgL_envz00_3546 = BgL_envz00_11308;
								BgL_varz00_3545 = BgL_varz00_11307;
								goto BgL_zc3z04anonymousza33324ze3z87_3547;
							}
					}
			}
		}

	}



/* evcompile-loc-filename */
	BGL_EXPORTED_DEF obj_t BGl_evcompilezd2loczd2filenamez00zz__evcompilez00(obj_t
		BgL_locz00_142)
	{
		{	/* Eval/evcompile.scm 868 */
			if (PAIRP(BgL_locz00_142))
				{	/* Eval/evcompile.scm 869 */
					obj_t BgL_cdrzd27199zd2_3590;

					BgL_cdrzd27199zd2_3590 = CDR(((obj_t) BgL_locz00_142));
					if (
						(CAR(
								((obj_t) BgL_locz00_142)) == BGl_symbol3887z00zz__evcompilez00))
						{	/* Eval/evcompile.scm 869 */
							if (PAIRP(BgL_cdrzd27199zd2_3590))
								{	/* Eval/evcompile.scm 869 */
									obj_t BgL_cdrzd27203zd2_3594;

									BgL_cdrzd27203zd2_3594 = CDR(BgL_cdrzd27199zd2_3590);
									if (PAIRP(BgL_cdrzd27203zd2_3594))
										{	/* Eval/evcompile.scm 869 */
											if (NULLP(CDR(BgL_cdrzd27203zd2_3594)))
												{	/* Eval/evcompile.scm 869 */
													return CAR(BgL_cdrzd27199zd2_3590);
												}
											else
												{	/* Eval/evcompile.scm 869 */
													return BFALSE;
												}
										}
									else
										{	/* Eval/evcompile.scm 869 */
											return BFALSE;
										}
								}
							else
								{	/* Eval/evcompile.scm 869 */
									return BFALSE;
								}
						}
					else
						{	/* Eval/evcompile.scm 869 */
							return BFALSE;
						}
				}
			else
				{	/* Eval/evcompile.scm 869 */
					return BFALSE;
				}
		}

	}



/* &evcompile-loc-filename */
	obj_t BGl_z62evcompilezd2loczd2filenamez62zz__evcompilez00(obj_t
		BgL_envz00_6750, obj_t BgL_locz00_6751)
	{
		{	/* Eval/evcompile.scm 868 */
			return BGl_evcompilezd2loczd2filenamez00zz__evcompilez00(BgL_locz00_6751);
		}

	}



/* evcompile-error */
	BGL_EXPORTED_DEF obj_t BGl_evcompilezd2errorzd2zz__evcompilez00(obj_t
		BgL_locz00_143, obj_t BgL_procz00_144, obj_t BgL_mesz00_145,
		obj_t BgL_objz00_146)
	{
		{	/* Eval/evcompile.scm 876 */
			if (PAIRP(BgL_locz00_143))
				{	/* Eval/evcompile.scm 877 */
					obj_t BgL_cdrzd27217zd2_3608;

					BgL_cdrzd27217zd2_3608 = CDR(((obj_t) BgL_locz00_143));
					if (
						(CAR(
								((obj_t) BgL_locz00_143)) == BGl_symbol3887z00zz__evcompilez00))
						{	/* Eval/evcompile.scm 877 */
							if (PAIRP(BgL_cdrzd27217zd2_3608))
								{	/* Eval/evcompile.scm 877 */
									obj_t BgL_cdrzd27221zd2_3612;

									BgL_cdrzd27221zd2_3612 = CDR(BgL_cdrzd27217zd2_3608);
									if (PAIRP(BgL_cdrzd27221zd2_3612))
										{	/* Eval/evcompile.scm 877 */
											if (NULLP(CDR(BgL_cdrzd27221zd2_3612)))
												{	/* Eval/evcompile.scm 877 */
													return
														BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_144,
														BgL_mesz00_145, BgL_objz00_146,
														CAR(BgL_cdrzd27217zd2_3608),
														CAR(BgL_cdrzd27221zd2_3612));
												}
											else
												{	/* Eval/evcompile.scm 877 */
													return
														BGl_errorz00zz__errorz00(BgL_procz00_144,
														BgL_mesz00_145, BgL_objz00_146);
												}
										}
									else
										{	/* Eval/evcompile.scm 877 */
											return
												BGl_errorz00zz__errorz00(BgL_procz00_144,
												BgL_mesz00_145, BgL_objz00_146);
										}
								}
							else
								{	/* Eval/evcompile.scm 877 */
									return
										BGl_errorz00zz__errorz00(BgL_procz00_144, BgL_mesz00_145,
										BgL_objz00_146);
								}
						}
					else
						{	/* Eval/evcompile.scm 877 */
							return
								BGl_errorz00zz__errorz00(BgL_procz00_144, BgL_mesz00_145,
								BgL_objz00_146);
						}
				}
			else
				{	/* Eval/evcompile.scm 877 */
					return
						BGl_errorz00zz__errorz00(BgL_procz00_144, BgL_mesz00_145,
						BgL_objz00_146);
				}
		}

	}



/* &evcompile-error */
	obj_t BGl_z62evcompilezd2errorzb0zz__evcompilez00(obj_t BgL_envz00_6752,
		obj_t BgL_locz00_6753, obj_t BgL_procz00_6754, obj_t BgL_mesz00_6755,
		obj_t BgL_objz00_6756)
	{
		{	/* Eval/evcompile.scm 876 */
			return
				BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_6753,
				BgL_procz00_6754, BgL_mesz00_6755, BgL_objz00_6756);
		}

	}



/* evcompile-field-ref */
	obj_t BGl_evcompilezd2fieldzd2refz00zz__evcompilez00(obj_t BgL_expz00_149,
		obj_t BgL_envz00_150, obj_t BgL_genvz00_151, obj_t BgL_wherez00_152,
		bool_t BgL_tailz00_153, obj_t BgL_locz00_154, bool_t BgL_lkpz00_155,
		bool_t BgL_toplevelpz00_156)
	{
		{	/* Eval/evcompile.scm 935 */
			{	/* Eval/evcompile.scm 936 */
				obj_t BgL_lz00_3685;

				BgL_lz00_3685 = CDR(((obj_t) BgL_expz00_149));
				{	/* Eval/evcompile.scm 936 */
					obj_t BgL_vz00_3686;

					{	/* Eval/evcompile.scm 937 */
						obj_t BgL_arg3425z00_3710;

						BgL_arg3425z00_3710 = CAR(((obj_t) BgL_lz00_3685));
						BgL_vz00_3686 =
							BGl_variablez00zz__evcompilez00(BgL_locz00_154,
							BgL_arg3425z00_3710, BgL_envz00_150, BgL_genvz00_151);
					}
					{	/* Eval/evcompile.scm 937 */

						if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_vz00_3686))
							{	/* Eval/evcompile.scm 940 */
								obj_t BgL_g1089z00_3688;
								obj_t BgL_g1090z00_3689;
								obj_t BgL_g1091z00_3690;

								BgL_g1089z00_3688 = CAR(((obj_t) BgL_lz00_3685));
								BgL_g1090z00_3689 =
									CDR(bgl_list_ref(BgL_envz00_150, (long) CINT(BgL_vz00_3686)));
								BgL_g1091z00_3690 = CDR(((obj_t) BgL_lz00_3685));
								{
									obj_t BgL_nodez00_3692;
									obj_t BgL_klassz00_3693;
									obj_t BgL_fieldsz00_3694;

									BgL_nodez00_3692 = BgL_g1089z00_3688;
									BgL_klassz00_3693 = BgL_g1090z00_3689;
									BgL_fieldsz00_3694 = BgL_g1091z00_3690;
								BgL_zc3z04anonymousza33413ze3z87_3695:
									if (NULLP(BgL_fieldsz00_3694))
										{	/* Eval/evcompile.scm 944 */
											BGL_TAIL return
												BGl_evcompilez00zz__evcompilez00(BgL_nodez00_3692,
												BgL_envz00_150, BgL_genvz00_151, BgL_wherez00_152,
												BgL_tailz00_153, BgL_locz00_154, BgL_lkpz00_155,
												BgL_toplevelpz00_156);
										}
									else
										{	/* Eval/evcompile.scm 944 */
											if (BGl_classzf3zf3zz__objectz00(BgL_klassz00_3693))
												{	/* Eval/evcompile.scm 949 */
													obj_t BgL_fieldz00_3698;

													{	/* Eval/evcompile.scm 949 */
														obj_t BgL_arg3423z00_3707;

														BgL_arg3423z00_3707 =
															CAR(((obj_t) BgL_fieldsz00_3694));
														BgL_fieldz00_3698 =
															BGl_findzd2classzd2fieldz00zz__objectz00
															(BgL_klassz00_3693, BgL_arg3423z00_3707);
													}
													if (CBOOL(BgL_fieldz00_3698))
														{	/* Eval/evcompile.scm 955 */
															obj_t BgL_nodez00_3699;

															{	/* Eval/evcompile.scm 994 */
																obj_t BgL_arg3447z00_6429;
																obj_t BgL_arg3449z00_6430;

																BgL_arg3447z00_6429 =
																	BGl_classzd2fieldzd2accessorz00zz__objectz00
																	(BgL_fieldz00_3698);
																BgL_arg3449z00_6430 =
																	MAKE_YOUNG_PAIR(BgL_nodez00_3692, BNIL);
																BgL_nodez00_3699 =
																	MAKE_YOUNG_PAIR(BgL_arg3447z00_6429,
																	BgL_arg3449z00_6430);
															}
															{	/* Eval/evcompile.scm 957 */
																obj_t BgL_arg3416z00_3700;
																obj_t BgL_arg3417z00_3701;

																BgL_arg3416z00_3700 =
																	BGl_classzd2fieldzd2typez00zz__objectz00
																	(BgL_fieldz00_3698);
																BgL_arg3417z00_3701 =
																	CDR(((obj_t) BgL_fieldsz00_3694));
																{
																	obj_t BgL_fieldsz00_11384;
																	obj_t BgL_klassz00_11383;
																	obj_t BgL_nodez00_11382;

																	BgL_nodez00_11382 = BgL_nodez00_3699;
																	BgL_klassz00_11383 = BgL_arg3416z00_3700;
																	BgL_fieldsz00_11384 = BgL_arg3417z00_3701;
																	BgL_fieldsz00_3694 = BgL_fieldsz00_11384;
																	BgL_klassz00_3693 = BgL_klassz00_11383;
																	BgL_nodez00_3692 = BgL_nodez00_11382;
																	goto BgL_zc3z04anonymousza33413ze3z87_3695;
																}
															}
														}
													else
														{	/* Eval/evcompile.scm 953 */
															obj_t BgL_arg3418z00_3702;

															{	/* Eval/evcompile.scm 953 */
																obj_t BgL_arg3419z00_3703;
																obj_t BgL_arg3420z00_3704;

																BgL_arg3419z00_3703 =
																	BGl_classzd2namezd2zz__objectz00
																	(BgL_klassz00_3693);
																BgL_arg3420z00_3704 =
																	CAR(((obj_t) BgL_fieldsz00_3694));
																{	/* Eval/evcompile.scm 952 */
																	obj_t BgL_list3421z00_3705;

																	{	/* Eval/evcompile.scm 952 */
																		obj_t BgL_arg3422z00_3706;

																		BgL_arg3422z00_3706 =
																			MAKE_YOUNG_PAIR(BgL_arg3420z00_3704,
																			BNIL);
																		BgL_list3421z00_3705 =
																			MAKE_YOUNG_PAIR(BgL_arg3419z00_3703,
																			BgL_arg3422z00_3706);
																	}
																	BgL_arg3418z00_3702 =
																		BGl_formatz00zz__r4_output_6_10_3z00
																		(BGl_string3889z00zz__evcompilez00,
																		BgL_list3421z00_3705);
																}
															}
															return
																BGl_evcompilezd2errorzd2zz__evcompilez00
																(BgL_locz00_154,
																BGl_string3824z00zz__evcompilez00,
																BgL_arg3418z00_3702, BgL_expz00_149);
														}
												}
											else
												{	/* Eval/evcompile.scm 946 */
													return
														BGl_evcompilezd2errorzd2zz__evcompilez00
														(BgL_locz00_154, BGl_string3824z00zz__evcompilez00,
														BGl_string3890z00zz__evcompilez00, BgL_expz00_149);
												}
										}
								}
							}
						else
							{	/* Eval/evcompile.scm 938 */
								return
									BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_154,
									BGl_string3824z00zz__evcompilez00,
									BGl_string3890z00zz__evcompilez00, BgL_expz00_149);
							}
					}
				}
			}
		}

	}



/* evcompile-field-set */
	obj_t BGl_evcompilezd2fieldzd2setz00zz__evcompilez00(obj_t BgL_lz00_157,
		obj_t BgL_valz00_158, obj_t BgL_expz00_159, obj_t BgL_envz00_160,
		obj_t BgL_genvz00_161, obj_t BgL_wherez00_162, bool_t BgL_tailz00_163,
		obj_t BgL_locz00_164, bool_t BgL_lkpz00_165, bool_t BgL_toplevelpz00_166)
	{
		{	/* Eval/evcompile.scm 963 */
			{	/* Eval/evcompile.scm 964 */
				obj_t BgL_vz00_3711;

				BgL_vz00_3711 =
					BGl_variablez00zz__evcompilez00(BgL_locz00_164,
					CAR(BgL_lz00_157), BgL_envz00_160, BgL_genvz00_161);
				if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_vz00_3711))
					{	/* Eval/evcompile.scm 967 */
						obj_t BgL_g1092z00_3713;
						obj_t BgL_g1093z00_3714;
						obj_t BgL_g1094z00_3715;

						BgL_g1092z00_3713 = CAR(BgL_lz00_157);
						BgL_g1093z00_3714 =
							CDR(bgl_list_ref(BgL_envz00_160, (long) CINT(BgL_vz00_3711)));
						BgL_g1094z00_3715 = CDR(BgL_lz00_157);
						{
							obj_t BgL_nodez00_3717;
							obj_t BgL_klassz00_3718;
							obj_t BgL_fieldsz00_3719;

							BgL_nodez00_3717 = BgL_g1092z00_3713;
							BgL_klassz00_3718 = BgL_g1093z00_3714;
							BgL_fieldsz00_3719 = BgL_g1094z00_3715;
						BgL_zc3z04anonymousza33427ze3z87_3720:
							if (BGl_classzf3zf3zz__objectz00(BgL_klassz00_3718))
								{	/* Eval/evcompile.scm 972 */
									obj_t BgL_fieldz00_3722;

									{	/* Eval/evcompile.scm 972 */
										obj_t BgL_arg3443z00_3736;

										BgL_arg3443z00_3736 = CAR(((obj_t) BgL_fieldsz00_3719));
										BgL_fieldz00_3722 =
											BGl_findzd2classzd2fieldz00zz__objectz00
											(BgL_klassz00_3718, BgL_arg3443z00_3736);
									}
									if (CBOOL(BgL_fieldz00_3722))
										{	/* Eval/evcompile.scm 974 */
											if (NULLP(CDR(((obj_t) BgL_fieldsz00_3719))))
												{	/* Eval/evcompile.scm 979 */
													if (BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00
														(BgL_fieldz00_3722))
														{	/* Eval/evcompile.scm 981 */
															obj_t BgL_arg3432z00_3726;

															{	/* Eval/evcompile.scm 1000 */
																obj_t BgL_arg3450z00_6439;
																obj_t BgL_arg3451z00_6440;

																BgL_arg3450z00_6439 =
																	BGl_classzd2fieldzd2mutatorz00zz__objectz00
																	(BgL_fieldz00_3722);
																{	/* Eval/evcompile.scm 1000 */
																	obj_t BgL_arg3453z00_6441;

																	BgL_arg3453z00_6441 =
																		MAKE_YOUNG_PAIR(BgL_valz00_158, BNIL);
																	BgL_arg3451z00_6440 =
																		MAKE_YOUNG_PAIR(BgL_nodez00_3717,
																		BgL_arg3453z00_6441);
																}
																BgL_arg3432z00_3726 =
																	MAKE_YOUNG_PAIR(BgL_arg3450z00_6439,
																	BgL_arg3451z00_6440);
															}
															return
																BGl_evcompilez00zz__evcompilez00
																(BgL_arg3432z00_3726, BgL_envz00_160,
																BgL_genvz00_161, BgL_wherez00_162,
																BgL_tailz00_163, BgL_locz00_164, BgL_lkpz00_165,
																BgL_toplevelpz00_166);
														}
													else
														{	/* Eval/evcompile.scm 980 */
															return
																BGl_evcompilezd2errorzd2zz__evcompilez00
																(BgL_locz00_164,
																BGl_string3824z00zz__evcompilez00,
																BGl_string3891z00zz__evcompilez00,
																BgL_expz00_159);
														}
												}
											else
												{	/* Eval/evcompile.scm 985 */
													obj_t BgL_nodez00_3727;

													{	/* Eval/evcompile.scm 994 */
														obj_t BgL_arg3447z00_6442;
														obj_t BgL_arg3449z00_6443;

														BgL_arg3447z00_6442 =
															BGl_classzd2fieldzd2accessorz00zz__objectz00
															(BgL_fieldz00_3722);
														BgL_arg3449z00_6443 =
															MAKE_YOUNG_PAIR(BgL_nodez00_3717, BNIL);
														BgL_nodez00_3727 =
															MAKE_YOUNG_PAIR(BgL_arg3447z00_6442,
															BgL_arg3449z00_6443);
													}
													{	/* Eval/evcompile.scm 987 */
														obj_t BgL_arg3433z00_3728;
														obj_t BgL_arg3434z00_3729;

														BgL_arg3433z00_3728 =
															BGl_classzd2fieldzd2typez00zz__objectz00
															(BgL_fieldz00_3722);
														BgL_arg3434z00_3729 =
															CDR(((obj_t) BgL_fieldsz00_3719));
														{
															obj_t BgL_fieldsz00_11430;
															obj_t BgL_klassz00_11429;
															obj_t BgL_nodez00_11428;

															BgL_nodez00_11428 = BgL_nodez00_3727;
															BgL_klassz00_11429 = BgL_arg3433z00_3728;
															BgL_fieldsz00_11430 = BgL_arg3434z00_3729;
															BgL_fieldsz00_3719 = BgL_fieldsz00_11430;
															BgL_klassz00_3718 = BgL_klassz00_11429;
															BgL_nodez00_3717 = BgL_nodez00_11428;
															goto BgL_zc3z04anonymousza33427ze3z87_3720;
														}
													}
												}
										}
									else
										{	/* Eval/evcompile.scm 977 */
											obj_t BgL_arg3437z00_3731;

											{	/* Eval/evcompile.scm 977 */
												obj_t BgL_arg3438z00_3732;
												obj_t BgL_arg3440z00_3733;

												BgL_arg3438z00_3732 =
													BGl_classzd2namezd2zz__objectz00(BgL_klassz00_3718);
												BgL_arg3440z00_3733 = CAR(((obj_t) BgL_fieldsz00_3719));
												{	/* Eval/evcompile.scm 976 */
													obj_t BgL_list3441z00_3734;

													{	/* Eval/evcompile.scm 976 */
														obj_t BgL_arg3442z00_3735;

														BgL_arg3442z00_3735 =
															MAKE_YOUNG_PAIR(BgL_arg3440z00_3733, BNIL);
														BgL_list3441z00_3734 =
															MAKE_YOUNG_PAIR(BgL_arg3438z00_3732,
															BgL_arg3442z00_3735);
													}
													BgL_arg3437z00_3731 =
														BGl_formatz00zz__r4_output_6_10_3z00
														(BGl_string3889z00zz__evcompilez00,
														BgL_list3441z00_3734);
												}
											}
											return
												BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_164,
												BGl_string3832z00zz__evcompilez00, BgL_arg3437z00_3731,
												BgL_expz00_159);
										}
								}
							else
								{	/* Eval/evcompile.scm 970 */
									return
										BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_164,
										BGl_string3832z00zz__evcompilez00,
										BGl_string3890z00zz__evcompilez00, BgL_expz00_159);
								}
						}
					}
				else
					{	/* Eval/evcompile.scm 965 */
						return
							BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_164,
							BGl_string3832z00zz__evcompilez00,
							BGl_string3890z00zz__evcompilez00, BgL_expz00_159);
					}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__evcompilez00(void)
	{
		{	/* Eval/evcompile.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__evcompilez00(void)
	{
		{	/* Eval/evcompile.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__evcompilez00(void)
	{
		{	/* Eval/evcompile.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__evcompilez00(void)
	{
		{	/* Eval/evcompile.scm 15 */
			BGl_modulezd2initializa7ationz75zz__typez00(393254000L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128205792L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__osz00(310000171L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__dssslz00(443936801L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__bitz00(377164741L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(457511469L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(362050511L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00((-44273703L),
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(228151370L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__evenvz00(528345299L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__evalz00(35539458L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__evobjectz00(481718039L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__evmodulez00(505897955L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
			return BGl_modulezd2initializa7ationz75zz__readerz00(220648206L,
				BSTRING_TO_STRING(BGl_string3892z00zz__evcompilez00));
		}

	}

#ifdef __cplusplus
}
#endif
