/*===========================================================================*/
/*   (Cgen/capp.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 Cgen/capp.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_CGEN_CAPP_TYPE_DEFINITIONS
#define BGL_CGEN_CAPP_TYPE_DEFINITIONS

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

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

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

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

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

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

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

	typedef struct BgL_nodez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
	}              *BgL_nodez00_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_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_appzd2lyzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_funz00;
		struct BgL_nodez00_bgl *BgL_argz00;
	}                  *BgL_appzd2lyzd2_bglt;

	typedef struct BgL_funcallz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_funz00;
		obj_t BgL_argsz00;
		obj_t BgL_strengthz00;
		obj_t BgL_functionsz00;
	}                 *BgL_funcallz00_bglt;

	typedef struct BgL_setqz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_varz00_bgl *BgL_varz00;
		struct BgL_nodez00_bgl *BgL_valuez00;
	}              *BgL_setqz00_bglt;

	typedef struct BgL_copz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
	}             *BgL_copz00_bglt;

	typedef struct BgL_clabelz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_namez00;
		bool_t BgL_usedzf3zf3;
		obj_t BgL_bodyz00;
	}                *BgL_clabelz00_bglt;

	typedef struct BgL_cgotoz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_clabelz00_bgl *BgL_labelz00;
	}               *BgL_cgotoz00_bglt;

	typedef struct BgL_cblockz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_copz00_bgl *BgL_bodyz00;
	}                *BgL_cblockz00_bglt;

	typedef struct BgL_varcz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_variablez00_bgl *BgL_variablez00;
	}              *BgL_varcz00_bglt;

	typedef struct BgL_cpragmaz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_formatz00;
		obj_t BgL_argsz00;
	}                 *BgL_cpragmaz00_bglt;

	typedef struct BgL_csequencez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		bool_t BgL_czd2expzf3z21;
		obj_t BgL_copsz00;
	}                   *BgL_csequencez00_bglt;

	typedef struct BgL_stopz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_copz00_bgl *BgL_valuez00;
	}              *BgL_stopz00_bglt;

	typedef struct BgL_csetqz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_varcz00_bgl *BgL_varz00;
		struct BgL_copz00_bgl *BgL_valuez00;
	}               *BgL_csetqz00_bglt;

	typedef struct BgL_localzd2varzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_varsz00;
	}                     *BgL_localzd2varzd2_bglt;

	typedef struct BgL_cfuncallz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_copz00_bgl *BgL_funz00;
		obj_t BgL_argsz00;
		obj_t BgL_strengthz00;
	}                  *BgL_cfuncallz00_bglt;

	typedef struct BgL_capplyz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_copz00_bgl *BgL_funz00;
		struct BgL_copz00_bgl *BgL_argz00;
	}                *BgL_capplyz00_bglt;

	typedef struct BgL_cappz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_copz00_bgl *BgL_funz00;
		obj_t BgL_argsz00;
		obj_t BgL_stackablez00;
	}              *BgL_cappz00_bglt;

	typedef struct BgL_sfunzf2czf2_bgl
	{
		struct BgL_clabelz00_bgl *BgL_labelz00;
		bool_t BgL_integratedz00;
	}                  *BgL_sfunzf2czf2_bglt;


#endif													// BGL_CGEN_CAPP_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern obj_t BGl_za2stopzd2kontza2zd2zzcgen_cgenz00;
	static obj_t BGl_requirezd2initializa7ationz75zzcgen_cappz00 = BUNSPEC;
	extern obj_t BGl_za2thezd2currentzd2globalza2z00zzcgen_cgenz00;
	static obj_t
		BGl_nodezd2cfunzd2nonzd2tailzd2appzd2ze3copz31zzcgen_cappz00
		(BgL_variablez00_bglt, BgL_appz00_bglt, obj_t, obj_t);
	static obj_t
		BGl_nodezd2tailzd2appzd2ze3copz31zzcgen_cappz00(BgL_variablez00_bglt,
		BgL_appz00_bglt, obj_t, obj_t);
	BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
	extern obj_t BGl_sfunz00zzast_varz00;
	extern obj_t BGl_cappz00zzcgen_copz00;
	static obj_t BGl_toplevelzd2initzd2zzcgen_cappz00(void);
	extern obj_t BGl_csequencez00zzcgen_copz00;
	extern obj_t BGl_cgotoz00zzcgen_copz00;
	static obj_t BGl_genericzd2initzd2zzcgen_cappz00(void);
	extern BgL_setqz00_bglt BGl_nodezd2setqzd2zzcgen_cgenz00(BgL_variablez00_bglt,
		BgL_nodez00_bglt);
	static obj_t BGl_objectzd2initzd2zzcgen_cappz00(void);
	extern BgL_copz00_bglt BGl_bdbzd2letzd2varz00zzcgen_cgenz00(BgL_copz00_bglt,
		obj_t);
	BGL_IMPORT obj_t BGl_za2inheritancesza2z00zz__objectz00;
	BGL_IMPORT obj_t bgl_reverse_bang(obj_t);
	extern obj_t BGl_capplyz00zzcgen_copz00;
	extern obj_t BGl_cpragmaz00zzcgen_copz00;
	BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zzcgen_cappz00(void);
	extern BgL_localz00_bglt
		BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(obj_t, BgL_typez00_bglt);
	extern obj_t BGl_varz00zzast_nodez00;
	extern BgL_typez00_bglt BGl_getzd2typezd2zztype_typeofz00(BgL_nodez00_bglt,
		bool_t);
	extern bool_t BGl_globalzd2argszd2safezf3zf3zzast_varz00(BgL_globalz00_bglt);
	extern obj_t BGl_za2_za2z00zztype_cachez00;
	static BgL_copz00_bglt
		BGl_z62nodezd2ze3copzd2funcall1464z81zzcgen_cappz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_za2procedureza2z00zztype_cachez00;
	extern obj_t BGl_za2objza2z00zztype_cachez00;
	static obj_t
		BGl_nodezd2sfunzd2nonzd2tailzd2appzd2ze3copz31zzcgen_cappz00
		(BgL_variablez00_bglt, BgL_appz00_bglt, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcgen_cappz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcgen_cgenz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcgen_copz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzbackend_c_emitz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzeffect_effectz00(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_toolsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(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_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_appzd2lyzd2zzast_nodez00;
	extern obj_t BGl_csetqz00zzcgen_copz00;
	extern obj_t BGl_localzd2varzd2zzcgen_copz00;
	extern obj_t BGl_localz00zzast_varz00;
	extern obj_t BGl_cblockz00zzcgen_copz00;
	static obj_t BGl_cnstzd2initzd2zzcgen_cappz00(void);
	static obj_t BGl_libraryzd2moduleszd2initz00zzcgen_cappz00(void);
	static obj_t BGl_importedzd2moduleszd2initz00zzcgen_cappz00(void);
	static obj_t BGl_gczd2rootszd2initz00zzcgen_cappz00(void);
	static BgL_copz00_bglt
		BGl_z62nodezd2ze3copzd2appzd2ly1462z53zzcgen_cappz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_catomz00zzcgen_copz00;
	extern obj_t BGl_za2returnzd2kontza2zd2zzcgen_cgenz00;
	extern obj_t BGl_stopz00zzcgen_copz00;
	BGL_IMPORT obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_cfuncallz00zzcgen_copz00;
	extern BgL_copz00_bglt BGl_nodezd2ze3copz31zzcgen_cgenz00(BgL_nodez00_bglt,
		obj_t, bool_t);
	static BgL_copz00_bglt BGl_z62nodezd2ze3copzd2app1466z81zzcgen_cappz00(obj_t,
		obj_t, obj_t, obj_t);
	BGL_IMPORT obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
	static bool_t
		BGl_iszd2getzd2exitdzd2topzf3z21zzcgen_cappz00(BgL_variablez00_bglt);
	extern obj_t BGl_funcallz00zzast_nodez00;
	extern obj_t BGl_za2idzd2kontza2zd2zzcgen_cgenz00;
	extern obj_t BGl_globalz00zzast_varz00;
	extern obj_t BGl_blockzd2kontzd2zzcgen_cgenz00(obj_t, obj_t);
	extern obj_t BGl_varcz00zzcgen_copz00;
	static obj_t __cnst[7];


	   
		 
		DEFINE_STRING(BGl_string2168z00zzcgen_cappz00,
		BgL_bgl_string2168za700za7za7c2176za7, "((obj_t)(&exitd))", 17);
	      DEFINE_STRING(BGl_string2170z00zzcgen_cappz00,
		BgL_bgl_string2170za700za7za7c2177za7, "node->cop", 9);
	      DEFINE_STRING(BGl_string2173z00zzcgen_cappz00,
		BgL_bgl_string2173za700za7za7c2178za7, "cgen_capp", 9);
	      DEFINE_STRING(BGl_string2174z00zzcgen_cappz00,
		BgL_bgl_string2174za700za7za7c2179za7,
		"fun a tmpfun tmp $env-get-exitd-top $get-exitd-top aux ", 55);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2169z00zzcgen_cappz00,
		BgL_bgl_za762nodeza7d2za7e3cop2180za7,
		BGl_z62nodezd2ze3copzd2appzd2ly1462z53zzcgen_cappz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2171z00zzcgen_cappz00,
		BgL_bgl_za762nodeza7d2za7e3cop2181za7,
		BGl_z62nodezd2ze3copzd2funcall1464z81zzcgen_cappz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2172z00zzcgen_cappz00,
		BgL_bgl_za762nodeza7d2za7e3cop2182za7,
		BGl_z62nodezd2ze3copzd2app1466z81zzcgen_cappz00, 0L, BUNSPEC, 3);
	extern obj_t BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00;

/* 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_requirezd2initializa7ationz75zzcgen_cappz00));
#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_modulezd2initializa7ationz75zzcgen_cappz00(long
		BgL_checksumz00_3941, char *BgL_fromz00_3942)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zzcgen_cappz00))
				{
					BGl_requirezd2initializa7ationz75zzcgen_cappz00 = BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zzcgen_cappz00();
					BGl_libraryzd2moduleszd2initz00zzcgen_cappz00();
					BGl_cnstzd2initzd2zzcgen_cappz00();
					BGl_importedzd2moduleszd2initz00zzcgen_cappz00();
					BGl_methodzd2initzd2zzcgen_cappz00();
					return BGl_toplevelzd2initzd2zzcgen_cappz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* library-modules-init */
	obj_t BGl_libraryzd2moduleszd2initz00zzcgen_cappz00(void)
	{
		{	/* Cgen/capp.scm 15 */
			BGl_modulezd2initializa7ationz75zz__objectz00(0L, "cgen_capp");
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(0L,
				"cgen_capp");
			BGl_modulezd2initializa7ationz75zz__readerz00(0L, "cgen_capp");
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(0L, "cgen_capp");
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(0L, "cgen_capp");
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(0L,
				"cgen_capp");
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(0L, "cgen_capp");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(0L,
				"cgen_capp");
			return BUNSPEC;
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zzcgen_cappz00(void)
	{
		{	/* Cgen/capp.scm 15 */
			{	/* Cgen/capp.scm 15 */
				obj_t BgL_cportz00_3613;

				{	/* Cgen/capp.scm 15 */
					obj_t BgL_stringz00_3620;

					BgL_stringz00_3620 = BGl_string2174z00zzcgen_cappz00;
					{	/* Cgen/capp.scm 15 */
						obj_t BgL_startz00_3621;

						BgL_startz00_3621 = BINT(0L);
						{	/* Cgen/capp.scm 15 */
							obj_t BgL_endz00_3622;

							BgL_endz00_3622 =
								BINT(STRING_LENGTH(((obj_t) BgL_stringz00_3620)));
							{	/* Cgen/capp.scm 15 */

								BgL_cportz00_3613 =
									BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
									(BgL_stringz00_3620, BgL_startz00_3621, BgL_endz00_3622);
				}}}}
				{
					long BgL_iz00_3614;

					BgL_iz00_3614 = 6L;
				BgL_loopz00_3615:
					if ((BgL_iz00_3614 == -1L))
						{	/* Cgen/capp.scm 15 */
							return BUNSPEC;
						}
					else
						{	/* Cgen/capp.scm 15 */
							{	/* Cgen/capp.scm 15 */
								obj_t BgL_arg2175z00_3616;

								{	/* Cgen/capp.scm 15 */

									{	/* Cgen/capp.scm 15 */
										obj_t BgL_locationz00_3618;

										BgL_locationz00_3618 = BBOOL(((bool_t) 0));
										{	/* Cgen/capp.scm 15 */

											BgL_arg2175z00_3616 =
												BGl_readz00zz__readerz00(BgL_cportz00_3613,
												BgL_locationz00_3618);
										}
									}
								}
								{	/* Cgen/capp.scm 15 */
									int BgL_tmpz00_3969;

									BgL_tmpz00_3969 = (int) (BgL_iz00_3614);
									CNST_TABLE_SET(BgL_tmpz00_3969, BgL_arg2175z00_3616);
							}}
							{	/* Cgen/capp.scm 15 */
								int BgL_auxz00_3619;

								BgL_auxz00_3619 = (int) ((BgL_iz00_3614 - 1L));
								{
									long BgL_iz00_3974;

									BgL_iz00_3974 = (long) (BgL_auxz00_3619);
									BgL_iz00_3614 = BgL_iz00_3974;
									goto BgL_loopz00_3615;
								}
							}
						}
				}
			}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zzcgen_cappz00(void)
	{
		{	/* Cgen/capp.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zzcgen_cappz00(void)
	{
		{	/* Cgen/capp.scm 15 */
			return BUNSPEC;
		}

	}



/* node-sfun-non-tail-app->cop */
	obj_t
		BGl_nodezd2sfunzd2nonzd2tailzd2appzd2ze3copz31zzcgen_cappz00
		(BgL_variablez00_bglt BgL_varz00_16, BgL_appz00_bglt BgL_nodez00_17,
		obj_t BgL_kontz00_18, obj_t BgL_inpushexitz00_19)
	{
		{	/* Cgen/capp.scm 259 */
			{	/* Cgen/capp.scm 260 */
				obj_t BgL_argsz00_1753;

				BgL_argsz00_1753 =
					(((BgL_sfunz00_bglt) COBJECT(
							((BgL_sfunz00_bglt)
								(((BgL_variablez00_bglt) COBJECT(BgL_varz00_16))->
									BgL_valuez00))))->BgL_argsz00);
				{	/* Cgen/capp.scm 260 */
					obj_t BgL_argszd2typezd2_1754;

					if (NULLP(BgL_argsz00_1753))
						{	/* Cgen/capp.scm 261 */
							BgL_argszd2typezd2_1754 = BNIL;
						}
					else
						{	/* Cgen/capp.scm 261 */
							obj_t BgL_head1458z00_1831;

							BgL_head1458z00_1831 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1456z00_1833;
								obj_t BgL_tail1459z00_1834;

								BgL_l1456z00_1833 = BgL_argsz00_1753;
								BgL_tail1459z00_1834 = BgL_head1458z00_1831;
							BgL_zc3z04anonymousza31632ze3z87_1835:
								if (NULLP(BgL_l1456z00_1833))
									{	/* Cgen/capp.scm 261 */
										BgL_argszd2typezd2_1754 = CDR(BgL_head1458z00_1831);
									}
								else
									{	/* Cgen/capp.scm 261 */
										obj_t BgL_newtail1460z00_1837;

										{	/* Cgen/capp.scm 261 */
											obj_t BgL_arg1649z00_1839;

											{	/* Cgen/capp.scm 261 */
												obj_t BgL_xz00_1840;

												BgL_xz00_1840 = CAR(((obj_t) BgL_l1456z00_1833));
												{	/* Cgen/capp.scm 261 */
													bool_t BgL_test2187z00_3988;

													{	/* Cgen/capp.scm 261 */
														obj_t BgL_classz00_2585;

														BgL_classz00_2585 = BGl_localz00zzast_varz00;
														if (BGL_OBJECTP(BgL_xz00_1840))
															{	/* Cgen/capp.scm 261 */
																BgL_objectz00_bglt BgL_arg1801z00_2587;

																BgL_arg1801z00_2587 =
																	(BgL_objectz00_bglt) (BgL_xz00_1840);
																if (BGL_CONDEXPAND_ISA_ARCH64())
																	{	/* Cgen/capp.scm 261 */
																		long BgL_idxz00_2593;

																		BgL_idxz00_2593 =
																			BGL_OBJECT_INHERITANCE_NUM
																			(BgL_arg1801z00_2587);
																		BgL_test2187z00_3988 =
																			(VECTOR_REF
																			(BGl_za2inheritancesza2z00zz__objectz00,
																				(BgL_idxz00_2593 + 2L)) ==
																			BgL_classz00_2585);
																	}
																else
																	{	/* Cgen/capp.scm 261 */
																		bool_t BgL_res2129z00_2615;

																		{	/* Cgen/capp.scm 261 */
																			obj_t BgL_oclassz00_2601;

																			{	/* Cgen/capp.scm 261 */
																				long BgL_arg1808z00_2607;

																				{	/* Cgen/capp.scm 261 */
																					long BgL_arg1809z00_2608;

																					BgL_arg1809z00_2608 =
																						BGL_OBJECT_CLASS_NUM
																						(BgL_arg1801z00_2587);
																					BgL_arg1808z00_2607 =
																						(BgL_arg1809z00_2608 - OBJECT_TYPE);
																				}
																				BgL_oclassz00_2601 =
																					VECTOR_REF
																					(BGl_za2classesza2z00zz__objectz00,
																					BgL_arg1808z00_2607);
																			}
																			{	/* Cgen/capp.scm 261 */
																				bool_t BgL__ortest_1115z00_2602;

																				BgL__ortest_1115z00_2602 =
																					(BgL_classz00_2585 ==
																					BgL_oclassz00_2601);
																				if (BgL__ortest_1115z00_2602)
																					{	/* Cgen/capp.scm 261 */
																						BgL_res2129z00_2615 =
																							BgL__ortest_1115z00_2602;
																					}
																				else
																					{	/* Cgen/capp.scm 261 */
																						long BgL_odepthz00_2603;

																						BgL_odepthz00_2603 =
																							BGL_CLASS_DEPTH
																							(BgL_oclassz00_2601);
																						if ((2L < BgL_odepthz00_2603))
																							{	/* Cgen/capp.scm 261 */
																								obj_t BgL_arg1797z00_2605;

																								BgL_arg1797z00_2605 =
																									BGL_CLASS_ANCESTORS_REF
																									(BgL_oclassz00_2601, 2L);
																								BgL_res2129z00_2615 =
																									(BgL_arg1797z00_2605 ==
																									BgL_classz00_2585);
																							}
																						else
																							{	/* Cgen/capp.scm 261 */
																								BgL_res2129z00_2615 =
																									((bool_t) 0);
																							}
																					}
																			}
																		}
																		BgL_test2187z00_3988 = BgL_res2129z00_2615;
																	}
															}
														else
															{	/* Cgen/capp.scm 261 */
																BgL_test2187z00_3988 = ((bool_t) 0);
															}
													}
													if (BgL_test2187z00_3988)
														{	/* Cgen/capp.scm 261 */
															BgL_arg1649z00_1839 =
																((obj_t)
																(((BgL_variablez00_bglt) COBJECT(
																			((BgL_variablez00_bglt)
																				((BgL_localz00_bglt) BgL_xz00_1840))))->
																	BgL_typez00));
														}
													else
														{	/* Cgen/capp.scm 261 */
															BgL_arg1649z00_1839 = BgL_xz00_1840;
														}
												}
											}
											BgL_newtail1460z00_1837 =
												MAKE_YOUNG_PAIR(BgL_arg1649z00_1839, BNIL);
										}
										SET_CDR(BgL_tail1459z00_1834, BgL_newtail1460z00_1837);
										{	/* Cgen/capp.scm 261 */
											obj_t BgL_arg1639z00_1838;

											BgL_arg1639z00_1838 = CDR(((obj_t) BgL_l1456z00_1833));
											{
												obj_t BgL_tail1459z00_4017;
												obj_t BgL_l1456z00_4016;

												BgL_l1456z00_4016 = BgL_arg1639z00_1838;
												BgL_tail1459z00_4017 = BgL_newtail1460z00_1837;
												BgL_tail1459z00_1834 = BgL_tail1459z00_4017;
												BgL_l1456z00_1833 = BgL_l1456z00_4016;
												goto BgL_zc3z04anonymousza31632ze3z87_1835;
											}
										}
									}
							}
						}
					{
						BgL_copz00_bglt BgL_copz00_1822;
						BgL_localz00_bglt BgL_auxz00_1823;

						{	/* Cgen/capp.scm 262 */

							{	/* Cgen/capp.scm 265 */
								obj_t BgL_g1214z00_1756;
								BgL_localz00_bglt BgL_g1216z00_1758;

								BgL_g1214z00_1756 =
									(((BgL_appz00_bglt) COBJECT(BgL_nodez00_17))->BgL_argsz00);
								BgL_g1216z00_1758 =
									BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(CNST_TABLE_REF
									(0L), ((BgL_typez00_bglt) BGl_za2objza2z00zztype_cachez00));
								{
									obj_t BgL_oldzd2actualszd2_1762;
									obj_t BgL_argszd2typezd2_1763;
									obj_t BgL_newzd2actualszd2_1764;
									BgL_localz00_bglt BgL_auxz00_1765;
									obj_t BgL_auxsz00_1766;
									obj_t BgL_expsz00_1767;

									BgL_oldzd2actualszd2_1762 = BgL_g1214z00_1756;
									BgL_argszd2typezd2_1763 = BgL_argszd2typezd2_1754;
									BgL_newzd2actualszd2_1764 = BNIL;
									BgL_auxz00_1765 = BgL_g1216z00_1758;
									BgL_auxsz00_1766 = BNIL;
									BgL_expsz00_1767 = BNIL;
								BgL_zc3z04anonymousza31495ze3z87_1768:
									if (NULLP(BgL_oldzd2actualszd2_1762))
										{	/* Cgen/capp.scm 271 */
											if (NULLP(BgL_auxsz00_1766))
												{	/* Cgen/capp.scm 274 */
													BgL_cappz00_bglt BgL_arg1519z00_1771;

													{	/* Cgen/capp.scm 274 */
														BgL_cappz00_bglt BgL_new1220z00_1772;

														{	/* Cgen/capp.scm 276 */
															BgL_cappz00_bglt BgL_new1219z00_1774;

															BgL_new1219z00_1774 =
																((BgL_cappz00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_cappz00_bgl))));
															{	/* Cgen/capp.scm 276 */
																long BgL_arg1532z00_1775;

																BgL_arg1532z00_1775 =
																	BGL_CLASS_NUM(BGl_cappz00zzcgen_copz00);
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1219z00_1774),
																	BgL_arg1532z00_1775);
															}
															BgL_new1220z00_1772 = BgL_new1219z00_1774;
														}
														((((BgL_copz00_bglt) COBJECT(
																		((BgL_copz00_bglt) BgL_new1220z00_1772)))->
																BgL_locz00) =
															((obj_t) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt)
																				BgL_nodez00_17)))->BgL_locz00)),
															BUNSPEC);
														((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																			BgL_new1220z00_1772)))->BgL_typez00) =
															((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt)
																				BgL_nodez00_17)))->BgL_typez00)),
															BUNSPEC);
														{
															BgL_copz00_bglt BgL_auxz00_4038;

															{	/* Cgen/capp.scm 277 */
																BgL_varz00_bglt BgL_arg1528z00_1773;

																BgL_arg1528z00_1773 =
																	(((BgL_appz00_bglt) COBJECT(BgL_nodez00_17))->
																	BgL_funz00);
																BgL_auxz00_4038 =
																	BGl_nodezd2ze3copz31zzcgen_cgenz00((
																		(BgL_nodez00_bglt) BgL_arg1528z00_1773),
																	BGl_za2idzd2kontza2zd2zzcgen_cgenz00,
																	CBOOL(BgL_inpushexitz00_19));
															}
															((((BgL_cappz00_bglt)
																		COBJECT(BgL_new1220z00_1772))->BgL_funz00) =
																((BgL_copz00_bglt) BgL_auxz00_4038), BUNSPEC);
														}
														((((BgL_cappz00_bglt)
																	COBJECT(BgL_new1220z00_1772))->BgL_argsz00) =
															((obj_t)
																bgl_reverse_bang(BgL_newzd2actualszd2_1764)),
															BUNSPEC);
														((((BgL_cappz00_bglt)
																	COBJECT(BgL_new1220z00_1772))->
																BgL_stackablez00) =
															((obj_t) (((BgL_appz00_bglt)
																		COBJECT(BgL_nodez00_17))->
																	BgL_stackablez00)), BUNSPEC);
														BgL_arg1519z00_1771 = BgL_new1220z00_1772;
													}
													return
														(VA_PROCEDUREP(BgL_kontz00_18) ? ((obj_t(*)(obj_t,
																	...))
															PROCEDURE_ENTRY(BgL_kontz00_18)) (BgL_kontz00_18,
															((obj_t) BgL_arg1519z00_1771),
															BEOA) : ((obj_t(*)(obj_t,
																	obj_t))
															PROCEDURE_ENTRY(BgL_kontz00_18)) (BgL_kontz00_18,
															((obj_t) BgL_arg1519z00_1771)));
												}
											else
												{	/* Cgen/capp.scm 283 */
													obj_t BgL_locz00_1776;

													BgL_locz00_1776 =
														(((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_nodez00_17)))->
														BgL_locz00);
													{	/* Cgen/capp.scm 284 */
														BgL_cblockz00_bglt BgL_new1222z00_1777;

														{	/* Cgen/capp.scm 286 */
															BgL_cblockz00_bglt BgL_new1221z00_1798;

															BgL_new1221z00_1798 =
																((BgL_cblockz00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_cblockz00_bgl))));
															{	/* Cgen/capp.scm 286 */
																long BgL_arg1575z00_1799;

																BgL_arg1575z00_1799 =
																	BGL_CLASS_NUM(BGl_cblockz00zzcgen_copz00);
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1221z00_1798),
																	BgL_arg1575z00_1799);
															}
															BgL_new1222z00_1777 = BgL_new1221z00_1798;
														}
														((((BgL_copz00_bglt) COBJECT(
																		((BgL_copz00_bglt) BgL_new1222z00_1777)))->
																BgL_locz00) =
															((obj_t) BgL_locz00_1776), BUNSPEC);
														((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																			BgL_new1222z00_1777)))->BgL_typez00) =
															((BgL_typez00_bglt) ((BgL_typez00_bglt)
																	BGl_za2objza2z00zztype_cachez00)), BUNSPEC);
														{
															BgL_copz00_bglt BgL_auxz00_4064;

															{	/* Cgen/capp.scm 287 */
																BgL_csequencez00_bglt BgL_new1224z00_1778;

																{	/* Cgen/capp.scm 289 */
																	BgL_csequencez00_bglt BgL_new1223z00_1796;

																	BgL_new1223z00_1796 =
																		((BgL_csequencez00_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_csequencez00_bgl))));
																	{	/* Cgen/capp.scm 289 */
																		long BgL_arg1565z00_1797;

																		{	/* Cgen/capp.scm 289 */
																			obj_t BgL_classz00_2664;

																			BgL_classz00_2664 =
																				BGl_csequencez00zzcgen_copz00;
																			BgL_arg1565z00_1797 =
																				BGL_CLASS_NUM(BgL_classz00_2664);
																		}
																		BGL_OBJECT_CLASS_NUM_SET(
																			((BgL_objectz00_bglt)
																				BgL_new1223z00_1796),
																			BgL_arg1565z00_1797);
																	}
																	BgL_new1224z00_1778 = BgL_new1223z00_1796;
																}
																((((BgL_copz00_bglt) COBJECT(
																				((BgL_copz00_bglt)
																					BgL_new1224z00_1778)))->BgL_locz00) =
																	((obj_t) BgL_locz00_1776), BUNSPEC);
																((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																					BgL_new1224z00_1778)))->BgL_typez00) =
																	((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																				COBJECT(((BgL_nodez00_bglt)
																						BgL_nodez00_17)))->BgL_typez00)),
																	BUNSPEC);
																((((BgL_csequencez00_bglt)
																			COBJECT(BgL_new1224z00_1778))->
																		BgL_czd2expzf3z21) =
																	((bool_t) ((bool_t) 0)), BUNSPEC);
																{
																	obj_t BgL_auxz00_4076;

																	{	/* Cgen/capp.scm 292 */
																		BgL_localzd2varzd2_bglt BgL_arg1534z00_1779;
																		BgL_csequencez00_bglt BgL_arg1541z00_1780;
																		obj_t BgL_arg1545z00_1781;

																		{	/* Cgen/capp.scm 292 */
																			BgL_localzd2varzd2_bglt
																				BgL_new1227z00_1785;
																			{	/* Cgen/capp.scm 294 */
																				BgL_localzd2varzd2_bglt
																					BgL_new1226z00_1786;
																				BgL_new1226z00_1786 =
																					((BgL_localzd2varzd2_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_localzd2varzd2_bgl))));
																				{	/* Cgen/capp.scm 294 */
																					long BgL_arg1554z00_1787;

																					{	/* Cgen/capp.scm 294 */
																						obj_t BgL_classz00_2668;

																						BgL_classz00_2668 =
																							BGl_localzd2varzd2zzcgen_copz00;
																						BgL_arg1554z00_1787 =
																							BGL_CLASS_NUM(BgL_classz00_2668);
																					}
																					BGL_OBJECT_CLASS_NUM_SET(
																						((BgL_objectz00_bglt)
																							BgL_new1226z00_1786),
																						BgL_arg1554z00_1787);
																				}
																				BgL_new1227z00_1785 =
																					BgL_new1226z00_1786;
																			}
																			((((BgL_copz00_bglt) COBJECT(
																							((BgL_copz00_bglt)
																								BgL_new1227z00_1785)))->
																					BgL_locz00) =
																				((obj_t) BgL_locz00_1776), BUNSPEC);
																			((((BgL_copz00_bglt)
																						COBJECT(((BgL_copz00_bglt)
																								BgL_new1227z00_1785)))->
																					BgL_typez00) =
																				((BgL_typez00_bglt) ((BgL_typez00_bglt)
																						BGl_za2objza2z00zztype_cachez00)),
																				BUNSPEC);
																			((((BgL_localzd2varzd2_bglt)
																						COBJECT(BgL_new1227z00_1785))->
																					BgL_varsz00) =
																				((obj_t) BgL_auxsz00_1766), BUNSPEC);
																			BgL_arg1534z00_1779 = BgL_new1227z00_1785;
																		}
																		{	/* Cgen/capp.scm 296 */
																			BgL_csequencez00_bglt BgL_new1229z00_1788;

																			{	/* Cgen/capp.scm 298 */
																				BgL_csequencez00_bglt
																					BgL_new1228z00_1789;
																				BgL_new1228z00_1789 =
																					((BgL_csequencez00_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_csequencez00_bgl))));
																				{	/* Cgen/capp.scm 298 */
																					long BgL_arg1555z00_1790;

																					{	/* Cgen/capp.scm 298 */
																						obj_t BgL_classz00_2671;

																						BgL_classz00_2671 =
																							BGl_csequencez00zzcgen_copz00;
																						BgL_arg1555z00_1790 =
																							BGL_CLASS_NUM(BgL_classz00_2671);
																					}
																					BGL_OBJECT_CLASS_NUM_SET(
																						((BgL_objectz00_bglt)
																							BgL_new1228z00_1789),
																						BgL_arg1555z00_1790);
																				}
																				BgL_new1229z00_1788 =
																					BgL_new1228z00_1789;
																			}
																			((((BgL_copz00_bglt) COBJECT(
																							((BgL_copz00_bglt)
																								BgL_new1229z00_1788)))->
																					BgL_locz00) =
																				((obj_t) BgL_locz00_1776), BUNSPEC);
																			((((BgL_copz00_bglt)
																						COBJECT(((BgL_copz00_bglt)
																								BgL_new1229z00_1788)))->
																					BgL_typez00) =
																				((BgL_typez00_bglt) ((BgL_typez00_bglt)
																						BGl_za2objza2z00zztype_cachez00)),
																				BUNSPEC);
																			((((BgL_csequencez00_bglt)
																						COBJECT(BgL_new1229z00_1788))->
																					BgL_czd2expzf3z21) =
																				((bool_t) ((bool_t) 0)), BUNSPEC);
																			((((BgL_csequencez00_bglt)
																						COBJECT(BgL_new1229z00_1788))->
																					BgL_copsz00) =
																				((obj_t) BgL_expsz00_1767), BUNSPEC);
																			BgL_arg1541z00_1780 = BgL_new1229z00_1788;
																		}
																		{	/* Cgen/capp.scm 301 */
																			BgL_cappz00_bglt BgL_arg1560z00_1791;

																			{	/* Cgen/capp.scm 301 */
																				BgL_cappz00_bglt BgL_new1231z00_1792;

																				{	/* Cgen/capp.scm 303 */
																					BgL_cappz00_bglt BgL_new1230z00_1794;

																					BgL_new1230z00_1794 =
																						((BgL_cappz00_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_cappz00_bgl))));
																					{	/* Cgen/capp.scm 303 */
																						long BgL_arg1564z00_1795;

																						{	/* Cgen/capp.scm 303 */
																							obj_t BgL_classz00_2674;

																							BgL_classz00_2674 =
																								BGl_cappz00zzcgen_copz00;
																							BgL_arg1564z00_1795 =
																								BGL_CLASS_NUM
																								(BgL_classz00_2674);
																						}
																						BGL_OBJECT_CLASS_NUM_SET(
																							((BgL_objectz00_bglt)
																								BgL_new1230z00_1794),
																							BgL_arg1564z00_1795);
																					}
																					BgL_new1231z00_1792 =
																						BgL_new1230z00_1794;
																				}
																				((((BgL_copz00_bglt) COBJECT(
																								((BgL_copz00_bglt)
																									BgL_new1231z00_1792)))->
																						BgL_locz00) =
																					((obj_t) BgL_locz00_1776), BUNSPEC);
																				((((BgL_copz00_bglt)
																							COBJECT(((BgL_copz00_bglt)
																									BgL_new1231z00_1792)))->
																						BgL_typez00) =
																					((BgL_typez00_bglt) ((
																								(BgL_nodez00_bglt)
																								COBJECT(((BgL_nodez00_bglt)
																										BgL_nodez00_17)))->
																							BgL_typez00)), BUNSPEC);
																				{
																					BgL_copz00_bglt BgL_auxz00_4108;

																					{	/* Cgen/capp.scm 304 */
																						BgL_varz00_bglt BgL_arg1563z00_1793;

																						BgL_arg1563z00_1793 =
																							(((BgL_appz00_bglt)
																								COBJECT(BgL_nodez00_17))->
																							BgL_funz00);
																						BgL_auxz00_4108 =
																							BGl_nodezd2ze3copz31zzcgen_cgenz00
																							(((BgL_nodez00_bglt)
																								BgL_arg1563z00_1793),
																							BGl_za2idzd2kontza2zd2zzcgen_cgenz00,
																							CBOOL(BgL_inpushexitz00_19));
																					}
																					((((BgL_cappz00_bglt)
																								COBJECT(BgL_new1231z00_1792))->
																							BgL_funz00) =
																						((BgL_copz00_bglt) BgL_auxz00_4108),
																						BUNSPEC);
																				}
																				((((BgL_cappz00_bglt)
																							COBJECT(BgL_new1231z00_1792))->
																						BgL_argsz00) =
																					((obj_t)
																						bgl_reverse_bang
																						(BgL_newzd2actualszd2_1764)),
																					BUNSPEC);
																				((((BgL_cappz00_bglt)
																							COBJECT(BgL_new1231z00_1792))->
																						BgL_stackablez00) =
																					((obj_t) (((BgL_appz00_bglt)
																								COBJECT(BgL_nodez00_17))->
																							BgL_stackablez00)), BUNSPEC);
																				BgL_arg1560z00_1791 =
																					BgL_new1231z00_1792;
																			}
																			BgL_arg1545z00_1781 =
																				(VA_PROCEDUREP(BgL_kontz00_18)
																				? ((obj_t(*)(obj_t,
																							...))
																					PROCEDURE_ENTRY(BgL_kontz00_18))
																				(BgL_kontz00_18,
																					((obj_t) BgL_arg1560z00_1791),
																					BEOA) : ((obj_t(*)(obj_t,
																							obj_t))
																					PROCEDURE_ENTRY(BgL_kontz00_18))
																				(BgL_kontz00_18,
																					((obj_t) BgL_arg1560z00_1791)));
																		}
																		{	/* Cgen/capp.scm 291 */
																			obj_t BgL_list1546z00_1782;

																			{	/* Cgen/capp.scm 291 */
																				obj_t BgL_arg1547z00_1783;

																				{	/* Cgen/capp.scm 291 */
																					obj_t BgL_arg1550z00_1784;

																					BgL_arg1550z00_1784 =
																						MAKE_YOUNG_PAIR(BgL_arg1545z00_1781,
																						BNIL);
																					BgL_arg1547z00_1783 =
																						MAKE_YOUNG_PAIR(((obj_t)
																							BgL_arg1541z00_1780),
																						BgL_arg1550z00_1784);
																				}
																				BgL_list1546z00_1782 =
																					MAKE_YOUNG_PAIR(
																					((obj_t) BgL_arg1534z00_1779),
																					BgL_arg1547z00_1783);
																			}
																			BgL_auxz00_4076 = BgL_list1546z00_1782;
																	}}
																	((((BgL_csequencez00_bglt)
																				COBJECT(BgL_new1224z00_1778))->
																			BgL_copsz00) =
																		((obj_t) BgL_auxz00_4076), BUNSPEC);
																}
																BgL_auxz00_4064 =
																	((BgL_copz00_bglt) BgL_new1224z00_1778);
															}
															((((BgL_cblockz00_bglt)
																		COBJECT(BgL_new1222z00_1777))->
																	BgL_bodyz00) =
																((BgL_copz00_bglt) BgL_auxz00_4064), BUNSPEC);
														}
														return ((obj_t) BgL_new1222z00_1777);
													}
												}
										}
									else
										{	/* Cgen/capp.scm 308 */
											BgL_copz00_bglt BgL_copz00_1800;

											{	/* Cgen/capp.scm 308 */
												BgL_setqz00_bglt BgL_arg1616z00_1819;

												{	/* Cgen/capp.scm 308 */
													obj_t BgL_arg1620z00_1820;

													BgL_arg1620z00_1820 =
														CAR(((obj_t) BgL_oldzd2actualszd2_1762));
													BgL_arg1616z00_1819 =
														BGl_nodezd2setqzd2zzcgen_cgenz00(
														((BgL_variablez00_bglt) BgL_auxz00_1765),
														((BgL_nodez00_bglt) BgL_arg1620z00_1820));
												}
												BgL_copz00_1800 =
													BGl_nodezd2ze3copz31zzcgen_cgenz00(
													((BgL_nodez00_bglt) BgL_arg1616z00_1819),
													BGl_za2idzd2kontza2zd2zzcgen_cgenz00,
													CBOOL(BgL_inpushexitz00_19));
											}
											{	/* Cgen/capp.scm 310 */
												bool_t BgL_test2194z00_4140;

												BgL_copz00_1822 = BgL_copz00_1800;
												BgL_auxz00_1823 = BgL_auxz00_1765;
												{	/* Cgen/capp.scm 263 */
													bool_t BgL_test2195z00_4141;

													{	/* Cgen/capp.scm 263 */
														obj_t BgL_classz00_2619;

														BgL_classz00_2619 = BGl_csetqz00zzcgen_copz00;
														{	/* Cgen/capp.scm 263 */
															BgL_objectz00_bglt BgL_arg1801z00_2621;

															{	/* Cgen/capp.scm 263 */
																obj_t BgL_tmpz00_4142;

																BgL_tmpz00_4142 =
																	((obj_t)
																	((BgL_objectz00_bglt) BgL_copz00_1822));
																BgL_arg1801z00_2621 =
																	(BgL_objectz00_bglt) (BgL_tmpz00_4142);
															}
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* Cgen/capp.scm 263 */
																	long BgL_idxz00_2627;

																	BgL_idxz00_2627 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_2621);
																	BgL_test2195z00_4141 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_2627 + 2L)) ==
																		BgL_classz00_2619);
																}
															else
																{	/* Cgen/capp.scm 263 */
																	bool_t BgL_res2130z00_2649;

																	{	/* Cgen/capp.scm 263 */
																		obj_t BgL_oclassz00_2635;

																		{	/* Cgen/capp.scm 263 */
																			long BgL_arg1808z00_2641;

																			{	/* Cgen/capp.scm 263 */
																				long BgL_arg1809z00_2642;

																				BgL_arg1809z00_2642 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_2621);
																				BgL_arg1808z00_2641 =
																					(BgL_arg1809z00_2642 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_2635 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_2641);
																		}
																		{	/* Cgen/capp.scm 263 */
																			bool_t BgL__ortest_1115z00_2636;

																			BgL__ortest_1115z00_2636 =
																				(BgL_classz00_2619 ==
																				BgL_oclassz00_2635);
																			if (BgL__ortest_1115z00_2636)
																				{	/* Cgen/capp.scm 263 */
																					BgL_res2130z00_2649 =
																						BgL__ortest_1115z00_2636;
																				}
																			else
																				{	/* Cgen/capp.scm 263 */
																					long BgL_odepthz00_2637;

																					BgL_odepthz00_2637 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_2635);
																					if ((2L < BgL_odepthz00_2637))
																						{	/* Cgen/capp.scm 263 */
																							obj_t BgL_arg1797z00_2639;

																							BgL_arg1797z00_2639 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_2635, 2L);
																							BgL_res2130z00_2649 =
																								(BgL_arg1797z00_2639 ==
																								BgL_classz00_2619);
																						}
																					else
																						{	/* Cgen/capp.scm 263 */
																							BgL_res2130z00_2649 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test2195z00_4141 = BgL_res2130z00_2649;
																}
														}
													}
													if (BgL_test2195z00_4141)
														{	/* Cgen/capp.scm 263 */
															BgL_test2194z00_4140 =
																(
																((obj_t)
																	(((BgL_varcz00_bglt) COBJECT(
																				(((BgL_csetqz00_bglt) COBJECT(
																							((BgL_csetqz00_bglt)
																								BgL_copz00_1822)))->
																					BgL_varz00)))->BgL_variablez00)) ==
																((obj_t) BgL_auxz00_1823));
														}
													else
														{	/* Cgen/capp.scm 263 */
															BgL_test2194z00_4140 = ((bool_t) 0);
														}
												}
												if (BgL_test2194z00_4140)
													{	/* Cgen/capp.scm 311 */
														obj_t BgL_arg1578z00_1802;
														obj_t BgL_arg1579z00_1803;
														obj_t BgL_arg1581z00_1804;

														BgL_arg1578z00_1802 =
															CDR(((obj_t) BgL_oldzd2actualszd2_1762));
														BgL_arg1579z00_1803 =
															CDR(((obj_t) BgL_argszd2typezd2_1763));
														{	/* Cgen/capp.scm 313 */
															BgL_copz00_bglt BgL_arg1586z00_1805;

															BgL_arg1586z00_1805 =
																(((BgL_csetqz00_bglt) COBJECT(
																		((BgL_csetqz00_bglt) BgL_copz00_1800)))->
																BgL_valuez00);
															BgL_arg1581z00_1804 =
																MAKE_YOUNG_PAIR(((obj_t) BgL_arg1586z00_1805),
																BgL_newzd2actualszd2_1764);
														}
														{
															obj_t BgL_newzd2actualszd2_4178;
															obj_t BgL_argszd2typezd2_4177;
															obj_t BgL_oldzd2actualszd2_4176;

															BgL_oldzd2actualszd2_4176 = BgL_arg1578z00_1802;
															BgL_argszd2typezd2_4177 = BgL_arg1579z00_1803;
															BgL_newzd2actualszd2_4178 = BgL_arg1581z00_1804;
															BgL_newzd2actualszd2_1764 =
																BgL_newzd2actualszd2_4178;
															BgL_argszd2typezd2_1763 = BgL_argszd2typezd2_4177;
															BgL_oldzd2actualszd2_1762 =
																BgL_oldzd2actualszd2_4176;
															goto BgL_zc3z04anonymousza31495ze3z87_1768;
														}
													}
												else
													{	/* Cgen/capp.scm 310 */
														{	/* Cgen/capp.scm 318 */
															obj_t BgL_arg1590z00_1806;

															BgL_arg1590z00_1806 =
																CAR(((obj_t) BgL_argszd2typezd2_1763));
															((((BgL_variablez00_bglt) COBJECT(
																			((BgL_variablez00_bglt)
																				BgL_auxz00_1765)))->BgL_typez00) =
																((BgL_typez00_bglt) ((BgL_typez00_bglt)
																		BgL_arg1590z00_1806)), BUNSPEC);
														}
														{	/* Cgen/capp.scm 319 */
															obj_t BgL_arg1592z00_1807;
															obj_t BgL_arg1595z00_1808;
															obj_t BgL_arg1597z00_1809;
															BgL_localz00_bglt BgL_arg1598z00_1810;
															obj_t BgL_arg1606z00_1811;
															obj_t BgL_arg1608z00_1812;

															BgL_arg1592z00_1807 =
																CDR(((obj_t) BgL_oldzd2actualszd2_1762));
															BgL_arg1595z00_1808 =
																CDR(((obj_t) BgL_argszd2typezd2_1763));
															{	/* Cgen/capp.scm 321 */
																BgL_varcz00_bglt BgL_arg1609z00_1813;

																{	/* Cgen/capp.scm 321 */
																	BgL_varcz00_bglt BgL_new1234z00_1814;

																	{	/* Cgen/capp.scm 324 */
																		BgL_varcz00_bglt BgL_new1233z00_1816;

																		BgL_new1233z00_1816 =
																			((BgL_varcz00_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_varcz00_bgl))));
																		{	/* Cgen/capp.scm 324 */
																			long BgL_arg1614z00_1817;

																			BgL_arg1614z00_1817 =
																				BGL_CLASS_NUM(BGl_varcz00zzcgen_copz00);
																			BGL_OBJECT_CLASS_NUM_SET(
																				((BgL_objectz00_bglt)
																					BgL_new1233z00_1816),
																				BgL_arg1614z00_1817);
																		}
																		BgL_new1234z00_1814 = BgL_new1233z00_1816;
																	}
																	((((BgL_copz00_bglt) COBJECT(
																					((BgL_copz00_bglt)
																						BgL_new1234z00_1814)))->
																			BgL_locz00) =
																		((obj_t) (((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt)
																							CAR(((obj_t)
																									BgL_oldzd2actualszd2_1762)))))->
																				BgL_locz00)), BUNSPEC);
																	((((BgL_copz00_bglt)
																				COBJECT(((BgL_copz00_bglt)
																						BgL_new1234z00_1814)))->
																			BgL_typez00) =
																		((BgL_typez00_bglt) (((BgL_variablez00_bglt)
																					COBJECT(((BgL_variablez00_bglt)
																							BgL_auxz00_1765)))->BgL_typez00)),
																		BUNSPEC);
																	((((BgL_varcz00_bglt)
																				COBJECT(BgL_new1234z00_1814))->
																			BgL_variablez00) =
																		((BgL_variablez00_bglt) (
																				(BgL_variablez00_bglt)
																				BgL_auxz00_1765)), BUNSPEC);
																	BgL_arg1609z00_1813 = BgL_new1234z00_1814;
																}
																BgL_arg1597z00_1809 =
																	MAKE_YOUNG_PAIR(
																	((obj_t) BgL_arg1609z00_1813),
																	BgL_newzd2actualszd2_1764);
															}
															{	/* Cgen/capp.scm 326 */
																obj_t BgL_arg1615z00_1818;

																BgL_arg1615z00_1818 =
																	CAR(((obj_t) BgL_argszd2typezd2_1763));
																BgL_arg1598z00_1810 =
																	BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00
																	(CNST_TABLE_REF(0L),
																	((BgL_typez00_bglt) BgL_arg1615z00_1818));
															}
															BgL_arg1606z00_1811 =
																MAKE_YOUNG_PAIR(
																((obj_t) BgL_auxz00_1765), BgL_auxsz00_1766);
															BgL_arg1608z00_1812 =
																MAKE_YOUNG_PAIR(
																((obj_t) BgL_copz00_1800), BgL_expsz00_1767);
															{
																obj_t BgL_expsz00_4220;
																obj_t BgL_auxsz00_4219;
																BgL_localz00_bglt BgL_auxz00_4218;
																obj_t BgL_newzd2actualszd2_4217;
																obj_t BgL_argszd2typezd2_4216;
																obj_t BgL_oldzd2actualszd2_4215;

																BgL_oldzd2actualszd2_4215 = BgL_arg1592z00_1807;
																BgL_argszd2typezd2_4216 = BgL_arg1595z00_1808;
																BgL_newzd2actualszd2_4217 = BgL_arg1597z00_1809;
																BgL_auxz00_4218 = BgL_arg1598z00_1810;
																BgL_auxsz00_4219 = BgL_arg1606z00_1811;
																BgL_expsz00_4220 = BgL_arg1608z00_1812;
																BgL_expsz00_1767 = BgL_expsz00_4220;
																BgL_auxsz00_1766 = BgL_auxsz00_4219;
																BgL_auxz00_1765 = BgL_auxz00_4218;
																BgL_newzd2actualszd2_1764 =
																	BgL_newzd2actualszd2_4217;
																BgL_argszd2typezd2_1763 =
																	BgL_argszd2typezd2_4216;
																BgL_oldzd2actualszd2_1762 =
																	BgL_oldzd2actualszd2_4215;
																goto BgL_zc3z04anonymousza31495ze3z87_1768;
															}
														}
													}
											}
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* is-get-exitd-top? */
	bool_t BGl_iszd2getzd2exitdzd2topzf3z21zzcgen_cappz00(BgL_variablez00_bglt
		BgL_varz00_20)
	{
		{	/* Cgen/capp.scm 335 */
			{	/* Cgen/capp.scm 336 */
				bool_t BgL__ortest_1235z00_1844;

				BgL__ortest_1235z00_1844 =
					(
					(((BgL_variablez00_bglt) COBJECT(BgL_varz00_20))->BgL_idz00) ==
					CNST_TABLE_REF(1L));
				if (BgL__ortest_1235z00_1844)
					{	/* Cgen/capp.scm 336 */
						return BgL__ortest_1235z00_1844;
					}
				else
					{	/* Cgen/capp.scm 336 */
						return
							(
							(((BgL_variablez00_bglt) COBJECT(BgL_varz00_20))->BgL_idz00) ==
							CNST_TABLE_REF(2L));
					}
			}
		}

	}



