/*===========================================================================*/
/*   (Inline/simple.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 Inline/simple.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_INLINE_SIMPLE_TYPE_DEFINITIONS
#define BGL_INLINE_SIMPLE_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_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_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_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_atomz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_valuez00;
	}              *BgL_atomz00_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_closurez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_variablez00_bgl *BgL_variablez00;
	}                 *BgL_closurez00_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_letzd2varzd2_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;
		obj_t BgL_bindingsz00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
		bool_t BgL_removablezf3zf3;
	}                   *BgL_letzd2varzd2_bglt;

	typedef struct BgL_isfunz00_bgl
	{
		struct BgL_nodez00_bgl *BgL_originalzd2bodyzd2;
		obj_t BgL_recursivezd2callszd2;
		bool_t BgL_tailrecz00;
	}               *BgL_isfunz00_bglt;


#endif													// BGL_INLINE_SIMPLE_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern obj_t BGl_za2intza2z00zztype_cachez00;
	static obj_t BGl_requirezd2initializa7ationz75zzinline_simplez00 = BUNSPEC;
	extern obj_t BGl_closurez00zzast_nodez00;
	extern BgL_nodez00_bglt BGl_alphatiza7eza7zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t, BgL_nodez00_bglt);
	BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
	extern obj_t BGl_atomz00zzast_nodez00;
	extern BgL_nodez00_bglt
		BGl_inlinezd2nodezd2zzinline_inlinez00(BgL_nodez00_bglt, long, obj_t);
	extern obj_t BGl_letzd2varzd2zzast_nodez00;
	static obj_t BGl_genericzd2initzd2zzinline_simplez00(void);
	static obj_t BGl_objectzd2initzd2zzinline_simplez00(void);
	BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_shapez00zztools_shapez00(obj_t);
	BGL_IMPORT obj_t BGl_za2inheritancesza2z00zz__objectz00;
	BGL_IMPORT obj_t bgl_reverse_bang(obj_t);
	extern obj_t BGl_za2longza2z00zztype_cachez00;
	extern BgL_localz00_bglt BGl_clonezd2localzd2zzast_localz00(BgL_localz00_bglt,
		BgL_valuez00_bglt);
	BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	extern obj_t BGl_refz00zzast_nodez00;
	BGL_IMPORT obj_t BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zzinline_simplez00(void);
	extern obj_t BGl_varz00zzast_nodez00;
	extern BgL_typez00_bglt BGl_getzd2typezd2zztype_typeofz00(BgL_nodez00_bglt,
		bool_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_inlinezd2appzd2simplez00zzinline_simplez00(BgL_nodez00_bglt, long,
		obj_t, obj_t);
	extern obj_t BGl_za2_za2z00zztype_cachez00;
	extern BgL_typez00_bglt
		BGl_strictzd2nodezd2typez00zzast_nodez00(BgL_typez00_bglt,
		BgL_typez00_bglt);
	extern obj_t BGl_svarz00zzast_varz00;
	extern obj_t BGl_za2procedureza2z00zztype_cachez00;
	extern obj_t BGl_isfunz00zzinline_inlinez00;
	extern obj_t BGl_za2objza2z00zztype_cachez00;
	extern obj_t BGl_za2verboseza2z00zzengine_paramz00;
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zzinline_simplez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzeffect_spreadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzeffect_effectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_alphatiza7eza7(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzinline_siza7eza7(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzinline_inlinez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_occurz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_removez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(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_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_numbers_6_5z00(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_za2inliningzd2reducezd2kfactorza2z00zzengine_paramz00;
	extern obj_t BGl_localz00zzast_varz00;
	static obj_t BGl_cnstzd2initzd2zzinline_simplez00(void);
	static obj_t BGl_libraryzd2moduleszd2initz00zzinline_simplez00(void);
	extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t,
		BgL_typez00_bglt);
	extern obj_t BGl_nodezd2removez12zc0zzast_removez00(BgL_nodez00_bglt);
	static obj_t BGl_importedzd2moduleszd2initz00zzinline_simplez00(void);
	static obj_t BGl_gczd2rootszd2initz00zzinline_simplez00(void);
	extern bool_t BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_nodez00_bglt);
	extern obj_t BGl_currentzd2functionzd2zztools_errorz00(void);
	static BgL_nodez00_bglt BGl_stackablez12z12zzinline_simplez00(BgL_appz00_bglt,
		BgL_nodez00_bglt);
	extern obj_t BGl_occurzd2nodez12zc0zzast_occurz00(BgL_nodez00_bglt);
	BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	static BgL_nodez00_bglt
		BGl_z62inlinezd2appzd2simplez62zzinline_simplez00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	BGL_IMPORT bool_t BGl_2zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern bool_t
		BGl_spreadzd2sidezd2effectz12z12zzeffect_spreadz00(BgL_nodez00_bglt);
	extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
	static obj_t __cnst[3];


	   
		 
		DEFINE_STRING(BGl_string1870z00zzinline_simplez00,
		BgL_bgl_string1870za700za7za7i1876za7, " (", 2);
	      DEFINE_STRING(BGl_string1871z00zzinline_simplez00,
		BgL_bgl_string1871za700za7za7i1877za7, " --> ", 5);
	      DEFINE_STRING(BGl_string1872z00zzinline_simplez00,
		BgL_bgl_string1872za700za7za7i1878za7, "         ", 9);
	      DEFINE_STRING(BGl_string1873z00zzinline_simplez00,
		BgL_bgl_string1873za700za7za7i1879za7, "inline_simple", 13);
	      DEFINE_STRING(BGl_string1874z00zzinline_simplez00,
		BgL_bgl_string1874za700za7za7i1880za7, "res (sifun sgfun) read ", 23);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inlinezd2appzd2simplezd2envzd2zzinline_simplez00,
		BgL_bgl_za762inlineza7d2appza71881za7,
		BGl_z62inlinezd2appzd2simplez62zzinline_simplez00, 0L, BUNSPEC, 4);

/* 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_requirezd2initializa7ationz75zzinline_simplez00));
#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_modulezd2initializa7ationz75zzinline_simplez00(long
		BgL_checksumz00_2375, char *BgL_fromz00_2376)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zzinline_simplez00))
				{
					BGl_requirezd2initializa7ationz75zzinline_simplez00 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zzinline_simplez00();
					BGl_libraryzd2moduleszd2initz00zzinline_simplez00();
					BGl_cnstzd2initzd2zzinline_simplez00();
					BGl_importedzd2moduleszd2initz00zzinline_simplez00();
					return BGl_methodzd2initzd2zzinline_simplez00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* library-modules-init */
	obj_t BGl_libraryzd2moduleszd2initz00zzinline_simplez00(void)
	{
		{	/* Inline/simple.scm 15 */
			BGl_modulezd2initializa7ationz75zz__objectz00(0L, "inline_simple");
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(0L,
				"inline_simple");
			BGl_modulezd2initializa7ationz75zz__readerz00(0L, "inline_simple");
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(0L,
				"inline_simple");
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(0L,
				"inline_simple");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(0L,
				"inline_simple");
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(0L,
				"inline_simple");
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(0L,
				"inline_simple");
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(0L,
				"inline_simple");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(0L,
				"inline_simple");
			return BUNSPEC;
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zzinline_simplez00(void)
	{
		{	/* Inline/simple.scm 15 */
			{	/* Inline/simple.scm 15 */
				obj_t BgL_cportz00_2364;

				{	/* Inline/simple.scm 15 */
					obj_t BgL_stringz00_2371;

					BgL_stringz00_2371 = BGl_string1874z00zzinline_simplez00;
					{	/* Inline/simple.scm 15 */
						obj_t BgL_startz00_2372;

						BgL_startz00_2372 = BINT(0L);
						{	/* Inline/simple.scm 15 */
							obj_t BgL_endz00_2373;

							BgL_endz00_2373 =
								BINT(STRING_LENGTH(((obj_t) BgL_stringz00_2371)));
							{	/* Inline/simple.scm 15 */

								BgL_cportz00_2364 =
									BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
									(BgL_stringz00_2371, BgL_startz00_2372, BgL_endz00_2373);
				}}}}
				{
					long BgL_iz00_2365;

					BgL_iz00_2365 = 2L;
				BgL_loopz00_2366:
					if ((BgL_iz00_2365 == -1L))
						{	/* Inline/simple.scm 15 */
							return BUNSPEC;
						}
					else
						{	/* Inline/simple.scm 15 */
							{	/* Inline/simple.scm 15 */
								obj_t BgL_arg1875z00_2367;

								{	/* Inline/simple.scm 15 */

									{	/* Inline/simple.scm 15 */
										obj_t BgL_locationz00_2369;

										BgL_locationz00_2369 = BBOOL(((bool_t) 0));
										{	/* Inline/simple.scm 15 */

											BgL_arg1875z00_2367 =
												BGl_readz00zz__readerz00(BgL_cportz00_2364,
												BgL_locationz00_2369);
										}
									}
								}
								{	/* Inline/simple.scm 15 */
									int BgL_tmpz00_2404;

									BgL_tmpz00_2404 = (int) (BgL_iz00_2365);
									CNST_TABLE_SET(BgL_tmpz00_2404, BgL_arg1875z00_2367);
							}}
							{	/* Inline/simple.scm 15 */
								int BgL_auxz00_2370;

								BgL_auxz00_2370 = (int) ((BgL_iz00_2365 - 1L));
								{
									long BgL_iz00_2409;

									BgL_iz00_2409 = (long) (BgL_auxz00_2370);
									BgL_iz00_2365 = BgL_iz00_2409;
									goto BgL_loopz00_2366;
								}
							}
						}
				}
			}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zzinline_simplez00(void)
	{
		{	/* Inline/simple.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* inline-app-simple */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_inlinezd2appzd2simplez00zzinline_simplez00(BgL_nodez00_bglt
		BgL_nodez00_3, long BgL_kfactorz00_4, obj_t BgL_stackz00_5,
		obj_t BgL_msgz00_6)
	{
		{	/* Inline/simple.scm 46 */
			{	/* Inline/simple.scm 48 */
				BgL_variablez00_bglt BgL_calleez00_1446;

				BgL_calleez00_1446 =
					(((BgL_varz00_bglt) COBJECT(
							(((BgL_appz00_bglt) COBJECT(
										((BgL_appz00_bglt) BgL_nodez00_3)))->BgL_funz00)))->
					BgL_variablez00);
				{	/* Inline/simple.scm 48 */
					BgL_valuez00_bglt BgL_sfunz00_1447;

					BgL_sfunz00_1447 =
						(((BgL_variablez00_bglt) COBJECT(BgL_calleez00_1446))->
						BgL_valuez00);
					{	/* Inline/simple.scm 49 */
						obj_t BgL_formalsz00_1448;

						BgL_formalsz00_1448 =
							(((BgL_sfunz00_bglt) COBJECT(
									((BgL_sfunz00_bglt) BgL_sfunz00_1447)))->BgL_argsz00);
						{	/* Inline/simple.scm 50 */
							obj_t BgL_actualsz00_1449;

							BgL_actualsz00_1449 =
								(((BgL_appz00_bglt) COBJECT(
										((BgL_appz00_bglt) BgL_nodez00_3)))->BgL_argsz00);
							{	/* Inline/simple.scm 51 */
								obj_t BgL_reductorsz00_1450;

								if (NULLP(BgL_formalsz00_1448))
									{	/* Inline/simple.scm 52 */
										BgL_reductorsz00_1450 = BNIL;
									}
								else
									{	/* Inline/simple.scm 52 */
										obj_t BgL_head1256z00_1569;

										BgL_head1256z00_1569 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										{
											obj_t BgL_ll1254z00_1571;
											obj_t BgL_ll1255z00_1572;
											obj_t BgL_tail1257z00_1573;

											BgL_ll1254z00_1571 = BgL_formalsz00_1448;
											BgL_ll1255z00_1572 = BgL_actualsz00_1449;
											BgL_tail1257z00_1573 = BgL_head1256z00_1569;
										BgL_zc3z04anonymousza31581ze3z87_1574:
											if (NULLP(BgL_ll1254z00_1571))
												{	/* Inline/simple.scm 52 */
													BgL_reductorsz00_1450 = CDR(BgL_head1256z00_1569);
												}
											else
												{	/* Inline/simple.scm 52 */
													obj_t BgL_newtail1258z00_1576;

													{	/* Inline/simple.scm 52 */
														obj_t BgL_arg1592z00_1579;

														{	/* Inline/simple.scm 52 */
															obj_t BgL_fz00_1580;
															obj_t BgL_az00_1581;

															BgL_fz00_1580 = CAR(((obj_t) BgL_ll1254z00_1571));
															BgL_az00_1581 = CAR(((obj_t) BgL_ll1255z00_1572));
															{	/* Inline/simple.scm 54 */
																bool_t BgL_test1886z00_2430;

																{	/* Inline/simple.scm 54 */
																	bool_t BgL_test1887z00_2431;

																	{	/* Inline/simple.scm 54 */
																		obj_t BgL_classz00_1846;

																		BgL_classz00_1846 =
																			BGl_closurez00zzast_nodez00;
																		if (BGL_OBJECTP(BgL_az00_1581))
																			{	/* Inline/simple.scm 54 */
																				BgL_objectz00_bglt BgL_arg1801z00_1848;

																				BgL_arg1801z00_1848 =
																					(BgL_objectz00_bglt) (BgL_az00_1581);
																				if (BGL_CONDEXPAND_ISA_ARCH64())
																					{	/* Inline/simple.scm 54 */
																						long BgL_idxz00_1854;

																						BgL_idxz00_1854 =
																							BGL_OBJECT_INHERITANCE_NUM
																							(BgL_arg1801z00_1848);
																						BgL_test1887z00_2431 =
																							(VECTOR_REF
																							(BGl_za2inheritancesza2z00zz__objectz00,
																								(BgL_idxz00_1854 + 3L)) ==
																							BgL_classz00_1846);
																					}
																				else
																					{	/* Inline/simple.scm 54 */
																						bool_t BgL_res1855z00_1876;

																						{	/* Inline/simple.scm 54 */
																							obj_t BgL_oclassz00_1862;

																							{	/* Inline/simple.scm 54 */
																								long BgL_arg1808z00_1868;

																								{	/* Inline/simple.scm 54 */
																									long BgL_arg1809z00_1869;

																									BgL_arg1809z00_1869 =
																										BGL_OBJECT_CLASS_NUM
																										(BgL_arg1801z00_1848);
																									BgL_arg1808z00_1868 =
																										(BgL_arg1809z00_1869 -
																										OBJECT_TYPE);
																								}
																								BgL_oclassz00_1862 =
																									VECTOR_REF
																									(BGl_za2classesza2z00zz__objectz00,
																									BgL_arg1808z00_1868);
																							}
																							{	/* Inline/simple.scm 54 */
																								bool_t BgL__ortest_1115z00_1863;

																								BgL__ortest_1115z00_1863 =
																									(BgL_classz00_1846 ==
																									BgL_oclassz00_1862);
																								if (BgL__ortest_1115z00_1863)
																									{	/* Inline/simple.scm 54 */
																										BgL_res1855z00_1876 =
																											BgL__ortest_1115z00_1863;
																									}
																								else
																									{	/* Inline/simple.scm 54 */
																										long BgL_odepthz00_1864;

																										BgL_odepthz00_1864 =
																											BGL_CLASS_DEPTH
																											(BgL_oclassz00_1862);
																										if ((3L <
																												BgL_odepthz00_1864))
																											{	/* Inline/simple.scm 54 */
																												obj_t
																													BgL_arg1797z00_1866;
																												BgL_arg1797z00_1866 =
																													BGL_CLASS_ANCESTORS_REF
																													(BgL_oclassz00_1862,
																													3L);
																												BgL_res1855z00_1876 =
																													(BgL_arg1797z00_1866
																													== BgL_classz00_1846);
																											}
																										else
																											{	/* Inline/simple.scm 54 */
																												BgL_res1855z00_1876 =
																													((bool_t) 0);
																											}
																									}
																							}
																						}
																						BgL_test1887z00_2431 =
																							BgL_res1855z00_1876;
																					}
																			}
																		else
																			{	/* Inline/simple.scm 54 */
																				BgL_test1887z00_2431 = ((bool_t) 0);
																			}
																	}
																	if (BgL_test1887z00_2431)
																		{	/* Inline/simple.scm 54 */
																			if (
																				((((BgL_variablez00_bglt) COBJECT(
																								((BgL_variablez00_bglt)
																									((BgL_localz00_bglt)
																										BgL_fz00_1580))))->
																						BgL_accessz00) ==
																					CNST_TABLE_REF(0L)))
																				{	/* Inline/simple.scm 56 */
																					bool_t BgL__ortest_1108z00_1659;

																					{	/* Inline/simple.scm 56 */
																						BgL_typez00_bglt
																							BgL_arg1734z00_1663;
																						BgL_arg1734z00_1663 =
																							(((BgL_variablez00_bglt)
																								COBJECT(((BgL_variablez00_bglt)
																										((BgL_localz00_bglt)
																											BgL_fz00_1580))))->
																							BgL_typez00);
																						BgL__ortest_1108z00_1659 =
																							(((obj_t) BgL_arg1734z00_1663) ==
																							BGl_za2procedureza2z00zztype_cachez00);
																					}
																					if (BgL__ortest_1108z00_1659)
																						{	/* Inline/simple.scm 56 */
																							BgL_test1886z00_2430 =
																								BgL__ortest_1108z00_1659;
																						}
																					else
																						{	/* Inline/simple.scm 57 */
																							bool_t BgL__ortest_1109z00_1660;

																							{	/* Inline/simple.scm 57 */
																								BgL_typez00_bglt
																									BgL_arg1733z00_1662;
																								BgL_arg1733z00_1662 =
																									(((BgL_variablez00_bglt)
																										COBJECT((
																												(BgL_variablez00_bglt) (
																													(BgL_localz00_bglt)
																													BgL_fz00_1580))))->
																									BgL_typez00);
																								BgL__ortest_1109z00_1660 =
																									(((obj_t) BgL_arg1733z00_1662)
																									==
																									BGl_za2_za2z00zztype_cachez00);
																							}
																							if (BgL__ortest_1109z00_1660)
																								{	/* Inline/simple.scm 57 */
																									BgL_test1886z00_2430 =
																										BgL__ortest_1109z00_1660;
																								}
																							else
																								{	/* Inline/simple.scm 58 */
																									BgL_typez00_bglt
																										BgL_arg1732z00_1661;
																									BgL_arg1732z00_1661 =
																										(((BgL_variablez00_bglt)
																											COBJECT((
																													(BgL_variablez00_bglt)
																													((BgL_localz00_bglt)
																														BgL_fz00_1580))))->
																										BgL_typez00);
																									BgL_test1886z00_2430 =
																										(((obj_t)
																											BgL_arg1732z00_1661) ==
																										BGl_za2objza2z00zztype_cachez00);
																								}
																						}
																				}
																			else
																				{	/* Inline/simple.scm 55 */
																					BgL_test1886z00_2430 = ((bool_t) 0);
																				}
																		}
																	else
																		{	/* Inline/simple.scm 54 */
																			BgL_test1886z00_2430 = ((bool_t) 0);
																		}
																}
																if (BgL_test1886z00_2430)
																	{	/* Inline/simple.scm 54 */
																		BgL_arg1592z00_1579 =
																			((obj_t)
																			(((BgL_varz00_bglt) COBJECT(
																						((BgL_varz00_bglt)
																							((BgL_closurez00_bglt)
																								BgL_az00_1581))))->
																				BgL_variablez00));
																	}
																else
																	{	/* Inline/simple.scm 64 */
																		bool_t BgL_test1895z00_2478;

																		if (
																			((((BgL_variablez00_bglt) COBJECT(
																							((BgL_variablez00_bglt)
																								((BgL_localz00_bglt)
																									BgL_fz00_1580))))->
																					BgL_accessz00) == CNST_TABLE_REF(0L)))
																			{	/* Inline/simple.scm 65 */
																				bool_t BgL_test1897z00_2485;

																				{	/* Inline/simple.scm 65 */
																					bool_t BgL_test1898z00_2486;

																					{	/* Inline/simple.scm 65 */
																						BgL_typez00_bglt
																							BgL_arg1730z00_1655;
																						BgL_arg1730z00_1655 =
																							(((BgL_variablez00_bglt)
																								COBJECT(((BgL_variablez00_bglt)
																										((BgL_localz00_bglt)
																											BgL_fz00_1580))))->
																							BgL_typez00);
																						BgL_test1898z00_2486 =
																							(((obj_t) BgL_arg1730z00_1655) ==
																							BGl_za2objza2z00zztype_cachez00);
																					}
																					if (BgL_test1898z00_2486)
																						{	/* Inline/simple.scm 65 */
																							BgL_test1897z00_2485 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Inline/simple.scm 66 */
																							BgL_typez00_bglt
																								BgL_arg1729z00_1654;
																							BgL_arg1729z00_1654 =
																								(((BgL_variablez00_bglt)
																									COBJECT((
																											(BgL_variablez00_bglt) (
																												(BgL_localz00_bglt)
																												BgL_fz00_1580))))->
																								BgL_typez00);
																							BgL_test1897z00_2485 =
																								(((obj_t) BgL_arg1729z00_1654)
																								==
																								BGl_za2_za2z00zztype_cachez00);
																						}
																				}
																				if (BgL_test1897z00_2485)
																					{	/* Inline/simple.scm 67 */
																						obj_t BgL_classz00_1885;

																						BgL_classz00_1885 =
																							BGl_atomz00zzast_nodez00;
																						if (BGL_OBJECTP(BgL_az00_1581))
																							{	/* Inline/simple.scm 67 */
																								BgL_objectz00_bglt
																									BgL_arg1801z00_1887;
																								BgL_arg1801z00_1887 =
																									(BgL_objectz00_bglt)
																									(BgL_az00_1581);
																								if (BGL_CONDEXPAND_ISA_ARCH64())
																									{	/* Inline/simple.scm 67 */
																										long BgL_idxz00_1893;

																										BgL_idxz00_1893 =
																											BGL_OBJECT_INHERITANCE_NUM
																											(BgL_arg1801z00_1887);
																										BgL_test1895z00_2478 =
																											(VECTOR_REF
																											(BGl_za2inheritancesza2z00zz__objectz00,
																												(BgL_idxz00_1893 +
																													2L)) ==
																											BgL_classz00_1885);
																									}
																								else
																									{	/* Inline/simple.scm 67 */
																										bool_t BgL_res1856z00_1915;

																										{	/* Inline/simple.scm 67 */
																											obj_t BgL_oclassz00_1901;

																											{	/* Inline/simple.scm 67 */
																												long
																													BgL_arg1808z00_1907;
																												{	/* Inline/simple.scm 67 */
																													long
																														BgL_arg1809z00_1908;
																													BgL_arg1809z00_1908 =
																														BGL_OBJECT_CLASS_NUM
																														(BgL_arg1801z00_1887);
																													BgL_arg1808z00_1907 =
																														(BgL_arg1809z00_1908
																														- OBJECT_TYPE);
																												}
																												BgL_oclassz00_1901 =
																													VECTOR_REF
																													(BGl_za2classesza2z00zz__objectz00,
																													BgL_arg1808z00_1907);
																											}
																											{	/* Inline/simple.scm 67 */
																												bool_t
																													BgL__ortest_1115z00_1902;
																												BgL__ortest_1115z00_1902
																													=
																													(BgL_classz00_1885 ==
																													BgL_oclassz00_1901);
																												if (BgL__ortest_1115z00_1902)
																													{	/* Inline/simple.scm 67 */
																														BgL_res1856z00_1915
																															=
																															BgL__ortest_1115z00_1902;
																													}
																												else
																													{	/* Inline/simple.scm 67 */
																														long
																															BgL_odepthz00_1903;
																														BgL_odepthz00_1903 =
																															BGL_CLASS_DEPTH
																															(BgL_oclassz00_1901);
																														if ((2L <
																																BgL_odepthz00_1903))
																															{	/* Inline/simple.scm 67 */
																																obj_t
																																	BgL_arg1797z00_1905;
																																BgL_arg1797z00_1905
																																	=
																																	BGL_CLASS_ANCESTORS_REF
																																	(BgL_oclassz00_1901,
																																	2L);
																																BgL_res1856z00_1915
																																	=
																																	(BgL_arg1797z00_1905
																																	==
																																	BgL_classz00_1885);
																															}
																														else
																															{	/* Inline/simple.scm 67 */
																																BgL_res1856z00_1915
																																	=
																																	((bool_t) 0);
																															}
																													}
																											}
																										}
																										BgL_test1895z00_2478 =
																											BgL_res1856z00_1915;
																									}
																							}
																						else
																							{	/* Inline/simple.scm 67 */
																								BgL_test1895z00_2478 =
																									((bool_t) 0);
																							}
																					}
																				else
																					{	/* Inline/simple.scm 65 */
																						BgL_test1895z00_2478 = ((bool_t) 0);
																					}
																			}
																		else
																			{	/* Inline/simple.scm 64 */
																				BgL_test1895z00_2478 = ((bool_t) 0);
																			}
																		if (BgL_test1895z00_2478)
																			{	/* Inline/simple.scm 64 */
																				BgL_arg1592z00_1579 = BgL_az00_1581;
																			}
																		else
																			{	/* Inline/simple.scm 69 */
																				bool_t BgL_test1903z00_2516;

																				if (
																					((((BgL_variablez00_bglt) COBJECT(
																									((BgL_variablez00_bglt)
																										((BgL_localz00_bglt)
																											BgL_fz00_1580))))->
																							BgL_accessz00) ==
																						CNST_TABLE_REF(0L)))
																					{	/* Inline/simple.scm 70 */
																						bool_t BgL_test1905z00_2523;

																						{	/* Inline/simple.scm 70 */
																							bool_t BgL_test1906z00_2524;

																							{	/* Inline/simple.scm 70 */
																								BgL_typez00_bglt
																									BgL_arg1717z00_1649;
																								BgL_arg1717z00_1649 =
																									(((BgL_variablez00_bglt)
																										COBJECT((
																												(BgL_variablez00_bglt) (
																													(BgL_localz00_bglt)
																													BgL_fz00_1580))))->
																									BgL_typez00);
																								BgL_test1906z00_2524 =
																									(((obj_t) BgL_arg1717z00_1649)
																									==
																									BGl_za2objza2z00zztype_cachez00);
																							}
																							if (BgL_test1906z00_2524)
																								{	/* Inline/simple.scm 70 */
																									BgL_test1905z00_2523 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Inline/simple.scm 71 */
																									BgL_typez00_bglt
																										BgL_arg1715z00_1648;
																									BgL_arg1715z00_1648 =
																										(((BgL_variablez00_bglt)
																											COBJECT((
																													(BgL_variablez00_bglt)
																													((BgL_localz00_bglt)
																														BgL_fz00_1580))))->
																										BgL_typez00);
																									BgL_test1905z00_2523 =
																										(((obj_t)
																											BgL_arg1715z00_1648) ==
																										BGl_za2_za2z00zztype_cachez00);
																								}
																						}
																						if (BgL_test1905z00_2523)
																							{	/* Inline/simple.scm 72 */
																								bool_t BgL_test1907z00_2535;

																								{	/* Inline/simple.scm 72 */
																									obj_t BgL_classz00_1919;

																									BgL_classz00_1919 =
																										BGl_varz00zzast_nodez00;
																									if (BGL_OBJECTP
																										(BgL_az00_1581))
																										{	/* Inline/simple.scm 72 */
																											BgL_objectz00_bglt
																												BgL_arg1801z00_1921;
																											BgL_arg1801z00_1921 =
																												(BgL_objectz00_bglt)
																												(BgL_az00_1581);
																											if (BGL_CONDEXPAND_ISA_ARCH64())
																												{	/* Inline/simple.scm 72 */
																													long BgL_idxz00_1927;

																													BgL_idxz00_1927 =
																														BGL_OBJECT_INHERITANCE_NUM
																														(BgL_arg1801z00_1921);
																													BgL_test1907z00_2535 =
																														(VECTOR_REF
																														(BGl_za2inheritancesza2z00zz__objectz00,
																															(BgL_idxz00_1927 +
																																2L)) ==
																														BgL_classz00_1919);
																												}
																											else
																												{	/* Inline/simple.scm 72 */
																													bool_t
																														BgL_res1857z00_1949;
																													{	/* Inline/simple.scm 72 */
																														obj_t
																															BgL_oclassz00_1935;
																														{	/* Inline/simple.scm 72 */
																															long
																																BgL_arg1808z00_1941;
																															{	/* Inline/simple.scm 72 */
																																long
																																	BgL_arg1809z00_1942;
																																BgL_arg1809z00_1942
																																	=
																																	BGL_OBJECT_CLASS_NUM
																																	(BgL_arg1801z00_1921);
																																BgL_arg1808z00_1941
																																	=
																																	(BgL_arg1809z00_1942
																																	-
																																	OBJECT_TYPE);
																															}
																															BgL_oclassz00_1935
																																=
																																VECTOR_REF
																																(BGl_za2classesza2z00zz__objectz00,
																																BgL_arg1808z00_1941);
																														}
																														{	/* Inline/simple.scm 72 */
																															bool_t
																																BgL__ortest_1115z00_1936;
																															BgL__ortest_1115z00_1936
																																=
																																(BgL_classz00_1919
																																==
																																BgL_oclassz00_1935);
																															if (BgL__ortest_1115z00_1936)
																																{	/* Inline/simple.scm 72 */
																																	BgL_res1857z00_1949
																																		=
																																		BgL__ortest_1115z00_1936;
																																}
																															else
																																{	/* Inline/simple.scm 72 */
																																	long
																																		BgL_odepthz00_1937;
																																	BgL_odepthz00_1937
																																		=
																																		BGL_CLASS_DEPTH
																																		(BgL_oclassz00_1935);
																																	if ((2L <
																																			BgL_odepthz00_1937))
																																		{	/* Inline/simple.scm 72 */
																																			obj_t
																																				BgL_arg1797z00_1939;
																																			BgL_arg1797z00_1939
																																				=
																																				BGL_CLASS_ANCESTORS_REF
																																				(BgL_oclassz00_1935,
																																				2L);
																																			BgL_res1857z00_1949
																																				=
																																				(BgL_arg1797z00_1939
																																				==
																																				BgL_classz00_1919);
																																		}
																																	else
																																		{	/* Inline/simple.scm 72 */
																																			BgL_res1857z00_1949
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																													}
																													BgL_test1907z00_2535 =
																														BgL_res1857z00_1949;
																												}
																										}
																									else
																										{	/* Inline/simple.scm 72 */
																											BgL_test1907z00_2535 =
																												((bool_t) 0);
																										}
																								}
																								if (BgL_test1907z00_2535)
																									{	/* Inline/simple.scm 72 */
																										BgL_test1903z00_2516 =
																											(
																											(((BgL_variablez00_bglt)
																													COBJECT(((
																																(BgL_varz00_bglt)
																																COBJECT((
																																		(BgL_varz00_bglt)
																																		BgL_az00_1581)))->
																															BgL_variablez00)))->
																												BgL_accessz00) ==
																											CNST_TABLE_REF(0L));
																									}
																								else
																									{	/* Inline/simple.scm 72 */
																										BgL_test1903z00_2516 =
																											((bool_t) 0);
																									}
																							}
																						else
																							{	/* Inline/simple.scm 70 */
																								BgL_test1903z00_2516 =
																									((bool_t) 0);
																							}
																					}
																				else
																					{	/* Inline/simple.scm 69 */
																						BgL_test1903z00_2516 = ((bool_t) 0);
																					}
																				if (BgL_test1903z00_2516)
																					{	/* Inline/simple.scm 69 */
																						BgL_arg1592z00_1579 =
																							((obj_t)
																							(((BgL_varz00_bglt) COBJECT(
																										((BgL_varz00_bglt)
																											BgL_az00_1581)))->
																								BgL_variablez00));
																					}
																				else
																					{	/* Inline/simple.scm 76 */
																						bool_t BgL_test1912z00_2563;

																						if (
																							((((BgL_variablez00_bglt) COBJECT(
																											((BgL_variablez00_bglt)
																												((BgL_localz00_bglt)
																													BgL_fz00_1580))))->
																									BgL_accessz00) ==
																								CNST_TABLE_REF(0L)))
																							{	/* Inline/simple.scm 77 */
																								bool_t BgL_test1914z00_2570;

																								{	/* Inline/simple.scm 77 */
																									bool_t
																										BgL__ortest_1114z00_1638;
																									{	/* Inline/simple.scm 77 */
																										BgL_typez00_bglt
																											BgL_arg1709z00_1640;
																										BgL_arg1709z00_1640 =
																											(((BgL_variablez00_bglt)
																												COBJECT((
																														(BgL_variablez00_bglt)
																														((BgL_localz00_bglt)
																															BgL_fz00_1580))))->
																											BgL_typez00);
																										BgL__ortest_1114z00_1638 =
																											(((obj_t)
																												BgL_arg1709z00_1640) ==
																											BGl_za2intza2z00zztype_cachez00);
																									}
																									if (BgL__ortest_1114z00_1638)
																										{	/* Inline/simple.scm 77 */
																											BgL_test1914z00_2570 =
																												BgL__ortest_1114z00_1638;
																										}
																									else
																										{	/* Inline/simple.scm 78 */
																											BgL_typez00_bglt
																												BgL_arg1708z00_1639;
																											BgL_arg1708z00_1639 =
																												(((BgL_variablez00_bglt)
																													COBJECT((
																															(BgL_variablez00_bglt)
																															((BgL_localz00_bglt) BgL_fz00_1580))))->BgL_typez00);
																											BgL_test1914z00_2570 =
																												(((obj_t)
																													BgL_arg1708z00_1639)
																												==
																												BGl_za2longza2z00zztype_cachez00);
																										}
																								}
																								if (BgL_test1914z00_2570)
																									{	/* Inline/simple.scm 79 */
																										bool_t BgL_test1916z00_2582;

																										{	/* Inline/simple.scm 79 */
																											obj_t BgL_classz00_1956;

																											BgL_classz00_1956 =
																												BGl_atomz00zzast_nodez00;
																											if (BGL_OBJECTP
																												(BgL_az00_1581))
																												{	/* Inline/simple.scm 79 */
																													BgL_objectz00_bglt
																														BgL_arg1801z00_1958;
																													BgL_arg1801z00_1958 =
																														(BgL_objectz00_bglt)
																														(BgL_az00_1581);
																													if (BGL_CONDEXPAND_ISA_ARCH64())
																														{	/* Inline/simple.scm 79 */
																															long
																																BgL_idxz00_1964;
																															BgL_idxz00_1964 =
																																BGL_OBJECT_INHERITANCE_NUM
																																(BgL_arg1801z00_1958);
																															BgL_test1916z00_2582
																																=
																																(VECTOR_REF
																																(BGl_za2inheritancesza2z00zz__objectz00,
																																	(BgL_idxz00_1964
																																		+ 2L)) ==
																																BgL_classz00_1956);
																														}
																													else
																														{	/* Inline/simple.scm 79 */
																															bool_t
																																BgL_res1858z00_1986;
																															{	/* Inline/simple.scm 79 */
																																obj_t
																																	BgL_oclassz00_1972;
																																{	/* Inline/simple.scm 79 */
																																	long
																																		BgL_arg1808z00_1978;
																																	{	/* Inline/simple.scm 79 */
																																		long
																																			BgL_arg1809z00_1979;
																																		BgL_arg1809z00_1979
																																			=
																																			BGL_OBJECT_CLASS_NUM
																																			(BgL_arg1801z00_1958);
																																		BgL_arg1808z00_1978
																																			=
																																			(BgL_arg1809z00_1979
																																			-
																																			OBJECT_TYPE);
																																	}
																																	BgL_oclassz00_1972
																																		=
																																		VECTOR_REF
																																		(BGl_za2classesza2z00zz__objectz00,
																																		BgL_arg1808z00_1978);
																																}
																																{	/* Inline/simple.scm 79 */
																																	bool_t
																																		BgL__ortest_1115z00_1973;
																																	BgL__ortest_1115z00_1973
																																		=
																																		(BgL_classz00_1956
																																		==
																																		BgL_oclassz00_1972);
																																	if (BgL__ortest_1115z00_1973)
																																		{	/* Inline/simple.scm 79 */
																																			BgL_res1858z00_1986
																																				=
																																				BgL__ortest_1115z00_1973;
																																		}
																																	else
																																		{	/* Inline/simple.scm 79 */
																																			long
																																				BgL_odepthz00_1974;
																																			BgL_odepthz00_1974
																																				=
																																				BGL_CLASS_DEPTH
																																				(BgL_oclassz00_1972);
																																			if ((2L <
																																					BgL_odepthz00_1974))
																																				{	/* Inline/simple.scm 79 */
																																					obj_t
																																						BgL_arg1797z00_1976;
																																					BgL_arg1797z00_1976
																																						=
																																						BGL_CLASS_ANCESTORS_REF
																																						(BgL_oclassz00_1972,
																																						2L);
																																					BgL_res1858z00_1986
																																						=
																																						(BgL_arg1797z00_1976
																																						==
																																						BgL_classz00_1956);
																																				}
																																			else
																																				{	/* Inline/simple.scm 79 */
																																					BgL_res1858z00_1986
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																		}
																																}
																															}
																															BgL_test1916z00_2582
																																=
																																BgL_res1858z00_1986;
																														}
																												}
																											else
																												{	/* Inline/simple.scm 79 */
																													BgL_test1916z00_2582 =
																														((bool_t) 0);
																												}
																										}
																										if (BgL_test1916z00_2582)
																											{	/* Inline/simple.scm 79 */
																												BgL_test1912z00_2563 =
																													INTEGERP(
																													(((BgL_atomz00_bglt)
																															COBJECT((
																																	(BgL_atomz00_bglt)
																																	BgL_az00_1581)))->
																														BgL_valuez00));
																											}
																										else
																											{	/* Inline/simple.scm 79 */
																												BgL_test1912z00_2563 =
																													((bool_t) 0);
																											}
																									}
																								else
																									{	/* Inline/simple.scm 77 */
																										BgL_test1912z00_2563 =
																											((bool_t) 0);
																									}
																							}
																						else
																							{	/* Inline/simple.scm 76 */
																								BgL_test1912z00_2563 =
																									((bool_t) 0);
																							}
																						if (BgL_test1912z00_2563)
																							{	/* Inline/simple.scm 76 */
																								BgL_arg1592z00_1579 =
																									BgL_az00_1581;
																							}
																						else
																							{	/* Inline/simple.scm 85 */
																								BgL_svarz00_bglt
																									BgL_arg1698z00_1629;
																								{	/* Inline/simple.scm 85 */
																									BgL_svarz00_bglt
																										BgL_duplicated1118z00_1630;
																									BgL_svarz00_bglt
																										BgL_new1116z00_1631;
																									BgL_duplicated1118z00_1630 =
																										((BgL_svarz00_bglt) ((
																												(BgL_variablez00_bglt)
																												COBJECT((
																														(BgL_variablez00_bglt)
																														((BgL_localz00_bglt)
																															BgL_fz00_1580))))->
																											BgL_valuez00));
																									{	/* Inline/simple.scm 85 */
																										BgL_svarz00_bglt
																											BgL_new1119z00_1632;
																										BgL_new1119z00_1632 =
																											((BgL_svarz00_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_svarz00_bgl))));
																										{	/* Inline/simple.scm 85 */
																											long BgL_arg1706z00_1633;

																											BgL_arg1706z00_1633 =
																												BGL_CLASS_NUM
																												(BGl_svarz00zzast_varz00);
																											BGL_OBJECT_CLASS_NUM_SET((
																													(BgL_objectz00_bglt)
																													BgL_new1119z00_1632),
																												BgL_arg1706z00_1633);
																										}
																										{	/* Inline/simple.scm 85 */
																											BgL_objectz00_bglt
																												BgL_tmpz00_2613;
																											BgL_tmpz00_2613 =
																												((BgL_objectz00_bglt)
																												BgL_new1119z00_1632);
																											BGL_OBJECT_WIDENING_SET
																												(BgL_tmpz00_2613,
																												BFALSE);
																										}
																										((BgL_objectz00_bglt)
																											BgL_new1119z00_1632);
																										BgL_new1116z00_1631 =
																											BgL_new1119z00_1632;
																									}
																									((((BgL_svarz00_bglt)
																												COBJECT
																												(BgL_new1116z00_1631))->
																											BgL_locz00) =
																										((obj_t) ((
																													(BgL_svarz00_bglt)
																													COBJECT
																													(BgL_duplicated1118z00_1630))->
																												BgL_locz00)), BUNSPEC);
																									BgL_arg1698z00_1629 =
																										BgL_new1116z00_1631;
																								}
																								BgL_arg1592z00_1579 =
																									((obj_t)
																									BGl_clonezd2localzd2zzast_localz00
																									(((BgL_localz00_bglt)
																											BgL_fz00_1580),
																										((BgL_valuez00_bglt)
																											BgL_arg1698z00_1629)));
														}}}}}}
														BgL_newtail1258z00_1576 =
															MAKE_YOUNG_PAIR(BgL_arg1592z00_1579, BNIL);
													}
													SET_CDR(BgL_tail1257z00_1573,
														BgL_newtail1258z00_1576);
													{	/* Inline/simple.scm 52 */
														obj_t BgL_arg1586z00_1577;
														obj_t BgL_arg1590z00_1578;

														BgL_arg1586z00_1577 =
															CDR(((obj_t) BgL_ll1254z00_1571));
														BgL_arg1590z00_1578 =
															CDR(((obj_t) BgL_ll1255z00_1572));
														{
															obj_t BgL_tail1257z00_2631;
															obj_t BgL_ll1255z00_2630;
															obj_t BgL_ll1254z00_2629;

															BgL_ll1254z00_2629 = BgL_arg1586z00_1577;
															BgL_ll1255z00_2630 = BgL_arg1590z00_1578;
															BgL_tail1257z00_2631 = BgL_newtail1258z00_1576;
															BgL_tail1257z00_1573 = BgL_tail1257z00_2631;
															BgL_ll1255z00_1572 = BgL_ll1255z00_2630;
															BgL_ll1254z00_1571 = BgL_ll1254z00_2629;
															goto BgL_zc3z04anonymousza31581ze3z87_1574;
														}
													}
												}
										}
									}
								{	/* Inline/simple.scm 52 */
									obj_t BgL_bindingsz00_1451;

									{
										obj_t BgL_reductorsz00_1519;
										obj_t BgL_actualsz00_1520;
										obj_t BgL_resz00_1521;

										BgL_reductorsz00_1519 = BgL_reductorsz00_1450;
										BgL_actualsz00_1520 = BgL_actualsz00_1449;
										BgL_resz00_1521 = BNIL;
									BgL_zc3z04anonymousza31381ze3z87_1522:
										if (NULLP(BgL_actualsz00_1520))
											{	/* Inline/simple.scm 92 */
												BgL_bindingsz00_1451 =
													bgl_reverse_bang(BgL_resz00_1521);
											}
										else
											{	/* Inline/simple.scm 94 */
												bool_t BgL_test1922z00_2635;

												{	/* Inline/simple.scm 94 */
													bool_t BgL_test1923z00_2636;

													{	/* Inline/simple.scm 94 */
														obj_t BgL_arg1579z00_1564;

														BgL_arg1579z00_1564 =
															CAR(((obj_t) BgL_actualsz00_1520));
														{	/* Inline/simple.scm 94 */
															obj_t BgL_classz00_1997;

															BgL_classz00_1997 = BGl_closurez00zzast_nodez00;
															if (BGL_OBJECTP(BgL_arg1579z00_1564))
																{	/* Inline/simple.scm 94 */
																	BgL_objectz00_bglt BgL_arg1801z00_1999;

																	BgL_arg1801z00_1999 =
																		(BgL_objectz00_bglt) (BgL_arg1579z00_1564);
																	if (BGL_CONDEXPAND_ISA_ARCH64())
																		{	/* Inline/simple.scm 94 */
																			long BgL_idxz00_2005;

																			BgL_idxz00_2005 =
																				BGL_OBJECT_INHERITANCE_NUM
																				(BgL_arg1801z00_1999);
																			BgL_test1923z00_2636 =
																				(VECTOR_REF
																				(BGl_za2inheritancesza2z00zz__objectz00,
																					(BgL_idxz00_2005 + 3L)) ==
																				BgL_classz00_1997);
																		}
																	else
																		{	/* Inline/simple.scm 94 */
																			bool_t BgL_res1859z00_2027;

																			{	/* Inline/simple.scm 94 */
																				obj_t BgL_oclassz00_2013;

																				{	/* Inline/simple.scm 94 */
																					long BgL_arg1808z00_2019;

																					{	/* Inline/simple.scm 94 */
																						long BgL_arg1809z00_2020;

																						BgL_arg1809z00_2020 =
																							BGL_OBJECT_CLASS_NUM
																							(BgL_arg1801z00_1999);
																						BgL_arg1808z00_2019 =
																							(BgL_arg1809z00_2020 -
																							OBJECT_TYPE);
																					}
																					BgL_oclassz00_2013 =
																						VECTOR_REF
																						(BGl_za2classesza2z00zz__objectz00,
																						BgL_arg1808z00_2019);
																				}
																				{	/* Inline/simple.scm 94 */
																					bool_t BgL__ortest_1115z00_2014;

																					BgL__ortest_1115z00_2014 =
																						(BgL_classz00_1997 ==
																						BgL_oclassz00_2013);
																					if (BgL__ortest_1115z00_2014)
																						{	/* Inline/simple.scm 94 */
																							BgL_res1859z00_2027 =
																								BgL__ortest_1115z00_2014;
																						}
																					else
																						{	/* Inline/simple.scm 94 */
																							long BgL_odepthz00_2015;

																							BgL_odepthz00_2015 =
																								BGL_CLASS_DEPTH
																								(BgL_oclassz00_2013);
																							if ((3L < BgL_odepthz00_2015))
																								{	/* Inline/simple.scm 94 */
																									obj_t BgL_arg1797z00_2017;

																									BgL_arg1797z00_2017 =
																										BGL_CLASS_ANCESTORS_REF
																										(BgL_oclassz00_2013, 3L);
																									BgL_res1859z00_2027 =
																										(BgL_arg1797z00_2017 ==
																										BgL_classz00_1997);
																								}
																							else
																								{	/* Inline/simple.scm 94 */
																									BgL_res1859z00_2027 =
																										((bool_t) 0);
																								}
																						}
																				}
																			}
																			BgL_test1923z00_2636 =
																				BgL_res1859z00_2027;
																		}
																}
															else
																{	/* Inline/simple.scm 94 */
																	BgL_test1923z00_2636 = ((bool_t) 0);
																}
														}
													}
													if (BgL_test1923z00_2636)
														{	/* Inline/simple.scm 94 */
															BgL_test1922z00_2635 =
																(CAR(
																	((obj_t) BgL_reductorsz00_1519)) ==
																((obj_t)
																	(((BgL_varz00_bglt) COBJECT(
																				((BgL_varz00_bglt)
																					((BgL_closurez00_bglt)
																						CAR(
																							((obj_t)
																								BgL_actualsz00_1520))))))->
																		BgL_variablez00)));
														}
													else
														{	/* Inline/simple.scm 94 */
															BgL_test1922z00_2635 = ((bool_t) 0);
														}
												}
												if (BgL_test1922z00_2635)
													{	/* Inline/simple.scm 97 */
														obj_t BgL_arg1436z00_1531;
														obj_t BgL_arg1437z00_1532;

														BgL_arg1436z00_1531 =
															CDR(((obj_t) BgL_reductorsz00_1519));
														BgL_arg1437z00_1532 =
															CDR(((obj_t) BgL_actualsz00_1520));
														{
															obj_t BgL_actualsz00_2672;
															obj_t BgL_reductorsz00_2671;

															BgL_reductorsz00_2671 = BgL_arg1436z00_1531;
															BgL_actualsz00_2672 = BgL_arg1437z00_1532;
															BgL_actualsz00_1520 = BgL_actualsz00_2672;
															BgL_reductorsz00_1519 = BgL_reductorsz00_2671;
															goto BgL_zc3z04anonymousza31381ze3z87_1522;
														}
													}
												else
													{	/* Inline/simple.scm 94 */
														if (
															(CAR(
																	((obj_t) BgL_reductorsz00_1519)) ==
																CAR(((obj_t) BgL_actualsz00_1520))))
															{	/* Inline/simple.scm 101 */
																obj_t BgL_arg1453z00_1536;
																obj_t BgL_arg1479z00_1537;

																BgL_arg1453z00_1536 =
																	CDR(((obj_t) BgL_reductorsz00_1519));
																BgL_arg1479z00_1537 =
																	CDR(((obj_t) BgL_actualsz00_1520));
																{
																	obj_t BgL_actualsz00_2684;
																	obj_t BgL_reductorsz00_2683;

																	BgL_reductorsz00_2683 = BgL_arg1453z00_1536;
																	BgL_actualsz00_2684 = BgL_arg1479z00_1537;
																	BgL_actualsz00_1520 = BgL_actualsz00_2684;
																	BgL_reductorsz00_1519 = BgL_reductorsz00_2683;
																	goto BgL_zc3z04anonymousza31381ze3z87_1522;
																}
															}
														else
															{	/* Inline/simple.scm 104 */
																bool_t BgL_test1929z00_2685;

																{	/* Inline/simple.scm 104 */
																	bool_t BgL_test1930z00_2686;

																	{	/* Inline/simple.scm 104 */
																		obj_t BgL_arg1563z00_1557;

																		BgL_arg1563z00_1557 =
																			CAR(((obj_t) BgL_actualsz00_1520));
																		{	/* Inline/simple.scm 104 */
																			obj_t BgL_classz00_2038;

																			BgL_classz00_2038 =
																				BGl_varz00zzast_nodez00;
																			if (BGL_OBJECTP(BgL_arg1563z00_1557))
																				{	/* Inline/simple.scm 104 */
																					BgL_objectz00_bglt
																						BgL_arg1801z00_2040;
																					BgL_arg1801z00_2040 =
																						(BgL_objectz00_bglt)
																						(BgL_arg1563z00_1557);
																					if (BGL_CONDEXPAND_ISA_ARCH64())
																						{	/* Inline/simple.scm 104 */
																							long BgL_idxz00_2046;

																							BgL_idxz00_2046 =
																								BGL_OBJECT_INHERITANCE_NUM
																								(BgL_arg1801z00_2040);
																							BgL_test1930z00_2686 =
																								(VECTOR_REF
																								(BGl_za2inheritancesza2z00zz__objectz00,
																									(BgL_idxz00_2046 + 2L)) ==
																								BgL_classz00_2038);
																						}
																					else
																						{	/* Inline/simple.scm 104 */
																							bool_t BgL_res1860z00_2068;

																							{	/* Inline/simple.scm 104 */
																								obj_t BgL_oclassz00_2054;

																								{	/* Inline/simple.scm 104 */
																									long BgL_arg1808z00_2060;

																									{	/* Inline/simple.scm 104 */
																										long BgL_arg1809z00_2061;

																										BgL_arg1809z00_2061 =
																											BGL_OBJECT_CLASS_NUM
																											(BgL_arg1801z00_2040);
																										BgL_arg1808z00_2060 =
																											(BgL_arg1809z00_2061 -
																											OBJECT_TYPE);
																									}
																									BgL_oclassz00_2054 =
																										VECTOR_REF
																										(BGl_za2classesza2z00zz__objectz00,
																										BgL_arg1808z00_2060);
																								}
																								{	/* Inline/simple.scm 104 */
																									bool_t
																										BgL__ortest_1115z00_2055;
																									BgL__ortest_1115z00_2055 =
																										(BgL_classz00_2038 ==
																										BgL_oclassz00_2054);
																									if (BgL__ortest_1115z00_2055)
																										{	/* Inline/simple.scm 104 */
																											BgL_res1860z00_2068 =
																												BgL__ortest_1115z00_2055;
																										}
																									else
																										{	/* Inline/simple.scm 104 */
																											long BgL_odepthz00_2056;

																											BgL_odepthz00_2056 =
																												BGL_CLASS_DEPTH
																												(BgL_oclassz00_2054);
																											if ((2L <
																													BgL_odepthz00_2056))
																												{	/* Inline/simple.scm 104 */
																													obj_t
																														BgL_arg1797z00_2058;
																													BgL_arg1797z00_2058 =
																														BGL_CLASS_ANCESTORS_REF
																														(BgL_oclassz00_2054,
																														2L);
																													BgL_res1860z00_2068 =
																														(BgL_arg1797z00_2058
																														==
																														BgL_classz00_2038);
																												}
																											else
																												{	/* Inline/simple.scm 104 */
																													BgL_res1860z00_2068 =
																														((bool_t) 0);
																												}
																										}
																								}
																							}
																							BgL_test1930z00_2686 =
																								BgL_res1860z00_2068;
																						}
																				}
																			else
																				{	/* Inline/simple.scm 104 */
																					BgL_test1930z00_2686 = ((bool_t) 0);
																				}
																		}
																	}
																	if (BgL_test1930z00_2686)
																		{	/* Inline/simple.scm 104 */
																			BgL_test1929z00_2685 =
																				(CAR(
																					((obj_t) BgL_reductorsz00_1519)) ==
																				((obj_t)
																					(((BgL_varz00_bglt) COBJECT(
																								((BgL_varz00_bglt)
																									CAR(
																										((obj_t)
																											BgL_actualsz00_1520)))))->
																						BgL_variablez00)));
																		}
																	else
																		{	/* Inline/simple.scm 104 */
																			BgL_test1929z00_2685 = ((bool_t) 0);
																		}
																}
																if (BgL_test1929z00_2685)
																	{	/* Inline/simple.scm 106 */
																		obj_t BgL_arg1528z00_1545;
																		obj_t BgL_arg1532z00_1546;

																		BgL_arg1528z00_1545 =
																			CDR(((obj_t) BgL_reductorsz00_1519));
																		BgL_arg1532z00_1546 =
																			CDR(((obj_t) BgL_actualsz00_1520));
																		{
																			obj_t BgL_actualsz00_2721;
																			obj_t BgL_reductorsz00_2720;

																			BgL_reductorsz00_2720 =
																				BgL_arg1528z00_1545;
																			BgL_actualsz00_2721 = BgL_arg1532z00_1546;
																			BgL_actualsz00_1520 = BgL_actualsz00_2721;
																			BgL_reductorsz00_1519 =
																				BgL_reductorsz00_2720;
																			goto
																				BgL_zc3z04anonymousza31381ze3z87_1522;
																		}
																	}
																else
																	{	/* Inline/simple.scm 110 */
																		obj_t BgL_arg1534z00_1547;
																		obj_t BgL_arg1541z00_1548;
																		obj_t BgL_arg1545z00_1549;

																		BgL_arg1534z00_1547 =
																			CDR(((obj_t) BgL_reductorsz00_1519));
																		BgL_arg1541z00_1548 =
																			CDR(((obj_t) BgL_actualsz00_1520));
																		{	/* Inline/simple.scm 112 */
																			obj_t BgL_arg1546z00_1550;

																			{	/* Inline/simple.scm 112 */
																				obj_t BgL_arg1547z00_1551;
																				obj_t BgL_arg1550z00_1552;

																				BgL_arg1547z00_1551 =
																					CAR(((obj_t) BgL_reductorsz00_1519));
																				BgL_arg1550z00_1552 =
																					CAR(((obj_t) BgL_actualsz00_1520));
																				BgL_arg1546z00_1550 =
																					MAKE_YOUNG_PAIR(BgL_arg1547z00_1551,
																					BgL_arg1550z00_1552);
																			}
																			BgL_arg1545z00_1549 =
																				MAKE_YOUNG_PAIR(BgL_arg1546z00_1550,
																				BgL_resz00_1521);
																		}
																		{
																			obj_t BgL_resz00_2734;
																			obj_t BgL_actualsz00_2733;
																			obj_t BgL_reductorsz00_2732;

																			BgL_reductorsz00_2732 =
																				BgL_arg1534z00_1547;
																			BgL_actualsz00_2733 = BgL_arg1541z00_1548;
																			BgL_resz00_2734 = BgL_arg1545z00_1549;
																			BgL_resz00_1521 = BgL_resz00_2734;
																			BgL_actualsz00_1520 = BgL_actualsz00_2733;
																			BgL_reductorsz00_1519 =
																				BgL_reductorsz00_2732;
																			goto
																				BgL_zc3z04anonymousza31381ze3z87_1522;
																		}
																	}
															}
													}
											}
									}
									{	/* Inline/simple.scm 88 */
										obj_t BgL_bodyz00_1452;

										{	/* Inline/simple.scm 115 */
											bool_t BgL_test1935z00_2735;

											{	/* Inline/simple.scm 115 */
												obj_t BgL_classz00_2078;

												BgL_classz00_2078 = BGl_isfunz00zzinline_inlinez00;
												{	/* Inline/simple.scm 115 */
													BgL_objectz00_bglt BgL_arg1801z00_2080;

													{	/* Inline/simple.scm 115 */
														obj_t BgL_tmpz00_2736;

														BgL_tmpz00_2736 =
															((obj_t) ((BgL_objectz00_bglt) BgL_sfunz00_1447));
														BgL_arg1801z00_2080 =
															(BgL_objectz00_bglt) (BgL_tmpz00_2736);
													}
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* Inline/simple.scm 115 */
															long BgL_idxz00_2086;

															BgL_idxz00_2086 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2080);
															BgL_test1935z00_2735 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_2086 + 4L)) == BgL_classz00_2078);
														}
													else
														{	/* Inline/simple.scm 115 */
															bool_t BgL_res1861z00_2108;

															{	/* Inline/simple.scm 115 */
																obj_t BgL_oclassz00_2094;

																{	/* Inline/simple.scm 115 */
																	long BgL_arg1808z00_2100;

																	{	/* Inline/simple.scm 115 */
																		long BgL_arg1809z00_2101;

																		BgL_arg1809z00_2101 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2080);
																		BgL_arg1808z00_2100 =
																			(BgL_arg1809z00_2101 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_2094 =
																		VECTOR_REF
																		(BGl_za2classesza2z00zz__objectz00,
																		BgL_arg1808z00_2100);
																}
																{	/* Inline/simple.scm 115 */
																	bool_t BgL__ortest_1115z00_2095;

																	BgL__ortest_1115z00_2095 =
																		(BgL_classz00_2078 == BgL_oclassz00_2094);
																	if (BgL__ortest_1115z00_2095)
																		{	/* Inline/simple.scm 115 */
																			BgL_res1861z00_2108 =
																				BgL__ortest_1115z00_2095;
																		}
																	else
																		{	/* Inline/simple.scm 115 */
																			long BgL_odepthz00_2096;

																			BgL_odepthz00_2096 =
																				BGL_CLASS_DEPTH(BgL_oclassz00_2094);
																			if ((4L < BgL_odepthz00_2096))
																				{	/* Inline/simple.scm 115 */
																					obj_t BgL_arg1797z00_2098;

																					BgL_arg1797z00_2098 =
																						BGL_CLASS_ANCESTORS_REF
																						(BgL_oclassz00_2094, 4L);
																					BgL_res1861z00_2108 =
																						(BgL_arg1797z00_2098 ==
																						BgL_classz00_2078);
																				}
																			else
																				{	/* Inline/simple.scm 115 */
																					BgL_res1861z00_2108 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test1935z00_2735 = BgL_res1861z00_2108;
														}
												}
											}
											if (BgL_test1935z00_2735)
												{
													BgL_nodez00_bglt BgL_auxz00_2756;

													{
														BgL_isfunz00_bglt BgL_auxz00_2757;

														{
															obj_t BgL_auxz00_2758;

															{	/* Inline/simple.scm 116 */
																BgL_objectz00_bglt BgL_tmpz00_2759;

																BgL_tmpz00_2759 =
																	((BgL_objectz00_bglt)
																	((BgL_sfunz00_bglt) BgL_sfunz00_1447));
																BgL_auxz00_2758 =
																	BGL_OBJECT_WIDENING(BgL_tmpz00_2759);
															}
															BgL_auxz00_2757 =
																((BgL_isfunz00_bglt) BgL_auxz00_2758);
														}
														BgL_auxz00_2756 =
															(((BgL_isfunz00_bglt) COBJECT(BgL_auxz00_2757))->
															BgL_originalzd2bodyzd2);
													}
													BgL_bodyz00_1452 = ((obj_t) BgL_auxz00_2756);
												}
											else
												{	/* Inline/simple.scm 115 */
													BgL_bodyz00_1452 =
														(((BgL_sfunz00_bglt) COBJECT(
																((BgL_sfunz00_bglt) BgL_sfunz00_1447)))->
														BgL_bodyz00);
												}
										}
										{	/* Inline/simple.scm 118 */
											obj_t BgL_newzd2kfactorzd2_1454;

											BgL_newzd2kfactorzd2_1454 =
												(VA_PROCEDUREP
												(BGl_za2inliningzd2reducezd2kfactorza2z00zzengine_paramz00)
												? ((obj_t(*)(obj_t,
															...))
													PROCEDURE_ENTRY
													(BGl_za2inliningzd2reducezd2kfactorza2z00zzengine_paramz00))
												(BGl_za2inliningzd2reducezd2kfactorza2z00zzengine_paramz00,
													BINT(BgL_kfactorz00_4), BEOA) : ((obj_t(*)(obj_t,
															obj_t))
													PROCEDURE_ENTRY
													(BGl_za2inliningzd2reducezd2kfactorza2z00zzengine_paramz00))
												(BGl_za2inliningzd2reducezd2kfactorza2z00zzengine_paramz00,
													BINT(BgL_kfactorz00_4)));
											{	/* Inline/simple.scm 119 */
												obj_t BgL_locz00_1455;

												BgL_locz00_1455 =
													(((BgL_nodez00_bglt) COBJECT(BgL_nodez00_3))->
													BgL_locz00);
												{	/* Inline/simple.scm 120 */
													BgL_typez00_bglt BgL_typez00_1456;

													BgL_typez00_1456 =
														(((BgL_variablez00_bglt)
															COBJECT(BgL_calleez00_1446))->BgL_typez00);
													{	/* Inline/simple.scm 121 */

														((((BgL_variablez00_bglt)
																	COBJECT(BgL_calleez00_1446))->
																BgL_occurrencez00) =
															((long) ((((BgL_variablez00_bglt)
																			COBJECT(BgL_calleez00_1446))->
																		BgL_occurrencez00) - 1L)), BUNSPEC);
														if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00((
																		((BgL_sfunz00_bglt)
																			COBJECT(((BgL_sfunz00_bglt)
																					BgL_sfunz00_1447)))->BgL_classz00),
																	CNST_TABLE_REF(1L))))
															{	/* Inline/simple.scm 125 */
																BFALSE;
															}
														else
															{	/* Inline/simple.scm 126 */
																bool_t BgL_test1940z00_2784;

																if (INTEGERP
																	(BGl_za2verboseza2z00zzengine_paramz00))
																	{	/* Inline/simple.scm 126 */
																		BgL_test1940z00_2784 =
																			(3L <=
																			(long)
																			CINT
																			(BGl_za2verboseza2z00zzengine_paramz00));
																	}
																else
																	{	/* Inline/simple.scm 126 */
																		BgL_test1940z00_2784 =
																			BGl_2zc3zd3z10zz__r4_numbers_6_5z00(BINT
																			(3L),
																			BGl_za2verboseza2z00zzengine_paramz00);
																	}
																if (BgL_test1940z00_2784)
																	{	/* Inline/simple.scm 127 */
																		obj_t BgL_arg1282z00_1464;
																		obj_t BgL_arg1283z00_1465;

																		BgL_arg1282z00_1464 =
																			BGl_shapez00zztools_shapez00(
																			((obj_t) BgL_calleez00_1446));
																		BgL_arg1283z00_1465 =
																			BGl_currentzd2functionzd2zztools_errorz00
																			();
																		{	/* Inline/simple.scm 126 */
																			obj_t BgL_list1284z00_1466;

																			{	/* Inline/simple.scm 126 */
																				obj_t BgL_arg1285z00_1467;

																				{	/* Inline/simple.scm 126 */
																					obj_t BgL_arg1287z00_1468;

																					{	/* Inline/simple.scm 126 */
																						obj_t BgL_arg1289z00_1469;

																						{	/* Inline/simple.scm 126 */
																							obj_t BgL_arg1291z00_1470;

																							{	/* Inline/simple.scm 126 */
																								obj_t BgL_arg1292z00_1471;

																								{	/* Inline/simple.scm 126 */
																									obj_t BgL_arg1294z00_1472;

																									{	/* Inline/simple.scm 126 */
																										obj_t BgL_arg1322z00_1473;

																										BgL_arg1322z00_1473 =
																											MAKE_YOUNG_PAIR(BCHAR((
																													(unsigned char) 10)),
																											BNIL);
																										BgL_arg1294z00_1472 =
																											MAKE_YOUNG_PAIR(BCHAR((
																													(unsigned char) ')')),
																											BgL_arg1322z00_1473);
																									}
																									BgL_arg1292z00_1471 =
																										MAKE_YOUNG_PAIR
																										(BgL_msgz00_6,
																										BgL_arg1294z00_1472);
																								}
																								BgL_arg1291z00_1470 =
																									MAKE_YOUNG_PAIR
																									(BGl_string1870z00zzinline_simplez00,
																									BgL_arg1292z00_1471);
																							}
																							BgL_arg1289z00_1469 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1283z00_1465,
																								BgL_arg1291z00_1470);
																						}
																						BgL_arg1287z00_1468 =
																							MAKE_YOUNG_PAIR
																							(BGl_string1871z00zzinline_simplez00,
																							BgL_arg1289z00_1469);
																					}
																					BgL_arg1285z00_1467 =
																						MAKE_YOUNG_PAIR(BgL_arg1282z00_1464,
																						BgL_arg1287z00_1468);
																				}
																				BgL_list1284z00_1466 =
																					MAKE_YOUNG_PAIR
																					(BGl_string1872z00zzinline_simplez00,
																					BgL_arg1285z00_1467);
																			}
																			BGl_verbosez00zztools_speekz00(BINT(3L),
																				BgL_list1284z00_1466);
																	}}
																else
																	{	/* Inline/simple.scm 126 */
																		BUNSPEC;
																	}
															}
														{	/* Inline/simple.scm 133 */
															BgL_nodez00_bglt BgL_alphazd2bodyzd2_1476;

															BgL_alphazd2bodyzd2_1476 =
																BGl_alphatiza7eza7zzast_alphatiza7eza7
																(BgL_formalsz00_1448, BgL_reductorsz00_1450,
																BgL_locz00_1455,
																((BgL_nodez00_bglt) BgL_bodyz00_1452));
															{	/* Inline/simple.scm 133 */

																BGl_spreadzd2sidezd2effectz12z12zzeffect_spreadz00
																	(BgL_alphazd2bodyzd2_1476);
																{	/* Inline/simple.scm 137 */
																	BgL_nodez00_bglt BgL_inodez00_1477;

																	{	/* Inline/simple.scm 137 */
																		obj_t BgL_arg1373z00_1515;

																		BgL_arg1373z00_1515 =
																			MAKE_YOUNG_PAIR(
																			((obj_t) BgL_calleez00_1446),
																			BgL_stackz00_5);
																		BgL_inodez00_1477 =
																			BGl_inlinezd2nodezd2zzinline_inlinez00
																			(BgL_alphazd2bodyzd2_1476,
																			(long) CINT(BgL_newzd2kfactorzd2_1454),
																			BgL_arg1373z00_1515);
																	}
																	{	/* Inline/simple.scm 137 */
																		BgL_letzd2varzd2_bglt BgL_ibodyz00_1478;

																		{	/* Inline/simple.scm 138 */
																			BgL_letzd2varzd2_bglt BgL_new1124z00_1511;

																			{	/* Inline/simple.scm 139 */
																				BgL_letzd2varzd2_bglt
																					BgL_new1123z00_1513;
																				BgL_new1123z00_1513 =
																					((BgL_letzd2varzd2_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_letzd2varzd2_bgl))));
																				{	/* Inline/simple.scm 139 */
																					long BgL_arg1372z00_1514;

																					BgL_arg1372z00_1514 =
																						BGL_CLASS_NUM
																						(BGl_letzd2varzd2zzast_nodez00);
																					BGL_OBJECT_CLASS_NUM_SET((
																							(BgL_objectz00_bglt)
																							BgL_new1123z00_1513),
																						BgL_arg1372z00_1514);
																				}
																				{	/* Inline/simple.scm 139 */
																					BgL_objectz00_bglt BgL_tmpz00_2817;

																					BgL_tmpz00_2817 =
																						((BgL_objectz00_bglt)
																						BgL_new1123z00_1513);
																					BGL_OBJECT_WIDENING_SET
																						(BgL_tmpz00_2817, BFALSE);
																				}
																				((BgL_objectz00_bglt)
																					BgL_new1123z00_1513);
																				BgL_new1124z00_1511 =
																					BgL_new1123z00_1513;
																			}
																			((((BgL_nodez00_bglt) COBJECT(
																							((BgL_nodez00_bglt)
																								BgL_new1124z00_1511)))->
																					BgL_locz00) =
																				((obj_t) BgL_locz00_1455), BUNSPEC);
																			{
																				BgL_typez00_bglt BgL_auxz00_2823;

																				{	/* Inline/simple.scm 141 */
																					BgL_typez00_bglt BgL_arg1369z00_1512;

																					BgL_arg1369z00_1512 =
																						(((BgL_nodez00_bglt)
																							COBJECT(BgL_inodez00_1477))->
																						BgL_typez00);
																					BgL_auxz00_2823 =
																						BGl_strictzd2nodezd2typez00zzast_nodez00
																						(BgL_arg1369z00_1512,
																						BgL_typez00_1456);
																				}
																				((((BgL_nodez00_bglt) COBJECT(
																								((BgL_nodez00_bglt)
																									BgL_new1124z00_1511)))->
																						BgL_typez00) =
																					((BgL_typez00_bglt) BgL_auxz00_2823),
																					BUNSPEC);
																			}
																			((((BgL_nodezf2effectzf2_bglt) COBJECT(
																							((BgL_nodezf2effectzf2_bglt)
																								BgL_new1124z00_1511)))->
																					BgL_sidezd2effectzd2) =
																				((obj_t)
																					BBOOL
																					(BGl_sidezd2effectzf3z21zzeffect_effectz00
																						(BgL_alphazd2bodyzd2_1476))),
																				BUNSPEC);
																			((((BgL_nodezf2effectzf2_bglt)
																						COBJECT(((BgL_nodezf2effectzf2_bglt)
																								BgL_new1124z00_1511)))->
																					BgL_keyz00) =
																				((obj_t) BINT(-1L)), BUNSPEC);
																			((((BgL_letzd2varzd2_bglt)
																						COBJECT(BgL_new1124z00_1511))->
																					BgL_bindingsz00) =
																				((obj_t) BgL_bindingsz00_1451),
																				BUNSPEC);
																			((((BgL_letzd2varzd2_bglt)
																						COBJECT(BgL_new1124z00_1511))->
																					BgL_bodyz00) =
																				((BgL_nodez00_bglt) BgL_inodez00_1477),
																				BUNSPEC);
																			((((BgL_letzd2varzd2_bglt)
																						COBJECT(BgL_new1124z00_1511))->
																					BgL_removablezf3zf3) =
																				((bool_t) ((bool_t) 1)), BUNSPEC);
																			BgL_ibodyz00_1478 = BgL_new1124z00_1511;
																		}
																		{	/* Inline/simple.scm 138 */

																			{
																				obj_t BgL_ll1260z00_1480;
																				obj_t BgL_ll1261z00_1481;

																				BgL_ll1260z00_1480 =
																					BgL_reductorsz00_1450;
																				BgL_ll1261z00_1481 =
																					BgL_formalsz00_1448;
																			BgL_zc3z04anonymousza31324ze3z87_1482:
																				if (NULLP(BgL_ll1260z00_1480))
																					{	/* Inline/simple.scm 145 */
																						((bool_t) 1);
																					}
																				else
																					{	/* Inline/simple.scm 145 */
																						{	/* Inline/simple.scm 146 */
																							obj_t BgL_reductorz00_1484;
																							obj_t BgL_formalz00_1485;

																							BgL_reductorz00_1484 =
																								CAR(
																								((obj_t) BgL_ll1260z00_1480));
																							BgL_formalz00_1485 =
																								CAR(
																								((obj_t) BgL_ll1261z00_1481));
																							{	/* Inline/simple.scm 146 */
																								bool_t BgL_test1943z00_2844;

																								{	/* Inline/simple.scm 146 */
																									obj_t BgL_classz00_2126;

																									BgL_classz00_2126 =
																										BGl_localz00zzast_varz00;
																									if (BGL_OBJECTP
																										(BgL_reductorz00_1484))
																										{	/* Inline/simple.scm 146 */
																											BgL_objectz00_bglt
																												BgL_arg1801z00_2128;
																											BgL_arg1801z00_2128 =
																												(BgL_objectz00_bglt)
																												(BgL_reductorz00_1484);
																											if (BGL_CONDEXPAND_ISA_ARCH64())
																												{	/* Inline/simple.scm 146 */
																													long BgL_idxz00_2134;

																													BgL_idxz00_2134 =
																														BGL_OBJECT_INHERITANCE_NUM
																														(BgL_arg1801z00_2128);
																													BgL_test1943z00_2844 =
																														(VECTOR_REF
																														(BGl_za2inheritancesza2z00zz__objectz00,
																															(BgL_idxz00_2134 +
																																2L)) ==
																														BgL_classz00_2126);
																												}
																											else
																												{	/* Inline/simple.scm 146 */
																													bool_t
																														BgL_res1862z00_2156;
																													{	/* Inline/simple.scm 146 */
																														obj_t
																															BgL_oclassz00_2142;
																														{	/* Inline/simple.scm 146 */
																															long
																																BgL_arg1808z00_2148;
																															{	/* Inline/simple.scm 146 */
																																long
																																	BgL_arg1809z00_2149;
																																BgL_arg1809z00_2149
																																	=
																																	BGL_OBJECT_CLASS_NUM
																																	(BgL_arg1801z00_2128);
																																BgL_arg1808z00_2148
																																	=
																																	(BgL_arg1809z00_2149
																																	-
																																	OBJECT_TYPE);
																															}
																															BgL_oclassz00_2142
																																=
																																VECTOR_REF
																																(BGl_za2classesza2z00zz__objectz00,
																																BgL_arg1808z00_2148);
																														}
																														{	/* Inline/simple.scm 146 */
																															bool_t
																																BgL__ortest_1115z00_2143;
																															BgL__ortest_1115z00_2143
																																=
																																(BgL_classz00_2126
																																==
																																BgL_oclassz00_2142);
																															if (BgL__ortest_1115z00_2143)
																																{	/* Inline/simple.scm 146 */
																																	BgL_res1862z00_2156
																																		=
																																		BgL__ortest_1115z00_2143;
																																}
																															else
																																{	/* Inline/simple.scm 146 */
																																	long
																																		BgL_odepthz00_2144;
																																	BgL_odepthz00_2144
																																		=
																																		BGL_CLASS_DEPTH
																																		(BgL_oclassz00_2142);
																																	if ((2L <
																																			BgL_odepthz00_2144))
																																		{	/* Inline/simple.scm 146 */
																																			obj_t
																																				BgL_arg1797z00_2146;
																																			BgL_arg1797z00_2146
																																				=
																																				BGL_CLASS_ANCESTORS_REF
																																				(BgL_oclassz00_2142,
																																				2L);
																																			BgL_res1862z00_2156
																																				=
																																				(BgL_arg1797z00_2146
																																				==
																																				BgL_classz00_2126);
																																		}
																																	else
																																		{	/* Inline/simple.scm 146 */
																																			BgL_res1862z00_2156
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																													}
																													BgL_test1943z00_2844 =
																														BgL_res1862z00_2156;
																												}
																										}
																									else
																										{	/* Inline/simple.scm 146 */
																											BgL_test1943z00_2844 =
																												((bool_t) 0);
																										}
																								}
																								if (BgL_test1943z00_2844)
																									{	/* Inline/simple.scm 147 */
																										bool_t BgL_arg1330z00_1487;

																										BgL_arg1330z00_1487 =
																											(((BgL_variablez00_bglt)
																												COBJECT((
																														(BgL_variablez00_bglt)
																														((BgL_localz00_bglt)
																															BgL_formalz00_1485))))->
																											BgL_userzf3zf3);
																										((((BgL_variablez00_bglt)
																													COBJECT((
																															(BgL_variablez00_bglt)
																															((BgL_localz00_bglt) BgL_reductorz00_1484))))->BgL_userzf3zf3) = ((bool_t) BgL_arg1330z00_1487), BUNSPEC);
																									}
																								else
																									{	/* Inline/simple.scm 146 */
																										BFALSE;
																									}
																							}
																						}
																						{	/* Inline/simple.scm 145 */
																							obj_t BgL_arg1331z00_1488;
																							obj_t BgL_arg1332z00_1489;

																							BgL_arg1331z00_1488 =
																								CDR(
																								((obj_t) BgL_ll1260z00_1480));
																							BgL_arg1332z00_1489 =
																								CDR(
																								((obj_t) BgL_ll1261z00_1481));
																							{
																								obj_t BgL_ll1261z00_2875;
																								obj_t BgL_ll1260z00_2874;

																								BgL_ll1260z00_2874 =
																									BgL_arg1331z00_1488;
																								BgL_ll1261z00_2875 =
																									BgL_arg1332z00_1489;
																								BgL_ll1261z00_1481 =
																									BgL_ll1261z00_2875;
																								BgL_ll1260z00_1480 =
																									BgL_ll1260z00_2874;
																								goto
																									BgL_zc3z04anonymousza31324ze3z87_1482;
																							}
																						}
																					}
																			}
																			{	/* Inline/simple.scm 154 */
																				bool_t BgL_test1948z00_2876;

																				if (
																					(((obj_t) BgL_typez00_1456) ==
																						BGl_za2_za2z00zztype_cachez00))
																					{	/* Inline/simple.scm 154 */
																						BgL_test1948z00_2876 = ((bool_t) 1);
																					}
																				else
																					{	/* Inline/simple.scm 154 */
																						if (
																							(((obj_t) BgL_typez00_1456) ==
																								BGl_za2objza2z00zztype_cachez00))
																							{	/* Inline/simple.scm 155 */
																								BgL_test1948z00_2876 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Inline/simple.scm 155 */
																								if (
																									(((obj_t) BgL_typez00_1456) ==
																										((obj_t)
																											(((BgL_nodez00_bglt)
																													COBJECT
																													(BgL_alphazd2bodyzd2_1476))->
																												BgL_typez00))))
																									{	/* Inline/simple.scm 156 */
																										BgL_test1948z00_2876 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Inline/simple.scm 157 */
																										BgL_typez00_bglt
																											BgL_arg1363z00_1509;
																										BgL_arg1363z00_1509 =
																											BGl_getzd2typezd2zztype_typeofz00
																											(BgL_alphazd2bodyzd2_1476,
																											((bool_t) 1));
																										BgL_test1948z00_2876 =
																											(((obj_t)
																												BgL_typez00_1456) ==
																											((obj_t)
																												BgL_arg1363z00_1509));
																									}
																							}
																					}
																				if (BgL_test1948z00_2876)
																					{	/* Inline/simple.scm 154 */
																						if (CBOOL(
																								(((BgL_appz00_bglt) COBJECT(
																											((BgL_appz00_bglt)
																												BgL_nodez00_3)))->
																									BgL_stackablez00)))
																							{	/* Inline/simple.scm 159 */
																								return
																									BGl_stackablez12z12zzinline_simplez00
																									(((BgL_appz00_bglt)
																										BgL_nodez00_3),
																									((BgL_nodez00_bglt)
																										BgL_ibodyz00_1478));
																							}
																						else
																							{	/* Inline/simple.scm 159 */
																								return
																									((BgL_nodez00_bglt)
																									BgL_ibodyz00_1478);
																							}
																					}
																				else
																					{	/* Inline/simple.scm 162 */
																						BgL_localz00_bglt BgL_varz00_1498;

																						BgL_varz00_1498 =
																							BGl_makezd2localzd2svarz00zzast_localz00
																							(BGl_gensymz00zz__r4_symbols_6_4z00
																							(CNST_TABLE_REF(2L)),
																							BgL_typez00_1456);
																						{	/* Inline/simple.scm 163 */
																							BgL_letzd2varzd2_bglt
																								BgL_new1128z00_1499;
																							{	/* Inline/simple.scm 164 */
																								BgL_letzd2varzd2_bglt
																									BgL_new1127z00_1505;
																								BgL_new1127z00_1505 =
																									((BgL_letzd2varzd2_bglt)
																									BOBJECT(GC_MALLOC(sizeof
																											(struct
																												BgL_letzd2varzd2_bgl))));
																								{	/* Inline/simple.scm 164 */
																									long BgL_arg1354z00_1506;

																									BgL_arg1354z00_1506 =
																										BGL_CLASS_NUM
																										(BGl_letzd2varzd2zzast_nodez00);
																									BGL_OBJECT_CLASS_NUM_SET((
																											(BgL_objectz00_bglt)
																											BgL_new1127z00_1505),
																										BgL_arg1354z00_1506);
																								}
																								{	/* Inline/simple.scm 164 */
																									BgL_objectz00_bglt
																										BgL_tmpz00_2907;
																									BgL_tmpz00_2907 =
																										((BgL_objectz00_bglt)
																										BgL_new1127z00_1505);
																									BGL_OBJECT_WIDENING_SET
																										(BgL_tmpz00_2907, BFALSE);
																								}
																								((BgL_objectz00_bglt)
																									BgL_new1127z00_1505);
																								BgL_new1128z00_1499 =
																									BgL_new1127z00_1505;
																							}
																							((((BgL_nodez00_bglt) COBJECT(
																											((BgL_nodez00_bglt)
																												BgL_new1128z00_1499)))->
																									BgL_locz00) =
																								((obj_t) BgL_locz00_1455),
																								BUNSPEC);
																							((((BgL_nodez00_bglt)
																										COBJECT(((BgL_nodez00_bglt)
																												BgL_new1128z00_1499)))->
																									BgL_typez00) =
																								((BgL_typez00_bglt)
																									BgL_typez00_1456), BUNSPEC);
																							((((BgL_nodezf2effectzf2_bglt)
																										COBJECT((
																												(BgL_nodezf2effectzf2_bglt)
																												BgL_new1128z00_1499)))->
																									BgL_sidezd2effectzd2) =
																								((obj_t)
																									BBOOL
																									(BGl_sidezd2effectzf3z21zzeffect_effectz00
																										(((BgL_nodez00_bglt)
																												BgL_ibodyz00_1478)))),
																								BUNSPEC);
																							((((BgL_nodezf2effectzf2_bglt)
																										COBJECT((
																												(BgL_nodezf2effectzf2_bglt)
																												BgL_new1128z00_1499)))->
																									BgL_keyz00) =
																								((obj_t) BINT(-1L)), BUNSPEC);
																							{
																								obj_t BgL_auxz00_2923;

																								{	/* Inline/simple.scm 167 */
																									obj_t BgL_arg1347z00_1500;

																									BgL_arg1347z00_1500 =
																										MAKE_YOUNG_PAIR(
																										((obj_t) BgL_varz00_1498),
																										((obj_t)
																											BgL_ibodyz00_1478));
																									{	/* Inline/simple.scm 167 */
																										obj_t BgL_list1348z00_1501;

																										BgL_list1348z00_1501 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1347z00_1500,
																											BNIL);
																										BgL_auxz00_2923 =
																											BgL_list1348z00_1501;
																								}}
																								((((BgL_letzd2varzd2_bglt)
																											COBJECT
																											(BgL_new1128z00_1499))->
																										BgL_bindingsz00) =
																									((obj_t) BgL_auxz00_2923),
																									BUNSPEC);
																							}
																							{
																								BgL_nodez00_bglt
																									BgL_auxz00_2929;
																								{	/* Inline/simple.scm 168 */
																									BgL_refz00_bglt
																										BgL_new1131z00_1502;
																									{	/* Inline/simple.scm 169 */
																										BgL_refz00_bglt
																											BgL_new1129z00_1503;
																										BgL_new1129z00_1503 =
																											((BgL_refz00_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_refz00_bgl))));
																										{	/* Inline/simple.scm 169 */
																											long BgL_arg1352z00_1504;

																											{	/* Inline/simple.scm 169 */
																												obj_t BgL_classz00_2168;

																												BgL_classz00_2168 =
																													BGl_refz00zzast_nodez00;
																												BgL_arg1352z00_1504 =
																													BGL_CLASS_NUM
																													(BgL_classz00_2168);
																											}
																											BGL_OBJECT_CLASS_NUM_SET(
																												((BgL_objectz00_bglt)
																													BgL_new1129z00_1503),
																												BgL_arg1352z00_1504);
																										}
																										{	/* Inline/simple.scm 169 */
																											BgL_objectz00_bglt
																												BgL_tmpz00_2934;
																											BgL_tmpz00_2934 =
																												((BgL_objectz00_bglt)
																												BgL_new1129z00_1503);
																											BGL_OBJECT_WIDENING_SET
																												(BgL_tmpz00_2934,
																												BFALSE);
																										}
																										((BgL_objectz00_bglt)
																											BgL_new1129z00_1503);
																										BgL_new1131z00_1502 =
																											BgL_new1129z00_1503;
																									}
																									((((BgL_nodez00_bglt) COBJECT(
																													((BgL_nodez00_bglt)
																														BgL_new1131z00_1502)))->
																											BgL_locz00) =
																										((obj_t) BgL_locz00_1455),
																										BUNSPEC);
																									((((BgL_nodez00_bglt)
																												COBJECT((
																														(BgL_nodez00_bglt)
																														BgL_new1131z00_1502)))->
																											BgL_typez00) =
																										((BgL_typez00_bglt)
																											BgL_typez00_1456),
																										BUNSPEC);
																									((((BgL_varz00_bglt)
																												COBJECT((
																														(BgL_varz00_bglt)
																														BgL_new1131z00_1502)))->
																											BgL_variablez00) =
																										((BgL_variablez00_bglt) (
																												(BgL_variablez00_bglt)
																												BgL_varz00_1498)),
																										BUNSPEC);
																									BgL_auxz00_2929 =
																										((BgL_nodez00_bglt)
																										BgL_new1131z00_1502);
																								}
																								((((BgL_letzd2varzd2_bglt)
																											COBJECT
																											(BgL_new1128z00_1499))->
																										BgL_bodyz00) =
																									((BgL_nodez00_bglt)
																										BgL_auxz00_2929), BUNSPEC);
																							}
																							((((BgL_letzd2varzd2_bglt)
																										COBJECT
																										(BgL_new1128z00_1499))->
																									BgL_removablezf3zf3) =
																								((bool_t) ((bool_t) 1)),
																								BUNSPEC);
																							return ((BgL_nodez00_bglt)
																								BgL_new1128z00_1499);
																						}
																					}
																			}
																		}
																	}
																}
															}
														}
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &inline-app-simple */
	BgL_nodez00_bglt BGl_z62inlinezd2appzd2simplez62zzinline_simplez00(obj_t
		BgL_envz00_2359, obj_t BgL_nodez00_2360, obj_t BgL_kfactorz00_2361,
		obj_t BgL_stackz00_2362, obj_t BgL_msgz00_2363)
	{
		{	/* Inline/simple.scm 46 */
			return
				BGl_inlinezd2appzd2simplez00zzinline_simplez00(
				((BgL_nodez00_bglt) BgL_nodez00_2360),
				(long) CINT(BgL_kfactorz00_2361), BgL_stackz00_2362, BgL_msgz00_2363);
		}

	}



/* stackable! */
	BgL_nodez00_bglt BGl_stackablez12z12zzinline_simplez00(BgL_appz00_bglt
		BgL_oldz00_7, BgL_nodez00_bglt BgL_newz00_8)
	{
		{	/* Inline/simple.scm 178 */
			BGl_occurzd2nodez12zc0zzast_occurz00(BgL_newz00_8);
			{	/* Inline/simple.scm 180 */
				obj_t BgL_rnewz00_1667;

				BgL_rnewz00_1667 = BGl_nodezd2removez12zc0zzast_removez00(BgL_newz00_8);
				{	/* Inline/simple.scm 181 */
					bool_t BgL_test1953z00_2954;

					{	/* Inline/simple.scm 181 */
						obj_t BgL_classz00_2172;

						BgL_classz00_2172 = BGl_appz00zzast_nodez00;
						if (BGL_OBJECTP(BgL_rnewz00_1667))
							{	/* Inline/simple.scm 181 */
								BgL_objectz00_bglt BgL_arg1801z00_2174;

								BgL_arg1801z00_2174 = (BgL_objectz00_bglt) (BgL_rnewz00_1667);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Inline/simple.scm 181 */
										long BgL_idxz00_2180;

										BgL_idxz00_2180 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2174);
										BgL_test1953z00_2954 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_2180 + 3L)) == BgL_classz00_2172);
									}
								else
									{	/* Inline/simple.scm 181 */
										bool_t BgL_res1864z00_2202;

										{	/* Inline/simple.scm 181 */
											obj_t BgL_oclassz00_2188;

											{	/* Inline/simple.scm 181 */
												long BgL_arg1808z00_2194;

												{	/* Inline/simple.scm 181 */
													long BgL_arg1809z00_2195;

													BgL_arg1809z00_2195 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2174);
													BgL_arg1808z00_2194 =
														(BgL_arg1809z00_2195 - OBJECT_TYPE);
												}
												BgL_oclassz00_2188 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_2194);
											}
											{	/* Inline/simple.scm 181 */
												bool_t BgL__ortest_1115z00_2189;

												BgL__ortest_1115z00_2189 =
													(BgL_classz00_2172 == BgL_oclassz00_2188);
												if (BgL__ortest_1115z00_2189)
													{	/* Inline/simple.scm 181 */
														BgL_res1864z00_2202 = BgL__ortest_1115z00_2189;
													}
												else
													{	/* Inline/simple.scm 181 */
														long BgL_odepthz00_2190;

														BgL_odepthz00_2190 =
															BGL_CLASS_DEPTH(BgL_oclassz00_2188);
														if ((3L < BgL_odepthz00_2190))
															{	/* Inline/simple.scm 181 */
																obj_t BgL_arg1797z00_2192;

																BgL_arg1797z00_2192 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2188,
																	3L);
																BgL_res1864z00_2202 =
																	(BgL_arg1797z00_2192 == BgL_classz00_2172);
															}
														else
															{	/* Inline/simple.scm 181 */
																BgL_res1864z00_2202 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test1953z00_2954 = BgL_res1864z00_2202;
									}
							}
						else
							{	/* Inline/simple.scm 181 */
								BgL_test1953z00_2954 = ((bool_t) 0);
							}
					}
					if (BgL_test1953z00_2954)
						{	/* Inline/simple.scm 181 */
							((((BgL_appz00_bglt) COBJECT(
											((BgL_appz00_bglt) BgL_rnewz00_1667)))->
									BgL_stackablez00) = ((obj_t) BTRUE), BUNSPEC);
							BgL_rnewz00_1667;
						}
					else
						{	/* Inline/simple.scm 181 */
							((obj_t) BgL_newz00_8);
						}
				}
				return BgL_newz00_8;
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zzinline_simplez00(void)
	{
		{	/* Inline/simple.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zzinline_simplez00(void)
	{
		{	/* Inline/simple.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zzinline_simplez00(void)
	{
		{	/* Inline/simple.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zzinline_simplez00(void)
	{
		{	/* Inline/simple.scm 15 */
			BGl_modulezd2initializa7ationz75zztools_tracez00(54713316L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzengine_paramz00(517137079L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zztype_typez00(515343395L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zztype_cachez00(346491734L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zztype_typeofz00(398780265L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzast_varz00(90839984L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzast_nodez00(469732712L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzast_localz00(315247917L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzast_removez00(383247627L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzast_occurz00(282085879L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zztools_shapez00(365925558L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zztools_speekz00(61247943L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zztools_errorz00(300504031L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzinline_inlinez00(20504962L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzinline_siza7eza7(243191744L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzmodule_modulez00(158397907L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzast_alphatiza7eza7(53595773L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzast_sexpz00(163122759L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			BGl_modulezd2initializa7ationz75zzeffect_effectz00(460136018L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
			return
				BGl_modulezd2initializa7ationz75zzeffect_spreadz00(348216764L,
				BSTRING_TO_STRING(BGl_string1873z00zzinline_simplez00));
		}

	}

#ifdef __cplusplus
}
#endif
