/*===========================================================================*/
/*   (Globalize/gloclo.scm)                                                  */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -q -afile .afile -fsharing -fno-reflection -cc gcc -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -unsafev -gno-error-localization -no-hello -O2 -rm -unsafe -s -stdc -indent Globalize/gloclo.scm) */
/* 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_BgL_GLOBALIZE_GLOBALzd2CLOSUREzd2_TYPE_DEFINITIONS
#define BGL_BgL_GLOBALIZE_GLOBALzd2CLOSUREzd2_TYPE_DEFINITIONS

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

	typedef struct BgL_valuez00_bgl
	{
		header_t header;
		obj_t widening;
	}               *BgL_valuez00_bglt;

	typedef struct BgL_variablez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_idz00;
		obj_t BgL_namez00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_valuez00_bgl *BgL_valuez00;
		obj_t BgL_accessz00;
		obj_t BgL_fastzd2alphazd2;
		obj_t BgL_removablez00;
		long BgL_occurrencez00;
		long BgL_occurrencewz00;
		bool_t BgL_userzf3zf3;
	}                  *BgL_variablez00_bglt;

	typedef struct BgL_globalz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_idz00;
		obj_t BgL_namez00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_valuez00_bgl *BgL_valuez00;
		obj_t BgL_accessz00;
		obj_t BgL_fastzd2alphazd2;
		obj_t BgL_removablez00;
		long BgL_occurrencez00;
		long BgL_occurrencewz00;
		bool_t BgL_userzf3zf3;
		obj_t BgL_modulez00;
		obj_t BgL_importz00;
		bool_t BgL_evaluablezf3zf3;
		bool_t BgL_evalzf3zf3;
		obj_t BgL_libraryz00;
		obj_t BgL_pragmaz00;
		obj_t BgL_srcz00;
		obj_t BgL_jvmzd2typezd2namez00;
		obj_t BgL_initz00;
		obj_t BgL_aliasz00;
	}                *BgL_globalz00_bglt;

	typedef struct BgL_localz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_idz00;
		obj_t BgL_namez00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_valuez00_bgl *BgL_valuez00;
		obj_t BgL_accessz00;
		obj_t BgL_fastzd2alphazd2;
		obj_t BgL_removablez00;
		long BgL_occurrencez00;
		long BgL_occurrencewz00;
		bool_t BgL_userzf3zf3;
		long BgL_keyz00;
		obj_t BgL_valzd2noescapezd2;
		bool_t BgL_volatilez00;
	}               *BgL_localz00_bglt;

	typedef struct BgL_funz00_bgl
	{
		header_t header;
		obj_t widening;
		long BgL_arityz00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_predicatezd2ofzd2;
		obj_t BgL_stackzd2allocatorzd2;
		bool_t BgL_topzf3zf3;
		obj_t BgL_thezd2closurezd2;
		obj_t BgL_effectz00;
		obj_t BgL_failsafez00;
		obj_t BgL_argszd2noescapezd2;
		obj_t BgL_argszd2retescapezd2;
	}             *BgL_funz00_bglt;

	typedef struct BgL_sfunz00_bgl
	{
		header_t header;
		obj_t widening;
		long BgL_arityz00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_predicatezd2ofzd2;
		obj_t BgL_stackzd2allocatorzd2;
		bool_t BgL_topzf3zf3;
		obj_t BgL_thezd2closurezd2;
		obj_t BgL_effectz00;
		obj_t BgL_failsafez00;
		obj_t BgL_argszd2noescapezd2;
		obj_t BgL_argszd2retescapezd2;
		obj_t BgL_propertyz00;
		obj_t BgL_argsz00;
		obj_t BgL_argszd2namezd2;
		obj_t BgL_bodyz00;
		obj_t BgL_classz00;
		obj_t BgL_dssslzd2keywordszd2;
		obj_t BgL_locz00;
		obj_t BgL_optionalsz00;
		obj_t BgL_keysz00;
		obj_t BgL_thezd2closurezd2globalz00;
		obj_t BgL_strengthz00;
		obj_t BgL_stackablez00;
	}              *BgL_sfunz00_bglt;

	typedef struct BgL_cfunz00_bgl
	{
		header_t header;
		obj_t widening;
		long BgL_arityz00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_predicatezd2ofzd2;
		obj_t BgL_stackzd2allocatorzd2;
		bool_t BgL_topzf3zf3;
		obj_t BgL_thezd2closurezd2;
		obj_t BgL_effectz00;
		obj_t BgL_failsafez00;
		obj_t BgL_argszd2noescapezd2;
		obj_t BgL_argszd2retescapezd2;
		obj_t BgL_argszd2typezd2;
		bool_t BgL_macrozf3zf3;
		bool_t BgL_infixzf3zf3;
		obj_t BgL_methodz00;
	}              *BgL_cfunz00_bglt;

	typedef struct BgL_svarz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
	}              *BgL_svarz00_bglt;

	typedef struct BgL_nodez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
	}              *BgL_nodez00_bglt;

	typedef struct BgL_nodezf2effectzf2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
	}                       *BgL_nodezf2effectzf2_bglt;

	typedef struct BgL_varz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_variablez00_bgl *BgL_variablez00;
	}             *BgL_varz00_bglt;

	typedef struct BgL_refz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_variablez00_bgl *BgL_variablez00;
	}             *BgL_refz00_bglt;

	typedef struct BgL_appz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		struct BgL_varz00_bgl *BgL_funz00;
		obj_t BgL_argsz00;
		obj_t BgL_stackablez00;
	}             *BgL_appz00_bglt;

	typedef struct BgL_svarzf2ginfozf2_bgl
	{
		bool_t BgL_kapturedzf3zf3;
		long BgL_freezd2markzd2;
		long BgL_markz00;
		bool_t BgL_celledzf3zf3;
		bool_t BgL_stackablez00;
	}                      *BgL_svarzf2ginfozf2_bglt;

	typedef struct BgL_localzf2ginfozf2_bgl
	{
		bool_t BgL_escapezf3zf3;
		bool_t BgL_globaliza7edzf3z54;
	}                       *BgL_localzf2ginfozf2_bglt;

	typedef struct BgL_globalzf2ginfozf2_bgl
	{
		bool_t BgL_escapezf3zf3;
		obj_t BgL_globalzd2closurezd2;
	}                        *BgL_globalzf2ginfozf2_bglt;


#endif													// BGL_BgL_GLOBALIZE_GLOBALzd2CLOSUREzd2_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern BgL_globalz00_bglt
		BGl_defzd2globalzd2sfunzd2nozd2warningz12z12zzast_glozd2defzd2(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static BgL_appz00_bglt
		BGl_makezd2nooptzd2bodyz00zzglobaliza7e_globalzd2closurez75(obj_t,
		BgL_globalz00_bglt, obj_t);
	extern obj_t BGl_za2optimza2z00zzengine_paramz00;
	static obj_t
		BGl_makezd2nooptzd2globalzd2closurezd2zzglobaliza7e_globalzd2closurez75
		(BgL_globalz00_bglt);
	static obj_t
		BGl_globaliza7edzd2typezd2idza7zzglobaliza7e_globalzd2closurez75
		(BgL_globalz00_bglt);
	static obj_t
		BGl_requirezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75 =
		BUNSPEC;
	extern obj_t BGl_makezd2typedzd2identz00zzast_identz00(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_globalz00_bglt
		BGl_globalzd2closurezd2zzglobaliza7e_globalzd2closurez75(BgL_globalz00_bglt,
		obj_t);
	extern obj_t BGl_zb2zd2arityz60zztools_argsz00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
	extern obj_t BGl_sfunz00zzast_varz00;
	static obj_t BGl_toplevelzd2initzd2zzglobaliza7e_globalzd2closurez75(void);
	extern obj_t BGl_makezd2nzd2protoz00zztools_argsz00(obj_t);
	extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_genericzd2initzd2zzglobaliza7e_globalzd2closurez75(void);
	BGL_IMPORT obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_objectzd2initzd2zzglobaliza7e_globalzd2closurez75(void);
	static obj_t BGl_za2foreignzd2closuresza2zd2zzglobaliza7e_globalzd2closurez75
		= BUNSPEC;
	BGL_IMPORT obj_t BGl_za2inheritancesza2z00zz__objectz00;
	BGL_EXPORTED_DECL obj_t
		BGl_foreignzd2closureszd2zzglobaliza7e_globalzd2closurez75(void);
	BGL_IMPORT obj_t bstring_to_symbol(obj_t);
	BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	extern obj_t BGl_refz00zzast_nodez00;
	static obj_t
		BGl_makezd2optzf2keyzd2globalzd2closurez20zzglobaliza7e_globalzd2closurez75
		(BgL_globalz00_bglt);
	extern obj_t BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7;
	BGL_IMPORT obj_t BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7;
	static obj_t BGl_methodzd2initzd2zzglobaliza7e_globalzd2closurez75(void);
	extern BgL_typez00_bglt
		BGl_getzd2bigloozd2typez00zztype_cachez00(BgL_typez00_bglt);
	static obj_t
		BGl_glocloz00zzglobaliza7e_globalzd2closurez75(BgL_globalz00_bglt,
		BgL_localz00_bglt, obj_t);
	extern obj_t BGl_findzd2globalzd2zzast_envz00(obj_t, obj_t);
	static BgL_globalz00_bglt
		BGl_z62makezd2globalzd2closurez62zzglobaliza7e_globalzd2closurez75(obj_t,
		obj_t);
	BGL_IMPORT obj_t string_append(obj_t, obj_t);
	static obj_t
		BGl_z62foreignzd2closureszb0zzglobaliza7e_globalzd2closurez75(obj_t);
	extern obj_t
		BGl_za2optimzd2cfazd2unboxzd2closurezd2argsza2z00zzengine_paramz00;
	extern obj_t BGl_za2_za2z00zztype_cachez00;
	extern BgL_typez00_bglt
		BGl_strictzd2nodezd2typez00zzast_nodez00(BgL_typez00_bglt,
		BgL_typez00_bglt);
	extern obj_t BGl_za2procedureza2z00zztype_cachez00;
	extern obj_t BGl_za2objza2z00zztype_cachez00;
	BGL_IMPORT bool_t symbol_exists_p(char *);
	extern obj_t BGl_za2moduleza2z00zzmodule_modulez00;
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_argsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_appz00zzast_nodez00;
	extern obj_t BGl_cfunz00zzast_varz00;
	extern obj_t BGl_nodez00zzast_nodez00;
	BGL_EXPORTED_DECL BgL_globalz00_bglt
		BGl_makezd2globalzd2closurez00zzglobaliza7e_globalzd2closurez75
		(BgL_globalz00_bglt);
	extern obj_t BGl_localz00zzast_varz00;
	static obj_t BGl_cnstzd2initzd2zzglobaliza7e_globalzd2closurez75(void);
	static obj_t
		BGl_libraryzd2moduleszd2initz00zzglobaliza7e_globalzd2closurez75(void);
	extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t,
		BgL_typez00_bglt);
	extern obj_t
		BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(BgL_globalz00_bglt,
		obj_t);
	static obj_t
		BGl_importedzd2moduleszd2initz00zzglobaliza7e_globalzd2closurez75(void);
	static obj_t BGl_gczd2rootszd2initz00zzglobaliza7e_globalzd2closurez75(void);
	extern obj_t BGl_globalzf2Ginfozf2zzglobaliza7e_ginfoza7;
	static obj_t BGl_defaultzd2typezd2zzglobaliza7e_globalzd2closurez75(void);
	extern int BGl_funzd2optionalzd2arityz00zzast_varz00(BgL_funz00_bglt);
	BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	static BgL_globalz00_bglt
		BGl_z62globalzd2closurezb0zzglobaliza7e_globalzd2closurez75(obj_t, obj_t,
		obj_t);
	extern bool_t BGl_bigloozd2typezf3z21zztype_typez00(BgL_typez00_bglt);
	static obj_t
		BGl_fillzd2glocloz12zc0zzglobaliza7e_globalzd2closurez75(BgL_globalz00_bglt,
		BgL_globalz00_bglt);
	extern obj_t BGl_globalz00zzast_varz00;
	static obj_t __cnst[9];


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_foreignzd2closureszd2envz00zzglobaliza7e_globalzd2closurez75,
		BgL_bgl_za762foreignza7d2clo1858z00,
		BGl_z62foreignzd2closureszb0zzglobaliza7e_globalzd2closurez75, 0L, BUNSPEC,
		0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_makezd2globalzd2closurezd2envzd2zzglobaliza7e_globalzd2closurez75,
		BgL_bgl_za762makeza7d2global1859z00,
		BGl_z62makezd2globalzd2closurez62zzglobaliza7e_globalzd2closurez75, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_globalzd2closurezd2envz00zzglobaliza7e_globalzd2closurez75,
		BgL_bgl_za762globalza7d2clos1860z00,
		BGl_z62globalzd2closurezb0zzglobaliza7e_globalzd2closurez75, 0L, BUNSPEC,
		2);
	      DEFINE_STRING(BGl_string1850z00zzglobaliza7e_globalzd2closurez75,
		BgL_bgl_string1850za700za7za7g1861za7, "make-global-closure", 19);
	      DEFINE_STRING(BGl_string1851z00zzglobaliza7e_globalzd2closurez75,
		BgL_bgl_string1851za700za7za7g1862za7, "Unexpected value", 16);
	      DEFINE_STRING(BGl_string1852z00zzglobaliza7e_globalzd2closurez75,
		BgL_bgl_string1852za700za7za7g1863za7, "&", 1);
	      DEFINE_STRING(BGl_string1853z00zzglobaliza7e_globalzd2closurez75,
		BgL_bgl_string1853za700za7za7g1864za7, "global-closure", 14);
	      DEFINE_STRING(BGl_string1854z00zzglobaliza7e_globalzd2closurez75,
		BgL_bgl_string1854za700za7za7g1865za7, "Can't allocate global closure", 29);
	      DEFINE_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75,
		BgL_bgl_string1855za700za7za7g1866za7, "globalize_global-closure", 24);
	      DEFINE_STRING(BGl_string1856z00zzglobaliza7e_globalzd2closurez75,
		BgL_bgl_string1856za700za7za7g1867za7,
		"never now sfun foreign & obj static env _ ", 42);

/* 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_requirezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75));
		     ADD_ROOT((void
				*) (&BGl_za2foreignzd2closuresza2zd2zzglobaliza7e_globalzd2closurez75));
#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_modulezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75(long
		BgL_checksumz00_2704, char *BgL_fromz00_2705)
	{
		{
			if (CBOOL
				(BGl_requirezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75))
				{
					BGl_requirezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zzglobaliza7e_globalzd2closurez75();
					BGl_libraryzd2moduleszd2initz00zzglobaliza7e_globalzd2closurez75();
					BGl_cnstzd2initzd2zzglobaliza7e_globalzd2closurez75();
					BGl_importedzd2moduleszd2initz00zzglobaliza7e_globalzd2closurez75();
					return BGl_toplevelzd2initzd2zzglobaliza7e_globalzd2closurez75();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* library-modules-init */
	obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_globalzd2closurez75(void)
	{
		{	/* Globalize/gloclo.scm 15 */
			BGl_modulezd2initializa7ationz75zz__objectz00(0L,
				"globalize_global-closure");
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(0L,
				"globalize_global-closure");
			BGl_modulezd2initializa7ationz75zz__readerz00(0L,
				"globalize_global-closure");
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(0L,
				"globalize_global-closure");
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(0L,
				"globalize_global-closure");
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(0L,
				"globalize_global-closure");
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(0L,
				"globalize_global-closure");
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(0L,
				"globalize_global-closure");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(0L,
				"globalize_global-closure");
			return BUNSPEC;
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zzglobaliza7e_globalzd2closurez75(void)
	{
		{	/* Globalize/gloclo.scm 15 */
			{	/* Globalize/gloclo.scm 15 */
				obj_t BgL_cportz00_2693;

				{	/* Globalize/gloclo.scm 15 */
					obj_t BgL_stringz00_2700;

					BgL_stringz00_2700 =
						BGl_string1856z00zzglobaliza7e_globalzd2closurez75;
					{	/* Globalize/gloclo.scm 15 */
						obj_t BgL_startz00_2701;

						BgL_startz00_2701 = BINT(0L);
						{	/* Globalize/gloclo.scm 15 */
							obj_t BgL_endz00_2702;

							BgL_endz00_2702 =
								BINT(STRING_LENGTH(((obj_t) BgL_stringz00_2700)));
							{	/* Globalize/gloclo.scm 15 */

								BgL_cportz00_2693 =
									BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
									(BgL_stringz00_2700, BgL_startz00_2701, BgL_endz00_2702);
				}}}}
				{
					long BgL_iz00_2694;

					BgL_iz00_2694 = 8L;
				BgL_loopz00_2695:
					if ((BgL_iz00_2694 == -1L))
						{	/* Globalize/gloclo.scm 15 */
							return BUNSPEC;
						}
					else
						{	/* Globalize/gloclo.scm 15 */
							{	/* Globalize/gloclo.scm 15 */
								obj_t BgL_arg1857z00_2696;

								{	/* Globalize/gloclo.scm 15 */

									{	/* Globalize/gloclo.scm 15 */
										obj_t BgL_locationz00_2698;

										BgL_locationz00_2698 = BBOOL(((bool_t) 0));
										{	/* Globalize/gloclo.scm 15 */

											BgL_arg1857z00_2696 =
												BGl_readz00zz__readerz00(BgL_cportz00_2693,
												BgL_locationz00_2698);
										}
									}
								}
								{	/* Globalize/gloclo.scm 15 */
									int BgL_tmpz00_2732;

									BgL_tmpz00_2732 = (int) (BgL_iz00_2694);
									CNST_TABLE_SET(BgL_tmpz00_2732, BgL_arg1857z00_2696);
							}}
							{	/* Globalize/gloclo.scm 15 */
								int BgL_auxz00_2699;

								BgL_auxz00_2699 = (int) ((BgL_iz00_2694 - 1L));
								{
									long BgL_iz00_2737;

									BgL_iz00_2737 = (long) (BgL_auxz00_2699);
									BgL_iz00_2694 = BgL_iz00_2737;
									goto BgL_loopz00_2695;
								}
							}
						}
				}
			}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zzglobaliza7e_globalzd2closurez75(void)
	{
		{	/* Globalize/gloclo.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zzglobaliza7e_globalzd2closurez75(void)
	{
		{	/* Globalize/gloclo.scm 15 */
			return (BGl_za2foreignzd2closuresza2zd2zzglobaliza7e_globalzd2closurez75 =
				BNIL, BUNSPEC);
		}

	}



/* global-closure */
	BGL_EXPORTED_DEF BgL_globalz00_bglt
		BGl_globalzd2closurezd2zzglobaliza7e_globalzd2closurez75(BgL_globalz00_bglt
		BgL_globalz00_3, obj_t BgL_locz00_4)
	{
		{	/* Globalize/gloclo.scm 41 */
			BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(BgL_globalz00_3,
				BgL_locz00_4);
			return
				BGl_makezd2globalzd2closurez00zzglobaliza7e_globalzd2closurez75
				(BgL_globalz00_3);
		}

	}



/* &global-closure */
	BgL_globalz00_bglt
		BGl_z62globalzd2closurezb0zzglobaliza7e_globalzd2closurez75(obj_t
		BgL_envz00_2687, obj_t BgL_globalz00_2688, obj_t BgL_locz00_2689)
	{
		{	/* Globalize/gloclo.scm 41 */
			return
				BGl_globalzd2closurezd2zzglobaliza7e_globalzd2closurez75(
				((BgL_globalz00_bglt) BgL_globalz00_2688), BgL_locz00_2689);
		}

	}



/* make-global-closure */
	BGL_EXPORTED_DEF BgL_globalz00_bglt
		BGl_makezd2globalzd2closurez00zzglobaliza7e_globalzd2closurez75
		(BgL_globalz00_bglt BgL_globalz00_5)
	{
		{	/* Globalize/gloclo.scm 48 */
			{	/* Globalize/gloclo.scm 49 */
				obj_t BgL_gloz00_1718;

				{
					BgL_globalzf2ginfozf2_bglt BgL_auxz00_2744;

					{
						obj_t BgL_auxz00_2745;

						{	/* Globalize/gloclo.scm 49 */
							BgL_objectz00_bglt BgL_tmpz00_2746;

							BgL_tmpz00_2746 =
								((BgL_objectz00_bglt) ((BgL_globalz00_bglt) BgL_globalz00_5));
							BgL_auxz00_2745 = BGL_OBJECT_WIDENING(BgL_tmpz00_2746);
						}
						BgL_auxz00_2744 = ((BgL_globalzf2ginfozf2_bglt) BgL_auxz00_2745);
					}
					BgL_gloz00_1718 =
						(((BgL_globalzf2ginfozf2_bglt) COBJECT(BgL_auxz00_2744))->
						BgL_globalzd2closurezd2);
				}
				{	/* Globalize/gloclo.scm 50 */
					bool_t BgL_test1870z00_2752;

					{	/* Globalize/gloclo.scm 50 */
						obj_t BgL_classz00_2083;

						BgL_classz00_2083 = BGl_globalz00zzast_varz00;
						if (BGL_OBJECTP(BgL_gloz00_1718))
							{	/* Globalize/gloclo.scm 50 */
								BgL_objectz00_bglt BgL_arg1801z00_2085;

								BgL_arg1801z00_2085 = (BgL_objectz00_bglt) (BgL_gloz00_1718);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Globalize/gloclo.scm 50 */
										long BgL_idxz00_2091;

										BgL_idxz00_2091 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2085);
										BgL_test1870z00_2752 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_2091 + 2L)) == BgL_classz00_2083);
									}
								else
									{	/* Globalize/gloclo.scm 50 */
										bool_t BgL_res1835z00_2113;

										{	/* Globalize/gloclo.scm 50 */
											obj_t BgL_oclassz00_2099;

											{	/* Globalize/gloclo.scm 50 */
												long BgL_arg1808z00_2105;

												{	/* Globalize/gloclo.scm 50 */
													long BgL_arg1809z00_2106;

													BgL_arg1809z00_2106 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2085);
													BgL_arg1808z00_2105 =
														(BgL_arg1809z00_2106 - OBJECT_TYPE);
												}
												BgL_oclassz00_2099 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_2105);
											}
											{	/* Globalize/gloclo.scm 50 */
												bool_t BgL__ortest_1115z00_2100;

												BgL__ortest_1115z00_2100 =
													(BgL_classz00_2083 == BgL_oclassz00_2099);
												if (BgL__ortest_1115z00_2100)
													{	/* Globalize/gloclo.scm 50 */
														BgL_res1835z00_2113 = BgL__ortest_1115z00_2100;
													}
												else
													{	/* Globalize/gloclo.scm 50 */
														long BgL_odepthz00_2101;

														BgL_odepthz00_2101 =
															BGL_CLASS_DEPTH(BgL_oclassz00_2099);
														if ((2L < BgL_odepthz00_2101))
															{	/* Globalize/gloclo.scm 50 */
																obj_t BgL_arg1797z00_2103;

																BgL_arg1797z00_2103 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2099,
																	2L);
																BgL_res1835z00_2113 =
																	(BgL_arg1797z00_2103 == BgL_classz00_2083);
															}
														else
															{	/* Globalize/gloclo.scm 50 */
																BgL_res1835z00_2113 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test1870z00_2752 = BgL_res1835z00_2113;
									}
							}
						else
							{	/* Globalize/gloclo.scm 50 */
								BgL_test1870z00_2752 = ((bool_t) 0);
							}
					}
					if (BgL_test1870z00_2752)
						{	/* Globalize/gloclo.scm 50 */
							return ((BgL_globalz00_bglt) BgL_gloz00_1718);
						}
					else
						{	/* Globalize/gloclo.scm 52 */
							BgL_valuez00_bglt BgL_oldzd2funzd2_1720;

							BgL_oldzd2funzd2_1720 =
								(((BgL_variablez00_bglt) COBJECT(
										((BgL_variablez00_bglt) BgL_globalz00_5)))->BgL_valuez00);
							{	/* Globalize/gloclo.scm 53 */
								bool_t BgL_test1875z00_2775;

								{	/* Globalize/gloclo.scm 53 */
									bool_t BgL_test1876z00_2776;

									{	/* Globalize/gloclo.scm 53 */
										obj_t BgL_classz00_2115;

										BgL_classz00_2115 = BGl_sfunz00zzast_varz00;
										{	/* Globalize/gloclo.scm 53 */
											BgL_objectz00_bglt BgL_arg1801z00_2117;

											{	/* Globalize/gloclo.scm 53 */
												obj_t BgL_tmpz00_2777;

												BgL_tmpz00_2777 =
													((obj_t)
													((BgL_objectz00_bglt) BgL_oldzd2funzd2_1720));
												BgL_arg1801z00_2117 =
													(BgL_objectz00_bglt) (BgL_tmpz00_2777);
											}
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Globalize/gloclo.scm 53 */
													long BgL_idxz00_2123;

													BgL_idxz00_2123 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2117);
													BgL_test1876z00_2776 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_2123 + 3L)) == BgL_classz00_2115);
												}
											else
												{	/* Globalize/gloclo.scm 53 */
													bool_t BgL_res1836z00_2145;

													{	/* Globalize/gloclo.scm 53 */
														obj_t BgL_oclassz00_2131;

														{	/* Globalize/gloclo.scm 53 */
															long BgL_arg1808z00_2137;

															{	/* Globalize/gloclo.scm 53 */
																long BgL_arg1809z00_2138;

																BgL_arg1809z00_2138 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2117);
																BgL_arg1808z00_2137 =
																	(BgL_arg1809z00_2138 - OBJECT_TYPE);
															}
															BgL_oclassz00_2131 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_2137);
														}
														{	/* Globalize/gloclo.scm 53 */
															bool_t BgL__ortest_1115z00_2132;

															BgL__ortest_1115z00_2132 =
																(BgL_classz00_2115 == BgL_oclassz00_2131);
															if (BgL__ortest_1115z00_2132)
																{	/* Globalize/gloclo.scm 53 */
																	BgL_res1836z00_2145 =
																		BgL__ortest_1115z00_2132;
																}
															else
																{	/* Globalize/gloclo.scm 53 */
																	long BgL_odepthz00_2133;

																	BgL_odepthz00_2133 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_2131);
																	if ((3L < BgL_odepthz00_2133))
																		{	/* Globalize/gloclo.scm 53 */
																			obj_t BgL_arg1797z00_2135;

																			BgL_arg1797z00_2135 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_2131, 3L);
																			BgL_res1836z00_2145 =
																				(BgL_arg1797z00_2135 ==
																				BgL_classz00_2115);
																		}
																	else
																		{	/* Globalize/gloclo.scm 53 */
																			BgL_res1836z00_2145 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test1876z00_2776 = BgL_res1836z00_2145;
												}
										}
									}
									if (BgL_test1876z00_2776)
										{	/* Globalize/gloclo.scm 54 */
											bool_t BgL_test1880z00_2797;

											{	/* Globalize/gloclo.scm 54 */
												bool_t BgL_test1881z00_2798;

												{	/* Globalize/gloclo.scm 54 */
													obj_t BgL_tmpz00_2799;

													BgL_tmpz00_2799 =
														(((BgL_sfunz00_bglt) COBJECT(
																((BgL_sfunz00_bglt) BgL_oldzd2funzd2_1720)))->
														BgL_optionalsz00);
													BgL_test1881z00_2798 = PAIRP(BgL_tmpz00_2799);
												}
												if (BgL_test1881z00_2798)
													{	/* Globalize/gloclo.scm 54 */
														BgL_test1880z00_2797 = ((bool_t) 1);
													}
												else
													{	/* Globalize/gloclo.scm 55 */
														obj_t BgL_tmpz00_2803;

														BgL_tmpz00_2803 =
															(((BgL_sfunz00_bglt) COBJECT(
																	((BgL_sfunz00_bglt) BgL_oldzd2funzd2_1720)))->
															BgL_keysz00);
														BgL_test1880z00_2797 = PAIRP(BgL_tmpz00_2803);
													}
											}
											if (BgL_test1880z00_2797)
												{	/* Globalize/gloclo.scm 56 */
													obj_t BgL_arg1343z00_1734;

													BgL_arg1343z00_1734 =
														(((BgL_globalz00_bglt) COBJECT(BgL_globalz00_5))->
														BgL_modulez00);
													BgL_test1875z00_2775 =
														(BgL_arg1343z00_1734 ==
														BGl_za2moduleza2z00zzmodule_modulez00);
												}
											else
												{	/* Globalize/gloclo.scm 54 */
													BgL_test1875z00_2775 = ((bool_t) 0);
												}
										}
									else
										{	/* Globalize/gloclo.scm 53 */
											BgL_test1875z00_2775 = ((bool_t) 0);
										}
								}
								if (BgL_test1875z00_2775)
									{	/* Globalize/gloclo.scm 53 */
										return
											((BgL_globalz00_bglt)
											BGl_makezd2optzf2keyzd2globalzd2closurez20zzglobaliza7e_globalzd2closurez75
											(BgL_globalz00_5));
									}
								else
									{	/* Globalize/gloclo.scm 53 */
										return
											((BgL_globalz00_bglt)
											BGl_makezd2nooptzd2globalzd2closurezd2zzglobaliza7e_globalzd2closurez75
											(BgL_globalz00_5));
									}
							}
						}
				}
			}
		}

	}