/* node-cfun-non-tail-app->cop */
	obj_t
		BGl_nodezd2cfunzd2nonzd2tailzd2appzd2ze3copz31zzcgen_cappz00
		(BgL_variablez00_bglt BgL_varz00_21, BgL_appz00_bglt BgL_nodez00_22,
		obj_t BgL_kontz00_23, obj_t BgL_inpushexitz00_24)
	{
		{	/* Cgen/capp.scm 345 */
			{	/* Cgen/capp.scm 346 */
				bool_t BgL_test2200z00_4228;

				if (CBOOL(BgL_inpushexitz00_24))
					{	/* Cgen/capp.scm 346 */
						BgL_test2200z00_4228 =
							BGl_iszd2getzd2exitdzd2topzf3z21zzcgen_cappz00(BgL_varz00_21);
					}
				else
					{	/* Cgen/capp.scm 346 */
						BgL_test2200z00_4228 = ((bool_t) 0);
					}
				if (BgL_test2200z00_4228)
					{	/* Cgen/capp.scm 347 */
						BgL_cpragmaz00_bglt BgL_arg1673z00_1848;

						{	/* Cgen/capp.scm 347 */
							BgL_cpragmaz00_bglt BgL_new1237z00_1849;

							{	/* Cgen/capp.scm 349 */
								BgL_cpragmaz00_bglt BgL_new1236z00_1850;

								BgL_new1236z00_1850 =
									((BgL_cpragmaz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_cpragmaz00_bgl))));
								{	/* Cgen/capp.scm 349 */
									long BgL_arg1675z00_1851;

									BgL_arg1675z00_1851 =
										BGL_CLASS_NUM(BGl_cpragmaz00zzcgen_copz00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1236z00_1850),
										BgL_arg1675z00_1851);
								}
								BgL_new1237z00_1849 = BgL_new1236z00_1850;
							}
							((((BgL_copz00_bglt) COBJECT(
											((BgL_copz00_bglt) BgL_new1237z00_1849)))->BgL_locz00) =
								((obj_t) (((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
													BgL_nodez00_22)))->BgL_locz00)), BUNSPEC);
							((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
												BgL_new1237z00_1849)))->BgL_typez00) =
								((BgL_typez00_bglt) ((BgL_typez00_bglt)
										BGl_za2objza2z00zztype_cachez00)), BUNSPEC);
							((((BgL_cpragmaz00_bglt) COBJECT(BgL_new1237z00_1849))->
									BgL_formatz00) =
								((obj_t) BGl_string2168z00zzcgen_cappz00), BUNSPEC);
							((((BgL_cpragmaz00_bglt) COBJECT(BgL_new1237z00_1849))->
									BgL_argsz00) = ((obj_t) BNIL), BUNSPEC);
							BgL_arg1673z00_1848 = BgL_new1237z00_1849;
						}
						return
							(VA_PROCEDUREP(BgL_kontz00_23) ? ((obj_t(*)(obj_t,
										...)) PROCEDURE_ENTRY(BgL_kontz00_23)) (BgL_kontz00_23,
								((obj_t) BgL_arg1673z00_1848), BEOA) : ((obj_t(*)(obj_t,
										obj_t)) PROCEDURE_ENTRY(BgL_kontz00_23)) (BgL_kontz00_23,
								((obj_t) BgL_arg1673z00_1848)));
					}
				else
					{	/* Cgen/capp.scm 352 */
						obj_t BgL_argszd2typezd2_1852;

						BgL_argszd2typezd2_1852 =
							(((BgL_cfunz00_bglt) COBJECT(
									((BgL_cfunz00_bglt)
										(((BgL_variablez00_bglt) COBJECT(BgL_varz00_21))->
											BgL_valuez00))))->BgL_argszd2typezd2);
						{
							BgL_copz00_bglt BgL_copz00_1927;
							BgL_localz00_bglt BgL_auxz00_1928;

							{	/* Cgen/capp.scm 359 */
								obj_t BgL_g1242z00_1854;
								BgL_localz00_bglt BgL_g1244z00_1856;

								BgL_g1242z00_1854 =
									(((BgL_appz00_bglt) COBJECT(BgL_nodez00_22))->BgL_argsz00);
								BgL_g1244z00_1856 =
									BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(CNST_TABLE_REF
									(3L), ((BgL_typez00_bglt) BGl_za2objza2z00zztype_cachez00));
								{
									obj_t BgL_oldzd2actualszd2_1860;
									obj_t BgL_argszd2typezd2_1861;
									obj_t BgL_newzd2actualszd2_1862;
									BgL_localz00_bglt BgL_auxz00_1863;
									obj_t BgL_auxsz00_1864;
									obj_t BgL_expsz00_1865;

									BgL_oldzd2actualszd2_1860 = BgL_g1242z00_1854;
									BgL_argszd2typezd2_1861 = BgL_argszd2typezd2_1852;
									BgL_newzd2actualszd2_1862 = BNIL;
									BgL_auxz00_1863 = BgL_g1244z00_1856;
									BgL_auxsz00_1864 = BNIL;
									BgL_expsz00_1865 = BNIL;
								BgL_zc3z04anonymousza31676ze3z87_1866:
									if (NULLP(BgL_oldzd2actualszd2_1860))
										{	/* Cgen/capp.scm 365 */
											if (NULLP(BgL_auxsz00_1864))
												{	/* Cgen/capp.scm 368 */
													BgL_cappz00_bglt BgL_arg1681z00_1869;

													{	/* Cgen/capp.scm 368 */
														BgL_cappz00_bglt BgL_new1248z00_1870;

														{	/* Cgen/capp.scm 370 */
															BgL_cappz00_bglt BgL_new1247z00_1872;

															BgL_new1247z00_1872 =
																((BgL_cappz00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_cappz00_bgl))));
															{	/* Cgen/capp.scm 370 */
																long BgL_arg1686z00_1873;

																BgL_arg1686z00_1873 =
																	BGL_CLASS_NUM(BGl_cappz00zzcgen_copz00);
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1247z00_1872),
																	BgL_arg1686z00_1873);
															}
															BgL_new1248z00_1870 = BgL_new1247z00_1872;
														}
														((((BgL_copz00_bglt) COBJECT(
																		((BgL_copz00_bglt) BgL_new1248z00_1870)))->
																BgL_locz00) =
															((obj_t) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt)
																				BgL_nodez00_22)))->BgL_locz00)),
															BUNSPEC);
														((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																			BgL_new1248z00_1870)))->BgL_typez00) =
															((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt)
																				BgL_nodez00_22)))->BgL_typez00)),
															BUNSPEC);
														{
															BgL_copz00_bglt BgL_auxz00_4273;

															{	/* Cgen/capp.scm 371 */
																BgL_varz00_bglt BgL_arg1684z00_1871;

																BgL_arg1684z00_1871 =
																	(((BgL_appz00_bglt) COBJECT(BgL_nodez00_22))->
																	BgL_funz00);
																BgL_auxz00_4273 =
																	BGl_nodezd2ze3copz31zzcgen_cgenz00((
																		(BgL_nodez00_bglt) BgL_arg1684z00_1871),
																	BGl_za2idzd2kontza2zd2zzcgen_cgenz00,
																	CBOOL(BgL_inpushexitz00_24));
															}
															((((BgL_cappz00_bglt)
																		COBJECT(BgL_new1248z00_1870))->BgL_funz00) =
																((BgL_copz00_bglt) BgL_auxz00_4273), BUNSPEC);
														}
														((((BgL_cappz00_bglt)
																	COBJECT(BgL_new1248z00_1870))->BgL_argsz00) =
															((obj_t)
																bgl_reverse_bang(BgL_newzd2actualszd2_1862)),
															BUNSPEC);
														((((BgL_cappz00_bglt)
																	COBJECT(BgL_new1248z00_1870))->
																BgL_stackablez00) =
															((obj_t) (((BgL_appz00_bglt)
																		COBJECT(BgL_nodez00_22))->
																	BgL_stackablez00)), BUNSPEC);
														BgL_arg1681z00_1869 = BgL_new1248z00_1870;
													}
													return
														(VA_PROCEDUREP(BgL_kontz00_23) ? ((obj_t(*)(obj_t,
																	...))
															PROCEDURE_ENTRY(BgL_kontz00_23)) (BgL_kontz00_23,
															((obj_t) BgL_arg1681z00_1869),
															BEOA) : ((obj_t(*)(obj_t,
																	obj_t))
															PROCEDURE_ENTRY(BgL_kontz00_23)) (BgL_kontz00_23,
															((obj_t) BgL_arg1681z00_1869)));
												}
											else
												{	/* Cgen/capp.scm 379 */
													obj_t BgL_locz00_1874;

													BgL_locz00_1874 =
														(((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_nodez00_22)))->
														BgL_locz00);
													{	/* Cgen/capp.scm 380 */
														BgL_cblockz00_bglt BgL_new1250z00_1875;

														{	/* Cgen/capp.scm 382 */
															BgL_cblockz00_bglt BgL_new1249z00_1896;

															BgL_new1249z00_1896 =
																((BgL_cblockz00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_cblockz00_bgl))));
															{	/* Cgen/capp.scm 382 */
																long BgL_arg1715z00_1897;

																BgL_arg1715z00_1897 =
																	BGL_CLASS_NUM(BGl_cblockz00zzcgen_copz00);
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1249z00_1896),
																	BgL_arg1715z00_1897);
															}
															BgL_new1250z00_1875 = BgL_new1249z00_1896;
														}
														((((BgL_copz00_bglt) COBJECT(
																		((BgL_copz00_bglt) BgL_new1250z00_1875)))->
																BgL_locz00) =
															((obj_t) BgL_locz00_1874), BUNSPEC);
														((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																			BgL_new1250z00_1875)))->BgL_typez00) =
															((BgL_typez00_bglt) ((BgL_typez00_bglt)
																	BGl_za2_za2z00zztype_cachez00)), BUNSPEC);
														{
															BgL_copz00_bglt BgL_auxz00_4299;

															{	/* Cgen/capp.scm 383 */
																BgL_csequencez00_bglt BgL_new1252z00_1876;

																{	/* Cgen/capp.scm 385 */
																	BgL_csequencez00_bglt BgL_new1251z00_1894;

																	BgL_new1251z00_1894 =
																		((BgL_csequencez00_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_csequencez00_bgl))));
																	{	/* Cgen/capp.scm 385 */
																		long BgL_arg1714z00_1895;

																		{	/* Cgen/capp.scm 385 */
																			obj_t BgL_classz00_2814;

																			BgL_classz00_2814 =
																				BGl_csequencez00zzcgen_copz00;
																			BgL_arg1714z00_1895 =
																				BGL_CLASS_NUM(BgL_classz00_2814);
																		}
																		BGL_OBJECT_CLASS_NUM_SET(
																			((BgL_objectz00_bglt)
																				BgL_new1251z00_1894),
																			BgL_arg1714z00_1895);
																	}
																	BgL_new1252z00_1876 = BgL_new1251z00_1894;
																}
																((((BgL_copz00_bglt) COBJECT(
																				((BgL_copz00_bglt)
																					BgL_new1252z00_1876)))->BgL_locz00) =
																	((obj_t) BgL_locz00_1874), BUNSPEC);
																((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																					BgL_new1252z00_1876)))->BgL_typez00) =
																	((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																				COBJECT(((BgL_nodez00_bglt)
																						BgL_nodez00_22)))->BgL_typez00)),
																	BUNSPEC);
																((((BgL_csequencez00_bglt)
																			COBJECT(BgL_new1252z00_1876))->
																		BgL_czd2expzf3z21) =
																	((bool_t) ((bool_t) 0)), BUNSPEC);
																{
																	obj_t BgL_auxz00_4311;

																	{	/* Cgen/capp.scm 388 */
																		BgL_localzd2varzd2_bglt BgL_arg1690z00_1877;
																		BgL_csequencez00_bglt BgL_arg1693z00_1878;
																		obj_t BgL_arg1695z00_1879;

																		{	/* Cgen/capp.scm 388 */
																			BgL_localzd2varzd2_bglt
																				BgL_new1254z00_1883;
																			{	/* Cgen/capp.scm 390 */
																				BgL_localzd2varzd2_bglt
																					BgL_new1253z00_1884;
																				BgL_new1253z00_1884 =
																					((BgL_localzd2varzd2_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_localzd2varzd2_bgl))));
																				{	/* Cgen/capp.scm 390 */
																					long BgL_arg1707z00_1885;

																					{	/* Cgen/capp.scm 390 */
																						obj_t BgL_classz00_2818;

																						BgL_classz00_2818 =
																							BGl_localzd2varzd2zzcgen_copz00;
																						BgL_arg1707z00_1885 =
																							BGL_CLASS_NUM(BgL_classz00_2818);
																					}
																					BGL_OBJECT_CLASS_NUM_SET(
																						((BgL_objectz00_bglt)
																							BgL_new1253z00_1884),
																						BgL_arg1707z00_1885);
																				}
																				BgL_new1254z00_1883 =
																					BgL_new1253z00_1884;
																			}
																			((((BgL_copz00_bglt) COBJECT(
																							((BgL_copz00_bglt)
																								BgL_new1254z00_1883)))->
																					BgL_locz00) =
																				((obj_t) BgL_locz00_1874), BUNSPEC);
																			((((BgL_copz00_bglt)
																						COBJECT(((BgL_copz00_bglt)
																								BgL_new1254z00_1883)))->
																					BgL_typez00) =
																				((BgL_typez00_bglt) ((BgL_typez00_bglt)
																						BGl_za2objza2z00zztype_cachez00)),
																				BUNSPEC);
																			((((BgL_localzd2varzd2_bglt)
																						COBJECT(BgL_new1254z00_1883))->
																					BgL_varsz00) =
																				((obj_t) BgL_auxsz00_1864), BUNSPEC);
																			BgL_arg1690z00_1877 = BgL_new1254z00_1883;
																		}
																		{	/* Cgen/capp.scm 392 */
																			BgL_csequencez00_bglt BgL_new1257z00_1886;

																			{	/* Cgen/capp.scm 394 */
																				BgL_csequencez00_bglt
																					BgL_new1255z00_1887;
																				BgL_new1255z00_1887 =
																					((BgL_csequencez00_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_csequencez00_bgl))));
																				{	/* Cgen/capp.scm 394 */
																					long BgL_arg1708z00_1888;

																					{	/* Cgen/capp.scm 394 */
																						obj_t BgL_classz00_2821;

																						BgL_classz00_2821 =
																							BGl_csequencez00zzcgen_copz00;
																						BgL_arg1708z00_1888 =
																							BGL_CLASS_NUM(BgL_classz00_2821);
																					}
																					BGL_OBJECT_CLASS_NUM_SET(
																						((BgL_objectz00_bglt)
																							BgL_new1255z00_1887),
																						BgL_arg1708z00_1888);
																				}
																				BgL_new1257z00_1886 =
																					BgL_new1255z00_1887;
																			}
																			((((BgL_copz00_bglt) COBJECT(
																							((BgL_copz00_bglt)
																								BgL_new1257z00_1886)))->
																					BgL_locz00) =
																				((obj_t) BgL_locz00_1874), BUNSPEC);
																			((((BgL_copz00_bglt)
																						COBJECT(((BgL_copz00_bglt)
																								BgL_new1257z00_1886)))->
																					BgL_typez00) =
																				((BgL_typez00_bglt) ((BgL_typez00_bglt)
																						BGl_za2objza2z00zztype_cachez00)),
																				BUNSPEC);
																			((((BgL_csequencez00_bglt)
																						COBJECT(BgL_new1257z00_1886))->
																					BgL_czd2expzf3z21) =
																				((bool_t) ((bool_t) 0)), BUNSPEC);
																			((((BgL_csequencez00_bglt)
																						COBJECT(BgL_new1257z00_1886))->
																					BgL_copsz00) =
																				((obj_t) BgL_expsz00_1865), BUNSPEC);
																			BgL_arg1693z00_1878 = BgL_new1257z00_1886;
																		}
																		{	/* Cgen/capp.scm 397 */
																			BgL_cappz00_bglt BgL_arg1709z00_1889;

																			{	/* Cgen/capp.scm 397 */
																				BgL_cappz00_bglt BgL_new1259z00_1890;

																				{	/* Cgen/capp.scm 399 */
																					BgL_cappz00_bglt BgL_new1258z00_1892;

																					BgL_new1258z00_1892 =
																						((BgL_cappz00_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_cappz00_bgl))));
																					{	/* Cgen/capp.scm 399 */
																						long BgL_arg1712z00_1893;

																						{	/* Cgen/capp.scm 399 */
																							obj_t BgL_classz00_2824;

																							BgL_classz00_2824 =
																								BGl_cappz00zzcgen_copz00;
																							BgL_arg1712z00_1893 =
																								BGL_CLASS_NUM
																								(BgL_classz00_2824);
																						}
																						BGL_OBJECT_CLASS_NUM_SET(
																							((BgL_objectz00_bglt)
																								BgL_new1258z00_1892),
																							BgL_arg1712z00_1893);
																					}
																					BgL_new1259z00_1890 =
																						BgL_new1258z00_1892;
																				}
																				((((BgL_copz00_bglt) COBJECT(
																								((BgL_copz00_bglt)
																									BgL_new1259z00_1890)))->
																						BgL_locz00) =
																					((obj_t) BgL_locz00_1874), BUNSPEC);
																				((((BgL_copz00_bglt)
																							COBJECT(((BgL_copz00_bglt)
																									BgL_new1259z00_1890)))->
																						BgL_typez00) =
																					((BgL_typez00_bglt) ((
																								(BgL_nodez00_bglt)
																								COBJECT(((BgL_nodez00_bglt)
																										BgL_nodez00_22)))->
																							BgL_typez00)), BUNSPEC);
																				{
																					BgL_copz00_bglt BgL_auxz00_4343;

																					{	/* Cgen/capp.scm 400 */
																						BgL_varz00_bglt BgL_arg1710z00_1891;

																						BgL_arg1710z00_1891 =
																							(((BgL_appz00_bglt)
																								COBJECT(BgL_nodez00_22))->
																							BgL_funz00);
																						BgL_auxz00_4343 =
																							BGl_nodezd2ze3copz31zzcgen_cgenz00
																							(((BgL_nodez00_bglt)
																								BgL_arg1710z00_1891),
																							BGl_za2idzd2kontza2zd2zzcgen_cgenz00,
																							CBOOL(BgL_inpushexitz00_24));
																					}
																					((((BgL_cappz00_bglt)
																								COBJECT(BgL_new1259z00_1890))->
																							BgL_funz00) =
																						((BgL_copz00_bglt) BgL_auxz00_4343),
																						BUNSPEC);
																				}
																				((((BgL_cappz00_bglt)
																							COBJECT(BgL_new1259z00_1890))->
																						BgL_argsz00) =
																					((obj_t)
																						bgl_reverse_bang
																						(BgL_newzd2actualszd2_1862)),
																					BUNSPEC);
																				((((BgL_cappz00_bglt)
																							COBJECT(BgL_new1259z00_1890))->
																						BgL_stackablez00) =
																					((obj_t) (((BgL_appz00_bglt)
																								COBJECT(BgL_nodez00_22))->
																							BgL_stackablez00)), BUNSPEC);
																				BgL_arg1709z00_1889 =
																					BgL_new1259z00_1890;
																			}
																			BgL_arg1695z00_1879 =
																				(VA_PROCEDUREP(BgL_kontz00_23)
																				? ((obj_t(*)(obj_t,
																							...))
																					PROCEDURE_ENTRY(BgL_kontz00_23))
																				(BgL_kontz00_23,
																					((obj_t) BgL_arg1709z00_1889),
																					BEOA) : ((obj_t(*)(obj_t,
																							obj_t))
																					PROCEDURE_ENTRY(BgL_kontz00_23))
																				(BgL_kontz00_23,
																					((obj_t) BgL_arg1709z00_1889)));
																		}
																		{	/* Cgen/capp.scm 387 */
																			obj_t BgL_list1696z00_1880;

																			{	/* Cgen/capp.scm 387 */
																				obj_t BgL_arg1698z00_1881;

																				{	/* Cgen/capp.scm 387 */
																					obj_t BgL_arg1706z00_1882;

																					BgL_arg1706z00_1882 =
																						MAKE_YOUNG_PAIR(BgL_arg1695z00_1879,
																						BNIL);
																					BgL_arg1698z00_1881 =
																						MAKE_YOUNG_PAIR(((obj_t)
																							BgL_arg1693z00_1878),
																						BgL_arg1706z00_1882);
																				}
																				BgL_list1696z00_1880 =
																					MAKE_YOUNG_PAIR(
																					((obj_t) BgL_arg1690z00_1877),
																					BgL_arg1698z00_1881);
																			}
																			BgL_auxz00_4311 = BgL_list1696z00_1880;
																	}}
																	((((BgL_csequencez00_bglt)
																				COBJECT(BgL_new1252z00_1876))->
																			BgL_copsz00) =
																		((obj_t) BgL_auxz00_4311), BUNSPEC);
																}
																BgL_auxz00_4299 =
																	((BgL_copz00_bglt) BgL_new1252z00_1876);
															}
															((((BgL_cblockz00_bglt)
																		COBJECT(BgL_new1250z00_1875))->
																	BgL_bodyz00) =
																((BgL_copz00_bglt) BgL_auxz00_4299), BUNSPEC);
														}
														return ((obj_t) BgL_new1250z00_1875);
													}
												}
										}
									else
										{	/* Cgen/capp.scm 405 */
											BgL_copz00_bglt BgL_copz00_1898;

											{	/* Cgen/capp.scm 405 */
												BgL_setqz00_bglt BgL_arg1760z00_1923;

												{	/* Cgen/capp.scm 405 */
													obj_t BgL_arg1763z00_1924;

													BgL_arg1763z00_1924 =
														CAR(((obj_t) BgL_oldzd2actualszd2_1860));
													BgL_arg1760z00_1923 =
														BGl_nodezd2setqzd2zzcgen_cgenz00(
														((BgL_variablez00_bglt) BgL_auxz00_1863),
														((BgL_nodez00_bglt) BgL_arg1763z00_1924));
												}
												BgL_copz00_1898 =
													BGl_nodezd2ze3copz31zzcgen_cgenz00(
													((BgL_nodez00_bglt) BgL_arg1760z00_1923),
													BGl_za2idzd2kontza2zd2zzcgen_cgenz00,
													CBOOL(BgL_inpushexitz00_24));
											}
											{	/* Cgen/capp.scm 407 */
												bool_t BgL_test2204z00_4375;

												BgL_copz00_1927 = BgL_copz00_1898;
												BgL_auxz00_1928 = BgL_auxz00_1863;
												{	/* Cgen/capp.scm 354 */
													bool_t BgL_test2205z00_4376;

													{	/* Cgen/capp.scm 354 */
														obj_t BgL_classz00_2705;

														BgL_classz00_2705 = BGl_csetqz00zzcgen_copz00;
														{	/* Cgen/capp.scm 354 */
															BgL_objectz00_bglt BgL_arg1801z00_2707;

															{	/* Cgen/capp.scm 354 */
																obj_t BgL_tmpz00_4377;

																BgL_tmpz00_4377 =
																	((obj_t)
																	((BgL_objectz00_bglt) BgL_copz00_1927));
																BgL_arg1801z00_2707 =
																	(BgL_objectz00_bglt) (BgL_tmpz00_4377);
															}
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* Cgen/capp.scm 354 */
																	long BgL_idxz00_2713;

																	BgL_idxz00_2713 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_2707);
																	BgL_test2205z00_4376 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_2713 + 2L)) ==
																		BgL_classz00_2705);
																}
															else
																{	/* Cgen/capp.scm 354 */
																	bool_t BgL_res2132z00_2735;

																	{	/* Cgen/capp.scm 354 */
																		obj_t BgL_oclassz00_2721;

																		{	/* Cgen/capp.scm 354 */
																			long BgL_arg1808z00_2727;

																			{	/* Cgen/capp.scm 354 */
																				long BgL_arg1809z00_2728;

																				BgL_arg1809z00_2728 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_2707);
																				BgL_arg1808z00_2727 =
																					(BgL_arg1809z00_2728 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_2721 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_2727);
																		}
																		{	/* Cgen/capp.scm 354 */
																			bool_t BgL__ortest_1115z00_2722;

																			BgL__ortest_1115z00_2722 =
																				(BgL_classz00_2705 ==
																				BgL_oclassz00_2721);
																			if (BgL__ortest_1115z00_2722)
																				{	/* Cgen/capp.scm 354 */
																					BgL_res2132z00_2735 =
																						BgL__ortest_1115z00_2722;
																				}
																			else
																				{	/* Cgen/capp.scm 354 */
																					long BgL_odepthz00_2723;

																					BgL_odepthz00_2723 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_2721);
																					if ((2L < BgL_odepthz00_2723))
																						{	/* Cgen/capp.scm 354 */
																							obj_t BgL_arg1797z00_2725;

																							BgL_arg1797z00_2725 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_2721, 2L);
																							BgL_res2132z00_2735 =
																								(BgL_arg1797z00_2725 ==
																								BgL_classz00_2705);
																						}
																					else
																						{	/* Cgen/capp.scm 354 */
																							BgL_res2132z00_2735 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test2205z00_4376 = BgL_res2132z00_2735;
																}
														}
													}
													if (BgL_test2205z00_4376)
														{	/* Cgen/capp.scm 354 */
															if (
																(((obj_t)
																		(((BgL_varcz00_bglt) COBJECT(
																					(((BgL_csetqz00_bglt) COBJECT(
																								((BgL_csetqz00_bglt)
																									BgL_copz00_1927)))->
																						BgL_varz00)))->BgL_variablez00)) ==
																	((obj_t) BgL_auxz00_1928)))
																{	/* Cgen/capp.scm 356 */
																	bool_t BgL__ortest_1240z00_1932;

																	BgL__ortest_1240z00_1932 =
																		BGl_globalzd2argszd2safezf3zf3zzast_varz00(
																		((BgL_globalz00_bglt) BgL_varz00_21));
																	if (BgL__ortest_1240z00_1932)
																		{	/* Cgen/capp.scm 356 */
																			BgL_test2204z00_4375 =
																				BgL__ortest_1240z00_1932;
																		}
																	else
																		{	/* Cgen/capp.scm 357 */
																			bool_t BgL__ortest_1241z00_1933;

																			{	/* Cgen/capp.scm 357 */
																				BgL_copz00_bglt BgL_arg1773z00_1935;

																				BgL_arg1773z00_1935 =
																					(((BgL_csetqz00_bglt) COBJECT(
																							((BgL_csetqz00_bglt)
																								BgL_copz00_1927)))->
																					BgL_valuez00);
																				{	/* Cgen/capp.scm 357 */
																					obj_t BgL_classz00_2739;

																					BgL_classz00_2739 =
																						BGl_catomz00zzcgen_copz00;
																					{	/* Cgen/capp.scm 357 */
																						BgL_objectz00_bglt
																							BgL_arg1801z00_2741;
																						{	/* Cgen/capp.scm 357 */
																							obj_t BgL_tmpz00_4409;

																							BgL_tmpz00_4409 =
																								((obj_t)
																								((BgL_objectz00_bglt)
																									BgL_arg1773z00_1935));
																							BgL_arg1801z00_2741 =
																								(BgL_objectz00_bglt)
																								(BgL_tmpz00_4409);
																						}
																						if (BGL_CONDEXPAND_ISA_ARCH64())
																							{	/* Cgen/capp.scm 357 */
																								long BgL_idxz00_2747;

																								BgL_idxz00_2747 =
																									BGL_OBJECT_INHERITANCE_NUM
																									(BgL_arg1801z00_2741);
																								BgL__ortest_1241z00_1933 =
																									(VECTOR_REF
																									(BGl_za2inheritancesza2z00zz__objectz00,
																										(BgL_idxz00_2747 + 2L)) ==
																									BgL_classz00_2739);
																							}
																						else
																							{	/* Cgen/capp.scm 357 */
																								bool_t BgL_res2133z00_2769;

																								{	/* Cgen/capp.scm 357 */
																									obj_t BgL_oclassz00_2755;

																									{	/* Cgen/capp.scm 357 */
																										long BgL_arg1808z00_2761;

																										{	/* Cgen/capp.scm 357 */
																											long BgL_arg1809z00_2762;

																											BgL_arg1809z00_2762 =
																												BGL_OBJECT_CLASS_NUM
																												(BgL_arg1801z00_2741);
																											BgL_arg1808z00_2761 =
																												(BgL_arg1809z00_2762 -
																												OBJECT_TYPE);
																										}
																										BgL_oclassz00_2755 =
																											VECTOR_REF
																											(BGl_za2classesza2z00zz__objectz00,
																											BgL_arg1808z00_2761);
																									}
																									{	/* Cgen/capp.scm 357 */
																										bool_t
																											BgL__ortest_1115z00_2756;
																										BgL__ortest_1115z00_2756 =
																											(BgL_classz00_2739 ==
																											BgL_oclassz00_2755);
																										if (BgL__ortest_1115z00_2756)
																											{	/* Cgen/capp.scm 357 */
																												BgL_res2133z00_2769 =
																													BgL__ortest_1115z00_2756;
																											}
																										else
																											{	/* Cgen/capp.scm 357 */
																												long BgL_odepthz00_2757;

																												BgL_odepthz00_2757 =
																													BGL_CLASS_DEPTH
																													(BgL_oclassz00_2755);
																												if ((2L <
																														BgL_odepthz00_2757))
																													{	/* Cgen/capp.scm 357 */
																														obj_t
																															BgL_arg1797z00_2759;
																														BgL_arg1797z00_2759
																															=
																															BGL_CLASS_ANCESTORS_REF
																															(BgL_oclassz00_2755,
																															2L);
																														BgL_res2133z00_2769
																															=
																															(BgL_arg1797z00_2759
																															==
																															BgL_classz00_2739);
																													}
																												else
																													{	/* Cgen/capp.scm 357 */
																														BgL_res2133z00_2769
																															= ((bool_t) 0);
																													}
																											}
																									}
																								}
																								BgL__ortest_1241z00_1933 =
																									BgL_res2133z00_2769;
																							}
																					}
																				}
																			}
																			if (BgL__ortest_1241z00_1933)
																				{	/* Cgen/capp.scm 357 */
																					BgL_test2204z00_4375 =
																						BgL__ortest_1241z00_1933;
																				}
																			else
																				{	/* Cgen/capp.scm 358 */
																					BgL_copz00_bglt BgL_arg1771z00_1934;

																					BgL_arg1771z00_1934 =
																						(((BgL_csetqz00_bglt) COBJECT(
																								((BgL_csetqz00_bglt)
																									BgL_copz00_1927)))->
																						BgL_valuez00);
																					{	/* Cgen/capp.scm 358 */
																						obj_t BgL_classz00_2771;

																						BgL_classz00_2771 =
																							BGl_varcz00zzcgen_copz00;
																						{	/* Cgen/capp.scm 358 */
																							BgL_objectz00_bglt
																								BgL_arg1801z00_2773;
																							{	/* Cgen/capp.scm 358 */
																								obj_t BgL_tmpz00_4432;

																								BgL_tmpz00_4432 =
																									((obj_t)
																									((BgL_objectz00_bglt)
																										BgL_arg1771z00_1934));
																								BgL_arg1801z00_2773 =
																									(BgL_objectz00_bglt)
																									(BgL_tmpz00_4432);
																							}
																							if (BGL_CONDEXPAND_ISA_ARCH64())
																								{	/* Cgen/capp.scm 358 */
																									long BgL_idxz00_2779;

																									BgL_idxz00_2779 =
																										BGL_OBJECT_INHERITANCE_NUM
																										(BgL_arg1801z00_2773);
																									BgL_test2204z00_4375 =
																										(VECTOR_REF
																										(BGl_za2inheritancesza2z00zz__objectz00,
																											(BgL_idxz00_2779 + 2L)) ==
																										BgL_classz00_2771);
																								}
																							else
																								{	/* Cgen/capp.scm 358 */
																									bool_t BgL_res2134z00_2801;

																									{	/* Cgen/capp.scm 358 */
																										obj_t BgL_oclassz00_2787;

																										{	/* Cgen/capp.scm 358 */
																											long BgL_arg1808z00_2793;

																											{	/* Cgen/capp.scm 358 */
																												long
																													BgL_arg1809z00_2794;
																												BgL_arg1809z00_2794 =
																													BGL_OBJECT_CLASS_NUM
																													(BgL_arg1801z00_2773);
																												BgL_arg1808z00_2793 =
																													(BgL_arg1809z00_2794 -
																													OBJECT_TYPE);
																											}
																											BgL_oclassz00_2787 =
																												VECTOR_REF
																												(BGl_za2classesza2z00zz__objectz00,
																												BgL_arg1808z00_2793);
																										}
																										{	/* Cgen/capp.scm 358 */
																											bool_t
																												BgL__ortest_1115z00_2788;
																											BgL__ortest_1115z00_2788 =
																												(BgL_classz00_2771 ==
																												BgL_oclassz00_2787);
																											if (BgL__ortest_1115z00_2788)
																												{	/* Cgen/capp.scm 358 */
																													BgL_res2134z00_2801 =
																														BgL__ortest_1115z00_2788;
																												}
																											else
																												{	/* Cgen/capp.scm 358 */
																													long
																														BgL_odepthz00_2789;
																													BgL_odepthz00_2789 =
																														BGL_CLASS_DEPTH
																														(BgL_oclassz00_2787);
																													if ((2L <
																															BgL_odepthz00_2789))
																														{	/* Cgen/capp.scm 358 */
																															obj_t
																																BgL_arg1797z00_2791;
																															BgL_arg1797z00_2791
																																=
																																BGL_CLASS_ANCESTORS_REF
																																(BgL_oclassz00_2787,
																																2L);
																															BgL_res2134z00_2801
																																=
																																(BgL_arg1797z00_2791
																																==
																																BgL_classz00_2771);
																														}
																													else
																														{	/* Cgen/capp.scm 358 */
																															BgL_res2134z00_2801
																																= ((bool_t) 0);
																														}
																												}
																										}
																									}
																									BgL_test2204z00_4375 =
																										BgL_res2134z00_2801;
																								}
																						}
																					}
																				}
																		}
																}
															else
																{	/* Cgen/capp.scm 355 */
																	BgL_test2204z00_4375 = ((bool_t) 0);
																}
														}
													else
														{	/* Cgen/capp.scm 354 */
															BgL_test2204z00_4375 = ((bool_t) 0);
														}
												}
												if (BgL_test2204z00_4375)
													{	/* Cgen/capp.scm 408 */
														obj_t BgL_arg1717z00_1900;
														obj_t BgL_arg1718z00_1901;
														obj_t BgL_arg1729z00_1902;

														BgL_arg1717z00_1900 =
															CDR(((obj_t) BgL_oldzd2actualszd2_1860));
														if (NULLP(CDR(((obj_t) BgL_argszd2typezd2_1861))))
															{	/* Cgen/capp.scm 409 */
																BgL_arg1718z00_1901 = BgL_argszd2typezd2_1861;
															}
														else
															{	/* Cgen/capp.scm 409 */
																BgL_arg1718z00_1901 =
																	CDR(((obj_t) BgL_argszd2typezd2_1861));
															}
														{	/* Cgen/capp.scm 412 */
															BgL_copz00_bglt BgL_arg1734z00_1906;

															BgL_arg1734z00_1906 =
																(((BgL_csetqz00_bglt) COBJECT(
																		((BgL_csetqz00_bglt) BgL_copz00_1898)))->
																BgL_valuez00);
															BgL_arg1729z00_1902 =
																MAKE_YOUNG_PAIR(((obj_t) BgL_arg1734z00_1906),
																BgL_newzd2actualszd2_1862);
														}
														{
															obj_t BgL_newzd2actualszd2_4466;
															obj_t BgL_argszd2typezd2_4465;
															obj_t BgL_oldzd2actualszd2_4464;

															BgL_oldzd2actualszd2_4464 = BgL_arg1717z00_1900;
															BgL_argszd2typezd2_4465 = BgL_arg1718z00_1901;
															BgL_newzd2actualszd2_4466 = BgL_arg1729z00_1902;
															BgL_newzd2actualszd2_1862 =
																BgL_newzd2actualszd2_4466;
															BgL_argszd2typezd2_1861 = BgL_argszd2typezd2_4465;
															BgL_oldzd2actualszd2_1860 =
																BgL_oldzd2actualszd2_4464;
															goto BgL_zc3z04anonymousza31676ze3z87_1866;
														}
													}
												else
													{	/* Cgen/capp.scm 407 */
														{	/* Cgen/capp.scm 417 */
															obj_t BgL_arg1735z00_1907;

															BgL_arg1735z00_1907 =
																CAR(((obj_t) BgL_argszd2typezd2_1861));
															((((BgL_variablez00_bglt) COBJECT(
																			((BgL_variablez00_bglt)
																				BgL_auxz00_1863)))->BgL_typez00) =
																((BgL_typez00_bglt) ((BgL_typez00_bglt)
																		BgL_arg1735z00_1907)), BUNSPEC);
														}
														{	/* Cgen/capp.scm 418 */
															obj_t BgL_arg1736z00_1908;
															obj_t BgL_arg1739z00_1909;
															obj_t BgL_arg1741z00_1910;
															BgL_localz00_bglt BgL_arg1745z00_1911;
															obj_t BgL_arg1746z00_1912;
															obj_t BgL_arg1747z00_1913;

															BgL_arg1736z00_1908 =
																CDR(((obj_t) BgL_oldzd2actualszd2_1860));
															if (NULLP(CDR(((obj_t) BgL_argszd2typezd2_1861))))
																{	/* Cgen/capp.scm 419 */
																	BgL_arg1739z00_1909 = BgL_argszd2typezd2_1861;
																}
															else
																{	/* Cgen/capp.scm 419 */
																	BgL_arg1739z00_1909 =
																		CDR(((obj_t) BgL_argszd2typezd2_1861));
																}
															{	/* Cgen/capp.scm 422 */
																BgL_varcz00_bglt BgL_arg1751z00_1917;

																{	/* Cgen/capp.scm 422 */
																	BgL_varcz00_bglt BgL_new1261z00_1918;

																	{	/* Cgen/capp.scm 425 */
																		BgL_varcz00_bglt BgL_new1260z00_1920;

																		BgL_new1260z00_1920 =
																			((BgL_varcz00_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_varcz00_bgl))));
																		{	/* Cgen/capp.scm 425 */
																			long BgL_arg1753z00_1921;

																			BgL_arg1753z00_1921 =
																				BGL_CLASS_NUM(BGl_varcz00zzcgen_copz00);
																			BGL_OBJECT_CLASS_NUM_SET(
																				((BgL_objectz00_bglt)
																					BgL_new1260z00_1920),
																				BgL_arg1753z00_1921);
																		}
																		BgL_new1261z00_1918 = BgL_new1260z00_1920;
																	}
																	((((BgL_copz00_bglt) COBJECT(
																					((BgL_copz00_bglt)
																						BgL_new1261z00_1918)))->
																			BgL_locz00) =
																		((obj_t) (((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt)
																							CAR(((obj_t)
																									BgL_oldzd2actualszd2_1860)))))->
																				BgL_locz00)), BUNSPEC);
																	((((BgL_copz00_bglt)
																				COBJECT(((BgL_copz00_bglt)
																						BgL_new1261z00_1918)))->
																			BgL_typez00) =
																		((BgL_typez00_bglt) (((BgL_variablez00_bglt)
																					COBJECT(((BgL_variablez00_bglt)
																							BgL_auxz00_1863)))->BgL_typez00)),
																		BUNSPEC);
																	((((BgL_varcz00_bglt)
																				COBJECT(BgL_new1261z00_1918))->
																			BgL_variablez00) =
																		((BgL_variablez00_bglt) (
																				(BgL_variablez00_bglt)
																				BgL_auxz00_1863)), BUNSPEC);
																	BgL_arg1751z00_1917 = BgL_new1261z00_1918;
																}
																BgL_arg1741z00_1910 =
																	MAKE_YOUNG_PAIR(
																	((obj_t) BgL_arg1751z00_1917),
																	BgL_newzd2actualszd2_1862);
															}
															{	/* Cgen/capp.scm 427 */
																obj_t BgL_arg1759z00_1922;

																BgL_arg1759z00_1922 =
																	CAR(((obj_t) BgL_argszd2typezd2_1861));
																BgL_arg1745z00_1911 =
																	BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00
																	(CNST_TABLE_REF(0L),
																	((BgL_typez00_bglt) BgL_arg1759z00_1922));
															}
															BgL_arg1746z00_1912 =
																MAKE_YOUNG_PAIR(
																((obj_t) BgL_auxz00_1863), BgL_auxsz00_1864);
															BgL_arg1747z00_1913 =
																MAKE_YOUNG_PAIR(
																((obj_t) BgL_copz00_1898), BgL_expsz00_1865);
															{
																obj_t BgL_expsz00_4512;
																obj_t BgL_auxsz00_4511;
																BgL_localz00_bglt BgL_auxz00_4510;
																obj_t BgL_newzd2actualszd2_4509;
																obj_t BgL_argszd2typezd2_4508;
																obj_t BgL_oldzd2actualszd2_4507;

																BgL_oldzd2actualszd2_4507 = BgL_arg1736z00_1908;
																BgL_argszd2typezd2_4508 = BgL_arg1739z00_1909;
																BgL_newzd2actualszd2_4509 = BgL_arg1741z00_1910;
																BgL_auxz00_4510 = BgL_arg1745z00_1911;
																BgL_auxsz00_4511 = BgL_arg1746z00_1912;
																BgL_expsz00_4512 = BgL_arg1747z00_1913;
																BgL_expsz00_1865 = BgL_expsz00_4512;
																BgL_auxsz00_1864 = BgL_auxsz00_4511;
																BgL_auxz00_1863 = BgL_auxz00_4510;
																BgL_newzd2actualszd2_1862 =
																	BgL_newzd2actualszd2_4509;
																BgL_argszd2typezd2_1861 =
																	BgL_argszd2typezd2_4508;
																BgL_oldzd2actualszd2_1860 =
																	BgL_oldzd2actualszd2_4507;
																goto BgL_zc3z04anonymousza31676ze3z87_1866;
															}
														}
													}
											}
										}
								}
							}
						}
					}
			}
		}

	}