/* &make-global-closure */
	BgL_globalz00_bglt
		BGl_z62makezd2globalzd2closurez62zzglobaliza7e_globalzd2closurez75(obj_t
		BgL_envz00_2690, obj_t BgL_globalz00_2691)
	{
		{	/* Globalize/gloclo.scm 48 */
			return
				BGl_makezd2globalzd2closurez00zzglobaliza7e_globalzd2closurez75(
				((BgL_globalz00_bglt) BgL_globalz00_2691));
		}

	}



/* make-opt/key-global-closure */
	obj_t
		BGl_makezd2optzf2keyzd2globalzd2closurez20zzglobaliza7e_globalzd2closurez75
		(BgL_globalz00_bglt BgL_globalz00_6)
	{
		{	/* Globalize/gloclo.scm 63 */
			{	/* Globalize/gloclo.scm 64 */
				obj_t BgL_glocloz00_1738;

				{	/* Globalize/gloclo.scm 64 */
					obj_t BgL_arg1348z00_1740;
					obj_t BgL_arg1352z00_1741;

					{	/* Globalize/gloclo.scm 64 */
						obj_t BgL_arg1354z00_1743;

						{	/* Globalize/gloclo.scm 64 */
							obj_t BgL_arg1361z00_1744;
							obj_t BgL_arg1363z00_1745;

							{	/* Globalize/gloclo.scm 64 */
								obj_t BgL_symbolz00_2149;

								BgL_symbolz00_2149 = CNST_TABLE_REF(0L);
								{	/* Globalize/gloclo.scm 64 */
									obj_t BgL_arg1454z00_2150;

									BgL_arg1454z00_2150 = SYMBOL_TO_STRING(BgL_symbolz00_2149);
									BgL_arg1361z00_1744 =
										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
										(BgL_arg1454z00_2150);
								}
							}
							{	/* Globalize/gloclo.scm 64 */
								obj_t BgL_arg1366z00_1746;

								BgL_arg1366z00_1746 =
									(((BgL_variablez00_bglt) COBJECT(
											((BgL_variablez00_bglt) BgL_globalz00_6)))->BgL_idz00);
								{	/* Globalize/gloclo.scm 64 */
									obj_t BgL_arg1454z00_2153;

									BgL_arg1454z00_2153 = SYMBOL_TO_STRING(BgL_arg1366z00_1746);
									BgL_arg1363z00_1745 =
										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
										(BgL_arg1454z00_2153);
								}
							}
							BgL_arg1354z00_1743 =
								string_append(BgL_arg1361z00_1744, BgL_arg1363z00_1745);
						}
						BgL_arg1348z00_1740 = bstring_to_symbol(BgL_arg1354z00_1743);
					}
					BgL_arg1352z00_1741 =
						(((BgL_globalz00_bglt) COBJECT(BgL_globalz00_6))->BgL_modulez00);
					{	/* Globalize/gloclo.scm 64 */
						obj_t BgL_list1353z00_1742;

						BgL_list1353z00_1742 = MAKE_YOUNG_PAIR(BgL_arg1352z00_1741, BNIL);
						BgL_glocloz00_1738 =
							BGl_findzd2globalzd2zzast_envz00(BgL_arg1348z00_1740,
							BgL_list1353z00_1742);
					}
				}
				BGl_fillzd2glocloz12zc0zzglobaliza7e_globalzd2closurez75
					(BgL_globalz00_6, ((BgL_globalz00_bglt) BgL_glocloz00_1738));
				{	/* Globalize/gloclo.scm 67 */
					BgL_valuez00_bglt BgL_arg1347z00_1739;

					BgL_arg1347z00_1739 =
						(((BgL_variablez00_bglt) COBJECT(
								((BgL_variablez00_bglt)
									((BgL_globalz00_bglt) BgL_glocloz00_1738))))->BgL_valuez00);
					((((BgL_sfunz00_bglt) COBJECT(
									((BgL_sfunz00_bglt) BgL_arg1347z00_1739)))->
							BgL_thezd2closurezd2globalz00) =
						((obj_t) ((obj_t) BgL_globalz00_6)), BUNSPEC);
				}
				return BgL_glocloz00_1738;
			}
		}

	}



/* default-type */
	obj_t BGl_defaultzd2typezd2zzglobaliza7e_globalzd2closurez75(void)
	{
		{	/* Globalize/gloclo.scm 73 */
			{	/* Globalize/gloclo.scm 74 */
				bool_t BgL_test1882z00_2835;

				if (CBOOL
					(BGl_za2optimzd2cfazd2unboxzd2closurezd2argsza2z00zzengine_paramz00))
					{	/* Globalize/gloclo.scm 74 */
						BgL_test1882z00_2835 =
							((long) CINT(BGl_za2optimza2z00zzengine_paramz00) >= 2L);
					}
				else
					{	/* Globalize/gloclo.scm 74 */
						BgL_test1882z00_2835 = ((bool_t) 0);
					}
				if (BgL_test1882z00_2835)
					{	/* Globalize/gloclo.scm 74 */
						return BGl_za2_za2z00zztype_cachez00;
					}
				else
					{	/* Globalize/gloclo.scm 74 */
						return BGl_za2objza2z00zztype_cachez00;
					}
			}
		}

	}



/* make-noopt-global-closure */
	obj_t
		BGl_makezd2nooptzd2globalzd2closurezd2zzglobaliza7e_globalzd2closurez75
		(BgL_globalz00_bglt BgL_globalz00_7)
	{
		{	/* Globalize/gloclo.scm 79 */
			{	/* Globalize/gloclo.scm 80 */
				BgL_valuez00_bglt BgL_oldzd2funzd2_1748;

				BgL_oldzd2funzd2_1748 =
					(((BgL_variablez00_bglt) COBJECT(
							((BgL_variablez00_bglt) BgL_globalz00_7)))->BgL_valuez00);
				{	/* Globalize/gloclo.scm 80 */
					BgL_localz00_bglt BgL_envz00_1749;

					{	/* Globalize/gloclo.scm 81 */
						BgL_localz00_bglt BgL_varz00_1808;

						BgL_varz00_1808 =
							BGl_makezd2localzd2svarz00zzast_localz00(CNST_TABLE_REF(1L),
							((BgL_typez00_bglt) BGl_za2procedureza2z00zztype_cachez00));
						{	/* Globalize/gloclo.scm 82 */
							BgL_localzf2ginfozf2_bglt BgL_wide1114z00_1811;

							BgL_wide1114z00_1811 =
								((BgL_localzf2ginfozf2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_localzf2ginfozf2_bgl))));
							{	/* Globalize/gloclo.scm 82 */
								obj_t BgL_auxz00_2849;
								BgL_objectz00_bglt BgL_tmpz00_2846;

								BgL_auxz00_2849 = ((obj_t) BgL_wide1114z00_1811);
								BgL_tmpz00_2846 =
									((BgL_objectz00_bglt) ((BgL_localz00_bglt) BgL_varz00_1808));
								BGL_OBJECT_WIDENING_SET(BgL_tmpz00_2846, BgL_auxz00_2849);
							}
							((BgL_objectz00_bglt) ((BgL_localz00_bglt) BgL_varz00_1808));
							{	/* Globalize/gloclo.scm 82 */
								long BgL_arg1519z00_1812;

								BgL_arg1519z00_1812 =
									BGL_CLASS_NUM(BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt)
										((BgL_localz00_bglt) BgL_varz00_1808)),
									BgL_arg1519z00_1812);
							}
							((BgL_localz00_bglt) ((BgL_localz00_bglt) BgL_varz00_1808));
						}
						{
							BgL_localzf2ginfozf2_bglt BgL_auxz00_2860;

							{
								obj_t BgL_auxz00_2861;

								{	/* Globalize/gloclo.scm 82 */
									BgL_objectz00_bglt BgL_tmpz00_2862;

									BgL_tmpz00_2862 =
										((BgL_objectz00_bglt)
										((BgL_localz00_bglt) BgL_varz00_1808));
									BgL_auxz00_2861 = BGL_OBJECT_WIDENING(BgL_tmpz00_2862);
								}
								BgL_auxz00_2860 = ((BgL_localzf2ginfozf2_bglt) BgL_auxz00_2861);
							}
							((((BgL_localzf2ginfozf2_bglt) COBJECT(BgL_auxz00_2860))->
									BgL_escapezf3zf3) = ((bool_t) ((bool_t) 0)), BUNSPEC);
						}
						{
							BgL_localzf2ginfozf2_bglt BgL_auxz00_2868;

							{
								obj_t BgL_auxz00_2869;

								{	/* Globalize/gloclo.scm 82 */
									BgL_objectz00_bglt BgL_tmpz00_2870;

									BgL_tmpz00_2870 =
										((BgL_objectz00_bglt)
										((BgL_localz00_bglt) BgL_varz00_1808));
									BgL_auxz00_2869 = BGL_OBJECT_WIDENING(BgL_tmpz00_2870);
								}
								BgL_auxz00_2868 = ((BgL_localzf2ginfozf2_bglt) BgL_auxz00_2869);
							}
							((((BgL_localzf2ginfozf2_bglt) COBJECT(BgL_auxz00_2868))->
									BgL_globaliza7edzf3z54) = ((bool_t) ((bool_t) 0)), BUNSPEC);
						}
						((BgL_localz00_bglt) BgL_varz00_1808);
						BgL_envz00_1749 = BgL_varz00_1808;
					}
					{	/* Globalize/gloclo.scm 81 */
						obj_t BgL_newzd2argszd2_1750;

						{	/* Globalize/gloclo.scm 84 */
							obj_t BgL_l1279z00_1776;

							{	/* Globalize/gloclo.scm 95 */
								bool_t BgL_test1884z00_2877;

								{	/* Globalize/gloclo.scm 95 */
									obj_t BgL_classz00_2166;

									BgL_classz00_2166 = BGl_sfunz00zzast_varz00;
									{	/* Globalize/gloclo.scm 95 */
										BgL_objectz00_bglt BgL_arg1801z00_2168;

										{	/* Globalize/gloclo.scm 95 */
											obj_t BgL_tmpz00_2878;

											BgL_tmpz00_2878 =
												((obj_t) ((BgL_objectz00_bglt) BgL_oldzd2funzd2_1748));
											BgL_arg1801z00_2168 =
												(BgL_objectz00_bglt) (BgL_tmpz00_2878);
										}
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Globalize/gloclo.scm 95 */
												long BgL_idxz00_2174;

												BgL_idxz00_2174 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2168);
												BgL_test1884z00_2877 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_2174 + 3L)) == BgL_classz00_2166);
											}
										else
											{	/* Globalize/gloclo.scm 95 */
												bool_t BgL_res1837z00_2196;

												{	/* Globalize/gloclo.scm 95 */
													obj_t BgL_oclassz00_2182;

													{	/* Globalize/gloclo.scm 95 */
														long BgL_arg1808z00_2188;

														{	/* Globalize/gloclo.scm 95 */
															long BgL_arg1809z00_2189;

															BgL_arg1809z00_2189 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2168);
															BgL_arg1808z00_2188 =
																(BgL_arg1809z00_2189 - OBJECT_TYPE);
														}
														BgL_oclassz00_2182 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_2188);
													}
													{	/* Globalize/gloclo.scm 95 */
														bool_t BgL__ortest_1115z00_2183;

														BgL__ortest_1115z00_2183 =
															(BgL_classz00_2166 == BgL_oclassz00_2182);
														if (BgL__ortest_1115z00_2183)
															{	/* Globalize/gloclo.scm 95 */
																BgL_res1837z00_2196 = BgL__ortest_1115z00_2183;
															}
														else
															{	/* Globalize/gloclo.scm 95 */
																long BgL_odepthz00_2184;

																BgL_odepthz00_2184 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_2182);
																if ((3L < BgL_odepthz00_2184))
																	{	/* Globalize/gloclo.scm 95 */
																		obj_t BgL_arg1797z00_2186;

																		BgL_arg1797z00_2186 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_2182, 3L);
																		BgL_res1837z00_2196 =
																			(BgL_arg1797z00_2186 ==
																			BgL_classz00_2166);
																	}
																else
																	{	/* Globalize/gloclo.scm 95 */
																		BgL_res1837z00_2196 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test1884z00_2877 = BgL_res1837z00_2196;
											}
									}
								}
								if (BgL_test1884z00_2877)
									{	/* Globalize/gloclo.scm 95 */
										BgL_l1279z00_1776 =
											(((BgL_sfunz00_bglt) COBJECT(
													((BgL_sfunz00_bglt) BgL_oldzd2funzd2_1748)))->
											BgL_argsz00);
									}
								else
									{	/* Globalize/gloclo.scm 97 */
										bool_t BgL_test1888z00_2900;

										{	/* Globalize/gloclo.scm 97 */
											obj_t BgL_classz00_2198;

											BgL_classz00_2198 = BGl_cfunz00zzast_varz00;
											{	/* Globalize/gloclo.scm 97 */
												BgL_objectz00_bglt BgL_arg1801z00_2200;

												{	/* Globalize/gloclo.scm 97 */
													obj_t BgL_tmpz00_2901;

													BgL_tmpz00_2901 =
														((obj_t)
														((BgL_objectz00_bglt) BgL_oldzd2funzd2_1748));
													BgL_arg1801z00_2200 =
														(BgL_objectz00_bglt) (BgL_tmpz00_2901);
												}
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* Globalize/gloclo.scm 97 */
														long BgL_idxz00_2206;

														BgL_idxz00_2206 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2200);
														BgL_test1888z00_2900 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_2206 + 3L)) == BgL_classz00_2198);
													}
												else
													{	/* Globalize/gloclo.scm 97 */
														bool_t BgL_res1838z00_2228;

														{	/* Globalize/gloclo.scm 97 */
															obj_t BgL_oclassz00_2214;

															{	/* Globalize/gloclo.scm 97 */
																long BgL_arg1808z00_2220;

																{	/* Globalize/gloclo.scm 97 */
																	long BgL_arg1809z00_2221;

																	BgL_arg1809z00_2221 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2200);
																	BgL_arg1808z00_2220 =
																		(BgL_arg1809z00_2221 - OBJECT_TYPE);
																}
																BgL_oclassz00_2214 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_2220);
															}
															{	/* Globalize/gloclo.scm 97 */
																bool_t BgL__ortest_1115z00_2215;

																BgL__ortest_1115z00_2215 =
																	(BgL_classz00_2198 == BgL_oclassz00_2214);
																if (BgL__ortest_1115z00_2215)
																	{	/* Globalize/gloclo.scm 97 */
																		BgL_res1838z00_2228 =
																			BgL__ortest_1115z00_2215;
																	}
																else
																	{	/* Globalize/gloclo.scm 97 */
																		long BgL_odepthz00_2216;

																		BgL_odepthz00_2216 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_2214);
																		if ((3L < BgL_odepthz00_2216))
																			{	/* Globalize/gloclo.scm 97 */
																				obj_t BgL_arg1797z00_2218;

																				BgL_arg1797z00_2218 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_2214, 3L);
																				BgL_res1838z00_2228 =
																					(BgL_arg1797z00_2218 ==
																					BgL_classz00_2198);
																			}
																		else
																			{	/* Globalize/gloclo.scm 97 */
																				BgL_res1838z00_2228 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test1888z00_2900 = BgL_res1838z00_2228;
													}
											}
										}
										if (BgL_test1888z00_2900)
											{	/* Globalize/gloclo.scm 97 */
												BgL_l1279z00_1776 =
													(((BgL_cfunz00_bglt) COBJECT(
															((BgL_cfunz00_bglt) BgL_oldzd2funzd2_1748)))->
													BgL_argszd2typezd2);
											}
										else
											{	/* Globalize/gloclo.scm 97 */
												BgL_l1279z00_1776 =
													BGl_internalzd2errorzd2zztools_errorz00
													(BGl_string1850z00zzglobaliza7e_globalzd2closurez75,
													BGl_string1851z00zzglobaliza7e_globalzd2closurez75,
													((obj_t) BgL_oldzd2funzd2_1748));
											}
									}
							}
							if (NULLP(BgL_l1279z00_1776))
								{	/* Globalize/gloclo.scm 84 */
									BgL_newzd2argszd2_1750 = BNIL;
								}
							else
								{	/* Globalize/gloclo.scm 84 */
									obj_t BgL_head1281z00_1778;

									BgL_head1281z00_1778 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{
										obj_t BgL_l1279z00_1780;
										obj_t BgL_tail1282z00_1781;

										BgL_l1279z00_1780 = BgL_l1279z00_1776;
										BgL_tail1282z00_1781 = BgL_head1281z00_1778;
									BgL_zc3z04anonymousza31438ze3z87_1782:
										if (NULLP(BgL_l1279z00_1780))
											{	/* Globalize/gloclo.scm 84 */
												BgL_newzd2argszd2_1750 = CDR(BgL_head1281z00_1778);
											}
										else
											{	/* Globalize/gloclo.scm 84 */
												obj_t BgL_newtail1283z00_1784;

												{	/* Globalize/gloclo.scm 84 */
													BgL_localz00_bglt BgL_arg1451z00_1786;

													{	/* Globalize/gloclo.scm 84 */
														obj_t BgL_oldz00_1787;

														BgL_oldz00_1787 = CAR(((obj_t) BgL_l1279z00_1780));
														{	/* Globalize/gloclo.scm 85 */
															BgL_localz00_bglt BgL_newz00_1788;

															{	/* Globalize/gloclo.scm 86 */
																obj_t BgL_arg1492z00_1801;
																obj_t BgL_arg1494z00_1802;

																{	/* Globalize/gloclo.scm 86 */
																	bool_t BgL_test1894z00_2933;

																	{	/* Globalize/gloclo.scm 86 */
																		obj_t BgL_classz00_2232;

																		BgL_classz00_2232 =
																			BGl_localz00zzast_varz00;
																		if (BGL_OBJECTP(BgL_oldz00_1787))
																			{	/* Globalize/gloclo.scm 86 */
																				BgL_objectz00_bglt BgL_arg1801z00_2234;

																				BgL_arg1801z00_2234 =
																					(BgL_objectz00_bglt)
																					(BgL_oldz00_1787);
																				if (BGL_CONDEXPAND_ISA_ARCH64())
																					{	/* Globalize/gloclo.scm 86 */
																						long BgL_idxz00_2240;

																						BgL_idxz00_2240 =
																							BGL_OBJECT_INHERITANCE_NUM
																							(BgL_arg1801z00_2234);
																						BgL_test1894z00_2933 =
																							(VECTOR_REF
																							(BGl_za2inheritancesza2z00zz__objectz00,
																								(BgL_idxz00_2240 + 2L)) ==
																							BgL_classz00_2232);
																					}
																				else
																					{	/* Globalize/gloclo.scm 86 */
																						bool_t BgL_res1839z00_2262;

																						{	/* Globalize/gloclo.scm 86 */
																							obj_t BgL_oclassz00_2248;

																							{	/* Globalize/gloclo.scm 86 */
																								long BgL_arg1808z00_2254;

																								{	/* Globalize/gloclo.scm 86 */
																									long BgL_arg1809z00_2255;

																									BgL_arg1809z00_2255 =
																										BGL_OBJECT_CLASS_NUM
																										(BgL_arg1801z00_2234);
																									BgL_arg1808z00_2254 =
																										(BgL_arg1809z00_2255 -
																										OBJECT_TYPE);
																								}
																								BgL_oclassz00_2248 =
																									VECTOR_REF
																									(BGl_za2classesza2z00zz__objectz00,
																									BgL_arg1808z00_2254);
																							}
																							{	/* Globalize/gloclo.scm 86 */
																								bool_t BgL__ortest_1115z00_2249;

																								BgL__ortest_1115z00_2249 =
																									(BgL_classz00_2232 ==
																									BgL_oclassz00_2248);
																								if (BgL__ortest_1115z00_2249)
																									{	/* Globalize/gloclo.scm 86 */
																										BgL_res1839z00_2262 =
																											BgL__ortest_1115z00_2249;
																									}
																								else
																									{	/* Globalize/gloclo.scm 86 */
																										long BgL_odepthz00_2250;

																										BgL_odepthz00_2250 =
																											BGL_CLASS_DEPTH
																											(BgL_oclassz00_2248);
																										if ((2L <
																												BgL_odepthz00_2250))
																											{	/* Globalize/gloclo.scm 86 */
																												obj_t
																													BgL_arg1797z00_2252;
																												BgL_arg1797z00_2252 =
																													BGL_CLASS_ANCESTORS_REF
																													(BgL_oclassz00_2248,
																													2L);
																												BgL_res1839z00_2262 =
																													(BgL_arg1797z00_2252
																													== BgL_classz00_2232);
																											}
																										else
																											{	/* Globalize/gloclo.scm 86 */
																												BgL_res1839z00_2262 =
																													((bool_t) 0);
																											}
																									}
																							}
																						}
																						BgL_test1894z00_2933 =
																							BgL_res1839z00_2262;
																					}
																			}
																		else
																			{	/* Globalize/gloclo.scm 86 */
																				BgL_test1894z00_2933 = ((bool_t) 0);
																			}
																	}
																	if (BgL_test1894z00_2933)
																		{	/* Globalize/gloclo.scm 86 */
																			BgL_arg1492z00_1801 =
																				(((BgL_variablez00_bglt) COBJECT(
																						((BgL_variablez00_bglt)
																							((BgL_localz00_bglt)
																								BgL_oldz00_1787))))->BgL_idz00);
																		}
																	else
																		{	/* Globalize/gloclo.scm 88 */

																			{	/* Globalize/gloclo.scm 88 */

																				BgL_arg1492z00_1801 =
																					BGl_gensymz00zz__r4_symbols_6_4z00
																					(BFALSE);
																			}
																		}
																}
																BgL_arg1494z00_1802 =
																	BGl_defaultzd2typezd2zzglobaliza7e_globalzd2closurez75
																	();
																BgL_newz00_1788 =
																	BGl_makezd2localzd2svarz00zzast_localz00
																	(BgL_arg1492z00_1801,
																	((BgL_typez00_bglt) BgL_arg1494z00_1802));
															}
															{	/* Globalize/gloclo.scm 90 */
																bool_t BgL_test1899z00_2960;

																{	/* Globalize/gloclo.scm 90 */
																	obj_t BgL_classz00_2264;

																	BgL_classz00_2264 = BGl_localz00zzast_varz00;
																	if (BGL_OBJECTP(BgL_oldz00_1787))
																		{	/* Globalize/gloclo.scm 90 */
																			BgL_objectz00_bglt BgL_arg1801z00_2266;

																			BgL_arg1801z00_2266 =
																				(BgL_objectz00_bglt) (BgL_oldz00_1787);
																			if (BGL_CONDEXPAND_ISA_ARCH64())
																				{	/* Globalize/gloclo.scm 90 */
																					long BgL_idxz00_2272;

																					BgL_idxz00_2272 =
																						BGL_OBJECT_INHERITANCE_NUM
																						(BgL_arg1801z00_2266);
																					BgL_test1899z00_2960 =
																						(VECTOR_REF
																						(BGl_za2inheritancesza2z00zz__objectz00,
																							(BgL_idxz00_2272 + 2L)) ==
																						BgL_classz00_2264);
																				}
																			else
																				{	/* Globalize/gloclo.scm 90 */
																					bool_t BgL_res1840z00_2294;

																					{	/* Globalize/gloclo.scm 90 */
																						obj_t BgL_oclassz00_2280;

																						{	/* Globalize/gloclo.scm 90 */
																							long BgL_arg1808z00_2286;

																							{	/* Globalize/gloclo.scm 90 */
																								long BgL_arg1809z00_2287;

																								BgL_arg1809z00_2287 =
																									BGL_OBJECT_CLASS_NUM
																									(BgL_arg1801z00_2266);
																								BgL_arg1808z00_2286 =
																									(BgL_arg1809z00_2287 -
																									OBJECT_TYPE);
																							}
																							BgL_oclassz00_2280 =
																								VECTOR_REF
																								(BGl_za2classesza2z00zz__objectz00,
																								BgL_arg1808z00_2286);
																						}
																						{	/* Globalize/gloclo.scm 90 */
																							bool_t BgL__ortest_1115z00_2281;

																							BgL__ortest_1115z00_2281 =
																								(BgL_classz00_2264 ==
																								BgL_oclassz00_2280);
																							if (BgL__ortest_1115z00_2281)
																								{	/* Globalize/gloclo.scm 90 */
																									BgL_res1840z00_2294 =
																										BgL__ortest_1115z00_2281;
																								}
																							else
																								{	/* Globalize/gloclo.scm 90 */
																									long BgL_odepthz00_2282;

																									BgL_odepthz00_2282 =
																										BGL_CLASS_DEPTH
																										(BgL_oclassz00_2280);
																									if ((2L < BgL_odepthz00_2282))
																										{	/* Globalize/gloclo.scm 90 */
																											obj_t BgL_arg1797z00_2284;

																											BgL_arg1797z00_2284 =
																												BGL_CLASS_ANCESTORS_REF
																												(BgL_oclassz00_2280,
																												2L);
																											BgL_res1840z00_2294 =
																												(BgL_arg1797z00_2284 ==
																												BgL_classz00_2264);
																										}
																									else
																										{	/* Globalize/gloclo.scm 90 */
																											BgL_res1840z00_2294 =
																												((bool_t) 0);
																										}
																								}
																						}
																					}
																					BgL_test1899z00_2960 =
																						BgL_res1840z00_2294;
																				}
																		}
																	else
																		{	/* Globalize/gloclo.scm 90 */
																			BgL_test1899z00_2960 = ((bool_t) 0);
																		}
																}
																if (BgL_test1899z00_2960)
																	{	/* Globalize/gloclo.scm 91 */
																		bool_t BgL_arg1453z00_1790;

																		BgL_arg1453z00_1790 =
																			(((BgL_variablez00_bglt) COBJECT(
																					((BgL_variablez00_bglt)
																						((BgL_localz00_bglt)
																							BgL_oldz00_1787))))->
																			BgL_userzf3zf3);
																		((((BgL_variablez00_bglt)
																					COBJECT(((BgL_variablez00_bglt)
																							BgL_newz00_1788)))->
																				BgL_userzf3zf3) =
																			((bool_t) BgL_arg1453z00_1790), BUNSPEC);
																	}
																else
																	{	/* Globalize/gloclo.scm 90 */
																		BFALSE;
																	}
															}
															{	/* Globalize/gloclo.scm 92 */
																BgL_svarz00_bglt BgL_tmp1117z00_1791;

																BgL_tmp1117z00_1791 =
																	((BgL_svarz00_bglt)
																	(((BgL_variablez00_bglt) COBJECT(
																				((BgL_variablez00_bglt)
																					BgL_newz00_1788)))->BgL_valuez00));
																{	/* Globalize/gloclo.scm 92 */
																	BgL_svarzf2ginfozf2_bglt BgL_wide1119z00_1793;

																	BgL_wide1119z00_1793 =
																		((BgL_svarzf2ginfozf2_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_svarzf2ginfozf2_bgl))));
																	{	/* Globalize/gloclo.scm 92 */
																		obj_t BgL_auxz00_2992;
																		BgL_objectz00_bglt BgL_tmpz00_2989;

																		BgL_auxz00_2992 =
																			((obj_t) BgL_wide1119z00_1793);
																		BgL_tmpz00_2989 =
																			((BgL_objectz00_bglt)
																			((BgL_svarz00_bglt) BgL_tmp1117z00_1791));
																		BGL_OBJECT_WIDENING_SET(BgL_tmpz00_2989,
																			BgL_auxz00_2992);
																	}
																	((BgL_objectz00_bglt)
																		((BgL_svarz00_bglt) BgL_tmp1117z00_1791));
																	{	/* Globalize/gloclo.scm 92 */
																		long BgL_arg1479z00_1794;

																		BgL_arg1479z00_1794 =
																			BGL_CLASS_NUM
																			(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt) ((BgL_svarz00_bglt)
																					BgL_tmp1117z00_1791)),
																			BgL_arg1479z00_1794);
																	}
																	((BgL_svarz00_bglt)
																		((BgL_svarz00_bglt) BgL_tmp1117z00_1791));
																}
																{
																	BgL_svarzf2ginfozf2_bglt BgL_auxz00_3003;

																	{
																		obj_t BgL_auxz00_3004;

																		{	/* Globalize/gloclo.scm 92 */
																			BgL_objectz00_bglt BgL_tmpz00_3005;

																			BgL_tmpz00_3005 =
																				((BgL_objectz00_bglt)
																				((BgL_svarz00_bglt)
																					BgL_tmp1117z00_1791));
																			BgL_auxz00_3004 =
																				BGL_OBJECT_WIDENING(BgL_tmpz00_3005);
																		}
																		BgL_auxz00_3003 =
																			((BgL_svarzf2ginfozf2_bglt)
																			BgL_auxz00_3004);
																	}
																	((((BgL_svarzf2ginfozf2_bglt)
																				COBJECT(BgL_auxz00_3003))->
																			BgL_kapturedzf3zf3) =
																		((bool_t) ((bool_t) 0)), BUNSPEC);
																}
																{
																	BgL_svarzf2ginfozf2_bglt BgL_auxz00_3011;

																	{
																		obj_t BgL_auxz00_3012;

																		{	/* Globalize/gloclo.scm 92 */
																			BgL_objectz00_bglt BgL_tmpz00_3013;

																			BgL_tmpz00_3013 =
																				((BgL_objectz00_bglt)
																				((BgL_svarz00_bglt)
																					BgL_tmp1117z00_1791));
																			BgL_auxz00_3012 =
																				BGL_OBJECT_WIDENING(BgL_tmpz00_3013);
																		}
																		BgL_auxz00_3011 =
																			((BgL_svarzf2ginfozf2_bglt)
																			BgL_auxz00_3012);
																	}
																	((((BgL_svarzf2ginfozf2_bglt)
																				COBJECT(BgL_auxz00_3011))->
																			BgL_freezd2markzd2) =
																		((long) -10L), BUNSPEC);
																}
																{
																	BgL_svarzf2ginfozf2_bglt BgL_auxz00_3019;

																	{
																		obj_t BgL_auxz00_3020;

																		{	/* Globalize/gloclo.scm 92 */
																			BgL_objectz00_bglt BgL_tmpz00_3021;

																			BgL_tmpz00_3021 =
																				((BgL_objectz00_bglt)
																				((BgL_svarz00_bglt)
																					BgL_tmp1117z00_1791));
																			BgL_auxz00_3020 =
																				BGL_OBJECT_WIDENING(BgL_tmpz00_3021);
																		}
																		BgL_auxz00_3019 =
																			((BgL_svarzf2ginfozf2_bglt)
																			BgL_auxz00_3020);
																	}
																	((((BgL_svarzf2ginfozf2_bglt)
																				COBJECT(BgL_auxz00_3019))->
																			BgL_markz00) = ((long) -10L), BUNSPEC);
																}
																{
																	BgL_svarzf2ginfozf2_bglt BgL_auxz00_3027;

																	{
																		obj_t BgL_auxz00_3028;

																		{	/* Globalize/gloclo.scm 92 */
																			BgL_objectz00_bglt BgL_tmpz00_3029;

																			BgL_tmpz00_3029 =
																				((BgL_objectz00_bglt)
																				((BgL_svarz00_bglt)
																					BgL_tmp1117z00_1791));
																			BgL_auxz00_3028 =
																				BGL_OBJECT_WIDENING(BgL_tmpz00_3029);
																		}
																		BgL_auxz00_3027 =
																			((BgL_svarzf2ginfozf2_bglt)
																			BgL_auxz00_3028);
																	}
																	((((BgL_svarzf2ginfozf2_bglt)
																				COBJECT(BgL_auxz00_3027))->
																			BgL_celledzf3zf3) =
																		((bool_t) ((bool_t) 0)), BUNSPEC);
																}
																{
																	BgL_svarzf2ginfozf2_bglt BgL_auxz00_3035;

																	{
																		obj_t BgL_auxz00_3036;

																		{	/* Globalize/gloclo.scm 92 */
																			BgL_objectz00_bglt BgL_tmpz00_3037;

																			BgL_tmpz00_3037 =
																				((BgL_objectz00_bglt)
																				((BgL_svarz00_bglt)
																					BgL_tmp1117z00_1791));
																			BgL_auxz00_3036 =
																				BGL_OBJECT_WIDENING(BgL_tmpz00_3037);
																		}
																		BgL_auxz00_3035 =
																			((BgL_svarzf2ginfozf2_bglt)
																			BgL_auxz00_3036);
																	}
																	((((BgL_svarzf2ginfozf2_bglt)
																				COBJECT(BgL_auxz00_3035))->
																			BgL_stackablez00) =
																		((bool_t) ((bool_t) 1)), BUNSPEC);
																}
																((BgL_svarz00_bglt) BgL_tmp1117z00_1791);
															}
															{	/* Globalize/gloclo.scm 93 */
																BgL_localzf2ginfozf2_bglt BgL_wide1123z00_1798;

																BgL_wide1123z00_1798 =
																	((BgL_localzf2ginfozf2_bglt)
																	BOBJECT(GC_MALLOC(sizeof(struct
																				BgL_localzf2ginfozf2_bgl))));
																{	/* Globalize/gloclo.scm 93 */
																	obj_t BgL_auxz00_3048;
																	BgL_objectz00_bglt BgL_tmpz00_3045;

																	BgL_auxz00_3048 =
																		((obj_t) BgL_wide1123z00_1798);
																	BgL_tmpz00_3045 =
																		((BgL_objectz00_bglt)
																		((BgL_localz00_bglt) BgL_newz00_1788));
																	BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3045,
																		BgL_auxz00_3048);
																}
																((BgL_objectz00_bglt)
																	((BgL_localz00_bglt) BgL_newz00_1788));
																{	/* Globalize/gloclo.scm 93 */
																	long BgL_arg1491z00_1799;

																	BgL_arg1491z00_1799 =
																		BGL_CLASS_NUM
																		(BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7);
																	BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																			((BgL_localz00_bglt) BgL_newz00_1788)),
																		BgL_arg1491z00_1799);
																}
																((BgL_localz00_bglt)
																	((BgL_localz00_bglt) BgL_newz00_1788));
															}
															{
																BgL_localzf2ginfozf2_bglt BgL_auxz00_3059;

																{
																	obj_t BgL_auxz00_3060;

																	{	/* Globalize/gloclo.scm 93 */
																		BgL_objectz00_bglt BgL_tmpz00_3061;

																		BgL_tmpz00_3061 =
																			((BgL_objectz00_bglt)
																			((BgL_localz00_bglt) BgL_newz00_1788));
																		BgL_auxz00_3060 =
																			BGL_OBJECT_WIDENING(BgL_tmpz00_3061);
																	}
																	BgL_auxz00_3059 =
																		((BgL_localzf2ginfozf2_bglt)
																		BgL_auxz00_3060);
																}
																((((BgL_localzf2ginfozf2_bglt)
																			COBJECT(BgL_auxz00_3059))->
																		BgL_escapezf3zf3) =
																	((bool_t) ((bool_t) 0)), BUNSPEC);
															}
															{
																BgL_localzf2ginfozf2_bglt BgL_auxz00_3067;

																{
																	obj_t BgL_auxz00_3068;

																	{	/* Globalize/gloclo.scm 93 */
																		BgL_objectz00_bglt BgL_tmpz00_3069;

																		BgL_tmpz00_3069 =
																			((BgL_objectz00_bglt)
																			((BgL_localz00_bglt) BgL_newz00_1788));
																		BgL_auxz00_3068 =
																			BGL_OBJECT_WIDENING(BgL_tmpz00_3069);
																	}
																	BgL_auxz00_3067 =
																		((BgL_localzf2ginfozf2_bglt)
																		BgL_auxz00_3068);
																}
																((((BgL_localzf2ginfozf2_bglt)
																			COBJECT(BgL_auxz00_3067))->
																		BgL_globaliza7edzf3z54) =
																	((bool_t) ((bool_t) 0)), BUNSPEC);
															}
															((BgL_localz00_bglt) BgL_newz00_1788);
															BgL_arg1451z00_1786 = BgL_newz00_1788;
													}}
													BgL_newtail1283z00_1784 =
														MAKE_YOUNG_PAIR(
														((obj_t) BgL_arg1451z00_1786), BNIL);
												}
												SET_CDR(BgL_tail1282z00_1781, BgL_newtail1283z00_1784);
												{	/* Globalize/gloclo.scm 84 */
													obj_t BgL_arg1450z00_1785;

													BgL_arg1450z00_1785 =
														CDR(((obj_t) BgL_l1279z00_1780));
													{
														obj_t BgL_tail1282z00_3082;
														obj_t BgL_l1279z00_3081;

														BgL_l1279z00_3081 = BgL_arg1450z00_1785;
														BgL_tail1282z00_3082 = BgL_newtail1283z00_1784;
														BgL_tail1282z00_1781 = BgL_tail1282z00_3082;
														BgL_l1279z00_1780 = BgL_l1279z00_3081;
														goto BgL_zc3z04anonymousza31438ze3z87_1782;
													}
												}
											}
									}
								}
						}
						{	/* Globalize/gloclo.scm 84 */
							obj_t BgL_locz00_1751;

							{	/* Globalize/gloclo.scm 106 */
								bool_t BgL_test1904z00_3083;

								{	/* Globalize/gloclo.scm 106 */
									obj_t BgL_classz00_2316;

									BgL_classz00_2316 = BGl_sfunz00zzast_varz00;
									{	/* Globalize/gloclo.scm 106 */
										BgL_objectz00_bglt BgL_arg1801z00_2318;

										{	/* Globalize/gloclo.scm 106 */
											obj_t BgL_tmpz00_3084;

											BgL_tmpz00_3084 =
												((obj_t) ((BgL_objectz00_bglt) BgL_oldzd2funzd2_1748));
											BgL_arg1801z00_2318 =
												(BgL_objectz00_bglt) (BgL_tmpz00_3084);
										}
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Globalize/gloclo.scm 106 */
												long BgL_idxz00_2324;

												BgL_idxz00_2324 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2318);
												BgL_test1904z00_3083 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_2324 + 3L)) == BgL_classz00_2316);
											}
										else
											{	/* Globalize/gloclo.scm 106 */
												bool_t BgL_res1841z00_2346;

												{	/* Globalize/gloclo.scm 106 */
													obj_t BgL_oclassz00_2332;

													{	/* Globalize/gloclo.scm 106 */
														long BgL_arg1808z00_2338;

														{	/* Globalize/gloclo.scm 106 */
															long BgL_arg1809z00_2339;

															BgL_arg1809z00_2339 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2318);
															BgL_arg1808z00_2338 =
																(BgL_arg1809z00_2339 - OBJECT_TYPE);
														}
														BgL_oclassz00_2332 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_2338);
													}
													{	/* Globalize/gloclo.scm 106 */
														bool_t BgL__ortest_1115z00_2333;

														BgL__ortest_1115z00_2333 =
															(BgL_classz00_2316 == BgL_oclassz00_2332);
														if (BgL__ortest_1115z00_2333)
															{	/* Globalize/gloclo.scm 106 */
																BgL_res1841z00_2346 = BgL__ortest_1115z00_2333;
															}
														else
															{	/* Globalize/gloclo.scm 106 */
																long BgL_odepthz00_2334;

																BgL_odepthz00_2334 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_2332);
																if ((3L < BgL_odepthz00_2334))
																	{	/* Globalize/gloclo.scm 106 */
																		obj_t BgL_arg1797z00_2336;

																		BgL_arg1797z00_2336 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_2332, 3L);
																		BgL_res1841z00_2346 =
																			(BgL_arg1797z00_2336 ==
																			BgL_classz00_2316);
																	}
																else
																	{	/* Globalize/gloclo.scm 106 */
																		BgL_res1841z00_2346 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test1904z00_3083 = BgL_res1841z00_2346;
											}
									}
								}
								if (BgL_test1904z00_3083)
									{	/* Globalize/gloclo.scm 107 */
										bool_t BgL_test1908z00_3104;

										{	/* Globalize/gloclo.scm 107 */
											bool_t BgL_test1909z00_3105;

											{	/* Globalize/gloclo.scm 107 */
												obj_t BgL_arg1436z00_1775;

												BgL_arg1436z00_1775 =
													(((BgL_sfunz00_bglt) COBJECT(
															((BgL_sfunz00_bglt) BgL_oldzd2funzd2_1748)))->
													BgL_bodyz00);
												{	/* Globalize/gloclo.scm 107 */
													obj_t BgL_classz00_2348;

													BgL_classz00_2348 = BGl_nodez00zzast_nodez00;
													if (BGL_OBJECTP(BgL_arg1436z00_1775))
														{	/* Globalize/gloclo.scm 107 */
															BgL_objectz00_bglt BgL_arg1801z00_2350;

															BgL_arg1801z00_2350 =
																(BgL_objectz00_bglt) (BgL_arg1436z00_1775);
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* Globalize/gloclo.scm 107 */
																	long BgL_idxz00_2356;

																	BgL_idxz00_2356 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_2350);
																	BgL_test1909z00_3105 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_2356 + 1L)) ==
																		BgL_classz00_2348);
																}
															else
																{	/* Globalize/gloclo.scm 107 */
																	bool_t BgL_res1842z00_2378;

																	{	/* Globalize/gloclo.scm 107 */
																		obj_t BgL_oclassz00_2364;

																		{	/* Globalize/gloclo.scm 107 */
																			long BgL_arg1808z00_2370;

																			{	/* Globalize/gloclo.scm 107 */
																				long BgL_arg1809z00_2371;

																				BgL_arg1809z00_2371 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_2350);
																				BgL_arg1808z00_2370 =
																					(BgL_arg1809z00_2371 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_2364 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_2370);
																		}
																		{	/* Globalize/gloclo.scm 107 */
																			bool_t BgL__ortest_1115z00_2365;

																			BgL__ortest_1115z00_2365 =
																				(BgL_classz00_2348 ==
																				BgL_oclassz00_2364);
																			if (BgL__ortest_1115z00_2365)
																				{	/* Globalize/gloclo.scm 107 */
																					BgL_res1842z00_2378 =
																						BgL__ortest_1115z00_2365;
																				}
																			else
																				{	/* Globalize/gloclo.scm 107 */
																					long BgL_odepthz00_2366;

																					BgL_odepthz00_2366 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_2364);
																					if ((1L < BgL_odepthz00_2366))
																						{	/* Globalize/gloclo.scm 107 */
																							obj_t BgL_arg1797z00_2368;

																							BgL_arg1797z00_2368 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_2364, 1L);
																							BgL_res1842z00_2378 =
																								(BgL_arg1797z00_2368 ==
																								BgL_classz00_2348);
																						}
																					else
																						{	/* Globalize/gloclo.scm 107 */
																							BgL_res1842z00_2378 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test1909z00_3105 = BgL_res1842z00_2378;
																}
														}
													else
														{	/* Globalize/gloclo.scm 107 */
															BgL_test1909z00_3105 = ((bool_t) 0);
														}
												}
											}
											if (BgL_test1909z00_3105)
												{	/* Globalize/gloclo.scm 107 */
													BgL_test1908z00_3104 =
														CBOOL(
														(((BgL_nodez00_bglt) COBJECT(
																	((BgL_nodez00_bglt)
																		(((BgL_sfunz00_bglt) COBJECT(
																					((BgL_sfunz00_bglt)
																						BgL_oldzd2funzd2_1748)))->
																			BgL_bodyz00))))->BgL_locz00));
												}
											else
												{	/* Globalize/gloclo.scm 107 */
													BgL_test1908z00_3104 = ((bool_t) 0);
												}
										}
										if (BgL_test1908z00_3104)
											{	/* Globalize/gloclo.scm 107 */
												BgL_locz00_1751 =
													(((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt)
																(((BgL_sfunz00_bglt) COBJECT(
																			((BgL_sfunz00_bglt)
																				BgL_oldzd2funzd2_1748)))->
																	BgL_bodyz00))))->BgL_locz00);
											}
										else
											{	/* Globalize/gloclo.scm 107 */
												BgL_locz00_1751 =
													(((BgL_sfunz00_bglt) COBJECT(
															((BgL_sfunz00_bglt) BgL_oldzd2funzd2_1748)))->
													BgL_locz00);
											}
									}
								else
									{	/* Globalize/gloclo.scm 106 */
										BgL_locz00_1751 = BFALSE;
									}
							}
							{	/* Globalize/gloclo.scm 106 */
								obj_t BgL_glocloz00_1752;

								BgL_glocloz00_1752 =
									BGl_glocloz00zzglobaliza7e_globalzd2closurez75
									(BgL_globalz00_7, BgL_envz00_1749, BgL_newzd2argszd2_1750);
								{	/* Globalize/gloclo.scm 111 */
									BgL_valuez00_bglt BgL_newzd2funzd2_1753;

									BgL_newzd2funzd2_1753 =
										(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt)
													((BgL_globalz00_bglt) BgL_glocloz00_1752))))->
										BgL_valuez00);
									{	/* Globalize/gloclo.scm 112 */

										{	/* Globalize/gloclo.scm 114 */
											BgL_valuez00_bglt BgL_arg1369z00_1754;

											BgL_arg1369z00_1754 =
												(((BgL_variablez00_bglt) COBJECT(
														((BgL_variablez00_bglt)
															((BgL_globalz00_bglt) BgL_glocloz00_1752))))->
												BgL_valuez00);
											((((BgL_sfunz00_bglt) COBJECT(((BgL_sfunz00_bglt)
																BgL_arg1369z00_1754)))->
													BgL_thezd2closurezd2globalz00) =
												((obj_t) ((obj_t) BgL_globalz00_7)), BUNSPEC);
										}
										{	/* Globalize/gloclo.scm 116 */
											BgL_svarz00_bglt BgL_tmp1125z00_1755;

											BgL_tmp1125z00_1755 =
												((BgL_svarz00_bglt)
												(((BgL_variablez00_bglt) COBJECT(
															((BgL_variablez00_bglt) BgL_envz00_1749)))->
													BgL_valuez00));
											{	/* Globalize/gloclo.scm 116 */
												BgL_svarzf2ginfozf2_bglt BgL_wide1127z00_1757;

												BgL_wide1127z00_1757 =
													((BgL_svarzf2ginfozf2_bglt)
													BOBJECT(GC_MALLOC(sizeof(struct
																BgL_svarzf2ginfozf2_bgl))));
												{	/* Globalize/gloclo.scm 116 */
													obj_t BgL_auxz00_3155;
													BgL_objectz00_bglt BgL_tmpz00_3152;

													BgL_auxz00_3155 = ((obj_t) BgL_wide1127z00_1757);
													BgL_tmpz00_3152 =
														((BgL_objectz00_bglt)
														((BgL_svarz00_bglt) BgL_tmp1125z00_1755));
													BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3152,
														BgL_auxz00_3155);
												}
												((BgL_objectz00_bglt)
													((BgL_svarz00_bglt) BgL_tmp1125z00_1755));
												{	/* Globalize/gloclo.scm 116 */
													long BgL_arg1372z00_1758;

													BgL_arg1372z00_1758 =
														BGL_CLASS_NUM
														(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7);
													BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt) (
																(BgL_svarz00_bglt) BgL_tmp1125z00_1755)),
														BgL_arg1372z00_1758);
												}
												((BgL_svarz00_bglt)
													((BgL_svarz00_bglt) BgL_tmp1125z00_1755));
											}
											{
												BgL_svarzf2ginfozf2_bglt BgL_auxz00_3166;

												{
													obj_t BgL_auxz00_3167;

													{	/* Globalize/gloclo.scm 116 */
														BgL_objectz00_bglt BgL_tmpz00_3168;

														BgL_tmpz00_3168 =
															((BgL_objectz00_bglt)
															((BgL_svarz00_bglt) BgL_tmp1125z00_1755));
														BgL_auxz00_3167 =
															BGL_OBJECT_WIDENING(BgL_tmpz00_3168);
													}
													BgL_auxz00_3166 =
														((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_3167);
												}
												((((BgL_svarzf2ginfozf2_bglt)
															COBJECT(BgL_auxz00_3166))->BgL_kapturedzf3zf3) =
													((bool_t) ((bool_t) 0)), BUNSPEC);
											}
											{
												BgL_svarzf2ginfozf2_bglt BgL_auxz00_3174;

												{
													obj_t BgL_auxz00_3175;

													{	/* Globalize/gloclo.scm 116 */
														BgL_objectz00_bglt BgL_tmpz00_3176;

														BgL_tmpz00_3176 =
															((BgL_objectz00_bglt)
															((BgL_svarz00_bglt) BgL_tmp1125z00_1755));
														BgL_auxz00_3175 =
															BGL_OBJECT_WIDENING(BgL_tmpz00_3176);
													}
													BgL_auxz00_3174 =
														((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_3175);
												}
												((((BgL_svarzf2ginfozf2_bglt)
															COBJECT(BgL_auxz00_3174))->BgL_freezd2markzd2) =
													((long) -10L), BUNSPEC);
											}
											{
												BgL_svarzf2ginfozf2_bglt BgL_auxz00_3182;

												{
													obj_t BgL_auxz00_3183;

													{	/* Globalize/gloclo.scm 116 */
														BgL_objectz00_bglt BgL_tmpz00_3184;

														BgL_tmpz00_3184 =
															((BgL_objectz00_bglt)
															((BgL_svarz00_bglt) BgL_tmp1125z00_1755));
														BgL_auxz00_3183 =
															BGL_OBJECT_WIDENING(BgL_tmpz00_3184);
													}
													BgL_auxz00_3182 =
														((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_3183);
												}
												((((BgL_svarzf2ginfozf2_bglt)
															COBJECT(BgL_auxz00_3182))->BgL_markz00) =
													((long) -10L), BUNSPEC);
											}
											{
												BgL_svarzf2ginfozf2_bglt BgL_auxz00_3190;

												{
													obj_t BgL_auxz00_3191;

													{	/* Globalize/gloclo.scm 116 */
														BgL_objectz00_bglt BgL_tmpz00_3192;

														BgL_tmpz00_3192 =
															((BgL_objectz00_bglt)
															((BgL_svarz00_bglt) BgL_tmp1125z00_1755));
														BgL_auxz00_3191 =
															BGL_OBJECT_WIDENING(BgL_tmpz00_3192);
													}
													BgL_auxz00_3190 =
														((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_3191);
												}
												((((BgL_svarzf2ginfozf2_bglt)
															COBJECT(BgL_auxz00_3190))->BgL_celledzf3zf3) =
													((bool_t) ((bool_t) 0)), BUNSPEC);
											}
											{
												BgL_svarzf2ginfozf2_bglt BgL_auxz00_3198;

												{
													obj_t BgL_auxz00_3199;

													{	/* Globalize/gloclo.scm 116 */
														BgL_objectz00_bglt BgL_tmpz00_3200;

														BgL_tmpz00_3200 =
															((BgL_objectz00_bglt)
															((BgL_svarz00_bglt) BgL_tmp1125z00_1755));
														BgL_auxz00_3199 =
															BGL_OBJECT_WIDENING(BgL_tmpz00_3200);
													}
													BgL_auxz00_3198 =
														((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_3199);
												}
												((((BgL_svarzf2ginfozf2_bglt)
															COBJECT(BgL_auxz00_3198))->BgL_stackablez00) =
													((bool_t) ((bool_t) 1)), BUNSPEC);
											}
											((BgL_svarz00_bglt) BgL_tmp1125z00_1755);
										}
										{	/* Globalize/gloclo.scm 118 */
											BgL_globalzf2ginfozf2_bglt BgL_wide1131z00_1762;

											BgL_wide1131z00_1762 =
												((BgL_globalzf2ginfozf2_bglt)
												BOBJECT(GC_MALLOC(sizeof(struct
															BgL_globalzf2ginfozf2_bgl))));
											{	/* Globalize/gloclo.scm 118 */
												obj_t BgL_auxz00_3212;
												BgL_objectz00_bglt BgL_tmpz00_3208;

												BgL_auxz00_3212 = ((obj_t) BgL_wide1131z00_1762);
												BgL_tmpz00_3208 =
													((BgL_objectz00_bglt)
													((BgL_globalz00_bglt)
														((BgL_globalz00_bglt) BgL_glocloz00_1752)));
												BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3208,
													BgL_auxz00_3212);
											}
											((BgL_objectz00_bglt)
												((BgL_globalz00_bglt)
													((BgL_globalz00_bglt) BgL_glocloz00_1752)));
											{	/* Globalize/gloclo.scm 118 */
												long BgL_arg1373z00_1763;

												BgL_arg1373z00_1763 =
													BGL_CLASS_NUM
													(BGl_globalzf2Ginfozf2zzglobaliza7e_ginfoza7);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt) (
															(BgL_globalz00_bglt) ((BgL_globalz00_bglt)
																BgL_glocloz00_1752))), BgL_arg1373z00_1763);
											}
											((BgL_globalz00_bglt)
												((BgL_globalz00_bglt)
													((BgL_globalz00_bglt) BgL_glocloz00_1752)));
										}
										{
											BgL_globalzf2ginfozf2_bglt BgL_auxz00_3226;

											{
												obj_t BgL_auxz00_3227;

												{	/* Globalize/gloclo.scm 118 */
													BgL_objectz00_bglt BgL_tmpz00_3228;

													BgL_tmpz00_3228 =
														((BgL_objectz00_bglt)
														((BgL_globalz00_bglt)
															((BgL_globalz00_bglt) BgL_glocloz00_1752)));
													BgL_auxz00_3227 =
														BGL_OBJECT_WIDENING(BgL_tmpz00_3228);
												}
												BgL_auxz00_3226 =
													((BgL_globalzf2ginfozf2_bglt) BgL_auxz00_3227);
											}
											((((BgL_globalzf2ginfozf2_bglt)
														COBJECT(BgL_auxz00_3226))->BgL_escapezf3zf3) =
												((bool_t) ((bool_t) 1)), BUNSPEC);
										}
										{
											BgL_globalzf2ginfozf2_bglt BgL_auxz00_3235;

											{
												obj_t BgL_auxz00_3236;

												{	/* Globalize/gloclo.scm 118 */
													BgL_objectz00_bglt BgL_tmpz00_3237;

													BgL_tmpz00_3237 =
														((BgL_objectz00_bglt)
														((BgL_globalz00_bglt)
															((BgL_globalz00_bglt) BgL_glocloz00_1752)));
													BgL_auxz00_3236 =
														BGL_OBJECT_WIDENING(BgL_tmpz00_3237);
												}
												BgL_auxz00_3235 =
													((BgL_globalzf2ginfozf2_bglt) BgL_auxz00_3236);
											}
											((((BgL_globalzf2ginfozf2_bglt)
														COBJECT(BgL_auxz00_3235))->
													BgL_globalzd2closurezd2) = ((obj_t) BFALSE), BUNSPEC);
										}
										((BgL_globalz00_bglt)
											((BgL_globalz00_bglt) BgL_glocloz00_1752));
										((((BgL_sfunz00_bglt) COBJECT(
														((BgL_sfunz00_bglt) BgL_newzd2funzd2_1753)))->
												BgL_bodyz00) =
											((obj_t) ((obj_t)
													BGl_makezd2nooptzd2bodyz00zzglobaliza7e_globalzd2closurez75
													(BgL_locz00_1751, BgL_globalz00_7,
														BgL_newzd2argszd2_1750))), BUNSPEC);
										return BgL_glocloz00_1752;
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* make-noopt-body */
	BgL_appz00_bglt
		BGl_makezd2nooptzd2bodyz00zzglobaliza7e_globalzd2closurez75(obj_t
		BgL_locz00_8, BgL_globalz00_bglt BgL_globalz00_9,
		obj_t BgL_newzd2argszd2_10)
	{
		{	/* Globalize/gloclo.scm 130 */
			{	/* Globalize/gloclo.scm 131 */
				BgL_appz00_bglt BgL_new1136z00_1814;

				{	/* Globalize/gloclo.scm 132 */
					BgL_appz00_bglt BgL_new1135z00_1837;

					BgL_new1135z00_1837 =
						((BgL_appz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_appz00_bgl))));
					{	/* Globalize/gloclo.scm 132 */
						long BgL_arg1550z00_1838;

						BgL_arg1550z00_1838 = BGL_CLASS_NUM(BGl_appz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1135z00_1837), BgL_arg1550z00_1838);
					}
					{	/* Globalize/gloclo.scm 132 */
						BgL_objectz00_bglt BgL_tmpz00_3254;

						BgL_tmpz00_3254 = ((BgL_objectz00_bglt) BgL_new1135z00_1837);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3254, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1135z00_1837);
					BgL_new1136z00_1814 = BgL_new1135z00_1837;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1136z00_1814)))->BgL_locz00) =
					((obj_t) BgL_locz00_8), BUNSPEC);
				{
					BgL_typez00_bglt BgL_auxz00_3260;

					{	/* Globalize/gloclo.scm 133 */
						BgL_typez00_bglt BgL_arg1528z00_1815;

						BgL_arg1528z00_1815 =
							(((BgL_variablez00_bglt) COBJECT(
									((BgL_variablez00_bglt) BgL_globalz00_9)))->BgL_typez00);
						BgL_auxz00_3260 =
							BGl_strictzd2nodezd2typez00zzast_nodez00(BgL_arg1528z00_1815,
							((BgL_typez00_bglt) BGl_za2objza2z00zztype_cachez00));
					}
					((((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt) BgL_new1136z00_1814)))->BgL_typez00) =
						((BgL_typez00_bglt) BgL_auxz00_3260), BUNSPEC);
				}
				((((BgL_nodezf2effectzf2_bglt) COBJECT(
								((BgL_nodezf2effectzf2_bglt) BgL_new1136z00_1814)))->
						BgL_sidezd2effectzd2) = ((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1136z00_1814)))->BgL_keyz00) =
					((obj_t) BINT(-1L)), BUNSPEC);
				{
					BgL_varz00_bglt BgL_auxz00_3272;

					{	/* Globalize/gloclo.scm 134 */
						BgL_refz00_bglt BgL_new1138z00_1816;

						{	/* Globalize/gloclo.scm 135 */
							BgL_refz00_bglt BgL_new1137z00_1818;

							BgL_new1137z00_1818 =
								((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_refz00_bgl))));
							{	/* Globalize/gloclo.scm 135 */
								long BgL_arg1534z00_1819;

								{	/* Globalize/gloclo.scm 135 */
									obj_t BgL_classz00_2408;

									BgL_classz00_2408 = BGl_refz00zzast_nodez00;
									BgL_arg1534z00_1819 = BGL_CLASS_NUM(BgL_classz00_2408);
								}
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1137z00_1818),
									BgL_arg1534z00_1819);
							}
							{	/* Globalize/gloclo.scm 135 */
								BgL_objectz00_bglt BgL_tmpz00_3277;

								BgL_tmpz00_3277 = ((BgL_objectz00_bglt) BgL_new1137z00_1818);
								BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3277, BFALSE);
							}
							((BgL_objectz00_bglt) BgL_new1137z00_1818);
							BgL_new1138z00_1816 = BgL_new1137z00_1818;
						}
						((((BgL_nodez00_bglt) COBJECT(
										((BgL_nodez00_bglt) BgL_new1138z00_1816)))->BgL_locz00) =
							((obj_t) BgL_locz00_8), BUNSPEC);
						{
							BgL_typez00_bglt BgL_auxz00_3283;

							{	/* Globalize/gloclo.scm 136 */
								BgL_typez00_bglt BgL_arg1532z00_1817;

								BgL_arg1532z00_1817 =
									(((BgL_variablez00_bglt) COBJECT(
											((BgL_variablez00_bglt) BgL_globalz00_9)))->BgL_typez00);
								BgL_auxz00_3283 =
									BGl_strictzd2nodezd2typez00zzast_nodez00(BgL_arg1532z00_1817,
									((BgL_typez00_bglt) BGl_za2_za2z00zztype_cachez00));
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1138z00_1816)))->BgL_typez00) =
								((BgL_typez00_bglt) BgL_auxz00_3283), BUNSPEC);
						}
						((((BgL_varz00_bglt) COBJECT(
										((BgL_varz00_bglt) BgL_new1138z00_1816)))->
								BgL_variablez00) =
							((BgL_variablez00_bglt) ((BgL_variablez00_bglt) BgL_globalz00_9)),
							BUNSPEC);
						BgL_auxz00_3272 = ((BgL_varz00_bglt) BgL_new1138z00_1816);
					}
					((((BgL_appz00_bglt) COBJECT(BgL_new1136z00_1814))->BgL_funz00) =
						((BgL_varz00_bglt) BgL_auxz00_3272), BUNSPEC);
				}
				{
					obj_t BgL_auxz00_3295;

					if (NULLP(BgL_newzd2argszd2_10))
						{	/* Globalize/gloclo.scm 141 */
							BgL_auxz00_3295 = BNIL;
						}
					else
						{	/* Globalize/gloclo.scm 141 */
							obj_t BgL_head1286z00_1822;

							BgL_head1286z00_1822 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1284z00_1824;
								obj_t BgL_tail1287z00_1825;

								BgL_l1284z00_1824 = BgL_newzd2argszd2_10;
								BgL_tail1287z00_1825 = BgL_head1286z00_1822;
							BgL_zc3z04anonymousza31536ze3z87_1826:
								if (NULLP(BgL_l1284z00_1824))
									{	/* Globalize/gloclo.scm 141 */
										BgL_auxz00_3295 = CDR(BgL_head1286z00_1822);
									}
								else
									{	/* Globalize/gloclo.scm 141 */
										obj_t BgL_newtail1288z00_1828;

										{	/* Globalize/gloclo.scm 141 */
											BgL_refz00_bglt BgL_arg1545z00_1830;

											{	/* Globalize/gloclo.scm 141 */
												obj_t BgL_vz00_1831;

												BgL_vz00_1831 = CAR(((obj_t) BgL_l1284z00_1824));
												{	/* Globalize/gloclo.scm 142 */
													BgL_refz00_bglt BgL_new1140z00_1832;

													{	/* Globalize/gloclo.scm 145 */
														BgL_refz00_bglt BgL_new1139z00_1834;

														BgL_new1139z00_1834 =
															((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																		BgL_refz00_bgl))));
														{	/* Globalize/gloclo.scm 145 */
															long BgL_arg1547z00_1835;

															{	/* Globalize/gloclo.scm 145 */
																obj_t BgL_classz00_2415;

																BgL_classz00_2415 = BGl_refz00zzast_nodez00;
																BgL_arg1547z00_1835 =
																	BGL_CLASS_NUM(BgL_classz00_2415);
															}
															BGL_OBJECT_CLASS_NUM_SET(
																((BgL_objectz00_bglt) BgL_new1139z00_1834),
																BgL_arg1547z00_1835);
														}
														{	/* Globalize/gloclo.scm 145 */
															BgL_objectz00_bglt BgL_tmpz00_3308;

															BgL_tmpz00_3308 =
																((BgL_objectz00_bglt) BgL_new1139z00_1834);
															BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3308, BFALSE);
														}
														((BgL_objectz00_bglt) BgL_new1139z00_1834);
														BgL_new1140z00_1832 = BgL_new1139z00_1834;
													}
													((((BgL_nodez00_bglt) COBJECT(
																	((BgL_nodez00_bglt) BgL_new1140z00_1832)))->
															BgL_locz00) = ((obj_t) BgL_locz00_8), BUNSPEC);
													{
														BgL_typez00_bglt BgL_auxz00_3314;

														{	/* Globalize/gloclo.scm 144 */
															BgL_typez00_bglt BgL_arg1546z00_1833;

															BgL_arg1546z00_1833 =
																(((BgL_variablez00_bglt) COBJECT(
																		((BgL_variablez00_bglt) BgL_vz00_1831)))->
																BgL_typez00);
															BgL_auxz00_3314 =
																BGl_strictzd2nodezd2typez00zzast_nodez00
																(BgL_arg1546z00_1833,
																((BgL_typez00_bglt)
																	BGl_za2objza2z00zztype_cachez00));
														}
														((((BgL_nodez00_bglt) COBJECT(
																		((BgL_nodez00_bglt) BgL_new1140z00_1832)))->
																BgL_typez00) =
															((BgL_typez00_bglt) BgL_auxz00_3314), BUNSPEC);
													}
													((((BgL_varz00_bglt) COBJECT(
																	((BgL_varz00_bglt) BgL_new1140z00_1832)))->
															BgL_variablez00) =
														((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
																BgL_vz00_1831)), BUNSPEC);
													BgL_arg1545z00_1830 = BgL_new1140z00_1832;
											}}
											BgL_newtail1288z00_1828 =
												MAKE_YOUNG_PAIR(((obj_t) BgL_arg1545z00_1830), BNIL);
										}
										SET_CDR(BgL_tail1287z00_1825, BgL_newtail1288z00_1828);
										{	/* Globalize/gloclo.scm 141 */
											obj_t BgL_arg1541z00_1829;

											BgL_arg1541z00_1829 = CDR(((obj_t) BgL_l1284z00_1824));
											{
												obj_t BgL_tail1287z00_3330;
												obj_t BgL_l1284z00_3329;

												BgL_l1284z00_3329 = BgL_arg1541z00_1829;
												BgL_tail1287z00_3330 = BgL_newtail1288z00_1828;
												BgL_tail1287z00_1825 = BgL_tail1287z00_3330;
												BgL_l1284z00_1824 = BgL_l1284z00_3329;
												goto BgL_zc3z04anonymousza31536ze3z87_1826;
											}
										}
									}
							}
						}
					((((BgL_appz00_bglt) COBJECT(BgL_new1136z00_1814))->BgL_argsz00) =
						((obj_t) BgL_auxz00_3295), BUNSPEC);
				}
				((((BgL_appz00_bglt) COBJECT(BgL_new1136z00_1814))->BgL_stackablez00) =
					((obj_t) BFALSE), BUNSPEC);
				return BgL_new1136z00_1814;
			}
		}

	}