/* node-tail-app->cop */
	obj_t BGl_nodezd2tailzd2appzd2ze3copz31zzcgen_cappz00(BgL_variablez00_bglt
		BgL_varz00_25, BgL_appz00_bglt BgL_nodez00_26, obj_t BgL_kontz00_27,
		obj_t BgL_inpushexitz00_28)
	{
		{	/* Cgen/capp.scm 439 */
			{	/* Cgen/capp.scm 445 */
				BgL_clabelz00_bglt BgL_labelz00_1939;
				obj_t BgL_argsz00_1940;
				obj_t BgL_locz00_1941;

				{	/* Cgen/capp.scm 445 */
					BgL_sfunz00_bglt BgL_oz00_2850;

					BgL_oz00_2850 =
						((BgL_sfunz00_bglt)
						(((BgL_variablez00_bglt) COBJECT(BgL_varz00_25))->BgL_valuez00));
					{
						BgL_sfunzf2czf2_bglt BgL_auxz00_4515;

						{
							obj_t BgL_auxz00_4516;

							{	/* Cgen/capp.scm 445 */
								BgL_objectz00_bglt BgL_tmpz00_4517;

								BgL_tmpz00_4517 = ((BgL_objectz00_bglt) BgL_oz00_2850);
								BgL_auxz00_4516 = BGL_OBJECT_WIDENING(BgL_tmpz00_4517);
							}
							BgL_auxz00_4515 = ((BgL_sfunzf2czf2_bglt) BgL_auxz00_4516);
						}
						BgL_labelz00_1939 =
							(((BgL_sfunzf2czf2_bglt) COBJECT(BgL_auxz00_4515))->BgL_labelz00);
					}
				}
				BgL_argsz00_1940 =
					(((BgL_sfunz00_bglt) COBJECT(
							((BgL_sfunz00_bglt)
								(((BgL_variablez00_bglt) COBJECT(BgL_varz00_25))->
									BgL_valuez00))))->BgL_argsz00);
				BgL_locz00_1941 =
					(((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt) BgL_nodez00_26)))->
					BgL_locz00);
				{	/* Cgen/capp.scm 448 */
					bool_t BgL_test2220z00_4527;

					{	/* Cgen/capp.scm 448 */
						BgL_sfunz00_bglt BgL_oz00_2856;

						BgL_oz00_2856 =
							((BgL_sfunz00_bglt)
							(((BgL_variablez00_bglt) COBJECT(BgL_varz00_25))->BgL_valuez00));
						{
							BgL_sfunzf2czf2_bglt BgL_auxz00_4530;

							{
								obj_t BgL_auxz00_4531;

								{	/* Cgen/capp.scm 448 */
									BgL_objectz00_bglt BgL_tmpz00_4532;

									BgL_tmpz00_4532 = ((BgL_objectz00_bglt) BgL_oz00_2856);
									BgL_auxz00_4531 = BGL_OBJECT_WIDENING(BgL_tmpz00_4532);
								}
								BgL_auxz00_4530 = ((BgL_sfunzf2czf2_bglt) BgL_auxz00_4531);
							}
							BgL_test2220z00_4527 =
								(((BgL_sfunzf2czf2_bglt) COBJECT(BgL_auxz00_4530))->
								BgL_integratedz00);
						}
					}
					if (BgL_test2220z00_4527)
						{	/* Cgen/capp.scm 448 */
							if (NULLP(BgL_argsz00_1940))
								{	/* Cgen/capp.scm 472 */
									((((BgL_clabelz00_bglt) COBJECT(BgL_labelz00_1939))->
											BgL_usedzf3zf3) = ((bool_t) ((bool_t) 1)), BUNSPEC);
									{	/* Cgen/capp.scm 475 */
										BgL_cgotoz00_bglt BgL_new1267z00_1945;

										{	/* Cgen/capp.scm 477 */
											BgL_cgotoz00_bglt BgL_new1266z00_1946;

											BgL_new1266z00_1946 =
												((BgL_cgotoz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
															BgL_cgotoz00_bgl))));
											{	/* Cgen/capp.scm 477 */
												long BgL_arg1798z00_1947;

												BgL_arg1798z00_1947 =
													BGL_CLASS_NUM(BGl_cgotoz00zzcgen_copz00);
												BGL_OBJECT_CLASS_NUM_SET(
													((BgL_objectz00_bglt) BgL_new1266z00_1946),
													BgL_arg1798z00_1947);
											}
											BgL_new1267z00_1945 = BgL_new1266z00_1946;
										}
										((((BgL_copz00_bglt) COBJECT(
														((BgL_copz00_bglt) BgL_new1267z00_1945)))->
												BgL_locz00) = ((obj_t) BgL_locz00_1941), BUNSPEC);
										((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
															BgL_new1267z00_1945)))->BgL_typez00) =
											((BgL_typez00_bglt) ((BgL_typez00_bglt)
													BGl_za2_za2z00zztype_cachez00)), BUNSPEC);
										((((BgL_cgotoz00_bglt) COBJECT(BgL_new1267z00_1945))->
												BgL_labelz00) =
											((BgL_clabelz00_bglt) BgL_labelz00_1939), BUNSPEC);
										return ((obj_t) BgL_new1267z00_1945);
									}
								}
							else
								{	/* Cgen/capp.scm 479 */
									obj_t BgL_g1270z00_1948;
									obj_t BgL_g1273z00_1951;

									BgL_g1270z00_1948 =
										(((BgL_appz00_bglt) COBJECT(BgL_nodez00_26))->BgL_argsz00);
									{	/* Cgen/capp.scm 484 */
										BgL_cgotoz00_bglt BgL_arg1846z00_2004;

										((((BgL_clabelz00_bglt) COBJECT(BgL_labelz00_1939))->
												BgL_usedzf3zf3) = ((bool_t) ((bool_t) 1)), BUNSPEC);
										{	/* Cgen/capp.scm 485 */
											BgL_cgotoz00_bglt BgL_new1269z00_2006;

											{	/* Cgen/capp.scm 487 */
												BgL_cgotoz00_bglt BgL_new1268z00_2007;

												BgL_new1268z00_2007 =
													((BgL_cgotoz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																BgL_cgotoz00_bgl))));
												{	/* Cgen/capp.scm 487 */
													long BgL_arg1848z00_2008;

													BgL_arg1848z00_2008 =
														BGL_CLASS_NUM(BGl_cgotoz00zzcgen_copz00);
													BGL_OBJECT_CLASS_NUM_SET(
														((BgL_objectz00_bglt) BgL_new1268z00_2007),
														BgL_arg1848z00_2008);
												}
												BgL_new1269z00_2006 = BgL_new1268z00_2007;
											}
											((((BgL_copz00_bglt) COBJECT(
															((BgL_copz00_bglt) BgL_new1269z00_2006)))->
													BgL_locz00) = ((obj_t) BgL_locz00_1941), BUNSPEC);
											((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																BgL_new1269z00_2006)))->BgL_typez00) =
												((BgL_typez00_bglt) ((BgL_typez00_bglt)
														BGl_za2_za2z00zztype_cachez00)), BUNSPEC);
											((((BgL_cgotoz00_bglt) COBJECT(BgL_new1269z00_2006))->
													BgL_labelz00) =
												((BgL_clabelz00_bglt) BgL_labelz00_1939), BUNSPEC);
											BgL_arg1846z00_2004 = BgL_new1269z00_2006;
										}
										{	/* Cgen/capp.scm 483 */
											obj_t BgL_list1847z00_2005;

											BgL_list1847z00_2005 =
												MAKE_YOUNG_PAIR(((obj_t) BgL_arg1846z00_2004), BNIL);
											BgL_g1273z00_1951 = BgL_list1847z00_2005;
									}}
									{
										obj_t BgL_argsz00_1953;
										obj_t BgL_actualsz00_1954;
										obj_t BgL_auxsz00_1955;
										obj_t BgL_seq1z00_1956;
										obj_t BgL_seq2z00_1957;

										BgL_argsz00_1953 = BgL_argsz00_1940;
										BgL_actualsz00_1954 = BgL_g1270z00_1948;
										BgL_auxsz00_1955 = BNIL;
										BgL_seq1z00_1956 = BNIL;
										BgL_seq2z00_1957 = BgL_g1273z00_1951;
									BgL_zc3z04anonymousza31799ze3z87_1958:
										if (NULLP(BgL_argsz00_1953))
											{	/* Cgen/capp.scm 489 */
												if (NULLP(BgL_seq1z00_1956))
													{	/* Cgen/capp.scm 491 */
														BgL_seq1z00_1956 = BgL_seq2z00_1957;
													}
												else
													{	/* Cgen/capp.scm 491 */
														BgL_seq1z00_1956 =
															bgl_reverse_bang(BgL_seq1z00_1956);
														{	/* Cgen/capp.scm 495 */
															obj_t BgL_tmpz00_4570;

															BgL_tmpz00_4570 =
																BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00
																(BgL_seq1z00_1956);
															SET_CDR(BgL_tmpz00_4570, BgL_seq2z00_1957);
														}
													}
												{	/* Cgen/capp.scm 498 */
													BgL_copz00_bglt BgL_arg1816z00_1962;

													{	/* Cgen/capp.scm 498 */
														BgL_csequencez00_bglt BgL_arg1822z00_1963;

														{	/* Cgen/capp.scm 498 */
															BgL_csequencez00_bglt BgL_new1275z00_1964;

															{	/* Cgen/capp.scm 500 */
																BgL_csequencez00_bglt BgL_new1274z00_1969;

																BgL_new1274z00_1969 =
																	((BgL_csequencez00_bglt)
																	BOBJECT(GC_MALLOC(sizeof(struct
																				BgL_csequencez00_bgl))));
																{	/* Cgen/capp.scm 500 */
																	long BgL_arg1825z00_1970;

																	BgL_arg1825z00_1970 =
																		BGL_CLASS_NUM
																		(BGl_csequencez00zzcgen_copz00);
																	BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																			BgL_new1274z00_1969),
																		BgL_arg1825z00_1970);
																}
																BgL_new1275z00_1964 = BgL_new1274z00_1969;
															}
															((((BgL_copz00_bglt) COBJECT(
																			((BgL_copz00_bglt)
																				BgL_new1275z00_1964)))->BgL_locz00) =
																((obj_t) BgL_locz00_1941), BUNSPEC);
															((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																				BgL_new1275z00_1964)))->BgL_typez00) =
																((BgL_typez00_bglt) ((BgL_typez00_bglt)
																		BGl_za2_za2z00zztype_cachez00)), BUNSPEC);
															((((BgL_csequencez00_bglt)
																		COBJECT(BgL_new1275z00_1964))->
																	BgL_czd2expzf3z21) =
																((bool_t) ((bool_t) 0)), BUNSPEC);
															{
																obj_t BgL_auxz00_4583;

																{	/* Cgen/capp.scm 501 */
																	BgL_localzd2varzd2_bglt BgL_arg1823z00_1965;

																	{	/* Cgen/capp.scm 501 */
																		BgL_localzd2varzd2_bglt BgL_new1277z00_1966;

																		{	/* Cgen/capp.scm 504 */
																			BgL_localzd2varzd2_bglt
																				BgL_new1276z00_1967;
																			BgL_new1276z00_1967 =
																				((BgL_localzd2varzd2_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_localzd2varzd2_bgl))));
																			{	/* Cgen/capp.scm 504 */
																				long BgL_arg1824z00_1968;

																				{	/* Cgen/capp.scm 504 */
																					obj_t BgL_classz00_2875;

																					BgL_classz00_2875 =
																						BGl_localzd2varzd2zzcgen_copz00;
																					BgL_arg1824z00_1968 =
																						BGL_CLASS_NUM(BgL_classz00_2875);
																				}
																				BGL_OBJECT_CLASS_NUM_SET(
																					((BgL_objectz00_bglt)
																						BgL_new1276z00_1967),
																					BgL_arg1824z00_1968);
																			}
																			BgL_new1277z00_1966 = BgL_new1276z00_1967;
																		}
																		((((BgL_copz00_bglt) COBJECT(
																						((BgL_copz00_bglt)
																							BgL_new1277z00_1966)))->
																				BgL_locz00) =
																			((obj_t) BgL_locz00_1941), BUNSPEC);
																		((((BgL_copz00_bglt)
																					COBJECT(((BgL_copz00_bglt)
																							BgL_new1277z00_1966)))->
																				BgL_typez00) =
																			((BgL_typez00_bglt) ((BgL_typez00_bglt)
																					BGl_za2objza2z00zztype_cachez00)),
																			BUNSPEC);
																		((((BgL_localzd2varzd2_bglt)
																					COBJECT(BgL_new1277z00_1966))->
																				BgL_varsz00) =
																			((obj_t) BgL_auxsz00_1955), BUNSPEC);
																		BgL_arg1823z00_1965 = BgL_new1277z00_1966;
																	}
																	BgL_auxz00_4583 =
																		MAKE_YOUNG_PAIR(
																		((obj_t) BgL_arg1823z00_1965),
																		BgL_seq1z00_1956);
																}
																((((BgL_csequencez00_bglt)
																			COBJECT(BgL_new1275z00_1964))->
																		BgL_copsz00) =
																	((obj_t) BgL_auxz00_4583), BUNSPEC);
															}
															BgL_arg1822z00_1963 = BgL_new1275z00_1964;
														}
														BgL_arg1816z00_1962 =
															BGl_bdbzd2letzd2varz00zzcgen_cgenz00(
															((BgL_copz00_bglt) BgL_arg1822z00_1963),
															BgL_locz00_1941);
													}
													return
														BGl_blockzd2kontzd2zzcgen_cgenz00(
														((obj_t) BgL_arg1816z00_1962), BFALSE);
												}
											}
										else
											{	/* Cgen/capp.scm 508 */
												obj_t BgL_argz00_1971;
												obj_t BgL_actz00_1972;

												BgL_argz00_1971 = CAR(((obj_t) BgL_argsz00_1953));
												BgL_actz00_1972 = CAR(((obj_t) BgL_actualsz00_1954));
												{	/* Cgen/capp.scm 513 */
													bool_t BgL_test2224z00_4605;

													{	/* Cgen/capp.scm 513 */
														bool_t BgL_test2225z00_4606;

														{	/* Cgen/capp.scm 513 */
															obj_t BgL_classz00_2880;

															BgL_classz00_2880 = BGl_varz00zzast_nodez00;
															if (BGL_OBJECTP(BgL_actz00_1972))
																{	/* Cgen/capp.scm 513 */
																	BgL_objectz00_bglt BgL_arg1801z00_2882;

																	BgL_arg1801z00_2882 =
																		(BgL_objectz00_bglt) (BgL_actz00_1972);
																	if (BGL_CONDEXPAND_ISA_ARCH64())
																		{	/* Cgen/capp.scm 513 */
																			long BgL_idxz00_2888;

																			BgL_idxz00_2888 =
																				BGL_OBJECT_INHERITANCE_NUM
																				(BgL_arg1801z00_2882);
																			BgL_test2225z00_4606 =
																				(VECTOR_REF
																				(BGl_za2inheritancesza2z00zz__objectz00,
																					(BgL_idxz00_2888 + 2L)) ==
																				BgL_classz00_2880);
																		}
																	else
																		{	/* Cgen/capp.scm 513 */
																			bool_t BgL_res2137z00_2910;

																			{	/* Cgen/capp.scm 513 */
																				obj_t BgL_oclassz00_2896;

																				{	/* Cgen/capp.scm 513 */
																					long BgL_arg1808z00_2902;

																					{	/* Cgen/capp.scm 513 */
																						long BgL_arg1809z00_2903;

																						BgL_arg1809z00_2903 =
																							BGL_OBJECT_CLASS_NUM
																							(BgL_arg1801z00_2882);
																						BgL_arg1808z00_2902 =
																							(BgL_arg1809z00_2903 -
																							OBJECT_TYPE);
																					}
																					BgL_oclassz00_2896 =
																						VECTOR_REF
																						(BGl_za2classesza2z00zz__objectz00,
																						BgL_arg1808z00_2902);
																				}
																				{	/* Cgen/capp.scm 513 */
																					bool_t BgL__ortest_1115z00_2897;

																					BgL__ortest_1115z00_2897 =
																						(BgL_classz00_2880 ==
																						BgL_oclassz00_2896);
																					if (BgL__ortest_1115z00_2897)
																						{	/* Cgen/capp.scm 513 */
																							BgL_res2137z00_2910 =
																								BgL__ortest_1115z00_2897;
																						}
																					else
																						{	/* Cgen/capp.scm 513 */
																							long BgL_odepthz00_2898;

																							BgL_odepthz00_2898 =
																								BGL_CLASS_DEPTH
																								(BgL_oclassz00_2896);
																							if ((2L < BgL_odepthz00_2898))
																								{	/* Cgen/capp.scm 513 */
																									obj_t BgL_arg1797z00_2900;

																									BgL_arg1797z00_2900 =
																										BGL_CLASS_ANCESTORS_REF
																										(BgL_oclassz00_2896, 2L);
																									BgL_res2137z00_2910 =
																										(BgL_arg1797z00_2900 ==
																										BgL_classz00_2880);
																								}
																							else
																								{	/* Cgen/capp.scm 513 */
																									BgL_res2137z00_2910 =
																										((bool_t) 0);
																								}
																						}
																				}
																			}
																			BgL_test2225z00_4606 =
																				BgL_res2137z00_2910;
																		}
																}
															else
																{	/* Cgen/capp.scm 513 */
																	BgL_test2225z00_4606 = ((bool_t) 0);
																}
														}
														if (BgL_test2225z00_4606)
															{	/* Cgen/capp.scm 513 */
																BgL_test2224z00_4605 =
																	(BgL_argz00_1971 ==
																	((obj_t)
																		(((BgL_varz00_bglt) COBJECT(
																					((BgL_varz00_bglt)
																						BgL_actz00_1972)))->
																			BgL_variablez00)));
															}
														else
															{	/* Cgen/capp.scm 513 */
																BgL_test2224z00_4605 = ((bool_t) 0);
															}
													}
													if (BgL_test2224z00_4605)
														{	/* Cgen/capp.scm 514 */
															obj_t BgL_arg1829z00_1976;
															obj_t BgL_arg1830z00_1977;

															BgL_arg1829z00_1976 =
																CDR(((obj_t) BgL_argsz00_1953));
															BgL_arg1830z00_1977 =
																CDR(((obj_t) BgL_actualsz00_1954));
															{
																obj_t BgL_actualsz00_4635;
																obj_t BgL_argsz00_4634;

																BgL_argsz00_4634 = BgL_arg1829z00_1976;
																BgL_actualsz00_4635 = BgL_arg1830z00_1977;
																BgL_actualsz00_1954 = BgL_actualsz00_4635;
																BgL_argsz00_1953 = BgL_argsz00_4634;
																goto BgL_zc3z04anonymousza31799ze3z87_1958;
															}
														}
													else
														{	/* Cgen/capp.scm 519 */
															BgL_localz00_bglt BgL_auxz00_1978;

															{	/* Cgen/capp.scm 520 */
																obj_t BgL_arg1843z00_1999;
																BgL_typez00_bglt BgL_arg1844z00_2000;

																BgL_arg1843z00_1999 =
																	(((BgL_variablez00_bglt) COBJECT(
																			((BgL_variablez00_bglt)
																				((BgL_localz00_bglt)
																					BgL_argz00_1971))))->BgL_idz00);
																BgL_arg1844z00_2000 =
																	(((BgL_variablez00_bglt)
																		COBJECT(((BgL_variablez00_bglt) (
																					(BgL_localz00_bglt)
																					BgL_argz00_1971))))->BgL_typez00);
																BgL_auxz00_1978 =
																	BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00
																	(BgL_arg1843z00_1999, BgL_arg1844z00_2000);
															}
															{	/* Cgen/capp.scm 522 */
																obj_t BgL_arg1831z00_1979;
																obj_t BgL_arg1832z00_1980;
																obj_t BgL_arg1833z00_1981;
																obj_t BgL_arg1834z00_1982;
																obj_t BgL_arg1835z00_1983;

																BgL_arg1831z00_1979 =
																	CDR(((obj_t) BgL_argsz00_1953));
																BgL_arg1832z00_1980 =
																	CDR(((obj_t) BgL_actualsz00_1954));
																BgL_arg1833z00_1981 =
																	MAKE_YOUNG_PAIR(
																	((obj_t) BgL_auxz00_1978), BgL_auxsz00_1955);
																{	/* Cgen/capp.scm 525 */
																	BgL_copz00_bglt BgL_arg1836z00_1984;

																	{	/* Cgen/capp.scm 525 */
																		BgL_setqz00_bglt BgL_arg1837z00_1985;

																		BgL_arg1837z00_1985 =
																			BGl_nodezd2setqzd2zzcgen_cgenz00(
																			((BgL_variablez00_bglt) BgL_auxz00_1978),
																			((BgL_nodez00_bglt) BgL_actz00_1972));
																		BgL_arg1836z00_1984 =
																			BGl_nodezd2ze3copz31zzcgen_cgenz00(
																			((BgL_nodez00_bglt) BgL_arg1837z00_1985),
																			BGl_za2stopzd2kontza2zd2zzcgen_cgenz00,
																			CBOOL(BgL_inpushexitz00_28));
																	}
																	BgL_arg1834z00_1982 =
																		MAKE_YOUNG_PAIR(
																		((obj_t) BgL_arg1836z00_1984),
																		BgL_seq1z00_1956);
																}
																{	/* Cgen/capp.scm 529 */
																	BgL_stopz00_bglt BgL_arg1838z00_1986;

																	{	/* Cgen/capp.scm 529 */
																		BgL_stopz00_bglt BgL_new1279z00_1987;

																		{	/* Cgen/capp.scm 533 */
																			BgL_stopz00_bglt BgL_new1278z00_1997;

																			BgL_new1278z00_1997 =
																				((BgL_stopz00_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_stopz00_bgl))));
																			{	/* Cgen/capp.scm 533 */
																				long BgL_arg1842z00_1998;

																				BgL_arg1842z00_1998 =
																					BGL_CLASS_NUM
																					(BGl_stopz00zzcgen_copz00);
																				BGL_OBJECT_CLASS_NUM_SET((
																						(BgL_objectz00_bglt)
																						BgL_new1278z00_1997),
																					BgL_arg1842z00_1998);
																			}
																			BgL_new1279z00_1987 = BgL_new1278z00_1997;
																		}
																		((((BgL_copz00_bglt) COBJECT(
																						((BgL_copz00_bglt)
																							BgL_new1279z00_1987)))->
																				BgL_locz00) =
																			((obj_t) (((BgL_nodez00_bglt)
																						COBJECT(((BgL_nodez00_bglt)
																								BgL_actz00_1972)))->
																					BgL_locz00)), BUNSPEC);
																		((((BgL_copz00_bglt)
																					COBJECT(((BgL_copz00_bglt)
																							BgL_new1279z00_1987)))->
																				BgL_typez00) =
																			((BgL_typez00_bglt) ((BgL_typez00_bglt)
																					BGl_za2_za2z00zztype_cachez00)),
																			BUNSPEC);
																		{
																			BgL_copz00_bglt BgL_auxz00_4668;

																			{	/* Cgen/capp.scm 533 */
																				BgL_csetqz00_bglt BgL_new1281z00_1988;

																				{	/* Cgen/capp.scm 539 */
																					BgL_csetqz00_bglt BgL_new1280z00_1995;

																					BgL_new1280z00_1995 =
																						((BgL_csetqz00_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_csetqz00_bgl))));
																					{	/* Cgen/capp.scm 539 */
																						long BgL_arg1841z00_1996;

																						{	/* Cgen/capp.scm 539 */
																							obj_t BgL_classz00_2922;

																							BgL_classz00_2922 =
																								BGl_csetqz00zzcgen_copz00;
																							BgL_arg1841z00_1996 =
																								BGL_CLASS_NUM
																								(BgL_classz00_2922);
																						}
																						BGL_OBJECT_CLASS_NUM_SET(
																							((BgL_objectz00_bglt)
																								BgL_new1280z00_1995),
																							BgL_arg1841z00_1996);
																					}
																					BgL_new1281z00_1988 =
																						BgL_new1280z00_1995;
																				}
																				((((BgL_copz00_bglt) COBJECT(
																								((BgL_copz00_bglt)
																									BgL_new1281z00_1988)))->
																						BgL_locz00) =
																					((obj_t) BgL_locz00_1941), BUNSPEC);
																				((((BgL_copz00_bglt)
																							COBJECT(((BgL_copz00_bglt)
																									BgL_new1281z00_1988)))->
																						BgL_typez00) =
																					((BgL_typez00_bglt) ((
																								(BgL_variablez00_bglt)
																								COBJECT(((BgL_variablez00_bglt)
																										BgL_auxz00_1978)))->
																							BgL_typez00)), BUNSPEC);
																				{
																					BgL_varcz00_bglt BgL_auxz00_4679;

																					{	/* Cgen/capp.scm 536 */
																						BgL_varcz00_bglt
																							BgL_new1283z00_1989;
																						{	/* Cgen/capp.scm 538 */
																							BgL_varcz00_bglt
																								BgL_new1282z00_1990;
																							BgL_new1282z00_1990 =
																								((BgL_varcz00_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_varcz00_bgl))));
																							{	/* Cgen/capp.scm 538 */
																								long BgL_arg1839z00_1991;

																								{	/* Cgen/capp.scm 538 */
																									obj_t BgL_classz00_2926;

																									BgL_classz00_2926 =
																										BGl_varcz00zzcgen_copz00;
																									BgL_arg1839z00_1991 =
																										BGL_CLASS_NUM
																										(BgL_classz00_2926);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1282z00_1990),
																									BgL_arg1839z00_1991);
																							}
																							BgL_new1283z00_1989 =
																								BgL_new1282z00_1990;
																						}
																						((((BgL_copz00_bglt) COBJECT(
																										((BgL_copz00_bglt)
																											BgL_new1283z00_1989)))->
																								BgL_locz00) =
																							((obj_t) BFALSE), BUNSPEC);
																						((((BgL_copz00_bglt)
																									COBJECT(((BgL_copz00_bglt)
																											BgL_new1283z00_1989)))->
																								BgL_typez00) =
																							((BgL_typez00_bglt) ((
																										(BgL_variablez00_bglt)
																										COBJECT((
																												(BgL_variablez00_bglt)
																												BgL_argz00_1971)))->
																									BgL_typez00)), BUNSPEC);
																						((((BgL_varcz00_bglt)
																									COBJECT
																									(BgL_new1283z00_1989))->
																								BgL_variablez00) =
																							((BgL_variablez00_bglt) (
																									(BgL_variablez00_bglt)
																									BgL_argz00_1971)), BUNSPEC);
																						BgL_auxz00_4679 =
																							BgL_new1283z00_1989;
																					}
																					((((BgL_csetqz00_bglt)
																								COBJECT(BgL_new1281z00_1988))->
																							BgL_varz00) =
																						((BgL_varcz00_bglt)
																							BgL_auxz00_4679), BUNSPEC);
																				}
																				{
																					BgL_copz00_bglt BgL_auxz00_4693;

																					{	/* Cgen/capp.scm 539 */
																						BgL_varcz00_bglt
																							BgL_new1285z00_1992;
																						{	/* Cgen/capp.scm 542 */
																							BgL_varcz00_bglt
																								BgL_new1284z00_1993;
																							BgL_new1284z00_1993 =
																								((BgL_varcz00_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_varcz00_bgl))));
																							{	/* Cgen/capp.scm 542 */
																								long BgL_arg1840z00_1994;

																								{	/* Cgen/capp.scm 542 */
																									obj_t BgL_classz00_2930;

																									BgL_classz00_2930 =
																										BGl_varcz00zzcgen_copz00;
																									BgL_arg1840z00_1994 =
																										BGL_CLASS_NUM
																										(BgL_classz00_2930);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1284z00_1993),
																									BgL_arg1840z00_1994);
																							}
																							BgL_new1285z00_1992 =
																								BgL_new1284z00_1993;
																						}
																						((((BgL_copz00_bglt) COBJECT(
																										((BgL_copz00_bglt)
																											BgL_new1285z00_1992)))->
																								BgL_locz00) =
																							((obj_t) (((BgL_nodez00_bglt)
																										COBJECT(((BgL_nodez00_bglt)
																												BgL_actz00_1972)))->
																									BgL_locz00)), BUNSPEC);
																						((((BgL_copz00_bglt)
																									COBJECT(((BgL_copz00_bglt)
																											BgL_new1285z00_1992)))->
																								BgL_typez00) =
																							((BgL_typez00_bglt) ((
																										(BgL_variablez00_bglt)
																										COBJECT((
																												(BgL_variablez00_bglt)
																												BgL_auxz00_1978)))->
																									BgL_typez00)), BUNSPEC);
																						((((BgL_varcz00_bglt)
																									COBJECT
																									(BgL_new1285z00_1992))->
																								BgL_variablez00) =
																							((BgL_variablez00_bglt) (
																									(BgL_variablez00_bglt)
																									BgL_auxz00_1978)), BUNSPEC);
																						BgL_auxz00_4693 =
																							((BgL_copz00_bglt)
																							BgL_new1285z00_1992);
																					}
																					((((BgL_csetqz00_bglt)
																								COBJECT(BgL_new1281z00_1988))->
																							BgL_valuez00) =
																						((BgL_copz00_bglt) BgL_auxz00_4693),
																						BUNSPEC);
																				}
																				BgL_auxz00_4668 =
																					((BgL_copz00_bglt)
																					BgL_new1281z00_1988);
																			}
																			((((BgL_stopz00_bglt)
																						COBJECT(BgL_new1279z00_1987))->
																					BgL_valuez00) =
																				((BgL_copz00_bglt) BgL_auxz00_4668),
																				BUNSPEC);
																		}
																		BgL_arg1838z00_1986 = BgL_new1279z00_1987;
																	}
																	BgL_arg1835z00_1983 =
																		MAKE_YOUNG_PAIR(
																		((obj_t) BgL_arg1838z00_1986),
																		BgL_seq2z00_1957);
																}
																{
																	obj_t BgL_seq2z00_4718;
																	obj_t BgL_seq1z00_4717;
																	obj_t BgL_auxsz00_4716;
																	obj_t BgL_actualsz00_4715;
																	obj_t BgL_argsz00_4714;

																	BgL_argsz00_4714 = BgL_arg1831z00_1979;
																	BgL_actualsz00_4715 = BgL_arg1832z00_1980;
																	BgL_auxsz00_4716 = BgL_arg1833z00_1981;
																	BgL_seq1z00_4717 = BgL_arg1834z00_1982;
																	BgL_seq2z00_4718 = BgL_arg1835z00_1983;
																	BgL_seq2z00_1957 = BgL_seq2z00_4718;
																	BgL_seq1z00_1956 = BgL_seq1z00_4717;
																	BgL_auxsz00_1955 = BgL_auxsz00_4716;
																	BgL_actualsz00_1954 = BgL_actualsz00_4715;
																	BgL_argsz00_1953 = BgL_argsz00_4714;
																	goto BgL_zc3z04anonymousza31799ze3z87_1958;
																}
															}
														}
												}
											}
									}
								}
						}
					else
						{	/* Cgen/capp.scm 448 */
							{	/* Cgen/capp.scm 450 */
								BgL_valuez00_bglt BgL_arg1850z00_2009;

								BgL_arg1850z00_2009 =
									(((BgL_variablez00_bglt) COBJECT(BgL_varz00_25))->
									BgL_valuez00);
								{
									BgL_sfunzf2czf2_bglt BgL_auxz00_4720;

									{
										obj_t BgL_auxz00_4721;

										{	/* Cgen/capp.scm 450 */
											BgL_objectz00_bglt BgL_tmpz00_4722;

											BgL_tmpz00_4722 =
												((BgL_objectz00_bglt)
												((BgL_sfunz00_bglt) BgL_arg1850z00_2009));
											BgL_auxz00_4721 = BGL_OBJECT_WIDENING(BgL_tmpz00_4722);
										}
										BgL_auxz00_4720 = ((BgL_sfunzf2czf2_bglt) BgL_auxz00_4721);
									}
									((((BgL_sfunzf2czf2_bglt) COBJECT(BgL_auxz00_4720))->
											BgL_integratedz00) = ((bool_t) ((bool_t) 1)), BUNSPEC);
								}
							}
							{	/* Cgen/capp.scm 451 */
								BgL_copz00_bglt BgL_bodyz00_2010;

								{	/* Cgen/capp.scm 451 */
									obj_t BgL_arg1868z00_2032;

									BgL_arg1868z00_2032 =
										(((BgL_sfunz00_bglt) COBJECT(
												((BgL_sfunz00_bglt)
													(((BgL_variablez00_bglt) COBJECT(
																((BgL_variablez00_bglt)
																	((BgL_localz00_bglt) BgL_varz00_25))))->
														BgL_valuez00))))->BgL_bodyz00);
									BgL_bodyz00_2010 =
										BGl_nodezd2ze3copz31zzcgen_cgenz00(((BgL_nodez00_bglt)
											BgL_arg1868z00_2032), BgL_kontz00_27,
										CBOOL(BgL_inpushexitz00_28));
								}
								((((BgL_clabelz00_bglt) COBJECT(BgL_labelz00_1939))->
										BgL_bodyz00) =
									((obj_t) ((obj_t) BgL_bodyz00_2010)), BUNSPEC);
								if (NULLP(BgL_argsz00_1940))
									{	/* Cgen/capp.scm 453 */
										return ((obj_t) BgL_labelz00_1939);
									}
								else
									{	/* Cgen/capp.scm 455 */
										obj_t BgL_g1262z00_2012;

										BgL_g1262z00_2012 =
											(((BgL_appz00_bglt) COBJECT(BgL_nodez00_26))->
											BgL_argsz00);
										{
											obj_t BgL_formalsz00_2015;
											obj_t BgL_actualsz00_2016;
											obj_t BgL_seqz00_2017;

											{
												BgL_csequencez00_bglt BgL_auxz00_4742;

												BgL_formalsz00_2015 = BgL_argsz00_1940;
												BgL_actualsz00_2016 = BgL_g1262z00_2012;
												BgL_seqz00_2017 = BNIL;
											BgL_zc3z04anonymousza31852ze3z87_2018:
												if (NULLP(BgL_formalsz00_2015))
													{	/* Cgen/capp.scm 459 */
														BgL_csequencez00_bglt BgL_new1265z00_2020;

														{	/* Cgen/capp.scm 461 */
															BgL_csequencez00_bglt BgL_new1264z00_2022;

															BgL_new1264z00_2022 =
																((BgL_csequencez00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_csequencez00_bgl))));
															{	/* Cgen/capp.scm 461 */
																long BgL_arg1855z00_2023;

																BgL_arg1855z00_2023 =
																	BGL_CLASS_NUM(BGl_csequencez00zzcgen_copz00);
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1264z00_2022),
																	BgL_arg1855z00_2023);
															}
															BgL_new1265z00_2020 = BgL_new1264z00_2022;
														}
														((((BgL_copz00_bglt) COBJECT(
																		((BgL_copz00_bglt) BgL_new1265z00_2020)))->
																BgL_locz00) =
															((obj_t) BgL_locz00_1941), BUNSPEC);
														((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																			BgL_new1265z00_2020)))->BgL_typez00) =
															((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt)
																				BgL_nodez00_26)))->BgL_typez00)),
															BUNSPEC);
														((((BgL_csequencez00_bglt)
																	COBJECT(BgL_new1265z00_2020))->
																BgL_czd2expzf3z21) =
															((bool_t) ((bool_t) 0)), BUNSPEC);
														{
															obj_t BgL_auxz00_4756;

															{	/* Cgen/capp.scm 462 */
																obj_t BgL_arg1854z00_2021;

																BgL_arg1854z00_2021 =
																	MAKE_YOUNG_PAIR(
																	((obj_t) BgL_labelz00_1939), BgL_seqz00_2017);
																BgL_auxz00_4756 =
																	bgl_reverse_bang(BgL_arg1854z00_2021);
															}
															((((BgL_csequencez00_bglt)
																		COBJECT(BgL_new1265z00_2020))->
																	BgL_copsz00) =
																((obj_t) BgL_auxz00_4756), BUNSPEC);
														}
														BgL_auxz00_4742 = BgL_new1265z00_2020;
													}
												else
													{	/* Cgen/capp.scm 463 */
														obj_t BgL_arg1856z00_2024;
														obj_t BgL_arg1857z00_2025;
														obj_t BgL_arg1860z00_2026;

														BgL_arg1856z00_2024 =
															CDR(((obj_t) BgL_formalsz00_2015));
														BgL_arg1857z00_2025 =
															CDR(((obj_t) BgL_actualsz00_2016));
														{	/* Cgen/capp.scm 467 */
															BgL_copz00_bglt BgL_arg1861z00_2027;

															{	/* Cgen/capp.scm 467 */
																BgL_setqz00_bglt BgL_arg1864z00_2028;

																{	/* Cgen/capp.scm 467 */
																	obj_t BgL_arg1866z00_2029;
																	obj_t BgL_arg1867z00_2030;

																	BgL_arg1866z00_2029 =
																		CAR(((obj_t) BgL_formalsz00_2015));
																	BgL_arg1867z00_2030 =
																		CAR(((obj_t) BgL_actualsz00_2016));
																	BgL_arg1864z00_2028 =
																		BGl_nodezd2setqzd2zzcgen_cgenz00(
																		((BgL_variablez00_bglt)
																			BgL_arg1866z00_2029),
																		((BgL_nodez00_bglt) BgL_arg1867z00_2030));
																}
																BgL_arg1861z00_2027 =
																	BGl_nodezd2ze3copz31zzcgen_cgenz00(
																	((BgL_nodez00_bglt) BgL_arg1864z00_2028),
																	BGl_za2stopzd2kontza2zd2zzcgen_cgenz00,
																	CBOOL(BgL_inpushexitz00_28));
															}
															BgL_arg1860z00_2026 =
																MAKE_YOUNG_PAIR(
																((obj_t) BgL_arg1861z00_2027), BgL_seqz00_2017);
														}
														{
															obj_t BgL_seqz00_4779;
															obj_t BgL_actualsz00_4778;
															obj_t BgL_formalsz00_4777;

															BgL_formalsz00_4777 = BgL_arg1856z00_2024;
															BgL_actualsz00_4778 = BgL_arg1857z00_2025;
															BgL_seqz00_4779 = BgL_arg1860z00_2026;
															BgL_seqz00_2017 = BgL_seqz00_4779;
															BgL_actualsz00_2016 = BgL_actualsz00_4778;
															BgL_formalsz00_2015 = BgL_formalsz00_4777;
															goto BgL_zc3z04anonymousza31852ze3z87_2018;
														}
													}
												return ((obj_t) BgL_auxz00_4742);
											}
										}
									}
							}
						}
				}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zzcgen_cappz00(void)
	{
		{	/* Cgen/capp.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zzcgen_cappz00(void)
	{
		{	/* Cgen/capp.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zzcgen_cappz00(void)
	{
		{	/* Cgen/capp.scm 15 */
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_appzd2lyzd2zzast_nodez00,
				BGl_proc2169z00zzcgen_cappz00, BGl_string2170z00zzcgen_cappz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_funcallz00zzast_nodez00,
				BGl_proc2171z00zzcgen_cappz00, BGl_string2170z00zzcgen_cappz00);
			return
				BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_appz00zzast_nodez00,
				BGl_proc2172z00zzcgen_cappz00, BGl_string2170z00zzcgen_cappz00);
		}

	}