/* foreign-closures */
	BGL_EXPORTED_DEF obj_t
		BGl_foreignzd2closureszd2zzglobaliza7e_globalzd2closurez75(void)
	{
		{	/* Globalize/gloclo.scm 156 */
			{	/* Globalize/gloclo.scm 157 */
				obj_t BgL_resz00_1839;

				BgL_resz00_1839 =
					BGl_za2foreignzd2closuresza2zd2zzglobaliza7e_globalzd2closurez75;
				BGl_za2foreignzd2closuresza2zd2zzglobaliza7e_globalzd2closurez75 = BNIL;
				return BgL_resz00_1839;
			}
		}

	}



/* &foreign-closures */
	obj_t BGl_z62foreignzd2closureszb0zzglobaliza7e_globalzd2closurez75(obj_t
		BgL_envz00_2692)
	{
		{	/* Globalize/gloclo.scm 156 */
			return BGl_foreignzd2closureszd2zzglobaliza7e_globalzd2closurez75();
		}

	}



/* globalized-type-id */
	obj_t
		BGl_globaliza7edzd2typezd2idza7zzglobaliza7e_globalzd2closurez75
		(BgL_globalz00_bglt BgL_globalz00_11)
	{
		{	/* Globalize/gloclo.scm 169 */
			{	/* Globalize/gloclo.scm 170 */
				BgL_typez00_bglt BgL_typez00_1840;

				BgL_typez00_1840 =
					(((BgL_variablez00_bglt) COBJECT(
							((BgL_variablez00_bglt) BgL_globalz00_11)))->BgL_typez00);
				if (CBOOL
					(BGl_za2optimzd2cfazd2unboxzd2closurezd2argsza2z00zzengine_paramz00))
					{	/* Globalize/gloclo.scm 172 */
						if (BGl_bigloozd2typezf3z21zztype_typez00(BgL_typez00_1840))
							{	/* Globalize/gloclo.scm 174 */
								return
									(((BgL_typez00_bglt) COBJECT(BgL_typez00_1840))->BgL_idz00);
							}
						else
							{	/* Globalize/gloclo.scm 174 */
								if (
									((((BgL_globalz00_bglt) COBJECT(BgL_globalz00_11))->
											BgL_importz00) == CNST_TABLE_REF(2L)))
									{	/* Globalize/gloclo.scm 176 */
										return CNST_TABLE_REF(0L);
									}
								else
									{	/* Globalize/gloclo.scm 176 */
										return
											(((BgL_typez00_bglt)
												COBJECT(BGl_getzd2bigloozd2typez00zztype_cachez00
													(BgL_typez00_1840)))->BgL_idz00);
									}
							}
					}
				else
					{	/* Globalize/gloclo.scm 172 */
						return CNST_TABLE_REF(3L);
					}
			}
		}

	}



/* gloclo */
	obj_t BGl_glocloz00zzglobaliza7e_globalzd2closurez75(BgL_globalz00_bglt
		BgL_globalz00_12, BgL_localz00_bglt BgL_envz00_13, obj_t BgL_argsz00_14)
	{
		{	/* Globalize/gloclo.scm 186 */
			{	/* Globalize/gloclo.scm 187 */
				int BgL_arityz00_1846;

				{	/* Globalize/gloclo.scm 187 */
					BgL_valuez00_bglt BgL_arg1629z00_1875;

					BgL_arg1629z00_1875 =
						(((BgL_variablez00_bglt) COBJECT(
								((BgL_variablez00_bglt) BgL_globalz00_12)))->BgL_valuez00);
					BgL_arityz00_1846 =
						BGl_funzd2optionalzd2arityz00zzast_varz00(
						((BgL_funz00_bglt) BgL_arg1629z00_1875));
				}
				{	/* Globalize/gloclo.scm 187 */
					obj_t BgL_idz00_1847;

					{	/* Globalize/gloclo.scm 188 */
						obj_t BgL_strz00_1862;

						{	/* Globalize/gloclo.scm 190 */
							obj_t BgL_arg1621z00_1873;

							{	/* Globalize/gloclo.scm 190 */
								obj_t BgL_arg1628z00_1874;

								BgL_arg1628z00_1874 =
									(((BgL_variablez00_bglt) COBJECT(
											((BgL_variablez00_bglt) BgL_globalz00_12)))->BgL_idz00);
								{	/* Globalize/gloclo.scm 190 */
									obj_t BgL_arg1454z00_2429;

									BgL_arg1454z00_2429 = SYMBOL_TO_STRING(BgL_arg1628z00_1874);
									BgL_arg1621z00_1873 =
										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
										(BgL_arg1454z00_2429);
							}}
							BgL_strz00_1862 =
								string_append
								(BGl_string1852z00zzglobaliza7e_globalzd2closurez75,
								BgL_arg1621z00_1873);
						}
						if (symbol_exists_p(BSTRING_TO_STRING(BgL_strz00_1862)))
							{	/* Globalize/gloclo.scm 192 */
								obj_t BgL_arg1598z00_1864;

								{	/* Globalize/gloclo.scm 192 */
									obj_t BgL_arg1606z00_1865;

									{	/* Globalize/gloclo.scm 192 */
										obj_t BgL_arg1608z00_1866;
										obj_t BgL_arg1609z00_1867;

										{	/* Globalize/gloclo.scm 192 */
											obj_t BgL_symbolz00_2430;

											BgL_symbolz00_2430 = CNST_TABLE_REF(4L);
											{	/* Globalize/gloclo.scm 192 */
												obj_t BgL_arg1454z00_2431;

												BgL_arg1454z00_2431 =
													SYMBOL_TO_STRING(BgL_symbolz00_2430);
												BgL_arg1608z00_1866 =
													BGl_stringzd2copyzd2zz__r4_strings_6_7z00
													(BgL_arg1454z00_2431);
											}
										}
										{	/* Globalize/gloclo.scm 192 */
											obj_t BgL_arg1613z00_1868;

											BgL_arg1613z00_1868 =
												(((BgL_variablez00_bglt) COBJECT(
														((BgL_variablez00_bglt) BgL_globalz00_12)))->
												BgL_idz00);
											{	/* Globalize/gloclo.scm 192 */
												obj_t BgL_arg1454z00_2434;

												BgL_arg1454z00_2434 =
													SYMBOL_TO_STRING(BgL_arg1613z00_1868);
												BgL_arg1609z00_1867 =
													BGl_stringzd2copyzd2zz__r4_strings_6_7z00
													(BgL_arg1454z00_2434);
											}
										}
										BgL_arg1606z00_1865 =
											string_append(BgL_arg1608z00_1866, BgL_arg1609z00_1867);
									}
									BgL_arg1598z00_1864 = bstring_to_symbol(BgL_arg1606z00_1865);
								}
								BgL_idz00_1847 =
									BGl_gensymz00zz__r4_symbols_6_4z00(BgL_arg1598z00_1864);
							}
						else
							{	/* Globalize/gloclo.scm 193 */
								obj_t BgL_arg1614z00_1869;

								{	/* Globalize/gloclo.scm 193 */
									obj_t BgL_arg1615z00_1870;
									obj_t BgL_arg1616z00_1871;

									{	/* Globalize/gloclo.scm 193 */
										obj_t BgL_symbolz00_2436;

										BgL_symbolz00_2436 = CNST_TABLE_REF(4L);
										{	/* Globalize/gloclo.scm 193 */
											obj_t BgL_arg1454z00_2437;

											BgL_arg1454z00_2437 =
												SYMBOL_TO_STRING(BgL_symbolz00_2436);
											BgL_arg1615z00_1870 =
												BGl_stringzd2copyzd2zz__r4_strings_6_7z00
												(BgL_arg1454z00_2437);
										}
									}
									{	/* Globalize/gloclo.scm 193 */
										obj_t BgL_arg1620z00_1872;

										BgL_arg1620z00_1872 =
											(((BgL_variablez00_bglt) COBJECT(
													((BgL_variablez00_bglt) BgL_globalz00_12)))->
											BgL_idz00);
										{	/* Globalize/gloclo.scm 193 */
											obj_t BgL_arg1454z00_2440;

											BgL_arg1454z00_2440 =
												SYMBOL_TO_STRING(BgL_arg1620z00_1872);
											BgL_arg1616z00_1871 =
												BGl_stringzd2copyzd2zz__r4_strings_6_7z00
												(BgL_arg1454z00_2440);
										}
									}
									BgL_arg1614z00_1869 =
										string_append(BgL_arg1615z00_1870, BgL_arg1616z00_1871);
								}
								BgL_idz00_1847 = bstring_to_symbol(BgL_arg1614z00_1869);
							}
					}
					{	/* Globalize/gloclo.scm 188 */
						obj_t BgL_tyidz00_1848;

						BgL_tyidz00_1848 =
							BGl_globaliza7edzd2typezd2idza7zzglobaliza7e_globalzd2closurez75
							(BgL_globalz00_12);
						{	/* Globalize/gloclo.scm 194 */
							BgL_globalz00_bglt BgL_glocloz00_1849;

							{	/* Globalize/gloclo.scm 195 */
								obj_t BgL_arg1576z00_1853;
								obj_t BgL_arg1578z00_1854;
								obj_t BgL_arg1579z00_1855;
								obj_t BgL_arg1581z00_1856;
								obj_t BgL_arg1586z00_1857;

								BgL_arg1576z00_1853 =
									BGl_makezd2typedzd2identz00zzast_identz00(BgL_idz00_1847,
									BgL_tyidz00_1848);
								BgL_arg1578z00_1854 =
									BGl_makezd2nzd2protoz00zztools_argsz00
									(BGl_zb2zd2arityz60zztools_argsz00(BINT(BgL_arityz00_1846),
										BINT(1L)));
								BgL_arg1579z00_1855 =
									MAKE_YOUNG_PAIR(((obj_t) BgL_envz00_13), BgL_argsz00_14);
								if (((((BgL_globalz00_bglt) COBJECT(BgL_globalz00_12))->
											BgL_importz00) == CNST_TABLE_REF(5L)))
									{	/* Globalize/gloclo.scm 198 */
										BgL_arg1581z00_1856 = BGl_za2moduleza2z00zzmodule_modulez00;
									}
								else
									{	/* Globalize/gloclo.scm 198 */
										BgL_arg1581z00_1856 =
											(((BgL_globalz00_bglt) COBJECT(BgL_globalz00_12))->
											BgL_modulez00);
									}
								BgL_arg1586z00_1857 =
									(((BgL_globalz00_bglt) COBJECT(BgL_globalz00_12))->
									BgL_importz00);
								BgL_glocloz00_1849 =
									BGl_defzd2globalzd2sfunzd2nozd2warningz12z12zzast_glozd2defzd2
									(BgL_arg1576z00_1853, BgL_arg1578z00_1854,
									BgL_arg1579z00_1855, BgL_arg1581z00_1856, BgL_arg1586z00_1857,
									CNST_TABLE_REF(6L), CNST_TABLE_REF(7L), BUNSPEC);
							}
							{	/* Globalize/gloclo.scm 195 */

								{	/* Globalize/gloclo.scm 205 */
									BgL_valuez00_bglt BgL_arg1564z00_1850;
									obj_t BgL_arg1565z00_1851;

									BgL_arg1564z00_1850 =
										(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt) BgL_glocloz00_1849)))->
										BgL_valuez00);
									BgL_arg1565z00_1851 =
										(((BgL_funz00_bglt)
											COBJECT(((BgL_funz00_bglt) (((BgL_variablez00_bglt)
															COBJECT(((BgL_variablez00_bglt)
																	BgL_globalz00_12)))->BgL_valuez00))))->
										BgL_argszd2noescapezd2);
									((((BgL_funz00_bglt) COBJECT(((BgL_funz00_bglt)
														BgL_arg1564z00_1850)))->BgL_argszd2noescapezd2) =
										((obj_t) BgL_arg1565z00_1851), BUNSPEC);
								}
								return
									BGl_fillzd2glocloz12zc0zzglobaliza7e_globalzd2closurez75
									(BgL_globalz00_12, BgL_glocloz00_1849);
							}
						}
					}
				}
			}
		}

	}