/* &node->cop-app1466 */
	BgL_copz00_bglt BGl_z62nodezd2ze3copzd2app1466z81zzcgen_cappz00(obj_t
		BgL_envz00_3597, obj_t BgL_nodez00_3598, obj_t BgL_kontz00_3599,
		obj_t BgL_inpushexitz00_3600)
	{
		{	/* Cgen/capp.scm 232 */
			{	/* Tools/trace.sch 53 */
				BgL_variablez00_bglt BgL_varz00_3625;

				BgL_varz00_3625 =
					(((BgL_varz00_bglt) COBJECT(
							(((BgL_appz00_bglt) COBJECT(
										((BgL_appz00_bglt) BgL_nodez00_3598)))->BgL_funz00)))->
					BgL_variablez00);
				{	/* Tools/trace.sch 53 */
					bool_t BgL_test2232z00_4787;

					{	/* Tools/trace.sch 53 */
						bool_t BgL_test2233z00_4788;

						{	/* Tools/trace.sch 53 */
							obj_t BgL_classz00_3626;

							BgL_classz00_3626 = BGl_globalz00zzast_varz00;
							{	/* Tools/trace.sch 53 */
								BgL_objectz00_bglt BgL_arg1801z00_3627;

								{	/* Tools/trace.sch 53 */
									obj_t BgL_tmpz00_4789;

									BgL_tmpz00_4789 =
										((obj_t) ((BgL_objectz00_bglt) BgL_varz00_3625));
									BgL_arg1801z00_3627 = (BgL_objectz00_bglt) (BgL_tmpz00_4789);
								}
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Tools/trace.sch 53 */
										long BgL_idxz00_3628;

										BgL_idxz00_3628 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3627);
										BgL_test2233z00_4788 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_3628 + 2L)) == BgL_classz00_3626);
									}
								else
									{	/* Tools/trace.sch 53 */
										bool_t BgL_res2156z00_3631;

										{	/* Tools/trace.sch 53 */
											obj_t BgL_oclassz00_3632;

											{	/* Tools/trace.sch 53 */
												long BgL_arg1808z00_3633;

												{	/* Tools/trace.sch 53 */
													long BgL_arg1809z00_3634;

													BgL_arg1809z00_3634 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3627);
													BgL_arg1808z00_3633 =
														(BgL_arg1809z00_3634 - OBJECT_TYPE);
												}
												BgL_oclassz00_3632 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_3633);
											}
											{	/* Tools/trace.sch 53 */
												bool_t BgL__ortest_1115z00_3635;

												BgL__ortest_1115z00_3635 =
													(BgL_classz00_3626 == BgL_oclassz00_3632);
												if (BgL__ortest_1115z00_3635)
													{	/* Tools/trace.sch 53 */
														BgL_res2156z00_3631 = BgL__ortest_1115z00_3635;
													}
												else
													{	/* Tools/trace.sch 53 */
														long BgL_odepthz00_3636;

														BgL_odepthz00_3636 =
															BGL_CLASS_DEPTH(BgL_oclassz00_3632);
														if ((2L < BgL_odepthz00_3636))
															{	/* Tools/trace.sch 53 */
																obj_t BgL_arg1797z00_3637;

																BgL_arg1797z00_3637 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3632,
																	2L);
																BgL_res2156z00_3631 =
																	(BgL_arg1797z00_3637 == BgL_classz00_3626);
															}
														else
															{	/* Tools/trace.sch 53 */
																BgL_res2156z00_3631 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2233z00_4788 = BgL_res2156z00_3631;
									}
							}
						}
						if (BgL_test2233z00_4788)
							{	/* Tools/trace.sch 53 */
								bool_t BgL__ortest_1210z00_3638;

								if (
									(((obj_t) BgL_varz00_3625) ==
										BGl_za2thezd2currentzd2globalza2z00zzcgen_cgenz00))
									{	/* Tools/trace.sch 53 */
										BgL__ortest_1210z00_3638 = ((bool_t) 0);
									}
								else
									{	/* Tools/trace.sch 53 */
										BgL__ortest_1210z00_3638 = ((bool_t) 1);
									}
								if (BgL__ortest_1210z00_3638)
									{	/* Tools/trace.sch 53 */
										BgL_test2232z00_4787 = BgL__ortest_1210z00_3638;
									}
								else
									{	/* Tools/trace.sch 53 */
										if (
											(BgL_kontz00_3599 ==
												BGl_za2returnzd2kontza2zd2zzcgen_cgenz00))
											{	/* Tools/trace.sch 53 */
												BgL_test2232z00_4787 = ((bool_t) 0);
											}
										else
											{	/* Tools/trace.sch 53 */
												BgL_test2232z00_4787 = ((bool_t) 1);
											}
									}
							}
						else
							{	/* Tools/trace.sch 53 */
								BgL_test2232z00_4787 = ((bool_t) 0);
							}
					}
					if (BgL_test2232z00_4787)
						{	/* Tools/trace.sch 53 */
							{	/* Tools/trace.sch 53 */
								bool_t BgL_test2240z00_4815;

								{	/* Tools/trace.sch 53 */
									BgL_valuez00_bglt BgL_arg1494z00_3639;

									BgL_arg1494z00_3639 =
										(((BgL_variablez00_bglt) COBJECT(BgL_varz00_3625))->
										BgL_valuez00);
									{	/* Tools/trace.sch 53 */
										obj_t BgL_classz00_3640;

										BgL_classz00_3640 = BGl_sfunz00zzast_varz00;
										{	/* Tools/trace.sch 53 */
											BgL_objectz00_bglt BgL_arg1801z00_3641;

											{	/* Tools/trace.sch 53 */
												obj_t BgL_tmpz00_4817;

												BgL_tmpz00_4817 =
													((obj_t) ((BgL_objectz00_bglt) BgL_arg1494z00_3639));
												BgL_arg1801z00_3641 =
													(BgL_objectz00_bglt) (BgL_tmpz00_4817);
											}
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Tools/trace.sch 53 */
													long BgL_idxz00_3642;

													BgL_idxz00_3642 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3641);
													BgL_test2240z00_4815 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_3642 + 3L)) == BgL_classz00_3640);
												}
											else
												{	/* Tools/trace.sch 53 */
													bool_t BgL_res2157z00_3645;

													{	/* Tools/trace.sch 53 */
														obj_t BgL_oclassz00_3646;

														{	/* Tools/trace.sch 53 */
															long BgL_arg1808z00_3647;

															{	/* Tools/trace.sch 53 */
																long BgL_arg1809z00_3648;

																BgL_arg1809z00_3648 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3641);
																BgL_arg1808z00_3647 =
																	(BgL_arg1809z00_3648 - OBJECT_TYPE);
															}
															BgL_oclassz00_3646 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_3647);
														}
														{	/* Tools/trace.sch 53 */
															bool_t BgL__ortest_1115z00_3649;

															BgL__ortest_1115z00_3649 =
																(BgL_classz00_3640 == BgL_oclassz00_3646);
															if (BgL__ortest_1115z00_3649)
																{	/* Tools/trace.sch 53 */
																	BgL_res2157z00_3645 =
																		BgL__ortest_1115z00_3649;
																}
															else
																{	/* Tools/trace.sch 53 */
																	long BgL_odepthz00_3650;

																	BgL_odepthz00_3650 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_3646);
																	if ((3L < BgL_odepthz00_3650))
																		{	/* Tools/trace.sch 53 */
																			obj_t BgL_arg1797z00_3651;

																			BgL_arg1797z00_3651 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_3646, 3L);
																			BgL_res2157z00_3645 =
																				(BgL_arg1797z00_3651 ==
																				BgL_classz00_3640);
																		}
																	else
																		{	/* Tools/trace.sch 53 */
																			BgL_res2157z00_3645 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2240z00_4815 = BgL_res2157z00_3645;
												}
										}
									}
								}
								if (BgL_test2240z00_4815)
									{	/* Tools/trace.sch 53 */
										return
											((BgL_copz00_bglt)
											BGl_nodezd2sfunzd2nonzd2tailzd2appzd2ze3copz31zzcgen_cappz00
											(BgL_varz00_3625, ((BgL_appz00_bglt) BgL_nodez00_3598),
												BgL_kontz00_3599, BgL_inpushexitz00_3600));
									}
								else
									{	/* Tools/trace.sch 53 */
										return
											((BgL_copz00_bglt)
											BGl_nodezd2cfunzd2nonzd2tailzd2appzd2ze3copz31zzcgen_cappz00
											(BgL_varz00_3625, ((BgL_appz00_bglt) BgL_nodez00_3598),
												BgL_kontz00_3599, BgL_inpushexitz00_3600));
									}
							}
						}
					else
						{	/* Tools/trace.sch 53 */
							return
								((BgL_copz00_bglt)
								BGl_nodezd2tailzd2appzd2ze3copz31zzcgen_cappz00(BgL_varz00_3625,
									((BgL_appz00_bglt) BgL_nodez00_3598), BgL_kontz00_3599,
									BgL_inpushexitz00_3600));
						}
				}
			}
		}

	}