/* fill-gloclo! */
	obj_t
		BGl_fillzd2glocloz12zc0zzglobaliza7e_globalzd2closurez75(BgL_globalz00_bglt
		BgL_globalz00_15, BgL_globalz00_bglt BgL_gcloz00_16)
	{
		{	/* Globalize/gloclo.scm 212 */
			{
				BgL_globalzf2ginfozf2_bglt BgL_auxz00_3406;

				{
					obj_t BgL_auxz00_3407;

					{	/* Globalize/gloclo.scm 213 */
						BgL_objectz00_bglt BgL_tmpz00_3408;

						BgL_tmpz00_3408 =
							((BgL_objectz00_bglt) ((BgL_globalz00_bglt) BgL_globalz00_15));
						BgL_auxz00_3407 = BGL_OBJECT_WIDENING(BgL_tmpz00_3408);
					}
					BgL_auxz00_3406 = ((BgL_globalzf2ginfozf2_bglt) BgL_auxz00_3407);
				}
				((((BgL_globalzf2ginfozf2_bglt) COBJECT(BgL_auxz00_3406))->
						BgL_globalzd2closurezd2) =
					((obj_t) ((obj_t) BgL_gcloz00_16)), BUNSPEC);
			}
			{	/* Globalize/gloclo.scm 216 */
				BgL_valuez00_bglt BgL_sfunz00_1876;

				BgL_sfunz00_1876 =
					(((BgL_variablez00_bglt) COBJECT(
							((BgL_variablez00_bglt) BgL_globalz00_15)))->BgL_valuez00);
				{	/* Globalize/gloclo.scm 217 */
					bool_t BgL_test1921z00_3417;

					{	/* Globalize/gloclo.scm 217 */
						obj_t BgL_classz00_2452;

						BgL_classz00_2452 = BGl_sfunz00zzast_varz00;
						{	/* Globalize/gloclo.scm 217 */
							BgL_objectz00_bglt BgL_arg1801z00_2454;

							{	/* Globalize/gloclo.scm 217 */
								obj_t BgL_tmpz00_3418;

								BgL_tmpz00_3418 =
									((obj_t) ((BgL_objectz00_bglt) BgL_sfunz00_1876));
								BgL_arg1801z00_2454 = (BgL_objectz00_bglt) (BgL_tmpz00_3418);
							}
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Globalize/gloclo.scm 217 */
									long BgL_idxz00_2460;

									BgL_idxz00_2460 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2454);
									BgL_test1921z00_3417 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_2460 + 3L)) == BgL_classz00_2452);
								}
							else
								{	/* Globalize/gloclo.scm 217 */
									bool_t BgL_res1843z00_2482;

									{	/* Globalize/gloclo.scm 217 */
										obj_t BgL_oclassz00_2468;

										{	/* Globalize/gloclo.scm 217 */
											long BgL_arg1808z00_2474;

											{	/* Globalize/gloclo.scm 217 */
												long BgL_arg1809z00_2475;

												BgL_arg1809z00_2475 =
													BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2454);
												BgL_arg1808z00_2474 =
													(BgL_arg1809z00_2475 - OBJECT_TYPE);
											}
											BgL_oclassz00_2468 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg1808z00_2474);
										}
										{	/* Globalize/gloclo.scm 217 */
											bool_t BgL__ortest_1115z00_2469;

											BgL__ortest_1115z00_2469 =
												(BgL_classz00_2452 == BgL_oclassz00_2468);
											if (BgL__ortest_1115z00_2469)
												{	/* Globalize/gloclo.scm 217 */
													BgL_res1843z00_2482 = BgL__ortest_1115z00_2469;
												}
											else
												{	/* Globalize/gloclo.scm 217 */
													long BgL_odepthz00_2470;

													BgL_odepthz00_2470 =
														BGL_CLASS_DEPTH(BgL_oclassz00_2468);
													if ((3L < BgL_odepthz00_2470))
														{	/* Globalize/gloclo.scm 217 */
															obj_t BgL_arg1797z00_2472;

															BgL_arg1797z00_2472 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2468, 3L);
															BgL_res1843z00_2482 =
																(BgL_arg1797z00_2472 == BgL_classz00_2452);
														}
													else
														{	/* Globalize/gloclo.scm 217 */
															BgL_res1843z00_2482 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test1921z00_3417 = BgL_res1843z00_2482;
								}
						}
					}
					if (BgL_test1921z00_3417)
						{	/* Globalize/gloclo.scm 218 */
							BgL_valuez00_bglt BgL_arg1639z00_1878;
							obj_t BgL_arg1649z00_1879;

							BgL_arg1639z00_1878 =
								(((BgL_variablez00_bglt) COBJECT(
										((BgL_variablez00_bglt) BgL_gcloz00_16)))->BgL_valuez00);
							BgL_arg1649z00_1879 =
								(((BgL_sfunz00_bglt) COBJECT(
										((BgL_sfunz00_bglt) BgL_sfunz00_1876)))->BgL_locz00);
							((((BgL_sfunz00_bglt) COBJECT(
											((BgL_sfunz00_bglt) BgL_arg1639z00_1878)))->BgL_locz00) =
								((obj_t) BgL_arg1649z00_1879), BUNSPEC);
						}
					else
						{	/* Globalize/gloclo.scm 217 */
							BFALSE;
						}
				}
				if (
					((((BgL_globalz00_bglt) COBJECT(BgL_globalz00_15))->BgL_importz00) ==
						CNST_TABLE_REF(5L)))
					{	/* Globalize/gloclo.scm 227 */
						BGl_za2foreignzd2closuresza2zd2zzglobaliza7e_globalzd2closurez75 =
							MAKE_YOUNG_PAIR(
							((obj_t) BgL_gcloz00_16),
							BGl_za2foreignzd2closuresza2zd2zzglobaliza7e_globalzd2closurez75);
						{	/* Globalize/gloclo.scm 230 */
							obj_t BgL_vz00_2488;

							BgL_vz00_2488 = CNST_TABLE_REF(8L);
							((((BgL_variablez00_bglt) COBJECT(
											((BgL_variablez00_bglt) BgL_gcloz00_16)))->
									BgL_removablez00) = ((obj_t) BgL_vz00_2488), BUNSPEC);
						}
						{	/* Globalize/gloclo.scm 231 */
							obj_t BgL_vz00_2490;

							BgL_vz00_2490 = CNST_TABLE_REF(2L);
							((((BgL_globalz00_bglt) COBJECT(BgL_gcloz00_16))->BgL_importz00) =
								((obj_t) BgL_vz00_2490), BUNSPEC);
						}
					}
				else
					{	/* Globalize/gloclo.scm 227 */
						if (
							((((BgL_globalz00_bglt) COBJECT(BgL_globalz00_15))->
									BgL_importz00) == CNST_TABLE_REF(2L)))
							{	/* Globalize/gloclo.scm 233 */
								BFALSE;
							}
						else
							{	/* Globalize/gloclo.scm 234 */
								obj_t BgL_vz00_2493;

								BgL_vz00_2493 = CNST_TABLE_REF(8L);
								((((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt) BgL_gcloz00_16)))->
										BgL_removablez00) = ((obj_t) BgL_vz00_2493), BUNSPEC);
							}
						{	/* Globalize/gloclo.scm 235 */
							obj_t BgL_vz00_2495;

							BgL_vz00_2495 = CNST_TABLE_REF(2L);
							((((BgL_globalz00_bglt) COBJECT(BgL_gcloz00_16))->BgL_importz00) =
								((obj_t) BgL_vz00_2495), BUNSPEC);
						}
					}
				{	/* Globalize/gloclo.scm 236 */
					BgL_valuez00_bglt BgL_arg1675z00_1886;
					obj_t BgL_arg1678z00_1887;

					BgL_arg1675z00_1886 =
						(((BgL_variablez00_bglt) COBJECT(
								((BgL_variablez00_bglt) BgL_gcloz00_16)))->BgL_valuez00);
					BgL_arg1678z00_1887 =
						(((BgL_funz00_bglt) COBJECT(
								((BgL_funz00_bglt) BgL_sfunz00_1876)))->BgL_sidezd2effectzd2);
					((((BgL_funz00_bglt) COBJECT(
									((BgL_funz00_bglt) BgL_arg1675z00_1886)))->
							BgL_sidezd2effectzd2) = ((obj_t) BgL_arg1678z00_1887), BUNSPEC);
				}
				{	/* Globalize/gloclo.scm 237 */
					bool_t BgL_test1927z00_3470;

					{	/* Globalize/gloclo.scm 237 */
						obj_t BgL_classz00_2499;

						BgL_classz00_2499 = BGl_globalz00zzast_varz00;
						{	/* Globalize/gloclo.scm 237 */
							BgL_objectz00_bglt BgL_arg1801z00_2501;

							{	/* Globalize/gloclo.scm 237 */
								obj_t BgL_tmpz00_3471;

								BgL_tmpz00_3471 = ((obj_t) BgL_gcloz00_16);
								BgL_arg1801z00_2501 = (BgL_objectz00_bglt) (BgL_tmpz00_3471);
							}
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Globalize/gloclo.scm 237 */
									long BgL_idxz00_2507;

									BgL_idxz00_2507 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2501);
									BgL_test1927z00_3470 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_2507 + 2L)) == BgL_classz00_2499);
								}
							else
								{	/* Globalize/gloclo.scm 237 */
									bool_t BgL_res1844z00_2529;

									{	/* Globalize/gloclo.scm 237 */
										obj_t BgL_oclassz00_2515;

										{	/* Globalize/gloclo.scm 237 */
											long BgL_arg1808z00_2521;

											{	/* Globalize/gloclo.scm 237 */
												long BgL_arg1809z00_2522;

												BgL_arg1809z00_2522 =
													BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2501);
												BgL_arg1808z00_2521 =
													(BgL_arg1809z00_2522 - OBJECT_TYPE);
											}
											BgL_oclassz00_2515 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg1808z00_2521);
										}
										{	/* Globalize/gloclo.scm 237 */
											bool_t BgL__ortest_1115z00_2516;

											BgL__ortest_1115z00_2516 =
												(BgL_classz00_2499 == BgL_oclassz00_2515);
											if (BgL__ortest_1115z00_2516)
												{	/* Globalize/gloclo.scm 237 */
													BgL_res1844z00_2529 = BgL__ortest_1115z00_2516;
												}
											else
												{	/* Globalize/gloclo.scm 237 */
													long BgL_odepthz00_2517;

													BgL_odepthz00_2517 =
														BGL_CLASS_DEPTH(BgL_oclassz00_2515);
													if ((2L < BgL_odepthz00_2517))
														{	/* Globalize/gloclo.scm 237 */
															obj_t BgL_arg1797z00_2519;

															BgL_arg1797z00_2519 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2515, 2L);
															BgL_res1844z00_2529 =
																(BgL_arg1797z00_2519 == BgL_classz00_2499);
														}
													else
														{	/* Globalize/gloclo.scm 237 */
															BgL_res1844z00_2529 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test1927z00_3470 = BgL_res1844z00_2529;
								}
						}
					}
					if (BgL_test1927z00_3470)
						{	/* Globalize/gloclo.scm 237 */
							return ((obj_t) BgL_gcloz00_16);
						}
					else
						{	/* Globalize/gloclo.scm 237 */
							return
								BGl_internalzd2errorzd2zztools_errorz00
								(BGl_string1853z00zzglobaliza7e_globalzd2closurez75,
								BGl_string1854z00zzglobaliza7e_globalzd2closurez75,
								((obj_t) BgL_gcloz00_16));
						}
				}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zzglobaliza7e_globalzd2closurez75(void)
	{
		{	/* Globalize/gloclo.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zzglobaliza7e_globalzd2closurez75(void)
	{
		{	/* Globalize/gloclo.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zzglobaliza7e_globalzd2closurez75(void)
	{
		{	/* Globalize/gloclo.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_globalzd2closurez75(void)
	{
		{	/* Globalize/gloclo.scm 15 */
			BGl_modulezd2initializa7ationz75zztools_tracez00(54713316L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zztools_shapez00(365925558L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zztools_argsz00(47102372L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zztools_errorz00(300504031L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzengine_paramz00(517137079L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zztype_typez00(515343395L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zztype_cachez00(346491734L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzast_varz00(90839984L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzast_nodez00(469732712L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzast_sexpz00(163122759L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzast_localz00(315247917L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(44601789L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzast_identz00(174885617L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzmodule_modulez00(158397907L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(0L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(2706117L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(244215788L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
			return
				BGl_modulezd2initializa7ationz75zzast_envz00(146730773L,
				BSTRING_TO_STRING(BGl_string1855z00zzglobaliza7e_globalzd2closurez75));
		}

	}

#ifdef __cplusplus
}
#endif