/* &node->cop-funcall1464 */
	BgL_copz00_bglt BGl_z62nodezd2ze3copzd2funcall1464z81zzcgen_cappz00(obj_t
		BgL_envz00_3601, obj_t BgL_nodez00_3602, obj_t BgL_kontz00_3603,
		obj_t BgL_inpushexitz00_3604)
	{
		{	/* Cgen/capp.scm 138 */
			{
				obj_t BgL_oldzd2actualszd2_3654;
				obj_t BgL_newzd2actualszd2_3655;
				obj_t BgL_auxsz00_3656;
				obj_t BgL_expsz00_3657;

				{	/* Tools/trace.sch 53 */
					obj_t BgL_arg1966z00_3777;

					BgL_arg1966z00_3777 =
						(((BgL_funcallz00_bglt) COBJECT(
								((BgL_funcallz00_bglt) BgL_nodez00_3602)))->BgL_argsz00);
					{
						obj_t BgL_auxz00_4848;

						BgL_oldzd2actualszd2_3654 = BgL_arg1966z00_3777;
						BgL_newzd2actualszd2_3655 = BNIL;
						BgL_auxsz00_3656 = BNIL;
						BgL_expsz00_3657 = BNIL;
					BgL_loopz00_3653:
						if (NULLP(BgL_oldzd2actualszd2_3654))
							{	/* Tools/trace.sch 53 */
								BgL_typez00_bglt BgL_typez00_3658;

								BgL_typez00_3658 =
									BGl_getzd2typezd2zztype_typeofz00(
									((BgL_nodez00_bglt)
										((BgL_funcallz00_bglt) BgL_nodez00_3602)), ((bool_t) 0));
								{	/* Tools/trace.sch 53 */
									BgL_localz00_bglt BgL_auxz00_3659;

									BgL_auxz00_3659 =
										BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00
										(CNST_TABLE_REF(4L),
										((BgL_typez00_bglt) BGl_za2procedureza2z00zztype_cachez00));
									{	/* Tools/trace.sch 53 */
										BgL_copz00_bglt BgL_copz00_3660;

										{	/* Tools/trace.sch 53 */
											BgL_setqz00_bglt BgL_arg2008z00_3661;

											{	/* Tools/trace.sch 53 */
												BgL_nodez00_bglt BgL_arg2009z00_3662;

												BgL_arg2009z00_3662 =
													(((BgL_funcallz00_bglt) COBJECT(
															((BgL_funcallz00_bglt) BgL_nodez00_3602)))->
													BgL_funz00);
												BgL_arg2008z00_3661 =
													BGl_nodezd2setqzd2zzcgen_cgenz00((
														(BgL_variablez00_bglt) BgL_auxz00_3659),
													BgL_arg2009z00_3662);
											}
											BgL_copz00_3660 =
												BGl_nodezd2ze3copz31zzcgen_cgenz00(
												((BgL_nodez00_bglt) BgL_arg2008z00_3661),
												BGl_za2idzd2kontza2zd2zzcgen_cgenz00,
												CBOOL(BgL_inpushexitz00_3604));
										}
										{	/* Tools/trace.sch 53 */

											{	/* Tools/trace.sch 53 */
												bool_t BgL_test2245z00_4864;

												{	/* Tools/trace.sch 53 */
													bool_t BgL_test2246z00_4865;

													{	/* Tools/trace.sch 53 */
														obj_t BgL_classz00_3663;

														BgL_classz00_3663 = BGl_csetqz00zzcgen_copz00;
														{	/* Tools/trace.sch 53 */
															BgL_objectz00_bglt BgL_arg1801z00_3664;

															{	/* Tools/trace.sch 53 */
																obj_t BgL_tmpz00_4866;

																BgL_tmpz00_4866 =
																	((obj_t)
																	((BgL_objectz00_bglt) BgL_copz00_3660));
																BgL_arg1801z00_3664 =
																	(BgL_objectz00_bglt) (BgL_tmpz00_4866);
															}
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* Tools/trace.sch 53 */
																	long BgL_idxz00_3665;

																	BgL_idxz00_3665 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_3664);
																	BgL_test2246z00_4865 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_3665 + 2L)) ==
																		BgL_classz00_3663);
																}
															else
																{	/* Tools/trace.sch 53 */
																	bool_t BgL_res2151z00_3668;

																	{	/* Tools/trace.sch 53 */
																		obj_t BgL_oclassz00_3669;

																		{	/* Tools/trace.sch 53 */
																			long BgL_arg1808z00_3670;

																			{	/* Tools/trace.sch 53 */
																				long BgL_arg1809z00_3671;

																				BgL_arg1809z00_3671 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_3664);
																				BgL_arg1808z00_3670 =
																					(BgL_arg1809z00_3671 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_3669 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_3670);
																		}
																		{	/* Tools/trace.sch 53 */
																			bool_t BgL__ortest_1115z00_3672;

																			BgL__ortest_1115z00_3672 =
																				(BgL_classz00_3663 ==
																				BgL_oclassz00_3669);
																			if (BgL__ortest_1115z00_3672)
																				{	/* Tools/trace.sch 53 */
																					BgL_res2151z00_3668 =
																						BgL__ortest_1115z00_3672;
																				}
																			else
																				{	/* Tools/trace.sch 53 */
																					long BgL_odepthz00_3673;

																					BgL_odepthz00_3673 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_3669);
																					if ((2L < BgL_odepthz00_3673))
																						{	/* Tools/trace.sch 53 */
																							obj_t BgL_arg1797z00_3674;

																							BgL_arg1797z00_3674 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_3669, 2L);
																							BgL_res2151z00_3668 =
																								(BgL_arg1797z00_3674 ==
																								BgL_classz00_3663);
																						}
																					else
																						{	/* Tools/trace.sch 53 */
																							BgL_res2151z00_3668 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test2246z00_4865 = BgL_res2151z00_3668;
																}
														}
													}
													if (BgL_test2246z00_4865)
														{	/* Tools/trace.sch 53 */
															bool_t BgL_test2250z00_4886;

															{	/* Tools/trace.sch 53 */
																BgL_nodez00_bglt BgL_arg2007z00_3675;

																BgL_arg2007z00_3675 =
																	(((BgL_funcallz00_bglt) COBJECT(
																			((BgL_funcallz00_bglt)
																				BgL_nodez00_3602)))->BgL_funz00);
																{	/* Tools/trace.sch 53 */
																	obj_t BgL_classz00_3676;

																	BgL_classz00_3676 = BGl_varz00zzast_nodez00;
																	{	/* Tools/trace.sch 53 */
																		BgL_objectz00_bglt BgL_arg1801z00_3677;

																		{	/* Tools/trace.sch 53 */
																			obj_t BgL_tmpz00_4889;

																			BgL_tmpz00_4889 =
																				((obj_t)
																				((BgL_objectz00_bglt)
																					BgL_arg2007z00_3675));
																			BgL_arg1801z00_3677 =
																				(BgL_objectz00_bglt) (BgL_tmpz00_4889);
																		}
																		if (BGL_CONDEXPAND_ISA_ARCH64())
																			{	/* Tools/trace.sch 53 */
																				long BgL_idxz00_3678;

																				BgL_idxz00_3678 =
																					BGL_OBJECT_INHERITANCE_NUM
																					(BgL_arg1801z00_3677);
																				BgL_test2250z00_4886 =
																					(VECTOR_REF
																					(BGl_za2inheritancesza2z00zz__objectz00,
																						(BgL_idxz00_3678 + 2L)) ==
																					BgL_classz00_3676);
																			}
																		else
																			{	/* Tools/trace.sch 53 */
																				bool_t BgL_res2152z00_3681;

																				{	/* Tools/trace.sch 53 */
																					obj_t BgL_oclassz00_3682;

																					{	/* Tools/trace.sch 53 */
																						long BgL_arg1808z00_3683;

																						{	/* Tools/trace.sch 53 */
																							long BgL_arg1809z00_3684;

																							BgL_arg1809z00_3684 =
																								BGL_OBJECT_CLASS_NUM
																								(BgL_arg1801z00_3677);
																							BgL_arg1808z00_3683 =
																								(BgL_arg1809z00_3684 -
																								OBJECT_TYPE);
																						}
																						BgL_oclassz00_3682 =
																							VECTOR_REF
																							(BGl_za2classesza2z00zz__objectz00,
																							BgL_arg1808z00_3683);
																					}
																					{	/* Tools/trace.sch 53 */
																						bool_t BgL__ortest_1115z00_3685;

																						BgL__ortest_1115z00_3685 =
																							(BgL_classz00_3676 ==
																							BgL_oclassz00_3682);
																						if (BgL__ortest_1115z00_3685)
																							{	/* Tools/trace.sch 53 */
																								BgL_res2152z00_3681 =
																									BgL__ortest_1115z00_3685;
																							}
																						else
																							{	/* Tools/trace.sch 53 */
																								long BgL_odepthz00_3686;

																								BgL_odepthz00_3686 =
																									BGL_CLASS_DEPTH
																									(BgL_oclassz00_3682);
																								if ((2L < BgL_odepthz00_3686))
																									{	/* Tools/trace.sch 53 */
																										obj_t BgL_arg1797z00_3687;

																										BgL_arg1797z00_3687 =
																											BGL_CLASS_ANCESTORS_REF
																											(BgL_oclassz00_3682, 2L);
																										BgL_res2152z00_3681 =
																											(BgL_arg1797z00_3687 ==
																											BgL_classz00_3676);
																									}
																								else
																									{	/* Tools/trace.sch 53 */
																										BgL_res2152z00_3681 =
																											((bool_t) 0);
																									}
																							}
																					}
																				}
																				BgL_test2250z00_4886 =
																					BgL_res2152z00_3681;
																			}
																	}
																}
															}
															if (BgL_test2250z00_4886)
																{	/* Tools/trace.sch 53 */
																	BgL_test2245z00_4864 =
																		(
																		((obj_t)
																			(((BgL_varcz00_bglt) COBJECT(
																						(((BgL_csetqz00_bglt) COBJECT(
																									((BgL_csetqz00_bglt)
																										BgL_copz00_3660)))->
																							BgL_varz00)))->
																				BgL_variablez00)) ==
																		((obj_t) BgL_auxz00_3659));
																}
															else
																{	/* Tools/trace.sch 53 */
																	BgL_test2245z00_4864 = ((bool_t) 0);
																}
														}
													else
														{	/* Tools/trace.sch 53 */
															BgL_test2245z00_4864 = ((bool_t) 0);
														}
												}
												if (BgL_test2245z00_4864)
													{	/* Tools/trace.sch 53 */
														BgL_copz00_bglt BgL_cfunz00_3688;

														BgL_cfunz00_3688 =
															(((BgL_csetqz00_bglt) COBJECT(
																	((BgL_csetqz00_bglt) BgL_copz00_3660)))->
															BgL_valuez00);
														if (NULLP(BgL_auxsz00_3656))
															{	/* Tools/trace.sch 53 */
																BgL_cfuncallz00_bglt BgL_arg1977z00_3689;

																{	/* Tools/trace.sch 53 */
																	BgL_cfuncallz00_bglt BgL_new1181z00_3690;

																	{	/* Tools/trace.sch 53 */
																		BgL_cfuncallz00_bglt BgL_new1180z00_3691;

																		BgL_new1180z00_3691 =
																			((BgL_cfuncallz00_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_cfuncallz00_bgl))));
																		{	/* Tools/trace.sch 53 */
																			long BgL_arg1978z00_3692;

																			BgL_arg1978z00_3692 =
																				BGL_CLASS_NUM
																				(BGl_cfuncallz00zzcgen_copz00);
																			BGL_OBJECT_CLASS_NUM_SET((
																					(BgL_objectz00_bglt)
																					BgL_new1180z00_3691),
																				BgL_arg1978z00_3692);
																		}
																		BgL_new1181z00_3690 = BgL_new1180z00_3691;
																	}
																	((((BgL_copz00_bglt) COBJECT(
																					((BgL_copz00_bglt)
																						BgL_new1181z00_3690)))->
																			BgL_locz00) =
																		((obj_t) (((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt) (
																								(BgL_funcallz00_bglt)
																								BgL_nodez00_3602))))->
																				BgL_locz00)), BUNSPEC);
																	((((BgL_copz00_bglt)
																				COBJECT(((BgL_copz00_bglt)
																						BgL_new1181z00_3690)))->
																			BgL_typez00) =
																		((BgL_typez00_bglt) BgL_typez00_3658),
																		BUNSPEC);
																	((((BgL_cfuncallz00_bglt)
																				COBJECT(BgL_new1181z00_3690))->
																			BgL_funz00) =
																		((BgL_copz00_bglt) BgL_cfunz00_3688),
																		BUNSPEC);
																	((((BgL_cfuncallz00_bglt)
																				COBJECT(BgL_new1181z00_3690))->
																			BgL_argsz00) =
																		((obj_t)
																			bgl_reverse_bang
																			(BgL_newzd2actualszd2_3655)), BUNSPEC);
																	((((BgL_cfuncallz00_bglt)
																				COBJECT(BgL_new1181z00_3690))->
																			BgL_strengthz00) =
																		((obj_t) (((BgL_funcallz00_bglt)
																					COBJECT(((BgL_funcallz00_bglt)
																							BgL_nodez00_3602)))->
																				BgL_strengthz00)), BUNSPEC);
																	BgL_arg1977z00_3689 = BgL_new1181z00_3690;
																}
																BgL_auxz00_4848 =
																	(VA_PROCEDUREP(BgL_kontz00_3603)
																	? ((obj_t(*)(obj_t,
																				...))
																		PROCEDURE_ENTRY(BgL_kontz00_3603))
																	(BgL_kontz00_3603,
																		((obj_t) BgL_arg1977z00_3689),
																		BEOA) : ((obj_t(*)(obj_t,
																				obj_t))
																		PROCEDURE_ENTRY(BgL_kontz00_3603))
																	(BgL_kontz00_3603,
																		((obj_t) BgL_arg1977z00_3689)));
															}
														else
															{	/* Tools/trace.sch 53 */
																BgL_cblockz00_bglt BgL_new1184z00_3693;

																{	/* Tools/trace.sch 53 */
																	BgL_cblockz00_bglt BgL_new1182z00_3694;

																	BgL_new1182z00_3694 =
																		((BgL_cblockz00_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_cblockz00_bgl))));
																	{	/* Tools/trace.sch 53 */
																		long BgL_arg1990z00_3695;

																		BgL_arg1990z00_3695 =
																			BGL_CLASS_NUM(BGl_cblockz00zzcgen_copz00);
																		BGL_OBJECT_CLASS_NUM_SET(
																			((BgL_objectz00_bglt)
																				BgL_new1182z00_3694),
																			BgL_arg1990z00_3695);
																	}
																	BgL_new1184z00_3693 = BgL_new1182z00_3694;
																}
																((((BgL_copz00_bglt) COBJECT(
																				((BgL_copz00_bglt)
																					BgL_new1184z00_3693)))->BgL_locz00) =
																	((obj_t) (((BgL_nodez00_bglt)
																				COBJECT(((BgL_nodez00_bglt) (
																							(BgL_funcallz00_bglt)
																							BgL_nodez00_3602))))->
																			BgL_locz00)), BUNSPEC);
																((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																					BgL_new1184z00_3693)))->BgL_typez00) =
																	((BgL_typez00_bglt) BgL_typez00_3658),
																	BUNSPEC);
																{
																	BgL_copz00_bglt BgL_auxz00_4952;

																	{	/* Tools/trace.sch 53 */
																		BgL_csequencez00_bglt BgL_new1186z00_3696;

																		{	/* Tools/trace.sch 53 */
																			BgL_csequencez00_bglt BgL_new1185z00_3697;

																			BgL_new1185z00_3697 =
																				((BgL_csequencez00_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_csequencez00_bgl))));
																			{	/* Tools/trace.sch 53 */
																				long BgL_arg1989z00_3698;

																				{	/* Tools/trace.sch 53 */
																					obj_t BgL_classz00_3699;

																					BgL_classz00_3699 =
																						BGl_csequencez00zzcgen_copz00;
																					BgL_arg1989z00_3698 =
																						BGL_CLASS_NUM(BgL_classz00_3699);
																				}
																				BGL_OBJECT_CLASS_NUM_SET(
																					((BgL_objectz00_bglt)
																						BgL_new1185z00_3697),
																					BgL_arg1989z00_3698);
																			}
																			BgL_new1186z00_3696 = BgL_new1185z00_3697;
																		}
																		((((BgL_copz00_bglt) COBJECT(
																						((BgL_copz00_bglt)
																							BgL_new1186z00_3696)))->
																				BgL_locz00) =
																			((obj_t) (((BgL_nodez00_bglt)
																						COBJECT(((BgL_nodez00_bglt) (
																									(BgL_funcallz00_bglt)
																									BgL_nodez00_3602))))->
																					BgL_locz00)), BUNSPEC);
																		((((BgL_copz00_bglt)
																					COBJECT(((BgL_copz00_bglt)
																							BgL_new1186z00_3696)))->
																				BgL_typez00) =
																			((BgL_typez00_bglt) BgL_typez00_3658),
																			BUNSPEC);
																		((((BgL_csequencez00_bglt)
																					COBJECT(BgL_new1186z00_3696))->
																				BgL_czd2expzf3z21) =
																			((bool_t) ((bool_t) 0)), BUNSPEC);
																		{
																			obj_t BgL_auxz00_4965;

																			{	/* Tools/trace.sch 53 */
																				BgL_localzd2varzd2_bglt
																					BgL_arg1979z00_3700;
																				BgL_csequencez00_bglt
																					BgL_arg1980z00_3701;
																				obj_t BgL_arg1981z00_3702;

																				{	/* Tools/trace.sch 53 */
																					BgL_localzd2varzd2_bglt
																						BgL_new1188z00_3703;
																					{	/* Tools/trace.sch 53 */
																						BgL_localzd2varzd2_bglt
																							BgL_new1187z00_3704;
																						BgL_new1187z00_3704 =
																							((BgL_localzd2varzd2_bglt)
																							BOBJECT(GC_MALLOC(sizeof(struct
																										BgL_localzd2varzd2_bgl))));
																						{	/* Tools/trace.sch 53 */
																							long BgL_arg1985z00_3705;

																							{	/* Tools/trace.sch 53 */
																								obj_t BgL_classz00_3706;

																								BgL_classz00_3706 =
																									BGl_localzd2varzd2zzcgen_copz00;
																								BgL_arg1985z00_3705 =
																									BGL_CLASS_NUM
																									(BgL_classz00_3706);
																							}
																							BGL_OBJECT_CLASS_NUM_SET(
																								((BgL_objectz00_bglt)
																									BgL_new1187z00_3704),
																								BgL_arg1985z00_3705);
																						}
																						BgL_new1188z00_3703 =
																							BgL_new1187z00_3704;
																					}
																					((((BgL_copz00_bglt) COBJECT(
																									((BgL_copz00_bglt)
																										BgL_new1188z00_3703)))->
																							BgL_locz00) =
																						((obj_t) (((BgL_nodez00_bglt)
																									COBJECT(((BgL_nodez00_bglt) (
																												(BgL_funcallz00_bglt)
																												BgL_nodez00_3602))))->
																								BgL_locz00)), BUNSPEC);
																					((((BgL_copz00_bglt)
																								COBJECT(((BgL_copz00_bglt)
																										BgL_new1188z00_3703)))->
																							BgL_typez00) =
																						((BgL_typez00_bglt) (
																								(BgL_typez00_bglt)
																								BGl_za2objza2z00zztype_cachez00)),
																						BUNSPEC);
																					((((BgL_localzd2varzd2_bglt)
																								COBJECT(BgL_new1188z00_3703))->
																							BgL_varsz00) =
																						((obj_t) BgL_auxsz00_3656),
																						BUNSPEC);
																					BgL_arg1979z00_3700 =
																						BgL_new1188z00_3703;
																				}
																				{	/* Tools/trace.sch 53 */
																					BgL_csequencez00_bglt
																						BgL_new1190z00_3707;
																					{	/* Tools/trace.sch 53 */
																						BgL_csequencez00_bglt
																							BgL_new1189z00_3708;
																						BgL_new1189z00_3708 =
																							((BgL_csequencez00_bglt)
																							BOBJECT(GC_MALLOC(sizeof(struct
																										BgL_csequencez00_bgl))));
																						{	/* Tools/trace.sch 53 */
																							long BgL_arg1986z00_3709;

																							{	/* Tools/trace.sch 53 */
																								obj_t BgL_classz00_3710;

																								BgL_classz00_3710 =
																									BGl_csequencez00zzcgen_copz00;
																								BgL_arg1986z00_3709 =
																									BGL_CLASS_NUM
																									(BgL_classz00_3710);
																							}
																							BGL_OBJECT_CLASS_NUM_SET(
																								((BgL_objectz00_bglt)
																									BgL_new1189z00_3708),
																								BgL_arg1986z00_3709);
																						}
																						BgL_new1190z00_3707 =
																							BgL_new1189z00_3708;
																					}
																					((((BgL_copz00_bglt) COBJECT(
																									((BgL_copz00_bglt)
																										BgL_new1190z00_3707)))->
																							BgL_locz00) =
																						((obj_t) (((BgL_nodez00_bglt)
																									COBJECT(((BgL_nodez00_bglt) (
																												(BgL_funcallz00_bglt)
																												BgL_nodez00_3602))))->
																								BgL_locz00)), BUNSPEC);
																					((((BgL_copz00_bglt)
																								COBJECT(((BgL_copz00_bglt)
																										BgL_new1190z00_3707)))->
																							BgL_typez00) =
																						((BgL_typez00_bglt) (
																								(BgL_typez00_bglt)
																								BGl_za2objza2z00zztype_cachez00)),
																						BUNSPEC);
																					((((BgL_csequencez00_bglt)
																								COBJECT(BgL_new1190z00_3707))->
																							BgL_czd2expzf3z21) =
																						((bool_t) ((bool_t) 0)), BUNSPEC);
																					((((BgL_csequencez00_bglt)
																								COBJECT(BgL_new1190z00_3707))->
																							BgL_copsz00) =
																						((obj_t) BgL_expsz00_3657),
																						BUNSPEC);
																					BgL_arg1980z00_3701 =
																						BgL_new1190z00_3707;
																				}
																				{	/* Tools/trace.sch 53 */
																					BgL_cfuncallz00_bglt
																						BgL_arg1987z00_3711;
																					{	/* Tools/trace.sch 53 */
																						BgL_cfuncallz00_bglt
																							BgL_new1192z00_3712;
																						{	/* Tools/trace.sch 53 */
																							BgL_cfuncallz00_bglt
																								BgL_new1191z00_3713;
																							BgL_new1191z00_3713 =
																								((BgL_cfuncallz00_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_cfuncallz00_bgl))));
																							{	/* Tools/trace.sch 53 */
																								long BgL_arg1988z00_3714;

																								{	/* Tools/trace.sch 53 */
																									obj_t BgL_classz00_3715;

																									BgL_classz00_3715 =
																										BGl_cfuncallz00zzcgen_copz00;
																									BgL_arg1988z00_3714 =
																										BGL_CLASS_NUM
																										(BgL_classz00_3715);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1191z00_3713),
																									BgL_arg1988z00_3714);
																							}
																							BgL_new1192z00_3712 =
																								BgL_new1191z00_3713;
																						}
																						((((BgL_copz00_bglt) COBJECT(
																										((BgL_copz00_bglt)
																											BgL_new1192z00_3712)))->
																								BgL_locz00) =
																							((obj_t) (((BgL_nodez00_bglt)
																										COBJECT(((BgL_nodez00_bglt)
																												((BgL_funcallz00_bglt)
																													BgL_nodez00_3602))))->
																									BgL_locz00)), BUNSPEC);
																						((((BgL_copz00_bglt)
																									COBJECT(((BgL_copz00_bglt)
																											BgL_new1192z00_3712)))->
																								BgL_typez00) =
																							((BgL_typez00_bglt)
																								BgL_typez00_3658), BUNSPEC);
																						((((BgL_cfuncallz00_bglt)
																									COBJECT
																									(BgL_new1192z00_3712))->
																								BgL_funz00) =
																							((BgL_copz00_bglt)
																								BgL_cfunz00_3688), BUNSPEC);
																						((((BgL_cfuncallz00_bglt)
																									COBJECT
																									(BgL_new1192z00_3712))->
																								BgL_argsz00) =
																							((obj_t)
																								bgl_reverse_bang
																								(BgL_newzd2actualszd2_3655)),
																							BUNSPEC);
																						((((BgL_cfuncallz00_bglt)
																									COBJECT
																									(BgL_new1192z00_3712))->
																								BgL_strengthz00) =
																							((obj_t) (((BgL_funcallz00_bglt)
																										COBJECT((
																												(BgL_funcallz00_bglt)
																												BgL_nodez00_3602)))->
																									BgL_strengthz00)), BUNSPEC);
																						BgL_arg1987z00_3711 =
																							BgL_new1192z00_3712;
																					}
																					BgL_arg1981z00_3702 =
																						(VA_PROCEDUREP(BgL_kontz00_3603)
																						? ((obj_t(*)(obj_t,
																									...))
																							PROCEDURE_ENTRY(BgL_kontz00_3603))
																						(BgL_kontz00_3603,
																							((obj_t) BgL_arg1987z00_3711),
																							BEOA) : ((obj_t(*)(obj_t,
																									obj_t))
																							PROCEDURE_ENTRY(BgL_kontz00_3603))
																						(BgL_kontz00_3603,
																							((obj_t) BgL_arg1987z00_3711)));
																				}
																				{	/* Tools/trace.sch 53 */
																					obj_t BgL_list1982z00_3716;

																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_arg1983z00_3717;

																						{	/* Tools/trace.sch 53 */
																							obj_t BgL_arg1984z00_3718;

																							BgL_arg1984z00_3718 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1981z00_3702, BNIL);
																							BgL_arg1983z00_3717 =
																								MAKE_YOUNG_PAIR(((obj_t)
																									BgL_arg1980z00_3701),
																								BgL_arg1984z00_3718);
																						}
																						BgL_list1982z00_3716 =
																							MAKE_YOUNG_PAIR(
																							((obj_t) BgL_arg1979z00_3700),
																							BgL_arg1983z00_3717);
																					}
																					BgL_auxz00_4965 =
																						BgL_list1982z00_3716;
																			}}
																			((((BgL_csequencez00_bglt)
																						COBJECT(BgL_new1186z00_3696))->
																					BgL_copsz00) =
																				((obj_t) BgL_auxz00_4965), BUNSPEC);
																		}
																		BgL_auxz00_4952 =
																			((BgL_copz00_bglt) BgL_new1186z00_3696);
																	}
																	((((BgL_cblockz00_bglt)
																				COBJECT(BgL_new1184z00_3693))->
																			BgL_bodyz00) =
																		((BgL_copz00_bglt) BgL_auxz00_4952),
																		BUNSPEC);
																}
																BgL_auxz00_4848 = ((obj_t) BgL_new1184z00_3693);
													}}
												else
													{	/* Tools/trace.sch 53 */
														BgL_cblockz00_bglt BgL_new1194z00_3719;

														{	/* Tools/trace.sch 53 */
															BgL_cblockz00_bglt BgL_new1193z00_3720;

															BgL_new1193z00_3720 =
																((BgL_cblockz00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_cblockz00_bgl))));
															{	/* Tools/trace.sch 53 */
																long BgL_arg2003z00_3721;

																BgL_arg2003z00_3721 =
																	BGL_CLASS_NUM(BGl_cblockz00zzcgen_copz00);
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1193z00_3720),
																	BgL_arg2003z00_3721);
															}
															BgL_new1194z00_3719 = BgL_new1193z00_3720;
														}
														((((BgL_copz00_bglt) COBJECT(
																		((BgL_copz00_bglt) BgL_new1194z00_3719)))->
																BgL_locz00) =
															((obj_t) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt) (
																					(BgL_funcallz00_bglt)
																					BgL_nodez00_3602))))->BgL_locz00)),
															BUNSPEC);
														((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																			BgL_new1194z00_3719)))->BgL_typez00) =
															((BgL_typez00_bglt) BgL_typez00_3658), BUNSPEC);
														{
															BgL_copz00_bglt BgL_auxz00_5035;

															{	/* Tools/trace.sch 53 */
																BgL_csequencez00_bglt BgL_new1196z00_3722;

																{	/* Tools/trace.sch 53 */
																	BgL_csequencez00_bglt BgL_new1195z00_3723;

																	BgL_new1195z00_3723 =
																		((BgL_csequencez00_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_csequencez00_bgl))));
																	{	/* Tools/trace.sch 53 */
																		long BgL_arg2002z00_3724;

																		{	/* Tools/trace.sch 53 */
																			obj_t BgL_classz00_3725;

																			BgL_classz00_3725 =
																				BGl_csequencez00zzcgen_copz00;
																			BgL_arg2002z00_3724 =
																				BGL_CLASS_NUM(BgL_classz00_3725);
																		}
																		BGL_OBJECT_CLASS_NUM_SET(
																			((BgL_objectz00_bglt)
																				BgL_new1195z00_3723),
																			BgL_arg2002z00_3724);
																	}
																	BgL_new1196z00_3722 = BgL_new1195z00_3723;
																}
																((((BgL_copz00_bglt) COBJECT(
																				((BgL_copz00_bglt)
																					BgL_new1196z00_3722)))->BgL_locz00) =
																	((obj_t) (((BgL_nodez00_bglt)
																				COBJECT(((BgL_nodez00_bglt) (
																							(BgL_funcallz00_bglt)
																							BgL_nodez00_3602))))->
																			BgL_locz00)), BUNSPEC);
																((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																					BgL_new1196z00_3722)))->BgL_typez00) =
																	((BgL_typez00_bglt) BgL_typez00_3658),
																	BUNSPEC);
																((((BgL_csequencez00_bglt)
																			COBJECT(BgL_new1196z00_3722))->
																		BgL_czd2expzf3z21) =
																	((bool_t) ((bool_t) 0)), BUNSPEC);
																{
																	obj_t BgL_auxz00_5048;

																	{	/* Tools/trace.sch 53 */
																		BgL_localzd2varzd2_bglt BgL_arg1991z00_3726;
																		BgL_csequencez00_bglt BgL_arg1992z00_3727;
																		obj_t BgL_arg1993z00_3728;

																		{	/* Tools/trace.sch 53 */
																			BgL_localzd2varzd2_bglt
																				BgL_new1198z00_3729;
																			{	/* Tools/trace.sch 53 */
																				BgL_localzd2varzd2_bglt
																					BgL_new1197z00_3730;
																				BgL_new1197z00_3730 =
																					((BgL_localzd2varzd2_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_localzd2varzd2_bgl))));
																				{	/* Tools/trace.sch 53 */
																					long BgL_arg1997z00_3731;

																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_classz00_3732;

																						BgL_classz00_3732 =
																							BGl_localzd2varzd2zzcgen_copz00;
																						BgL_arg1997z00_3731 =
																							BGL_CLASS_NUM(BgL_classz00_3732);
																					}
																					BGL_OBJECT_CLASS_NUM_SET(
																						((BgL_objectz00_bglt)
																							BgL_new1197z00_3730),
																						BgL_arg1997z00_3731);
																				}
																				BgL_new1198z00_3729 =
																					BgL_new1197z00_3730;
																			}
																			((((BgL_copz00_bglt) COBJECT(
																							((BgL_copz00_bglt)
																								BgL_new1198z00_3729)))->
																					BgL_locz00) =
																				((obj_t) (((BgL_nodez00_bglt)
																							COBJECT(((BgL_nodez00_bglt) (
																										(BgL_funcallz00_bglt)
																										BgL_nodez00_3602))))->
																						BgL_locz00)), BUNSPEC);
																			((((BgL_copz00_bglt)
																						COBJECT(((BgL_copz00_bglt)
																								BgL_new1198z00_3729)))->
																					BgL_typez00) =
																				((BgL_typez00_bglt) ((BgL_typez00_bglt)
																						BGl_za2objza2z00zztype_cachez00)),
																				BUNSPEC);
																			((((BgL_localzd2varzd2_bglt)
																						COBJECT(BgL_new1198z00_3729))->
																					BgL_varsz00) =
																				((obj_t) MAKE_YOUNG_PAIR(((obj_t)
																							BgL_auxz00_3659),
																						BgL_auxsz00_3656)), BUNSPEC);
																			BgL_arg1991z00_3726 = BgL_new1198z00_3729;
																		}
																		{	/* Tools/trace.sch 53 */
																			BgL_csequencez00_bglt BgL_new1202z00_3733;

																			{	/* Tools/trace.sch 53 */
																				BgL_csequencez00_bglt
																					BgL_new1199z00_3734;
																				BgL_new1199z00_3734 =
																					((BgL_csequencez00_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_csequencez00_bgl))));
																				{	/* Tools/trace.sch 53 */
																					long BgL_arg1998z00_3735;

																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_classz00_3736;

																						BgL_classz00_3736 =
																							BGl_csequencez00zzcgen_copz00;
																						BgL_arg1998z00_3735 =
																							BGL_CLASS_NUM(BgL_classz00_3736);
																					}
																					BGL_OBJECT_CLASS_NUM_SET(
																						((BgL_objectz00_bglt)
																							BgL_new1199z00_3734),
																						BgL_arg1998z00_3735);
																				}
																				BgL_new1202z00_3733 =
																					BgL_new1199z00_3734;
																			}
																			((((BgL_copz00_bglt) COBJECT(
																							((BgL_copz00_bglt)
																								BgL_new1202z00_3733)))->
																					BgL_locz00) =
																				((obj_t) (((BgL_nodez00_bglt)
																							COBJECT(((BgL_nodez00_bglt) (
																										(BgL_funcallz00_bglt)
																										BgL_nodez00_3602))))->
																						BgL_locz00)), BUNSPEC);
																			((((BgL_copz00_bglt)
																						COBJECT(((BgL_copz00_bglt)
																								BgL_new1202z00_3733)))->
																					BgL_typez00) =
																				((BgL_typez00_bglt) ((BgL_typez00_bglt)
																						BGl_za2objza2z00zztype_cachez00)),
																				BUNSPEC);
																			((((BgL_csequencez00_bglt)
																						COBJECT(BgL_new1202z00_3733))->
																					BgL_czd2expzf3z21) =
																				((bool_t) ((bool_t) 0)), BUNSPEC);
																			((((BgL_csequencez00_bglt)
																						COBJECT(BgL_new1202z00_3733))->
																					BgL_copsz00) =
																				((obj_t) MAKE_YOUNG_PAIR(((obj_t)
																							BgL_copz00_3660),
																						BgL_expsz00_3657)), BUNSPEC);
																			BgL_arg1992z00_3727 = BgL_new1202z00_3733;
																		}
																		{	/* Tools/trace.sch 53 */
																			BgL_cfuncallz00_bglt BgL_arg1999z00_3737;

																			{	/* Tools/trace.sch 53 */
																				BgL_cfuncallz00_bglt
																					BgL_new1204z00_3738;
																				{	/* Tools/trace.sch 53 */
																					BgL_cfuncallz00_bglt
																						BgL_new1203z00_3739;
																					BgL_new1203z00_3739 =
																						((BgL_cfuncallz00_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_cfuncallz00_bgl))));
																					{	/* Tools/trace.sch 53 */
																						long BgL_arg2001z00_3740;

																						{	/* Tools/trace.sch 53 */
																							obj_t BgL_classz00_3741;

																							BgL_classz00_3741 =
																								BGl_cfuncallz00zzcgen_copz00;
																							BgL_arg2001z00_3740 =
																								BGL_CLASS_NUM
																								(BgL_classz00_3741);
																						}
																						BGL_OBJECT_CLASS_NUM_SET(
																							((BgL_objectz00_bglt)
																								BgL_new1203z00_3739),
																							BgL_arg2001z00_3740);
																					}
																					BgL_new1204z00_3738 =
																						BgL_new1203z00_3739;
																				}
																				((((BgL_copz00_bglt) COBJECT(
																								((BgL_copz00_bglt)
																									BgL_new1204z00_3738)))->
																						BgL_locz00) =
																					((obj_t) (((BgL_nodez00_bglt)
																								COBJECT(((BgL_nodez00_bglt) (
																											(BgL_funcallz00_bglt)
																											BgL_nodez00_3602))))->
																							BgL_locz00)), BUNSPEC);
																				((((BgL_copz00_bglt)
																							COBJECT(((BgL_copz00_bglt)
																									BgL_new1204z00_3738)))->
																						BgL_typez00) =
																					((BgL_typez00_bglt) BgL_typez00_3658),
																					BUNSPEC);
																				{
																					BgL_copz00_bglt BgL_auxz00_5091;

																					{	/* Tools/trace.sch 53 */
																						BgL_varcz00_bglt
																							BgL_new1206z00_3742;
																						{	/* Tools/trace.sch 53 */
																							BgL_varcz00_bglt
																								BgL_new1205z00_3743;
																							BgL_new1205z00_3743 =
																								((BgL_varcz00_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_varcz00_bgl))));
																							{	/* Tools/trace.sch 53 */
																								long BgL_arg2000z00_3744;

																								{	/* Tools/trace.sch 53 */
																									obj_t BgL_classz00_3745;

																									BgL_classz00_3745 =
																										BGl_varcz00zzcgen_copz00;
																									BgL_arg2000z00_3744 =
																										BGL_CLASS_NUM
																										(BgL_classz00_3745);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1205z00_3743),
																									BgL_arg2000z00_3744);
																							}
																							BgL_new1206z00_3742 =
																								BgL_new1205z00_3743;
																						}
																						((((BgL_copz00_bglt) COBJECT(
																										((BgL_copz00_bglt)
																											BgL_new1206z00_3742)))->
																								BgL_locz00) =
																							((obj_t) (((BgL_nodez00_bglt)
																										COBJECT(((BgL_nodez00_bglt)
																												((BgL_funcallz00_bglt)
																													BgL_nodez00_3602))))->
																									BgL_locz00)), BUNSPEC);
																						((((BgL_copz00_bglt)
																									COBJECT(((BgL_copz00_bglt)
																											BgL_new1206z00_3742)))->
																								BgL_typez00) =
																							((BgL_typez00_bglt) ((
																										(BgL_variablez00_bglt)
																										COBJECT((
																												(BgL_variablez00_bglt)
																												BgL_auxz00_3659)))->
																									BgL_typez00)), BUNSPEC);
																						((((BgL_varcz00_bglt)
																									COBJECT
																									(BgL_new1206z00_3742))->
																								BgL_variablez00) =
																							((BgL_variablez00_bglt) (
																									(BgL_variablez00_bglt)
																									BgL_auxz00_3659)), BUNSPEC);
																						BgL_auxz00_5091 =
																							((BgL_copz00_bglt)
																							BgL_new1206z00_3742);
																					}
																					((((BgL_cfuncallz00_bglt)
																								COBJECT(BgL_new1204z00_3738))->
																							BgL_funz00) =
																						((BgL_copz00_bglt) BgL_auxz00_5091),
																						BUNSPEC);
																				}
																				((((BgL_cfuncallz00_bglt)
																							COBJECT(BgL_new1204z00_3738))->
																						BgL_argsz00) =
																					((obj_t)
																						bgl_reverse_bang
																						(BgL_newzd2actualszd2_3655)),
																					BUNSPEC);
																				((((BgL_cfuncallz00_bglt)
																							COBJECT(BgL_new1204z00_3738))->
																						BgL_strengthz00) =
																					((obj_t) (((BgL_funcallz00_bglt)
																								COBJECT(((BgL_funcallz00_bglt)
																										BgL_nodez00_3602)))->
																							BgL_strengthz00)), BUNSPEC);
																				BgL_arg1999z00_3737 =
																					BgL_new1204z00_3738;
																			}
																			BgL_arg1993z00_3728 =
																				(VA_PROCEDUREP(BgL_kontz00_3603)
																				? ((obj_t(*)(obj_t,
																							...))
																					PROCEDURE_ENTRY(BgL_kontz00_3603))
																				(BgL_kontz00_3603,
																					((obj_t) BgL_arg1999z00_3737),
																					BEOA) : ((obj_t(*)(obj_t,
																							obj_t))
																					PROCEDURE_ENTRY(BgL_kontz00_3603))
																				(BgL_kontz00_3603,
																					((obj_t) BgL_arg1999z00_3737)));
																		}
																		{	/* Tools/trace.sch 53 */
																			obj_t BgL_list1994z00_3746;

																			{	/* Tools/trace.sch 53 */
																				obj_t BgL_arg1995z00_3747;

																				{	/* Tools/trace.sch 53 */
																					obj_t BgL_arg1996z00_3748;

																					BgL_arg1996z00_3748 =
																						MAKE_YOUNG_PAIR(BgL_arg1993z00_3728,
																						BNIL);
																					BgL_arg1995z00_3747 =
																						MAKE_YOUNG_PAIR(((obj_t)
																							BgL_arg1992z00_3727),
																						BgL_arg1996z00_3748);
																				}
																				BgL_list1994z00_3746 =
																					MAKE_YOUNG_PAIR(
																					((obj_t) BgL_arg1991z00_3726),
																					BgL_arg1995z00_3747);
																			}
																			BgL_auxz00_5048 = BgL_list1994z00_3746;
																	}}
																	((((BgL_csequencez00_bglt)
																				COBJECT(BgL_new1196z00_3722))->
																			BgL_copsz00) =
																		((obj_t) BgL_auxz00_5048), BUNSPEC);
																}
																BgL_auxz00_5035 =
																	((BgL_copz00_bglt) BgL_new1196z00_3722);
															}
															((((BgL_cblockz00_bglt)
																		COBJECT(BgL_new1194z00_3719))->
																	BgL_bodyz00) =
																((BgL_copz00_bglt) BgL_auxz00_5035), BUNSPEC);
														}
														BgL_auxz00_4848 = ((obj_t) BgL_new1194z00_3719);
							}}}}}}
						else
							{	/* Tools/trace.sch 53 */
								obj_t BgL_az00_3749;

								BgL_az00_3749 = CAR(((obj_t) BgL_oldzd2actualszd2_3654));
								{	/* Tools/trace.sch 53 */
									BgL_localz00_bglt BgL_auxz00_3750;

									{	/* Tools/trace.sch 53 */
										BgL_typez00_bglt BgL_arg2032z00_3751;

										BgL_arg2032z00_3751 =
											BGl_getzd2typezd2zztype_typeofz00(
											((BgL_nodez00_bglt) BgL_az00_3749), ((bool_t) 0));
										BgL_auxz00_3750 =
											BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00
											(CNST_TABLE_REF(5L), BgL_arg2032z00_3751);
									}
									{	/* Tools/trace.sch 53 */
										BgL_copz00_bglt BgL_copz00_3752;

										{	/* Tools/trace.sch 53 */
											BgL_setqz00_bglt BgL_arg2031z00_3753;

											BgL_arg2031z00_3753 =
												BGl_nodezd2setqzd2zzcgen_cgenz00(
												((BgL_variablez00_bglt) BgL_auxz00_3750),
												((BgL_nodez00_bglt) BgL_az00_3749));
											BgL_copz00_3752 =
												BGl_nodezd2ze3copz31zzcgen_cgenz00(
												((BgL_nodez00_bglt) BgL_arg2031z00_3753),
												BGl_za2idzd2kontza2zd2zzcgen_cgenz00,
												CBOOL(BgL_inpushexitz00_3604));
										}
										{	/* Tools/trace.sch 53 */

											{	/* Tools/trace.sch 53 */
												bool_t BgL_test2255z00_5140;

												{	/* Tools/trace.sch 53 */
													bool_t BgL_test2256z00_5141;

													{	/* Tools/trace.sch 53 */
														obj_t BgL_classz00_3754;

														BgL_classz00_3754 = BGl_csetqz00zzcgen_copz00;
														{	/* Tools/trace.sch 53 */
															BgL_objectz00_bglt BgL_arg1801z00_3755;

															{	/* Tools/trace.sch 53 */
																obj_t BgL_tmpz00_5142;

																BgL_tmpz00_5142 =
																	((obj_t)
																	((BgL_objectz00_bglt) BgL_copz00_3752));
																BgL_arg1801z00_3755 =
																	(BgL_objectz00_bglt) (BgL_tmpz00_5142);
															}
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* Tools/trace.sch 53 */
																	long BgL_idxz00_3756;

																	BgL_idxz00_3756 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_3755);
																	BgL_test2256z00_5141 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_3756 + 2L)) ==
																		BgL_classz00_3754);
																}
															else
																{	/* Tools/trace.sch 53 */
																	bool_t BgL_res2155z00_3759;

																	{	/* Tools/trace.sch 53 */
																		obj_t BgL_oclassz00_3760;

																		{	/* Tools/trace.sch 53 */
																			long BgL_arg1808z00_3761;

																			{	/* Tools/trace.sch 53 */
																				long BgL_arg1809z00_3762;

																				BgL_arg1809z00_3762 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_3755);
																				BgL_arg1808z00_3761 =
																					(BgL_arg1809z00_3762 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_3760 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_3761);
																		}
																		{	/* Tools/trace.sch 53 */
																			bool_t BgL__ortest_1115z00_3763;

																			BgL__ortest_1115z00_3763 =
																				(BgL_classz00_3754 ==
																				BgL_oclassz00_3760);
																			if (BgL__ortest_1115z00_3763)
																				{	/* Tools/trace.sch 53 */
																					BgL_res2155z00_3759 =
																						BgL__ortest_1115z00_3763;
																				}
																			else
																				{	/* Tools/trace.sch 53 */
																					long BgL_odepthz00_3764;

																					BgL_odepthz00_3764 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_3760);
																					if ((2L < BgL_odepthz00_3764))
																						{	/* Tools/trace.sch 53 */
																							obj_t BgL_arg1797z00_3765;

																							BgL_arg1797z00_3765 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_3760, 2L);
																							BgL_res2155z00_3759 =
																								(BgL_arg1797z00_3765 ==
																								BgL_classz00_3754);
																						}
																					else
																						{	/* Tools/trace.sch 53 */
																							BgL_res2155z00_3759 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test2256z00_5141 = BgL_res2155z00_3759;
																}
														}
													}
													if (BgL_test2256z00_5141)
														{	/* Tools/trace.sch 53 */
															BgL_test2255z00_5140 =
																(
																((obj_t)
																	(((BgL_varcz00_bglt) COBJECT(
																				(((BgL_csetqz00_bglt) COBJECT(
																							((BgL_csetqz00_bglt)
																								BgL_copz00_3752)))->
																					BgL_varz00)))->BgL_variablez00)) ==
																((obj_t) BgL_auxz00_3750));
														}
													else
														{	/* Tools/trace.sch 53 */
															BgL_test2255z00_5140 = ((bool_t) 0);
														}
												}
												if (BgL_test2255z00_5140)
													{	/* Tools/trace.sch 53 */
														obj_t BgL_arg2014z00_3766;
														obj_t BgL_arg2015z00_3767;

														BgL_arg2014z00_3766 =
															CDR(((obj_t) BgL_oldzd2actualszd2_3654));
														{	/* Tools/trace.sch 53 */
															BgL_copz00_bglt BgL_arg2016z00_3768;

															BgL_arg2016z00_3768 =
																(((BgL_csetqz00_bglt) COBJECT(
																		((BgL_csetqz00_bglt) BgL_copz00_3752)))->
																BgL_valuez00);
															BgL_arg2015z00_3767 =
																MAKE_YOUNG_PAIR(((obj_t) BgL_arg2016z00_3768),
																BgL_newzd2actualszd2_3655);
														}
														{
															obj_t BgL_newzd2actualszd2_5175;
															obj_t BgL_oldzd2actualszd2_5174;

															BgL_oldzd2actualszd2_5174 = BgL_arg2014z00_3766;
															BgL_newzd2actualszd2_5175 = BgL_arg2015z00_3767;
															BgL_newzd2actualszd2_3655 =
																BgL_newzd2actualszd2_5175;
															BgL_oldzd2actualszd2_3654 =
																BgL_oldzd2actualszd2_5174;
															goto BgL_loopz00_3653;
														}
													}
												else
													{	/* Tools/trace.sch 53 */
														obj_t BgL_arg2018z00_3769;
														obj_t BgL_arg2019z00_3770;
														obj_t BgL_arg2020z00_3771;
														obj_t BgL_arg2021z00_3772;

														BgL_arg2018z00_3769 =
															CDR(((obj_t) BgL_oldzd2actualszd2_3654));
														{	/* Tools/trace.sch 53 */
															BgL_varcz00_bglt BgL_arg2023z00_3773;

															{	/* Tools/trace.sch 53 */
																BgL_varcz00_bglt BgL_new1208z00_3774;

																{	/* Tools/trace.sch 53 */
																	BgL_varcz00_bglt BgL_new1207z00_3775;

																	BgL_new1207z00_3775 =
																		((BgL_varcz00_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_varcz00_bgl))));
																	{	/* Tools/trace.sch 53 */
																		long BgL_arg2025z00_3776;

																		BgL_arg2025z00_3776 =
																			BGL_CLASS_NUM(BGl_varcz00zzcgen_copz00);
																		BGL_OBJECT_CLASS_NUM_SET(
																			((BgL_objectz00_bglt)
																				BgL_new1207z00_3775),
																			BgL_arg2025z00_3776);
																	}
																	BgL_new1208z00_3774 = BgL_new1207z00_3775;
																}
																((((BgL_copz00_bglt) COBJECT(
																				((BgL_copz00_bglt)
																					BgL_new1208z00_3774)))->BgL_locz00) =
																	((obj_t) (((BgL_nodez00_bglt)
																				COBJECT(((BgL_nodez00_bglt) CAR(((obj_t)
																								BgL_oldzd2actualszd2_3654)))))->
																			BgL_locz00)), BUNSPEC);
																((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																					BgL_new1208z00_3774)))->BgL_typez00) =
																	((BgL_typez00_bglt) (((BgL_variablez00_bglt)
																				COBJECT(((BgL_variablez00_bglt)
																						BgL_auxz00_3750)))->BgL_typez00)),
																	BUNSPEC);
																((((BgL_varcz00_bglt)
																			COBJECT(BgL_new1208z00_3774))->
																		BgL_variablez00) =
																	((BgL_variablez00_bglt) (
																			(BgL_variablez00_bglt) BgL_auxz00_3750)),
																	BUNSPEC);
																BgL_arg2023z00_3773 = BgL_new1208z00_3774;
															}
															BgL_arg2019z00_3770 =
																MAKE_YOUNG_PAIR(
																((obj_t) BgL_arg2023z00_3773),
																BgL_newzd2actualszd2_3655);
														}
														BgL_arg2020z00_3771 =
															MAKE_YOUNG_PAIR(
															((obj_t) BgL_auxz00_3750), BgL_auxsz00_3656);
														BgL_arg2021z00_3772 =
															MAKE_YOUNG_PAIR(
															((obj_t) BgL_copz00_3752), BgL_expsz00_3657);
														{
															obj_t BgL_expsz00_5203;
															obj_t BgL_auxsz00_5202;
															obj_t BgL_newzd2actualszd2_5201;
															obj_t BgL_oldzd2actualszd2_5200;

															BgL_oldzd2actualszd2_5200 = BgL_arg2018z00_3769;
															BgL_newzd2actualszd2_5201 = BgL_arg2019z00_3770;
															BgL_auxsz00_5202 = BgL_arg2020z00_3771;
															BgL_expsz00_5203 = BgL_arg2021z00_3772;
															BgL_expsz00_3657 = BgL_expsz00_5203;
															BgL_auxsz00_3656 = BgL_auxsz00_5202;
															BgL_newzd2actualszd2_3655 =
																BgL_newzd2actualszd2_5201;
															BgL_oldzd2actualszd2_3654 =
																BgL_oldzd2actualszd2_5200;
															goto BgL_loopz00_3653;
														}
													}
											}
										}
									}
								}
							}
						return ((BgL_copz00_bglt) BgL_auxz00_4848);
					}
				}
			}
		}

	}



/* &node->cop-app-ly1462 */
	BgL_copz00_bglt BGl_z62nodezd2ze3copzd2appzd2ly1462z53zzcgen_cappz00(obj_t
		BgL_envz00_3605, obj_t BgL_nodez00_3606, obj_t BgL_kontz00_3607,
		obj_t BgL_inpushexitz00_3608)
	{
		{	/* Cgen/capp.scm 34 */
			{	/* Tools/trace.sch 53 */
				BgL_nodez00_bglt BgL_valuez00_3779;

				BgL_valuez00_3779 =
					(((BgL_appzd2lyzd2_bglt) COBJECT(
							((BgL_appzd2lyzd2_bglt) BgL_nodez00_3606)))->BgL_argz00);
				{	/* Tools/trace.sch 53 */
					BgL_localz00_bglt BgL_vauxz00_3780;

					BgL_vauxz00_3780 =
						BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(CNST_TABLE_REF(0L),
						((BgL_typez00_bglt) BGl_za2objza2z00zztype_cachez00));
					{	/* Tools/trace.sch 53 */
						BgL_copz00_bglt BgL_vcopz00_3781;

						{	/* Tools/trace.sch 53 */
							BgL_setqz00_bglt BgL_arg1965z00_3782;

							BgL_arg1965z00_3782 =
								BGl_nodezd2setqzd2zzcgen_cgenz00(
								((BgL_variablez00_bglt) BgL_vauxz00_3780), BgL_valuez00_3779);
							BgL_vcopz00_3781 =
								BGl_nodezd2ze3copz31zzcgen_cgenz00(
								((BgL_nodez00_bglt) BgL_arg1965z00_3782),
								BGl_za2idzd2kontza2zd2zzcgen_cgenz00,
								CBOOL(BgL_inpushexitz00_3608));
						}
						{	/* Tools/trace.sch 53 */
							BgL_nodez00_bglt BgL_funz00_3783;

							BgL_funz00_3783 =
								(((BgL_appzd2lyzd2_bglt) COBJECT(
										((BgL_appzd2lyzd2_bglt) BgL_nodez00_3606)))->BgL_funz00);
							{	/* Tools/trace.sch 53 */
								BgL_localz00_bglt BgL_fauxz00_3784;

								BgL_fauxz00_3784 =
									BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(CNST_TABLE_REF
									(6L),
									((BgL_typez00_bglt) BGl_za2procedureza2z00zztype_cachez00));
								{	/* Tools/trace.sch 53 */
									BgL_copz00_bglt BgL_fcopz00_3785;

									{	/* Tools/trace.sch 53 */
										BgL_setqz00_bglt BgL_arg1964z00_3786;

										BgL_arg1964z00_3786 =
											BGl_nodezd2setqzd2zzcgen_cgenz00(
											((BgL_variablez00_bglt) BgL_fauxz00_3784),
											BgL_funz00_3783);
										BgL_fcopz00_3785 =
											BGl_nodezd2ze3copz31zzcgen_cgenz00(((BgL_nodez00_bglt)
												BgL_arg1964z00_3786),
											BGl_za2idzd2kontza2zd2zzcgen_cgenz00,
											CBOOL(BgL_inpushexitz00_3608));
									}
									{	/* Tools/trace.sch 53 */

										{	/* Tools/trace.sch 53 */
											bool_t BgL_test2260z00_5225;

											{	/* Tools/trace.sch 53 */
												bool_t BgL_test2261z00_5226;

												{	/* Tools/trace.sch 53 */
													obj_t BgL_classz00_3787;

													BgL_classz00_3787 = BGl_csetqz00zzcgen_copz00;
													{	/* Tools/trace.sch 53 */
														BgL_objectz00_bglt BgL_arg1801z00_3788;

														{	/* Tools/trace.sch 53 */
															obj_t BgL_tmpz00_5227;

															BgL_tmpz00_5227 =
																((obj_t)
																((BgL_objectz00_bglt) BgL_vcopz00_3781));
															BgL_arg1801z00_3788 =
																(BgL_objectz00_bglt) (BgL_tmpz00_5227);
														}
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* Tools/trace.sch 53 */
																long BgL_idxz00_3789;

																BgL_idxz00_3789 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_3788);
																BgL_test2261z00_5226 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_3789 + 2L)) ==
																	BgL_classz00_3787);
															}
														else
															{	/* Tools/trace.sch 53 */
																bool_t BgL_res2138z00_3792;

																{	/* Tools/trace.sch 53 */
																	obj_t BgL_oclassz00_3793;

																	{	/* Tools/trace.sch 53 */
																		long BgL_arg1808z00_3794;

																		{	/* Tools/trace.sch 53 */
																			long BgL_arg1809z00_3795;

																			BgL_arg1809z00_3795 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_3788);
																			BgL_arg1808z00_3794 =
																				(BgL_arg1809z00_3795 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_3793 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_3794);
																	}
																	{	/* Tools/trace.sch 53 */
																		bool_t BgL__ortest_1115z00_3796;

																		BgL__ortest_1115z00_3796 =
																			(BgL_classz00_3787 == BgL_oclassz00_3793);
																		if (BgL__ortest_1115z00_3796)
																			{	/* Tools/trace.sch 53 */
																				BgL_res2138z00_3792 =
																					BgL__ortest_1115z00_3796;
																			}
																		else
																			{	/* Tools/trace.sch 53 */
																				long BgL_odepthz00_3797;

																				BgL_odepthz00_3797 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_3793);
																				if ((2L < BgL_odepthz00_3797))
																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_arg1797z00_3798;

																						BgL_arg1797z00_3798 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_3793, 2L);
																						BgL_res2138z00_3792 =
																							(BgL_arg1797z00_3798 ==
																							BgL_classz00_3787);
																					}
																				else
																					{	/* Tools/trace.sch 53 */
																						BgL_res2138z00_3792 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2261z00_5226 = BgL_res2138z00_3792;
															}
													}
												}
												if (BgL_test2261z00_5226)
													{	/* Tools/trace.sch 53 */
														if (
															(((obj_t)
																	(((BgL_varcz00_bglt) COBJECT(
																				(((BgL_csetqz00_bglt) COBJECT(
																							((BgL_csetqz00_bglt)
																								BgL_vcopz00_3781)))->
																					BgL_varz00)))->BgL_variablez00)) ==
																((obj_t) BgL_vauxz00_3780)))
															{	/* Tools/trace.sch 53 */
																bool_t BgL_test2266z00_5254;

																{	/* Tools/trace.sch 53 */
																	obj_t BgL_classz00_3799;

																	BgL_classz00_3799 = BGl_csetqz00zzcgen_copz00;
																	{	/* Tools/trace.sch 53 */
																		BgL_objectz00_bglt BgL_arg1801z00_3800;

																		{	/* Tools/trace.sch 53 */
																			obj_t BgL_tmpz00_5255;

																			BgL_tmpz00_5255 =
																				((obj_t)
																				((BgL_objectz00_bglt)
																					BgL_fcopz00_3785));
																			BgL_arg1801z00_3800 =
																				(BgL_objectz00_bglt) (BgL_tmpz00_5255);
																		}
																		if (BGL_CONDEXPAND_ISA_ARCH64())
																			{	/* Tools/trace.sch 53 */
																				long BgL_idxz00_3801;

																				BgL_idxz00_3801 =
																					BGL_OBJECT_INHERITANCE_NUM
																					(BgL_arg1801z00_3800);
																				BgL_test2266z00_5254 =
																					(VECTOR_REF
																					(BGl_za2inheritancesza2z00zz__objectz00,
																						(BgL_idxz00_3801 + 2L)) ==
																					BgL_classz00_3799);
																			}
																		else
																			{	/* Tools/trace.sch 53 */
																				bool_t BgL_res2139z00_3804;

																				{	/* Tools/trace.sch 53 */
																					obj_t BgL_oclassz00_3805;

																					{	/* Tools/trace.sch 53 */
																						long BgL_arg1808z00_3806;

																						{	/* Tools/trace.sch 53 */
																							long BgL_arg1809z00_3807;

																							BgL_arg1809z00_3807 =
																								BGL_OBJECT_CLASS_NUM
																								(BgL_arg1801z00_3800);
																							BgL_arg1808z00_3806 =
																								(BgL_arg1809z00_3807 -
																								OBJECT_TYPE);
																						}
																						BgL_oclassz00_3805 =
																							VECTOR_REF
																							(BGl_za2classesza2z00zz__objectz00,
																							BgL_arg1808z00_3806);
																					}
																					{	/* Tools/trace.sch 53 */
																						bool_t BgL__ortest_1115z00_3808;

																						BgL__ortest_1115z00_3808 =
																							(BgL_classz00_3799 ==
																							BgL_oclassz00_3805);
																						if (BgL__ortest_1115z00_3808)
																							{	/* Tools/trace.sch 53 */
																								BgL_res2139z00_3804 =
																									BgL__ortest_1115z00_3808;
																							}
																						else
																							{	/* Tools/trace.sch 53 */
																								long BgL_odepthz00_3809;

																								BgL_odepthz00_3809 =
																									BGL_CLASS_DEPTH
																									(BgL_oclassz00_3805);
																								if ((2L < BgL_odepthz00_3809))
																									{	/* Tools/trace.sch 53 */
																										obj_t BgL_arg1797z00_3810;

																										BgL_arg1797z00_3810 =
																											BGL_CLASS_ANCESTORS_REF
																											(BgL_oclassz00_3805, 2L);
																										BgL_res2139z00_3804 =
																											(BgL_arg1797z00_3810 ==
																											BgL_classz00_3799);
																									}
																								else
																									{	/* Tools/trace.sch 53 */
																										BgL_res2139z00_3804 =
																											((bool_t) 0);
																									}
																							}
																					}
																				}
																				BgL_test2266z00_5254 =
																					BgL_res2139z00_3804;
																			}
																	}
																}
																if (BgL_test2266z00_5254)
																	{	/* Tools/trace.sch 53 */
																		BgL_test2260z00_5225 =
																			(
																			((obj_t)
																				(((BgL_varcz00_bglt) COBJECT(
																							(((BgL_csetqz00_bglt) COBJECT(
																										((BgL_csetqz00_bglt)
																											BgL_fcopz00_3785)))->
																								BgL_varz00)))->
																					BgL_variablez00)) ==
																			((obj_t) BgL_fauxz00_3784));
																	}
																else
																	{	/* Tools/trace.sch 53 */
																		BgL_test2260z00_5225 = ((bool_t) 0);
																	}
															}
														else
															{	/* Tools/trace.sch 53 */
																BgL_test2260z00_5225 = ((bool_t) 0);
															}
													}
												else
													{	/* Tools/trace.sch 53 */
														BgL_test2260z00_5225 = ((bool_t) 0);
													}
											}
											if (BgL_test2260z00_5225)
												{	/* Tools/trace.sch 53 */
													BgL_capplyz00_bglt BgL_arg1888z00_3811;

													{	/* Tools/trace.sch 53 */
														BgL_capplyz00_bglt BgL_new1136z00_3812;

														{	/* Tools/trace.sch 53 */
															BgL_capplyz00_bglt BgL_new1135z00_3813;

															BgL_new1135z00_3813 =
																((BgL_capplyz00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_capplyz00_bgl))));
															{	/* Tools/trace.sch 53 */
																long BgL_arg1889z00_3814;

																BgL_arg1889z00_3814 =
																	BGL_CLASS_NUM(BGl_capplyz00zzcgen_copz00);
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1135z00_3813),
																	BgL_arg1889z00_3814);
															}
															BgL_new1136z00_3812 = BgL_new1135z00_3813;
														}
														((((BgL_copz00_bglt) COBJECT(
																		((BgL_copz00_bglt) BgL_new1136z00_3812)))->
																BgL_locz00) =
															((obj_t) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt) (
																					(BgL_appzd2lyzd2_bglt)
																					BgL_nodez00_3606))))->BgL_locz00)),
															BUNSPEC);
														((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																			BgL_new1136z00_3812)))->BgL_typez00) =
															((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt) (
																					(BgL_appzd2lyzd2_bglt)
																					BgL_nodez00_3606))))->BgL_typez00)),
															BUNSPEC);
														((((BgL_capplyz00_bglt)
																	COBJECT(BgL_new1136z00_3812))->BgL_funz00) =
															((BgL_copz00_bglt) (((BgL_csetqz00_bglt)
																		COBJECT(((BgL_csetqz00_bglt)
																				BgL_fcopz00_3785)))->BgL_valuez00)),
															BUNSPEC);
														((((BgL_capplyz00_bglt)
																	COBJECT(BgL_new1136z00_3812))->BgL_argz00) =
															((BgL_copz00_bglt) (((BgL_csetqz00_bglt)
																		COBJECT(((BgL_csetqz00_bglt)
																				BgL_vcopz00_3781)))->BgL_valuez00)),
															BUNSPEC);
														BgL_arg1888z00_3811 = BgL_new1136z00_3812;
													}
													return
														((BgL_copz00_bglt)
														(VA_PROCEDUREP(BgL_kontz00_3607) ? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_kontz00_3607))
															(BgL_kontz00_3607, ((obj_t) BgL_arg1888z00_3811),
																BEOA) : ((obj_t(*)(obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_kontz00_3607))
															(BgL_kontz00_3607,
																((obj_t) BgL_arg1888z00_3811))));
												}
											else
												{	/* Tools/trace.sch 53 */
													bool_t BgL_test2270z00_5307;

													{	/* Tools/trace.sch 53 */
														bool_t BgL_test2271z00_5308;

														{	/* Tools/trace.sch 53 */
															obj_t BgL_classz00_3815;

															BgL_classz00_3815 = BGl_csetqz00zzcgen_copz00;
															{	/* Tools/trace.sch 53 */
																BgL_objectz00_bglt BgL_arg1801z00_3816;

																{	/* Tools/trace.sch 53 */
																	obj_t BgL_tmpz00_5309;

																	BgL_tmpz00_5309 =
																		((obj_t)
																		((BgL_objectz00_bglt) BgL_vcopz00_3781));
																	BgL_arg1801z00_3816 =
																		(BgL_objectz00_bglt) (BgL_tmpz00_5309);
																}
																if (BGL_CONDEXPAND_ISA_ARCH64())
																	{	/* Tools/trace.sch 53 */
																		long BgL_idxz00_3817;

																		BgL_idxz00_3817 =
																			BGL_OBJECT_INHERITANCE_NUM
																			(BgL_arg1801z00_3816);
																		BgL_test2271z00_5308 =
																			(VECTOR_REF
																			(BGl_za2inheritancesza2z00zz__objectz00,
																				(BgL_idxz00_3817 + 2L)) ==
																			BgL_classz00_3815);
																	}
																else
																	{	/* Tools/trace.sch 53 */
																		bool_t BgL_res2140z00_3820;

																		{	/* Tools/trace.sch 53 */
																			obj_t BgL_oclassz00_3821;

																			{	/* Tools/trace.sch 53 */
																				long BgL_arg1808z00_3822;

																				{	/* Tools/trace.sch 53 */
																					long BgL_arg1809z00_3823;

																					BgL_arg1809z00_3823 =
																						BGL_OBJECT_CLASS_NUM
																						(BgL_arg1801z00_3816);
																					BgL_arg1808z00_3822 =
																						(BgL_arg1809z00_3823 - OBJECT_TYPE);
																				}
																				BgL_oclassz00_3821 =
																					VECTOR_REF
																					(BGl_za2classesza2z00zz__objectz00,
																					BgL_arg1808z00_3822);
																			}
																			{	/* Tools/trace.sch 53 */
																				bool_t BgL__ortest_1115z00_3824;

																				BgL__ortest_1115z00_3824 =
																					(BgL_classz00_3815 ==
																					BgL_oclassz00_3821);
																				if (BgL__ortest_1115z00_3824)
																					{	/* Tools/trace.sch 53 */
																						BgL_res2140z00_3820 =
																							BgL__ortest_1115z00_3824;
																					}
																				else
																					{	/* Tools/trace.sch 53 */
																						long BgL_odepthz00_3825;

																						BgL_odepthz00_3825 =
																							BGL_CLASS_DEPTH
																							(BgL_oclassz00_3821);
																						if ((2L < BgL_odepthz00_3825))
																							{	/* Tools/trace.sch 53 */
																								obj_t BgL_arg1797z00_3826;

																								BgL_arg1797z00_3826 =
																									BGL_CLASS_ANCESTORS_REF
																									(BgL_oclassz00_3821, 2L);
																								BgL_res2140z00_3820 =
																									(BgL_arg1797z00_3826 ==
																									BgL_classz00_3815);
																							}
																						else
																							{	/* Tools/trace.sch 53 */
																								BgL_res2140z00_3820 =
																									((bool_t) 0);
																							}
																					}
																			}
																		}
																		BgL_test2271z00_5308 = BgL_res2140z00_3820;
																	}
															}
														}
														if (BgL_test2271z00_5308)
															{	/* Tools/trace.sch 53 */
																BgL_test2270z00_5307 =
																	(
																	((obj_t)
																		(((BgL_varcz00_bglt) COBJECT(
																					(((BgL_csetqz00_bglt) COBJECT(
																								((BgL_csetqz00_bglt)
																									BgL_vcopz00_3781)))->
																						BgL_varz00)))->BgL_variablez00)) ==
																	((obj_t) BgL_vauxz00_3780));
															}
														else
															{	/* Tools/trace.sch 53 */
																BgL_test2270z00_5307 = ((bool_t) 0);
															}
													}
													if (BgL_test2270z00_5307)
														{	/* Tools/trace.sch 53 */
															BgL_cblockz00_bglt BgL_new1138z00_3827;

															{	/* Tools/trace.sch 53 */
																BgL_cblockz00_bglt BgL_new1137z00_3828;

																BgL_new1137z00_3828 =
																	((BgL_cblockz00_bglt)
																	BOBJECT(GC_MALLOC(sizeof(struct
																				BgL_cblockz00_bgl))));
																{	/* Tools/trace.sch 53 */
																	long BgL_arg1916z00_3829;

																	BgL_arg1916z00_3829 =
																		BGL_CLASS_NUM(BGl_cblockz00zzcgen_copz00);
																	BGL_OBJECT_CLASS_NUM_SET(
																		((BgL_objectz00_bglt) BgL_new1137z00_3828),
																		BgL_arg1916z00_3829);
																}
																BgL_new1138z00_3827 = BgL_new1137z00_3828;
															}
															((((BgL_copz00_bglt) COBJECT(
																			((BgL_copz00_bglt)
																				BgL_new1138z00_3827)))->BgL_locz00) =
																((obj_t) (((BgL_nodez00_bglt)
																			COBJECT(((BgL_nodez00_bglt) (
																						(BgL_appzd2lyzd2_bglt)
																						BgL_nodez00_3606))))->BgL_locz00)),
																BUNSPEC);
															((((BgL_copz00_bglt) COBJECT(((BgL_copz00_bglt)
																				BgL_new1138z00_3827)))->BgL_typez00) =
																((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																			COBJECT(((BgL_nodez00_bglt) (
																						(BgL_appzd2lyzd2_bglt)
																						BgL_nodez00_3606))))->BgL_typez00)),
																BUNSPEC);
															{
																BgL_copz00_bglt BgL_auxz00_5349;

																{	/* Tools/trace.sch 53 */
																	BgL_csequencez00_bglt BgL_new1140z00_3830;

																	{	/* Tools/trace.sch 53 */
																		BgL_csequencez00_bglt BgL_new1139z00_3831;

																		BgL_new1139z00_3831 =
																			((BgL_csequencez00_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_csequencez00_bgl))));
																		{	/* Tools/trace.sch 53 */
																			long BgL_arg1915z00_3832;

																			{	/* Tools/trace.sch 53 */
																				obj_t BgL_classz00_3833;

																				BgL_classz00_3833 =
																					BGl_csequencez00zzcgen_copz00;
																				BgL_arg1915z00_3832 =
																					BGL_CLASS_NUM(BgL_classz00_3833);
																			}
																			BGL_OBJECT_CLASS_NUM_SET(
																				((BgL_objectz00_bglt)
																					BgL_new1139z00_3831),
																				BgL_arg1915z00_3832);
																		}
																		BgL_new1140z00_3830 = BgL_new1139z00_3831;
																	}
																	((((BgL_copz00_bglt) COBJECT(
																					((BgL_copz00_bglt)
																						BgL_new1140z00_3830)))->
																			BgL_locz00) =
																		((obj_t) (((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt) (
																								(BgL_appzd2lyzd2_bglt)
																								BgL_nodez00_3606))))->
																				BgL_locz00)), BUNSPEC);
																	((((BgL_copz00_bglt)
																				COBJECT(((BgL_copz00_bglt)
																						BgL_new1140z00_3830)))->
																			BgL_typez00) =
																		((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt) (
																								(BgL_appzd2lyzd2_bglt)
																								BgL_nodez00_3606))))->
																				BgL_typez00)), BUNSPEC);
																	((((BgL_csequencez00_bglt)
																				COBJECT(BgL_new1140z00_3830))->
																			BgL_czd2expzf3z21) =
																		((bool_t) ((bool_t) 0)), BUNSPEC);
																	{
																		obj_t BgL_auxz00_5365;

																		{	/* Tools/trace.sch 53 */
																			BgL_localzd2varzd2_bglt
																				BgL_arg1895z00_3834;
																			BgL_csequencez00_bglt BgL_arg1896z00_3835;
																			obj_t BgL_arg1897z00_3836;

																			{	/* Tools/trace.sch 53 */
																				BgL_localzd2varzd2_bglt
																					BgL_new1142z00_3837;
																				{	/* Tools/trace.sch 53 */
																					BgL_localzd2varzd2_bglt
																						BgL_new1141z00_3838;
																					BgL_new1141z00_3838 =
																						((BgL_localzd2varzd2_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_localzd2varzd2_bgl))));
																					{	/* Tools/trace.sch 53 */
																						long BgL_arg1905z00_3839;

																						{	/* Tools/trace.sch 53 */
																							obj_t BgL_classz00_3840;

																							BgL_classz00_3840 =
																								BGl_localzd2varzd2zzcgen_copz00;
																							BgL_arg1905z00_3839 =
																								BGL_CLASS_NUM
																								(BgL_classz00_3840);
																						}
																						BGL_OBJECT_CLASS_NUM_SET(
																							((BgL_objectz00_bglt)
																								BgL_new1141z00_3838),
																							BgL_arg1905z00_3839);
																					}
																					BgL_new1142z00_3837 =
																						BgL_new1141z00_3838;
																				}
																				((((BgL_copz00_bglt) COBJECT(
																								((BgL_copz00_bglt)
																									BgL_new1142z00_3837)))->
																						BgL_locz00) =
																					((obj_t) (((BgL_nodez00_bglt)
																								COBJECT(((BgL_nodez00_bglt) (
																											(BgL_appzd2lyzd2_bglt)
																											BgL_nodez00_3606))))->
																							BgL_locz00)), BUNSPEC);
																				((((BgL_copz00_bglt)
																							COBJECT(((BgL_copz00_bglt)
																									BgL_new1142z00_3837)))->
																						BgL_typez00) =
																					((BgL_typez00_bglt) (
																							(BgL_typez00_bglt)
																							BGl_za2objza2z00zztype_cachez00)),
																					BUNSPEC);
																				{
																					obj_t BgL_auxz00_5378;

																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_list1901z00_3841;

																						BgL_list1901z00_3841 =
																							MAKE_YOUNG_PAIR(
																							((obj_t) BgL_fauxz00_3784), BNIL);
																						BgL_auxz00_5378 =
																							BgL_list1901z00_3841;
																					}
																					((((BgL_localzd2varzd2_bglt)
																								COBJECT(BgL_new1142z00_3837))->
																							BgL_varsz00) =
																						((obj_t) BgL_auxz00_5378), BUNSPEC);
																				}
																				BgL_arg1895z00_3834 =
																					BgL_new1142z00_3837;
																			}
																			{	/* Tools/trace.sch 53 */
																				BgL_csequencez00_bglt
																					BgL_new1144z00_3842;
																				{	/* Tools/trace.sch 53 */
																					BgL_csequencez00_bglt
																						BgL_new1143z00_3843;
																					BgL_new1143z00_3843 =
																						((BgL_csequencez00_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_csequencez00_bgl))));
																					{	/* Tools/trace.sch 53 */
																						long BgL_arg1908z00_3844;

																						{	/* Tools/trace.sch 53 */
																							obj_t BgL_classz00_3845;

																							BgL_classz00_3845 =
																								BGl_csequencez00zzcgen_copz00;
																							BgL_arg1908z00_3844 =
																								BGL_CLASS_NUM
																								(BgL_classz00_3845);
																						}
																						BGL_OBJECT_CLASS_NUM_SET(
																							((BgL_objectz00_bglt)
																								BgL_new1143z00_3843),
																							BgL_arg1908z00_3844);
																					}
																					BgL_new1144z00_3842 =
																						BgL_new1143z00_3843;
																				}
																				((((BgL_copz00_bglt) COBJECT(
																								((BgL_copz00_bglt)
																									BgL_new1144z00_3842)))->
																						BgL_locz00) =
																					((obj_t) (((BgL_nodez00_bglt)
																								COBJECT(((BgL_nodez00_bglt) (
																											(BgL_appzd2lyzd2_bglt)
																											BgL_nodez00_3606))))->
																							BgL_locz00)), BUNSPEC);
																				((((BgL_copz00_bglt)
																							COBJECT(((BgL_copz00_bglt)
																									BgL_new1144z00_3842)))->
																						BgL_typez00) =
																					((BgL_typez00_bglt) (
																							(BgL_typez00_bglt)
																							BGl_za2objza2z00zztype_cachez00)),
																					BUNSPEC);
																				((((BgL_csequencez00_bglt)
																							COBJECT(BgL_new1144z00_3842))->
																						BgL_czd2expzf3z21) =
																					((bool_t) ((bool_t) 0)), BUNSPEC);
																				{
																					obj_t BgL_auxz00_5395;

																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_list1906z00_3846;

																						BgL_list1906z00_3846 =
																							MAKE_YOUNG_PAIR(
																							((obj_t) BgL_fcopz00_3785), BNIL);
																						BgL_auxz00_5395 =
																							BgL_list1906z00_3846;
																					}
																					((((BgL_csequencez00_bglt)
																								COBJECT(BgL_new1144z00_3842))->
																							BgL_copsz00) =
																						((obj_t) BgL_auxz00_5395), BUNSPEC);
																				}
																				BgL_arg1896z00_3835 =
																					BgL_new1144z00_3842;
																			}
																			{	/* Tools/trace.sch 53 */
																				BgL_capplyz00_bglt BgL_arg1909z00_3847;

																				{	/* Tools/trace.sch 53 */
																					BgL_capplyz00_bglt
																						BgL_new1146z00_3848;
																					{	/* Tools/trace.sch 53 */
																						BgL_capplyz00_bglt
																							BgL_new1145z00_3849;
																						BgL_new1145z00_3849 =
																							((BgL_capplyz00_bglt)
																							BOBJECT(GC_MALLOC(sizeof(struct
																										BgL_capplyz00_bgl))));
																						{	/* Tools/trace.sch 53 */
																							long BgL_arg1914z00_3850;

																							{	/* Tools/trace.sch 53 */
																								obj_t BgL_classz00_3851;

																								BgL_classz00_3851 =
																									BGl_capplyz00zzcgen_copz00;
																								BgL_arg1914z00_3850 =
																									BGL_CLASS_NUM
																									(BgL_classz00_3851);
																							}
																							BGL_OBJECT_CLASS_NUM_SET(
																								((BgL_objectz00_bglt)
																									BgL_new1145z00_3849),
																								BgL_arg1914z00_3850);
																						}
																						BgL_new1146z00_3848 =
																							BgL_new1145z00_3849;
																					}
																					((((BgL_copz00_bglt) COBJECT(
																									((BgL_copz00_bglt)
																										BgL_new1146z00_3848)))->
																							BgL_locz00) =
																						((obj_t) (((BgL_nodez00_bglt)
																									COBJECT(((BgL_nodez00_bglt) (
																												(BgL_appzd2lyzd2_bglt)
																												BgL_nodez00_3606))))->
																								BgL_locz00)), BUNSPEC);
																					((((BgL_copz00_bglt)
																								COBJECT(((BgL_copz00_bglt)
																										BgL_new1146z00_3848)))->
																							BgL_typez00) =
																						((BgL_typez00_bglt) ((
																									(BgL_nodez00_bglt)
																									COBJECT(((BgL_nodez00_bglt) (
																												(BgL_appzd2lyzd2_bglt)
																												BgL_nodez00_3606))))->
																								BgL_typez00)), BUNSPEC);
																					{
																						BgL_copz00_bglt BgL_auxz00_5413;

																						{	/* Tools/trace.sch 53 */
																							BgL_varcz00_bglt
																								BgL_new1148z00_3852;
																							{	/* Tools/trace.sch 53 */
																								BgL_varcz00_bglt
																									BgL_new1147z00_3853;
																								BgL_new1147z00_3853 =
																									((BgL_varcz00_bglt)
																									BOBJECT(GC_MALLOC(sizeof
																											(struct
																												BgL_varcz00_bgl))));
																								{	/* Tools/trace.sch 53 */
																									long BgL_arg1911z00_3854;

																									{	/* Tools/trace.sch 53 */
																										obj_t BgL_classz00_3855;

																										BgL_classz00_3855 =
																											BGl_varcz00zzcgen_copz00;
																										BgL_arg1911z00_3854 =
																											BGL_CLASS_NUM
																											(BgL_classz00_3855);
																									}
																									BGL_OBJECT_CLASS_NUM_SET(
																										((BgL_objectz00_bglt)
																											BgL_new1147z00_3853),
																										BgL_arg1911z00_3854);
																								}
																								BgL_new1148z00_3852 =
																									BgL_new1147z00_3853;
																							}
																							((((BgL_copz00_bglt) COBJECT(
																											((BgL_copz00_bglt)
																												BgL_new1148z00_3852)))->
																									BgL_locz00) =
																								((obj_t) (((BgL_nodez00_bglt)
																											COBJECT((
																													(BgL_nodez00_bglt) (
																														(BgL_appzd2lyzd2_bglt)
																														BgL_nodez00_3606))))->
																										BgL_locz00)), BUNSPEC);
																							((((BgL_copz00_bglt)
																										COBJECT(((BgL_copz00_bglt)
																												BgL_new1148z00_3852)))->
																									BgL_typez00) =
																								((BgL_typez00_bglt) ((
																											(BgL_variablez00_bglt)
																											COBJECT((
																													(BgL_variablez00_bglt)
																													BgL_fauxz00_3784)))->
																										BgL_typez00)), BUNSPEC);
																							((((BgL_varcz00_bglt)
																										COBJECT
																										(BgL_new1148z00_3852))->
																									BgL_variablez00) =
																								((BgL_variablez00_bglt) (
																										(BgL_variablez00_bglt)
																										BgL_fauxz00_3784)),
																								BUNSPEC);
																							BgL_auxz00_5413 =
																								((BgL_copz00_bglt)
																								BgL_new1148z00_3852);
																						}
																						((((BgL_capplyz00_bglt)
																									COBJECT
																									(BgL_new1146z00_3848))->
																								BgL_funz00) =
																							((BgL_copz00_bglt)
																								BgL_auxz00_5413), BUNSPEC);
																					}
																					((((BgL_capplyz00_bglt)
																								COBJECT(BgL_new1146z00_3848))->
																							BgL_argz00) =
																						((BgL_copz00_bglt) ((
																									(BgL_csetqz00_bglt)
																									COBJECT(((BgL_csetqz00_bglt)
																											BgL_vcopz00_3781)))->
																								BgL_valuez00)), BUNSPEC);
																					BgL_arg1909z00_3847 =
																						BgL_new1146z00_3848;
																				}
																				BgL_arg1897z00_3836 =
																					(VA_PROCEDUREP(BgL_kontz00_3607)
																					? ((obj_t(*)(obj_t,
																								...))
																						PROCEDURE_ENTRY(BgL_kontz00_3607))
																					(BgL_kontz00_3607,
																						((obj_t) BgL_arg1909z00_3847),
																						BEOA) : ((obj_t(*)(obj_t,
																								obj_t))
																						PROCEDURE_ENTRY(BgL_kontz00_3607))
																					(BgL_kontz00_3607,
																						((obj_t) BgL_arg1909z00_3847)));
																			}
																			{	/* Tools/trace.sch 53 */
																				obj_t BgL_list1898z00_3856;

																				{	/* Tools/trace.sch 53 */
																					obj_t BgL_arg1899z00_3857;

																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_arg1900z00_3858;

																						BgL_arg1900z00_3858 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1897z00_3836, BNIL);
																						BgL_arg1899z00_3857 =
																							MAKE_YOUNG_PAIR(((obj_t)
																								BgL_arg1896z00_3835),
																							BgL_arg1900z00_3858);
																					}
																					BgL_list1898z00_3856 =
																						MAKE_YOUNG_PAIR(
																						((obj_t) BgL_arg1895z00_3834),
																						BgL_arg1899z00_3857);
																				}
																				BgL_auxz00_5365 = BgL_list1898z00_3856;
																		}}
																		((((BgL_csequencez00_bglt)
																					COBJECT(BgL_new1140z00_3830))->
																				BgL_copsz00) =
																			((obj_t) BgL_auxz00_5365), BUNSPEC);
																	}
																	BgL_auxz00_5349 =
																		((BgL_copz00_bglt) BgL_new1140z00_3830);
																}
																((((BgL_cblockz00_bglt)
																			COBJECT(BgL_new1138z00_3827))->
																		BgL_bodyz00) =
																	((BgL_copz00_bglt) BgL_auxz00_5349), BUNSPEC);
															}
															return ((BgL_copz00_bglt) BgL_new1138z00_3827);
														}
													else
														{	/* Tools/trace.sch 53 */
															bool_t BgL_test2275z00_5448;

															{	/* Tools/trace.sch 53 */
																bool_t BgL_test2276z00_5449;

																{	/* Tools/trace.sch 53 */
																	obj_t BgL_classz00_3859;

																	BgL_classz00_3859 = BGl_csetqz00zzcgen_copz00;
																	{	/* Tools/trace.sch 53 */
																		BgL_objectz00_bglt BgL_arg1801z00_3860;

																		{	/* Tools/trace.sch 53 */
																			obj_t BgL_tmpz00_5450;

																			BgL_tmpz00_5450 =
																				((obj_t)
																				((BgL_objectz00_bglt)
																					BgL_fcopz00_3785));
																			BgL_arg1801z00_3860 =
																				(BgL_objectz00_bglt) (BgL_tmpz00_5450);
																		}
																		if (BGL_CONDEXPAND_ISA_ARCH64())
																			{	/* Tools/trace.sch 53 */
																				long BgL_idxz00_3861;

																				BgL_idxz00_3861 =
																					BGL_OBJECT_INHERITANCE_NUM
																					(BgL_arg1801z00_3860);
																				BgL_test2276z00_5449 =
																					(VECTOR_REF
																					(BGl_za2inheritancesza2z00zz__objectz00,
																						(BgL_idxz00_3861 + 2L)) ==
																					BgL_classz00_3859);
																			}
																		else
																			{	/* Tools/trace.sch 53 */
																				bool_t BgL_res2144z00_3864;

																				{	/* Tools/trace.sch 53 */
																					obj_t BgL_oclassz00_3865;

																					{	/* Tools/trace.sch 53 */
																						long BgL_arg1808z00_3866;

																						{	/* Tools/trace.sch 53 */
																							long BgL_arg1809z00_3867;

																							BgL_arg1809z00_3867 =
																								BGL_OBJECT_CLASS_NUM
																								(BgL_arg1801z00_3860);
																							BgL_arg1808z00_3866 =
																								(BgL_arg1809z00_3867 -
																								OBJECT_TYPE);
																						}
																						BgL_oclassz00_3865 =
																							VECTOR_REF
																							(BGl_za2classesza2z00zz__objectz00,
																							BgL_arg1808z00_3866);
																					}
																					{	/* Tools/trace.sch 53 */
																						bool_t BgL__ortest_1115z00_3868;

																						BgL__ortest_1115z00_3868 =
																							(BgL_classz00_3859 ==
																							BgL_oclassz00_3865);
																						if (BgL__ortest_1115z00_3868)
																							{	/* Tools/trace.sch 53 */
																								BgL_res2144z00_3864 =
																									BgL__ortest_1115z00_3868;
																							}
																						else
																							{	/* Tools/trace.sch 53 */
																								long BgL_odepthz00_3869;

																								BgL_odepthz00_3869 =
																									BGL_CLASS_DEPTH
																									(BgL_oclassz00_3865);
																								if ((2L < BgL_odepthz00_3869))
																									{	/* Tools/trace.sch 53 */
																										obj_t BgL_arg1797z00_3870;

																										BgL_arg1797z00_3870 =
																											BGL_CLASS_ANCESTORS_REF
																											(BgL_oclassz00_3865, 2L);
																										BgL_res2144z00_3864 =
																											(BgL_arg1797z00_3870 ==
																											BgL_classz00_3859);
																									}
																								else
																									{	/* Tools/trace.sch 53 */
																										BgL_res2144z00_3864 =
																											((bool_t) 0);
																									}
																							}
																					}
																				}
																				BgL_test2276z00_5449 =
																					BgL_res2144z00_3864;
																			}
																	}
																}
																if (BgL_test2276z00_5449)
																	{	/* Tools/trace.sch 53 */
																		BgL_test2275z00_5448 =
																			(
																			((obj_t)
																				(((BgL_varcz00_bglt) COBJECT(
																							(((BgL_csetqz00_bglt) COBJECT(
																										((BgL_csetqz00_bglt)
																											BgL_fcopz00_3785)))->
																								BgL_varz00)))->
																					BgL_variablez00)) ==
																			((obj_t) BgL_fauxz00_3784));
																	}
																else
																	{	/* Tools/trace.sch 53 */
																		BgL_test2275z00_5448 = ((bool_t) 0);
																	}
															}
															if (BgL_test2275z00_5448)
																{	/* Tools/trace.sch 53 */
																	BgL_cblockz00_bglt BgL_new1150z00_3871;

																	{	/* Tools/trace.sch 53 */
																		BgL_cblockz00_bglt BgL_new1149z00_3872;

																		BgL_new1149z00_3872 =
																			((BgL_cblockz00_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_cblockz00_bgl))));
																		{	/* Tools/trace.sch 53 */
																			long BgL_arg1937z00_3873;

																			BgL_arg1937z00_3873 =
																				BGL_CLASS_NUM
																				(BGl_cblockz00zzcgen_copz00);
																			BGL_OBJECT_CLASS_NUM_SET((
																					(BgL_objectz00_bglt)
																					BgL_new1149z00_3872),
																				BgL_arg1937z00_3873);
																		}
																		BgL_new1150z00_3871 = BgL_new1149z00_3872;
																	}
																	((((BgL_copz00_bglt) COBJECT(
																					((BgL_copz00_bglt)
																						BgL_new1150z00_3871)))->
																			BgL_locz00) =
																		((obj_t) (((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt) (
																								(BgL_appzd2lyzd2_bglt)
																								BgL_nodez00_3606))))->
																				BgL_locz00)), BUNSPEC);
																	((((BgL_copz00_bglt)
																				COBJECT(((BgL_copz00_bglt)
																						BgL_new1150z00_3871)))->
																			BgL_typez00) =
																		((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt) (
																								(BgL_appzd2lyzd2_bglt)
																								BgL_nodez00_3606))))->
																				BgL_typez00)), BUNSPEC);
																	{
																		BgL_copz00_bglt BgL_auxz00_5490;

																		{	/* Tools/trace.sch 53 */
																			BgL_csequencez00_bglt BgL_new1152z00_3874;

																			{	/* Tools/trace.sch 53 */
																				BgL_csequencez00_bglt
																					BgL_new1151z00_3875;
																				BgL_new1151z00_3875 =
																					((BgL_csequencez00_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_csequencez00_bgl))));
																				{	/* Tools/trace.sch 53 */
																					long BgL_arg1936z00_3876;

																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_classz00_3877;

																						BgL_classz00_3877 =
																							BGl_csequencez00zzcgen_copz00;
																						BgL_arg1936z00_3876 =
																							BGL_CLASS_NUM(BgL_classz00_3877);
																					}
																					BGL_OBJECT_CLASS_NUM_SET(
																						((BgL_objectz00_bglt)
																							BgL_new1151z00_3875),
																						BgL_arg1936z00_3876);
																				}
																				BgL_new1152z00_3874 =
																					BgL_new1151z00_3875;
																			}
																			((((BgL_copz00_bglt) COBJECT(
																							((BgL_copz00_bglt)
																								BgL_new1152z00_3874)))->
																					BgL_locz00) =
																				((obj_t) (((BgL_nodez00_bglt)
																							COBJECT(((BgL_nodez00_bglt) (
																										(BgL_appzd2lyzd2_bglt)
																										BgL_nodez00_3606))))->
																						BgL_locz00)), BUNSPEC);
																			((((BgL_copz00_bglt)
																						COBJECT(((BgL_copz00_bglt)
																								BgL_new1152z00_3874)))->
																					BgL_typez00) =
																				((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																							COBJECT(((BgL_nodez00_bglt) (
																										(BgL_appzd2lyzd2_bglt)
																										BgL_nodez00_3606))))->
																						BgL_typez00)), BUNSPEC);
																			((((BgL_csequencez00_bglt)
																						COBJECT(BgL_new1152z00_3874))->
																					BgL_czd2expzf3z21) =
																				((bool_t) ((bool_t) 0)), BUNSPEC);
																			{
																				obj_t BgL_auxz00_5506;

																				{	/* Tools/trace.sch 53 */
																					BgL_localzd2varzd2_bglt
																						BgL_arg1922z00_3878;
																					BgL_csequencez00_bglt
																						BgL_arg1923z00_3879;
																					obj_t BgL_arg1924z00_3880;

																					{	/* Tools/trace.sch 53 */
																						BgL_localzd2varzd2_bglt
																							BgL_new1154z00_3881;
																						{	/* Tools/trace.sch 53 */
																							BgL_localzd2varzd2_bglt
																								BgL_new1153z00_3882;
																							BgL_new1153z00_3882 =
																								((BgL_localzd2varzd2_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_localzd2varzd2_bgl))));
																							{	/* Tools/trace.sch 53 */
																								long BgL_arg1929z00_3883;

																								{	/* Tools/trace.sch 53 */
																									obj_t BgL_classz00_3884;

																									BgL_classz00_3884 =
																										BGl_localzd2varzd2zzcgen_copz00;
																									BgL_arg1929z00_3883 =
																										BGL_CLASS_NUM
																										(BgL_classz00_3884);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1153z00_3882),
																									BgL_arg1929z00_3883);
																							}
																							BgL_new1154z00_3881 =
																								BgL_new1153z00_3882;
																						}
																						((((BgL_copz00_bglt) COBJECT(
																										((BgL_copz00_bglt)
																											BgL_new1154z00_3881)))->
																								BgL_locz00) =
																							((obj_t) (((BgL_nodez00_bglt)
																										COBJECT(((BgL_nodez00_bglt)
																												((BgL_appzd2lyzd2_bglt)
																													BgL_nodez00_3606))))->
																									BgL_locz00)), BUNSPEC);
																						((((BgL_copz00_bglt)
																									COBJECT(((BgL_copz00_bglt)
																											BgL_new1154z00_3881)))->
																								BgL_typez00) =
																							((BgL_typez00_bglt) (
																									(BgL_typez00_bglt)
																									BGl_za2objza2z00zztype_cachez00)),
																							BUNSPEC);
																						{
																							obj_t BgL_auxz00_5519;

																							{	/* Tools/trace.sch 53 */
																								obj_t BgL_list1928z00_3885;

																								BgL_list1928z00_3885 =
																									MAKE_YOUNG_PAIR(
																									((obj_t) BgL_vauxz00_3780),
																									BNIL);
																								BgL_auxz00_5519 =
																									BgL_list1928z00_3885;
																							}
																							((((BgL_localzd2varzd2_bglt)
																										COBJECT
																										(BgL_new1154z00_3881))->
																									BgL_varsz00) =
																								((obj_t) BgL_auxz00_5519),
																								BUNSPEC);
																						}
																						BgL_arg1922z00_3878 =
																							BgL_new1154z00_3881;
																					}
																					{	/* Tools/trace.sch 53 */
																						BgL_csequencez00_bglt
																							BgL_new1156z00_3886;
																						{	/* Tools/trace.sch 53 */
																							BgL_csequencez00_bglt
																								BgL_new1155z00_3887;
																							BgL_new1155z00_3887 =
																								((BgL_csequencez00_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_csequencez00_bgl))));
																							{	/* Tools/trace.sch 53 */
																								long BgL_arg1931z00_3888;

																								{	/* Tools/trace.sch 53 */
																									obj_t BgL_classz00_3889;

																									BgL_classz00_3889 =
																										BGl_csequencez00zzcgen_copz00;
																									BgL_arg1931z00_3888 =
																										BGL_CLASS_NUM
																										(BgL_classz00_3889);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1155z00_3887),
																									BgL_arg1931z00_3888);
																							}
																							BgL_new1156z00_3886 =
																								BgL_new1155z00_3887;
																						}
																						((((BgL_copz00_bglt) COBJECT(
																										((BgL_copz00_bglt)
																											BgL_new1156z00_3886)))->
																								BgL_locz00) =
																							((obj_t) (((BgL_nodez00_bglt)
																										COBJECT(((BgL_nodez00_bglt)
																												((BgL_appzd2lyzd2_bglt)
																													BgL_nodez00_3606))))->
																									BgL_locz00)), BUNSPEC);
																						((((BgL_copz00_bglt)
																									COBJECT(((BgL_copz00_bglt)
																											BgL_new1156z00_3886)))->
																								BgL_typez00) =
																							((BgL_typez00_bglt) (
																									(BgL_typez00_bglt)
																									BGl_za2objza2z00zztype_cachez00)),
																							BUNSPEC);
																						((((BgL_csequencez00_bglt)
																									COBJECT
																									(BgL_new1156z00_3886))->
																								BgL_czd2expzf3z21) =
																							((bool_t) ((bool_t) 0)), BUNSPEC);
																						{
																							obj_t BgL_auxz00_5536;

																							{	/* Tools/trace.sch 53 */
																								obj_t BgL_list1930z00_3890;

																								BgL_list1930z00_3890 =
																									MAKE_YOUNG_PAIR(
																									((obj_t) BgL_vcopz00_3781),
																									BNIL);
																								BgL_auxz00_5536 =
																									BgL_list1930z00_3890;
																							}
																							((((BgL_csequencez00_bglt)
																										COBJECT
																										(BgL_new1156z00_3886))->
																									BgL_copsz00) =
																								((obj_t) BgL_auxz00_5536),
																								BUNSPEC);
																						}
																						BgL_arg1923z00_3879 =
																							BgL_new1156z00_3886;
																					}
																					{	/* Tools/trace.sch 53 */
																						BgL_capplyz00_bglt
																							BgL_arg1933z00_3891;
																						{	/* Tools/trace.sch 53 */
																							BgL_capplyz00_bglt
																								BgL_new1159z00_3892;
																							{	/* Tools/trace.sch 53 */
																								BgL_capplyz00_bglt
																									BgL_new1158z00_3893;
																								BgL_new1158z00_3893 =
																									((BgL_capplyz00_bglt)
																									BOBJECT(GC_MALLOC(sizeof
																											(struct
																												BgL_capplyz00_bgl))));
																								{	/* Tools/trace.sch 53 */
																									long BgL_arg1935z00_3894;

																									{	/* Tools/trace.sch 53 */
																										obj_t BgL_classz00_3895;

																										BgL_classz00_3895 =
																											BGl_capplyz00zzcgen_copz00;
																										BgL_arg1935z00_3894 =
																											BGL_CLASS_NUM
																											(BgL_classz00_3895);
																									}
																									BGL_OBJECT_CLASS_NUM_SET(
																										((BgL_objectz00_bglt)
																											BgL_new1158z00_3893),
																										BgL_arg1935z00_3894);
																								}
																								BgL_new1159z00_3892 =
																									BgL_new1158z00_3893;
																							}
																							((((BgL_copz00_bglt) COBJECT(
																											((BgL_copz00_bglt)
																												BgL_new1159z00_3892)))->
																									BgL_locz00) =
																								((obj_t) (((BgL_nodez00_bglt)
																											COBJECT((
																													(BgL_nodez00_bglt) (
																														(BgL_appzd2lyzd2_bglt)
																														BgL_nodez00_3606))))->
																										BgL_locz00)), BUNSPEC);
																							((((BgL_copz00_bglt)
																										COBJECT(((BgL_copz00_bglt)
																												BgL_new1159z00_3892)))->
																									BgL_typez00) =
																								((BgL_typez00_bglt) ((
																											(BgL_nodez00_bglt)
																											COBJECT((
																													(BgL_nodez00_bglt) (
																														(BgL_appzd2lyzd2_bglt)
																														BgL_nodez00_3606))))->
																										BgL_typez00)), BUNSPEC);
																							((((BgL_capplyz00_bglt)
																										COBJECT
																										(BgL_new1159z00_3892))->
																									BgL_funz00) =
																								((BgL_copz00_bglt) ((
																											(BgL_csetqz00_bglt)
																											COBJECT((
																													(BgL_csetqz00_bglt)
																													BgL_fcopz00_3785)))->
																										BgL_valuez00)), BUNSPEC);
																							{
																								BgL_copz00_bglt BgL_auxz00_5557;

																								{	/* Tools/trace.sch 53 */
																									BgL_varcz00_bglt
																										BgL_new1161z00_3896;
																									{	/* Tools/trace.sch 53 */
																										BgL_varcz00_bglt
																											BgL_new1160z00_3897;
																										BgL_new1160z00_3897 =
																											((BgL_varcz00_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_varcz00_bgl))));
																										{	/* Tools/trace.sch 53 */
																											long BgL_arg1934z00_3898;

																											{	/* Tools/trace.sch 53 */
																												obj_t BgL_classz00_3899;

																												BgL_classz00_3899 =
																													BGl_varcz00zzcgen_copz00;
																												BgL_arg1934z00_3898 =
																													BGL_CLASS_NUM
																													(BgL_classz00_3899);
																											}
																											BGL_OBJECT_CLASS_NUM_SET(
																												((BgL_objectz00_bglt)
																													BgL_new1160z00_3897),
																												BgL_arg1934z00_3898);
																										}
																										BgL_new1161z00_3896 =
																											BgL_new1160z00_3897;
																									}
																									((((BgL_copz00_bglt) COBJECT(
																													((BgL_copz00_bglt)
																														BgL_new1161z00_3896)))->
																											BgL_locz00) =
																										((obj_t) ((
																													(BgL_nodez00_bglt)
																													COBJECT((
																															(BgL_nodez00_bglt)
																															((BgL_appzd2lyzd2_bglt) BgL_nodez00_3606))))->BgL_locz00)), BUNSPEC);
																									((((BgL_copz00_bglt)
																												COBJECT((
																														(BgL_copz00_bglt)
																														BgL_new1161z00_3896)))->
																											BgL_typez00) =
																										((BgL_typez00_bglt) ((
																													(BgL_variablez00_bglt)
																													COBJECT((
																															(BgL_variablez00_bglt)
																															BgL_vauxz00_3780)))->
																												BgL_typez00)), BUNSPEC);
																									((((BgL_varcz00_bglt)
																												COBJECT
																												(BgL_new1161z00_3896))->
																											BgL_variablez00) =
																										((BgL_variablez00_bglt) (
																												(BgL_variablez00_bglt)
																												BgL_vauxz00_3780)),
																										BUNSPEC);
																									BgL_auxz00_5557 =
																										((BgL_copz00_bglt)
																										BgL_new1161z00_3896);
																								}
																								((((BgL_capplyz00_bglt)
																											COBJECT
																											(BgL_new1159z00_3892))->
																										BgL_argz00) =
																									((BgL_copz00_bglt)
																										BgL_auxz00_5557), BUNSPEC);
																							}
																							BgL_arg1933z00_3891 =
																								BgL_new1159z00_3892;
																						}
																						BgL_arg1924z00_3880 =
																							(VA_PROCEDUREP(BgL_kontz00_3607)
																							? ((obj_t(*)(obj_t,
																										...))
																								PROCEDURE_ENTRY
																								(BgL_kontz00_3607))
																							(BgL_kontz00_3607,
																								((obj_t) BgL_arg1933z00_3891),
																								BEOA) : ((obj_t(*)(obj_t,
																										obj_t))
																								PROCEDURE_ENTRY
																								(BgL_kontz00_3607))
																							(BgL_kontz00_3607,
																								((obj_t) BgL_arg1933z00_3891)));
																					}
																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_list1925z00_3900;

																						{	/* Tools/trace.sch 53 */
																							obj_t BgL_arg1926z00_3901;

																							{	/* Tools/trace.sch 53 */
																								obj_t BgL_arg1927z00_3902;

																								BgL_arg1927z00_3902 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1924z00_3880, BNIL);
																								BgL_arg1926z00_3901 =
																									MAKE_YOUNG_PAIR(((obj_t)
																										BgL_arg1923z00_3879),
																									BgL_arg1927z00_3902);
																							}
																							BgL_list1925z00_3900 =
																								MAKE_YOUNG_PAIR(
																								((obj_t) BgL_arg1922z00_3878),
																								BgL_arg1926z00_3901);
																						}
																						BgL_auxz00_5506 =
																							BgL_list1925z00_3900;
																				}}
																				((((BgL_csequencez00_bglt)
																							COBJECT(BgL_new1152z00_3874))->
																						BgL_copsz00) =
																					((obj_t) BgL_auxz00_5506), BUNSPEC);
																			}
																			BgL_auxz00_5490 =
																				((BgL_copz00_bglt) BgL_new1152z00_3874);
																		}
																		((((BgL_cblockz00_bglt)
																					COBJECT(BgL_new1150z00_3871))->
																				BgL_bodyz00) =
																			((BgL_copz00_bglt) BgL_auxz00_5490),
																			BUNSPEC);
																	}
																	return
																		((BgL_copz00_bglt) BgL_new1150z00_3871);
																}
															else
																{	/* Tools/trace.sch 53 */
																	BgL_cblockz00_bglt BgL_new1163z00_3903;

																	{	/* Tools/trace.sch 53 */
																		BgL_cblockz00_bglt BgL_new1162z00_3904;

																		BgL_new1162z00_3904 =
																			((BgL_cblockz00_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_cblockz00_bgl))));
																		{	/* Tools/trace.sch 53 */
																			long BgL_arg1955z00_3905;

																			BgL_arg1955z00_3905 =
																				BGL_CLASS_NUM
																				(BGl_cblockz00zzcgen_copz00);
																			BGL_OBJECT_CLASS_NUM_SET((
																					(BgL_objectz00_bglt)
																					BgL_new1162z00_3904),
																				BgL_arg1955z00_3905);
																		}
																		BgL_new1163z00_3903 = BgL_new1162z00_3904;
																	}
																	((((BgL_copz00_bglt) COBJECT(
																					((BgL_copz00_bglt)
																						BgL_new1163z00_3903)))->
																			BgL_locz00) =
																		((obj_t) (((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt) (
																								(BgL_appzd2lyzd2_bglt)
																								BgL_nodez00_3606))))->
																				BgL_locz00)), BUNSPEC);
																	((((BgL_copz00_bglt)
																				COBJECT(((BgL_copz00_bglt)
																						BgL_new1163z00_3903)))->
																			BgL_typez00) =
																		((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt) (
																								(BgL_appzd2lyzd2_bglt)
																								BgL_nodez00_3606))))->
																				BgL_typez00)), BUNSPEC);
																	{
																		BgL_copz00_bglt BgL_auxz00_5603;

																		{	/* Tools/trace.sch 53 */
																			BgL_csequencez00_bglt BgL_new1165z00_3906;

																			{	/* Tools/trace.sch 53 */
																				BgL_csequencez00_bglt
																					BgL_new1164z00_3907;
																				BgL_new1164z00_3907 =
																					((BgL_csequencez00_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_csequencez00_bgl))));
																				{	/* Tools/trace.sch 53 */
																					long BgL_arg1954z00_3908;

																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_classz00_3909;

																						BgL_classz00_3909 =
																							BGl_csequencez00zzcgen_copz00;
																						BgL_arg1954z00_3908 =
																							BGL_CLASS_NUM(BgL_classz00_3909);
																					}
																					BGL_OBJECT_CLASS_NUM_SET(
																						((BgL_objectz00_bglt)
																							BgL_new1164z00_3907),
																						BgL_arg1954z00_3908);
																				}
																				BgL_new1165z00_3906 =
																					BgL_new1164z00_3907;
																			}
																			((((BgL_copz00_bglt) COBJECT(
																							((BgL_copz00_bglt)
																								BgL_new1165z00_3906)))->
																					BgL_locz00) =
																				((obj_t) (((BgL_nodez00_bglt)
																							COBJECT(((BgL_nodez00_bglt) (
																										(BgL_appzd2lyzd2_bglt)
																										BgL_nodez00_3606))))->
																						BgL_locz00)), BUNSPEC);
																			((((BgL_copz00_bglt)
																						COBJECT(((BgL_copz00_bglt)
																								BgL_new1165z00_3906)))->
																					BgL_typez00) =
																				((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																							COBJECT(((BgL_nodez00_bglt) (
																										(BgL_appzd2lyzd2_bglt)
																										BgL_nodez00_3606))))->
																						BgL_typez00)), BUNSPEC);
																			((((BgL_csequencez00_bglt)
																						COBJECT(BgL_new1165z00_3906))->
																					BgL_czd2expzf3z21) =
																				((bool_t) ((bool_t) 0)), BUNSPEC);
																			{
																				obj_t BgL_auxz00_5619;

																				{	/* Tools/trace.sch 53 */
																					BgL_localzd2varzd2_bglt
																						BgL_arg1938z00_3910;
																					BgL_csequencez00_bglt
																						BgL_arg1939z00_3911;
																					obj_t BgL_arg1940z00_3912;

																					{	/* Tools/trace.sch 53 */
																						BgL_localzd2varzd2_bglt
																							BgL_new1167z00_3913;
																						{	/* Tools/trace.sch 53 */
																							BgL_localzd2varzd2_bglt
																								BgL_new1166z00_3914;
																							BgL_new1166z00_3914 =
																								((BgL_localzd2varzd2_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_localzd2varzd2_bgl))));
																							{	/* Tools/trace.sch 53 */
																								long BgL_arg1946z00_3915;

																								{	/* Tools/trace.sch 53 */
																									obj_t BgL_classz00_3916;

																									BgL_classz00_3916 =
																										BGl_localzd2varzd2zzcgen_copz00;
																									BgL_arg1946z00_3915 =
																										BGL_CLASS_NUM
																										(BgL_classz00_3916);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1166z00_3914),
																									BgL_arg1946z00_3915);
																							}
																							BgL_new1167z00_3913 =
																								BgL_new1166z00_3914;
																						}
																						((((BgL_copz00_bglt) COBJECT(
																										((BgL_copz00_bglt)
																											BgL_new1167z00_3913)))->
																								BgL_locz00) =
																							((obj_t) (((BgL_nodez00_bglt)
																										COBJECT(((BgL_nodez00_bglt)
																												((BgL_appzd2lyzd2_bglt)
																													BgL_nodez00_3606))))->
																									BgL_locz00)), BUNSPEC);
																						((((BgL_copz00_bglt)
																									COBJECT(((BgL_copz00_bglt)
																											BgL_new1167z00_3913)))->
																								BgL_typez00) =
																							((BgL_typez00_bglt) (
																									(BgL_typez00_bglt)
																									BGl_za2objza2z00zztype_cachez00)),
																							BUNSPEC);
																						{
																							obj_t BgL_auxz00_5632;

																							{	/* Tools/trace.sch 53 */
																								obj_t BgL_list1944z00_3917;

																								{	/* Tools/trace.sch 53 */
																									obj_t BgL_arg1945z00_3918;

																									BgL_arg1945z00_3918 =
																										MAKE_YOUNG_PAIR(
																										((obj_t) BgL_vauxz00_3780),
																										BNIL);
																									BgL_list1944z00_3917 =
																										MAKE_YOUNG_PAIR(((obj_t)
																											BgL_fauxz00_3784),
																										BgL_arg1945z00_3918);
																								}
																								BgL_auxz00_5632 =
																									BgL_list1944z00_3917;
																							}
																							((((BgL_localzd2varzd2_bglt)
																										COBJECT
																										(BgL_new1167z00_3913))->
																									BgL_varsz00) =
																								((obj_t) BgL_auxz00_5632),
																								BUNSPEC);
																						}
																						BgL_arg1938z00_3910 =
																							BgL_new1167z00_3913;
																					}
																					{	/* Tools/trace.sch 53 */
																						BgL_csequencez00_bglt
																							BgL_new1169z00_3919;
																						{	/* Tools/trace.sch 53 */
																							BgL_csequencez00_bglt
																								BgL_new1168z00_3920;
																							BgL_new1168z00_3920 =
																								((BgL_csequencez00_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_csequencez00_bgl))));
																							{	/* Tools/trace.sch 53 */
																								long BgL_arg1949z00_3921;

																								{	/* Tools/trace.sch 53 */
																									obj_t BgL_classz00_3922;

																									BgL_classz00_3922 =
																										BGl_csequencez00zzcgen_copz00;
																									BgL_arg1949z00_3921 =
																										BGL_CLASS_NUM
																										(BgL_classz00_3922);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1168z00_3920),
																									BgL_arg1949z00_3921);
																							}
																							BgL_new1169z00_3919 =
																								BgL_new1168z00_3920;
																						}
																						((((BgL_copz00_bglt) COBJECT(
																										((BgL_copz00_bglt)
																											BgL_new1169z00_3919)))->
																								BgL_locz00) =
																							((obj_t) (((BgL_nodez00_bglt)
																										COBJECT(((BgL_nodez00_bglt)
																												((BgL_appzd2lyzd2_bglt)
																													BgL_nodez00_3606))))->
																									BgL_locz00)), BUNSPEC);
																						((((BgL_copz00_bglt)
																									COBJECT(((BgL_copz00_bglt)
																											BgL_new1169z00_3919)))->
																								BgL_typez00) =
																							((BgL_typez00_bglt) (
																									(BgL_typez00_bglt)
																									BGl_za2objza2z00zztype_cachez00)),
																							BUNSPEC);
																						((((BgL_csequencez00_bglt)
																									COBJECT
																									(BgL_new1169z00_3919))->
																								BgL_czd2expzf3z21) =
																							((bool_t) ((bool_t) 0)), BUNSPEC);
																						{
																							obj_t BgL_auxz00_5651;

																							{	/* Tools/trace.sch 53 */
																								obj_t BgL_list1947z00_3923;

																								{	/* Tools/trace.sch 53 */
																									obj_t BgL_arg1948z00_3924;

																									BgL_arg1948z00_3924 =
																										MAKE_YOUNG_PAIR(
																										((obj_t) BgL_vcopz00_3781),
																										BNIL);
																									BgL_list1947z00_3923 =
																										MAKE_YOUNG_PAIR(((obj_t)
																											BgL_fcopz00_3785),
																										BgL_arg1948z00_3924);
																								}
																								BgL_auxz00_5651 =
																									BgL_list1947z00_3923;
																							}
																							((((BgL_csequencez00_bglt)
																										COBJECT
																										(BgL_new1169z00_3919))->
																									BgL_copsz00) =
																								((obj_t) BgL_auxz00_5651),
																								BUNSPEC);
																						}
																						BgL_arg1939z00_3911 =
																							BgL_new1169z00_3919;
																					}
																					{	/* Tools/trace.sch 53 */
																						BgL_capplyz00_bglt
																							BgL_arg1950z00_3925;
																						{	/* Tools/trace.sch 53 */
																							BgL_capplyz00_bglt
																								BgL_new1171z00_3926;
																							{	/* Tools/trace.sch 53 */
																								BgL_capplyz00_bglt
																									BgL_new1170z00_3927;
																								BgL_new1170z00_3927 =
																									((BgL_capplyz00_bglt)
																									BOBJECT(GC_MALLOC(sizeof
																											(struct
																												BgL_capplyz00_bgl))));
																								{	/* Tools/trace.sch 53 */
																									long BgL_arg1953z00_3928;

																									{	/* Tools/trace.sch 53 */
																										obj_t BgL_classz00_3929;

																										BgL_classz00_3929 =
																											BGl_capplyz00zzcgen_copz00;
																										BgL_arg1953z00_3928 =
																											BGL_CLASS_NUM
																											(BgL_classz00_3929);
																									}
																									BGL_OBJECT_CLASS_NUM_SET(
																										((BgL_objectz00_bglt)
																											BgL_new1170z00_3927),
																										BgL_arg1953z00_3928);
																								}
																								BgL_new1171z00_3926 =
																									BgL_new1170z00_3927;
																							}
																							((((BgL_copz00_bglt) COBJECT(
																											((BgL_copz00_bglt)
																												BgL_new1171z00_3926)))->
																									BgL_locz00) =
																								((obj_t) (((BgL_nodez00_bglt)
																											COBJECT((
																													(BgL_nodez00_bglt) (
																														(BgL_appzd2lyzd2_bglt)
																														BgL_nodez00_3606))))->
																										BgL_locz00)), BUNSPEC);
																							((((BgL_copz00_bglt)
																										COBJECT(((BgL_copz00_bglt)
																												BgL_new1171z00_3926)))->
																									BgL_typez00) =
																								((BgL_typez00_bglt) ((
																											(BgL_nodez00_bglt)
																											COBJECT((
																													(BgL_nodez00_bglt) (
																														(BgL_appzd2lyzd2_bglt)
																														BgL_nodez00_3606))))->
																										BgL_typez00)), BUNSPEC);
																							{
																								BgL_copz00_bglt BgL_auxz00_5671;

																								{	/* Tools/trace.sch 53 */
																									BgL_varcz00_bglt
																										BgL_new1173z00_3930;
																									{	/* Tools/trace.sch 53 */
																										BgL_varcz00_bglt
																											BgL_new1172z00_3931;
																										BgL_new1172z00_3931 =
																											((BgL_varcz00_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_varcz00_bgl))));
																										{	/* Tools/trace.sch 53 */
																											long BgL_arg1951z00_3932;

																											{	/* Tools/trace.sch 53 */
																												obj_t BgL_classz00_3933;

																												BgL_classz00_3933 =
																													BGl_varcz00zzcgen_copz00;
																												BgL_arg1951z00_3932 =
																													BGL_CLASS_NUM
																													(BgL_classz00_3933);
																											}
																											BGL_OBJECT_CLASS_NUM_SET(
																												((BgL_objectz00_bglt)
																													BgL_new1172z00_3931),
																												BgL_arg1951z00_3932);
																										}
																										BgL_new1173z00_3930 =
																											BgL_new1172z00_3931;
																									}
																									((((BgL_copz00_bglt) COBJECT(
																													((BgL_copz00_bglt)
																														BgL_new1173z00_3930)))->
																											BgL_locz00) =
																										((obj_t) ((
																													(BgL_nodez00_bglt)
																													COBJECT((
																															(BgL_nodez00_bglt)
																															((BgL_appzd2lyzd2_bglt) BgL_nodez00_3606))))->BgL_locz00)), BUNSPEC);
																									((((BgL_copz00_bglt)
																												COBJECT((
																														(BgL_copz00_bglt)
																														BgL_new1173z00_3930)))->
																											BgL_typez00) =
																										((BgL_typez00_bglt) ((
																													(BgL_variablez00_bglt)
																													COBJECT((
																															(BgL_variablez00_bglt)
																															BgL_fauxz00_3784)))->
																												BgL_typez00)), BUNSPEC);
																									((((BgL_varcz00_bglt)
																												COBJECT
																												(BgL_new1173z00_3930))->
																											BgL_variablez00) =
																										((BgL_variablez00_bglt) (
																												(BgL_variablez00_bglt)
																												BgL_fauxz00_3784)),
																										BUNSPEC);
																									BgL_auxz00_5671 =
																										((BgL_copz00_bglt)
																										BgL_new1173z00_3930);
																								}
																								((((BgL_capplyz00_bglt)
																											COBJECT
																											(BgL_new1171z00_3926))->
																										BgL_funz00) =
																									((BgL_copz00_bglt)
																										BgL_auxz00_5671), BUNSPEC);
																							}
																							{
																								BgL_copz00_bglt BgL_auxz00_5689;

																								{	/* Tools/trace.sch 53 */
																									BgL_varcz00_bglt
																										BgL_new1175z00_3934;
																									{	/* Tools/trace.sch 53 */
																										BgL_varcz00_bglt
																											BgL_new1174z00_3935;
																										BgL_new1174z00_3935 =
																											((BgL_varcz00_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_varcz00_bgl))));
																										{	/* Tools/trace.sch 53 */
																											long BgL_arg1952z00_3936;

																											{	/* Tools/trace.sch 53 */
																												obj_t BgL_classz00_3937;

																												BgL_classz00_3937 =
																													BGl_varcz00zzcgen_copz00;
																												BgL_arg1952z00_3936 =
																													BGL_CLASS_NUM
																													(BgL_classz00_3937);
																											}
																											BGL_OBJECT_CLASS_NUM_SET(
																												((BgL_objectz00_bglt)
																													BgL_new1174z00_3935),
																												BgL_arg1952z00_3936);
																										}
																										BgL_new1175z00_3934 =
																											BgL_new1174z00_3935;
																									}
																									((((BgL_copz00_bglt) COBJECT(
																													((BgL_copz00_bglt)
																														BgL_new1175z00_3934)))->
																											BgL_locz00) =
																										((obj_t) ((
																													(BgL_nodez00_bglt)
																													COBJECT((
																															(BgL_nodez00_bglt)
																															((BgL_appzd2lyzd2_bglt) BgL_nodez00_3606))))->BgL_locz00)), BUNSPEC);
																									((((BgL_copz00_bglt)
																												COBJECT((
																														(BgL_copz00_bglt)
																														BgL_new1175z00_3934)))->
																											BgL_typez00) =
																										((BgL_typez00_bglt) ((
																													(BgL_variablez00_bglt)
																													COBJECT((
																															(BgL_variablez00_bglt)
																															BgL_vauxz00_3780)))->
																												BgL_typez00)), BUNSPEC);
																									((((BgL_varcz00_bglt)
																												COBJECT
																												(BgL_new1175z00_3934))->
																											BgL_variablez00) =
																										((BgL_variablez00_bglt) (
																												(BgL_variablez00_bglt)
																												BgL_vauxz00_3780)),
																										BUNSPEC);
																									BgL_auxz00_5689 =
																										((BgL_copz00_bglt)
																										BgL_new1175z00_3934);
																								}
																								((((BgL_capplyz00_bglt)
																											COBJECT
																											(BgL_new1171z00_3926))->
																										BgL_argz00) =
																									((BgL_copz00_bglt)
																										BgL_auxz00_5689), BUNSPEC);
																							}
																							BgL_arg1950z00_3925 =
																								BgL_new1171z00_3926;
																						}
																						BgL_arg1940z00_3912 =
																							(VA_PROCEDUREP(BgL_kontz00_3607)
																							? ((obj_t(*)(obj_t,
																										...))
																								PROCEDURE_ENTRY
																								(BgL_kontz00_3607))
																							(BgL_kontz00_3607,
																								((obj_t) BgL_arg1950z00_3925),
																								BEOA) : ((obj_t(*)(obj_t,
																										obj_t))
																								PROCEDURE_ENTRY
																								(BgL_kontz00_3607))
																							(BgL_kontz00_3607,
																								((obj_t) BgL_arg1950z00_3925)));
																					}
																					{	/* Tools/trace.sch 53 */
																						obj_t BgL_list1941z00_3938;

																						{	/* Tools/trace.sch 53 */
																							obj_t BgL_arg1942z00_3939;

																							{	/* Tools/trace.sch 53 */
																								obj_t BgL_arg1943z00_3940;

																								BgL_arg1943z00_3940 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1940z00_3912, BNIL);
																								BgL_arg1942z00_3939 =
																									MAKE_YOUNG_PAIR(((obj_t)
																										BgL_arg1939z00_3911),
																									BgL_arg1943z00_3940);
																							}
																							BgL_list1941z00_3938 =
																								MAKE_YOUNG_PAIR(
																								((obj_t) BgL_arg1938z00_3910),
																								BgL_arg1942z00_3939);
																						}
																						BgL_auxz00_5619 =
																							BgL_list1941z00_3938;
																				}}
																				((((BgL_csequencez00_bglt)
																							COBJECT(BgL_new1165z00_3906))->
																						BgL_copsz00) =
																					((obj_t) BgL_auxz00_5619), BUNSPEC);
																			}
																			BgL_auxz00_5603 =
																				((BgL_copz00_bglt) BgL_new1165z00_3906);
																		}
																		((((BgL_cblockz00_bglt)
																					COBJECT(BgL_new1163z00_3903))->
																				BgL_bodyz00) =
																			((BgL_copz00_bglt) BgL_auxz00_5603),
																			BUNSPEC);
																	}
																	return
																		((BgL_copz00_bglt) BgL_new1163z00_3903);
																}
														}
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zzcgen_cappz00(void)
	{
		{	/* Cgen/capp.scm 15 */
			BGl_modulezd2initializa7ationz75zztools_tracez00(54713316L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zztools_errorz00(300504031L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zztools_shapez00(365925558L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zztype_typez00(515343395L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zztype_toolsz00(453414928L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zztype_cachez00(346491734L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zztype_typeofz00(398780265L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zzast_varz00(90839984L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zzast_nodez00(469732712L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zzast_localz00(315247917L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zzeffect_effectz00(460136018L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zzbackend_c_emitz00(14466025L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			BGl_modulezd2initializa7ationz75zzcgen_copz00(529595144L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
			return
				BGl_modulezd2initializa7ationz75zzcgen_cgenz00(54146247L,
				BSTRING_TO_STRING(BGl_string2173z00zzcgen_cappz00));
		}

	}

#ifdef __cplusplus
}
#endif
