/*===========================================================================*/
/*   (Cnst/alloc.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 Cnst/alloc.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_CNST_ALLOC_TYPE_DEFINITIONS
#define BGL_CNST_ALLOC_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_backendz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_languagez00;
		obj_t BgL_srfi0z00;
		obj_t BgL_namez00;
		obj_t BgL_externzd2variableszd2;
		obj_t BgL_externzd2functionszd2;
		obj_t BgL_externzd2typeszd2;
		obj_t BgL_variablesz00;
		obj_t BgL_functionsz00;
		obj_t BgL_typesz00;
		bool_t BgL_typedz00;
		obj_t BgL_heapzd2suffixzd2;
		obj_t BgL_heapzd2compatiblezd2;
		bool_t BgL_callccz00;
		bool_t BgL_qualifiedzd2typeszd2;
		bool_t BgL_effectzb2zb2;
		bool_t BgL_removezd2emptyzd2letz00;
		bool_t BgL_foreignzd2closurezd2;
		bool_t BgL_typedzd2eqzd2;
		bool_t BgL_tracezd2supportzd2;
		obj_t BgL_foreignzd2clausezd2supportz00;
		obj_t BgL_debugzd2supportzd2;
		bool_t BgL_pragmazd2supportzd2;
		bool_t BgL_tvectorzd2descrzd2supportz00;
		bool_t BgL_requirezd2tailczd2;
		obj_t BgL_registersz00;
		obj_t BgL_pregistersz00;
		bool_t BgL_boundzd2checkzd2;
		bool_t BgL_typezd2checkzd2;
		bool_t BgL_typedzd2funcallzd2;
	}                 *BgL_backendz00_bglt;

	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_nodez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
	}              *BgL_nodez00_bglt;

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

	typedef struct BgL_atomz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_valuez00;
	}              *BgL_atomz00_bglt;

	typedef struct BgL_literalz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_valuez00;
	}                 *BgL_literalz00_bglt;

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

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

	typedef struct BgL_kwotez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_valuez00;
	}               *BgL_kwotez00_bglt;

	typedef struct BgL_sequencez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_nodesz00;
		bool_t BgL_unsafez00;
		obj_t BgL_metaz00;
	}                  *BgL_sequencez00_bglt;

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

	typedef struct BgL_letzd2varzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_bindingsz00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
		bool_t BgL_removablezf3zf3;
	}                   *BgL_letzd2varzd2_bglt;


#endif													// BGL_CNST_ALLOC_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_IMPORT obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
	static BgL_nodez00_bglt
		BGl_z62cnstzd2alloczd2ucs2zd2stringzb0zzcnst_allocz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_za2symbolza2z00zztype_cachez00;
	extern BgL_globalz00_bglt
		BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	extern obj_t BGl_za2intza2z00zztype_cachez00;
	static long BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
	static obj_t BGl_requirezd2initializa7ationz75zzcnst_allocz00 = BUNSPEC;
	extern obj_t BGl_makezd2typedzd2identz00zzast_identz00(obj_t, obj_t);
	static obj_t BGl_za2stringzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2keywordz00zzcnst_allocz00(obj_t, obj_t);
	extern obj_t BGl_za2vectorza2z00zztype_cachez00;
	extern obj_t BGl_za2cnstzd2tablezd2refza2z00zzcnst_cachez00;
	extern obj_t BGl_za2bignumza2z00zztype_cachez00;
	BGL_IMPORT bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2llongz00zzcnst_allocz00(BGL_LONGLONG_T, obj_t);
	BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_za2llongzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2uint32z62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	extern bool_t BGl_tvectorzd2Czd2staticzf3zf3zztvector_cnstz00(obj_t);
	BGL_IMPORT obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_za2elongzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	static obj_t BGl_toplevelzd2initzd2zzcnst_allocz00(void);
	extern obj_t BGl_sequencez00zzast_nodez00;
	extern obj_t BGl_za2structza2z00zztype_cachez00;
	BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
	static BgL_nodez00_bglt
		BGl_z62cnstzd2alloczd2homogenouszd2vectorzb0zzcnst_allocz00(obj_t, obj_t,
		obj_t);
	BGL_IMPORT bool_t ucs2_strcmp(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2symbolz00zzcnst_allocz00(obj_t, obj_t);
	extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_letzd2varzd2zzast_nodez00;
	static obj_t BGl_genericzd2initzd2zzcnst_allocz00(void);
	BGL_IMPORT obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern BgL_typez00_bglt BGl_getzd2defaultzd2typez00zztype_cachez00(void);
	BGL_EXPORTED_DECL obj_t BGl_cnstzd2tablezd2idz00zzcnst_allocz00(void);
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2uint64z62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_withzd2libraryzd2modulez12z12zzmodule_libraryz00(obj_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2elongz00zzcnst_allocz00(long, obj_t);
	static obj_t BGl_objectzd2initzd2zzcnst_allocz00(void);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2listz00zzcnst_allocz00(obj_t, obj_t);
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2listz62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2structz62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_za2bignumzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_shapez00zztools_shapez00(obj_t);
	BGL_IMPORT obj_t BGl_za2inheritancesza2z00zz__objectz00;
	BGL_IMPORT obj_t bgl_reverse_bang(obj_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2tvectorz00zzcnst_allocz00(obj_t, obj_t);
	static obj_t BGl_z62cnstzd2alloczd2bignumz62zzcnst_allocz00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2int32z00zzcnst_allocz00(int32_t, obj_t);
	extern obj_t BGl_za2initzd2modeza2zd2zzengine_paramz00;
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2llongz62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_za2int64zd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	BGL_IMPORT obj_t bstring_to_symbol(obj_t);
	extern obj_t BGl_za2bstringza2z00zztype_cachez00;
	static obj_t BGl_za2keywordzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	extern obj_t BGl_thezd2backendzd2zzbackend_backendz00(void);
	BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	extern obj_t BGl_refz00zzast_nodez00;
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2vectorz00zzcnst_allocz00(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_za2vectorzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	extern obj_t BGl_za2bstringzd2ze3keywordza2z31zzcnst_cachez00;
	static obj_t BGl_methodzd2initzd2zzcnst_allocz00(void);
	BGL_EXPORTED_DECL obj_t BGl_startzd2cnstzd2allocz12z12zzcnst_allocz00(void);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2int64z00zzcnst_allocz00(int64_t, obj_t);
	extern obj_t BGl_za2listzd2ze3vectorza2z31zzcnst_cachez00;
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2elongz62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62getzd2cnstzd2sexpz62zzcnst_allocz00(obj_t);
	static obj_t BGl_za2int32zd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	extern obj_t BGl_findzd2globalzd2zzast_envz00(obj_t, obj_t);
	static obj_t BGl_za2cnstzd2tableza2zd2zzcnst_allocz00 = BUNSPEC;
	extern obj_t BGl_za2bdbzd2debugza2zd2zzengine_paramz00;
	static obj_t BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 = BUNSPEC;
	static obj_t BGl_za2uint64zd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2stringz00zzcnst_allocz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_getzd2cnstzd2setz00zzcnst_allocz00(void);
	BGL_IMPORT obj_t string_append(obj_t, obj_t);
	extern obj_t BGl_za2bstringzd2ze3symbolza2z31zzcnst_cachez00;
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2int32z62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_za2listzd2ze3structza2z31zzcnst_cachez00;
	extern obj_t BGl_za2pairza2z00zztype_cachez00;
	extern obj_t BGl_za2compilerzd2debugza2zd2zzengine_paramz00;
	extern BgL_typez00_bglt BGl_getzd2typezd2atomz00zztype_typeofz00(obj_t);
	extern BgL_typez00_bglt
		BGl_strictzd2nodezd2typez00zzast_nodez00(BgL_typez00_bglt,
		BgL_typez00_bglt);
	extern BgL_globalz00_bglt
		BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_za2consza2z00zzcnst_cachez00;
	extern obj_t BGl_za2objza2z00zztype_cachez00;
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2lzd2procedurezd2zzcnst_allocz00(BgL_nodez00_bglt, obj_t);
	static obj_t BGl_za2oldzd2debugza2zd2zzcnst_allocz00 = BUNSPEC;
	static obj_t BGl_za2uint32zd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	extern BgL_nodez00_bglt BGl_coercez12z12zzcoerce_coercez00(BgL_nodez00_bglt,
		obj_t, BgL_typez00_bglt, bool_t);
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2int64z62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2symbolz62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_getzd2cnstzd2offsetz00zzcnst_allocz00(void);
	extern obj_t BGl_za2moduleza2z00zzmodule_modulez00;
	static obj_t BGl_z62getzd2cnstzd2offsetz62zzcnst_allocz00(obj_t);
	BGL_IMPORT obj_t BGl_bignumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t,
		long);
	BGL_IMPORT obj_t BGl_makezd2hashtablezd2zz__hashz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcnst_allocz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzmodule_libraryz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_envz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcnst_nodez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcnst_cachez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcoerce_coercez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztvector_cnstz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztvector_tvectorz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzbackend_backendz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(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_characters_6_6z00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__srfi4z00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__datez00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__unicodez00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__ucs2z00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	extern obj_t BGl_appz00zzast_nodez00;
	BGL_IMPORT obj_t ucs2_string_to_utf8_string(obj_t);
	static obj_t
		BGl_forcezd2initializa7ezd2srfi4zd2libraryzd2modulez12zb5zzcnst_allocz00
		(void);
	static obj_t BGl_typedzd2cnstzd2tablezd2idzd2zzcnst_allocz00(void);
	static obj_t BGl_z62getzd2cnstzd2tablez62zzcnst_allocz00(obj_t);
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2keywordz62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_za2ucs2stringza2z00zztype_cachez00;
	BGL_IMPORT bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
	static obj_t BGl_za2symbolzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	extern obj_t BGl_kwotez00zzast_nodez00;
	BGL_IMPORT obj_t create_struct(obj_t, int);
	static obj_t BGl_za2structzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	static obj_t BGl_cnstzd2initzd2zzcnst_allocz00(void);
	static obj_t BGl_libraryzd2moduleszd2initz00zzcnst_allocz00(void);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2ucs2zd2stringzd2zzcnst_allocz00(obj_t, obj_t);
	extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t,
		BgL_typez00_bglt);
	static obj_t BGl_importedzd2moduleszd2initz00zzcnst_allocz00(void);
	static obj_t BGl_gczd2rootszd2initz00zzcnst_allocz00(void);
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2vectorz62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2homogenouszd2vectorzd2zzcnst_allocz00(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2uint32z00zzcnst_allocz00(uint32_t, obj_t);
	BGL_IMPORT obj_t BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stopzd2cnstzd2allocz12z12zzcnst_allocz00(void);
	extern obj_t BGl_za2vectorzd2tagzd2setz12za2z12zzcnst_cachez00;
	static obj_t BGl_z62startzd2cnstzd2allocz12z70zzcnst_allocz00(obj_t);
	extern obj_t BGl_za2bnilza2z00zztype_cachez00;
	extern obj_t BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00;
	BGL_EXPORTED_DECL obj_t BGl_getzd2cnstzd2sexpz00zzcnst_allocz00(void);
	extern obj_t BGl_za2keywordza2z00zztype_cachez00;
	static bool_t BGl_cnstzd2equalzf3z21zzcnst_allocz00(obj_t, obj_t);
	static obj_t BGl_za2globalzd2setza2zd2zzcnst_allocz00 = BUNSPEC;
	static BgL_nodez00_bglt
		BGl_z62cnstzd2alloczd2procedurez62zzcnst_allocz00(obj_t, obj_t, obj_t);
	static obj_t BGl_za2realzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2stringz62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_getzd2cnstzd2tablez00zzcnst_allocz00(void);
	static obj_t BGl_za2listzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2uint64z00zzcnst_allocz00(uint64_t, obj_t);
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2tvectorz62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_za2stringzd2ze3ucs2stringza2z31zzcnst_cachez00;
	static obj_t BGl_z62cnstzd2tablezd2idz62zzcnst_allocz00(obj_t);
	extern BgL_typez00_bglt BGl_findzd2typezd2zztype_envz00(obj_t);
	BGL_IMPORT obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t);
	BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2structz00zzcnst_allocz00(obj_t, obj_t);
	static BgL_nodez00_bglt
		BGl_z62cnstzd2alloczd2lzd2procedurezb0zzcnst_allocz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_variablez00zzast_varz00;
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2procedurez00zzcnst_allocz00(BgL_nodez00_bglt, obj_t);
	extern obj_t BGl_literalz00zzast_nodez00;
	BGL_EXPORTED_DECL obj_t BGl_cnstzd2alloczd2bignumz00zzcnst_allocz00(obj_t,
		obj_t);
	static BgL_appz00_bglt BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62getzd2cnstzd2setz62zzcnst_allocz00(obj_t);
	static BgL_nodez00_bglt BGl_loopze70ze7zzcnst_allocz00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_structzd2ze3listz31zz__structurez00(obj_t);
	extern BgL_typez00_bglt BGl_getzd2typezd2kwotez00zztype_typeofz00(obj_t);
	static obj_t BGl_z62stopzd2cnstzd2allocz12z70zzcnst_allocz00(obj_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_cnstzd2alloczd2realz00zzcnst_allocz00(obj_t, obj_t);
	static BgL_nodez00_bglt BGl_z62cnstzd2alloczd2realz62zzcnst_allocz00(obj_t,
		obj_t, obj_t);
	extern BgL_nodez00_bglt BGl_cnstz12z12zzcnst_nodez00(BgL_nodez00_bglt);
	BGL_IMPORT obj_t BGl_hashtablezd2getzd2zz__hashz00(obj_t, obj_t);
	static obj_t __cnst[70];


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2cnstzd2tablezd2envzd2zzcnst_allocz00,
		BgL_bgl_za762getza7d2cnstza7d22421za7,
		BGl_z62getzd2cnstzd2tablez62zzcnst_allocz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cnstzd2alloczd2realzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72422za7,
		BGl_z62cnstzd2alloczd2realz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cnstzd2tablezd2idzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2tableza72423za7,
		BGl_z62cnstzd2tablezd2idz62zzcnst_allocz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2structzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72424za7,
		BGl_z62cnstzd2alloczd2structz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2cnstzd2setzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762getza7d2cnstza7d22425za7,
		BGl_z62getzd2cnstzd2setz62zzcnst_allocz00, 0L, BUNSPEC, 0);
	      DEFINE_STRING(BGl_string2415z00zzcnst_allocz00,
		BgL_bgl_string2415za700za7za7c2426za7,
		"old should be either #f or cnst-info", 36);
	      DEFINE_STRING(BGl_string2416z00zzcnst_allocz00,
		BgL_bgl_string2416za700za7za7c2427za7, "read-alloc-tvector", 18);
	      DEFINE_STRING(BGl_string2417z00zzcnst_allocz00,
		BgL_bgl_string2417za700za7za7c2428za7, "Unimplementable until bootstrap",
		31);
	      DEFINE_STRING(BGl_string2418z00zzcnst_allocz00,
		BgL_bgl_string2418za700za7za7c2429za7, "cnst_alloc", 10);
	      DEFINE_STRING(BGl_string2419z00zzcnst_allocz00,
		BgL_bgl_string2419za700za7za7c2430za7,
		"cnst-struct struct $tvector-descr-set! get-tvector-descriptor stvector tvector tvec make-s8vector hvector f64 f32 u64 s64 u32 s32 u16 s16 u8 s8 list-> vector var cnst-list pair list suint64 buint64 uint64 sint64 bint64 int64 suint32 buint32 uint32 sint32 bint32 int32 sllong bllong llong selong belong elong sreal real slfun sfun procedure proc cnst-alloc-bignum a-keyword keyword cnst-alloc-symbol a-symbol symbol lib set! @ an-ucs2-string ucs2string cnst-info sstring bstring string static bdb now cnst-vector cnst* __cnsts_table ",
		532);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2llongzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72431za7,
		BGl_z62cnstzd2alloczd2llongz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stopzd2cnstzd2allocz12zd2envzc0zzcnst_allocz00,
		BgL_bgl_za762stopza7d2cnstza7d2432za7,
		BGl_z62stopzd2cnstzd2allocz12z70zzcnst_allocz00, 0L, BUNSPEC, 0);
	BGL_IMPORT obj_t BGl_s64vectorzd2ze3listzd2envze3zz__srfi4z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2keywordzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72433za7,
		BGl_z62cnstzd2alloczd2keywordz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2vectorzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72434za7,
		BGl_z62cnstzd2alloczd2vectorz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cnstzd2alloczd2listzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72435za7,
		BGl_z62cnstzd2alloczd2listz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	BGL_IMPORT obj_t BGl_f32vectorzd2ze3listzd2envze3zz__srfi4z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2lzd2procedurezd2envz00zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72436za7,
		BGl_z62cnstzd2alloczd2lzd2procedurezb0zzcnst_allocz00, 0L, BUNSPEC, 2);
	BGL_IMPORT obj_t BGl_u64vectorzd2ze3listzd2envze3zz__srfi4z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2ucs2zd2stringzd2envz00zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72437za7,
		BGl_z62cnstzd2alloczd2ucs2zd2stringzb0zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2elongzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72438za7,
		BGl_z62cnstzd2alloczd2elongz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2symbolzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72439za7,
		BGl_z62cnstzd2alloczd2symbolz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2procedurezd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72440za7,
		BGl_z62cnstzd2alloczd2procedurez62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2int64zd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72441za7,
		BGl_z62cnstzd2alloczd2int64z62zzcnst_allocz00, 0L, BUNSPEC, 2);
	BGL_IMPORT obj_t BGl_s16vectorzd2ze3listzd2envze3zz__srfi4z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2cnstzd2offsetzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762getza7d2cnstza7d22442za7,
		BGl_z62getzd2cnstzd2offsetz62zzcnst_allocz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2uint64zd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72443za7,
		BGl_z62cnstzd2alloczd2uint64z62zzcnst_allocz00, 0L, BUNSPEC, 2);
	BGL_IMPORT obj_t BGl_s32vectorzd2ze3listzd2envze3zz__srfi4z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2bignumzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72444za7,
		BGl_z62cnstzd2alloczd2bignumz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2tvectorzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72445za7,
		BGl_z62cnstzd2alloczd2tvectorz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	BGL_IMPORT obj_t BGl_u16vectorzd2ze3listzd2envze3zz__srfi4z00;
	BGL_IMPORT obj_t BGl_s8vectorzd2ze3listzd2envze3zz__srfi4z00;
	BGL_IMPORT obj_t BGl_u32vectorzd2ze3listzd2envze3zz__srfi4z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2homogenouszd2vectorzd2envz00zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72446za7,
		BGl_z62cnstzd2alloczd2homogenouszd2vectorzb0zzcnst_allocz00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_startzd2cnstzd2allocz12zd2envzc0zzcnst_allocz00,
		BgL_bgl_za762startza7d2cnstza72447za7,
		BGl_z62startzd2cnstzd2allocz12z70zzcnst_allocz00, 0L, BUNSPEC, 0);
	BGL_IMPORT obj_t BGl_u8vectorzd2ze3listzd2envze3zz__srfi4z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2int32zd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72448za7,
		BGl_z62cnstzd2alloczd2int32z62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2stringzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72449za7,
		BGl_z62cnstzd2alloczd2stringz62zzcnst_allocz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cnstzd2alloczd2uint32zd2envzd2zzcnst_allocz00,
		BgL_bgl_za762cnstza7d2allocza72450za7,
		BGl_z62cnstzd2alloczd2uint32z62zzcnst_allocz00, 0L, BUNSPEC, 2);
	BGL_IMPORT obj_t BGl_f64vectorzd2ze3listzd2envze3zz__srfi4z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2cnstzd2sexpzd2envzd2zzcnst_allocz00,
		BgL_bgl_za762getza7d2cnstza7d22451za7,
		BGl_z62getzd2cnstzd2sexpz62zzcnst_allocz00, 0L, BUNSPEC, 0);

/* 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_za2ucs2stringzd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2stringzd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2llongzd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2elongzd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2bignumzd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2int64zd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2keywordzd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2vectorzd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2int32zd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2cnstzd2tableza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2globalzd2sexpza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2uint64zd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2oldzd2debugza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2uint32zd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2symbolzd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2structzd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2globalzd2setza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2realzd2envza2zd2zzcnst_allocz00));
		     ADD_ROOT((void *) (&BGl_za2listzd2envza2zd2zzcnst_allocz00));
#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_modulezd2initializa7ationz75zzcnst_allocz00(long
		BgL_checksumz00_3596, char *BgL_fromz00_3597)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zzcnst_allocz00))
				{
					BGl_requirezd2initializa7ationz75zzcnst_allocz00 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zzcnst_allocz00();
					BGl_libraryzd2moduleszd2initz00zzcnst_allocz00();
					BGl_cnstzd2initzd2zzcnst_allocz00();
					BGl_importedzd2moduleszd2initz00zzcnst_allocz00();
					return BGl_toplevelzd2initzd2zzcnst_allocz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* library-modules-init */
	obj_t BGl_libraryzd2moduleszd2initz00zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 15 */
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(0L,
				"cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__objectz00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(0L,
				"cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__srfi4z00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__readerz00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(0L,
				"cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__hashz00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__structurez00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__datez00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__ucs2z00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(0L,
				"cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(0L,
				"cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(0L,
				"cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__unicodez00(0L, "cnst_alloc");
			BGl_modulezd2initializa7ationz75zz__biglooz00(0L, "cnst_alloc");
			return BUNSPEC;
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 15 */
			{	/* Cnst/alloc.scm 15 */
				obj_t BgL_cportz00_3584;

				{	/* Cnst/alloc.scm 15 */
					obj_t BgL_stringz00_3591;

					BgL_stringz00_3591 = BGl_string2419z00zzcnst_allocz00;
					{	/* Cnst/alloc.scm 15 */
						obj_t BgL_startz00_3592;

						BgL_startz00_3592 = BINT(0L);
						{	/* Cnst/alloc.scm 15 */
							obj_t BgL_endz00_3593;

							BgL_endz00_3593 =
								BINT(STRING_LENGTH(((obj_t) BgL_stringz00_3591)));
							{	/* Cnst/alloc.scm 15 */

								BgL_cportz00_3584 =
									BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
									(BgL_stringz00_3591, BgL_startz00_3592, BgL_endz00_3593);
				}}}}
				{
					long BgL_iz00_3585;

					BgL_iz00_3585 = 69L;
				BgL_loopz00_3586:
					if ((BgL_iz00_3585 == -1L))
						{	/* Cnst/alloc.scm 15 */
							return BUNSPEC;
						}
					else
						{	/* Cnst/alloc.scm 15 */
							{	/* Cnst/alloc.scm 15 */
								obj_t BgL_arg2420z00_3587;

								{	/* Cnst/alloc.scm 15 */

									{	/* Cnst/alloc.scm 15 */
										obj_t BgL_locationz00_3589;

										BgL_locationz00_3589 = BBOOL(((bool_t) 0));
										{	/* Cnst/alloc.scm 15 */

											BgL_arg2420z00_3587 =
												BGl_readz00zz__readerz00(BgL_cportz00_3584,
												BgL_locationz00_3589);
										}
									}
								}
								{	/* Cnst/alloc.scm 15 */
									int BgL_tmpz00_3635;

									BgL_tmpz00_3635 = (int) (BgL_iz00_3585);
									CNST_TABLE_SET(BgL_tmpz00_3635, BgL_arg2420z00_3587);
							}}
							{	/* Cnst/alloc.scm 15 */
								int BgL_auxz00_3590;

								BgL_auxz00_3590 = (int) ((BgL_iz00_3585 - 1L));
								{
									long BgL_iz00_3640;

									BgL_iz00_3640 = (long) (BgL_auxz00_3590);
									BgL_iz00_3585 = BgL_iz00_3640;
									goto BgL_loopz00_3586;
								}
							}
						}
				}
			}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 15 */
			BGl_za2cnstzd2tableza2zd2zzcnst_allocz00 = BUNSPEC;
			BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 = -1L;
			BGl_za2stringzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2realzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2elongzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2llongzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2int32zd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2uint32zd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2int64zd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2uint64zd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2symbolzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2keywordzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2bignumzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2listzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2vectorzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2structzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2globalzd2setza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 = BNIL;
			return (BGl_za2oldzd2debugza2zd2zzcnst_allocz00 = BUNSPEC, BUNSPEC);
		}

	}



/* get-cnst-offset */
	BGL_EXPORTED_DEF obj_t BGl_getzd2cnstzd2offsetz00zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 81 */
			return BINT(BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);
		}

	}



/* &get-cnst-offset */
	obj_t BGl_z62getzd2cnstzd2offsetz62zzcnst_allocz00(obj_t BgL_envz00_3495)
	{
		{	/* Cnst/alloc.scm 81 */
			return BGl_getzd2cnstzd2offsetz00zzcnst_allocz00();
		}

	}



/* get-cnst-set */
	BGL_EXPORTED_DEF obj_t BGl_getzd2cnstzd2setz00zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 87 */
			return BGl_za2globalzd2setza2zd2zzcnst_allocz00;
		}

	}



/* &get-cnst-set */
	obj_t BGl_z62getzd2cnstzd2setz62zzcnst_allocz00(obj_t BgL_envz00_3496)
	{
		{	/* Cnst/alloc.scm 87 */
			return BGl_getzd2cnstzd2setz00zzcnst_allocz00();
		}

	}



/* get-cnst-table */
	BGL_EXPORTED_DEF obj_t BGl_getzd2cnstzd2tablez00zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 93 */
			return BGl_za2cnstzd2tableza2zd2zzcnst_allocz00;
		}

	}



/* &get-cnst-table */
	obj_t BGl_z62getzd2cnstzd2tablez62zzcnst_allocz00(obj_t BgL_envz00_3497)
	{
		{	/* Cnst/alloc.scm 93 */
			return BGl_getzd2cnstzd2tablez00zzcnst_allocz00();
		}

	}



/* get-cnst-sexp */
	BGL_EXPORTED_DEF obj_t BGl_getzd2cnstzd2sexpz00zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 99 */
			return bgl_reverse_bang(BGl_za2globalzd2sexpza2zd2zzcnst_allocz00);
		}

	}



/* &get-cnst-sexp */
	obj_t BGl_z62getzd2cnstzd2sexpz62zzcnst_allocz00(obj_t BgL_envz00_3498)
	{
		{	/* Cnst/alloc.scm 99 */
			return BGl_getzd2cnstzd2sexpz00zzcnst_allocz00();
		}

	}



/* cnst-table-id */
	BGL_EXPORTED_DEF obj_t BGl_cnstzd2tablezd2idz00zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 145 */
			return CNST_TABLE_REF(0L);
		}

	}



/* &cnst-table-id */
	obj_t BGl_z62cnstzd2tablezd2idz62zzcnst_allocz00(obj_t BgL_envz00_3499)
	{
		{	/* Cnst/alloc.scm 145 */
			return BGl_cnstzd2tablezd2idz00zzcnst_allocz00();
		}

	}



/* typed-cnst-table-id */
	obj_t BGl_typedzd2cnstzd2tablezd2idzd2zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 151 */
			{	/* Cnst/alloc.scm 152 */
				obj_t BgL_arg1565z00_1620;

				BgL_arg1565z00_1620 = CNST_TABLE_REF(0L);
				return
					BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg1565z00_1620,
					CNST_TABLE_REF(1L));
			}
		}

	}



/* start-cnst-alloc! */
	BGL_EXPORTED_DEF obj_t BGl_startzd2cnstzd2allocz12z12zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 157 */
			BGl_za2oldzd2debugza2zd2zzcnst_allocz00 =
				BGl_za2compilerzd2debugza2zd2zzengine_paramz00;
			BGl_za2compilerzd2debugza2zd2zzengine_paramz00 = BINT(0L);
			{	/* Cnst/alloc.scm 163 */
				obj_t BgL_arg1575z00_1621;

				BgL_arg1575z00_1621 = BGl_typedzd2cnstzd2tablezd2idzd2zzcnst_allocz00();
				BGl_za2cnstzd2tableza2zd2zzcnst_allocz00 =
					((obj_t)
					BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2(BgL_arg1575z00_1621,
						BGl_za2moduleza2z00zzmodule_modulez00, CNST_TABLE_REF(2L),
						CNST_TABLE_REF(3L)));
			}
			{	/* Cnst/alloc.scm 170 */
				bool_t BgL_test2454z00_3660;

				if (((long) CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00) >= 3L))
					{	/* Cnst/alloc.scm 171 */
						obj_t BgL_arg1581z00_1627;

						{	/* Cnst/alloc.scm 171 */
							obj_t BgL_arg1586z00_1628;

							BgL_arg1586z00_1628 = BGl_thezd2backendzd2zzbackend_backendz00();
							BgL_arg1581z00_1627 =
								(((BgL_backendz00_bglt) COBJECT(
										((BgL_backendz00_bglt) BgL_arg1586z00_1628)))->
								BgL_debugzd2supportzd2);
						}
						BgL_test2454z00_3660 =
							CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CNST_TABLE_REF(4L),
								BgL_arg1581z00_1627));
					}
				else
					{	/* Cnst/alloc.scm 170 */
						BgL_test2454z00_3660 = ((bool_t) 0);
					}
				if (BgL_test2454z00_3660)
					{	/* Cnst/alloc.scm 172 */
						BgL_globalz00_bglt BgL_oz00_2778;
						obj_t BgL_vz00_2779;

						BgL_oz00_2778 =
							((BgL_globalz00_bglt) BGl_za2cnstzd2tableza2zd2zzcnst_allocz00);
						BgL_vz00_2779 = CNST_TABLE_REF(5L);
						((((BgL_globalz00_bglt) COBJECT(BgL_oz00_2778))->BgL_importz00) =
							((obj_t) BgL_vz00_2779), BUNSPEC);
					}
				else
					{	/* Cnst/alloc.scm 170 */
						BFALSE;
					}
			}
			BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 = 0L;
			BGl_za2stringzd2envza2zd2zzcnst_allocz00 =
				BGl_makezd2hashtablezd2zz__hashz00(BNIL);
			BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00 =
				BGl_makezd2hashtablezd2zz__hashz00(BNIL);
			BGl_za2realzd2envza2zd2zzcnst_allocz00 = BNIL;
			BGl_za2symbolzd2envza2zd2zzcnst_allocz00 =
				BGl_makezd2hashtablezd2zz__hashz00(BNIL);
			BGl_za2keywordzd2envza2zd2zzcnst_allocz00 =
				BGl_makezd2hashtablezd2zz__hashz00(BNIL);
			BGl_za2bignumzd2envza2zd2zzcnst_allocz00 = BNIL;
			return BTRUE;
		}

	}



/* &start-cnst-alloc! */
	obj_t BGl_z62startzd2cnstzd2allocz12z70zzcnst_allocz00(obj_t BgL_envz00_3500)
	{
		{	/* Cnst/alloc.scm 157 */
			return BGl_startzd2cnstzd2allocz12z12zzcnst_allocz00();
		}

	}



/* stop-cnst-alloc! */
	BGL_EXPORTED_DEF obj_t BGl_stopzd2cnstzd2allocz12z12zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 185 */
			BGl_za2compilerzd2debugza2zd2zzengine_paramz00 =
				BGl_za2oldzd2debugza2zd2zzcnst_allocz00;
			BGl_za2stringzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
			BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
			BGl_za2realzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
			BGl_za2symbolzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
			BGl_za2keywordzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
			BGl_za2bignumzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
			BGl_za2listzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
			BGl_za2vectorzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
			BGl_za2structzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
			return BTRUE;
		}

	}



/* &stop-cnst-alloc! */
	obj_t BGl_z62stopzd2cnstzd2allocz12z70zzcnst_allocz00(obj_t BgL_envz00_3501)
	{
		{	/* Cnst/alloc.scm 185 */
			return BGl_stopzd2cnstzd2allocz12z12zzcnst_allocz00();
		}

	}



/* make-cnst-table-ref */
	BgL_appz00_bglt BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(obj_t
		BgL_offsetz00_35, obj_t BgL_typez00_36, obj_t BgL_locz00_37)
	{
		{	/* Cnst/alloc.scm 201 */
			{	/* Cnst/alloc.scm 202 */
				BgL_appz00_bglt BgL_new1106z00_1633;

				{	/* Cnst/alloc.scm 203 */
					BgL_appz00_bglt BgL_new1105z00_1645;

					BgL_new1105z00_1645 =
						((BgL_appz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_appz00_bgl))));
					{	/* Cnst/alloc.scm 203 */
						long BgL_arg1609z00_1646;

						BgL_arg1609z00_1646 = BGL_CLASS_NUM(BGl_appz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1105z00_1645), BgL_arg1609z00_1646);
					}
					{	/* Cnst/alloc.scm 203 */
						BgL_objectz00_bglt BgL_tmpz00_3683;

						BgL_tmpz00_3683 = ((BgL_objectz00_bglt) BgL_new1105z00_1645);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3683, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1105z00_1645);
					BgL_new1106z00_1633 = BgL_new1105z00_1645;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1106z00_1633)))->BgL_locz00) =
					((obj_t) BgL_locz00_37), BUNSPEC);
				{
					BgL_typez00_bglt BgL_auxz00_3689;

					{	/* Cnst/alloc.scm 204 */
						BgL_typez00_bglt BgL_arg1592z00_1634;

						BgL_arg1592z00_1634 = BGl_getzd2defaultzd2typez00zztype_cachez00();
						BgL_auxz00_3689 =
							BGl_strictzd2nodezd2typez00zzast_nodez00(
							((BgL_typez00_bglt) BgL_typez00_36), BgL_arg1592z00_1634);
					}
					((((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt) BgL_new1106z00_1633)))->BgL_typez00) =
						((BgL_typez00_bglt) BgL_auxz00_3689), BUNSPEC);
				}
				((((BgL_nodezf2effectzf2_bglt) COBJECT(
								((BgL_nodezf2effectzf2_bglt) BgL_new1106z00_1633)))->
						BgL_sidezd2effectzd2) = ((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1106z00_1633)))->BgL_keyz00) =
					((obj_t) BINT(-1L)), BUNSPEC);
				{
					BgL_varz00_bglt BgL_auxz00_3700;

					{	/* Cnst/alloc.scm 205 */
						BgL_refz00_bglt BgL_new1108z00_1635;

						{	/* Cnst/alloc.scm 206 */
							BgL_refz00_bglt BgL_new1107z00_1638;

							BgL_new1107z00_1638 =
								((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_refz00_bgl))));
							{	/* Cnst/alloc.scm 206 */
								long BgL_arg1598z00_1639;

								{	/* Cnst/alloc.scm 206 */
									obj_t BgL_classz00_2784;

									BgL_classz00_2784 = BGl_refz00zzast_nodez00;
									BgL_arg1598z00_1639 = BGL_CLASS_NUM(BgL_classz00_2784);
								}
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1107z00_1638),
									BgL_arg1598z00_1639);
							}
							{	/* Cnst/alloc.scm 206 */
								BgL_objectz00_bglt BgL_tmpz00_3705;

								BgL_tmpz00_3705 = ((BgL_objectz00_bglt) BgL_new1107z00_1638);
								BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3705, BFALSE);
							}
							((BgL_objectz00_bglt) BgL_new1107z00_1638);
							BgL_new1108z00_1635 = BgL_new1107z00_1638;
						}
						((((BgL_nodez00_bglt) COBJECT(
										((BgL_nodez00_bglt) BgL_new1108z00_1635)))->BgL_locz00) =
							((obj_t) BgL_locz00_37), BUNSPEC);
						{
							BgL_typez00_bglt BgL_auxz00_3711;

							{	/* Cnst/alloc.scm 207 */
								BgL_typez00_bglt BgL_arg1595z00_1636;
								BgL_typez00_bglt BgL_arg1597z00_1637;

								BgL_arg1595z00_1636 =
									BGl_getzd2defaultzd2typez00zztype_cachez00();
								{	/* Cnst/alloc.scm 207 */
									BgL_variablez00_bglt BgL_oz00_2788;

									BgL_oz00_2788 =
										((BgL_variablez00_bglt)
										BGl_za2cnstzd2tablezd2refza2z00zzcnst_cachez00);
									BgL_arg1597z00_1637 =
										(((BgL_variablez00_bglt) COBJECT(BgL_oz00_2788))->
										BgL_typez00);
								}
								BgL_auxz00_3711 =
									BGl_strictzd2nodezd2typez00zzast_nodez00(BgL_arg1595z00_1636,
									BgL_arg1597z00_1637);
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1108z00_1635)))->BgL_typez00) =
								((BgL_typez00_bglt) BgL_auxz00_3711), BUNSPEC);
						}
						((((BgL_varz00_bglt) COBJECT(
										((BgL_varz00_bglt) BgL_new1108z00_1635)))->
								BgL_variablez00) =
							((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
									BGl_za2cnstzd2tablezd2refza2z00zzcnst_cachez00)), BUNSPEC);
						BgL_auxz00_3700 = ((BgL_varz00_bglt) BgL_new1108z00_1635);
					}
					((((BgL_appz00_bglt) COBJECT(BgL_new1106z00_1633))->BgL_funz00) =
						((BgL_varz00_bglt) BgL_auxz00_3700), BUNSPEC);
				}
				{
					obj_t BgL_auxz00_3723;

					{	/* Cnst/alloc.scm 209 */
						BgL_literalz00_bglt BgL_arg1606z00_1640;

						{	/* Cnst/alloc.scm 209 */
							BgL_literalz00_bglt BgL_new1110z00_1642;

							{	/* Cnst/alloc.scm 210 */
								BgL_literalz00_bglt BgL_new1109z00_1643;

								BgL_new1109z00_1643 =
									((BgL_literalz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_literalz00_bgl))));
								{	/* Cnst/alloc.scm 210 */
									long BgL_arg1608z00_1644;

									{	/* Cnst/alloc.scm 210 */
										obj_t BgL_classz00_2789;

										BgL_classz00_2789 = BGl_literalz00zzast_nodez00;
										BgL_arg1608z00_1644 = BGL_CLASS_NUM(BgL_classz00_2789);
									}
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1109z00_1643),
										BgL_arg1608z00_1644);
								}
								{	/* Cnst/alloc.scm 210 */
									BgL_objectz00_bglt BgL_tmpz00_3728;

									BgL_tmpz00_3728 = ((BgL_objectz00_bglt) BgL_new1109z00_1643);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3728, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1109z00_1643);
								BgL_new1110z00_1642 = BgL_new1109z00_1643;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1110z00_1642)))->BgL_locz00) =
								((obj_t) BgL_locz00_37), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1110z00_1642)))->BgL_typez00) =
								((BgL_typez00_bglt) ((BgL_typez00_bglt)
										BGl_za2intza2z00zztype_cachez00)), BUNSPEC);
							((((BgL_atomz00_bglt) COBJECT(((BgL_atomz00_bglt)
												BgL_new1110z00_1642)))->BgL_valuez00) =
								((obj_t) BgL_offsetz00_35), BUNSPEC);
							BgL_arg1606z00_1640 = BgL_new1110z00_1642;
						}
						{	/* Cnst/alloc.scm 209 */
							obj_t BgL_list1607z00_1641;

							BgL_list1607z00_1641 =
								MAKE_YOUNG_PAIR(((obj_t) BgL_arg1606z00_1640), BNIL);
							BgL_auxz00_3723 = BgL_list1607z00_1641;
					}}
					((((BgL_appz00_bglt) COBJECT(BgL_new1106z00_1633))->BgL_argsz00) =
						((obj_t) BgL_auxz00_3723), BUNSPEC);
				}
				((((BgL_appz00_bglt) COBJECT(BgL_new1106z00_1633))->BgL_stackablez00) =
					((obj_t) BFALSE), BUNSPEC);
				return BgL_new1106z00_1633;
			}
		}

	}



/* cnst-alloc-string */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2stringz00zzcnst_allocz00(obj_t BgL_stringz00_38,
		obj_t BgL_locz00_39)
	{
		{	/* Cnst/alloc.scm 221 */
			{

				{	/* Cnst/alloc.scm 236 */
					obj_t BgL_oldz00_1648;

					{	/* Cnst/alloc.scm 236 */
						obj_t BgL__andtest_1113z00_1652;

						BgL__andtest_1113z00_1652 =
							BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00;
						if (CBOOL(BgL__andtest_1113z00_1652))
							{	/* Cnst/alloc.scm 236 */
								BgL_oldz00_1648 =
									BGl_hashtablezd2getzd2zz__hashz00
									(BGl_za2stringzd2envza2zd2zzcnst_allocz00, BgL_stringz00_38);
							}
						else
							{	/* Cnst/alloc.scm 236 */
								BgL_oldz00_1648 = BFALSE;
							}
					}
					if (CBOOL(BgL_oldz00_1648))
						{	/* Cnst/alloc.scm 239 */
							BgL_refz00_bglt BgL_new1117z00_1649;

							{	/* Cnst/alloc.scm 240 */
								BgL_refz00_bglt BgL_new1116z00_1650;

								BgL_new1116z00_1650 =
									((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_refz00_bgl))));
								{	/* Cnst/alloc.scm 240 */
									long BgL_arg1613z00_1651;

									BgL_arg1613z00_1651 = BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1116z00_1650),
										BgL_arg1613z00_1651);
								}
								{	/* Cnst/alloc.scm 240 */
									BgL_objectz00_bglt BgL_tmpz00_3752;

									BgL_tmpz00_3752 = ((BgL_objectz00_bglt) BgL_new1116z00_1650);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3752, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1116z00_1650);
								BgL_new1117z00_1649 = BgL_new1116z00_1650;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1117z00_1649)))->BgL_locz00) =
								((obj_t) BgL_locz00_39), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1117z00_1649)))->BgL_typez00) =
								((BgL_typez00_bglt) ((BgL_typez00_bglt)
										BGl_za2bstringza2z00zztype_cachez00)), BUNSPEC);
							((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
												BgL_new1117z00_1649)))->BgL_variablez00) =
								((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
										STRUCT_REF(((obj_t) BgL_oldz00_1648), (int) (1L)))),
								BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1117z00_1649);
						}
					else
						{
							BgL_refz00_bglt BgL_auxz00_3768;

							{	/* Cnst/alloc.scm 224 */
								BgL_globalz00_bglt BgL_varz00_1654;

								{	/* Cnst/alloc.scm 225 */
									obj_t BgL_arg1620z00_1659;

									{	/* Cnst/alloc.scm 225 */
										obj_t BgL_arg1621z00_1660;

										BgL_arg1621z00_1660 =
											BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(6L));
										BgL_arg1620z00_1659 =
											BGl_makezd2typedzd2identz00zzast_identz00
											(BgL_arg1621z00_1660, CNST_TABLE_REF(7L));
									}
									BgL_varz00_1654 =
										BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
										(BgL_arg1620z00_1659, BGl_za2moduleza2z00zzmodule_modulez00,
										BgL_stringz00_38, CNST_TABLE_REF(8L), BgL_locz00_39);
								}
								if (CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
									{	/* Cnst/alloc.scm 231 */
										obj_t BgL_arg1615z00_1655;

										{	/* Cnst/alloc.scm 69 */
											obj_t BgL_newz00_2794;

											BgL_newz00_2794 =
												create_struct(CNST_TABLE_REF(9L), (int) (2L));
											{	/* Cnst/alloc.scm 69 */
												obj_t BgL_auxz00_3782;
												int BgL_tmpz00_3780;

												BgL_auxz00_3782 = ((obj_t) BgL_varz00_1654);
												BgL_tmpz00_3780 = (int) (1L);
												STRUCT_SET(BgL_newz00_2794, BgL_tmpz00_3780,
													BgL_auxz00_3782);
											}
											{	/* Cnst/alloc.scm 69 */
												int BgL_tmpz00_3785;

												BgL_tmpz00_3785 = (int) (0L);
												STRUCT_SET(BgL_newz00_2794, BgL_tmpz00_3785,
													BgL_stringz00_38);
											}
											BgL_arg1615z00_1655 = BgL_newz00_2794;
										}
										BGl_hashtablezd2putz12zc0zz__hashz00
											(BGl_za2stringzd2envza2zd2zzcnst_allocz00,
											BgL_stringz00_38, BgL_arg1615z00_1655);
									}
								else
									{	/* Cnst/alloc.scm 230 */
										BFALSE;
									}
								{	/* Cnst/alloc.scm 232 */
									BgL_refz00_bglt BgL_new1112z00_1656;

									{	/* Cnst/alloc.scm 233 */
										BgL_refz00_bglt BgL_new1111z00_1657;

										BgL_new1111z00_1657 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 233 */
											long BgL_arg1616z00_1658;

											BgL_arg1616z00_1658 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1111z00_1657),
												BgL_arg1616z00_1658);
										}
										{	/* Cnst/alloc.scm 233 */
											BgL_objectz00_bglt BgL_tmpz00_3793;

											BgL_tmpz00_3793 =
												((BgL_objectz00_bglt) BgL_new1111z00_1657);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3793, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1111z00_1657);
										BgL_new1112z00_1656 = BgL_new1111z00_1657;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1112z00_1656)))->
											BgL_locz00) = ((obj_t) BgL_locz00_39), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1112z00_1656)))->BgL_typez00) =
										((BgL_typez00_bglt) ((BgL_typez00_bglt)
												BGl_za2bstringza2z00zztype_cachez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1112z00_1656)))->BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												BgL_varz00_1654)), BUNSPEC);
									BgL_auxz00_3768 = BgL_new1112z00_1656;
							}}
							return ((BgL_nodez00_bglt) BgL_auxz00_3768);
						}
				}
			}
		}

	}



/* &cnst-alloc-string */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2stringz62zzcnst_allocz00(obj_t
		BgL_envz00_3502, obj_t BgL_stringz00_3503, obj_t BgL_locz00_3504)
	{
		{	/* Cnst/alloc.scm 221 */
			return
				BGl_cnstzd2alloczd2stringz00zzcnst_allocz00(BgL_stringz00_3503,
				BgL_locz00_3504);
		}

	}



/* cnst-alloc-ucs2-string */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2ucs2zd2stringzd2zzcnst_allocz00(obj_t BgL_stringz00_40,
		obj_t BgL_locz00_41)
	{
		{	/* Cnst/alloc.scm 249 */
			{
				obj_t BgL_bstringz00_1679;

				{	/* Cnst/alloc.scm 281 */
					obj_t BgL_oldz00_1664;
					obj_t BgL_stringzd2aszd2bstringz00_1665;

					BgL_oldz00_1664 =
						BGl_hashtablezd2getzd2zz__hashz00
						(BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00, BgL_stringz00_40);
					BgL_stringzd2aszd2bstringz00_1665 =
						ucs2_string_to_utf8_string(BgL_stringz00_40);
					if (CBOOL(BgL_oldz00_1664))
						{	/* Cnst/alloc.scm 284 */
							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{	/* Cnst/alloc.scm 286 */
									BgL_refz00_bglt BgL_new1127z00_1666;

									{	/* Cnst/alloc.scm 287 */
										BgL_refz00_bglt BgL_new1125z00_1668;

										BgL_new1125z00_1668 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 287 */
											long BgL_arg1629z00_1669;

											BgL_arg1629z00_1669 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1125z00_1668),
												BgL_arg1629z00_1669);
										}
										{	/* Cnst/alloc.scm 287 */
											BgL_objectz00_bglt BgL_tmpz00_3818;

											BgL_tmpz00_3818 =
												((BgL_objectz00_bglt) BgL_new1125z00_1668);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3818, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1125z00_1668);
										BgL_new1127z00_1666 = BgL_new1125z00_1668;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1127z00_1666)))->
											BgL_locz00) = ((obj_t) BgL_locz00_41), BUNSPEC);
									{
										BgL_typez00_bglt BgL_auxz00_3824;

										{	/* Cnst/alloc.scm 288 */
											BgL_typez00_bglt BgL_arg1628z00_1667;

											BgL_arg1628z00_1667 =
												BGl_getzd2defaultzd2typez00zztype_cachez00();
											BgL_auxz00_3824 =
												BGl_strictzd2nodezd2typez00zzast_nodez00(
												((BgL_typez00_bglt)
													BGl_za2ucs2stringza2z00zztype_cachez00),
												BgL_arg1628z00_1667);
										}
										((((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt) BgL_new1127z00_1666)))->
												BgL_typez00) =
											((BgL_typez00_bglt) BgL_auxz00_3824), BUNSPEC);
									}
									((((BgL_varz00_bglt) COBJECT(
													((BgL_varz00_bglt) BgL_new1127z00_1666)))->
											BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												STRUCT_REF(((obj_t) BgL_oldz00_1664), (int) (1L)))),
										BUNSPEC);
									return ((BgL_nodez00_bglt) BgL_new1127z00_1666);
								}
							else
								{	/* Cnst/alloc.scm 290 */
									obj_t BgL_arg1630z00_1670;

									BgL_arg1630z00_1670 =
										STRUCT_REF(((obj_t) BgL_oldz00_1664), (int) (1L));
									return
										((BgL_nodez00_bglt)
										BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00
										(BgL_arg1630z00_1670,
											BGl_za2ucs2stringza2z00zztype_cachez00, BgL_locz00_41));
								}
						}
					else
						{	/* Cnst/alloc.scm 291 */
							bool_t BgL_test2461z00_3842;

							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{	/* Cnst/alloc.scm 291 */
									BgL_test2461z00_3842 = ((bool_t) 1);
								}
							else
								{	/* Cnst/alloc.scm 291 */
									if ((STRING_LENGTH(BgL_stringzd2aszd2bstringz00_1665) == 0L))
										{	/* Cnst/alloc.scm 292 */
											BgL_test2461z00_3842 = ((bool_t) 1);
										}
									else
										{	/* Cnst/alloc.scm 292 */
											BgL_test2461z00_3842 =
												(STRING_REF(BgL_stringzd2aszd2bstringz00_1665,
													0L) == ((unsigned char) ';'));
								}}
							if (BgL_test2461z00_3842)
								{
									BgL_refz00_bglt BgL_auxz00_3851;

									BgL_bstringz00_1679 = BgL_stringzd2aszd2bstringz00_1665;
									{	/* Cnst/alloc.scm 251 */
										BgL_globalz00_bglt BgL_varz00_1681;
										BgL_nodez00_bglt BgL_vsz00_1682;

										{	/* Cnst/alloc.scm 252 */
											obj_t BgL_arg1712z00_1705;

											{	/* Cnst/alloc.scm 252 */
												obj_t BgL_arg1714z00_1706;

												BgL_arg1714z00_1706 =
													BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF
													(10L));
												BgL_arg1712z00_1705 =
													BGl_makezd2typedzd2identz00zzast_identz00
													(BgL_arg1714z00_1706, CNST_TABLE_REF(10L));
											}
											BgL_varz00_1681 =
												BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2
												(BgL_arg1712z00_1705,
												BGl_za2moduleza2z00zzmodule_modulez00,
												CNST_TABLE_REF(11L), CNST_TABLE_REF(3L));
										}
										BgL_vsz00_1682 =
											BGl_cnstzd2alloczd2stringz00zzcnst_allocz00
											(BgL_bstringz00_1679, BgL_locz00_41);
										{	/* Cnst/alloc.scm 257 */
											obj_t BgL_arg1673z00_1683;

											{	/* Cnst/alloc.scm 69 */
												obj_t BgL_newz00_2806;

												BgL_newz00_2806 =
													create_struct(CNST_TABLE_REF(9L), (int) (2L));
												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_auxz00_3865;
													int BgL_tmpz00_3863;

													BgL_auxz00_3865 = ((obj_t) BgL_varz00_1681);
													BgL_tmpz00_3863 = (int) (1L);
													STRUCT_SET(BgL_newz00_2806, BgL_tmpz00_3863,
														BgL_auxz00_3865);
												}
												{	/* Cnst/alloc.scm 69 */
													int BgL_tmpz00_3868;

													BgL_tmpz00_3868 = (int) (0L);
													STRUCT_SET(BgL_newz00_2806, BgL_tmpz00_3868,
														BgL_stringz00_40);
												}
												BgL_arg1673z00_1683 = BgL_newz00_2806;
											}
											BGl_hashtablezd2putz12zc0zz__hashz00
												(BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00,
												BgL_stringz00_40, BgL_arg1673z00_1683);
										}
										{	/* Cnst/alloc.scm 258 */
											obj_t BgL_arg1675z00_1684;

											{	/* Cnst/alloc.scm 258 */
												obj_t BgL_arg1678z00_1685;

												{	/* Cnst/alloc.scm 258 */
													obj_t BgL_arg1681z00_1686;
													obj_t BgL_arg1684z00_1687;

													{	/* Cnst/alloc.scm 258 */
														obj_t BgL_arg1686z00_1688;

														{	/* Cnst/alloc.scm 258 */
															obj_t BgL_arg1690z00_1689;
															obj_t BgL_arg1693z00_1690;

															BgL_arg1690z00_1689 =
																(((BgL_variablez00_bglt) COBJECT(
																		((BgL_variablez00_bglt) BgL_varz00_1681)))->
																BgL_idz00);
															BgL_arg1693z00_1690 =
																MAKE_YOUNG_PAIR((((BgL_globalz00_bglt)
																		COBJECT(BgL_varz00_1681))->BgL_modulez00),
																BNIL);
															BgL_arg1686z00_1688 =
																MAKE_YOUNG_PAIR(BgL_arg1690z00_1689,
																BgL_arg1693z00_1690);
														}
														BgL_arg1681z00_1686 =
															MAKE_YOUNG_PAIR(CNST_TABLE_REF(12L),
															BgL_arg1686z00_1688);
													}
													{	/* Cnst/alloc.scm 260 */
														BgL_nodez00_bglt BgL_arg1696z00_1692;

														{	/* Cnst/alloc.scm 260 */
															BgL_appz00_bglt BgL_arg1698z00_1693;
															BgL_typez00_bglt BgL_arg1706z00_1694;

															{	/* Cnst/alloc.scm 260 */
																BgL_appz00_bglt BgL_new1119z00_1695;

																{	/* Cnst/alloc.scm 267 */
																	BgL_appz00_bglt BgL_new1118z00_1700;

																	BgL_new1118z00_1700 =
																		((BgL_appz00_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_appz00_bgl))));
																	{	/* Cnst/alloc.scm 267 */
																		long BgL_arg1709z00_1701;

																		BgL_arg1709z00_1701 =
																			BGL_CLASS_NUM(BGl_appz00zzast_nodez00);
																		BGL_OBJECT_CLASS_NUM_SET(
																			((BgL_objectz00_bglt)
																				BgL_new1118z00_1700),
																			BgL_arg1709z00_1701);
																	}
																	{	/* Cnst/alloc.scm 267 */
																		BgL_objectz00_bglt BgL_tmpz00_3883;

																		BgL_tmpz00_3883 =
																			((BgL_objectz00_bglt)
																			BgL_new1118z00_1700);
																		BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3883,
																			BFALSE);
																	}
																	((BgL_objectz00_bglt) BgL_new1118z00_1700);
																	BgL_new1119z00_1695 = BgL_new1118z00_1700;
																}
																((((BgL_nodez00_bglt) COBJECT(
																				((BgL_nodez00_bglt)
																					BgL_new1119z00_1695)))->BgL_locz00) =
																	((obj_t) BgL_locz00_41), BUNSPEC);
																((((BgL_nodez00_bglt)
																			COBJECT(((BgL_nodez00_bglt)
																					BgL_new1119z00_1695)))->BgL_typez00) =
																	((BgL_typez00_bglt) ((BgL_typez00_bglt)
																			BGl_za2ucs2stringza2z00zztype_cachez00)),
																	BUNSPEC);
																((((BgL_nodezf2effectzf2_bglt)
																			COBJECT(((BgL_nodezf2effectzf2_bglt)
																					BgL_new1119z00_1695)))->
																		BgL_sidezd2effectzd2) =
																	((obj_t) BUNSPEC), BUNSPEC);
																((((BgL_nodezf2effectzf2_bglt)
																			COBJECT(((BgL_nodezf2effectzf2_bglt)
																					BgL_new1119z00_1695)))->BgL_keyz00) =
																	((obj_t) BINT(-1L)), BUNSPEC);
																{
																	BgL_varz00_bglt BgL_auxz00_3897;

																	{	/* Cnst/alloc.scm 263 */
																		BgL_refz00_bglt BgL_new1122z00_1696;

																		{	/* Cnst/alloc.scm 266 */
																			BgL_refz00_bglt BgL_new1120z00_1697;

																			BgL_new1120z00_1697 =
																				((BgL_refz00_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_refz00_bgl))));
																			{	/* Cnst/alloc.scm 266 */
																				long BgL_arg1707z00_1698;

																				{	/* Cnst/alloc.scm 266 */
																					obj_t BgL_classz00_2815;

																					BgL_classz00_2815 =
																						BGl_refz00zzast_nodez00;
																					BgL_arg1707z00_1698 =
																						BGL_CLASS_NUM(BgL_classz00_2815);
																				}
																				BGL_OBJECT_CLASS_NUM_SET(
																					((BgL_objectz00_bglt)
																						BgL_new1120z00_1697),
																					BgL_arg1707z00_1698);
																			}
																			{	/* Cnst/alloc.scm 266 */
																				BgL_objectz00_bglt BgL_tmpz00_3902;

																				BgL_tmpz00_3902 =
																					((BgL_objectz00_bglt)
																					BgL_new1120z00_1697);
																				BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3902,
																					BFALSE);
																			}
																			((BgL_objectz00_bglt)
																				BgL_new1120z00_1697);
																			BgL_new1122z00_1696 = BgL_new1120z00_1697;
																		}
																		((((BgL_nodez00_bglt) COBJECT(
																						((BgL_nodez00_bglt)
																							BgL_new1122z00_1696)))->
																				BgL_locz00) =
																			((obj_t) BgL_locz00_41), BUNSPEC);
																		((((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt)
																							BgL_new1122z00_1696)))->
																				BgL_typez00) =
																			((BgL_typez00_bglt) ((BgL_typez00_bglt)
																					BGl_za2ucs2stringza2z00zztype_cachez00)),
																			BUNSPEC);
																		((((BgL_varz00_bglt)
																					COBJECT(((BgL_varz00_bglt)
																							BgL_new1122z00_1696)))->
																				BgL_variablez00) =
																			((BgL_variablez00_bglt) (
																					(BgL_variablez00_bglt)
																					BGl_za2stringzd2ze3ucs2stringza2z31zzcnst_cachez00)),
																			BUNSPEC);
																		BgL_auxz00_3897 =
																			((BgL_varz00_bglt) BgL_new1122z00_1696);
																	}
																	((((BgL_appz00_bglt)
																				COBJECT(BgL_new1119z00_1695))->
																			BgL_funz00) =
																		((BgL_varz00_bglt) BgL_auxz00_3897),
																		BUNSPEC);
																}
																{
																	obj_t BgL_auxz00_3916;

																	{	/* Cnst/alloc.scm 267 */
																		obj_t BgL_list1708z00_1699;

																		BgL_list1708z00_1699 =
																			MAKE_YOUNG_PAIR(
																			((obj_t) BgL_vsz00_1682), BNIL);
																		BgL_auxz00_3916 = BgL_list1708z00_1699;
																	}
																	((((BgL_appz00_bglt)
																				COBJECT(BgL_new1119z00_1695))->
																			BgL_argsz00) =
																		((obj_t) BgL_auxz00_3916), BUNSPEC);
																}
																((((BgL_appz00_bglt)
																			COBJECT(BgL_new1119z00_1695))->
																		BgL_stackablez00) =
																	((obj_t) BFALSE), BUNSPEC);
																BgL_arg1698z00_1693 = BgL_new1119z00_1695;
															}
															BgL_arg1706z00_1694 =
																BGl_strictzd2nodezd2typez00zzast_nodez00(
																((BgL_typez00_bglt)
																	BGl_za2ucs2stringza2z00zztype_cachez00),
																((BgL_typez00_bglt)
																	BGl_za2objza2z00zztype_cachez00));
															BgL_arg1696z00_1692 =
																BGl_coercez12z12zzcoerce_coercez00((
																	(BgL_nodez00_bglt) BgL_arg1698z00_1693),
																((obj_t) BgL_varz00_1681), BgL_arg1706z00_1694,
																((bool_t) 0));
														}
														BgL_arg1684z00_1687 =
															MAKE_YOUNG_PAIR(
															((obj_t) BgL_arg1696z00_1692), BNIL);
													}
													BgL_arg1678z00_1685 =
														MAKE_YOUNG_PAIR(BgL_arg1681z00_1686,
														BgL_arg1684z00_1687);
												}
												BgL_arg1675z00_1684 =
													MAKE_YOUNG_PAIR(CNST_TABLE_REF(13L),
													BgL_arg1678z00_1685);
											}
											BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 =
												MAKE_YOUNG_PAIR(BgL_arg1675z00_1684,
												BGl_za2globalzd2sexpza2zd2zzcnst_allocz00);
										}
										{	/* Cnst/alloc.scm 271 */
											BgL_refz00_bglt BgL_new1124z00_1702;

											{	/* Cnst/alloc.scm 272 */
												BgL_refz00_bglt BgL_new1123z00_1703;

												BgL_new1123z00_1703 =
													((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																BgL_refz00_bgl))));
												{	/* Cnst/alloc.scm 272 */
													long BgL_arg1710z00_1704;

													BgL_arg1710z00_1704 =
														BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
													BGL_OBJECT_CLASS_NUM_SET(
														((BgL_objectz00_bglt) BgL_new1123z00_1703),
														BgL_arg1710z00_1704);
												}
												{	/* Cnst/alloc.scm 272 */
													BgL_objectz00_bglt BgL_tmpz00_3937;

													BgL_tmpz00_3937 =
														((BgL_objectz00_bglt) BgL_new1123z00_1703);
													BGL_OBJECT_WIDENING_SET(BgL_tmpz00_3937, BFALSE);
												}
												((BgL_objectz00_bglt) BgL_new1123z00_1703);
												BgL_new1124z00_1702 = BgL_new1123z00_1703;
											}
											((((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt) BgL_new1124z00_1702)))->
													BgL_locz00) = ((obj_t) BgL_locz00_41), BUNSPEC);
											((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																BgL_new1124z00_1702)))->BgL_typez00) =
												((BgL_typez00_bglt) (((BgL_variablez00_bglt)
															COBJECT(((BgL_variablez00_bglt)
																	BgL_varz00_1681)))->BgL_typez00)), BUNSPEC);
											((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																BgL_new1124z00_1702)))->BgL_variablez00) =
												((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
														BgL_varz00_1681)), BUNSPEC);
											BgL_auxz00_3851 = BgL_new1124z00_1702;
									}}
									return ((BgL_nodez00_bglt) BgL_auxz00_3851);
								}
							else
								{
									BgL_appz00_bglt BgL_auxz00_3951;

									{	/* Cnst/alloc.scm 276 */
										long BgL_offsetz00_1708;

										BgL_offsetz00_1708 =
											BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
										BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 =
											(1L + BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);
										BGl_za2globalzd2setza2zd2zzcnst_allocz00 =
											MAKE_YOUNG_PAIR(BgL_stringz00_40,
											BGl_za2globalzd2setza2zd2zzcnst_allocz00);
										{	/* Cnst/alloc.scm 279 */
											obj_t BgL_arg1717z00_1709;

											{	/* Cnst/alloc.scm 69 */
												obj_t BgL_newz00_2826;

												BgL_newz00_2826 =
													create_struct(CNST_TABLE_REF(9L), (int) (2L));
												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_auxz00_3959;
													int BgL_tmpz00_3957;

													BgL_auxz00_3959 = BINT(BgL_offsetz00_1708);
													BgL_tmpz00_3957 = (int) (1L);
													STRUCT_SET(BgL_newz00_2826, BgL_tmpz00_3957,
														BgL_auxz00_3959);
												}
												{	/* Cnst/alloc.scm 69 */
													int BgL_tmpz00_3962;

													BgL_tmpz00_3962 = (int) (0L);
													STRUCT_SET(BgL_newz00_2826, BgL_tmpz00_3962,
														BgL_stringz00_40);
												}
												BgL_arg1717z00_1709 = BgL_newz00_2826;
											}
											BGl_hashtablezd2putz12zc0zz__hashz00
												(BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00,
												BgL_stringz00_40, BgL_arg1717z00_1709);
										}
										BgL_auxz00_3951 =
											BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BINT
											(BgL_offsetz00_1708),
											BGl_za2ucs2stringza2z00zztype_cachez00, BgL_locz00_41);
									}
									return ((BgL_nodez00_bglt) BgL_auxz00_3951);
								}
						}
				}
			}
		}

	}



/* &cnst-alloc-ucs2-string */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2ucs2zd2stringzb0zzcnst_allocz00(obj_t
		BgL_envz00_3505, obj_t BgL_stringz00_3506, obj_t BgL_locz00_3507)
	{
		{	/* Cnst/alloc.scm 249 */
			return
				BGl_cnstzd2alloczd2ucs2zd2stringzd2zzcnst_allocz00(BgL_stringz00_3506,
				BgL_locz00_3507);
		}

	}



/* cnst-alloc-symbol */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2symbolz00zzcnst_allocz00(obj_t BgL_symbolz00_42,
		obj_t BgL_locz00_43)
	{
		{	/* Cnst/alloc.scm 301 */
			{

				{	/* Cnst/alloc.scm 332 */
					obj_t BgL_oldz00_1714;
					obj_t BgL_symbolzd2aszd2stringz00_1715;

					BgL_oldz00_1714 =
						BGl_hashtablezd2getzd2zz__hashz00
						(BGl_za2symbolzd2envza2zd2zzcnst_allocz00, BgL_symbolz00_42);
					{	/* Cnst/alloc.scm 333 */
						obj_t BgL_arg1454z00_2867;

						BgL_arg1454z00_2867 = SYMBOL_TO_STRING(BgL_symbolz00_42);
						BgL_symbolzd2aszd2stringz00_1715 =
							BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg1454z00_2867);
					}
					{	/* Cnst/alloc.scm 335 */
						bool_t BgL_test2464z00_3973;

						if (STRUCTP(BgL_oldz00_1714))
							{	/* Cnst/alloc.scm 69 */
								BgL_test2464z00_3973 =
									(STRUCT_KEY(BgL_oldz00_1714) == CNST_TABLE_REF(9L));
							}
						else
							{	/* Cnst/alloc.scm 69 */
								BgL_test2464z00_3973 = ((bool_t) 0);
							}
						if (BgL_test2464z00_3973)
							{	/* Cnst/alloc.scm 337 */
								bool_t BgL_test2466z00_3979;

								{	/* Cnst/alloc.scm 337 */
									obj_t BgL_arg1734z00_1726;

									BgL_arg1734z00_1726 = STRUCT_REF(BgL_oldz00_1714, (int) (1L));
									{	/* Cnst/alloc.scm 337 */
										obj_t BgL_classz00_2873;

										BgL_classz00_2873 = BGl_variablez00zzast_varz00;
										if (BGL_OBJECTP(BgL_arg1734z00_1726))
											{	/* Cnst/alloc.scm 337 */
												BgL_objectz00_bglt BgL_arg1801z00_2875;

												BgL_arg1801z00_2875 =
													(BgL_objectz00_bglt) (BgL_arg1734z00_1726);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* Cnst/alloc.scm 337 */
														long BgL_idxz00_2881;

														BgL_idxz00_2881 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2875);
														BgL_test2466z00_3979 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_2881 + 1L)) == BgL_classz00_2873);
													}
												else
													{	/* Cnst/alloc.scm 337 */
														bool_t BgL_res2392z00_2903;

														{	/* Cnst/alloc.scm 337 */
															obj_t BgL_oclassz00_2889;

															{	/* Cnst/alloc.scm 337 */
																long BgL_arg1808z00_2895;

																{	/* Cnst/alloc.scm 337 */
																	long BgL_arg1809z00_2896;

																	BgL_arg1809z00_2896 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2875);
																	BgL_arg1808z00_2895 =
																		(BgL_arg1809z00_2896 - OBJECT_TYPE);
																}
																BgL_oclassz00_2889 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_2895);
															}
															{	/* Cnst/alloc.scm 337 */
																bool_t BgL__ortest_1115z00_2890;

																BgL__ortest_1115z00_2890 =
																	(BgL_classz00_2873 == BgL_oclassz00_2889);
																if (BgL__ortest_1115z00_2890)
																	{	/* Cnst/alloc.scm 337 */
																		BgL_res2392z00_2903 =
																			BgL__ortest_1115z00_2890;
																	}
																else
																	{	/* Cnst/alloc.scm 337 */
																		long BgL_odepthz00_2891;

																		BgL_odepthz00_2891 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_2889);
																		if ((1L < BgL_odepthz00_2891))
																			{	/* Cnst/alloc.scm 337 */
																				obj_t BgL_arg1797z00_2893;

																				BgL_arg1797z00_2893 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_2889, 1L);
																				BgL_res2392z00_2903 =
																					(BgL_arg1797z00_2893 ==
																					BgL_classz00_2873);
																			}
																		else
																			{	/* Cnst/alloc.scm 337 */
																				BgL_res2392z00_2903 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2466z00_3979 = BgL_res2392z00_2903;
													}
											}
										else
											{	/* Cnst/alloc.scm 337 */
												BgL_test2466z00_3979 = ((bool_t) 0);
											}
									}
								}
								if (BgL_test2466z00_3979)
									{	/* Cnst/alloc.scm 338 */
										BgL_refz00_bglt BgL_new1137z00_1719;

										{	/* Cnst/alloc.scm 339 */
											BgL_refz00_bglt BgL_new1136z00_1720;

											BgL_new1136z00_1720 =
												((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
															BgL_refz00_bgl))));
											{	/* Cnst/alloc.scm 339 */
												long BgL_arg1731z00_1721;

												BgL_arg1731z00_1721 =
													BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
												BGL_OBJECT_CLASS_NUM_SET(
													((BgL_objectz00_bglt) BgL_new1136z00_1720),
													BgL_arg1731z00_1721);
											}
											{	/* Cnst/alloc.scm 339 */
												BgL_objectz00_bglt BgL_tmpz00_4005;

												BgL_tmpz00_4005 =
													((BgL_objectz00_bglt) BgL_new1136z00_1720);
												BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4005, BFALSE);
											}
											((BgL_objectz00_bglt) BgL_new1136z00_1720);
											BgL_new1137z00_1719 = BgL_new1136z00_1720;
										}
										((((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt) BgL_new1137z00_1719)))->
												BgL_locz00) = ((obj_t) BgL_locz00_43), BUNSPEC);
										((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
															BgL_new1137z00_1719)))->BgL_typez00) =
											((BgL_typez00_bglt) ((BgL_typez00_bglt)
													BGl_za2symbolza2z00zztype_cachez00)), BUNSPEC);
										((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
															BgL_new1137z00_1719)))->BgL_variablez00) =
											((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
													STRUCT_REF(BgL_oldz00_1714, (int) (1L)))), BUNSPEC);
										return ((BgL_nodez00_bglt) BgL_new1137z00_1719);
									}
								else
									{	/* Cnst/alloc.scm 337 */
										if (
											(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
												CNST_TABLE_REF(14L)))
											{	/* Cnst/alloc.scm 343 */
												BgL_refz00_bglt BgL_new1139z00_1722;

												{	/* Cnst/alloc.scm 344 */
													BgL_refz00_bglt BgL_new1138z00_1723;

													BgL_new1138z00_1723 =
														((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_refz00_bgl))));
													{	/* Cnst/alloc.scm 344 */
														long BgL_arg1732z00_1724;

														BgL_arg1732z00_1724 =
															BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt) BgL_new1138z00_1723),
															BgL_arg1732z00_1724);
													}
													{	/* Cnst/alloc.scm 344 */
														BgL_objectz00_bglt BgL_tmpz00_4027;

														BgL_tmpz00_4027 =
															((BgL_objectz00_bglt) BgL_new1138z00_1723);
														BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4027, BFALSE);
													}
													((BgL_objectz00_bglt) BgL_new1138z00_1723);
													BgL_new1139z00_1722 = BgL_new1138z00_1723;
												}
												((((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_new1139z00_1722)))->
														BgL_locz00) = ((obj_t) BgL_locz00_43), BUNSPEC);
												((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																	BgL_new1139z00_1722)))->BgL_typez00) =
													((BgL_typez00_bglt) ((BgL_typez00_bglt)
															BGl_za2symbolza2z00zztype_cachez00)), BUNSPEC);
												((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																	BgL_new1139z00_1722)))->BgL_variablez00) =
													((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
															STRUCT_REF(BgL_oldz00_1714, (int) (1L)))),
													BUNSPEC);
												return ((BgL_nodez00_bglt) BgL_new1139z00_1722);
											}
										else
											{	/* Cnst/alloc.scm 348 */
												obj_t BgL_arg1733z00_1725;

												BgL_arg1733z00_1725 =
													STRUCT_REF(BgL_oldz00_1714, (int) (1L));
												return
													((BgL_nodez00_bglt)
													BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00
													(BgL_arg1733z00_1725,
														BGl_za2symbolza2z00zztype_cachez00, BgL_locz00_43));
											}
									}
							}
						else
							{	/* Cnst/alloc.scm 335 */
								if (CBOOL(BgL_oldz00_1714))
									{	/* Cnst/alloc.scm 352 */
										obj_t BgL_arg1735z00_1727;

										BgL_arg1735z00_1727 =
											BGl_shapez00zztools_shapez00(BgL_oldz00_1714);
										return
											((BgL_nodez00_bglt)
											BGl_internalzd2errorzd2zztools_errorz00(CNST_TABLE_REF
												(17L), BGl_string2415z00zzcnst_allocz00,
												BgL_arg1735z00_1727));
									}
								else
									{	/* Cnst/alloc.scm 353 */
										bool_t BgL_test2473z00_4052;

										if (
											(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
												CNST_TABLE_REF(14L)))
											{	/* Cnst/alloc.scm 353 */
												BgL_test2473z00_4052 = ((bool_t) 1);
											}
										else
											{	/* Cnst/alloc.scm 353 */
												if (
													(STRING_LENGTH(BgL_symbolzd2aszd2stringz00_1715) ==
														0L))
													{	/* Cnst/alloc.scm 354 */
														BgL_test2473z00_4052 = ((bool_t) 1);
													}
												else
													{	/* Cnst/alloc.scm 354 */
														BgL_test2473z00_4052 =
															(STRING_REF(BgL_symbolzd2aszd2stringz00_1715,
																0L) == ((unsigned char) ';'));
											}}
										if (BgL_test2473z00_4052)
											{
												BgL_refz00_bglt BgL_auxz00_4061;

												{	/* Cnst/alloc.scm 303 */
													BgL_globalz00_bglt BgL_varz00_1737;
													BgL_nodez00_bglt BgL_vsz00_1738;

													{	/* Cnst/alloc.scm 303 */
														obj_t BgL_arg1798z00_1761;

														{	/* Cnst/alloc.scm 303 */
															obj_t BgL_arg1799z00_1762;

															BgL_arg1799z00_1762 =
																BGl_gensymz00zz__r4_symbols_6_4z00
																(CNST_TABLE_REF(15L));
															BgL_arg1798z00_1761 =
																BGl_makezd2typedzd2identz00zzast_identz00
																(BgL_arg1799z00_1762, CNST_TABLE_REF(15L));
														}
														BgL_varz00_1737 =
															BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2
															(BgL_arg1798z00_1761,
															BGl_za2moduleza2z00zzmodule_modulez00,
															CNST_TABLE_REF(16L), CNST_TABLE_REF(3L));
													}
													{	/* Cnst/alloc.scm 307 */
														obj_t BgL_arg1800z00_1763;

														{	/* Cnst/alloc.scm 307 */
															obj_t BgL_arg1454z00_2842;

															BgL_arg1454z00_2842 =
																SYMBOL_TO_STRING(BgL_symbolz00_42);
															BgL_arg1800z00_1763 =
																BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																(BgL_arg1454z00_2842);
														}
														BgL_vsz00_1738 =
															BGl_cnstzd2alloczd2stringz00zzcnst_allocz00
															(BgL_arg1800z00_1763, BgL_locz00_43);
													}
													{	/* Cnst/alloc.scm 308 */
														obj_t BgL_arg1748z00_1739;

														{	/* Cnst/alloc.scm 69 */
															obj_t BgL_newz00_2843;

															BgL_newz00_2843 =
																create_struct(CNST_TABLE_REF(9L), (int) (2L));
															{	/* Cnst/alloc.scm 69 */
																obj_t BgL_auxz00_4077;
																int BgL_tmpz00_4075;

																BgL_auxz00_4077 = ((obj_t) BgL_varz00_1737);
																BgL_tmpz00_4075 = (int) (1L);
																STRUCT_SET(BgL_newz00_2843, BgL_tmpz00_4075,
																	BgL_auxz00_4077);
															}
															{	/* Cnst/alloc.scm 69 */
																int BgL_tmpz00_4080;

																BgL_tmpz00_4080 = (int) (0L);
																STRUCT_SET(BgL_newz00_2843, BgL_tmpz00_4080,
																	BgL_symbolz00_42);
															}
															BgL_arg1748z00_1739 = BgL_newz00_2843;
														}
														BGl_hashtablezd2putz12zc0zz__hashz00
															(BGl_za2symbolzd2envza2zd2zzcnst_allocz00,
															BgL_symbolz00_42, BgL_arg1748z00_1739);
													}
													{	/* Cnst/alloc.scm 309 */
														obj_t BgL_arg1749z00_1740;

														{	/* Cnst/alloc.scm 309 */
															obj_t BgL_arg1750z00_1741;

															{	/* Cnst/alloc.scm 309 */
																obj_t BgL_arg1751z00_1742;
																obj_t BgL_arg1752z00_1743;

																{	/* Cnst/alloc.scm 309 */
																	obj_t BgL_arg1753z00_1744;

																	{	/* Cnst/alloc.scm 309 */
																		obj_t BgL_arg1759z00_1745;
																		obj_t BgL_arg1760z00_1746;

																		BgL_arg1759z00_1745 =
																			(((BgL_variablez00_bglt) COBJECT(
																					((BgL_variablez00_bglt)
																						BgL_varz00_1737)))->BgL_idz00);
																		BgL_arg1760z00_1746 =
																			MAKE_YOUNG_PAIR((((BgL_globalz00_bglt)
																					COBJECT(BgL_varz00_1737))->
																				BgL_modulez00), BNIL);
																		BgL_arg1753z00_1744 =
																			MAKE_YOUNG_PAIR(BgL_arg1759z00_1745,
																			BgL_arg1760z00_1746);
																	}
																	BgL_arg1751z00_1742 =
																		MAKE_YOUNG_PAIR(CNST_TABLE_REF(12L),
																		BgL_arg1753z00_1744);
																}
																{	/* Cnst/alloc.scm 311 */
																	BgL_nodez00_bglt BgL_arg1768z00_1748;

																	{	/* Cnst/alloc.scm 311 */
																		BgL_appz00_bglt BgL_arg1771z00_1749;
																		BgL_typez00_bglt BgL_arg1773z00_1750;

																		{	/* Cnst/alloc.scm 311 */
																			BgL_appz00_bglt BgL_new1129z00_1751;

																			{	/* Cnst/alloc.scm 318 */
																				BgL_appz00_bglt BgL_new1128z00_1756;

																				BgL_new1128z00_1756 =
																					((BgL_appz00_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_appz00_bgl))));
																				{	/* Cnst/alloc.scm 318 */
																					long BgL_arg1793z00_1757;

																					BgL_arg1793z00_1757 =
																						BGL_CLASS_NUM
																						(BGl_appz00zzast_nodez00);
																					BGL_OBJECT_CLASS_NUM_SET((
																							(BgL_objectz00_bglt)
																							BgL_new1128z00_1756),
																						BgL_arg1793z00_1757);
																				}
																				{	/* Cnst/alloc.scm 318 */
																					BgL_objectz00_bglt BgL_tmpz00_4095;

																					BgL_tmpz00_4095 =
																						((BgL_objectz00_bglt)
																						BgL_new1128z00_1756);
																					BGL_OBJECT_WIDENING_SET
																						(BgL_tmpz00_4095, BFALSE);
																				}
																				((BgL_objectz00_bglt)
																					BgL_new1128z00_1756);
																				BgL_new1129z00_1751 =
																					BgL_new1128z00_1756;
																			}
																			((((BgL_nodez00_bglt) COBJECT(
																							((BgL_nodez00_bglt)
																								BgL_new1129z00_1751)))->
																					BgL_locz00) =
																				((obj_t) BgL_locz00_43), BUNSPEC);
																			((((BgL_nodez00_bglt)
																						COBJECT(((BgL_nodez00_bglt)
																								BgL_new1129z00_1751)))->
																					BgL_typez00) =
																				((BgL_typez00_bglt) ((BgL_typez00_bglt)
																						BGl_za2symbolza2z00zztype_cachez00)),
																				BUNSPEC);
																			((((BgL_nodezf2effectzf2_bglt)
																						COBJECT(((BgL_nodezf2effectzf2_bglt)
																								BgL_new1129z00_1751)))->
																					BgL_sidezd2effectzd2) =
																				((obj_t) BUNSPEC), BUNSPEC);
																			((((BgL_nodezf2effectzf2_bglt)
																						COBJECT(((BgL_nodezf2effectzf2_bglt)
																								BgL_new1129z00_1751)))->
																					BgL_keyz00) =
																				((obj_t) BINT(-1L)), BUNSPEC);
																			{
																				BgL_varz00_bglt BgL_auxz00_4109;

																				{	/* Cnst/alloc.scm 314 */
																					BgL_refz00_bglt BgL_new1132z00_1752;

																					{	/* Cnst/alloc.scm 317 */
																						BgL_refz00_bglt BgL_new1131z00_1753;

																						BgL_new1131z00_1753 =
																							((BgL_refz00_bglt)
																							BOBJECT(GC_MALLOC(sizeof(struct
																										BgL_refz00_bgl))));
																						{	/* Cnst/alloc.scm 317 */
																							long BgL_arg1776z00_1754;

																							{	/* Cnst/alloc.scm 317 */
																								obj_t BgL_classz00_2852;

																								BgL_classz00_2852 =
																									BGl_refz00zzast_nodez00;
																								BgL_arg1776z00_1754 =
																									BGL_CLASS_NUM
																									(BgL_classz00_2852);
																							}
																							BGL_OBJECT_CLASS_NUM_SET(
																								((BgL_objectz00_bglt)
																									BgL_new1131z00_1753),
																								BgL_arg1776z00_1754);
																						}
																						{	/* Cnst/alloc.scm 317 */
																							BgL_objectz00_bglt
																								BgL_tmpz00_4114;
																							BgL_tmpz00_4114 =
																								((BgL_objectz00_bglt)
																								BgL_new1131z00_1753);
																							BGL_OBJECT_WIDENING_SET
																								(BgL_tmpz00_4114, BFALSE);
																						}
																						((BgL_objectz00_bglt)
																							BgL_new1131z00_1753);
																						BgL_new1132z00_1752 =
																							BgL_new1131z00_1753;
																					}
																					((((BgL_nodez00_bglt) COBJECT(
																									((BgL_nodez00_bglt)
																										BgL_new1132z00_1752)))->
																							BgL_locz00) =
																						((obj_t) BgL_locz00_43), BUNSPEC);
																					((((BgL_nodez00_bglt)
																								COBJECT(((BgL_nodez00_bglt)
																										BgL_new1132z00_1752)))->
																							BgL_typez00) =
																						((BgL_typez00_bglt) (
																								(BgL_typez00_bglt)
																								BGl_za2symbolza2z00zztype_cachez00)),
																						BUNSPEC);
																					((((BgL_varz00_bglt)
																								COBJECT(((BgL_varz00_bglt)
																										BgL_new1132z00_1752)))->
																							BgL_variablez00) =
																						((BgL_variablez00_bglt) (
																								(BgL_variablez00_bglt)
																								BGl_za2bstringzd2ze3symbolza2z31zzcnst_cachez00)),
																						BUNSPEC);
																					BgL_auxz00_4109 =
																						((BgL_varz00_bglt)
																						BgL_new1132z00_1752);
																				}
																				((((BgL_appz00_bglt)
																							COBJECT(BgL_new1129z00_1751))->
																						BgL_funz00) =
																					((BgL_varz00_bglt) BgL_auxz00_4109),
																					BUNSPEC);
																			}
																			{
																				obj_t BgL_auxz00_4128;

																				{	/* Cnst/alloc.scm 318 */
																					obj_t BgL_list1777z00_1755;

																					BgL_list1777z00_1755 =
																						MAKE_YOUNG_PAIR(
																						((obj_t) BgL_vsz00_1738), BNIL);
																					BgL_auxz00_4128 =
																						BgL_list1777z00_1755;
																				}
																				((((BgL_appz00_bglt)
																							COBJECT(BgL_new1129z00_1751))->
																						BgL_argsz00) =
																					((obj_t) BgL_auxz00_4128), BUNSPEC);
																			}
																			((((BgL_appz00_bglt)
																						COBJECT(BgL_new1129z00_1751))->
																					BgL_stackablez00) =
																				((obj_t) BFALSE), BUNSPEC);
																			BgL_arg1771z00_1749 = BgL_new1129z00_1751;
																		}
																		BgL_arg1773z00_1750 =
																			BGl_strictzd2nodezd2typez00zzast_nodez00(
																			((BgL_typez00_bglt)
																				BGl_za2symbolza2z00zztype_cachez00),
																			((BgL_typez00_bglt)
																				BGl_za2objza2z00zztype_cachez00));
																		BgL_arg1768z00_1748 =
																			BGl_coercez12z12zzcoerce_coercez00((
																				(BgL_nodez00_bglt) BgL_arg1771z00_1749),
																			((obj_t) BgL_varz00_1737),
																			BgL_arg1773z00_1750, ((bool_t) 0));
																	}
																	BgL_arg1752z00_1743 =
																		MAKE_YOUNG_PAIR(
																		((obj_t) BgL_arg1768z00_1748), BNIL);
																}
																BgL_arg1750z00_1741 =
																	MAKE_YOUNG_PAIR(BgL_arg1751z00_1742,
																	BgL_arg1752z00_1743);
															}
															BgL_arg1749z00_1740 =
																MAKE_YOUNG_PAIR(CNST_TABLE_REF(13L),
																BgL_arg1750z00_1741);
														}
														BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 =
															MAKE_YOUNG_PAIR(BgL_arg1749z00_1740,
															BGl_za2globalzd2sexpza2zd2zzcnst_allocz00);
													}
													{	/* Cnst/alloc.scm 322 */
														BgL_refz00_bglt BgL_new1135z00_1758;

														{	/* Cnst/alloc.scm 323 */
															BgL_refz00_bglt BgL_new1133z00_1759;

															BgL_new1133z00_1759 =
																((BgL_refz00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_refz00_bgl))));
															{	/* Cnst/alloc.scm 323 */
																long BgL_arg1794z00_1760;

																BgL_arg1794z00_1760 =
																	BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1133z00_1759),
																	BgL_arg1794z00_1760);
															}
															{	/* Cnst/alloc.scm 323 */
																BgL_objectz00_bglt BgL_tmpz00_4149;

																BgL_tmpz00_4149 =
																	((BgL_objectz00_bglt) BgL_new1133z00_1759);
																BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4149,
																	BFALSE);
															}
															((BgL_objectz00_bglt) BgL_new1133z00_1759);
															BgL_new1135z00_1758 = BgL_new1133z00_1759;
														}
														((((BgL_nodez00_bglt) COBJECT(
																		((BgL_nodez00_bglt) BgL_new1135z00_1758)))->
																BgL_locz00) = ((obj_t) BgL_locz00_43), BUNSPEC);
														((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																			BgL_new1135z00_1758)))->BgL_typez00) =
															((BgL_typez00_bglt) (((BgL_variablez00_bglt)
																		COBJECT(((BgL_variablez00_bglt)
																				BgL_varz00_1737)))->BgL_typez00)),
															BUNSPEC);
														((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																			BgL_new1135z00_1758)))->BgL_variablez00) =
															((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
																	BgL_varz00_1737)), BUNSPEC);
														BgL_auxz00_4061 = BgL_new1135z00_1758;
												}}
												return ((BgL_nodez00_bglt) BgL_auxz00_4061);
											}
										else
											{
												BgL_appz00_bglt BgL_auxz00_4163;

												{	/* Cnst/alloc.scm 327 */
													long BgL_offsetz00_1765;

													BgL_offsetz00_1765 =
														BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
													BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 =
														(1L + BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);
													BGl_za2globalzd2setza2zd2zzcnst_allocz00 =
														MAKE_YOUNG_PAIR(BgL_symbolz00_42,
														BGl_za2globalzd2setza2zd2zzcnst_allocz00);
													{	/* Cnst/alloc.scm 330 */
														obj_t BgL_arg1802z00_1766;

														{	/* Cnst/alloc.scm 69 */
															obj_t BgL_newz00_2863;

															BgL_newz00_2863 =
																create_struct(CNST_TABLE_REF(9L), (int) (2L));
															{	/* Cnst/alloc.scm 69 */
																obj_t BgL_auxz00_4171;
																int BgL_tmpz00_4169;

																BgL_auxz00_4171 = BINT(BgL_offsetz00_1765);
																BgL_tmpz00_4169 = (int) (1L);
																STRUCT_SET(BgL_newz00_2863, BgL_tmpz00_4169,
																	BgL_auxz00_4171);
															}
															{	/* Cnst/alloc.scm 69 */
																int BgL_tmpz00_4174;

																BgL_tmpz00_4174 = (int) (0L);
																STRUCT_SET(BgL_newz00_2863, BgL_tmpz00_4174,
																	BgL_symbolz00_42);
															}
															BgL_arg1802z00_1766 = BgL_newz00_2863;
														}
														BGl_hashtablezd2putz12zc0zz__hashz00
															(BGl_za2symbolzd2envza2zd2zzcnst_allocz00,
															BgL_symbolz00_42, BgL_arg1802z00_1766);
													}
													BgL_auxz00_4163 =
														BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BINT
														(BgL_offsetz00_1765),
														BGl_za2symbolza2z00zztype_cachez00, BgL_locz00_43);
												}
												return ((BgL_nodez00_bglt) BgL_auxz00_4163);
											}
									}
							}
					}
				}
			}
		}

	}



/* &cnst-alloc-symbol */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2symbolz62zzcnst_allocz00(obj_t
		BgL_envz00_3508, obj_t BgL_symbolz00_3509, obj_t BgL_locz00_3510)
	{
		{	/* Cnst/alloc.scm 301 */
			return
				BGl_cnstzd2alloczd2symbolz00zzcnst_allocz00(BgL_symbolz00_3509,
				BgL_locz00_3510);
		}

	}



/* cnst-alloc-keyword */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2keywordz00zzcnst_allocz00(obj_t BgL_keywordz00_44,
		obj_t BgL_locz00_45)
	{
		{	/* Cnst/alloc.scm 363 */
			{

				{	/* Cnst/alloc.scm 395 */
					obj_t BgL_oldz00_1771;
					obj_t BgL_keywordzd2aszd2stringz00_1772;

					BgL_oldz00_1771 =
						BGl_hashtablezd2getzd2zz__hashz00
						(BGl_za2keywordzd2envza2zd2zzcnst_allocz00, BgL_keywordz00_44);
					{	/* Cnst/alloc.scm 396 */
						obj_t BgL_arg1449z00_2946;

						BgL_arg1449z00_2946 = KEYWORD_TO_STRING(BgL_keywordz00_44);
						BgL_keywordzd2aszd2stringz00_1772 =
							BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg1449z00_2946);
					}
					if (CBOOL(BgL_oldz00_1771))
						{	/* Cnst/alloc.scm 398 */
							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{	/* Cnst/alloc.scm 400 */
									BgL_refz00_bglt BgL_new1147z00_1773;

									{	/* Cnst/alloc.scm 401 */
										BgL_refz00_bglt BgL_new1146z00_1774;

										BgL_new1146z00_1774 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 401 */
											long BgL_arg1816z00_1775;

											BgL_arg1816z00_1775 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1146z00_1774),
												BgL_arg1816z00_1775);
										}
										{	/* Cnst/alloc.scm 401 */
											BgL_objectz00_bglt BgL_tmpz00_4194;

											BgL_tmpz00_4194 =
												((BgL_objectz00_bglt) BgL_new1146z00_1774);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4194, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1146z00_1774);
										BgL_new1147z00_1773 = BgL_new1146z00_1774;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1147z00_1773)))->
											BgL_locz00) = ((obj_t) BgL_locz00_45), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1147z00_1773)))->BgL_typez00) =
										((BgL_typez00_bglt) ((BgL_typez00_bglt)
												BGl_za2keywordza2z00zztype_cachez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1147z00_1773)))->BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												STRUCT_REF(((obj_t) BgL_oldz00_1771), (int) (1L)))),
										BUNSPEC);
									return ((BgL_nodez00_bglt) BgL_new1147z00_1773);
								}
							else
								{	/* Cnst/alloc.scm 404 */
									obj_t BgL_arg1822z00_1776;

									BgL_arg1822z00_1776 =
										STRUCT_REF(((obj_t) BgL_oldz00_1771), (int) (1L));
									return
										((BgL_nodez00_bglt)
										BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00
										(BgL_arg1822z00_1776, BGl_za2keywordza2z00zztype_cachez00,
											BgL_locz00_45));
								}
						}
					else
						{	/* Cnst/alloc.scm 405 */
							bool_t BgL_test2478z00_4215;

							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{	/* Cnst/alloc.scm 405 */
									BgL_test2478z00_4215 = ((bool_t) 1);
								}
							else
								{	/* Cnst/alloc.scm 405 */
									if ((STRING_LENGTH(BgL_keywordzd2aszd2stringz00_1772) == 0L))
										{	/* Cnst/alloc.scm 406 */
											BgL_test2478z00_4215 = ((bool_t) 1);
										}
									else
										{	/* Cnst/alloc.scm 406 */
											BgL_test2478z00_4215 =
												(STRING_REF(BgL_keywordzd2aszd2stringz00_1772,
													0L) == ((unsigned char) ';'));
								}}
							if (BgL_test2478z00_4215)
								{
									BgL_refz00_bglt BgL_auxz00_4224;

									{	/* Cnst/alloc.scm 365 */
										BgL_globalz00_bglt BgL_varz00_1786;
										BgL_nodez00_bglt BgL_vsz00_1787;

										{	/* Cnst/alloc.scm 365 */
											obj_t BgL_arg1848z00_1810;

											{	/* Cnst/alloc.scm 365 */
												obj_t BgL_arg1850z00_1811;

												BgL_arg1850z00_1811 =
													BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF
													(18L));
												BgL_arg1848z00_1810 =
													BGl_makezd2typedzd2identz00zzast_identz00
													(BgL_arg1850z00_1811, CNST_TABLE_REF(18L));
											}
											BgL_varz00_1786 =
												BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2
												(BgL_arg1848z00_1810,
												BGl_za2moduleza2z00zzmodule_modulez00,
												CNST_TABLE_REF(19L), CNST_TABLE_REF(3L));
										}
										{	/* Cnst/alloc.scm 370 */
											obj_t BgL_arg1851z00_1812;

											{	/* Cnst/alloc.scm 370 */
												obj_t BgL_arg1449z00_2921;

												BgL_arg1449z00_2921 =
													KEYWORD_TO_STRING(BgL_keywordz00_44);
												BgL_arg1851z00_1812 =
													BGl_stringzd2copyzd2zz__r4_strings_6_7z00
													(BgL_arg1449z00_2921);
											}
											BgL_vsz00_1787 =
												BGl_cnstzd2alloczd2stringz00zzcnst_allocz00
												(BgL_arg1851z00_1812, BgL_locz00_45);
										}
										{	/* Cnst/alloc.scm 371 */
											obj_t BgL_arg1831z00_1788;

											{	/* Cnst/alloc.scm 69 */
												obj_t BgL_newz00_2922;

												BgL_newz00_2922 =
													create_struct(CNST_TABLE_REF(9L), (int) (2L));
												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_auxz00_4240;
													int BgL_tmpz00_4238;

													BgL_auxz00_4240 = ((obj_t) BgL_varz00_1786);
													BgL_tmpz00_4238 = (int) (1L);
													STRUCT_SET(BgL_newz00_2922, BgL_tmpz00_4238,
														BgL_auxz00_4240);
												}
												{	/* Cnst/alloc.scm 69 */
													int BgL_tmpz00_4243;

													BgL_tmpz00_4243 = (int) (0L);
													STRUCT_SET(BgL_newz00_2922, BgL_tmpz00_4243,
														BgL_keywordz00_44);
												}
												BgL_arg1831z00_1788 = BgL_newz00_2922;
											}
											BGl_hashtablezd2putz12zc0zz__hashz00
												(BGl_za2keywordzd2envza2zd2zzcnst_allocz00,
												BgL_keywordz00_44, BgL_arg1831z00_1788);
										}
										{	/* Cnst/alloc.scm 372 */
											obj_t BgL_arg1832z00_1789;

											{	/* Cnst/alloc.scm 372 */
												obj_t BgL_arg1833z00_1790;

												{	/* Cnst/alloc.scm 372 */
													obj_t BgL_arg1834z00_1791;
													obj_t BgL_arg1835z00_1792;

													{	/* Cnst/alloc.scm 372 */
														obj_t BgL_arg1836z00_1793;

														{	/* Cnst/alloc.scm 372 */
															obj_t BgL_arg1837z00_1794;
															obj_t BgL_arg1838z00_1795;

															BgL_arg1837z00_1794 =
																(((BgL_variablez00_bglt) COBJECT(
																		((BgL_variablez00_bglt) BgL_varz00_1786)))->
																BgL_idz00);
															BgL_arg1838z00_1795 =
																MAKE_YOUNG_PAIR((((BgL_globalz00_bglt)
																		COBJECT(BgL_varz00_1786))->BgL_modulez00),
																BNIL);
															BgL_arg1836z00_1793 =
																MAKE_YOUNG_PAIR(BgL_arg1837z00_1794,
																BgL_arg1838z00_1795);
														}
														BgL_arg1834z00_1791 =
															MAKE_YOUNG_PAIR(CNST_TABLE_REF(12L),
															BgL_arg1836z00_1793);
													}
													{	/* Cnst/alloc.scm 374 */
														BgL_nodez00_bglt BgL_arg1840z00_1797;

														{	/* Cnst/alloc.scm 374 */
															BgL_appz00_bglt BgL_arg1841z00_1798;
															BgL_typez00_bglt BgL_arg1842z00_1799;

															{	/* Cnst/alloc.scm 374 */
																BgL_appz00_bglt BgL_new1141z00_1800;

																{	/* Cnst/alloc.scm 381 */
																	BgL_appz00_bglt BgL_new1140z00_1805;

																	BgL_new1140z00_1805 =
																		((BgL_appz00_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_appz00_bgl))));
																	{	/* Cnst/alloc.scm 381 */
																		long BgL_arg1845z00_1806;

																		BgL_arg1845z00_1806 =
																			BGL_CLASS_NUM(BGl_appz00zzast_nodez00);
																		BGL_OBJECT_CLASS_NUM_SET(
																			((BgL_objectz00_bglt)
																				BgL_new1140z00_1805),
																			BgL_arg1845z00_1806);
																	}
																	{	/* Cnst/alloc.scm 381 */
																		BgL_objectz00_bglt BgL_tmpz00_4258;

																		BgL_tmpz00_4258 =
																			((BgL_objectz00_bglt)
																			BgL_new1140z00_1805);
																		BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4258,
																			BFALSE);
																	}
																	((BgL_objectz00_bglt) BgL_new1140z00_1805);
																	BgL_new1141z00_1800 = BgL_new1140z00_1805;
																}
																((((BgL_nodez00_bglt) COBJECT(
																				((BgL_nodez00_bglt)
																					BgL_new1141z00_1800)))->BgL_locz00) =
																	((obj_t) BgL_locz00_45), BUNSPEC);
																((((BgL_nodez00_bglt)
																			COBJECT(((BgL_nodez00_bglt)
																					BgL_new1141z00_1800)))->BgL_typez00) =
																	((BgL_typez00_bglt) ((BgL_typez00_bglt)
																			BGl_za2keywordza2z00zztype_cachez00)),
																	BUNSPEC);
																((((BgL_nodezf2effectzf2_bglt)
																			COBJECT(((BgL_nodezf2effectzf2_bglt)
																					BgL_new1141z00_1800)))->
																		BgL_sidezd2effectzd2) =
																	((obj_t) BUNSPEC), BUNSPEC);
																((((BgL_nodezf2effectzf2_bglt)
																			COBJECT(((BgL_nodezf2effectzf2_bglt)
																					BgL_new1141z00_1800)))->BgL_keyz00) =
																	((obj_t) BINT(-1L)), BUNSPEC);
																{
																	BgL_varz00_bglt BgL_auxz00_4272;

																	{	/* Cnst/alloc.scm 377 */
																		BgL_refz00_bglt BgL_new1143z00_1801;

																		{	/* Cnst/alloc.scm 380 */
																			BgL_refz00_bglt BgL_new1142z00_1802;

																			BgL_new1142z00_1802 =
																				((BgL_refz00_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_refz00_bgl))));
																			{	/* Cnst/alloc.scm 380 */
																				long BgL_arg1843z00_1803;

																				{	/* Cnst/alloc.scm 380 */
																					obj_t BgL_classz00_2931;

																					BgL_classz00_2931 =
																						BGl_refz00zzast_nodez00;
																					BgL_arg1843z00_1803 =
																						BGL_CLASS_NUM(BgL_classz00_2931);
																				}
																				BGL_OBJECT_CLASS_NUM_SET(
																					((BgL_objectz00_bglt)
																						BgL_new1142z00_1802),
																					BgL_arg1843z00_1803);
																			}
																			{	/* Cnst/alloc.scm 380 */
																				BgL_objectz00_bglt BgL_tmpz00_4277;

																				BgL_tmpz00_4277 =
																					((BgL_objectz00_bglt)
																					BgL_new1142z00_1802);
																				BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4277,
																					BFALSE);
																			}
																			((BgL_objectz00_bglt)
																				BgL_new1142z00_1802);
																			BgL_new1143z00_1801 = BgL_new1142z00_1802;
																		}
																		((((BgL_nodez00_bglt) COBJECT(
																						((BgL_nodez00_bglt)
																							BgL_new1143z00_1801)))->
																				BgL_locz00) =
																			((obj_t) BgL_locz00_45), BUNSPEC);
																		((((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt)
																							BgL_new1143z00_1801)))->
																				BgL_typez00) =
																			((BgL_typez00_bglt) ((BgL_typez00_bglt)
																					BGl_za2keywordza2z00zztype_cachez00)),
																			BUNSPEC);
																		((((BgL_varz00_bglt)
																					COBJECT(((BgL_varz00_bglt)
																							BgL_new1143z00_1801)))->
																				BgL_variablez00) =
																			((BgL_variablez00_bglt) (
																					(BgL_variablez00_bglt)
																					BGl_za2bstringzd2ze3keywordza2z31zzcnst_cachez00)),
																			BUNSPEC);
																		BgL_auxz00_4272 =
																			((BgL_varz00_bglt) BgL_new1143z00_1801);
																	}
																	((((BgL_appz00_bglt)
																				COBJECT(BgL_new1141z00_1800))->
																			BgL_funz00) =
																		((BgL_varz00_bglt) BgL_auxz00_4272),
																		BUNSPEC);
																}
																{
																	obj_t BgL_auxz00_4291;

																	{	/* Cnst/alloc.scm 381 */
																		obj_t BgL_list1844z00_1804;

																		BgL_list1844z00_1804 =
																			MAKE_YOUNG_PAIR(
																			((obj_t) BgL_vsz00_1787), BNIL);
																		BgL_auxz00_4291 = BgL_list1844z00_1804;
																	}
																	((((BgL_appz00_bglt)
																				COBJECT(BgL_new1141z00_1800))->
																			BgL_argsz00) =
																		((obj_t) BgL_auxz00_4291), BUNSPEC);
																}
																((((BgL_appz00_bglt)
																			COBJECT(BgL_new1141z00_1800))->
																		BgL_stackablez00) =
																	((obj_t) BFALSE), BUNSPEC);
																BgL_arg1841z00_1798 = BgL_new1141z00_1800;
															}
															BgL_arg1842z00_1799 =
																BGl_strictzd2nodezd2typez00zzast_nodez00(
																((BgL_typez00_bglt)
																	BGl_za2keywordza2z00zztype_cachez00),
																((BgL_typez00_bglt)
																	BGl_za2objza2z00zztype_cachez00));
															BgL_arg1840z00_1797 =
																BGl_coercez12z12zzcoerce_coercez00((
																	(BgL_nodez00_bglt) BgL_arg1841z00_1798),
																((obj_t) BgL_varz00_1786), BgL_arg1842z00_1799,
																((bool_t) 0));
														}
														BgL_arg1835z00_1792 =
															MAKE_YOUNG_PAIR(
															((obj_t) BgL_arg1840z00_1797), BNIL);
													}
													BgL_arg1833z00_1790 =
														MAKE_YOUNG_PAIR(BgL_arg1834z00_1791,
														BgL_arg1835z00_1792);
												}
												BgL_arg1832z00_1789 =
													MAKE_YOUNG_PAIR(CNST_TABLE_REF(13L),
													BgL_arg1833z00_1790);
											}
											BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 =
												MAKE_YOUNG_PAIR(BgL_arg1832z00_1789,
												BGl_za2globalzd2sexpza2zd2zzcnst_allocz00);
										}
										{	/* Cnst/alloc.scm 385 */
											BgL_refz00_bglt BgL_new1145z00_1807;

											{	/* Cnst/alloc.scm 386 */
												BgL_refz00_bglt BgL_new1144z00_1808;

												BgL_new1144z00_1808 =
													((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																BgL_refz00_bgl))));
												{	/* Cnst/alloc.scm 386 */
													long BgL_arg1846z00_1809;

													BgL_arg1846z00_1809 =
														BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
													BGL_OBJECT_CLASS_NUM_SET(
														((BgL_objectz00_bglt) BgL_new1144z00_1808),
														BgL_arg1846z00_1809);
												}
												{	/* Cnst/alloc.scm 386 */
													BgL_objectz00_bglt BgL_tmpz00_4312;

													BgL_tmpz00_4312 =
														((BgL_objectz00_bglt) BgL_new1144z00_1808);
													BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4312, BFALSE);
												}
												((BgL_objectz00_bglt) BgL_new1144z00_1808);
												BgL_new1145z00_1807 = BgL_new1144z00_1808;
											}
											((((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt) BgL_new1145z00_1807)))->
													BgL_locz00) = ((obj_t) BgL_locz00_45), BUNSPEC);
											((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																BgL_new1145z00_1807)))->BgL_typez00) =
												((BgL_typez00_bglt) (((BgL_variablez00_bglt)
															COBJECT(((BgL_variablez00_bglt)
																	BgL_varz00_1786)))->BgL_typez00)), BUNSPEC);
											((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																BgL_new1145z00_1807)))->BgL_variablez00) =
												((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
														BgL_varz00_1786)), BUNSPEC);
											BgL_auxz00_4224 = BgL_new1145z00_1807;
									}}
									return ((BgL_nodez00_bglt) BgL_auxz00_4224);
								}
							else
								{
									BgL_appz00_bglt BgL_auxz00_4326;

									{	/* Cnst/alloc.scm 390 */
										long BgL_offsetz00_1814;

										BgL_offsetz00_1814 =
											BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
										BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 =
											(1L + BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);
										BGl_za2globalzd2setza2zd2zzcnst_allocz00 =
											MAKE_YOUNG_PAIR(BgL_keywordz00_44,
											BGl_za2globalzd2setza2zd2zzcnst_allocz00);
										{	/* Cnst/alloc.scm 393 */
											obj_t BgL_arg1853z00_1815;

											{	/* Cnst/alloc.scm 69 */
												obj_t BgL_newz00_2942;

												BgL_newz00_2942 =
													create_struct(CNST_TABLE_REF(9L), (int) (2L));
												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_auxz00_4334;
													int BgL_tmpz00_4332;

													BgL_auxz00_4334 = BINT(BgL_offsetz00_1814);
													BgL_tmpz00_4332 = (int) (1L);
													STRUCT_SET(BgL_newz00_2942, BgL_tmpz00_4332,
														BgL_auxz00_4334);
												}
												{	/* Cnst/alloc.scm 69 */
													int BgL_tmpz00_4337;

													BgL_tmpz00_4337 = (int) (0L);
													STRUCT_SET(BgL_newz00_2942, BgL_tmpz00_4337,
														BgL_keywordz00_44);
												}
												BgL_arg1853z00_1815 = BgL_newz00_2942;
											}
											BGl_hashtablezd2putz12zc0zz__hashz00
												(BGl_za2keywordzd2envza2zd2zzcnst_allocz00,
												BgL_keywordz00_44, BgL_arg1853z00_1815);
										}
										BgL_auxz00_4326 =
											BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BINT
											(BgL_offsetz00_1814), BGl_za2keywordza2z00zztype_cachez00,
											BgL_locz00_45);
									}
									return ((BgL_nodez00_bglt) BgL_auxz00_4326);
								}
						}
				}
			}
		}

	}



/* &cnst-alloc-keyword */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2keywordz62zzcnst_allocz00(obj_t
		BgL_envz00_3511, obj_t BgL_keywordz00_3512, obj_t BgL_locz00_3513)
	{
		{	/* Cnst/alloc.scm 363 */
			return
				BGl_cnstzd2alloczd2keywordz00zzcnst_allocz00(BgL_keywordz00_3512,
				BgL_locz00_3513);
		}

	}



/* cnst-alloc-bignum */
	BGL_EXPORTED_DEF obj_t BGl_cnstzd2alloczd2bignumz00zzcnst_allocz00(obj_t
		BgL_bignumz00_46, obj_t BgL_locz00_47)
	{
		{	/* Cnst/alloc.scm 415 */
			{

				{	/* Cnst/alloc.scm 427 */
					obj_t BgL_oldz00_1820;
					obj_t BgL_bignumzd2aszd2stringz00_1821;

					BgL_oldz00_1820 =
						BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_bignumz00_46,
						BGl_za2bignumzd2envza2zd2zzcnst_allocz00);
					{	/* Cnst/alloc.scm 428 */

						BgL_bignumzd2aszd2stringz00_1821 =
							BGl_bignumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
							(BgL_bignumz00_46, 10L);
					}
					if (PAIRP(BgL_oldz00_1820))
						{	/* Cnst/alloc.scm 432 */
							bool_t BgL_test2482z00_4349;

							{	/* Cnst/alloc.scm 432 */
								obj_t BgL_arg1879z00_1842;

								BgL_arg1879z00_1842 =
									STRUCT_REF(CDR(BgL_oldz00_1820), (int) (1L));
								{	/* Cnst/alloc.scm 432 */
									obj_t BgL_classz00_2964;

									BgL_classz00_2964 = BGl_variablez00zzast_varz00;
									if (BGL_OBJECTP(BgL_arg1879z00_1842))
										{	/* Cnst/alloc.scm 432 */
											BgL_objectz00_bglt BgL_arg1801z00_2966;

											BgL_arg1801z00_2966 =
												(BgL_objectz00_bglt) (BgL_arg1879z00_1842);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Cnst/alloc.scm 432 */
													long BgL_idxz00_2972;

													BgL_idxz00_2972 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2966);
													BgL_test2482z00_4349 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_2972 + 1L)) == BgL_classz00_2964);
												}
											else
												{	/* Cnst/alloc.scm 432 */
													bool_t BgL_res2394z00_2994;

													{	/* Cnst/alloc.scm 432 */
														obj_t BgL_oclassz00_2980;

														{	/* Cnst/alloc.scm 432 */
															long BgL_arg1808z00_2986;

															{	/* Cnst/alloc.scm 432 */
																long BgL_arg1809z00_2987;

																BgL_arg1809z00_2987 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2966);
																BgL_arg1808z00_2986 =
																	(BgL_arg1809z00_2987 - OBJECT_TYPE);
															}
															BgL_oclassz00_2980 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_2986);
														}
														{	/* Cnst/alloc.scm 432 */
															bool_t BgL__ortest_1115z00_2981;

															BgL__ortest_1115z00_2981 =
																(BgL_classz00_2964 == BgL_oclassz00_2980);
															if (BgL__ortest_1115z00_2981)
																{	/* Cnst/alloc.scm 432 */
																	BgL_res2394z00_2994 =
																		BgL__ortest_1115z00_2981;
																}
															else
																{	/* Cnst/alloc.scm 432 */
																	long BgL_odepthz00_2982;

																	BgL_odepthz00_2982 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_2980);
																	if ((1L < BgL_odepthz00_2982))
																		{	/* Cnst/alloc.scm 432 */
																			obj_t BgL_arg1797z00_2984;

																			BgL_arg1797z00_2984 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_2980, 1L);
																			BgL_res2394z00_2994 =
																				(BgL_arg1797z00_2984 ==
																				BgL_classz00_2964);
																		}
																	else
																		{	/* Cnst/alloc.scm 432 */
																			BgL_res2394z00_2994 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2482z00_4349 = BgL_res2394z00_2994;
												}
										}
									else
										{	/* Cnst/alloc.scm 432 */
											BgL_test2482z00_4349 = ((bool_t) 0);
										}
								}
							}
							if (BgL_test2482z00_4349)
								{	/* Cnst/alloc.scm 433 */
									BgL_refz00_bglt BgL_new1149z00_1826;

									{	/* Cnst/alloc.scm 434 */
										BgL_refz00_bglt BgL_new1148z00_1831;

										BgL_new1148z00_1831 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 434 */
											long BgL_arg1867z00_1832;

											BgL_arg1867z00_1832 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1148z00_1831),
												BgL_arg1867z00_1832);
										}
										{	/* Cnst/alloc.scm 434 */
											BgL_objectz00_bglt BgL_tmpz00_4376;

											BgL_tmpz00_4376 =
												((BgL_objectz00_bglt) BgL_new1148z00_1831);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4376, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1148z00_1831);
										BgL_new1149z00_1826 = BgL_new1148z00_1831;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1149z00_1826)))->
											BgL_locz00) = ((obj_t) BgL_locz00_47), BUNSPEC);
									{
										BgL_typez00_bglt BgL_auxz00_4382;

										{	/* Cnst/alloc.scm 436 */
											BgL_typez00_bglt BgL_arg1860z00_1827;

											{
												BgL_variablez00_bglt BgL_auxz00_4384;

												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_sz00_3000;

													BgL_sz00_3000 = CDR(BgL_oldz00_1820);
													BgL_auxz00_4384 =
														((BgL_variablez00_bglt)
														STRUCT_REF(BgL_sz00_3000, (int) (1L)));
												}
												BgL_arg1860z00_1827 =
													(((BgL_variablez00_bglt) COBJECT(BgL_auxz00_4384))->
													BgL_typez00);
											}
											BgL_auxz00_4382 =
												BGl_strictzd2nodezd2typez00zzast_nodez00(
												((BgL_typez00_bglt) BGl_za2bignumza2z00zztype_cachez00),
												BgL_arg1860z00_1827);
										}
										((((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt) BgL_new1149z00_1826)))->
												BgL_typez00) =
											((BgL_typez00_bglt) BgL_auxz00_4382), BUNSPEC);
									}
									{
										BgL_variablez00_bglt BgL_auxz00_4393;

										{	/* Cnst/alloc.scm 69 */
											obj_t BgL_sz00_3003;

											BgL_sz00_3003 = CDR(BgL_oldz00_1820);
											BgL_auxz00_4393 =
												((BgL_variablez00_bglt)
												STRUCT_REF(BgL_sz00_3003, (int) (1L)));
										}
										((((BgL_varz00_bglt) COBJECT(
														((BgL_varz00_bglt) BgL_new1149z00_1826)))->
												BgL_variablez00) =
											((BgL_variablez00_bglt) BgL_auxz00_4393), BUNSPEC);
									}
									return ((obj_t) BgL_new1149z00_1826);
								}
							else
								{	/* Cnst/alloc.scm 432 */
									if (
										(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
											CNST_TABLE_REF(14L)))
										{	/* Cnst/alloc.scm 439 */
											BgL_refz00_bglt BgL_new1151z00_1833;

											{	/* Cnst/alloc.scm 440 */
												BgL_refz00_bglt BgL_new1150z00_1838;

												BgL_new1150z00_1838 =
													((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																BgL_refz00_bgl))));
												{	/* Cnst/alloc.scm 440 */
													long BgL_arg1875z00_1839;

													BgL_arg1875z00_1839 =
														BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
													BGL_OBJECT_CLASS_NUM_SET(
														((BgL_objectz00_bglt) BgL_new1150z00_1838),
														BgL_arg1875z00_1839);
												}
												{	/* Cnst/alloc.scm 440 */
													BgL_objectz00_bglt BgL_tmpz00_4408;

													BgL_tmpz00_4408 =
														((BgL_objectz00_bglt) BgL_new1150z00_1838);
													BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4408, BFALSE);
												}
												((BgL_objectz00_bglt) BgL_new1150z00_1838);
												BgL_new1151z00_1833 = BgL_new1150z00_1838;
											}
											((((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt) BgL_new1151z00_1833)))->
													BgL_locz00) = ((obj_t) BgL_locz00_47), BUNSPEC);
											{
												BgL_typez00_bglt BgL_auxz00_4414;

												{	/* Cnst/alloc.scm 442 */
													BgL_typez00_bglt BgL_arg1868z00_1834;

													{
														BgL_variablez00_bglt BgL_auxz00_4416;

														{	/* Cnst/alloc.scm 69 */
															obj_t BgL_sz00_3009;

															BgL_sz00_3009 = CDR(BgL_oldz00_1820);
															BgL_auxz00_4416 =
																((BgL_variablez00_bglt)
																STRUCT_REF(BgL_sz00_3009, (int) (1L)));
														}
														BgL_arg1868z00_1834 =
															(((BgL_variablez00_bglt)
																COBJECT(BgL_auxz00_4416))->BgL_typez00);
													}
													BgL_auxz00_4414 =
														BGl_strictzd2nodezd2typez00zzast_nodez00(
														((BgL_typez00_bglt)
															BGl_za2bignumza2z00zztype_cachez00),
														BgL_arg1868z00_1834);
												}
												((((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_new1151z00_1833)))->
														BgL_typez00) =
													((BgL_typez00_bglt) BgL_auxz00_4414), BUNSPEC);
											}
											{
												BgL_variablez00_bglt BgL_auxz00_4425;

												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_sz00_3012;

													BgL_sz00_3012 = CDR(BgL_oldz00_1820);
													BgL_auxz00_4425 =
														((BgL_variablez00_bglt)
														STRUCT_REF(BgL_sz00_3012, (int) (1L)));
												}
												((((BgL_varz00_bglt) COBJECT(
																((BgL_varz00_bglt) BgL_new1151z00_1833)))->
														BgL_variablez00) =
													((BgL_variablez00_bglt) BgL_auxz00_4425), BUNSPEC);
											}
											return ((obj_t) BgL_new1151z00_1833);
										}
									else
										{	/* Cnst/alloc.scm 445 */
											obj_t BgL_arg1876z00_1840;

											BgL_arg1876z00_1840 =
												STRUCT_REF(CDR(BgL_oldz00_1820), (int) (1L));
											return
												((obj_t)
												BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00
												(BgL_arg1876z00_1840,
													BGl_za2bignumza2z00zztype_cachez00, BgL_locz00_47));
										}
								}
						}
					else
						{	/* Cnst/alloc.scm 450 */
							bool_t BgL_test2488z00_4438;

							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{	/* Cnst/alloc.scm 450 */
									BgL_test2488z00_4438 = ((bool_t) 1);
								}
							else
								{	/* Cnst/alloc.scm 450 */
									if ((STRING_LENGTH(BgL_bignumzd2aszd2stringz00_1821) == 0L))
										{	/* Cnst/alloc.scm 451 */
											BgL_test2488z00_4438 = ((bool_t) 1);
										}
									else
										{	/* Cnst/alloc.scm 451 */
											BgL_test2488z00_4438 =
												(STRING_REF(BgL_bignumzd2aszd2stringz00_1821,
													0L) == ((unsigned char) ';'));
								}}
							if (BgL_test2488z00_4438)
								{	/* Cnst/alloc.scm 450 */
									return BFALSE;
								}
							else
								{
									BgL_appz00_bglt BgL_auxz00_4447;

									{	/* Cnst/alloc.scm 421 */
										long BgL_offsetz00_1860;

										BgL_offsetz00_1860 =
											BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
										BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 =
											(1L + BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);
										BGl_za2globalzd2setza2zd2zzcnst_allocz00 =
											MAKE_YOUNG_PAIR(BgL_bignumz00_46,
											BGl_za2globalzd2setza2zd2zzcnst_allocz00);
										{	/* Cnst/alloc.scm 424 */
											obj_t BgL_arg1895z00_1861;

											{	/* Cnst/alloc.scm 424 */
												obj_t BgL_arg1896z00_1862;

												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_newz00_2959;

													BgL_newz00_2959 =
														create_struct(CNST_TABLE_REF(9L), (int) (2L));
													{	/* Cnst/alloc.scm 69 */
														obj_t BgL_auxz00_4455;
														int BgL_tmpz00_4453;

														BgL_auxz00_4455 = BINT(BgL_offsetz00_1860);
														BgL_tmpz00_4453 = (int) (1L);
														STRUCT_SET(BgL_newz00_2959, BgL_tmpz00_4453,
															BgL_auxz00_4455);
													}
													{	/* Cnst/alloc.scm 69 */
														int BgL_tmpz00_4458;

														BgL_tmpz00_4458 = (int) (0L);
														STRUCT_SET(BgL_newz00_2959, BgL_tmpz00_4458,
															BgL_bignumz00_46);
													}
													BgL_arg1896z00_1862 = BgL_newz00_2959;
												}
												BgL_arg1895z00_1861 =
													MAKE_YOUNG_PAIR(BgL_bignumz00_46,
													BgL_arg1896z00_1862);
											}
											BGl_za2bignumzd2envza2zd2zzcnst_allocz00 =
												MAKE_YOUNG_PAIR(BgL_arg1895z00_1861,
												BGl_za2bignumzd2envza2zd2zzcnst_allocz00);
										}
										BgL_auxz00_4447 =
											BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BINT
											(BgL_offsetz00_1860), BGl_za2bignumza2z00zztype_cachez00,
											BgL_locz00_47);
									}
									return ((obj_t) BgL_auxz00_4447);
								}
						}
				}
			}
		}

	}



/* &cnst-alloc-bignum */
	obj_t BGl_z62cnstzd2alloczd2bignumz62zzcnst_allocz00(obj_t BgL_envz00_3514,
		obj_t BgL_bignumz00_3515, obj_t BgL_locz00_3516)
	{
		{	/* Cnst/alloc.scm 415 */
			return
				BGl_cnstzd2alloczd2bignumz00zzcnst_allocz00(BgL_bignumz00_3515,
				BgL_locz00_3516);
		}

	}



/* cnst-alloc-procedure */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2procedurez00zzcnst_allocz00(BgL_nodez00_bglt
		BgL_procedurez00_48, obj_t BgL_locz00_49)
	{
		{	/* Cnst/alloc.scm 460 */
			{	/* Cnst/alloc.scm 461 */
				BgL_globalz00_bglt BgL_varz00_1865;

				{	/* Cnst/alloc.scm 461 */
					obj_t BgL_arg1898z00_1869;

					{	/* Cnst/alloc.scm 461 */
						obj_t BgL_arg1899z00_1870;

						BgL_arg1899z00_1870 =
							BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(21L));
						BgL_arg1898z00_1869 =
							BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg1899z00_1870,
							CNST_TABLE_REF(22L));
					}
					BgL_varz00_1865 =
						BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
						(BgL_arg1898z00_1869, BGl_za2moduleza2z00zzmodule_modulez00,
						((obj_t) BgL_procedurez00_48), CNST_TABLE_REF(23L), BgL_locz00_49);
				}
				{	/* Cnst/alloc.scm 466 */
					BgL_refz00_bglt BgL_new1153z00_1866;

					{	/* Cnst/alloc.scm 467 */
						BgL_refz00_bglt BgL_new1152z00_1867;

						BgL_new1152z00_1867 =
							((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_refz00_bgl))));
						{	/* Cnst/alloc.scm 467 */
							long BgL_arg1897z00_1868;

							BgL_arg1897z00_1868 = BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1152z00_1867),
								BgL_arg1897z00_1868);
						}
						{	/* Cnst/alloc.scm 467 */
							BgL_objectz00_bglt BgL_tmpz00_4478;

							BgL_tmpz00_4478 = ((BgL_objectz00_bglt) BgL_new1152z00_1867);
							BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4478, BFALSE);
						}
						((BgL_objectz00_bglt) BgL_new1152z00_1867);
						BgL_new1153z00_1866 = BgL_new1152z00_1867;
					}
					((((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt) BgL_new1153z00_1866)))->BgL_locz00) =
						((obj_t) BgL_locz00_49), BUNSPEC);
					((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
										BgL_new1153z00_1866)))->BgL_typez00) =
						((BgL_typez00_bglt) (((BgL_variablez00_bglt)
									COBJECT(((BgL_variablez00_bglt) BgL_varz00_1865)))->
								BgL_typez00)), BUNSPEC);
					((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
										BgL_new1153z00_1866)))->BgL_variablez00) =
						((BgL_variablez00_bglt) ((BgL_variablez00_bglt) BgL_varz00_1865)),
						BUNSPEC);
					return ((BgL_nodez00_bglt) BgL_new1153z00_1866);
				}
			}
		}

	}



/* &cnst-alloc-procedure */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2procedurez62zzcnst_allocz00(obj_t
		BgL_envz00_3517, obj_t BgL_procedurez00_3518, obj_t BgL_locz00_3519)
	{
		{	/* Cnst/alloc.scm 460 */
			return
				BGl_cnstzd2alloczd2procedurez00zzcnst_allocz00(
				((BgL_nodez00_bglt) BgL_procedurez00_3518), BgL_locz00_3519);
		}

	}



/* cnst-alloc-l-procedure */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2lzd2procedurezd2zzcnst_allocz00(BgL_nodez00_bglt
		BgL_procedurez00_50, obj_t BgL_locz00_51)
	{
		{	/* Cnst/alloc.scm 474 */
			{	/* Cnst/alloc.scm 475 */
				BgL_globalz00_bglt BgL_varz00_1871;

				{	/* Cnst/alloc.scm 475 */
					obj_t BgL_arg1901z00_1875;

					{	/* Cnst/alloc.scm 475 */
						obj_t BgL_arg1905z00_1876;

						BgL_arg1905z00_1876 =
							BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(21L));
						BgL_arg1901z00_1875 =
							BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg1905z00_1876,
							CNST_TABLE_REF(22L));
					}
					BgL_varz00_1871 =
						BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
						(BgL_arg1901z00_1875, BGl_za2moduleza2z00zzmodule_modulez00,
						((obj_t) BgL_procedurez00_50), CNST_TABLE_REF(24L), BgL_locz00_51);
				}
				{	/* Cnst/alloc.scm 480 */
					BgL_refz00_bglt BgL_new1155z00_1872;

					{	/* Cnst/alloc.scm 481 */
						BgL_refz00_bglt BgL_new1154z00_1873;

						BgL_new1154z00_1873 =
							((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_refz00_bgl))));
						{	/* Cnst/alloc.scm 481 */
							long BgL_arg1900z00_1874;

							BgL_arg1900z00_1874 = BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1154z00_1873),
								BgL_arg1900z00_1874);
						}
						{	/* Cnst/alloc.scm 481 */
							BgL_objectz00_bglt BgL_tmpz00_4505;

							BgL_tmpz00_4505 = ((BgL_objectz00_bglt) BgL_new1154z00_1873);
							BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4505, BFALSE);
						}
						((BgL_objectz00_bglt) BgL_new1154z00_1873);
						BgL_new1155z00_1872 = BgL_new1154z00_1873;
					}
					((((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt) BgL_new1155z00_1872)))->BgL_locz00) =
						((obj_t) BgL_locz00_51), BUNSPEC);
					((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
										BgL_new1155z00_1872)))->BgL_typez00) =
						((BgL_typez00_bglt) (((BgL_variablez00_bglt)
									COBJECT(((BgL_variablez00_bglt) BgL_varz00_1871)))->
								BgL_typez00)), BUNSPEC);
					((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
										BgL_new1155z00_1872)))->BgL_variablez00) =
						((BgL_variablez00_bglt) ((BgL_variablez00_bglt) BgL_varz00_1871)),
						BUNSPEC);
					return ((BgL_nodez00_bglt) BgL_new1155z00_1872);
				}
			}
		}

	}



/* &cnst-alloc-l-procedure */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2lzd2procedurezb0zzcnst_allocz00(obj_t
		BgL_envz00_3520, obj_t BgL_procedurez00_3521, obj_t BgL_locz00_3522)
	{
		{	/* Cnst/alloc.scm 474 */
			return
				BGl_cnstzd2alloczd2lzd2procedurezd2zzcnst_allocz00(
				((BgL_nodez00_bglt) BgL_procedurez00_3521), BgL_locz00_3522);
		}

	}



/* cnst-alloc-real */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2realz00zzcnst_allocz00(obj_t BgL_realz00_52,
		obj_t BgL_locz00_53)
	{
		{	/* Cnst/alloc.scm 488 */
			{

				{	/* Cnst/alloc.scm 510 */
					obj_t BgL_oldz00_1879;

					{
						obj_t BgL_listz00_1893;

						BgL_listz00_1893 = BGl_za2realzd2envza2zd2zzcnst_allocz00;
					BgL_zc3z04anonymousza31918ze3z87_1894:
						if (NULLP(BgL_listz00_1893))
							{	/* Cnst/alloc.scm 503 */
								BgL_oldz00_1879 = BFALSE;
							}
						else
							{	/* Cnst/alloc.scm 505 */
								bool_t BgL_test2492z00_4523;

								{	/* Cnst/alloc.scm 505 */
									bool_t BgL_test2493z00_4524;

									{	/* Cnst/alloc.scm 505 */
										double BgL_tmpz00_4525;

										{	/* Cnst/alloc.scm 505 */
											obj_t BgL_pairz00_3037;

											BgL_pairz00_3037 = CAR(((obj_t) BgL_listz00_1893));
											BgL_tmpz00_4525 = REAL_TO_DOUBLE(CAR(BgL_pairz00_3037));
										}
										BgL_test2493z00_4524 =
											(BgL_tmpz00_4525 == REAL_TO_DOUBLE(BgL_realz00_52));
									}
									if (BgL_test2493z00_4524)
										{	/* Cnst/alloc.scm 506 */
											long BgL_tmpz00_4532;

											{	/* Cnst/alloc.scm 506 */
												double BgL_tmpz00_4533;

												{	/* Cnst/alloc.scm 506 */
													obj_t BgL_pairz00_3041;

													BgL_pairz00_3041 = CAR(((obj_t) BgL_listz00_1893));
													BgL_tmpz00_4533 =
														REAL_TO_DOUBLE(CAR(BgL_pairz00_3041));
												}
												BgL_tmpz00_4532 = BGL_SIGNBIT(BgL_tmpz00_4533);
											}
											BgL_test2492z00_4523 =
												(BgL_tmpz00_4532 ==
												BGL_SIGNBIT(REAL_TO_DOUBLE(BgL_realz00_52)));
										}
									else
										{	/* Cnst/alloc.scm 505 */
											BgL_test2492z00_4523 = ((bool_t) 0);
										}
								}
								if (BgL_test2492z00_4523)
									{	/* Cnst/alloc.scm 507 */
										obj_t BgL_pairz00_3047;

										BgL_pairz00_3047 = CAR(((obj_t) BgL_listz00_1893));
										BgL_oldz00_1879 = CDR(BgL_pairz00_3047);
									}
								else
									{
										obj_t BgL_listz00_4545;

										BgL_listz00_4545 = CDR(((obj_t) BgL_listz00_1893));
										BgL_listz00_1893 = BgL_listz00_4545;
										goto BgL_zc3z04anonymousza31918ze3z87_1894;
									}
							}
					}
					if (CBOOL(BgL_oldz00_1879))
						{	/* Cnst/alloc.scm 513 */
							BgL_refz00_bglt BgL_new1160z00_1880;

							{	/* Cnst/alloc.scm 514 */
								BgL_refz00_bglt BgL_new1159z00_1881;

								BgL_new1159z00_1881 =
									((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_refz00_bgl))));
								{	/* Cnst/alloc.scm 514 */
									long BgL_arg1908z00_1882;

									BgL_arg1908z00_1882 = BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1159z00_1881),
										BgL_arg1908z00_1882);
								}
								{	/* Cnst/alloc.scm 514 */
									BgL_objectz00_bglt BgL_tmpz00_4554;

									BgL_tmpz00_4554 = ((BgL_objectz00_bglt) BgL_new1159z00_1881);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4554, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1159z00_1881);
								BgL_new1160z00_1880 = BgL_new1159z00_1881;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1160z00_1880)))->BgL_locz00) =
								((obj_t) BgL_locz00_53), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1160z00_1880)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_variablez00_bglt)
											COBJECT(((BgL_variablez00_bglt) BgL_oldz00_1879)))->
										BgL_typez00)), BUNSPEC);
							((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
												BgL_new1160z00_1880)))->BgL_variablez00) =
								((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
										BgL_oldz00_1879)), BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1160z00_1880);
						}
					else
						{
							BgL_refz00_bglt BgL_auxz00_4568;

							{	/* Cnst/alloc.scm 490 */
								BgL_globalz00_bglt BgL_varz00_1884;

								{	/* Cnst/alloc.scm 490 */
									obj_t BgL_arg1915z00_1889;

									{	/* Cnst/alloc.scm 490 */
										obj_t BgL_arg1916z00_1890;

										BgL_arg1916z00_1890 =
											BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(25L));
										BgL_arg1915z00_1889 =
											BGl_makezd2typedzd2identz00zzast_identz00
											(BgL_arg1916z00_1890, CNST_TABLE_REF(25L));
									}
									BgL_varz00_1884 =
										BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
										(BgL_arg1915z00_1889, BGl_za2moduleza2z00zzmodule_modulez00,
										BgL_realz00_52, CNST_TABLE_REF(26L), BgL_locz00_53);
								}
								{	/* Cnst/alloc.scm 495 */
									obj_t BgL_arg1911z00_1885;

									BgL_arg1911z00_1885 =
										MAKE_YOUNG_PAIR(BgL_realz00_52, ((obj_t) BgL_varz00_1884));
									BGl_za2realzd2envza2zd2zzcnst_allocz00 =
										MAKE_YOUNG_PAIR(BgL_arg1911z00_1885,
										BGl_za2realzd2envza2zd2zzcnst_allocz00);
								}
								{	/* Cnst/alloc.scm 496 */
									BgL_refz00_bglt BgL_new1158z00_1886;

									{	/* Cnst/alloc.scm 497 */
										BgL_refz00_bglt BgL_new1156z00_1887;

										BgL_new1156z00_1887 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 497 */
											long BgL_arg1914z00_1888;

											BgL_arg1914z00_1888 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1156z00_1887),
												BgL_arg1914z00_1888);
										}
										{	/* Cnst/alloc.scm 497 */
											BgL_objectz00_bglt BgL_tmpz00_4582;

											BgL_tmpz00_4582 =
												((BgL_objectz00_bglt) BgL_new1156z00_1887);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4582, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1156z00_1887);
										BgL_new1158z00_1886 = BgL_new1156z00_1887;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1158z00_1886)))->
											BgL_locz00) = ((obj_t) BgL_locz00_53), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1158z00_1886)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_variablez00_bglt)
													COBJECT(((BgL_variablez00_bglt) BgL_varz00_1884)))->
												BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1158z00_1886)))->BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												BgL_varz00_1884)), BUNSPEC);
									BgL_auxz00_4568 = BgL_new1158z00_1886;
							}}
							return ((BgL_nodez00_bglt) BgL_auxz00_4568);
						}
				}
			}
		}

	}



/* &cnst-alloc-real */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2realz62zzcnst_allocz00(obj_t
		BgL_envz00_3523, obj_t BgL_realz00_3524, obj_t BgL_locz00_3525)
	{
		{	/* Cnst/alloc.scm 488 */
			return
				BGl_cnstzd2alloczd2realz00zzcnst_allocz00(BgL_realz00_3524,
				BgL_locz00_3525);
		}

	}



/* cnst-alloc-elong */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2elongz00zzcnst_allocz00(long BgL_elongz00_54,
		obj_t BgL_locz00_55)
	{
		{	/* Cnst/alloc.scm 523 */
			{

				{	/* Cnst/alloc.scm 544 */
					obj_t BgL_oldz00_1920;

					{
						obj_t BgL_listz00_1934;

						BgL_listz00_1934 = BGl_za2elongzd2envza2zd2zzcnst_allocz00;
					BgL_zc3z04anonymousza31946ze3z87_1935:
						if (NULLP(BgL_listz00_1934))
							{	/* Cnst/alloc.scm 538 */
								BgL_oldz00_1920 = BFALSE;
							}
						else
							{	/* Cnst/alloc.scm 540 */
								bool_t BgL_test2496z00_4599;

								{	/* Cnst/alloc.scm 540 */
									long BgL_n1z00_3061;

									{	/* Cnst/alloc.scm 540 */
										obj_t BgL_pairz00_3060;

										BgL_pairz00_3060 = CAR(((obj_t) BgL_listz00_1934));
										{	/* Cnst/alloc.scm 540 */
											obj_t BgL_tmpz00_4602;

											BgL_tmpz00_4602 = CAR(BgL_pairz00_3060);
											BgL_n1z00_3061 = BELONG_TO_LONG(BgL_tmpz00_4602);
									}}
									BgL_test2496z00_4599 = (BgL_n1z00_3061 == BgL_elongz00_54);
								}
								if (BgL_test2496z00_4599)
									{	/* Cnst/alloc.scm 541 */
										obj_t BgL_pairz00_3064;

										BgL_pairz00_3064 = CAR(((obj_t) BgL_listz00_1934));
										BgL_oldz00_1920 = CDR(BgL_pairz00_3064);
									}
								else
									{
										obj_t BgL_listz00_4609;

										BgL_listz00_4609 = CDR(((obj_t) BgL_listz00_1934));
										BgL_listz00_1934 = BgL_listz00_4609;
										goto BgL_zc3z04anonymousza31946ze3z87_1935;
									}
							}
					}
					if (CBOOL(BgL_oldz00_1920))
						{	/* Cnst/alloc.scm 547 */
							BgL_refz00_bglt BgL_new1164z00_1921;

							{	/* Cnst/alloc.scm 548 */
								BgL_refz00_bglt BgL_new1163z00_1922;

								BgL_new1163z00_1922 =
									((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_refz00_bgl))));
								{	/* Cnst/alloc.scm 548 */
									long BgL_arg1939z00_1923;

									BgL_arg1939z00_1923 = BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1163z00_1922),
										BgL_arg1939z00_1923);
								}
								{	/* Cnst/alloc.scm 548 */
									BgL_objectz00_bglt BgL_tmpz00_4618;

									BgL_tmpz00_4618 = ((BgL_objectz00_bglt) BgL_new1163z00_1922);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4618, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1163z00_1922);
								BgL_new1164z00_1921 = BgL_new1163z00_1922;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1164z00_1921)))->BgL_locz00) =
								((obj_t) BgL_locz00_55), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1164z00_1921)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_variablez00_bglt)
											COBJECT(((BgL_variablez00_bglt) BgL_oldz00_1920)))->
										BgL_typez00)), BUNSPEC);
							((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
												BgL_new1164z00_1921)))->BgL_variablez00) =
								((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
										BgL_oldz00_1920)), BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1164z00_1921);
						}
					else
						{
							BgL_refz00_bglt BgL_auxz00_4632;

							{	/* Cnst/alloc.scm 525 */
								BgL_globalz00_bglt BgL_varz00_1925;

								{	/* Cnst/alloc.scm 525 */
									obj_t BgL_arg1943z00_1930;

									{	/* Cnst/alloc.scm 525 */
										obj_t BgL_arg1944z00_1931;

										BgL_arg1944z00_1931 =
											BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(27L));
										BgL_arg1943z00_1930 =
											BGl_makezd2typedzd2identz00zzast_identz00
											(BgL_arg1944z00_1931, CNST_TABLE_REF(28L));
									}
									BgL_varz00_1925 =
										BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
										(BgL_arg1943z00_1930, BGl_za2moduleza2z00zzmodule_modulez00,
										make_belong(BgL_elongz00_54), CNST_TABLE_REF(29L),
										BgL_locz00_55);
								}
								{	/* Cnst/alloc.scm 530 */
									obj_t BgL_arg1941z00_1926;

									BgL_arg1941z00_1926 =
										MAKE_YOUNG_PAIR(make_belong(BgL_elongz00_54),
										((obj_t) BgL_varz00_1925));
									BGl_za2elongzd2envza2zd2zzcnst_allocz00 =
										MAKE_YOUNG_PAIR(BgL_arg1941z00_1926,
										BGl_za2elongzd2envza2zd2zzcnst_allocz00);
								}
								{	/* Cnst/alloc.scm 531 */
									BgL_refz00_bglt BgL_new1162z00_1927;

									{	/* Cnst/alloc.scm 532 */
										BgL_refz00_bglt BgL_new1161z00_1928;

										BgL_new1161z00_1928 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 532 */
											long BgL_arg1942z00_1929;

											BgL_arg1942z00_1929 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1161z00_1928),
												BgL_arg1942z00_1929);
										}
										{	/* Cnst/alloc.scm 532 */
											BgL_objectz00_bglt BgL_tmpz00_4648;

											BgL_tmpz00_4648 =
												((BgL_objectz00_bglt) BgL_new1161z00_1928);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4648, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1161z00_1928);
										BgL_new1162z00_1927 = BgL_new1161z00_1928;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1162z00_1927)))->
											BgL_locz00) = ((obj_t) BgL_locz00_55), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1162z00_1927)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_variablez00_bglt)
													COBJECT(((BgL_variablez00_bglt) BgL_varz00_1925)))->
												BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1162z00_1927)))->BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												BgL_varz00_1925)), BUNSPEC);
									BgL_auxz00_4632 = BgL_new1162z00_1927;
							}}
							return ((BgL_nodez00_bglt) BgL_auxz00_4632);
						}
				}
			}
		}

	}



/* &cnst-alloc-elong */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2elongz62zzcnst_allocz00(obj_t
		BgL_envz00_3526, obj_t BgL_elongz00_3527, obj_t BgL_locz00_3528)
	{
		{	/* Cnst/alloc.scm 523 */
			return
				BGl_cnstzd2alloczd2elongz00zzcnst_allocz00(BELONG_TO_LONG
				(BgL_elongz00_3527), BgL_locz00_3528);
		}

	}



/* cnst-alloc-llong */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2llongz00zzcnst_allocz00(BGL_LONGLONG_T BgL_llongz00_56,
		obj_t BgL_locz00_57)
	{
		{	/* Cnst/alloc.scm 557 */
			{

				{	/* Cnst/alloc.scm 578 */
					obj_t BgL_oldz00_1949;

					{
						obj_t BgL_listz00_1963;

						BgL_listz00_1963 = BGl_za2llongzd2envza2zd2zzcnst_allocz00;
					BgL_zc3z04anonymousza31962ze3z87_1964:
						if (NULLP(BgL_listz00_1963))
							{	/* Cnst/alloc.scm 572 */
								BgL_oldz00_1949 = BFALSE;
							}
						else
							{	/* Cnst/alloc.scm 574 */
								bool_t BgL_test2499z00_4666;

								{	/* Cnst/alloc.scm 574 */
									BGL_LONGLONG_T BgL_tmpz00_4667;

									{	/* Cnst/alloc.scm 574 */
										obj_t BgL_pairz00_3077;

										BgL_pairz00_3077 = CAR(((obj_t) BgL_listz00_1963));
										BgL_tmpz00_4667 = BLLONG_TO_LLONG(CAR(BgL_pairz00_3077));
									}
									BgL_test2499z00_4666 = (BgL_tmpz00_4667 == BgL_llongz00_56);
								}
								if (BgL_test2499z00_4666)
									{	/* Cnst/alloc.scm 575 */
										obj_t BgL_pairz00_3081;

										BgL_pairz00_3081 = CAR(((obj_t) BgL_listz00_1963));
										BgL_oldz00_1949 = CDR(BgL_pairz00_3081);
									}
								else
									{
										obj_t BgL_listz00_4676;

										BgL_listz00_4676 = CDR(((obj_t) BgL_listz00_1963));
										BgL_listz00_1963 = BgL_listz00_4676;
										goto BgL_zc3z04anonymousza31962ze3z87_1964;
									}
							}
					}
					if (CBOOL(BgL_oldz00_1949))
						{	/* Cnst/alloc.scm 581 */
							BgL_refz00_bglt BgL_new1168z00_1950;

							{	/* Cnst/alloc.scm 582 */
								BgL_refz00_bglt BgL_new1167z00_1951;

								BgL_new1167z00_1951 =
									((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_refz00_bgl))));
								{	/* Cnst/alloc.scm 582 */
									long BgL_arg1955z00_1952;

									BgL_arg1955z00_1952 = BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1167z00_1951),
										BgL_arg1955z00_1952);
								}
								{	/* Cnst/alloc.scm 582 */
									BgL_objectz00_bglt BgL_tmpz00_4685;

									BgL_tmpz00_4685 = ((BgL_objectz00_bglt) BgL_new1167z00_1951);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4685, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1167z00_1951);
								BgL_new1168z00_1950 = BgL_new1167z00_1951;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1168z00_1950)))->BgL_locz00) =
								((obj_t) BgL_locz00_57), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1168z00_1950)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_variablez00_bglt)
											COBJECT(((BgL_variablez00_bglt) BgL_oldz00_1949)))->
										BgL_typez00)), BUNSPEC);
							((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
												BgL_new1168z00_1950)))->BgL_variablez00) =
								((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
										BgL_oldz00_1949)), BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1168z00_1950);
						}
					else
						{
							BgL_refz00_bglt BgL_auxz00_4699;

							{	/* Cnst/alloc.scm 559 */
								BgL_globalz00_bglt BgL_varz00_1954;

								{	/* Cnst/alloc.scm 559 */
									obj_t BgL_arg1959z00_1959;

									{	/* Cnst/alloc.scm 559 */
										obj_t BgL_arg1960z00_1960;

										BgL_arg1960z00_1960 =
											BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(30L));
										BgL_arg1959z00_1959 =
											BGl_makezd2typedzd2identz00zzast_identz00
											(BgL_arg1960z00_1960, CNST_TABLE_REF(31L));
									}
									BgL_varz00_1954 =
										BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
										(BgL_arg1959z00_1959, BGl_za2moduleza2z00zzmodule_modulez00,
										make_bllong(BgL_llongz00_56), CNST_TABLE_REF(32L),
										BgL_locz00_57);
								}
								{	/* Cnst/alloc.scm 564 */
									obj_t BgL_arg1957z00_1955;

									BgL_arg1957z00_1955 =
										MAKE_YOUNG_PAIR(make_bllong(BgL_llongz00_56),
										((obj_t) BgL_varz00_1954));
									BGl_za2llongzd2envza2zd2zzcnst_allocz00 =
										MAKE_YOUNG_PAIR(BgL_arg1957z00_1955,
										BGl_za2llongzd2envza2zd2zzcnst_allocz00);
								}
								{	/* Cnst/alloc.scm 565 */
									BgL_refz00_bglt BgL_new1166z00_1956;

									{	/* Cnst/alloc.scm 566 */
										BgL_refz00_bglt BgL_new1165z00_1957;

										BgL_new1165z00_1957 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 566 */
											long BgL_arg1958z00_1958;

											BgL_arg1958z00_1958 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1165z00_1957),
												BgL_arg1958z00_1958);
										}
										{	/* Cnst/alloc.scm 566 */
											BgL_objectz00_bglt BgL_tmpz00_4715;

											BgL_tmpz00_4715 =
												((BgL_objectz00_bglt) BgL_new1165z00_1957);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4715, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1165z00_1957);
										BgL_new1166z00_1956 = BgL_new1165z00_1957;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1166z00_1956)))->
											BgL_locz00) = ((obj_t) BgL_locz00_57), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1166z00_1956)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_variablez00_bglt)
													COBJECT(((BgL_variablez00_bglt) BgL_varz00_1954)))->
												BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1166z00_1956)))->BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												BgL_varz00_1954)), BUNSPEC);
									BgL_auxz00_4699 = BgL_new1166z00_1956;
							}}
							return ((BgL_nodez00_bglt) BgL_auxz00_4699);
						}
				}
			}
		}

	}



/* &cnst-alloc-llong */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2llongz62zzcnst_allocz00(obj_t
		BgL_envz00_3529, obj_t BgL_llongz00_3530, obj_t BgL_locz00_3531)
	{
		{	/* Cnst/alloc.scm 557 */
			return
				BGl_cnstzd2alloczd2llongz00zzcnst_allocz00(BLLONG_TO_LLONG
				(BgL_llongz00_3530), BgL_locz00_3531);
		}

	}



/* cnst-alloc-int32 */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2int32z00zzcnst_allocz00(int32_t BgL_int32z00_58,
		obj_t BgL_locz00_59)
	{
		{	/* Cnst/alloc.scm 591 */
			{

				{	/* Cnst/alloc.scm 612 */
					obj_t BgL_oldz00_1978;

					{
						obj_t BgL_listz00_1992;

						BgL_listz00_1992 = BGl_za2int32zd2envza2zd2zzcnst_allocz00;
					BgL_zc3z04anonymousza31978ze3z87_1993:
						if (NULLP(BgL_listz00_1992))
							{	/* Cnst/alloc.scm 606 */
								BgL_oldz00_1978 = BFALSE;
							}
						else
							{	/* Cnst/alloc.scm 608 */
								bool_t BgL_test2502z00_4733;

								{	/* Cnst/alloc.scm 608 */
									obj_t BgL_arg1985z00_2000;

									{	/* Cnst/alloc.scm 608 */
										obj_t BgL_pairz00_3094;

										BgL_pairz00_3094 = CAR(((obj_t) BgL_listz00_1992));
										BgL_arg1985z00_2000 = CAR(BgL_pairz00_3094);
									}
									{	/* Cnst/alloc.scm 608 */
										int32_t BgL_n1z00_3095;

										BgL_n1z00_3095 = BGL_BINT32_TO_INT32(BgL_arg1985z00_2000);
										BgL_test2502z00_4733 = (BgL_n1z00_3095 == BgL_int32z00_58);
									}
								}
								if (BgL_test2502z00_4733)
									{	/* Cnst/alloc.scm 609 */
										obj_t BgL_pairz00_3098;

										BgL_pairz00_3098 = CAR(((obj_t) BgL_listz00_1992));
										BgL_oldz00_1978 = CDR(BgL_pairz00_3098);
									}
								else
									{
										obj_t BgL_listz00_4742;

										BgL_listz00_4742 = CDR(((obj_t) BgL_listz00_1992));
										BgL_listz00_1992 = BgL_listz00_4742;
										goto BgL_zc3z04anonymousza31978ze3z87_1993;
									}
							}
					}
					if (CBOOL(BgL_oldz00_1978))
						{	/* Cnst/alloc.scm 615 */
							BgL_refz00_bglt BgL_new1172z00_1979;

							{	/* Cnst/alloc.scm 616 */
								BgL_refz00_bglt BgL_new1171z00_1980;

								BgL_new1171z00_1980 =
									((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_refz00_bgl))));
								{	/* Cnst/alloc.scm 616 */
									long BgL_arg1971z00_1981;

									BgL_arg1971z00_1981 = BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1171z00_1980),
										BgL_arg1971z00_1981);
								}
								{	/* Cnst/alloc.scm 616 */
									BgL_objectz00_bglt BgL_tmpz00_4751;

									BgL_tmpz00_4751 = ((BgL_objectz00_bglt) BgL_new1171z00_1980);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4751, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1171z00_1980);
								BgL_new1172z00_1979 = BgL_new1171z00_1980;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1172z00_1979)))->BgL_locz00) =
								((obj_t) BgL_locz00_59), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1172z00_1979)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_variablez00_bglt)
											COBJECT(((BgL_variablez00_bglt) BgL_oldz00_1978)))->
										BgL_typez00)), BUNSPEC);
							((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
												BgL_new1172z00_1979)))->BgL_variablez00) =
								((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
										BgL_oldz00_1978)), BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1172z00_1979);
						}
					else
						{
							BgL_refz00_bglt BgL_auxz00_4765;

							{	/* Cnst/alloc.scm 593 */
								BgL_globalz00_bglt BgL_varz00_1983;

								{	/* Cnst/alloc.scm 593 */
									obj_t BgL_arg1975z00_1988;

									{	/* Cnst/alloc.scm 593 */
										obj_t BgL_arg1976z00_1989;

										BgL_arg1976z00_1989 =
											BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(33L));
										BgL_arg1975z00_1988 =
											BGl_makezd2typedzd2identz00zzast_identz00
											(BgL_arg1976z00_1989, CNST_TABLE_REF(34L));
									}
									BgL_varz00_1983 =
										BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
										(BgL_arg1975z00_1988, BGl_za2moduleza2z00zzmodule_modulez00,
										BGL_INT32_TO_BINT32(BgL_int32z00_58), CNST_TABLE_REF(35L),
										BgL_locz00_59);
								}
								{	/* Cnst/alloc.scm 598 */
									obj_t BgL_arg1973z00_1984;

									BgL_arg1973z00_1984 =
										MAKE_YOUNG_PAIR(BGL_INT32_TO_BINT32(BgL_int32z00_58),
										((obj_t) BgL_varz00_1983));
									BGl_za2int32zd2envza2zd2zzcnst_allocz00 =
										MAKE_YOUNG_PAIR(BgL_arg1973z00_1984,
										BGl_za2int32zd2envza2zd2zzcnst_allocz00);
								}
								{	/* Cnst/alloc.scm 599 */
									BgL_refz00_bglt BgL_new1170z00_1985;

									{	/* Cnst/alloc.scm 600 */
										BgL_refz00_bglt BgL_new1169z00_1986;

										BgL_new1169z00_1986 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 600 */
											long BgL_arg1974z00_1987;

											BgL_arg1974z00_1987 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1169z00_1986),
												BgL_arg1974z00_1987);
										}
										{	/* Cnst/alloc.scm 600 */
											BgL_objectz00_bglt BgL_tmpz00_4781;

											BgL_tmpz00_4781 =
												((BgL_objectz00_bglt) BgL_new1169z00_1986);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4781, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1169z00_1986);
										BgL_new1170z00_1985 = BgL_new1169z00_1986;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1170z00_1985)))->
											BgL_locz00) = ((obj_t) BgL_locz00_59), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1170z00_1985)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_variablez00_bglt)
													COBJECT(((BgL_variablez00_bglt) BgL_varz00_1983)))->
												BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1170z00_1985)))->BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												BgL_varz00_1983)), BUNSPEC);
									BgL_auxz00_4765 = BgL_new1170z00_1985;
							}}
							return ((BgL_nodez00_bglt) BgL_auxz00_4765);
						}
				}
			}
		}

	}



/* &cnst-alloc-int32 */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2int32z62zzcnst_allocz00(obj_t
		BgL_envz00_3532, obj_t BgL_int32z00_3533, obj_t BgL_locz00_3534)
	{
		{	/* Cnst/alloc.scm 591 */
			return
				BGl_cnstzd2alloczd2int32z00zzcnst_allocz00(BGL_BINT32_TO_INT32
				(BgL_int32z00_3533), BgL_locz00_3534);
		}

	}



/* cnst-alloc-uint32 */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2uint32z00zzcnst_allocz00(uint32_t BgL_uint32z00_60,
		obj_t BgL_locz00_61)
	{
		{	/* Cnst/alloc.scm 625 */
			{

				{	/* Cnst/alloc.scm 646 */
					obj_t BgL_oldz00_2007;

					{
						obj_t BgL_listz00_2021;

						BgL_listz00_2021 = BGl_za2uint32zd2envza2zd2zzcnst_allocz00;
					BgL_zc3z04anonymousza31994ze3z87_2022:
						if (NULLP(BgL_listz00_2021))
							{	/* Cnst/alloc.scm 640 */
								BgL_oldz00_2007 = BFALSE;
							}
						else
							{	/* Cnst/alloc.scm 642 */
								bool_t BgL_test2505z00_4799;

								{	/* Cnst/alloc.scm 642 */
									obj_t BgL_arg2001z00_2029;

									{	/* Cnst/alloc.scm 642 */
										obj_t BgL_pairz00_3111;

										BgL_pairz00_3111 = CAR(((obj_t) BgL_listz00_2021));
										BgL_arg2001z00_2029 = CAR(BgL_pairz00_3111);
									}
									{	/* Cnst/alloc.scm 642 */
										uint32_t BgL_n1z00_3112;

										BgL_n1z00_3112 = BGL_BUINT32_TO_UINT32(BgL_arg2001z00_2029);
										BgL_test2505z00_4799 = (BgL_n1z00_3112 == BgL_uint32z00_60);
									}
								}
								if (BgL_test2505z00_4799)
									{	/* Cnst/alloc.scm 643 */
										obj_t BgL_pairz00_3115;

										BgL_pairz00_3115 = CAR(((obj_t) BgL_listz00_2021));
										BgL_oldz00_2007 = CDR(BgL_pairz00_3115);
									}
								else
									{
										obj_t BgL_listz00_4808;

										BgL_listz00_4808 = CDR(((obj_t) BgL_listz00_2021));
										BgL_listz00_2021 = BgL_listz00_4808;
										goto BgL_zc3z04anonymousza31994ze3z87_2022;
									}
							}
					}
					if (CBOOL(BgL_oldz00_2007))
						{	/* Cnst/alloc.scm 649 */
							BgL_refz00_bglt BgL_new1176z00_2008;

							{	/* Cnst/alloc.scm 650 */
								BgL_refz00_bglt BgL_new1175z00_2009;

								BgL_new1175z00_2009 =
									((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_refz00_bgl))));
								{	/* Cnst/alloc.scm 650 */
									long BgL_arg1987z00_2010;

									BgL_arg1987z00_2010 = BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1175z00_2009),
										BgL_arg1987z00_2010);
								}
								{	/* Cnst/alloc.scm 650 */
									BgL_objectz00_bglt BgL_tmpz00_4817;

									BgL_tmpz00_4817 = ((BgL_objectz00_bglt) BgL_new1175z00_2009);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4817, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1175z00_2009);
								BgL_new1176z00_2008 = BgL_new1175z00_2009;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1176z00_2008)))->BgL_locz00) =
								((obj_t) BgL_locz00_61), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1176z00_2008)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_variablez00_bglt)
											COBJECT(((BgL_variablez00_bglt) BgL_oldz00_2007)))->
										BgL_typez00)), BUNSPEC);
							((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
												BgL_new1176z00_2008)))->BgL_variablez00) =
								((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
										BgL_oldz00_2007)), BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1176z00_2008);
						}
					else
						{
							BgL_refz00_bglt BgL_auxz00_4831;

							{	/* Cnst/alloc.scm 627 */
								BgL_globalz00_bglt BgL_varz00_2012;

								{	/* Cnst/alloc.scm 627 */
									obj_t BgL_arg1991z00_2017;

									{	/* Cnst/alloc.scm 627 */
										obj_t BgL_arg1992z00_2018;

										BgL_arg1992z00_2018 =
											BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(36L));
										BgL_arg1991z00_2017 =
											BGl_makezd2typedzd2identz00zzast_identz00
											(BgL_arg1992z00_2018, CNST_TABLE_REF(37L));
									}
									BgL_varz00_2012 =
										BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
										(BgL_arg1991z00_2017, BGl_za2moduleza2z00zzmodule_modulez00,
										BGL_UINT32_TO_BUINT32(BgL_uint32z00_60),
										CNST_TABLE_REF(38L), BgL_locz00_61);
								}
								{	/* Cnst/alloc.scm 632 */
									obj_t BgL_arg1989z00_2013;

									BgL_arg1989z00_2013 =
										MAKE_YOUNG_PAIR(BGL_UINT32_TO_BUINT32(BgL_uint32z00_60),
										((obj_t) BgL_varz00_2012));
									BGl_za2uint32zd2envza2zd2zzcnst_allocz00 =
										MAKE_YOUNG_PAIR(BgL_arg1989z00_2013,
										BGl_za2uint32zd2envza2zd2zzcnst_allocz00);
								}
								{	/* Cnst/alloc.scm 633 */
									BgL_refz00_bglt BgL_new1174z00_2014;

									{	/* Cnst/alloc.scm 634 */
										BgL_refz00_bglt BgL_new1173z00_2015;

										BgL_new1173z00_2015 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 634 */
											long BgL_arg1990z00_2016;

											BgL_arg1990z00_2016 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1173z00_2015),
												BgL_arg1990z00_2016);
										}
										{	/* Cnst/alloc.scm 634 */
											BgL_objectz00_bglt BgL_tmpz00_4847;

											BgL_tmpz00_4847 =
												((BgL_objectz00_bglt) BgL_new1173z00_2015);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4847, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1173z00_2015);
										BgL_new1174z00_2014 = BgL_new1173z00_2015;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1174z00_2014)))->
											BgL_locz00) = ((obj_t) BgL_locz00_61), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1174z00_2014)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_variablez00_bglt)
													COBJECT(((BgL_variablez00_bglt) BgL_varz00_2012)))->
												BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1174z00_2014)))->BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												BgL_varz00_2012)), BUNSPEC);
									BgL_auxz00_4831 = BgL_new1174z00_2014;
							}}
							return ((BgL_nodez00_bglt) BgL_auxz00_4831);
						}
				}
			}
		}

	}



/* &cnst-alloc-uint32 */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2uint32z62zzcnst_allocz00(obj_t
		BgL_envz00_3535, obj_t BgL_uint32z00_3536, obj_t BgL_locz00_3537)
	{
		{	/* Cnst/alloc.scm 625 */
			return
				BGl_cnstzd2alloczd2uint32z00zzcnst_allocz00(BGL_BUINT32_TO_UINT32
				(BgL_uint32z00_3536), BgL_locz00_3537);
		}

	}



/* cnst-alloc-int64 */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2int64z00zzcnst_allocz00(int64_t BgL_int64z00_62,
		obj_t BgL_locz00_63)
	{
		{	/* Cnst/alloc.scm 659 */
			{

				{	/* Cnst/alloc.scm 680 */
					obj_t BgL_oldz00_2036;

					{
						obj_t BgL_listz00_2050;

						BgL_listz00_2050 = BGl_za2int64zd2envza2zd2zzcnst_allocz00;
					BgL_zc3z04anonymousza32011ze3z87_2051:
						if (NULLP(BgL_listz00_2050))
							{	/* Cnst/alloc.scm 674 */
								BgL_oldz00_2036 = BFALSE;
							}
						else
							{	/* Cnst/alloc.scm 676 */
								bool_t BgL_test2508z00_4865;

								{	/* Cnst/alloc.scm 676 */
									obj_t BgL_arg2019z00_2058;

									{	/* Cnst/alloc.scm 676 */
										obj_t BgL_pairz00_3128;

										BgL_pairz00_3128 = CAR(((obj_t) BgL_listz00_2050));
										BgL_arg2019z00_2058 = CAR(BgL_pairz00_3128);
									}
									{	/* Cnst/alloc.scm 676 */
										int64_t BgL_n1z00_3129;

										BgL_n1z00_3129 = BGL_BINT64_TO_INT64(BgL_arg2019z00_2058);
										BgL_test2508z00_4865 = (BgL_n1z00_3129 == BgL_int64z00_62);
									}
								}
								if (BgL_test2508z00_4865)
									{	/* Cnst/alloc.scm 677 */
										obj_t BgL_pairz00_3132;

										BgL_pairz00_3132 = CAR(((obj_t) BgL_listz00_2050));
										BgL_oldz00_2036 = CDR(BgL_pairz00_3132);
									}
								else
									{
										obj_t BgL_listz00_4874;

										BgL_listz00_4874 = CDR(((obj_t) BgL_listz00_2050));
										BgL_listz00_2050 = BgL_listz00_4874;
										goto BgL_zc3z04anonymousza32011ze3z87_2051;
									}
							}
					}
					if (CBOOL(BgL_oldz00_2036))
						{	/* Cnst/alloc.scm 683 */
							BgL_refz00_bglt BgL_new1181z00_2037;

							{	/* Cnst/alloc.scm 684 */
								BgL_refz00_bglt BgL_new1180z00_2038;

								BgL_new1180z00_2038 =
									((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_refz00_bgl))));
								{	/* Cnst/alloc.scm 684 */
									long BgL_arg2003z00_2039;

									BgL_arg2003z00_2039 = BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1180z00_2038),
										BgL_arg2003z00_2039);
								}
								{	/* Cnst/alloc.scm 684 */
									BgL_objectz00_bglt BgL_tmpz00_4883;

									BgL_tmpz00_4883 = ((BgL_objectz00_bglt) BgL_new1180z00_2038);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4883, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1180z00_2038);
								BgL_new1181z00_2037 = BgL_new1180z00_2038;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1181z00_2037)))->BgL_locz00) =
								((obj_t) BgL_locz00_63), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1181z00_2037)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_variablez00_bglt)
											COBJECT(((BgL_variablez00_bglt) BgL_oldz00_2036)))->
										BgL_typez00)), BUNSPEC);
							((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
												BgL_new1181z00_2037)))->BgL_variablez00) =
								((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
										BgL_oldz00_2036)), BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1181z00_2037);
						}
					else
						{
							BgL_refz00_bglt BgL_auxz00_4897;

							{	/* Cnst/alloc.scm 661 */
								BgL_globalz00_bglt BgL_varz00_2041;

								{	/* Cnst/alloc.scm 661 */
									obj_t BgL_arg2008z00_2046;

									{	/* Cnst/alloc.scm 661 */
										obj_t BgL_arg2009z00_2047;

										BgL_arg2009z00_2047 =
											BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(39L));
										BgL_arg2008z00_2046 =
											BGl_makezd2typedzd2identz00zzast_identz00
											(BgL_arg2009z00_2047, CNST_TABLE_REF(40L));
									}
									BgL_varz00_2041 =
										BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
										(BgL_arg2008z00_2046, BGl_za2moduleza2z00zzmodule_modulez00,
										BGL_INT64_TO_BINT64(BgL_int64z00_62), CNST_TABLE_REF(41L),
										BgL_locz00_63);
								}
								{	/* Cnst/alloc.scm 666 */
									obj_t BgL_arg2006z00_2042;

									BgL_arg2006z00_2042 =
										MAKE_YOUNG_PAIR(BGL_INT64_TO_BINT64(BgL_int64z00_62),
										((obj_t) BgL_varz00_2041));
									BGl_za2int64zd2envza2zd2zzcnst_allocz00 =
										MAKE_YOUNG_PAIR(BgL_arg2006z00_2042,
										BGl_za2int64zd2envza2zd2zzcnst_allocz00);
								}
								{	/* Cnst/alloc.scm 667 */
									BgL_refz00_bglt BgL_new1179z00_2043;

									{	/* Cnst/alloc.scm 668 */
										BgL_refz00_bglt BgL_new1177z00_2044;

										BgL_new1177z00_2044 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 668 */
											long BgL_arg2007z00_2045;

											BgL_arg2007z00_2045 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1177z00_2044),
												BgL_arg2007z00_2045);
										}
										{	/* Cnst/alloc.scm 668 */
											BgL_objectz00_bglt BgL_tmpz00_4913;

											BgL_tmpz00_4913 =
												((BgL_objectz00_bglt) BgL_new1177z00_2044);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4913, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1177z00_2044);
										BgL_new1179z00_2043 = BgL_new1177z00_2044;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1179z00_2043)))->
											BgL_locz00) = ((obj_t) BgL_locz00_63), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1179z00_2043)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_variablez00_bglt)
													COBJECT(((BgL_variablez00_bglt) BgL_varz00_2041)))->
												BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1179z00_2043)))->BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												BgL_varz00_2041)), BUNSPEC);
									BgL_auxz00_4897 = BgL_new1179z00_2043;
							}}
							return ((BgL_nodez00_bglt) BgL_auxz00_4897);
						}
				}
			}
		}

	}



/* &cnst-alloc-int64 */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2int64z62zzcnst_allocz00(obj_t
		BgL_envz00_3538, obj_t BgL_int64z00_3539, obj_t BgL_locz00_3540)
	{
		{	/* Cnst/alloc.scm 659 */
			return
				BGl_cnstzd2alloczd2int64z00zzcnst_allocz00(BGL_BINT64_TO_INT64
				(BgL_int64z00_3539), BgL_locz00_3540);
		}

	}



/* cnst-alloc-uint64 */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2uint64z00zzcnst_allocz00(uint64_t BgL_uint64z00_64,
		obj_t BgL_locz00_65)
	{
		{	/* Cnst/alloc.scm 693 */
			{

				{	/* Cnst/alloc.scm 714 */
					obj_t BgL_oldz00_2065;

					{
						obj_t BgL_listz00_2079;

						BgL_listz00_2079 = BGl_za2uint64zd2envza2zd2zzcnst_allocz00;
					BgL_zc3z04anonymousza32030ze3z87_2080:
						if (NULLP(BgL_listz00_2079))
							{	/* Cnst/alloc.scm 708 */
								BgL_oldz00_2065 = BFALSE;
							}
						else
							{	/* Cnst/alloc.scm 710 */
								bool_t BgL_test2511z00_4931;

								{	/* Cnst/alloc.scm 710 */
									obj_t BgL_arg2038z00_2087;

									{	/* Cnst/alloc.scm 710 */
										obj_t BgL_pairz00_3145;

										BgL_pairz00_3145 = CAR(((obj_t) BgL_listz00_2079));
										BgL_arg2038z00_2087 = CAR(BgL_pairz00_3145);
									}
									{	/* Cnst/alloc.scm 710 */
										uint64_t BgL_n1z00_3146;

										BgL_n1z00_3146 = BGL_BINT64_TO_INT64(BgL_arg2038z00_2087);
										BgL_test2511z00_4931 = (BgL_n1z00_3146 == BgL_uint64z00_64);
									}
								}
								if (BgL_test2511z00_4931)
									{	/* Cnst/alloc.scm 711 */
										obj_t BgL_pairz00_3149;

										BgL_pairz00_3149 = CAR(((obj_t) BgL_listz00_2079));
										BgL_oldz00_2065 = CDR(BgL_pairz00_3149);
									}
								else
									{
										obj_t BgL_listz00_4940;

										BgL_listz00_4940 = CDR(((obj_t) BgL_listz00_2079));
										BgL_listz00_2079 = BgL_listz00_4940;
										goto BgL_zc3z04anonymousza32030ze3z87_2080;
									}
							}
					}
					if (CBOOL(BgL_oldz00_2065))
						{	/* Cnst/alloc.scm 717 */
							BgL_refz00_bglt BgL_new1186z00_2066;

							{	/* Cnst/alloc.scm 718 */
								BgL_refz00_bglt BgL_new1185z00_2067;

								BgL_new1185z00_2067 =
									((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_refz00_bgl))));
								{	/* Cnst/alloc.scm 718 */
									long BgL_arg2021z00_2068;

									BgL_arg2021z00_2068 = BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1185z00_2067),
										BgL_arg2021z00_2068);
								}
								{	/* Cnst/alloc.scm 718 */
									BgL_objectz00_bglt BgL_tmpz00_4949;

									BgL_tmpz00_4949 = ((BgL_objectz00_bglt) BgL_new1185z00_2067);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4949, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1185z00_2067);
								BgL_new1186z00_2066 = BgL_new1185z00_2067;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1186z00_2066)))->BgL_locz00) =
								((obj_t) BgL_locz00_65), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1186z00_2066)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_variablez00_bglt)
											COBJECT(((BgL_variablez00_bglt) BgL_oldz00_2065)))->
										BgL_typez00)), BUNSPEC);
							((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
												BgL_new1186z00_2066)))->BgL_variablez00) =
								((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
										BgL_oldz00_2065)), BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1186z00_2066);
						}
					else
						{
							BgL_refz00_bglt BgL_auxz00_4963;

							{	/* Cnst/alloc.scm 695 */
								BgL_globalz00_bglt BgL_varz00_2070;

								{	/* Cnst/alloc.scm 695 */
									obj_t BgL_arg2025z00_2075;

									{	/* Cnst/alloc.scm 695 */
										obj_t BgL_arg2028z00_2076;

										BgL_arg2028z00_2076 =
											BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(42L));
										BgL_arg2025z00_2075 =
											BGl_makezd2typedzd2identz00zzast_identz00
											(BgL_arg2028z00_2076, CNST_TABLE_REF(43L));
									}
									BgL_varz00_2070 =
										BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
										(BgL_arg2025z00_2075, BGl_za2moduleza2z00zzmodule_modulez00,
										BGL_UINT64_TO_BUINT64(BgL_uint64z00_64),
										CNST_TABLE_REF(44L), BgL_locz00_65);
								}
								{	/* Cnst/alloc.scm 700 */
									obj_t BgL_arg2023z00_2071;

									BgL_arg2023z00_2071 =
										MAKE_YOUNG_PAIR(BGL_UINT64_TO_BUINT64(BgL_uint64z00_64),
										((obj_t) BgL_varz00_2070));
									BGl_za2uint64zd2envza2zd2zzcnst_allocz00 =
										MAKE_YOUNG_PAIR(BgL_arg2023z00_2071,
										BGl_za2uint64zd2envza2zd2zzcnst_allocz00);
								}
								{	/* Cnst/alloc.scm 701 */
									BgL_refz00_bglt BgL_new1184z00_2072;

									{	/* Cnst/alloc.scm 702 */
										BgL_refz00_bglt BgL_new1182z00_2073;

										BgL_new1182z00_2073 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 702 */
											long BgL_arg2024z00_2074;

											BgL_arg2024z00_2074 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1182z00_2073),
												BgL_arg2024z00_2074);
										}
										{	/* Cnst/alloc.scm 702 */
											BgL_objectz00_bglt BgL_tmpz00_4979;

											BgL_tmpz00_4979 =
												((BgL_objectz00_bglt) BgL_new1182z00_2073);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4979, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1182z00_2073);
										BgL_new1184z00_2072 = BgL_new1182z00_2073;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1184z00_2072)))->
											BgL_locz00) = ((obj_t) BgL_locz00_65), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1184z00_2072)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_variablez00_bglt)
													COBJECT(((BgL_variablez00_bglt) BgL_varz00_2070)))->
												BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1184z00_2072)))->BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												BgL_varz00_2070)), BUNSPEC);
									BgL_auxz00_4963 = BgL_new1184z00_2072;
							}}
							return ((BgL_nodez00_bglt) BgL_auxz00_4963);
						}
				}
			}
		}

	}



/* &cnst-alloc-uint64 */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2uint64z62zzcnst_allocz00(obj_t
		BgL_envz00_3541, obj_t BgL_uint64z00_3542, obj_t BgL_locz00_3543)
	{
		{	/* Cnst/alloc.scm 693 */
			return
				BGl_cnstzd2alloczd2uint64z00zzcnst_allocz00(BGL_BINT64_TO_INT64
				(BgL_uint64z00_3542), BgL_locz00_3543);
		}

	}



/* cnst-alloc-list */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2listz00zzcnst_allocz00(obj_t BgL_pairz00_66,
		obj_t BgL_locz00_67)
	{
		{	/* Cnst/alloc.scm 727 */
			{

				{	/* Cnst/alloc.scm 777 */
					obj_t BgL_oldz00_2095;

					{	/* Cnst/alloc.scm 777 */
						obj_t BgL__andtest_1199z00_2102;

						BgL__andtest_1199z00_2102 =
							BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00;
						if (CBOOL(BgL__andtest_1199z00_2102))
							{
								obj_t BgL_envz00_2104;

								BgL_envz00_2104 = BGl_za2listzd2envza2zd2zzcnst_allocz00;
							BgL_zc3z04anonymousza32044ze3z87_2105:
								if (NULLP(BgL_envz00_2104))
									{	/* Cnst/alloc.scm 780 */
										BgL_oldz00_2095 = BFALSE;
									}
								else
									{	/* Cnst/alloc.scm 782 */
										bool_t BgL_test2515z00_4999;

										{	/* Cnst/alloc.scm 782 */
											obj_t BgL_arg2050z00_2111;

											{	/* Cnst/alloc.scm 69 */
												obj_t BgL_sz00_3196;

												BgL_sz00_3196 = CAR(((obj_t) BgL_envz00_2104));
												BgL_arg2050z00_2111 =
													STRUCT_REF(BgL_sz00_3196, (int) (0L));
											}
											BgL_test2515z00_4999 =
												BGl_cnstzd2equalzf3z21zzcnst_allocz00
												(BgL_arg2050z00_2111, BgL_pairz00_66);
										}
										if (BgL_test2515z00_4999)
											{	/* Cnst/alloc.scm 782 */
												BgL_oldz00_2095 = CAR(((obj_t) BgL_envz00_2104));
											}
										else
											{	/* Cnst/alloc.scm 785 */
												obj_t BgL_arg2049z00_2110;

												BgL_arg2049z00_2110 = CDR(((obj_t) BgL_envz00_2104));
												{
													obj_t BgL_envz00_5009;

													BgL_envz00_5009 = BgL_arg2049z00_2110;
													BgL_envz00_2104 = BgL_envz00_5009;
													goto BgL_zc3z04anonymousza32044ze3z87_2105;
												}
											}
									}
							}
						else
							{	/* Cnst/alloc.scm 777 */
								BgL_oldz00_2095 = BFALSE;
							}
					}
					if (CBOOL(BgL_oldz00_2095))
						{	/* Cnst/alloc.scm 787 */
							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{	/* Cnst/alloc.scm 789 */
									BgL_refz00_bglt BgL_new1203z00_2096;

									{	/* Cnst/alloc.scm 790 */
										BgL_refz00_bglt BgL_new1202z00_2099;

										BgL_new1202z00_2099 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 790 */
											long BgL_arg2042z00_2100;

											BgL_arg2042z00_2100 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1202z00_2099),
												BgL_arg2042z00_2100);
										}
										{	/* Cnst/alloc.scm 790 */
											BgL_objectz00_bglt BgL_tmpz00_5019;

											BgL_tmpz00_5019 =
												((BgL_objectz00_bglt) BgL_new1202z00_2099);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5019, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1202z00_2099);
										BgL_new1203z00_2096 = BgL_new1202z00_2099;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1203z00_2096)))->
											BgL_locz00) = ((obj_t) BgL_locz00_67), BUNSPEC);
									{
										BgL_typez00_bglt BgL_auxz00_5025;

										{	/* Cnst/alloc.scm 792 */
											BgL_typez00_bglt BgL_arg2040z00_2097;

											BgL_arg2040z00_2097 =
												(((BgL_variablez00_bglt) COBJECT(
														((BgL_variablez00_bglt)
															STRUCT_REF(
																((obj_t) BgL_oldz00_2095),
																(int) (1L)))))->BgL_typez00);
											BgL_auxz00_5025 =
												BGl_strictzd2nodezd2typez00zzast_nodez00(
												((BgL_typez00_bglt) BGl_za2pairza2z00zztype_cachez00),
												BgL_arg2040z00_2097);
										}
										((((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt) BgL_new1203z00_2096)))->
												BgL_typez00) =
											((BgL_typez00_bglt) BgL_auxz00_5025), BUNSPEC);
									}
									((((BgL_varz00_bglt) COBJECT(
													((BgL_varz00_bglt) BgL_new1203z00_2096)))->
											BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												STRUCT_REF(((obj_t) BgL_oldz00_2095), (int) (1L)))),
										BUNSPEC);
									return ((BgL_nodez00_bglt) BgL_new1203z00_2096);
								}
							else
								{	/* Cnst/alloc.scm 794 */
									obj_t BgL_arg2043z00_2101;

									BgL_arg2043z00_2101 =
										STRUCT_REF(((obj_t) BgL_oldz00_2095), (int) (1L));
									return
										((BgL_nodez00_bglt)
										BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00
										(BgL_arg2043z00_2101, BGl_za2pairza2z00zztype_cachez00,
											BgL_locz00_67));
								}
						}
					else
						{	/* Cnst/alloc.scm 787 */
							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{
									BgL_refz00_bglt BgL_auxz00_5050;

									{	/* Cnst/alloc.scm 757 */
										BgL_globalz00_bglt BgL_varz00_2150;

										{	/* Cnst/alloc.scm 757 */
											obj_t BgL_arg2093z00_2166;

											{	/* Cnst/alloc.scm 757 */
												obj_t BgL_arg2094z00_2167;

												BgL_arg2094z00_2167 =
													BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF
													(45L));
												BgL_arg2093z00_2166 =
													BGl_makezd2typedzd2identz00zzast_identz00
													(BgL_arg2094z00_2167, CNST_TABLE_REF(46L));
											}
											BgL_varz00_2150 =
												BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2
												(BgL_arg2093z00_2166,
												BGl_za2moduleza2z00zzmodule_modulez00,
												CNST_TABLE_REF(47L), CNST_TABLE_REF(3L));
										}
										if (CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
											{	/* Cnst/alloc.scm 762 */
												obj_t BgL_arg2078z00_2151;

												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_newz00_3181;

													BgL_newz00_3181 =
														create_struct(CNST_TABLE_REF(9L), (int) (2L));
													{	/* Cnst/alloc.scm 69 */
														obj_t BgL_auxz00_5065;
														int BgL_tmpz00_5063;

														BgL_auxz00_5065 = ((obj_t) BgL_varz00_2150);
														BgL_tmpz00_5063 = (int) (1L);
														STRUCT_SET(BgL_newz00_3181, BgL_tmpz00_5063,
															BgL_auxz00_5065);
													}
													{	/* Cnst/alloc.scm 69 */
														int BgL_tmpz00_5068;

														BgL_tmpz00_5068 = (int) (0L);
														STRUCT_SET(BgL_newz00_3181, BgL_tmpz00_5068,
															BgL_pairz00_66);
													}
													BgL_arg2078z00_2151 = BgL_newz00_3181;
												}
												BGl_za2listzd2envza2zd2zzcnst_allocz00 =
													MAKE_YOUNG_PAIR(BgL_arg2078z00_2151,
													BGl_za2listzd2envza2zd2zzcnst_allocz00);
											}
										else
											{	/* Cnst/alloc.scm 761 */
												BFALSE;
											}
										{	/* Cnst/alloc.scm 763 */
											obj_t BgL_arg2079z00_2152;

											{	/* Cnst/alloc.scm 763 */
												obj_t BgL_arg2080z00_2153;

												{	/* Cnst/alloc.scm 763 */
													obj_t BgL_arg2081z00_2154;
													obj_t BgL_arg2082z00_2155;

													{	/* Cnst/alloc.scm 763 */
														obj_t BgL_arg2083z00_2156;

														{	/* Cnst/alloc.scm 763 */
															obj_t BgL_arg2085z00_2157;
															obj_t BgL_arg2086z00_2158;

															BgL_arg2085z00_2157 =
																(((BgL_variablez00_bglt) COBJECT(
																		((BgL_variablez00_bglt) BgL_varz00_2150)))->
																BgL_idz00);
															BgL_arg2086z00_2158 =
																MAKE_YOUNG_PAIR((((BgL_globalz00_bglt)
																		COBJECT(BgL_varz00_2150))->BgL_modulez00),
																BNIL);
															BgL_arg2083z00_2156 =
																MAKE_YOUNG_PAIR(BgL_arg2085z00_2157,
																BgL_arg2086z00_2158);
														}
														BgL_arg2081z00_2154 =
															MAKE_YOUNG_PAIR(CNST_TABLE_REF(12L),
															BgL_arg2083z00_2156);
													}
													{	/* Cnst/alloc.scm 764 */
														BgL_nodez00_bglt BgL_arg2088z00_2160;

														{	/* Cnst/alloc.scm 764 */
															BgL_nodez00_bglt BgL_arg2089z00_2161;
															BgL_typez00_bglt BgL_arg2090z00_2162;

															BgL_arg2089z00_2161 =
																BGl_loopze70ze7zzcnst_allocz00(BgL_locz00_67,
																BgL_pairz00_66);
															BgL_arg2090z00_2162 =
																BGl_strictzd2nodezd2typez00zzast_nodez00((
																	(BgL_typez00_bglt)
																	BGl_za2pairza2z00zztype_cachez00),
																((BgL_typez00_bglt)
																	BGl_za2objza2z00zztype_cachez00));
															BgL_arg2088z00_2160 =
																BGl_coercez12z12zzcoerce_coercez00
																(BgL_arg2089z00_2161, ((obj_t) BgL_varz00_2150),
																BgL_arg2090z00_2162, ((bool_t) 0));
														}
														BgL_arg2082z00_2155 =
															MAKE_YOUNG_PAIR(
															((obj_t) BgL_arg2088z00_2160), BNIL);
													}
													BgL_arg2080z00_2153 =
														MAKE_YOUNG_PAIR(BgL_arg2081z00_2154,
														BgL_arg2082z00_2155);
												}
												BgL_arg2079z00_2152 =
													MAKE_YOUNG_PAIR(CNST_TABLE_REF(13L),
													BgL_arg2080z00_2153);
											}
											BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 =
												MAKE_YOUNG_PAIR(BgL_arg2079z00_2152,
												BGl_za2globalzd2sexpza2zd2zzcnst_allocz00);
										}
										{	/* Cnst/alloc.scm 766 */
											BgL_refz00_bglt BgL_new1198z00_2163;

											{	/* Cnst/alloc.scm 767 */
												BgL_refz00_bglt BgL_new1197z00_2164;

												BgL_new1197z00_2164 =
													((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																BgL_refz00_bgl))));
												{	/* Cnst/alloc.scm 767 */
													long BgL_arg2091z00_2165;

													BgL_arg2091z00_2165 =
														BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
													BGL_OBJECT_CLASS_NUM_SET(
														((BgL_objectz00_bglt) BgL_new1197z00_2164),
														BgL_arg2091z00_2165);
												}
												{	/* Cnst/alloc.scm 767 */
													BgL_objectz00_bglt BgL_tmpz00_5095;

													BgL_tmpz00_5095 =
														((BgL_objectz00_bglt) BgL_new1197z00_2164);
													BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5095, BFALSE);
												}
												((BgL_objectz00_bglt) BgL_new1197z00_2164);
												BgL_new1198z00_2163 = BgL_new1197z00_2164;
											}
											((((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt) BgL_new1198z00_2163)))->
													BgL_locz00) = ((obj_t) BgL_locz00_67), BUNSPEC);
											((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																BgL_new1198z00_2163)))->BgL_typez00) =
												((BgL_typez00_bglt) (((BgL_variablez00_bglt)
															COBJECT(((BgL_variablez00_bglt)
																	BgL_varz00_2150)))->BgL_typez00)), BUNSPEC);
											((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																BgL_new1198z00_2163)))->BgL_variablez00) =
												((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
														BgL_varz00_2150)), BUNSPEC);
											BgL_auxz00_5050 = BgL_new1198z00_2163;
									}}
									return ((BgL_nodez00_bglt) BgL_auxz00_5050);
								}
							else
								{
									BgL_appz00_bglt BgL_auxz00_5109;

									{	/* Cnst/alloc.scm 771 */
										long BgL_offsetz00_2169;

										BgL_offsetz00_2169 =
											BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
										BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 =
											(1L + BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);
										BGl_za2globalzd2setza2zd2zzcnst_allocz00 =
											MAKE_YOUNG_PAIR(BgL_pairz00_66,
											BGl_za2globalzd2setza2zd2zzcnst_allocz00);
										if (CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
											{	/* Cnst/alloc.scm 775 */
												obj_t BgL_arg2096z00_2170;

												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_newz00_3192;

													BgL_newz00_3192 =
														create_struct(CNST_TABLE_REF(9L), (int) (2L));
													{	/* Cnst/alloc.scm 69 */
														obj_t BgL_auxz00_5119;
														int BgL_tmpz00_5117;

														BgL_auxz00_5119 = BINT(BgL_offsetz00_2169);
														BgL_tmpz00_5117 = (int) (1L);
														STRUCT_SET(BgL_newz00_3192, BgL_tmpz00_5117,
															BgL_auxz00_5119);
													}
													{	/* Cnst/alloc.scm 69 */
														int BgL_tmpz00_5122;

														BgL_tmpz00_5122 = (int) (0L);
														STRUCT_SET(BgL_newz00_3192, BgL_tmpz00_5122,
															BgL_pairz00_66);
													}
													BgL_arg2096z00_2170 = BgL_newz00_3192;
												}
												BGl_za2listzd2envza2zd2zzcnst_allocz00 =
													MAKE_YOUNG_PAIR(BgL_arg2096z00_2170,
													BGl_za2listzd2envza2zd2zzcnst_allocz00);
											}
										else
											{	/* Cnst/alloc.scm 774 */
												BFALSE;
											}
										BgL_auxz00_5109 =
											BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BINT
											(BgL_offsetz00_2169), BGl_za2pairza2z00zztype_cachez00,
											BgL_locz00_67);
									}
									return ((BgL_nodez00_bglt) BgL_auxz00_5109);
								}
						}
				}
			}
		}

	}



/* loop~0 */
	BgL_nodez00_bglt BGl_loopze70ze7zzcnst_allocz00(obj_t BgL_locz00_3579,
		obj_t BgL_pairz00_2117)
	{
		{	/* Cnst/alloc.scm 729 */
			if (NULLP(BgL_pairz00_2117))
				{	/* Cnst/alloc.scm 732 */
					BgL_literalz00_bglt BgL_new1188z00_2120;

					{	/* Cnst/alloc.scm 733 */
						BgL_literalz00_bglt BgL_new1187z00_2122;

						BgL_new1187z00_2122 =
							((BgL_literalz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_literalz00_bgl))));
						{	/* Cnst/alloc.scm 733 */
							long BgL_arg2056z00_2123;

							BgL_arg2056z00_2123 = BGL_CLASS_NUM(BGl_literalz00zzast_nodez00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1187z00_2122),
								BgL_arg2056z00_2123);
						}
						{	/* Cnst/alloc.scm 733 */
							BgL_objectz00_bglt BgL_tmpz00_5135;

							BgL_tmpz00_5135 = ((BgL_objectz00_bglt) BgL_new1187z00_2122);
							BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5135, BFALSE);
						}
						((BgL_objectz00_bglt) BgL_new1187z00_2122);
						BgL_new1188z00_2120 = BgL_new1187z00_2122;
					}
					((((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt) BgL_new1188z00_2120)))->BgL_locz00) =
						((obj_t) BgL_locz00_3579), BUNSPEC);
					{
						BgL_typez00_bglt BgL_auxz00_5141;

						{	/* Cnst/alloc.scm 734 */
							BgL_typez00_bglt BgL_arg2055z00_2121;

							BgL_arg2055z00_2121 =
								BGl_getzd2typezd2atomz00zztype_typeofz00(BNIL);
							BgL_auxz00_5141 =
								BGl_strictzd2nodezd2typez00zzast_nodez00(BgL_arg2055z00_2121,
								((BgL_typez00_bglt) BGl_za2bnilza2z00zztype_cachez00));
						}
						((((BgL_nodez00_bglt) COBJECT(
										((BgL_nodez00_bglt) BgL_new1188z00_2120)))->BgL_typez00) =
							((BgL_typez00_bglt) BgL_auxz00_5141), BUNSPEC);
					}
					((((BgL_atomz00_bglt) COBJECT(
									((BgL_atomz00_bglt) BgL_new1188z00_2120)))->BgL_valuez00) =
						((obj_t) BNIL), BUNSPEC);
					return ((BgL_nodez00_bglt) BgL_new1188z00_2120);
				}
			else
				{	/* Cnst/alloc.scm 731 */
					if (PAIRP(BgL_pairz00_2117))
						{	/* Cnst/alloc.scm 742 */
							BgL_appz00_bglt BgL_new1192z00_2125;

							{	/* Cnst/alloc.scm 743 */
								BgL_appz00_bglt BgL_new1191z00_2141;

								BgL_new1191z00_2141 =
									((BgL_appz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_appz00_bgl))));
								{	/* Cnst/alloc.scm 743 */
									long BgL_arg2072z00_2142;

									BgL_arg2072z00_2142 = BGL_CLASS_NUM(BGl_appz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1191z00_2141),
										BgL_arg2072z00_2142);
								}
								{	/* Cnst/alloc.scm 743 */
									BgL_objectz00_bglt BgL_tmpz00_5156;

									BgL_tmpz00_5156 = ((BgL_objectz00_bglt) BgL_new1191z00_2141);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5156, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1191z00_2141);
								BgL_new1192z00_2125 = BgL_new1191z00_2141;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1192z00_2125)))->BgL_locz00) =
								((obj_t) BgL_locz00_3579), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1192z00_2125)))->BgL_typez00) =
								((BgL_typez00_bglt) ((BgL_typez00_bglt)
										BGl_za2pairza2z00zztype_cachez00)), BUNSPEC);
							((((BgL_nodezf2effectzf2_bglt)
										COBJECT(((BgL_nodezf2effectzf2_bglt)
												BgL_new1192z00_2125)))->BgL_sidezd2effectzd2) =
								((obj_t) BUNSPEC), BUNSPEC);
							((((BgL_nodezf2effectzf2_bglt)
										COBJECT(((BgL_nodezf2effectzf2_bglt)
												BgL_new1192z00_2125)))->BgL_keyz00) =
								((obj_t) BINT(-1L)), BUNSPEC);
							{
								BgL_varz00_bglt BgL_auxz00_5170;

								{	/* Cnst/alloc.scm 745 */
									BgL_refz00_bglt BgL_new1194z00_2126;

									{	/* Cnst/alloc.scm 746 */
										BgL_refz00_bglt BgL_new1193z00_2127;

										BgL_new1193z00_2127 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 746 */
											long BgL_arg2058z00_2128;

											{	/* Cnst/alloc.scm 746 */
												obj_t BgL_classz00_3164;

												BgL_classz00_3164 = BGl_refz00zzast_nodez00;
												BgL_arg2058z00_2128 = BGL_CLASS_NUM(BgL_classz00_3164);
											}
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1193z00_2127),
												BgL_arg2058z00_2128);
										}
										{	/* Cnst/alloc.scm 746 */
											BgL_objectz00_bglt BgL_tmpz00_5175;

											BgL_tmpz00_5175 =
												((BgL_objectz00_bglt) BgL_new1193z00_2127);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5175, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1193z00_2127);
										BgL_new1194z00_2126 = BgL_new1193z00_2127;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1194z00_2126)))->
											BgL_locz00) = ((obj_t) BgL_locz00_3579), BUNSPEC);
									{
										BgL_typez00_bglt BgL_auxz00_5181;

										{	/* Cnst/alloc.scm 747 */
											BgL_variablez00_bglt BgL_oz00_3168;

											BgL_oz00_3168 =
												((BgL_variablez00_bglt)
												BGl_za2consza2z00zzcnst_cachez00);
											BgL_auxz00_5181 =
												(((BgL_variablez00_bglt) COBJECT(BgL_oz00_3168))->
												BgL_typez00);
										}
										((((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt) BgL_new1194z00_2126)))->
												BgL_typez00) =
											((BgL_typez00_bglt) BgL_auxz00_5181), BUNSPEC);
									}
									((((BgL_varz00_bglt) COBJECT(
													((BgL_varz00_bglt) BgL_new1194z00_2126)))->
											BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												BGl_za2consza2z00zzcnst_cachez00)), BUNSPEC);
									BgL_auxz00_5170 = ((BgL_varz00_bglt) BgL_new1194z00_2126);
								}
								((((BgL_appz00_bglt) COBJECT(BgL_new1192z00_2125))->
										BgL_funz00) = ((BgL_varz00_bglt) BgL_auxz00_5170), BUNSPEC);
							}
							{
								obj_t BgL_auxz00_5191;

								{	/* Cnst/alloc.scm 749 */
									BgL_nodez00_bglt BgL_arg2059z00_2129;
									BgL_nodez00_bglt BgL_arg2060z00_2130;

									{	/* Cnst/alloc.scm 749 */
										BgL_kwotez00_bglt BgL_arg2063z00_2133;

										{	/* Cnst/alloc.scm 749 */
											BgL_kwotez00_bglt BgL_new1196z00_2134;

											{	/* Cnst/alloc.scm 750 */
												BgL_kwotez00_bglt BgL_new1195z00_2138;

												BgL_new1195z00_2138 =
													((BgL_kwotez00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																BgL_kwotez00_bgl))));
												{	/* Cnst/alloc.scm 750 */
													long BgL_arg2070z00_2139;

													{	/* Cnst/alloc.scm 750 */
														obj_t BgL_classz00_3169;

														BgL_classz00_3169 = BGl_kwotez00zzast_nodez00;
														BgL_arg2070z00_2139 =
															BGL_CLASS_NUM(BgL_classz00_3169);
													}
													BGL_OBJECT_CLASS_NUM_SET(
														((BgL_objectz00_bglt) BgL_new1195z00_2138),
														BgL_arg2070z00_2139);
												}
												{	/* Cnst/alloc.scm 750 */
													BgL_objectz00_bglt BgL_tmpz00_5196;

													BgL_tmpz00_5196 =
														((BgL_objectz00_bglt) BgL_new1195z00_2138);
													BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5196, BFALSE);
												}
												((BgL_objectz00_bglt) BgL_new1195z00_2138);
												BgL_new1196z00_2134 = BgL_new1195z00_2138;
											}
											((((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt) BgL_new1196z00_2134)))->
													BgL_locz00) = ((obj_t) BgL_locz00_3579), BUNSPEC);
											{
												BgL_typez00_bglt BgL_auxz00_5202;

												{	/* Cnst/alloc.scm 752 */
													BgL_typez00_bglt BgL_arg2066z00_2135;
													BgL_typez00_bglt BgL_arg2067z00_2136;

													{	/* Cnst/alloc.scm 752 */
														obj_t BgL_arg2069z00_2137;

														BgL_arg2069z00_2137 = CAR(BgL_pairz00_2117);
														BgL_arg2066z00_2135 =
															BGl_getzd2typezd2kwotez00zztype_typeofz00
															(BgL_arg2069z00_2137);
													}
													BgL_arg2067z00_2136 =
														BGl_getzd2defaultzd2typez00zztype_cachez00();
													BgL_auxz00_5202 =
														BGl_strictzd2nodezd2typez00zzast_nodez00
														(BgL_arg2066z00_2135, BgL_arg2067z00_2136);
												}
												((((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_new1196z00_2134)))->
														BgL_typez00) =
													((BgL_typez00_bglt) BgL_auxz00_5202), BUNSPEC);
											}
											((((BgL_kwotez00_bglt) COBJECT(BgL_new1196z00_2134))->
													BgL_valuez00) =
												((obj_t) CAR(BgL_pairz00_2117)), BUNSPEC);
											BgL_arg2063z00_2133 = BgL_new1196z00_2134;
										}
										BgL_arg2059z00_2129 =
											BGl_cnstz12z12zzcnst_nodez00(
											((BgL_nodez00_bglt) BgL_arg2063z00_2133));
									}
									{	/* Cnst/alloc.scm 755 */
										obj_t BgL_arg2071z00_2140;

										BgL_arg2071z00_2140 = CDR(BgL_pairz00_2117);
										BgL_arg2060z00_2130 =
											BGl_loopze70ze7zzcnst_allocz00(BgL_locz00_3579,
											BgL_arg2071z00_2140);
									}
									{	/* Cnst/alloc.scm 749 */
										obj_t BgL_list2061z00_2131;

										{	/* Cnst/alloc.scm 749 */
											obj_t BgL_arg2062z00_2132;

											BgL_arg2062z00_2132 =
												MAKE_YOUNG_PAIR(((obj_t) BgL_arg2060z00_2130), BNIL);
											BgL_list2061z00_2131 =
												MAKE_YOUNG_PAIR(
												((obj_t) BgL_arg2059z00_2129), BgL_arg2062z00_2132);
										}
										BgL_auxz00_5191 = BgL_list2061z00_2131;
								}}
								((((BgL_appz00_bglt) COBJECT(BgL_new1192z00_2125))->
										BgL_argsz00) = ((obj_t) BgL_auxz00_5191), BUNSPEC);
							}
							((((BgL_appz00_bglt) COBJECT(BgL_new1192z00_2125))->
									BgL_stackablez00) = ((obj_t) BFALSE), BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1192z00_2125);
						}
					else
						{	/* Cnst/alloc.scm 737 */
							BgL_kwotez00_bglt BgL_arg2073z00_2143;

							{	/* Cnst/alloc.scm 737 */
								BgL_kwotez00_bglt BgL_new1190z00_2144;

								{	/* Cnst/alloc.scm 738 */
									BgL_kwotez00_bglt BgL_new1189z00_2146;

									BgL_new1189z00_2146 =
										((BgL_kwotez00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
													BgL_kwotez00_bgl))));
									{	/* Cnst/alloc.scm 738 */
										long BgL_arg2076z00_2147;

										BgL_arg2076z00_2147 =
											BGL_CLASS_NUM(BGl_kwotez00zzast_nodez00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1189z00_2146),
											BgL_arg2076z00_2147);
									}
									{	/* Cnst/alloc.scm 738 */
										BgL_objectz00_bglt BgL_tmpz00_5226;

										BgL_tmpz00_5226 =
											((BgL_objectz00_bglt) BgL_new1189z00_2146);
										BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5226, BFALSE);
									}
									((BgL_objectz00_bglt) BgL_new1189z00_2146);
									BgL_new1190z00_2144 = BgL_new1189z00_2146;
								}
								((((BgL_nodez00_bglt) COBJECT(
												((BgL_nodez00_bglt) BgL_new1190z00_2144)))->
										BgL_locz00) = ((obj_t) BgL_locz00_3579), BUNSPEC);
								{
									BgL_typez00_bglt BgL_auxz00_5232;

									{	/* Cnst/alloc.scm 739 */
										BgL_typez00_bglt BgL_arg2074z00_2145;

										BgL_arg2074z00_2145 =
											BGl_getzd2typezd2kwotez00zztype_typeofz00
											(BgL_pairz00_2117);
										BgL_auxz00_5232 =
											BGl_strictzd2nodezd2typez00zzast_nodez00
											(BgL_arg2074z00_2145,
											((BgL_typez00_bglt) BGl_za2pairza2z00zztype_cachez00));
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1190z00_2144)))->
											BgL_typez00) =
										((BgL_typez00_bglt) BgL_auxz00_5232), BUNSPEC);
								}
								((((BgL_kwotez00_bglt) COBJECT(BgL_new1190z00_2144))->
										BgL_valuez00) = ((obj_t) BgL_pairz00_2117), BUNSPEC);
								BgL_arg2073z00_2143 = BgL_new1190z00_2144;
							}
							return
								BGl_cnstz12z12zzcnst_nodez00(
								((BgL_nodez00_bglt) BgL_arg2073z00_2143));
						}
				}
		}

	}



/* &cnst-alloc-list */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2listz62zzcnst_allocz00(obj_t
		BgL_envz00_3544, obj_t BgL_pairz00_3545, obj_t BgL_locz00_3546)
	{
		{	/* Cnst/alloc.scm 727 */
			return
				BGl_cnstzd2alloczd2listz00zzcnst_allocz00(BgL_pairz00_3545,
				BgL_locz00_3546);
		}

	}



/* cnst-alloc-vector */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2vectorz00zzcnst_allocz00(obj_t BgL_vecz00_68,
		obj_t BgL_locz00_69)
	{
		{	/* Cnst/alloc.scm 803 */
			{

				{	/* Cnst/alloc.scm 882 */
					obj_t BgL_oldz00_2177;

					{	/* Cnst/alloc.scm 882 */
						obj_t BgL__andtest_1227z00_2184;

						BgL__andtest_1227z00_2184 =
							BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00;
						if (CBOOL(BgL__andtest_1227z00_2184))
							{
								obj_t BgL_envz00_2186;

								BgL_envz00_2186 = BGl_za2vectorzd2envza2zd2zzcnst_allocz00;
							BgL_zc3z04anonymousza32101ze3z87_2187:
								if (NULLP(BgL_envz00_2186))
									{	/* Cnst/alloc.scm 885 */
										BgL_oldz00_2177 = BFALSE;
									}
								else
									{	/* Cnst/alloc.scm 887 */
										bool_t BgL_test2525z00_5246;

										{	/* Cnst/alloc.scm 887 */
											obj_t BgL_arg2107z00_2193;

											{	/* Cnst/alloc.scm 69 */
												obj_t BgL_sz00_3274;

												BgL_sz00_3274 = CAR(((obj_t) BgL_envz00_2186));
												BgL_arg2107z00_2193 =
													STRUCT_REF(BgL_sz00_3274, (int) (0L));
											}
											BgL_test2525z00_5246 =
												BGl_cnstzd2equalzf3z21zzcnst_allocz00
												(BgL_arg2107z00_2193, BgL_vecz00_68);
										}
										if (BgL_test2525z00_5246)
											{	/* Cnst/alloc.scm 887 */
												BgL_oldz00_2177 = CAR(((obj_t) BgL_envz00_2186));
											}
										else
											{	/* Cnst/alloc.scm 890 */
												obj_t BgL_arg2106z00_2192;

												BgL_arg2106z00_2192 = CDR(((obj_t) BgL_envz00_2186));
												{
													obj_t BgL_envz00_5256;

													BgL_envz00_5256 = BgL_arg2106z00_2192;
													BgL_envz00_2186 = BgL_envz00_5256;
													goto BgL_zc3z04anonymousza32101ze3z87_2187;
												}
											}
									}
							}
						else
							{	/* Cnst/alloc.scm 882 */
								BgL_oldz00_2177 = BFALSE;
							}
					}
					if (CBOOL(BgL_oldz00_2177))
						{	/* Cnst/alloc.scm 892 */
							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{	/* Cnst/alloc.scm 894 */
									BgL_refz00_bglt BgL_new1229z00_2178;

									{	/* Cnst/alloc.scm 895 */
										BgL_refz00_bglt BgL_new1228z00_2181;

										BgL_new1228z00_2181 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 895 */
											long BgL_arg2099z00_2182;

											BgL_arg2099z00_2182 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1228z00_2181),
												BgL_arg2099z00_2182);
										}
										{	/* Cnst/alloc.scm 895 */
											BgL_objectz00_bglt BgL_tmpz00_5266;

											BgL_tmpz00_5266 =
												((BgL_objectz00_bglt) BgL_new1228z00_2181);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5266, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1228z00_2181);
										BgL_new1229z00_2178 = BgL_new1228z00_2181;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1229z00_2178)))->
											BgL_locz00) = ((obj_t) BgL_locz00_69), BUNSPEC);
									{
										BgL_typez00_bglt BgL_auxz00_5272;

										{	/* Cnst/alloc.scm 897 */
											BgL_typez00_bglt BgL_arg2097z00_2179;

											BgL_arg2097z00_2179 =
												(((BgL_variablez00_bglt) COBJECT(
														((BgL_variablez00_bglt)
															STRUCT_REF(
																((obj_t) BgL_oldz00_2177),
																(int) (1L)))))->BgL_typez00);
											BgL_auxz00_5272 =
												BGl_strictzd2nodezd2typez00zzast_nodez00(
												((BgL_typez00_bglt) BGl_za2vectorza2z00zztype_cachez00),
												BgL_arg2097z00_2179);
										}
										((((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt) BgL_new1229z00_2178)))->
												BgL_typez00) =
											((BgL_typez00_bglt) BgL_auxz00_5272), BUNSPEC);
									}
									((((BgL_varz00_bglt) COBJECT(
													((BgL_varz00_bglt) BgL_new1229z00_2178)))->
											BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												STRUCT_REF(((obj_t) BgL_oldz00_2177), (int) (1L)))),
										BUNSPEC);
									return ((BgL_nodez00_bglt) BgL_new1229z00_2178);
								}
							else
								{	/* Cnst/alloc.scm 899 */
									obj_t BgL_arg2100z00_2183;

									BgL_arg2100z00_2183 =
										STRUCT_REF(((obj_t) BgL_oldz00_2177), (int) (1L));
									return
										((BgL_nodez00_bglt)
										BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00
										(BgL_arg2100z00_2183, BGl_za2vectorza2z00zztype_cachez00,
											BgL_locz00_69));
								}
						}
					else
						{	/* Cnst/alloc.scm 892 */
							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{
									BgL_refz00_bglt BgL_auxz00_5297;

									{	/* Cnst/alloc.scm 870 */
										BgL_globalz00_bglt BgL_varz00_2255;

										{	/* Cnst/alloc.scm 870 */
											obj_t BgL_arg2159z00_2270;

											{	/* Cnst/alloc.scm 870 */
												obj_t BgL_arg2160z00_2271;

												BgL_arg2160z00_2271 =
													BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF
													(49L));
												BgL_arg2159z00_2270 =
													BGl_makezd2typedzd2identz00zzast_identz00
													(BgL_arg2160z00_2271, CNST_TABLE_REF(49L));
											}
											BgL_varz00_2255 =
												BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2
												(BgL_arg2159z00_2270,
												BGl_za2moduleza2z00zzmodule_modulez00,
												CNST_TABLE_REF(2L), CNST_TABLE_REF(3L));
										}
										if (CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
											{	/* Cnst/alloc.scm 875 */
												obj_t BgL_arg2146z00_2256;

												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_newz00_3263;

													BgL_newz00_3263 =
														create_struct(CNST_TABLE_REF(9L), (int) (2L));
													{	/* Cnst/alloc.scm 69 */
														obj_t BgL_auxz00_5312;
														int BgL_tmpz00_5310;

														BgL_auxz00_5312 = ((obj_t) BgL_varz00_2255);
														BgL_tmpz00_5310 = (int) (1L);
														STRUCT_SET(BgL_newz00_3263, BgL_tmpz00_5310,
															BgL_auxz00_5312);
													}
													{	/* Cnst/alloc.scm 69 */
														int BgL_tmpz00_5315;

														BgL_tmpz00_5315 = (int) (0L);
														STRUCT_SET(BgL_newz00_3263, BgL_tmpz00_5315,
															BgL_vecz00_68);
													}
													BgL_arg2146z00_2256 = BgL_newz00_3263;
												}
												BGl_za2vectorzd2envza2zd2zzcnst_allocz00 =
													MAKE_YOUNG_PAIR(BgL_arg2146z00_2256,
													BGl_za2vectorzd2envza2zd2zzcnst_allocz00);
											}
										else
											{	/* Cnst/alloc.scm 874 */
												BFALSE;
											}
										{	/* Cnst/alloc.scm 876 */
											obj_t BgL_arg2148z00_2257;

											{	/* Cnst/alloc.scm 876 */
												obj_t BgL_arg2149z00_2258;

												{	/* Cnst/alloc.scm 876 */
													obj_t BgL_arg2150z00_2259;
													obj_t BgL_arg2151z00_2260;

													{	/* Cnst/alloc.scm 876 */
														obj_t BgL_arg2152z00_2261;

														{	/* Cnst/alloc.scm 876 */
															obj_t BgL_arg2153z00_2262;
															obj_t BgL_arg2154z00_2263;

															BgL_arg2153z00_2262 =
																(((BgL_variablez00_bglt) COBJECT(
																		((BgL_variablez00_bglt) BgL_varz00_2255)))->
																BgL_idz00);
															BgL_arg2154z00_2263 =
																MAKE_YOUNG_PAIR((((BgL_globalz00_bglt)
																		COBJECT(BgL_varz00_2255))->BgL_modulez00),
																BNIL);
															BgL_arg2152z00_2261 =
																MAKE_YOUNG_PAIR(BgL_arg2153z00_2262,
																BgL_arg2154z00_2263);
														}
														BgL_arg2150z00_2259 =
															MAKE_YOUNG_PAIR(CNST_TABLE_REF(12L),
															BgL_arg2152z00_2261);
													}
													{	/* Cnst/alloc.scm 877 */
														BgL_nodez00_bglt BgL_arg2156z00_2265;

														{	/* Cnst/alloc.scm 807 */
															BgL_nodez00_bglt BgL_arg2110z00_2197;

															{	/* Cnst/alloc.scm 807 */
																BgL_letzd2varzd2_bglt BgL_arg2111z00_2198;
																BgL_typez00_bglt BgL_arg2112z00_2199;

																{	/* Cnst/alloc.scm 807 */
																	BgL_localz00_bglt BgL_varz00_2200;
																	obj_t BgL_lz00_2201;

																	BgL_varz00_2200 =
																		BGl_makezd2localzd2svarz00zzast_localz00
																		(CNST_TABLE_REF(48L),
																		((BgL_typez00_bglt)
																			BGl_za2vectorza2z00zztype_cachez00));
																	BgL_lz00_2201 =
																		BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00
																		(BgL_vecz00_68);
																	{	/* Cnst/alloc.scm 809 */
																		BgL_letzd2varzd2_bglt BgL_new1205z00_2202;

																		{	/* Cnst/alloc.scm 810 */
																			BgL_letzd2varzd2_bglt BgL_new1204z00_2249;

																			BgL_new1204z00_2249 =
																				((BgL_letzd2varzd2_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_letzd2varzd2_bgl))));
																			{	/* Cnst/alloc.scm 810 */
																				long BgL_arg2142z00_2250;

																				BgL_arg2142z00_2250 =
																					BGL_CLASS_NUM
																					(BGl_letzd2varzd2zzast_nodez00);
																				BGL_OBJECT_CLASS_NUM_SET((
																						(BgL_objectz00_bglt)
																						BgL_new1204z00_2249),
																					BgL_arg2142z00_2250);
																			}
																			{	/* Cnst/alloc.scm 810 */
																				BgL_objectz00_bglt BgL_tmpz00_5334;

																				BgL_tmpz00_5334 =
																					((BgL_objectz00_bglt)
																					BgL_new1204z00_2249);
																				BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5334,
																					BFALSE);
																			}
																			((BgL_objectz00_bglt)
																				BgL_new1204z00_2249);
																			BgL_new1205z00_2202 = BgL_new1204z00_2249;
																		}
																		((((BgL_nodez00_bglt) COBJECT(
																						((BgL_nodez00_bglt)
																							BgL_new1205z00_2202)))->
																				BgL_locz00) =
																			((obj_t) BgL_locz00_69), BUNSPEC);
																		((((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt)
																							BgL_new1205z00_2202)))->
																				BgL_typez00) =
																			((BgL_typez00_bglt)
																				BGl_strictzd2nodezd2typez00zzast_nodez00
																				(((BgL_typez00_bglt)
																						BGl_za2vectorza2z00zztype_cachez00),
																					((BgL_typez00_bglt)
																						BGl_za2objza2z00zztype_cachez00))),
																			BUNSPEC);
																		((((BgL_nodezf2effectzf2_bglt)
																					COBJECT(((BgL_nodezf2effectzf2_bglt)
																							BgL_new1205z00_2202)))->
																				BgL_sidezd2effectzd2) =
																			((obj_t) BUNSPEC), BUNSPEC);
																		((((BgL_nodezf2effectzf2_bglt)
																					COBJECT(((BgL_nodezf2effectzf2_bglt)
																							BgL_new1205z00_2202)))->
																				BgL_keyz00) =
																			((obj_t) BINT(-1L)), BUNSPEC);
																		{
																			obj_t BgL_auxz00_5350;

																			{	/* Cnst/alloc.scm 815 */
																				obj_t BgL_arg2113z00_2203;

																				{	/* Cnst/alloc.scm 815 */
																					BgL_appz00_bglt BgL_arg2115z00_2205;

																					{	/* Cnst/alloc.scm 815 */
																						BgL_appz00_bglt BgL_new1207z00_2206;

																						{	/* Cnst/alloc.scm 822 */
																							BgL_appz00_bglt
																								BgL_new1206z00_2216;
																							BgL_new1206z00_2216 =
																								((BgL_appz00_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_appz00_bgl))));
																							{	/* Cnst/alloc.scm 822 */
																								long BgL_arg2122z00_2217;

																								{	/* Cnst/alloc.scm 822 */
																									obj_t BgL_classz00_3211;

																									BgL_classz00_3211 =
																										BGl_appz00zzast_nodez00;
																									BgL_arg2122z00_2217 =
																										BGL_CLASS_NUM
																										(BgL_classz00_3211);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1206z00_2216),
																									BgL_arg2122z00_2217);
																							}
																							{	/* Cnst/alloc.scm 822 */
																								BgL_objectz00_bglt
																									BgL_tmpz00_5355;
																								BgL_tmpz00_5355 =
																									((BgL_objectz00_bglt)
																									BgL_new1206z00_2216);
																								BGL_OBJECT_WIDENING_SET
																									(BgL_tmpz00_5355, BFALSE);
																							}
																							((BgL_objectz00_bglt)
																								BgL_new1206z00_2216);
																							BgL_new1207z00_2206 =
																								BgL_new1206z00_2216;
																						}
																						((((BgL_nodez00_bglt) COBJECT(
																										((BgL_nodez00_bglt)
																											BgL_new1207z00_2206)))->
																								BgL_locz00) =
																							((obj_t) BgL_locz00_69), BUNSPEC);
																						((((BgL_nodez00_bglt)
																									COBJECT(((BgL_nodez00_bglt)
																											BgL_new1207z00_2206)))->
																								BgL_typez00) =
																							((BgL_typez00_bglt) (
																									(BgL_typez00_bglt)
																									BGl_za2vectorza2z00zztype_cachez00)),
																							BUNSPEC);
																						((((BgL_nodezf2effectzf2_bglt)
																									COBJECT((
																											(BgL_nodezf2effectzf2_bglt)
																											BgL_new1207z00_2206)))->
																								BgL_sidezd2effectzd2) =
																							((obj_t) BUNSPEC), BUNSPEC);
																						((((BgL_nodezf2effectzf2_bglt)
																									COBJECT((
																											(BgL_nodezf2effectzf2_bglt)
																											BgL_new1207z00_2206)))->
																								BgL_keyz00) =
																							((obj_t) BINT(-1L)), BUNSPEC);
																						{
																							BgL_varz00_bglt BgL_auxz00_5369;

																							{	/* Cnst/alloc.scm 818 */
																								BgL_refz00_bglt
																									BgL_new1209z00_2207;
																								{	/* Cnst/alloc.scm 821 */
																									BgL_refz00_bglt
																										BgL_new1208z00_2208;
																									BgL_new1208z00_2208 =
																										((BgL_refz00_bglt)
																										BOBJECT(GC_MALLOC(sizeof
																												(struct
																													BgL_refz00_bgl))));
																									{	/* Cnst/alloc.scm 821 */
																										long BgL_arg2116z00_2209;

																										{	/* Cnst/alloc.scm 821 */
																											obj_t BgL_classz00_3215;

																											BgL_classz00_3215 =
																												BGl_refz00zzast_nodez00;
																											BgL_arg2116z00_2209 =
																												BGL_CLASS_NUM
																												(BgL_classz00_3215);
																										}
																										BGL_OBJECT_CLASS_NUM_SET(
																											((BgL_objectz00_bglt)
																												BgL_new1208z00_2208),
																											BgL_arg2116z00_2209);
																									}
																									{	/* Cnst/alloc.scm 821 */
																										BgL_objectz00_bglt
																											BgL_tmpz00_5374;
																										BgL_tmpz00_5374 =
																											((BgL_objectz00_bglt)
																											BgL_new1208z00_2208);
																										BGL_OBJECT_WIDENING_SET
																											(BgL_tmpz00_5374, BFALSE);
																									}
																									((BgL_objectz00_bglt)
																										BgL_new1208z00_2208);
																									BgL_new1209z00_2207 =
																										BgL_new1208z00_2208;
																								}
																								((((BgL_nodez00_bglt) COBJECT(
																												((BgL_nodez00_bglt)
																													BgL_new1209z00_2207)))->
																										BgL_locz00) =
																									((obj_t) BgL_locz00_69),
																									BUNSPEC);
																								{
																									BgL_typez00_bglt
																										BgL_auxz00_5380;
																									{	/* Cnst/alloc.scm 820 */
																										BgL_variablez00_bglt
																											BgL_oz00_3219;
																										BgL_oz00_3219 =
																											((BgL_variablez00_bglt)
																											BGl_za2listzd2ze3vectorza2z31zzcnst_cachez00);
																										BgL_auxz00_5380 =
																											(((BgL_variablez00_bglt)
																												COBJECT
																												(BgL_oz00_3219))->
																											BgL_typez00);
																									}
																									((((BgL_nodez00_bglt) COBJECT(
																													((BgL_nodez00_bglt)
																														BgL_new1209z00_2207)))->
																											BgL_typez00) =
																										((BgL_typez00_bglt)
																											BgL_auxz00_5380),
																										BUNSPEC);
																								}
																								((((BgL_varz00_bglt) COBJECT(
																												((BgL_varz00_bglt)
																													BgL_new1209z00_2207)))->
																										BgL_variablez00) =
																									((BgL_variablez00_bglt) (
																											(BgL_variablez00_bglt)
																											BGl_za2listzd2ze3vectorza2z31zzcnst_cachez00)),
																									BUNSPEC);
																								BgL_auxz00_5369 =
																									((BgL_varz00_bglt)
																									BgL_new1209z00_2207);
																							}
																							((((BgL_appz00_bglt)
																										COBJECT
																										(BgL_new1207z00_2206))->
																									BgL_funz00) =
																								((BgL_varz00_bglt)
																									BgL_auxz00_5369), BUNSPEC);
																						}
																						{
																							obj_t BgL_auxz00_5390;

																							{	/* Cnst/alloc.scm 823 */
																								BgL_kwotez00_bglt
																									BgL_arg2117z00_2210;
																								{	/* Cnst/alloc.scm 823 */
																									BgL_kwotez00_bglt
																										BgL_new1211z00_2212;
																									{	/* Cnst/alloc.scm 827 */
																										BgL_kwotez00_bglt
																											BgL_new1210z00_2214;
																										BgL_new1210z00_2214 =
																											((BgL_kwotez00_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_kwotez00_bgl))));
																										{	/* Cnst/alloc.scm 827 */
																											long BgL_arg2120z00_2215;

																											{	/* Cnst/alloc.scm 827 */
																												obj_t BgL_classz00_3220;

																												BgL_classz00_3220 =
																													BGl_kwotez00zzast_nodez00;
																												BgL_arg2120z00_2215 =
																													BGL_CLASS_NUM
																													(BgL_classz00_3220);
																											}
																											BGL_OBJECT_CLASS_NUM_SET(
																												((BgL_objectz00_bglt)
																													BgL_new1210z00_2214),
																												BgL_arg2120z00_2215);
																										}
																										{	/* Cnst/alloc.scm 827 */
																											BgL_objectz00_bglt
																												BgL_tmpz00_5395;
																											BgL_tmpz00_5395 =
																												((BgL_objectz00_bglt)
																												BgL_new1210z00_2214);
																											BGL_OBJECT_WIDENING_SET
																												(BgL_tmpz00_5395,
																												BFALSE);
																										}
																										((BgL_objectz00_bglt)
																											BgL_new1210z00_2214);
																										BgL_new1211z00_2212 =
																											BgL_new1210z00_2214;
																									}
																									((((BgL_nodez00_bglt) COBJECT(
																													((BgL_nodez00_bglt)
																														BgL_new1211z00_2212)))->
																											BgL_locz00) =
																										((obj_t) BgL_locz00_69),
																										BUNSPEC);
																									{
																										BgL_typez00_bglt
																											BgL_auxz00_5401;
																										{	/* Cnst/alloc.scm 826 */
																											BgL_typez00_bglt
																												BgL_arg2119z00_2213;
																											BgL_arg2119z00_2213 =
																												BGl_getzd2typezd2kwotez00zztype_typeofz00
																												(BgL_lz00_2201);
																											BgL_auxz00_5401 =
																												BGl_strictzd2nodezd2typez00zzast_nodez00
																												(BgL_arg2119z00_2213,
																												((BgL_typez00_bglt)
																													BGl_za2objza2z00zztype_cachez00));
																										}
																										((((BgL_nodez00_bglt)
																													COBJECT((
																															(BgL_nodez00_bglt)
																															BgL_new1211z00_2212)))->
																												BgL_typez00) =
																											((BgL_typez00_bglt)
																												BgL_auxz00_5401),
																											BUNSPEC);
																									}
																									((((BgL_kwotez00_bglt)
																												COBJECT
																												(BgL_new1211z00_2212))->
																											BgL_valuez00) =
																										((obj_t) BgL_lz00_2201),
																										BUNSPEC);
																									BgL_arg2117z00_2210 =
																										BgL_new1211z00_2212;
																								}
																								{	/* Cnst/alloc.scm 822 */
																									obj_t BgL_list2118z00_2211;

																									BgL_list2118z00_2211 =
																										MAKE_YOUNG_PAIR(
																										((obj_t)
																											BgL_arg2117z00_2210),
																										BNIL);
																									BgL_auxz00_5390 =
																										BgL_list2118z00_2211;
																							}}
																							((((BgL_appz00_bglt)
																										COBJECT
																										(BgL_new1207z00_2206))->
																									BgL_argsz00) =
																								((obj_t) BgL_auxz00_5390),
																								BUNSPEC);
																						}
																						((((BgL_appz00_bglt)
																									COBJECT
																									(BgL_new1207z00_2206))->
																								BgL_stackablez00) =
																							((obj_t) BFALSE), BUNSPEC);
																						BgL_arg2115z00_2205 =
																							BgL_new1207z00_2206;
																					}
																					BgL_arg2113z00_2203 =
																						MAKE_YOUNG_PAIR(
																						((obj_t) BgL_varz00_2200),
																						((obj_t) BgL_arg2115z00_2205));
																				}
																				{	/* Cnst/alloc.scm 813 */
																					obj_t BgL_list2114z00_2204;

																					BgL_list2114z00_2204 =
																						MAKE_YOUNG_PAIR(BgL_arg2113z00_2203,
																						BNIL);
																					BgL_auxz00_5350 =
																						BgL_list2114z00_2204;
																			}}
																			((((BgL_letzd2varzd2_bglt)
																						COBJECT(BgL_new1205z00_2202))->
																					BgL_bindingsz00) =
																				((obj_t) BgL_auxz00_5350), BUNSPEC);
																		}
																		{
																			BgL_nodez00_bglt BgL_auxz00_5417;

																			{	/* Cnst/alloc.scm 828 */
																				BgL_refz00_bglt BgL_varzd2bodyzd2_2218;

																				{	/* Cnst/alloc.scm 828 */
																					BgL_refz00_bglt BgL_new1213z00_2246;

																					{	/* Cnst/alloc.scm 829 */
																						BgL_refz00_bglt BgL_new1212z00_2247;

																						BgL_new1212z00_2247 =
																							((BgL_refz00_bglt)
																							BOBJECT(GC_MALLOC(sizeof(struct
																										BgL_refz00_bgl))));
																						{	/* Cnst/alloc.scm 829 */
																							long BgL_arg2141z00_2248;

																							{	/* Cnst/alloc.scm 829 */
																								obj_t BgL_classz00_3226;

																								BgL_classz00_3226 =
																									BGl_refz00zzast_nodez00;
																								BgL_arg2141z00_2248 =
																									BGL_CLASS_NUM
																									(BgL_classz00_3226);
																							}
																							BGL_OBJECT_CLASS_NUM_SET(
																								((BgL_objectz00_bglt)
																									BgL_new1212z00_2247),
																								BgL_arg2141z00_2248);
																						}
																						{	/* Cnst/alloc.scm 829 */
																							BgL_objectz00_bglt
																								BgL_tmpz00_5422;
																							BgL_tmpz00_5422 =
																								((BgL_objectz00_bglt)
																								BgL_new1212z00_2247);
																							BGL_OBJECT_WIDENING_SET
																								(BgL_tmpz00_5422, BFALSE);
																						}
																						((BgL_objectz00_bglt)
																							BgL_new1212z00_2247);
																						BgL_new1213z00_2246 =
																							BgL_new1212z00_2247;
																					}
																					((((BgL_nodez00_bglt) COBJECT(
																									((BgL_nodez00_bglt)
																										BgL_new1213z00_2246)))->
																							BgL_locz00) =
																						((obj_t) BgL_locz00_69), BUNSPEC);
																					((((BgL_nodez00_bglt)
																								COBJECT(((BgL_nodez00_bglt)
																										BgL_new1213z00_2246)))->
																							BgL_typez00) =
																						((BgL_typez00_bglt) ((
																									(BgL_variablez00_bglt)
																									COBJECT((
																											(BgL_variablez00_bglt)
																											BgL_varz00_2200)))->
																								BgL_typez00)), BUNSPEC);
																					((((BgL_varz00_bglt)
																								COBJECT(((BgL_varz00_bglt)
																										BgL_new1213z00_2246)))->
																							BgL_variablez00) =
																						((BgL_variablez00_bglt) (
																								(BgL_variablez00_bglt)
																								BgL_varz00_2200)), BUNSPEC);
																					BgL_varzd2bodyzd2_2218 =
																						BgL_new1213z00_2246;
																				}
																				{	/* Cnst/alloc.scm 832 */
																					bool_t BgL_test2530z00_5435;

																					{	/* Cnst/alloc.scm 832 */
																						int BgL_arg2140z00_2245;

																						BgL_arg2140z00_2245 =
																							VECTOR_TAG(BgL_vecz00_68);
																						BgL_test2530z00_5435 =
																							(
																							(long) (BgL_arg2140z00_2245) >
																							0L);
																					}
																					if (BgL_test2530z00_5435)
																						{	/* Cnst/alloc.scm 833 */
																							BgL_sequencez00_bglt
																								BgL_new1215z00_2221;
																							{	/* Cnst/alloc.scm 834 */
																								BgL_sequencez00_bglt
																									BgL_new1214z00_2243;
																								BgL_new1214z00_2243 =
																									((BgL_sequencez00_bglt)
																									BOBJECT(GC_MALLOC(sizeof
																											(struct
																												BgL_sequencez00_bgl))));
																								{	/* Cnst/alloc.scm 834 */
																									long BgL_arg2139z00_2244;

																									{	/* Cnst/alloc.scm 834 */
																										obj_t BgL_classz00_3233;

																										BgL_classz00_3233 =
																											BGl_sequencez00zzast_nodez00;
																										BgL_arg2139z00_2244 =
																											BGL_CLASS_NUM
																											(BgL_classz00_3233);
																									}
																									BGL_OBJECT_CLASS_NUM_SET(
																										((BgL_objectz00_bglt)
																											BgL_new1214z00_2243),
																										BgL_arg2139z00_2244);
																								}
																								{	/* Cnst/alloc.scm 834 */
																									BgL_objectz00_bglt
																										BgL_tmpz00_5443;
																									BgL_tmpz00_5443 =
																										((BgL_objectz00_bglt)
																										BgL_new1214z00_2243);
																									BGL_OBJECT_WIDENING_SET
																										(BgL_tmpz00_5443, BFALSE);
																								}
																								((BgL_objectz00_bglt)
																									BgL_new1214z00_2243);
																								BgL_new1215z00_2221 =
																									BgL_new1214z00_2243;
																							}
																							((((BgL_nodez00_bglt) COBJECT(
																											((BgL_nodez00_bglt)
																												BgL_new1215z00_2221)))->
																									BgL_locz00) =
																								((obj_t) BgL_locz00_69),
																								BUNSPEC);
																							((((BgL_nodez00_bglt)
																										COBJECT(((BgL_nodez00_bglt)
																												BgL_new1215z00_2221)))->
																									BgL_typez00) =
																								((BgL_typez00_bglt) (
																										(BgL_typez00_bglt)
																										BGl_za2vectorza2z00zztype_cachez00)),
																								BUNSPEC);
																							((((BgL_nodezf2effectzf2_bglt)
																										COBJECT((
																												(BgL_nodezf2effectzf2_bglt)
																												BgL_new1215z00_2221)))->
																									BgL_sidezd2effectzd2) =
																								((obj_t) BUNSPEC), BUNSPEC);
																							((((BgL_nodezf2effectzf2_bglt)
																										COBJECT((
																												(BgL_nodezf2effectzf2_bglt)
																												BgL_new1215z00_2221)))->
																									BgL_keyz00) =
																								((obj_t) BINT(-1L)), BUNSPEC);
																							{
																								obj_t BgL_auxz00_5457;

																								{	/* Cnst/alloc.scm 838 */
																									BgL_appz00_bglt
																										BgL_arg2125z00_2222;
																									{	/* Cnst/alloc.scm 838 */
																										BgL_appz00_bglt
																											BgL_new1217z00_2225;
																										{	/* Cnst/alloc.scm 839 */
																											BgL_appz00_bglt
																												BgL_new1216z00_2241;
																											BgL_new1216z00_2241 =
																												((BgL_appz00_bglt)
																												BOBJECT(GC_MALLOC(sizeof
																														(struct
																															BgL_appz00_bgl))));
																											{	/* Cnst/alloc.scm 839 */
																												long
																													BgL_arg2138z00_2242;
																												{	/* Cnst/alloc.scm 839 */
																													obj_t
																														BgL_classz00_3237;
																													BgL_classz00_3237 =
																														BGl_appz00zzast_nodez00;
																													BgL_arg2138z00_2242 =
																														BGL_CLASS_NUM
																														(BgL_classz00_3237);
																												}
																												BGL_OBJECT_CLASS_NUM_SET
																													(((BgL_objectz00_bglt)
																														BgL_new1216z00_2241),
																													BgL_arg2138z00_2242);
																											}
																											{	/* Cnst/alloc.scm 839 */
																												BgL_objectz00_bglt
																													BgL_tmpz00_5462;
																												BgL_tmpz00_5462 =
																													((BgL_objectz00_bglt)
																													BgL_new1216z00_2241);
																												BGL_OBJECT_WIDENING_SET
																													(BgL_tmpz00_5462,
																													BFALSE);
																											}
																											((BgL_objectz00_bglt)
																												BgL_new1216z00_2241);
																											BgL_new1217z00_2225 =
																												BgL_new1216z00_2241;
																										}
																										((((BgL_nodez00_bglt)
																													COBJECT((
																															(BgL_nodez00_bglt)
																															BgL_new1217z00_2225)))->
																												BgL_locz00) =
																											((obj_t) BgL_locz00_69),
																											BUNSPEC);
																										((((BgL_nodez00_bglt)
																													COBJECT((
																															(BgL_nodez00_bglt)
																															BgL_new1217z00_2225)))->
																												BgL_typez00) =
																											((BgL_typez00_bglt) (
																													(BgL_typez00_bglt)
																													BGl_za2objza2z00zztype_cachez00)),
																											BUNSPEC);
																										((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt) BgL_new1217z00_2225)))->BgL_sidezd2effectzd2) = ((obj_t) BUNSPEC), BUNSPEC);
																										((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt) BgL_new1217z00_2225)))->BgL_keyz00) = ((obj_t) BINT(-1L)), BUNSPEC);
																										{
																											BgL_varz00_bglt
																												BgL_auxz00_5476;
																											{	/* Cnst/alloc.scm 841 */
																												BgL_refz00_bglt
																													BgL_new1219z00_2226;
																												{	/* Cnst/alloc.scm 842 */
																													BgL_refz00_bglt
																														BgL_new1218z00_2227;
																													BgL_new1218z00_2227 =
																														((BgL_refz00_bglt)
																														BOBJECT(GC_MALLOC
																															(sizeof(struct
																																	BgL_refz00_bgl))));
																													{	/* Cnst/alloc.scm 842 */
																														long
																															BgL_arg2128z00_2228;
																														{	/* Cnst/alloc.scm 842 */
																															obj_t
																																BgL_classz00_3241;
																															BgL_classz00_3241
																																=
																																BGl_refz00zzast_nodez00;
																															BgL_arg2128z00_2228
																																=
																																BGL_CLASS_NUM
																																(BgL_classz00_3241);
																														}
																														BGL_OBJECT_CLASS_NUM_SET
																															(((BgL_objectz00_bglt) BgL_new1218z00_2227), BgL_arg2128z00_2228);
																													}
																													{	/* Cnst/alloc.scm 842 */
																														BgL_objectz00_bglt
																															BgL_tmpz00_5481;
																														BgL_tmpz00_5481 =
																															(
																															(BgL_objectz00_bglt)
																															BgL_new1218z00_2227);
																														BGL_OBJECT_WIDENING_SET
																															(BgL_tmpz00_5481,
																															BFALSE);
																													}
																													((BgL_objectz00_bglt)
																														BgL_new1218z00_2227);
																													BgL_new1219z00_2226 =
																														BgL_new1218z00_2227;
																												}
																												((((BgL_nodez00_bglt)
																															COBJECT((
																																	(BgL_nodez00_bglt)
																																	BgL_new1219z00_2226)))->
																														BgL_locz00) =
																													((obj_t)
																														BgL_locz00_69),
																													BUNSPEC);
																												{
																													BgL_typez00_bglt
																														BgL_auxz00_5487;
																													{	/* Cnst/alloc.scm 843 */
																														BgL_variablez00_bglt
																															BgL_oz00_3245;
																														BgL_oz00_3245 =
																															(
																															(BgL_variablez00_bglt)
																															BGl_za2vectorzd2tagzd2setz12za2z12zzcnst_cachez00);
																														BgL_auxz00_5487 =
																															(((BgL_variablez00_bglt) COBJECT(BgL_oz00_3245))->BgL_typez00);
																													}
																													((((BgL_nodez00_bglt)
																																COBJECT((
																																		(BgL_nodez00_bglt)
																																		BgL_new1219z00_2226)))->
																															BgL_typez00) =
																														((BgL_typez00_bglt)
																															BgL_auxz00_5487),
																														BUNSPEC);
																												}
																												((((BgL_varz00_bglt)
																															COBJECT((
																																	(BgL_varz00_bglt)
																																	BgL_new1219z00_2226)))->
																														BgL_variablez00) =
																													((BgL_variablez00_bglt) ((BgL_variablez00_bglt) BGl_za2vectorzd2tagzd2setz12za2z12zzcnst_cachez00)), BUNSPEC);
																												BgL_auxz00_5476 =
																													((BgL_varz00_bglt)
																													BgL_new1219z00_2226);
																											}
																											((((BgL_appz00_bglt)
																														COBJECT
																														(BgL_new1217z00_2225))->
																													BgL_funz00) =
																												((BgL_varz00_bglt)
																													BgL_auxz00_5476),
																												BUNSPEC);
																										}
																										{
																											obj_t BgL_auxz00_5497;

																											{	/* Cnst/alloc.scm 847 */
																												BgL_refz00_bglt
																													BgL_arg2129z00_2229;
																												BgL_literalz00_bglt
																													BgL_arg2130z00_2230;
																												{	/* Cnst/alloc.scm 847 */
																													BgL_refz00_bglt
																														BgL_new1221z00_2233;
																													{	/* Cnst/alloc.scm 848 */
																														BgL_refz00_bglt
																															BgL_new1220z00_2234;
																														BgL_new1220z00_2234
																															=
																															((BgL_refz00_bglt)
																															BOBJECT(GC_MALLOC
																																(sizeof(struct
																																		BgL_refz00_bgl))));
																														{	/* Cnst/alloc.scm 848 */
																															long
																																BgL_arg2134z00_2235;
																															{	/* Cnst/alloc.scm 848 */
																																obj_t
																																	BgL_classz00_3246;
																																BgL_classz00_3246
																																	=
																																	BGl_refz00zzast_nodez00;
																																BgL_arg2134z00_2235
																																	=
																																	BGL_CLASS_NUM
																																	(BgL_classz00_3246);
																															}
																															BGL_OBJECT_CLASS_NUM_SET
																																(((BgL_objectz00_bglt) BgL_new1220z00_2234), BgL_arg2134z00_2235);
																														}
																														{	/* Cnst/alloc.scm 848 */
																															BgL_objectz00_bglt
																																BgL_tmpz00_5502;
																															BgL_tmpz00_5502 =
																																(
																																(BgL_objectz00_bglt)
																																BgL_new1220z00_2234);
																															BGL_OBJECT_WIDENING_SET
																																(BgL_tmpz00_5502,
																																BFALSE);
																														}
																														((BgL_objectz00_bglt) BgL_new1220z00_2234);
																														BgL_new1221z00_2233
																															=
																															BgL_new1220z00_2234;
																													}
																													((((BgL_nodez00_bglt)
																																COBJECT((
																																		(BgL_nodez00_bglt)
																																		BgL_new1221z00_2233)))->
																															BgL_locz00) =
																														((obj_t)
																															BgL_locz00_69),
																														BUNSPEC);
																													((((BgL_nodez00_bglt)
																																COBJECT((
																																		(BgL_nodez00_bglt)
																																		BgL_new1221z00_2233)))->
																															BgL_typez00) =
																														((BgL_typez00_bglt)
																															(((BgL_variablez00_bglt) COBJECT(((BgL_variablez00_bglt) BgL_varz00_2200)))->BgL_typez00)), BUNSPEC);
																													((((BgL_varz00_bglt)
																																COBJECT((
																																		(BgL_varz00_bglt)
																																		BgL_new1221z00_2233)))->
																															BgL_variablez00) =
																														((BgL_variablez00_bglt) ((BgL_variablez00_bglt) BgL_varz00_2200)), BUNSPEC);
																													BgL_arg2129z00_2229 =
																														BgL_new1221z00_2233;
																												}
																												{	/* Cnst/alloc.scm 851 */
																													BgL_literalz00_bglt
																														BgL_new1223z00_2236;
																													{	/* Cnst/alloc.scm 852 */
																														BgL_literalz00_bglt
																															BgL_new1222z00_2239;
																														BgL_new1222z00_2239
																															=
																															(
																															(BgL_literalz00_bglt)
																															BOBJECT(GC_MALLOC
																																(sizeof(struct
																																		BgL_literalz00_bgl))));
																														{	/* Cnst/alloc.scm 852 */
																															long
																																BgL_arg2137z00_2240;
																															{	/* Cnst/alloc.scm 852 */
																																obj_t
																																	BgL_classz00_3251;
																																BgL_classz00_3251
																																	=
																																	BGl_literalz00zzast_nodez00;
																																BgL_arg2137z00_2240
																																	=
																																	BGL_CLASS_NUM
																																	(BgL_classz00_3251);
																															}
																															BGL_OBJECT_CLASS_NUM_SET
																																(((BgL_objectz00_bglt) BgL_new1222z00_2239), BgL_arg2137z00_2240);
																														}
																														{	/* Cnst/alloc.scm 852 */
																															BgL_objectz00_bglt
																																BgL_tmpz00_5519;
																															BgL_tmpz00_5519 =
																																(
																																(BgL_objectz00_bglt)
																																BgL_new1222z00_2239);
																															BGL_OBJECT_WIDENING_SET
																																(BgL_tmpz00_5519,
																																BFALSE);
																														}
																														((BgL_objectz00_bglt) BgL_new1222z00_2239);
																														BgL_new1223z00_2236
																															=
																															BgL_new1222z00_2239;
																													}
																													((((BgL_nodez00_bglt)
																																COBJECT((
																																		(BgL_nodez00_bglt)
																																		BgL_new1223z00_2236)))->
																															BgL_locz00) =
																														((obj_t)
																															BgL_locz00_69),
																														BUNSPEC);
																													{
																														BgL_typez00_bglt
																															BgL_auxz00_5525;
																														{	/* Cnst/alloc.scm 854 */
																															BgL_typez00_bglt
																																BgL_arg2135z00_2237;
																															{	/* Cnst/alloc.scm 854 */
																																int
																																	BgL_arg2136z00_2238;
																																BgL_arg2136z00_2238
																																	=
																																	VECTOR_TAG
																																	(BgL_vecz00_68);
																																BgL_arg2135z00_2237
																																	=
																																	BGl_getzd2typezd2atomz00zztype_typeofz00
																																	(BINT
																																	(BgL_arg2136z00_2238));
																															}
																															BgL_auxz00_5525 =
																																BGl_strictzd2nodezd2typez00zzast_nodez00
																																(BgL_arg2135z00_2237,
																																((BgL_typez00_bglt) BGl_za2objza2z00zztype_cachez00));
																														}
																														((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt) BgL_new1223z00_2236)))->BgL_typez00) = ((BgL_typez00_bglt) BgL_auxz00_5525), BUNSPEC);
																													}
																													((((BgL_atomz00_bglt)
																																COBJECT((
																																		(BgL_atomz00_bglt)
																																		BgL_new1223z00_2236)))->
																															BgL_valuez00) =
																														((obj_t)
																															BINT(VECTOR_TAG
																																(BgL_vecz00_68))),
																														BUNSPEC);
																													BgL_arg2130z00_2230 =
																														BgL_new1223z00_2236;
																												}
																												{	/* Cnst/alloc.scm 846 */
																													obj_t
																														BgL_list2131z00_2231;
																													{	/* Cnst/alloc.scm 846 */
																														obj_t
																															BgL_arg2132z00_2232;
																														BgL_arg2132z00_2232
																															=
																															MAKE_YOUNG_PAIR((
																																(obj_t)
																																BgL_arg2130z00_2230),
																															BNIL);
																														BgL_list2131z00_2231
																															=
																															MAKE_YOUNG_PAIR((
																																(obj_t)
																																BgL_arg2129z00_2229),
																															BgL_arg2132z00_2232);
																													}
																													BgL_auxz00_5497 =
																														BgL_list2131z00_2231;
																											}}
																											((((BgL_appz00_bglt)
																														COBJECT
																														(BgL_new1217z00_2225))->
																													BgL_argsz00) =
																												((obj_t)
																													BgL_auxz00_5497),
																												BUNSPEC);
																										}
																										((((BgL_appz00_bglt)
																													COBJECT
																													(BgL_new1217z00_2225))->
																												BgL_stackablez00) =
																											((obj_t) BFALSE),
																											BUNSPEC);
																										BgL_arg2125z00_2222 =
																											BgL_new1217z00_2225;
																									}
																									{	/* Cnst/alloc.scm 837 */
																										obj_t BgL_list2126z00_2223;

																										{	/* Cnst/alloc.scm 837 */
																											obj_t BgL_arg2127z00_2224;

																											BgL_arg2127z00_2224 =
																												MAKE_YOUNG_PAIR(
																												((obj_t)
																													BgL_varzd2bodyzd2_2218),
																												BNIL);
																											BgL_list2126z00_2223 =
																												MAKE_YOUNG_PAIR(((obj_t)
																													BgL_arg2125z00_2222),
																												BgL_arg2127z00_2224);
																										}
																										BgL_auxz00_5457 =
																											BgL_list2126z00_2223;
																								}}
																								((((BgL_sequencez00_bglt)
																											COBJECT
																											(BgL_new1215z00_2221))->
																										BgL_nodesz00) =
																									((obj_t) BgL_auxz00_5457),
																									BUNSPEC);
																							}
																							((((BgL_sequencez00_bglt)
																										COBJECT
																										(BgL_new1215z00_2221))->
																									BgL_unsafez00) =
																								((bool_t) ((bool_t) 0)),
																								BUNSPEC);
																							((((BgL_sequencez00_bglt)
																										COBJECT
																										(BgL_new1215z00_2221))->
																									BgL_metaz00) =
																								((obj_t) BNIL), BUNSPEC);
																							BgL_auxz00_5417 =
																								((BgL_nodez00_bglt)
																								BgL_new1215z00_2221);
																						}
																					else
																						{	/* Cnst/alloc.scm 832 */
																							BgL_auxz00_5417 =
																								((BgL_nodez00_bglt)
																								BgL_varzd2bodyzd2_2218);
																						}
																				}
																			}
																			((((BgL_letzd2varzd2_bglt)
																						COBJECT(BgL_new1205z00_2202))->
																					BgL_bodyz00) =
																				((BgL_nodez00_bglt) BgL_auxz00_5417),
																				BUNSPEC);
																		}
																		((((BgL_letzd2varzd2_bglt)
																					COBJECT(BgL_new1205z00_2202))->
																				BgL_removablezf3zf3) =
																			((bool_t) ((bool_t) 1)), BUNSPEC);
																		BgL_arg2111z00_2198 = BgL_new1205z00_2202;
																	}
																}
																BgL_arg2112z00_2199 =
																	BGl_strictzd2nodezd2typez00zzast_nodez00(
																	((BgL_typez00_bglt)
																		BGl_za2vectorza2z00zztype_cachez00),
																	((BgL_typez00_bglt)
																		BGl_za2objza2z00zztype_cachez00));
																BgL_arg2110z00_2197 =
																	BGl_coercez12z12zzcoerce_coercez00((
																		(BgL_nodez00_bglt) BgL_arg2111z00_2198),
																	BUNSPEC, BgL_arg2112z00_2199, ((bool_t) 0));
															}
															BgL_arg2156z00_2265 =
																BGl_cnstz12z12zzcnst_nodez00
																(BgL_arg2110z00_2197);
														}
														BgL_arg2151z00_2260 =
															MAKE_YOUNG_PAIR(
															((obj_t) BgL_arg2156z00_2265), BNIL);
													}
													BgL_arg2149z00_2258 =
														MAKE_YOUNG_PAIR(BgL_arg2150z00_2259,
														BgL_arg2151z00_2260);
												}
												BgL_arg2148z00_2257 =
													MAKE_YOUNG_PAIR(CNST_TABLE_REF(13L),
													BgL_arg2149z00_2258);
											}
											BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 =
												MAKE_YOUNG_PAIR(BgL_arg2148z00_2257,
												BGl_za2globalzd2sexpza2zd2zzcnst_allocz00);
										}
										{	/* Cnst/alloc.scm 878 */
											BgL_refz00_bglt BgL_new1226z00_2266;

											{	/* Cnst/alloc.scm 879 */
												BgL_refz00_bglt BgL_new1224z00_2268;

												BgL_new1224z00_2268 =
													((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																BgL_refz00_bgl))));
												{	/* Cnst/alloc.scm 879 */
													long BgL_arg2158z00_2269;

													BgL_arg2158z00_2269 =
														BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
													BGL_OBJECT_CLASS_NUM_SET(
														((BgL_objectz00_bglt) BgL_new1224z00_2268),
														BgL_arg2158z00_2269);
												}
												{	/* Cnst/alloc.scm 879 */
													BgL_objectz00_bglt BgL_tmpz00_5570;

													BgL_tmpz00_5570 =
														((BgL_objectz00_bglt) BgL_new1224z00_2268);
													BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5570, BFALSE);
												}
												((BgL_objectz00_bglt) BgL_new1224z00_2268);
												BgL_new1226z00_2266 = BgL_new1224z00_2268;
											}
											((((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt) BgL_new1226z00_2266)))->
													BgL_locz00) = ((obj_t) BgL_locz00_69), BUNSPEC);
											{
												BgL_typez00_bglt BgL_auxz00_5576;

												{	/* Cnst/alloc.scm 880 */
													BgL_typez00_bglt BgL_arg2157z00_2267;

													BgL_arg2157z00_2267 =
														(((BgL_variablez00_bglt) COBJECT(
																((BgL_variablez00_bglt) BgL_varz00_2255)))->
														BgL_typez00);
													BgL_auxz00_5576 =
														BGl_strictzd2nodezd2typez00zzast_nodez00((
															(BgL_typez00_bglt)
															BGl_za2vectorza2z00zztype_cachez00),
														BgL_arg2157z00_2267);
												}
												((((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_new1226z00_2266)))->
														BgL_typez00) =
													((BgL_typez00_bglt) BgL_auxz00_5576), BUNSPEC);
											}
											((((BgL_varz00_bglt) COBJECT(
															((BgL_varz00_bglt) BgL_new1226z00_2266)))->
													BgL_variablez00) =
												((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
														BgL_varz00_2255)), BUNSPEC);
											BgL_auxz00_5297 = BgL_new1226z00_2266;
									}}
									return ((BgL_nodez00_bglt) BgL_auxz00_5297);
								}
							else
								{
									BgL_appz00_bglt BgL_auxz00_5587;

									{	/* Cnst/alloc.scm 863 */
										long BgL_offsetz00_2252;

										BgL_offsetz00_2252 =
											BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
										BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 =
											(1L + BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);
										BGl_za2globalzd2setza2zd2zzcnst_allocz00 =
											MAKE_YOUNG_PAIR(BgL_vecz00_68,
											BGl_za2globalzd2setza2zd2zzcnst_allocz00);
										if (CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
											{	/* Cnst/alloc.scm 867 */
												obj_t BgL_arg2144z00_2253;

												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_newz00_3260;

													BgL_newz00_3260 =
														create_struct(CNST_TABLE_REF(9L), (int) (2L));
													{	/* Cnst/alloc.scm 69 */
														obj_t BgL_auxz00_5597;
														int BgL_tmpz00_5595;

														BgL_auxz00_5597 = BINT(BgL_offsetz00_2252);
														BgL_tmpz00_5595 = (int) (1L);
														STRUCT_SET(BgL_newz00_3260, BgL_tmpz00_5595,
															BgL_auxz00_5597);
													}
													{	/* Cnst/alloc.scm 69 */
														int BgL_tmpz00_5600;

														BgL_tmpz00_5600 = (int) (0L);
														STRUCT_SET(BgL_newz00_3260, BgL_tmpz00_5600,
															BgL_vecz00_68);
													}
													BgL_arg2144z00_2253 = BgL_newz00_3260;
												}
												BGl_za2vectorzd2envza2zd2zzcnst_allocz00 =
													MAKE_YOUNG_PAIR(BgL_arg2144z00_2253,
													BGl_za2vectorzd2envza2zd2zzcnst_allocz00);
											}
										else
											{	/* Cnst/alloc.scm 866 */
												BFALSE;
											}
										BgL_auxz00_5587 =
											BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BINT
											(BgL_offsetz00_2252), BGl_za2vectorza2z00zztype_cachez00,
											BgL_locz00_69);
									}
									return ((BgL_nodez00_bglt) BgL_auxz00_5587);
								}
						}
				}
			}
		}

	}



/* &cnst-alloc-vector */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2vectorz62zzcnst_allocz00(obj_t
		BgL_envz00_3547, obj_t BgL_vecz00_3548, obj_t BgL_locz00_3549)
	{
		{	/* Cnst/alloc.scm 803 */
			return
				BGl_cnstzd2alloczd2vectorz00zzcnst_allocz00(BgL_vecz00_3548,
				BgL_locz00_3549);
		}

	}



/* cnst-alloc-homogenous-vector */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2homogenouszd2vectorzd2zzcnst_allocz00(obj_t
		BgL_vecz00_70, obj_t BgL_locz00_71)
	{
		{	/* Cnst/alloc.scm 908 */
			{	/* Cnst/alloc.scm 910 */
				obj_t BgL_veczd2tagzd2_2275;

				{	/* Cnst/alloc.scm 910 */
					obj_t BgL_tagz00_2370;

					BgL_tagz00_2370 =
						BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(BgL_vecz00_70);
					{	/* Cnst/alloc.scm 911 */
						obj_t BgL__z00_2371;
						obj_t BgL__z00_2372;
						obj_t BgL__z00_2373;

						{	/* Cnst/alloc.scm 911 */
							obj_t BgL_tmpz00_3285;

							{	/* Cnst/alloc.scm 911 */
								int BgL_tmpz00_5609;

								BgL_tmpz00_5609 = (int) (1L);
								BgL_tmpz00_3285 = BGL_MVALUES_VAL(BgL_tmpz00_5609);
							}
							{	/* Cnst/alloc.scm 911 */
								int BgL_tmpz00_5612;

								BgL_tmpz00_5612 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_5612, BUNSPEC);
							}
							BgL__z00_2371 = BgL_tmpz00_3285;
						}
						{	/* Cnst/alloc.scm 911 */
							obj_t BgL_tmpz00_3286;

							{	/* Cnst/alloc.scm 911 */
								int BgL_tmpz00_5615;

								BgL_tmpz00_5615 = (int) (2L);
								BgL_tmpz00_3286 = BGL_MVALUES_VAL(BgL_tmpz00_5615);
							}
							{	/* Cnst/alloc.scm 911 */
								int BgL_tmpz00_5618;

								BgL_tmpz00_5618 = (int) (2L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_5618, BUNSPEC);
							}
							BgL__z00_2372 = BgL_tmpz00_3286;
						}
						{	/* Cnst/alloc.scm 911 */
							obj_t BgL_tmpz00_3287;

							{	/* Cnst/alloc.scm 911 */
								int BgL_tmpz00_5621;

								BgL_tmpz00_5621 = (int) (3L);
								BgL_tmpz00_3287 = BGL_MVALUES_VAL(BgL_tmpz00_5621);
							}
							{	/* Cnst/alloc.scm 911 */
								int BgL_tmpz00_5624;

								BgL_tmpz00_5624 = (int) (3L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_5624, BUNSPEC);
							}
							BgL__z00_2373 = BgL_tmpz00_3287;
						}
						BgL_veczd2tagzd2_2275 = BgL_tagz00_2370;
				}}
				{	/* Cnst/alloc.scm 910 */
					obj_t BgL_veczd2typezd2idz00_2276;

					{	/* Cnst/alloc.scm 913 */
						obj_t BgL_arg2219z00_2367;

						{	/* Cnst/alloc.scm 913 */
							obj_t BgL_arg2220z00_2368;
							obj_t BgL_arg2221z00_2369;

							{	/* Cnst/alloc.scm 913 */
								obj_t BgL_arg1454z00_3289;

								BgL_arg1454z00_3289 =
									SYMBOL_TO_STRING(((obj_t) BgL_veczd2tagzd2_2275));
								BgL_arg2220z00_2368 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg1454z00_3289);
							}
							{	/* Cnst/alloc.scm 913 */
								obj_t BgL_symbolz00_3290;

								BgL_symbolz00_3290 = CNST_TABLE_REF(49L);
								{	/* Cnst/alloc.scm 913 */
									obj_t BgL_arg1454z00_3291;

									BgL_arg1454z00_3291 = SYMBOL_TO_STRING(BgL_symbolz00_3290);
									BgL_arg2221z00_2369 =
										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
										(BgL_arg1454z00_3291);
							}}
							BgL_arg2219z00_2367 =
								string_append(BgL_arg2220z00_2368, BgL_arg2221z00_2369);
						}
						BgL_veczd2typezd2idz00_2276 =
							bstring_to_symbol(BgL_arg2219z00_2367);
					}
					{	/* Cnst/alloc.scm 913 */
						BgL_typez00_bglt BgL_veczd2typezd2_2277;

						BgL_veczd2typezd2_2277 =
							BGl_findzd2typezd2zztype_envz00(BgL_veczd2typezd2idz00_2276);
						{	/* Cnst/alloc.scm 914 */
							obj_t BgL_listzd2ze3vectorz31_2278;

							{	/* Cnst/alloc.scm 915 */
								obj_t BgL_list2216z00_2364;

								{	/* Cnst/alloc.scm 915 */
									obj_t BgL_arg2217z00_2365;

									{	/* Cnst/alloc.scm 915 */
										obj_t BgL_arg2218z00_2366;

										BgL_arg2218z00_2366 =
											MAKE_YOUNG_PAIR(CNST_TABLE_REF(49L), BNIL);
										BgL_arg2217z00_2365 =
											MAKE_YOUNG_PAIR(BgL_veczd2tagzd2_2275,
											BgL_arg2218z00_2366);
									}
									BgL_list2216z00_2364 =
										MAKE_YOUNG_PAIR(CNST_TABLE_REF(50L), BgL_arg2217z00_2365);
								}
								BgL_listzd2ze3vectorz31_2278 =
									BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
									(BgL_list2216z00_2364);
							}
							{	/* Cnst/alloc.scm 915 */
								obj_t BgL_vectorzd2ze3listz31_2279;

								if ((BgL_veczd2tagzd2_2275 == CNST_TABLE_REF(51L)))
									{	/* Cnst/alloc.scm 916 */
										BgL_vectorzd2ze3listz31_2279 =
											BGl_s8vectorzd2ze3listzd2envze3zz__srfi4z00;
									}
								else
									{	/* Cnst/alloc.scm 916 */
										if ((BgL_veczd2tagzd2_2275 == CNST_TABLE_REF(52L)))
											{	/* Cnst/alloc.scm 916 */
												BgL_vectorzd2ze3listz31_2279 =
													BGl_u8vectorzd2ze3listzd2envze3zz__srfi4z00;
											}
										else
											{	/* Cnst/alloc.scm 916 */
												if ((BgL_veczd2tagzd2_2275 == CNST_TABLE_REF(53L)))
													{	/* Cnst/alloc.scm 916 */
														BgL_vectorzd2ze3listz31_2279 =
															BGl_s16vectorzd2ze3listzd2envze3zz__srfi4z00;
													}
												else
													{	/* Cnst/alloc.scm 916 */
														if ((BgL_veczd2tagzd2_2275 == CNST_TABLE_REF(54L)))
															{	/* Cnst/alloc.scm 916 */
																BgL_vectorzd2ze3listz31_2279 =
																	BGl_u16vectorzd2ze3listzd2envze3zz__srfi4z00;
															}
														else
															{	/* Cnst/alloc.scm 916 */
																if (
																	(BgL_veczd2tagzd2_2275 ==
																		CNST_TABLE_REF(55L)))
																	{	/* Cnst/alloc.scm 916 */
																		BgL_vectorzd2ze3listz31_2279 =
																			BGl_s32vectorzd2ze3listzd2envze3zz__srfi4z00;
																	}
																else
																	{	/* Cnst/alloc.scm 916 */
																		if (
																			(BgL_veczd2tagzd2_2275 ==
																				CNST_TABLE_REF(56L)))
																			{	/* Cnst/alloc.scm 916 */
																				BgL_vectorzd2ze3listz31_2279 =
																					BGl_u32vectorzd2ze3listzd2envze3zz__srfi4z00;
																			}
																		else
																			{	/* Cnst/alloc.scm 916 */
																				if (
																					(BgL_veczd2tagzd2_2275 ==
																						CNST_TABLE_REF(57L)))
																					{	/* Cnst/alloc.scm 916 */
																						BgL_vectorzd2ze3listz31_2279 =
																							BGl_s64vectorzd2ze3listzd2envze3zz__srfi4z00;
																					}
																				else
																					{	/* Cnst/alloc.scm 916 */
																						if (
																							(BgL_veczd2tagzd2_2275 ==
																								CNST_TABLE_REF(58L)))
																							{	/* Cnst/alloc.scm 916 */
																								BgL_vectorzd2ze3listz31_2279 =
																									BGl_u64vectorzd2ze3listzd2envze3zz__srfi4z00;
																							}
																						else
																							{	/* Cnst/alloc.scm 916 */
																								if (
																									(BgL_veczd2tagzd2_2275 ==
																										CNST_TABLE_REF(59L)))
																									{	/* Cnst/alloc.scm 916 */
																										BgL_vectorzd2ze3listz31_2279
																											=
																											BGl_f32vectorzd2ze3listzd2envze3zz__srfi4z00;
																									}
																								else
																									{	/* Cnst/alloc.scm 916 */
																										if (
																											(BgL_veczd2tagzd2_2275 ==
																												CNST_TABLE_REF(60L)))
																											{	/* Cnst/alloc.scm 916 */
																												BgL_vectorzd2ze3listz31_2279
																													=
																													BGl_f64vectorzd2ze3listzd2envze3zz__srfi4z00;
																											}
																										else
																											{	/* Cnst/alloc.scm 916 */
																												BgL_vectorzd2ze3listz31_2279
																													= BUNSPEC;
																											}
																									}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
								{	/* Cnst/alloc.scm 916 */

									{

										{	/* Cnst/alloc.scm 983 */
											obj_t BgL_oldz00_2283;

											{	/* Cnst/alloc.scm 983 */
												obj_t BgL__andtest_1243z00_2290;

												BgL__andtest_1243z00_2290 =
													BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00;
												if (CBOOL(BgL__andtest_1243z00_2290))
													{
														obj_t BgL_envz00_2292;

														BgL_envz00_2292 =
															BGl_za2vectorzd2envza2zd2zzcnst_allocz00;
													BgL_zc3z04anonymousza32165ze3z87_2293:
														if (NULLP(BgL_envz00_2292))
															{	/* Cnst/alloc.scm 986 */
																BgL_oldz00_2283 = BFALSE;
															}
														else
															{	/* Cnst/alloc.scm 988 */
																bool_t BgL_test2544z00_5676;

																{	/* Cnst/alloc.scm 988 */
																	obj_t BgL_arg2171z00_2299;

																	{	/* Cnst/alloc.scm 69 */
																		obj_t BgL_sz00_3339;

																		BgL_sz00_3339 =
																			CAR(((obj_t) BgL_envz00_2292));
																		BgL_arg2171z00_2299 =
																			STRUCT_REF(BgL_sz00_3339, (int) (0L));
																	}
																	BgL_test2544z00_5676 =
																		BGl_cnstzd2equalzf3z21zzcnst_allocz00
																		(BgL_arg2171z00_2299, BgL_vecz00_70);
																}
																if (BgL_test2544z00_5676)
																	{	/* Cnst/alloc.scm 988 */
																		BgL_oldz00_2283 =
																			CAR(((obj_t) BgL_envz00_2292));
																	}
																else
																	{	/* Cnst/alloc.scm 991 */
																		obj_t BgL_arg2170z00_2298;

																		BgL_arg2170z00_2298 =
																			CDR(((obj_t) BgL_envz00_2292));
																		{
																			obj_t BgL_envz00_5686;

																			BgL_envz00_5686 = BgL_arg2170z00_2298;
																			BgL_envz00_2292 = BgL_envz00_5686;
																			goto
																				BgL_zc3z04anonymousza32165ze3z87_2293;
																		}
																	}
															}
													}
												else
													{	/* Cnst/alloc.scm 983 */
														BgL_oldz00_2283 = BFALSE;
													}
											}
											BGl_forcezd2initializa7ezd2srfi4zd2libraryzd2modulez12zb5zzcnst_allocz00
												();
											if (CBOOL(BgL_oldz00_2283))
												{	/* Cnst/alloc.scm 994 */
													if (
														(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
															CNST_TABLE_REF(14L)))
														{	/* Cnst/alloc.scm 996 */
															BgL_refz00_bglt BgL_new1246z00_2284;

															{	/* Cnst/alloc.scm 997 */
																BgL_refz00_bglt BgL_new1244z00_2287;

																BgL_new1244z00_2287 =
																	((BgL_refz00_bglt)
																	BOBJECT(GC_MALLOC(sizeof(struct
																				BgL_refz00_bgl))));
																{	/* Cnst/alloc.scm 997 */
																	long BgL_arg2163z00_2288;

																	BgL_arg2163z00_2288 =
																		BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
																	BGL_OBJECT_CLASS_NUM_SET(
																		((BgL_objectz00_bglt) BgL_new1244z00_2287),
																		BgL_arg2163z00_2288);
																}
																{	/* Cnst/alloc.scm 997 */
																	BgL_objectz00_bglt BgL_tmpz00_5697;

																	BgL_tmpz00_5697 =
																		((BgL_objectz00_bglt) BgL_new1244z00_2287);
																	BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5697,
																		BFALSE);
																}
																((BgL_objectz00_bglt) BgL_new1244z00_2287);
																BgL_new1246z00_2284 = BgL_new1244z00_2287;
															}
															((((BgL_nodez00_bglt) COBJECT(
																			((BgL_nodez00_bglt)
																				BgL_new1246z00_2284)))->BgL_locz00) =
																((obj_t) BgL_locz00_71), BUNSPEC);
															{
																BgL_typez00_bglt BgL_auxz00_5703;

																{	/* Cnst/alloc.scm 999 */
																	BgL_typez00_bglt BgL_arg2161z00_2285;

																	BgL_arg2161z00_2285 =
																		(((BgL_variablez00_bglt) COBJECT(
																				((BgL_variablez00_bglt)
																					STRUCT_REF(
																						((obj_t) BgL_oldz00_2283),
																						(int) (1L)))))->BgL_typez00);
																	BgL_auxz00_5703 =
																		BGl_strictzd2nodezd2typez00zzast_nodez00
																		(BgL_veczd2typezd2_2277,
																		BgL_arg2161z00_2285);
																}
																((((BgL_nodez00_bglt) COBJECT(
																				((BgL_nodez00_bglt)
																					BgL_new1246z00_2284)))->BgL_typez00) =
																	((BgL_typez00_bglt) BgL_auxz00_5703),
																	BUNSPEC);
															}
															((((BgL_varz00_bglt) COBJECT(
																			((BgL_varz00_bglt)
																				BgL_new1246z00_2284)))->
																	BgL_variablez00) =
																((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
																		STRUCT_REF(((obj_t) BgL_oldz00_2283),
																			(int) (1L)))), BUNSPEC);
															return ((BgL_nodez00_bglt) BgL_new1246z00_2284);
														}
													else
														{	/* Cnst/alloc.scm 1001 */
															obj_t BgL_arg2164z00_2289;

															BgL_arg2164z00_2289 =
																STRUCT_REF(
																((obj_t) BgL_oldz00_2283), (int) (1L));
															return
																((BgL_nodez00_bglt)
																BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00
																(BgL_arg2164z00_2289,
																	((obj_t) BgL_veczd2typezd2_2277),
																	BgL_locz00_71));
														}
												}
											else
												{	/* Cnst/alloc.scm 994 */
													if (
														(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
															CNST_TABLE_REF(14L)))
														{
															BgL_refz00_bglt BgL_auxz00_5728;

															{	/* Cnst/alloc.scm 969 */
																BgL_globalz00_bglt BgL_varz00_2334;

																{	/* Cnst/alloc.scm 970 */
																	obj_t BgL_arg2204z00_2348;

																	BgL_arg2204z00_2348 =
																		BGl_makezd2typedzd2identz00zzast_identz00
																		(BGl_gensymz00zz__r4_symbols_6_4z00
																		(CNST_TABLE_REF(61L)),
																		BgL_veczd2typezd2idz00_2276);
																	BgL_varz00_2334 =
																		BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2
																		(BgL_arg2204z00_2348,
																		BGl_za2moduleza2z00zzmodule_modulez00,
																		CNST_TABLE_REF(2L), CNST_TABLE_REF(3L));
																}
																if (CBOOL
																	(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
																	{	/* Cnst/alloc.scm 975 */
																		obj_t BgL_arg2192z00_2335;

																		{	/* Cnst/alloc.scm 69 */
																			obj_t BgL_newz00_3329;

																			BgL_newz00_3329 =
																				create_struct(CNST_TABLE_REF(9L),
																				(int) (2L));
																			{	/* Cnst/alloc.scm 69 */
																				obj_t BgL_auxz00_5742;
																				int BgL_tmpz00_5740;

																				BgL_auxz00_5742 =
																					((obj_t) BgL_varz00_2334);
																				BgL_tmpz00_5740 = (int) (1L);
																				STRUCT_SET(BgL_newz00_3329,
																					BgL_tmpz00_5740, BgL_auxz00_5742);
																			}
																			{	/* Cnst/alloc.scm 69 */
																				int BgL_tmpz00_5745;

																				BgL_tmpz00_5745 = (int) (0L);
																				STRUCT_SET(BgL_newz00_3329,
																					BgL_tmpz00_5745, BgL_vecz00_70);
																			}
																			BgL_arg2192z00_2335 = BgL_newz00_3329;
																		}
																		BGl_za2vectorzd2envza2zd2zzcnst_allocz00 =
																			MAKE_YOUNG_PAIR(BgL_arg2192z00_2335,
																			BGl_za2vectorzd2envza2zd2zzcnst_allocz00);
																	}
																else
																	{	/* Cnst/alloc.scm 974 */
																		BFALSE;
																	}
																{	/* Cnst/alloc.scm 976 */
																	obj_t BgL_arg2193z00_2336;

																	{	/* Cnst/alloc.scm 976 */
																		obj_t BgL_arg2194z00_2337;

																		{	/* Cnst/alloc.scm 976 */
																			obj_t BgL_arg2195z00_2338;
																			obj_t BgL_arg2196z00_2339;

																			{	/* Cnst/alloc.scm 976 */
																				obj_t BgL_arg2197z00_2340;

																				{	/* Cnst/alloc.scm 976 */
																					obj_t BgL_arg2198z00_2341;
																					obj_t BgL_arg2199z00_2342;

																					BgL_arg2198z00_2341 =
																						(((BgL_variablez00_bglt) COBJECT(
																								((BgL_variablez00_bglt)
																									BgL_varz00_2334)))->
																						BgL_idz00);
																					BgL_arg2199z00_2342 =
																						MAKE_YOUNG_PAIR(((
																								(BgL_globalz00_bglt)
																								COBJECT(BgL_varz00_2334))->
																							BgL_modulez00), BNIL);
																					BgL_arg2197z00_2340 =
																						MAKE_YOUNG_PAIR(BgL_arg2198z00_2341,
																						BgL_arg2199z00_2342);
																				}
																				BgL_arg2195z00_2338 =
																					MAKE_YOUNG_PAIR(CNST_TABLE_REF(12L),
																					BgL_arg2197z00_2340);
																			}
																			{	/* Cnst/alloc.scm 977 */
																				BgL_nodez00_bglt BgL_arg2202z00_2344;

																				{	/* Cnst/alloc.scm 931 */
																					BgL_nodez00_bglt BgL_arg2174z00_2303;

																					{	/* Cnst/alloc.scm 931 */
																						BgL_letzd2varzd2_bglt
																							BgL_arg2175z00_2304;
																						BgL_typez00_bglt
																							BgL_arg2176z00_2305;
																						{	/* Cnst/alloc.scm 931 */
																							BgL_localz00_bglt BgL_varz00_2306;
																							obj_t BgL_lz00_2307;

																							BgL_varz00_2306 =
																								BGl_makezd2localzd2svarz00zzast_localz00
																								(CNST_TABLE_REF(48L),
																								BgL_veczd2typezd2_2277);
																							BgL_lz00_2307 =
																								(VA_PROCEDUREP
																								(BgL_vectorzd2ze3listz31_2279)
																								? ((obj_t(*)(obj_t,
																											...))
																									PROCEDURE_ENTRY
																									(BgL_vectorzd2ze3listz31_2279))
																								(BgL_vectorzd2ze3listz31_2279,
																									BgL_vecz00_70,
																									BEOA) : ((obj_t(*)(obj_t,
																											obj_t))
																									PROCEDURE_ENTRY
																									(BgL_vectorzd2ze3listz31_2279))
																								(BgL_vectorzd2ze3listz31_2279,
																									BgL_vecz00_70));
																							{	/* Cnst/alloc.scm 933 */
																								BgL_letzd2varzd2_bglt
																									BgL_new1231z00_2308;
																								{	/* Cnst/alloc.scm 934 */
																									BgL_letzd2varzd2_bglt
																										BgL_new1230z00_2328;
																									BgL_new1230z00_2328 =
																										((BgL_letzd2varzd2_bglt)
																										BOBJECT(GC_MALLOC(sizeof
																												(struct
																													BgL_letzd2varzd2_bgl))));
																									{	/* Cnst/alloc.scm 934 */
																										long BgL_arg2188z00_2329;

																										BgL_arg2188z00_2329 =
																											BGL_CLASS_NUM
																											(BGl_letzd2varzd2zzast_nodez00);
																										BGL_OBJECT_CLASS_NUM_SET((
																												(BgL_objectz00_bglt)
																												BgL_new1230z00_2328),
																											BgL_arg2188z00_2329);
																									}
																									{	/* Cnst/alloc.scm 934 */
																										BgL_objectz00_bglt
																											BgL_tmpz00_5766;
																										BgL_tmpz00_5766 =
																											((BgL_objectz00_bglt)
																											BgL_new1230z00_2328);
																										BGL_OBJECT_WIDENING_SET
																											(BgL_tmpz00_5766, BFALSE);
																									}
																									((BgL_objectz00_bglt)
																										BgL_new1230z00_2328);
																									BgL_new1231z00_2308 =
																										BgL_new1230z00_2328;
																								}
																								((((BgL_nodez00_bglt) COBJECT(
																												((BgL_nodez00_bglt)
																													BgL_new1231z00_2308)))->
																										BgL_locz00) =
																									((obj_t) BgL_locz00_71),
																									BUNSPEC);
																								((((BgL_nodez00_bglt)
																											COBJECT((
																													(BgL_nodez00_bglt)
																													BgL_new1231z00_2308)))->
																										BgL_typez00) =
																									((BgL_typez00_bglt)
																										BGl_strictzd2nodezd2typez00zzast_nodez00
																										(BgL_veczd2typezd2_2277,
																											((BgL_typez00_bglt)
																												BGl_za2objza2z00zztype_cachez00))),
																									BUNSPEC);
																								((((BgL_nodezf2effectzf2_bglt)
																											COBJECT((
																													(BgL_nodezf2effectzf2_bglt)
																													BgL_new1231z00_2308)))->
																										BgL_sidezd2effectzd2) =
																									((obj_t) BUNSPEC), BUNSPEC);
																								((((BgL_nodezf2effectzf2_bglt)
																											COBJECT((
																													(BgL_nodezf2effectzf2_bglt)
																													BgL_new1231z00_2308)))->
																										BgL_keyz00) =
																									((obj_t) BINT(-1L)), BUNSPEC);
																								{
																									obj_t BgL_auxz00_5781;

																									{	/* Cnst/alloc.scm 939 */
																										obj_t BgL_arg2177z00_2309;

																										{	/* Cnst/alloc.scm 939 */
																											BgL_appz00_bglt
																												BgL_arg2179z00_2311;
																											{	/* Cnst/alloc.scm 939 */
																												BgL_appz00_bglt
																													BgL_new1234z00_2312;
																												{	/* Cnst/alloc.scm 946 */
																													BgL_appz00_bglt
																														BgL_new1233z00_2323;
																													BgL_new1233z00_2323 =
																														((BgL_appz00_bglt)
																														BOBJECT(GC_MALLOC
																															(sizeof(struct
																																	BgL_appz00_bgl))));
																													{	/* Cnst/alloc.scm 946 */
																														long
																															BgL_arg2186z00_2324;
																														{	/* Cnst/alloc.scm 946 */
																															obj_t
																																BgL_classz00_3307;
																															BgL_classz00_3307
																																=
																																BGl_appz00zzast_nodez00;
																															BgL_arg2186z00_2324
																																=
																																BGL_CLASS_NUM
																																(BgL_classz00_3307);
																														}
																														BGL_OBJECT_CLASS_NUM_SET
																															(((BgL_objectz00_bglt) BgL_new1233z00_2323), BgL_arg2186z00_2324);
																													}
																													{	/* Cnst/alloc.scm 946 */
																														BgL_objectz00_bglt
																															BgL_tmpz00_5786;
																														BgL_tmpz00_5786 =
																															(
																															(BgL_objectz00_bglt)
																															BgL_new1233z00_2323);
																														BGL_OBJECT_WIDENING_SET
																															(BgL_tmpz00_5786,
																															BFALSE);
																													}
																													((BgL_objectz00_bglt)
																														BgL_new1233z00_2323);
																													BgL_new1234z00_2312 =
																														BgL_new1233z00_2323;
																												}
																												((((BgL_nodez00_bglt)
																															COBJECT((
																																	(BgL_nodez00_bglt)
																																	BgL_new1234z00_2312)))->
																														BgL_locz00) =
																													((obj_t)
																														BgL_locz00_71),
																													BUNSPEC);
																												((((BgL_nodez00_bglt)
																															COBJECT((
																																	(BgL_nodez00_bglt)
																																	BgL_new1234z00_2312)))->
																														BgL_typez00) =
																													((BgL_typez00_bglt)
																														BgL_veczd2typezd2_2277),
																													BUNSPEC);
																												((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt) BgL_new1234z00_2312)))->BgL_sidezd2effectzd2) = ((obj_t) BUNSPEC), BUNSPEC);
																												((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt) BgL_new1234z00_2312)))->BgL_keyz00) = ((obj_t) BINT(-1L)), BUNSPEC);
																												{
																													BgL_varz00_bglt
																														BgL_auxz00_5799;
																													{	/* Cnst/alloc.scm 942 */
																														BgL_refz00_bglt
																															BgL_new1236z00_2313;
																														{	/* Cnst/alloc.scm 945 */
																															BgL_refz00_bglt
																																BgL_new1235z00_2315;
																															BgL_new1235z00_2315
																																=
																																(
																																(BgL_refz00_bglt)
																																BOBJECT
																																(GC_MALLOC
																																	(sizeof(struct
																																			BgL_refz00_bgl))));
																															{	/* Cnst/alloc.scm 945 */
																																long
																																	BgL_arg2181z00_2316;
																																{	/* Cnst/alloc.scm 945 */
																																	obj_t
																																		BgL_classz00_3311;
																																	BgL_classz00_3311
																																		=
																																		BGl_refz00zzast_nodez00;
																																	BgL_arg2181z00_2316
																																		=
																																		BGL_CLASS_NUM
																																		(BgL_classz00_3311);
																																}
																																BGL_OBJECT_CLASS_NUM_SET
																																	(((BgL_objectz00_bglt) BgL_new1235z00_2315), BgL_arg2181z00_2316);
																															}
																															{	/* Cnst/alloc.scm 945 */
																																BgL_objectz00_bglt
																																	BgL_tmpz00_5804;
																																BgL_tmpz00_5804
																																	=
																																	(
																																	(BgL_objectz00_bglt)
																																	BgL_new1235z00_2315);
																																BGL_OBJECT_WIDENING_SET
																																	(BgL_tmpz00_5804,
																																	BFALSE);
																															}
																															((BgL_objectz00_bglt) BgL_new1235z00_2315);
																															BgL_new1236z00_2313
																																=
																																BgL_new1235z00_2315;
																														}
																														((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt) BgL_new1236z00_2313)))->BgL_locz00) = ((obj_t) BgL_locz00_71), BUNSPEC);
																														((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt) BgL_new1236z00_2313)))->BgL_typez00) = ((BgL_typez00_bglt) BgL_veczd2typezd2_2277), BUNSPEC);
																														((((BgL_varz00_bglt)
																																	COBJECT((
																																			(BgL_varz00_bglt)
																																			BgL_new1236z00_2313)))->
																																BgL_variablez00)
																															=
																															((BgL_variablez00_bglt) ((BgL_variablez00_bglt) BGl_findzd2globalzd2zzast_envz00(BgL_listzd2ze3vectorz31_2278, BNIL))), BUNSPEC);
																														BgL_auxz00_5799 =
																															((BgL_varz00_bglt)
																															BgL_new1236z00_2313);
																													}
																													((((BgL_appz00_bglt)
																																COBJECT
																																(BgL_new1234z00_2312))->
																															BgL_funz00) =
																														((BgL_varz00_bglt)
																															BgL_auxz00_5799),
																														BUNSPEC);
																												}
																												{
																													obj_t BgL_auxz00_5818;

																													{	/* Cnst/alloc.scm 947 */
																														BgL_kwotez00_bglt
																															BgL_arg2182z00_2317;
																														{	/* Cnst/alloc.scm 947 */
																															BgL_kwotez00_bglt
																																BgL_new1238z00_2319;
																															{	/* Cnst/alloc.scm 951 */
																																BgL_kwotez00_bglt
																																	BgL_new1237z00_2321;
																																BgL_new1237z00_2321
																																	=
																																	(
																																	(BgL_kwotez00_bglt)
																																	BOBJECT
																																	(GC_MALLOC
																																		(sizeof
																																			(struct
																																				BgL_kwotez00_bgl))));
																																{	/* Cnst/alloc.scm 951 */
																																	long
																																		BgL_arg2185z00_2322;
																																	{	/* Cnst/alloc.scm 951 */
																																		obj_t
																																			BgL_classz00_3315;
																																		BgL_classz00_3315
																																			=
																																			BGl_kwotez00zzast_nodez00;
																																		BgL_arg2185z00_2322
																																			=
																																			BGL_CLASS_NUM
																																			(BgL_classz00_3315);
																																	}
																																	BGL_OBJECT_CLASS_NUM_SET
																																		(((BgL_objectz00_bglt) BgL_new1237z00_2321), BgL_arg2185z00_2322);
																																}
																																{	/* Cnst/alloc.scm 951 */
																																	BgL_objectz00_bglt
																																		BgL_tmpz00_5823;
																																	BgL_tmpz00_5823
																																		=
																																		(
																																		(BgL_objectz00_bglt)
																																		BgL_new1237z00_2321);
																																	BGL_OBJECT_WIDENING_SET
																																		(BgL_tmpz00_5823,
																																		BFALSE);
																																}
																																((BgL_objectz00_bglt) BgL_new1237z00_2321);
																																BgL_new1238z00_2319
																																	=
																																	BgL_new1237z00_2321;
																															}
																															((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt) BgL_new1238z00_2319)))->BgL_locz00) = ((obj_t) BgL_locz00_71), BUNSPEC);
																															{
																																BgL_typez00_bglt
																																	BgL_auxz00_5829;
																																{	/* Cnst/alloc.scm 950 */
																																	BgL_typez00_bglt
																																		BgL_arg2184z00_2320;
																																	BgL_arg2184z00_2320
																																		=
																																		BGl_getzd2typezd2kwotez00zztype_typeofz00
																																		(BgL_lz00_2307);
																																	BgL_auxz00_5829
																																		=
																																		BGl_strictzd2nodezd2typez00zzast_nodez00
																																		(BgL_arg2184z00_2320,
																																		((BgL_typez00_bglt) BGl_za2objza2z00zztype_cachez00));
																																}
																																((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt) BgL_new1238z00_2319)))->BgL_typez00) = ((BgL_typez00_bglt) BgL_auxz00_5829), BUNSPEC);
																															}
																															((((BgL_kwotez00_bglt) COBJECT(BgL_new1238z00_2319))->BgL_valuez00) = ((obj_t) BgL_lz00_2307), BUNSPEC);
																															BgL_arg2182z00_2317
																																=
																																BgL_new1238z00_2319;
																														}
																														{	/* Cnst/alloc.scm 946 */
																															obj_t
																																BgL_list2183z00_2318;
																															BgL_list2183z00_2318
																																=
																																MAKE_YOUNG_PAIR(
																																((obj_t)
																																	BgL_arg2182z00_2317),
																																BNIL);
																															BgL_auxz00_5818 =
																																BgL_list2183z00_2318;
																													}}
																													((((BgL_appz00_bglt)
																																COBJECT
																																(BgL_new1234z00_2312))->
																															BgL_argsz00) =
																														((obj_t)
																															BgL_auxz00_5818),
																														BUNSPEC);
																												}
																												((((BgL_appz00_bglt)
																															COBJECT
																															(BgL_new1234z00_2312))->
																														BgL_stackablez00) =
																													((obj_t) BFALSE),
																													BUNSPEC);
																												BgL_arg2179z00_2311 =
																													BgL_new1234z00_2312;
																											}
																											BgL_arg2177z00_2309 =
																												MAKE_YOUNG_PAIR(
																												((obj_t)
																													BgL_varz00_2306),
																												((obj_t)
																													BgL_arg2179z00_2311));
																										}
																										{	/* Cnst/alloc.scm 937 */
																											obj_t
																												BgL_list2178z00_2310;
																											BgL_list2178z00_2310 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg2177z00_2309,
																												BNIL);
																											BgL_auxz00_5781 =
																												BgL_list2178z00_2310;
																									}}
																									((((BgL_letzd2varzd2_bglt)
																												COBJECT
																												(BgL_new1231z00_2308))->
																											BgL_bindingsz00) =
																										((obj_t) BgL_auxz00_5781),
																										BUNSPEC);
																								}
																								{
																									BgL_nodez00_bglt
																										BgL_auxz00_5845;
																									{	/* Cnst/alloc.scm 952 */
																										BgL_refz00_bglt
																											BgL_new1240z00_2325;
																										{	/* Cnst/alloc.scm 953 */
																											BgL_refz00_bglt
																												BgL_new1239z00_2326;
																											BgL_new1239z00_2326 =
																												((BgL_refz00_bglt)
																												BOBJECT(GC_MALLOC(sizeof
																														(struct
																															BgL_refz00_bgl))));
																											{	/* Cnst/alloc.scm 953 */
																												long
																													BgL_arg2187z00_2327;
																												{	/* Cnst/alloc.scm 953 */
																													obj_t
																														BgL_classz00_3321;
																													BgL_classz00_3321 =
																														BGl_refz00zzast_nodez00;
																													BgL_arg2187z00_2327 =
																														BGL_CLASS_NUM
																														(BgL_classz00_3321);
																												}
																												BGL_OBJECT_CLASS_NUM_SET
																													(((BgL_objectz00_bglt)
																														BgL_new1239z00_2326),
																													BgL_arg2187z00_2327);
																											}
																											{	/* Cnst/alloc.scm 953 */
																												BgL_objectz00_bglt
																													BgL_tmpz00_5850;
																												BgL_tmpz00_5850 =
																													((BgL_objectz00_bglt)
																													BgL_new1239z00_2326);
																												BGL_OBJECT_WIDENING_SET
																													(BgL_tmpz00_5850,
																													BFALSE);
																											}
																											((BgL_objectz00_bglt)
																												BgL_new1239z00_2326);
																											BgL_new1240z00_2325 =
																												BgL_new1239z00_2326;
																										}
																										((((BgL_nodez00_bglt)
																													COBJECT((
																															(BgL_nodez00_bglt)
																															BgL_new1240z00_2325)))->
																												BgL_locz00) =
																											((obj_t) BgL_locz00_71),
																											BUNSPEC);
																										((((BgL_nodez00_bglt)
																													COBJECT((
																															(BgL_nodez00_bglt)
																															BgL_new1240z00_2325)))->
																												BgL_typez00) =
																											((BgL_typez00_bglt)
																												BgL_veczd2typezd2_2277),
																											BUNSPEC);
																										((((BgL_varz00_bglt)
																													COBJECT((
																															(BgL_varz00_bglt)
																															BgL_new1240z00_2325)))->
																												BgL_variablez00) =
																											((BgL_variablez00_bglt) (
																													(BgL_variablez00_bglt)
																													BgL_varz00_2306)),
																											BUNSPEC);
																										BgL_auxz00_5845 =
																											((BgL_nodez00_bglt)
																											BgL_new1240z00_2325);
																									}
																									((((BgL_letzd2varzd2_bglt)
																												COBJECT
																												(BgL_new1231z00_2308))->
																											BgL_bodyz00) =
																										((BgL_nodez00_bglt)
																											BgL_auxz00_5845),
																										BUNSPEC);
																								}
																								((((BgL_letzd2varzd2_bglt)
																											COBJECT
																											(BgL_new1231z00_2308))->
																										BgL_removablezf3zf3) =
																									((bool_t) ((bool_t) 1)),
																									BUNSPEC);
																								BgL_arg2175z00_2304 =
																									BgL_new1231z00_2308;
																						}}
																						BgL_arg2176z00_2305 =
																							BGl_strictzd2nodezd2typez00zzast_nodez00
																							(BgL_veczd2typezd2_2277,
																							((BgL_typez00_bglt)
																								BGl_za2objza2z00zztype_cachez00));
																						BgL_arg2174z00_2303 =
																							BGl_coercez12z12zzcoerce_coercez00
																							(((BgL_nodez00_bglt)
																								BgL_arg2175z00_2304), BUNSPEC,
																							BgL_arg2176z00_2305,
																							((bool_t) 0));
																					}
																					BgL_arg2202z00_2344 =
																						BGl_cnstz12z12zzcnst_nodez00
																						(BgL_arg2174z00_2303);
																				}
																				BgL_arg2196z00_2339 =
																					MAKE_YOUNG_PAIR(
																					((obj_t) BgL_arg2202z00_2344), BNIL);
																			}
																			BgL_arg2194z00_2337 =
																				MAKE_YOUNG_PAIR(BgL_arg2195z00_2338,
																				BgL_arg2196z00_2339);
																		}
																		BgL_arg2193z00_2336 =
																			MAKE_YOUNG_PAIR(CNST_TABLE_REF(13L),
																			BgL_arg2194z00_2337);
																	}
																	BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 =
																		MAKE_YOUNG_PAIR(BgL_arg2193z00_2336,
																		BGl_za2globalzd2sexpza2zd2zzcnst_allocz00);
																}
																{	/* Cnst/alloc.scm 978 */
																	BgL_refz00_bglt BgL_new1242z00_2345;

																	{	/* Cnst/alloc.scm 979 */
																		BgL_refz00_bglt BgL_new1241z00_2346;

																		BgL_new1241z00_2346 =
																			((BgL_refz00_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_refz00_bgl))));
																		{	/* Cnst/alloc.scm 979 */
																			long BgL_arg2203z00_2347;

																			BgL_arg2203z00_2347 =
																				BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
																			BGL_OBJECT_CLASS_NUM_SET(
																				((BgL_objectz00_bglt)
																					BgL_new1241z00_2346),
																				BgL_arg2203z00_2347);
																		}
																		{	/* Cnst/alloc.scm 979 */
																			BgL_objectz00_bglt BgL_tmpz00_5879;

																			BgL_tmpz00_5879 =
																				((BgL_objectz00_bglt)
																				BgL_new1241z00_2346);
																			BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5879,
																				BFALSE);
																		}
																		((BgL_objectz00_bglt) BgL_new1241z00_2346);
																		BgL_new1242z00_2345 = BgL_new1241z00_2346;
																	}
																	((((BgL_nodez00_bglt) COBJECT(
																					((BgL_nodez00_bglt)
																						BgL_new1242z00_2345)))->
																			BgL_locz00) =
																		((obj_t) BgL_locz00_71), BUNSPEC);
																	((((BgL_nodez00_bglt)
																				COBJECT(((BgL_nodez00_bglt)
																						BgL_new1242z00_2345)))->
																			BgL_typez00) =
																		((BgL_typez00_bglt) BgL_veczd2typezd2_2277),
																		BUNSPEC);
																	((((BgL_varz00_bglt)
																				COBJECT(((BgL_varz00_bglt)
																						BgL_new1242z00_2345)))->
																			BgL_variablez00) =
																		((BgL_variablez00_bglt) (
																				(BgL_variablez00_bglt)
																				BgL_varz00_2334)), BUNSPEC);
																	BgL_auxz00_5728 = BgL_new1242z00_2345;
															}}
															return ((BgL_nodez00_bglt) BgL_auxz00_5728);
														}
													else
														{
															BgL_appz00_bglt BgL_auxz00_5891;

															{	/* Cnst/alloc.scm 961 */
																long BgL_offsetz00_2331;

																BgL_offsetz00_2331 =
																	BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
																BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 =
																	(1L +
																	BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);
																BGl_za2globalzd2setza2zd2zzcnst_allocz00 =
																	MAKE_YOUNG_PAIR(BgL_vecz00_70,
																	BGl_za2globalzd2setza2zd2zzcnst_allocz00);
																if (CBOOL
																	(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
																	{	/* Cnst/alloc.scm 965 */
																		obj_t BgL_arg2190z00_2332;

																		{	/* Cnst/alloc.scm 69 */
																			obj_t BgL_newz00_3326;

																			BgL_newz00_3326 =
																				create_struct(CNST_TABLE_REF(9L),
																				(int) (2L));
																			{	/* Cnst/alloc.scm 69 */
																				obj_t BgL_auxz00_5901;
																				int BgL_tmpz00_5899;

																				BgL_auxz00_5901 =
																					BINT(BgL_offsetz00_2331);
																				BgL_tmpz00_5899 = (int) (1L);
																				STRUCT_SET(BgL_newz00_3326,
																					BgL_tmpz00_5899, BgL_auxz00_5901);
																			}
																			{	/* Cnst/alloc.scm 69 */
																				int BgL_tmpz00_5904;

																				BgL_tmpz00_5904 = (int) (0L);
																				STRUCT_SET(BgL_newz00_3326,
																					BgL_tmpz00_5904, BgL_vecz00_70);
																			}
																			BgL_arg2190z00_2332 = BgL_newz00_3326;
																		}
																		BGl_za2vectorzd2envza2zd2zzcnst_allocz00 =
																			MAKE_YOUNG_PAIR(BgL_arg2190z00_2332,
																			BGl_za2vectorzd2envza2zd2zzcnst_allocz00);
																	}
																else
																	{	/* Cnst/alloc.scm 964 */
																		BFALSE;
																	}
																BgL_auxz00_5891 =
																	BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00
																	(BINT(BgL_offsetz00_2331),
																	((obj_t) BgL_veczd2typezd2_2277),
																	BgL_locz00_71);
															}
															return ((BgL_nodez00_bglt) BgL_auxz00_5891);
														}
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &cnst-alloc-homogenous-vector */
	BgL_nodez00_bglt
		BGl_z62cnstzd2alloczd2homogenouszd2vectorzb0zzcnst_allocz00(obj_t
		BgL_envz00_3550, obj_t BgL_vecz00_3551, obj_t BgL_locz00_3552)
	{
		{	/* Cnst/alloc.scm 908 */
			return
				BGl_cnstzd2alloczd2homogenouszd2vectorzd2zzcnst_allocz00
				(BgL_vecz00_3551, BgL_locz00_3552);
		}

	}



/* force-initialize-srfi4-library-module! */
	obj_t
		BGl_forcezd2initializa7ezd2srfi4zd2libraryzd2modulez12zb5zzcnst_allocz00
		(void)
	{
		{	/* Cnst/alloc.scm 1010 */
			{	/* Cnst/alloc.scm 1013 */
				obj_t BgL_gz00_2374;

				BgL_gz00_2374 =
					BGl_findzd2globalzd2zzast_envz00(CNST_TABLE_REF(62L), BNIL);
				{	/* Cnst/alloc.scm 1015 */
					obj_t BgL_arg2222z00_2375;

					BgL_arg2222z00_2375 =
						(((BgL_globalz00_bglt) COBJECT(
								((BgL_globalz00_bglt) BgL_gz00_2374)))->BgL_modulez00);
					return
						BGl_withzd2libraryzd2modulez12z12zzmodule_libraryz00
						(BgL_arg2222z00_2375);
				}
			}
		}

	}



/* cnst-alloc-tvector */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2tvectorz00zzcnst_allocz00(obj_t BgL_tvecz00_72,
		obj_t BgL_locz00_73)
	{
		{	/* Cnst/alloc.scm 1020 */
			{

				if (BGl_tvectorzd2Czd2staticzf3zf3zztvector_cnstz00(BgL_tvecz00_72))
					{
						BgL_refz00_bglt BgL_auxz00_5920;

						{	/* Cnst/alloc.scm 1022 */
							BgL_globalz00_bglt BgL_varz00_2381;

							{	/* Cnst/alloc.scm 1022 */
								obj_t BgL_arg2242z00_2404;

								{	/* Cnst/alloc.scm 1022 */
									obj_t BgL_arg2243z00_2405;

									BgL_arg2243z00_2405 =
										BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(63L));
									BgL_arg2242z00_2404 =
										BGl_makezd2typedzd2identz00zzast_identz00
										(BgL_arg2243z00_2405, CNST_TABLE_REF(64L));
								}
								BgL_varz00_2381 =
									BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
									(BgL_arg2242z00_2404, BGl_za2moduleza2z00zzmodule_modulez00,
									BgL_tvecz00_72, CNST_TABLE_REF(65L), BgL_locz00_73);
							}
							{	/* Cnst/alloc.scm 1027 */
								obj_t BgL_idz00_2382;

								BgL_idz00_2382 =
									(((BgL_typez00_bglt) COBJECT(
											((BgL_typez00_bglt)
												STRUCT_REF(
													((obj_t) BgL_tvecz00_72), (int) (0L)))))->BgL_idz00);
								{	/* Cnst/alloc.scm 1027 */
									BgL_nodez00_bglt BgL_aidz00_2383;

									{	/* Cnst/alloc.scm 1028 */
										BgL_kwotez00_bglt BgL_arg2236z00_2394;

										{	/* Cnst/alloc.scm 1028 */
											BgL_kwotez00_bglt BgL_new1248z00_2395;

											{	/* Cnst/alloc.scm 1029 */
												BgL_kwotez00_bglt BgL_new1247z00_2398;

												BgL_new1247z00_2398 =
													((BgL_kwotez00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																BgL_kwotez00_bgl))));
												{	/* Cnst/alloc.scm 1029 */
													long BgL_arg2239z00_2399;

													BgL_arg2239z00_2399 =
														BGL_CLASS_NUM(BGl_kwotez00zzast_nodez00);
													BGL_OBJECT_CLASS_NUM_SET(
														((BgL_objectz00_bglt) BgL_new1247z00_2398),
														BgL_arg2239z00_2399);
												}
												{	/* Cnst/alloc.scm 1029 */
													BgL_objectz00_bglt BgL_tmpz00_5936;

													BgL_tmpz00_5936 =
														((BgL_objectz00_bglt) BgL_new1247z00_2398);
													BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5936, BFALSE);
												}
												((BgL_objectz00_bglt) BgL_new1247z00_2398);
												BgL_new1248z00_2395 = BgL_new1247z00_2398;
											}
											((((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt) BgL_new1248z00_2395)))->
													BgL_locz00) = ((obj_t) BgL_locz00_73), BUNSPEC);
											{
												BgL_typez00_bglt BgL_auxz00_5942;

												{	/* Cnst/alloc.scm 1031 */
													BgL_typez00_bglt BgL_arg2237z00_2396;
													BgL_typez00_bglt BgL_arg2238z00_2397;

													BgL_arg2237z00_2396 =
														BGl_getzd2typezd2kwotez00zztype_typeofz00
														(BgL_idz00_2382);
													BgL_arg2238z00_2397 =
														BGl_getzd2defaultzd2typez00zztype_cachez00();
													BgL_auxz00_5942 =
														BGl_strictzd2nodezd2typez00zzast_nodez00
														(BgL_arg2237z00_2396, BgL_arg2238z00_2397);
												}
												((((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_new1248z00_2395)))->
														BgL_typez00) =
													((BgL_typez00_bglt) BgL_auxz00_5942), BUNSPEC);
											}
											((((BgL_kwotez00_bglt) COBJECT(BgL_new1248z00_2395))->
													BgL_valuez00) = ((obj_t) BgL_idz00_2382), BUNSPEC);
											BgL_arg2236z00_2394 = BgL_new1248z00_2395;
										}
										BgL_aidz00_2383 =
											BGl_cnstz12z12zzcnst_nodez00(
											((BgL_nodez00_bglt) BgL_arg2236z00_2394));
									}
									{	/* Cnst/alloc.scm 1028 */

										{	/* Cnst/alloc.scm 1037 */
											obj_t BgL_arg2226z00_2384;

											{	/* Cnst/alloc.scm 1037 */
												obj_t BgL_arg2227z00_2385;

												{	/* Cnst/alloc.scm 1037 */
													obj_t BgL_arg2228z00_2386;
													obj_t BgL_arg2229z00_2387;

													{	/* Cnst/alloc.scm 1037 */
														obj_t BgL_arg2230z00_2388;

														{	/* Cnst/alloc.scm 1037 */
															obj_t BgL_arg2231z00_2389;
															obj_t BgL_arg2232z00_2390;

															BgL_arg2231z00_2389 =
																(((BgL_variablez00_bglt) COBJECT(
																		((BgL_variablez00_bglt) BgL_varz00_2381)))->
																BgL_idz00);
															BgL_arg2232z00_2390 =
																MAKE_YOUNG_PAIR((((BgL_globalz00_bglt)
																		COBJECT(BgL_varz00_2381))->BgL_modulez00),
																BNIL);
															BgL_arg2230z00_2388 =
																MAKE_YOUNG_PAIR(BgL_arg2231z00_2389,
																BgL_arg2232z00_2390);
														}
														BgL_arg2228z00_2386 =
															MAKE_YOUNG_PAIR(CNST_TABLE_REF(12L),
															BgL_arg2230z00_2388);
													}
													{	/* Cnst/alloc.scm 1038 */
														obj_t BgL_arg2234z00_2392;

														{	/* Cnst/alloc.scm 1038 */
															obj_t BgL_arg2235z00_2393;

															BgL_arg2235z00_2393 =
																MAKE_YOUNG_PAIR(
																((obj_t) BgL_aidz00_2383), BNIL);
															BgL_arg2234z00_2392 =
																MAKE_YOUNG_PAIR(CNST_TABLE_REF(66L),
																BgL_arg2235z00_2393);
														}
														BgL_arg2229z00_2387 =
															MAKE_YOUNG_PAIR(BgL_arg2234z00_2392, BNIL);
													}
													BgL_arg2227z00_2385 =
														MAKE_YOUNG_PAIR(BgL_arg2228z00_2386,
														BgL_arg2229z00_2387);
												}
												BgL_arg2226z00_2384 =
													MAKE_YOUNG_PAIR(CNST_TABLE_REF(67L),
													BgL_arg2227z00_2385);
											}
											BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 =
												MAKE_YOUNG_PAIR(BgL_arg2226z00_2384,
												BGl_za2globalzd2sexpza2zd2zzcnst_allocz00);
							}}}}
							{	/* Cnst/alloc.scm 1039 */
								BgL_refz00_bglt BgL_new1250z00_2401;

								{	/* Cnst/alloc.scm 1040 */
									BgL_refz00_bglt BgL_new1249z00_2402;

									BgL_new1249z00_2402 =
										((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
													BgL_refz00_bgl))));
									{	/* Cnst/alloc.scm 1040 */
										long BgL_arg2241z00_2403;

										BgL_arg2241z00_2403 =
											BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1249z00_2402),
											BgL_arg2241z00_2403);
									}
									{	/* Cnst/alloc.scm 1040 */
										BgL_objectz00_bglt BgL_tmpz00_5971;

										BgL_tmpz00_5971 =
											((BgL_objectz00_bglt) BgL_new1249z00_2402);
										BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5971, BFALSE);
									}
									((BgL_objectz00_bglt) BgL_new1249z00_2402);
									BgL_new1250z00_2401 = BgL_new1249z00_2402;
								}
								((((BgL_nodez00_bglt) COBJECT(
												((BgL_nodez00_bglt) BgL_new1250z00_2401)))->
										BgL_locz00) = ((obj_t) BgL_locz00_73), BUNSPEC);
								((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
													BgL_new1250z00_2401)))->BgL_typez00) =
									((BgL_typez00_bglt) (((BgL_variablez00_bglt)
												COBJECT(((BgL_variablez00_bglt) BgL_varz00_2381)))->
											BgL_typez00)), BUNSPEC);
								((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
													BgL_new1250z00_2401)))->BgL_variablez00) =
									((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
											BgL_varz00_2381)), BUNSPEC);
								BgL_auxz00_5920 = BgL_new1250z00_2401;
						}}
						return ((BgL_nodez00_bglt) BgL_auxz00_5920);
					}
				else
					{
						BgL_appz00_bglt BgL_auxz00_5985;

						BGl_internalzd2errorzd2zztools_errorz00
							(BGl_string2416z00zzcnst_allocz00,
							BGl_string2417z00zzcnst_allocz00, BgL_tvecz00_72);
						{	/* Cnst/alloc.scm 1047 */
							long BgL_offsetz00_2407;

							BgL_offsetz00_2407 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
							BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 =
								(1L + BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);
							BGl_za2globalzd2setza2zd2zzcnst_allocz00 =
								MAKE_YOUNG_PAIR(BgL_tvecz00_72,
								BGl_za2globalzd2setza2zd2zzcnst_allocz00);
							{	/* Cnst/alloc.scm 1050 */
								obj_t BgL_arg2245z00_2408;

								BgL_arg2245z00_2408 =
									STRUCT_REF(((obj_t) BgL_tvecz00_72), (int) (0L));
								BgL_auxz00_5985 =
									BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BINT
									(BgL_offsetz00_2407), BgL_arg2245z00_2408, BgL_locz00_73);
						}}
						return ((BgL_nodez00_bglt) BgL_auxz00_5985);
					}
			}
		}

	}



/* &cnst-alloc-tvector */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2tvectorz62zzcnst_allocz00(obj_t
		BgL_envz00_3573, obj_t BgL_tvecz00_3574, obj_t BgL_locz00_3575)
	{
		{	/* Cnst/alloc.scm 1020 */
			return
				BGl_cnstzd2alloczd2tvectorz00zzcnst_allocz00(BgL_tvecz00_3574,
				BgL_locz00_3575);
		}

	}



/* cnst-alloc-struct */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_cnstzd2alloczd2structz00zzcnst_allocz00(obj_t BgL_structz00_74,
		obj_t BgL_locz00_75)
	{
		{	/* Cnst/alloc.scm 1058 */
			{

				{	/* Cnst/alloc.scm 1110 */
					obj_t BgL_oldz00_2414;

					{	/* Cnst/alloc.scm 1110 */
						obj_t BgL__andtest_1264z00_2420;

						BgL__andtest_1264z00_2420 =
							BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00;
						if (CBOOL(BgL__andtest_1264z00_2420))
							{
								obj_t BgL_envz00_2422;

								BgL_envz00_2422 = BGl_za2structzd2envza2zd2zzcnst_allocz00;
							BgL_zc3z04anonymousza32249ze3z87_2423:
								if (NULLP(BgL_envz00_2422))
									{	/* Cnst/alloc.scm 1113 */
										BgL_oldz00_2414 = BFALSE;
									}
								else
									{	/* Cnst/alloc.scm 1115 */
										bool_t BgL_test2553z00_6000;

										{	/* Cnst/alloc.scm 1115 */
											obj_t BgL_arg2255z00_2429;

											{	/* Cnst/alloc.scm 69 */
												obj_t BgL_sz00_3405;

												BgL_sz00_3405 = CAR(((obj_t) BgL_envz00_2422));
												BgL_arg2255z00_2429 =
													STRUCT_REF(BgL_sz00_3405, (int) (0L));
											}
											BgL_test2553z00_6000 =
												BGl_cnstzd2equalzf3z21zzcnst_allocz00
												(BgL_arg2255z00_2429, BgL_structz00_74);
										}
										if (BgL_test2553z00_6000)
											{	/* Cnst/alloc.scm 1115 */
												BgL_oldz00_2414 = CAR(((obj_t) BgL_envz00_2422));
											}
										else
											{	/* Cnst/alloc.scm 1118 */
												obj_t BgL_arg2254z00_2428;

												BgL_arg2254z00_2428 = CDR(((obj_t) BgL_envz00_2422));
												{
													obj_t BgL_envz00_6010;

													BgL_envz00_6010 = BgL_arg2254z00_2428;
													BgL_envz00_2422 = BgL_envz00_6010;
													goto BgL_zc3z04anonymousza32249ze3z87_2423;
												}
											}
									}
							}
						else
							{	/* Cnst/alloc.scm 1110 */
								BgL_oldz00_2414 = BFALSE;
							}
					}
					if (CBOOL(BgL_oldz00_2414))
						{	/* Cnst/alloc.scm 1120 */
							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{	/* Cnst/alloc.scm 1122 */
									BgL_refz00_bglt BgL_new1266z00_2415;

									{	/* Cnst/alloc.scm 1123 */
										BgL_refz00_bglt BgL_new1265z00_2417;

										BgL_new1265z00_2417 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Cnst/alloc.scm 1123 */
											long BgL_arg2247z00_2418;

											BgL_arg2247z00_2418 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1265z00_2417),
												BgL_arg2247z00_2418);
										}
										{	/* Cnst/alloc.scm 1123 */
											BgL_objectz00_bglt BgL_tmpz00_6020;

											BgL_tmpz00_6020 =
												((BgL_objectz00_bglt) BgL_new1265z00_2417);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6020, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1265z00_2417);
										BgL_new1266z00_2415 = BgL_new1265z00_2417;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1266z00_2415)))->
											BgL_locz00) = ((obj_t) BgL_locz00_75), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1266z00_2415)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_variablez00_bglt)
													COBJECT(((BgL_variablez00_bglt) STRUCT_REF(((obj_t)
																	BgL_oldz00_2414),
																(int) (1L)))))->BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1266z00_2415)))->BgL_variablez00) =
										((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
												STRUCT_REF(((obj_t) BgL_oldz00_2414), (int) (1L)))),
										BUNSPEC);
									return ((BgL_nodez00_bglt) BgL_new1266z00_2415);
								}
							else
								{	/* Cnst/alloc.scm 1126 */
									obj_t BgL_arg2248z00_2419;

									BgL_arg2248z00_2419 =
										STRUCT_REF(((obj_t) BgL_oldz00_2414), (int) (1L));
									return
										((BgL_nodez00_bglt)
										BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00
										(BgL_arg2248z00_2419, BGl_za2structza2z00zztype_cachez00,
											BgL_locz00_75));
								}
						}
					else
						{	/* Cnst/alloc.scm 1120 */
							if (
								(BGl_za2initzd2modeza2zd2zzengine_paramz00 ==
									CNST_TABLE_REF(14L)))
								{
									BgL_refz00_bglt BgL_auxz00_6048;

									{	/* Cnst/alloc.scm 1098 */
										BgL_globalz00_bglt BgL_varz00_2463;

										{	/* Cnst/alloc.scm 1098 */
											obj_t BgL_arg2287z00_2477;

											{	/* Cnst/alloc.scm 1098 */
												obj_t BgL_arg2288z00_2478;

												BgL_arg2288z00_2478 =
													BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF
													(68L));
												BgL_arg2287z00_2477 =
													BGl_makezd2typedzd2identz00zzast_identz00
													(BgL_arg2288z00_2478, CNST_TABLE_REF(68L));
											}
											BgL_varz00_2463 =
												BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2
												(BgL_arg2287z00_2477,
												BGl_za2moduleza2z00zzmodule_modulez00,
												CNST_TABLE_REF(69L), CNST_TABLE_REF(3L));
										}
										if (CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
											{	/* Cnst/alloc.scm 1103 */
												obj_t BgL_arg2275z00_2464;

												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_newz00_3394;

													BgL_newz00_3394 =
														create_struct(CNST_TABLE_REF(9L), (int) (2L));
													{	/* Cnst/alloc.scm 69 */
														obj_t BgL_auxz00_6063;
														int BgL_tmpz00_6061;

														BgL_auxz00_6063 = ((obj_t) BgL_varz00_2463);
														BgL_tmpz00_6061 = (int) (1L);
														STRUCT_SET(BgL_newz00_3394, BgL_tmpz00_6061,
															BgL_auxz00_6063);
													}
													{	/* Cnst/alloc.scm 69 */
														int BgL_tmpz00_6066;

														BgL_tmpz00_6066 = (int) (0L);
														STRUCT_SET(BgL_newz00_3394, BgL_tmpz00_6066,
															BgL_structz00_74);
													}
													BgL_arg2275z00_2464 = BgL_newz00_3394;
												}
												BGl_za2structzd2envza2zd2zzcnst_allocz00 =
													MAKE_YOUNG_PAIR(BgL_arg2275z00_2464,
													BGl_za2structzd2envza2zd2zzcnst_allocz00);
											}
										else
											{	/* Cnst/alloc.scm 1102 */
												BFALSE;
											}
										{	/* Cnst/alloc.scm 1104 */
											obj_t BgL_arg2276z00_2465;

											{	/* Cnst/alloc.scm 1104 */
												obj_t BgL_arg2277z00_2466;

												{	/* Cnst/alloc.scm 1104 */
													obj_t BgL_arg2279z00_2467;
													obj_t BgL_arg2280z00_2468;

													{	/* Cnst/alloc.scm 1104 */
														obj_t BgL_arg2281z00_2469;

														{	/* Cnst/alloc.scm 1104 */
															obj_t BgL_arg2282z00_2470;
															obj_t BgL_arg2283z00_2471;

															BgL_arg2282z00_2470 =
																(((BgL_variablez00_bglt) COBJECT(
																		((BgL_variablez00_bglt) BgL_varz00_2463)))->
																BgL_idz00);
															BgL_arg2283z00_2471 =
																MAKE_YOUNG_PAIR((((BgL_globalz00_bglt)
																		COBJECT(BgL_varz00_2463))->BgL_modulez00),
																BNIL);
															BgL_arg2281z00_2469 =
																MAKE_YOUNG_PAIR(BgL_arg2282z00_2470,
																BgL_arg2283z00_2471);
														}
														BgL_arg2279z00_2467 =
															MAKE_YOUNG_PAIR(CNST_TABLE_REF(12L),
															BgL_arg2281z00_2469);
													}
													{	/* Cnst/alloc.scm 1105 */
														BgL_nodez00_bglt BgL_arg2285z00_2473;

														{	/* Cnst/alloc.scm 1062 */
															BgL_nodez00_bglt BgL_arg2258z00_2433;

															{	/* Cnst/alloc.scm 1062 */
																BgL_letzd2varzd2_bglt BgL_arg2259z00_2434;
																BgL_typez00_bglt BgL_arg2260z00_2435;

																{	/* Cnst/alloc.scm 1062 */
																	BgL_localz00_bglt BgL_varz00_2436;
																	obj_t BgL_lz00_2437;

																	BgL_varz00_2436 =
																		BGl_makezd2localzd2svarz00zzast_localz00
																		(CNST_TABLE_REF(48L),
																		((BgL_typez00_bglt)
																			BGl_za2structza2z00zztype_cachez00));
																	BgL_lz00_2437 =
																		BGl_structzd2ze3listz31zz__structurez00
																		(BgL_structz00_74);
																	{	/* Cnst/alloc.scm 1064 */
																		BgL_letzd2varzd2_bglt BgL_new1252z00_2438;

																		{	/* Cnst/alloc.scm 1065 */
																			BgL_letzd2varzd2_bglt BgL_new1251z00_2457;

																			BgL_new1251z00_2457 =
																				((BgL_letzd2varzd2_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_letzd2varzd2_bgl))));
																			{	/* Cnst/alloc.scm 1065 */
																				long BgL_arg2271z00_2458;

																				BgL_arg2271z00_2458 =
																					BGL_CLASS_NUM
																					(BGl_letzd2varzd2zzast_nodez00);
																				BGL_OBJECT_CLASS_NUM_SET((
																						(BgL_objectz00_bglt)
																						BgL_new1251z00_2457),
																					BgL_arg2271z00_2458);
																			}
																			{	/* Cnst/alloc.scm 1065 */
																				BgL_objectz00_bglt BgL_tmpz00_6085;

																				BgL_tmpz00_6085 =
																					((BgL_objectz00_bglt)
																					BgL_new1251z00_2457);
																				BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6085,
																					BFALSE);
																			}
																			((BgL_objectz00_bglt)
																				BgL_new1251z00_2457);
																			BgL_new1252z00_2438 = BgL_new1251z00_2457;
																		}
																		((((BgL_nodez00_bglt) COBJECT(
																						((BgL_nodez00_bglt)
																							BgL_new1252z00_2438)))->
																				BgL_locz00) =
																			((obj_t) BgL_locz00_75), BUNSPEC);
																		((((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt)
																							BgL_new1252z00_2438)))->
																				BgL_typez00) =
																			((BgL_typez00_bglt)
																				BGl_strictzd2nodezd2typez00zzast_nodez00
																				(((BgL_typez00_bglt)
																						BGl_za2structza2z00zztype_cachez00),
																					((BgL_typez00_bglt)
																						BGl_za2objza2z00zztype_cachez00))),
																			BUNSPEC);
																		((((BgL_nodezf2effectzf2_bglt)
																					COBJECT(((BgL_nodezf2effectzf2_bglt)
																							BgL_new1252z00_2438)))->
																				BgL_sidezd2effectzd2) =
																			((obj_t) BUNSPEC), BUNSPEC);
																		((((BgL_nodezf2effectzf2_bglt)
																					COBJECT(((BgL_nodezf2effectzf2_bglt)
																							BgL_new1252z00_2438)))->
																				BgL_keyz00) =
																			((obj_t) BINT(-1L)), BUNSPEC);
																		{
																			obj_t BgL_auxz00_6101;

																			{	/* Cnst/alloc.scm 1070 */
																				obj_t BgL_arg2261z00_2439;

																				{	/* Cnst/alloc.scm 1070 */
																					BgL_appz00_bglt BgL_arg2263z00_2441;

																					{	/* Cnst/alloc.scm 1070 */
																						BgL_appz00_bglt BgL_new1254z00_2442;

																						{	/* Cnst/alloc.scm 1077 */
																							BgL_appz00_bglt
																								BgL_new1253z00_2452;
																							BgL_new1253z00_2452 =
																								((BgL_appz00_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_appz00_bgl))));
																							{	/* Cnst/alloc.scm 1077 */
																								long BgL_arg2269z00_2453;

																								{	/* Cnst/alloc.scm 1077 */
																									obj_t BgL_classz00_3370;

																									BgL_classz00_3370 =
																										BGl_appz00zzast_nodez00;
																									BgL_arg2269z00_2453 =
																										BGL_CLASS_NUM
																										(BgL_classz00_3370);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1253z00_2452),
																									BgL_arg2269z00_2453);
																							}
																							{	/* Cnst/alloc.scm 1077 */
																								BgL_objectz00_bglt
																									BgL_tmpz00_6106;
																								BgL_tmpz00_6106 =
																									((BgL_objectz00_bglt)
																									BgL_new1253z00_2452);
																								BGL_OBJECT_WIDENING_SET
																									(BgL_tmpz00_6106, BFALSE);
																							}
																							((BgL_objectz00_bglt)
																								BgL_new1253z00_2452);
																							BgL_new1254z00_2442 =
																								BgL_new1253z00_2452;
																						}
																						((((BgL_nodez00_bglt) COBJECT(
																										((BgL_nodez00_bglt)
																											BgL_new1254z00_2442)))->
																								BgL_locz00) =
																							((obj_t) BgL_locz00_75), BUNSPEC);
																						((((BgL_nodez00_bglt)
																									COBJECT(((BgL_nodez00_bglt)
																											BgL_new1254z00_2442)))->
																								BgL_typez00) =
																							((BgL_typez00_bglt) (
																									(BgL_typez00_bglt)
																									BGl_za2structza2z00zztype_cachez00)),
																							BUNSPEC);
																						((((BgL_nodezf2effectzf2_bglt)
																									COBJECT((
																											(BgL_nodezf2effectzf2_bglt)
																											BgL_new1254z00_2442)))->
																								BgL_sidezd2effectzd2) =
																							((obj_t) BUNSPEC), BUNSPEC);
																						((((BgL_nodezf2effectzf2_bglt)
																									COBJECT((
																											(BgL_nodezf2effectzf2_bglt)
																											BgL_new1254z00_2442)))->
																								BgL_keyz00) =
																							((obj_t) BINT(-1L)), BUNSPEC);
																						{
																							BgL_varz00_bglt BgL_auxz00_6120;

																							{	/* Cnst/alloc.scm 1073 */
																								BgL_refz00_bglt
																									BgL_new1257z00_2443;
																								{	/* Cnst/alloc.scm 1076 */
																									BgL_refz00_bglt
																										BgL_new1255z00_2444;
																									BgL_new1255z00_2444 =
																										((BgL_refz00_bglt)
																										BOBJECT(GC_MALLOC(sizeof
																												(struct
																													BgL_refz00_bgl))));
																									{	/* Cnst/alloc.scm 1076 */
																										long BgL_arg2264z00_2445;

																										{	/* Cnst/alloc.scm 1076 */
																											obj_t BgL_classz00_3374;

																											BgL_classz00_3374 =
																												BGl_refz00zzast_nodez00;
																											BgL_arg2264z00_2445 =
																												BGL_CLASS_NUM
																												(BgL_classz00_3374);
																										}
																										BGL_OBJECT_CLASS_NUM_SET(
																											((BgL_objectz00_bglt)
																												BgL_new1255z00_2444),
																											BgL_arg2264z00_2445);
																									}
																									{	/* Cnst/alloc.scm 1076 */
																										BgL_objectz00_bglt
																											BgL_tmpz00_6125;
																										BgL_tmpz00_6125 =
																											((BgL_objectz00_bglt)
																											BgL_new1255z00_2444);
																										BGL_OBJECT_WIDENING_SET
																											(BgL_tmpz00_6125, BFALSE);
																									}
																									((BgL_objectz00_bglt)
																										BgL_new1255z00_2444);
																									BgL_new1257z00_2443 =
																										BgL_new1255z00_2444;
																								}
																								((((BgL_nodez00_bglt) COBJECT(
																												((BgL_nodez00_bglt)
																													BgL_new1257z00_2443)))->
																										BgL_locz00) =
																									((obj_t) BgL_locz00_75),
																									BUNSPEC);
																								{
																									BgL_typez00_bglt
																										BgL_auxz00_6131;
																									{	/* Cnst/alloc.scm 1075 */
																										BgL_variablez00_bglt
																											BgL_oz00_3378;
																										BgL_oz00_3378 =
																											((BgL_variablez00_bglt)
																											BGl_za2listzd2ze3structza2z31zzcnst_cachez00);
																										BgL_auxz00_6131 =
																											(((BgL_variablez00_bglt)
																												COBJECT
																												(BgL_oz00_3378))->
																											BgL_typez00);
																									}
																									((((BgL_nodez00_bglt) COBJECT(
																													((BgL_nodez00_bglt)
																														BgL_new1257z00_2443)))->
																											BgL_typez00) =
																										((BgL_typez00_bglt)
																											BgL_auxz00_6131),
																										BUNSPEC);
																								}
																								((((BgL_varz00_bglt) COBJECT(
																												((BgL_varz00_bglt)
																													BgL_new1257z00_2443)))->
																										BgL_variablez00) =
																									((BgL_variablez00_bglt) (
																											(BgL_variablez00_bglt)
																											BGl_za2listzd2ze3structza2z31zzcnst_cachez00)),
																									BUNSPEC);
																								BgL_auxz00_6120 =
																									((BgL_varz00_bglt)
																									BgL_new1257z00_2443);
																							}
																							((((BgL_appz00_bglt)
																										COBJECT
																										(BgL_new1254z00_2442))->
																									BgL_funz00) =
																								((BgL_varz00_bglt)
																									BgL_auxz00_6120), BUNSPEC);
																						}
																						{
																							obj_t BgL_auxz00_6141;

																							{	/* Cnst/alloc.scm 1078 */
																								BgL_kwotez00_bglt
																									BgL_arg2265z00_2446;
																								{	/* Cnst/alloc.scm 1078 */
																									BgL_kwotez00_bglt
																										BgL_new1259z00_2448;
																									{	/* Cnst/alloc.scm 1082 */
																										BgL_kwotez00_bglt
																											BgL_new1258z00_2450;
																										BgL_new1258z00_2450 =
																											((BgL_kwotez00_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_kwotez00_bgl))));
																										{	/* Cnst/alloc.scm 1082 */
																											long BgL_arg2268z00_2451;

																											{	/* Cnst/alloc.scm 1082 */
																												obj_t BgL_classz00_3379;

																												BgL_classz00_3379 =
																													BGl_kwotez00zzast_nodez00;
																												BgL_arg2268z00_2451 =
																													BGL_CLASS_NUM
																													(BgL_classz00_3379);
																											}
																											BGL_OBJECT_CLASS_NUM_SET(
																												((BgL_objectz00_bglt)
																													BgL_new1258z00_2450),
																												BgL_arg2268z00_2451);
																										}
																										{	/* Cnst/alloc.scm 1082 */
																											BgL_objectz00_bglt
																												BgL_tmpz00_6146;
																											BgL_tmpz00_6146 =
																												((BgL_objectz00_bglt)
																												BgL_new1258z00_2450);
																											BGL_OBJECT_WIDENING_SET
																												(BgL_tmpz00_6146,
																												BFALSE);
																										}
																										((BgL_objectz00_bglt)
																											BgL_new1258z00_2450);
																										BgL_new1259z00_2448 =
																											BgL_new1258z00_2450;
																									}
																									((((BgL_nodez00_bglt) COBJECT(
																													((BgL_nodez00_bglt)
																														BgL_new1259z00_2448)))->
																											BgL_locz00) =
																										((obj_t) BgL_locz00_75),
																										BUNSPEC);
																									{
																										BgL_typez00_bglt
																											BgL_auxz00_6152;
																										{	/* Cnst/alloc.scm 1081 */
																											BgL_typez00_bglt
																												BgL_arg2267z00_2449;
																											BgL_arg2267z00_2449 =
																												BGl_getzd2typezd2kwotez00zztype_typeofz00
																												(BgL_lz00_2437);
																											BgL_auxz00_6152 =
																												BGl_strictzd2nodezd2typez00zzast_nodez00
																												(BgL_arg2267z00_2449,
																												((BgL_typez00_bglt)
																													BGl_za2objza2z00zztype_cachez00));
																										}
																										((((BgL_nodez00_bglt)
																													COBJECT((
																															(BgL_nodez00_bglt)
																															BgL_new1259z00_2448)))->
																												BgL_typez00) =
																											((BgL_typez00_bglt)
																												BgL_auxz00_6152),
																											BUNSPEC);
																									}
																									((((BgL_kwotez00_bglt)
																												COBJECT
																												(BgL_new1259z00_2448))->
																											BgL_valuez00) =
																										((obj_t) BgL_lz00_2437),
																										BUNSPEC);
																									BgL_arg2265z00_2446 =
																										BgL_new1259z00_2448;
																								}
																								{	/* Cnst/alloc.scm 1077 */
																									obj_t BgL_list2266z00_2447;

																									BgL_list2266z00_2447 =
																										MAKE_YOUNG_PAIR(
																										((obj_t)
																											BgL_arg2265z00_2446),
																										BNIL);
																									BgL_auxz00_6141 =
																										BgL_list2266z00_2447;
																							}}
																							((((BgL_appz00_bglt)
																										COBJECT
																										(BgL_new1254z00_2442))->
																									BgL_argsz00) =
																								((obj_t) BgL_auxz00_6141),
																								BUNSPEC);
																						}
																						((((BgL_appz00_bglt)
																									COBJECT
																									(BgL_new1254z00_2442))->
																								BgL_stackablez00) =
																							((obj_t) BFALSE), BUNSPEC);
																						BgL_arg2263z00_2441 =
																							BgL_new1254z00_2442;
																					}
																					BgL_arg2261z00_2439 =
																						MAKE_YOUNG_PAIR(
																						((obj_t) BgL_varz00_2436),
																						((obj_t) BgL_arg2263z00_2441));
																				}
																				{	/* Cnst/alloc.scm 1068 */
																					obj_t BgL_list2262z00_2440;

																					BgL_list2262z00_2440 =
																						MAKE_YOUNG_PAIR(BgL_arg2261z00_2439,
																						BNIL);
																					BgL_auxz00_6101 =
																						BgL_list2262z00_2440;
																			}}
																			((((BgL_letzd2varzd2_bglt)
																						COBJECT(BgL_new1252z00_2438))->
																					BgL_bindingsz00) =
																				((obj_t) BgL_auxz00_6101), BUNSPEC);
																		}
																		{
																			BgL_nodez00_bglt BgL_auxz00_6168;

																			{	/* Cnst/alloc.scm 1083 */
																				BgL_refz00_bglt BgL_new1261z00_2454;

																				{	/* Cnst/alloc.scm 1084 */
																					BgL_refz00_bglt BgL_new1260z00_2455;

																					BgL_new1260z00_2455 =
																						((BgL_refz00_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_refz00_bgl))));
																					{	/* Cnst/alloc.scm 1084 */
																						long BgL_arg2270z00_2456;

																						{	/* Cnst/alloc.scm 1084 */
																							obj_t BgL_classz00_3385;

																							BgL_classz00_3385 =
																								BGl_refz00zzast_nodez00;
																							BgL_arg2270z00_2456 =
																								BGL_CLASS_NUM
																								(BgL_classz00_3385);
																						}
																						BGL_OBJECT_CLASS_NUM_SET(
																							((BgL_objectz00_bglt)
																								BgL_new1260z00_2455),
																							BgL_arg2270z00_2456);
																					}
																					{	/* Cnst/alloc.scm 1084 */
																						BgL_objectz00_bglt BgL_tmpz00_6173;

																						BgL_tmpz00_6173 =
																							((BgL_objectz00_bglt)
																							BgL_new1260z00_2455);
																						BGL_OBJECT_WIDENING_SET
																							(BgL_tmpz00_6173, BFALSE);
																					}
																					((BgL_objectz00_bglt)
																						BgL_new1260z00_2455);
																					BgL_new1261z00_2454 =
																						BgL_new1260z00_2455;
																				}
																				((((BgL_nodez00_bglt) COBJECT(
																								((BgL_nodez00_bglt)
																									BgL_new1261z00_2454)))->
																						BgL_locz00) =
																					((obj_t) BgL_locz00_75), BUNSPEC);
																				((((BgL_nodez00_bglt)
																							COBJECT(((BgL_nodez00_bglt)
																									BgL_new1261z00_2454)))->
																						BgL_typez00) =
																					((BgL_typez00_bglt) ((
																								(BgL_variablez00_bglt)
																								COBJECT(((BgL_variablez00_bglt)
																										BgL_varz00_2436)))->
																							BgL_typez00)), BUNSPEC);
																				((((BgL_varz00_bglt)
																							COBJECT(((BgL_varz00_bglt)
																									BgL_new1261z00_2454)))->
																						BgL_variablez00) =
																					((BgL_variablez00_bglt) (
																							(BgL_variablez00_bglt)
																							BgL_varz00_2436)), BUNSPEC);
																				BgL_auxz00_6168 =
																					((BgL_nodez00_bglt)
																					BgL_new1261z00_2454);
																			}
																			((((BgL_letzd2varzd2_bglt)
																						COBJECT(BgL_new1252z00_2438))->
																					BgL_bodyz00) =
																				((BgL_nodez00_bglt) BgL_auxz00_6168),
																				BUNSPEC);
																		}
																		((((BgL_letzd2varzd2_bglt)
																					COBJECT(BgL_new1252z00_2438))->
																				BgL_removablezf3zf3) =
																			((bool_t) ((bool_t) 1)), BUNSPEC);
																		BgL_arg2259z00_2434 = BgL_new1252z00_2438;
																}}
																BgL_arg2260z00_2435 =
																	BGl_strictzd2nodezd2typez00zzast_nodez00(
																	((BgL_typez00_bglt)
																		BGl_za2structza2z00zztype_cachez00),
																	((BgL_typez00_bglt)
																		BGl_za2objza2z00zztype_cachez00));
																BgL_arg2258z00_2433 =
																	BGl_coercez12z12zzcoerce_coercez00((
																		(BgL_nodez00_bglt) BgL_arg2259z00_2434),
																	BUNSPEC, BgL_arg2260z00_2435, ((bool_t) 0));
															}
															BgL_arg2285z00_2473 =
																BGl_cnstz12z12zzcnst_nodez00
																(BgL_arg2258z00_2433);
														}
														BgL_arg2280z00_2468 =
															MAKE_YOUNG_PAIR(
															((obj_t) BgL_arg2285z00_2473), BNIL);
													}
													BgL_arg2277z00_2466 =
														MAKE_YOUNG_PAIR(BgL_arg2279z00_2467,
														BgL_arg2280z00_2468);
												}
												BgL_arg2276z00_2465 =
													MAKE_YOUNG_PAIR(CNST_TABLE_REF(13L),
													BgL_arg2277z00_2466);
											}
											BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 =
												MAKE_YOUNG_PAIR(BgL_arg2276z00_2465,
												BGl_za2globalzd2sexpza2zd2zzcnst_allocz00);
										}
										{	/* Cnst/alloc.scm 1106 */
											BgL_refz00_bglt BgL_new1263z00_2474;

											{	/* Cnst/alloc.scm 1107 */
												BgL_refz00_bglt BgL_new1262z00_2475;

												BgL_new1262z00_2475 =
													((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																BgL_refz00_bgl))));
												{	/* Cnst/alloc.scm 1107 */
													long BgL_arg2286z00_2476;

													BgL_arg2286z00_2476 =
														BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
													BGL_OBJECT_CLASS_NUM_SET(
														((BgL_objectz00_bglt) BgL_new1262z00_2475),
														BgL_arg2286z00_2476);
												}
												{	/* Cnst/alloc.scm 1107 */
													BgL_objectz00_bglt BgL_tmpz00_6205;

													BgL_tmpz00_6205 =
														((BgL_objectz00_bglt) BgL_new1262z00_2475);
													BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6205, BFALSE);
												}
												((BgL_objectz00_bglt) BgL_new1262z00_2475);
												BgL_new1263z00_2474 = BgL_new1262z00_2475;
											}
											((((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt) BgL_new1263z00_2474)))->
													BgL_locz00) = ((obj_t) BgL_locz00_75), BUNSPEC);
											((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																BgL_new1263z00_2474)))->BgL_typez00) =
												((BgL_typez00_bglt) (((BgL_variablez00_bglt)
															COBJECT(((BgL_variablez00_bglt)
																	BgL_varz00_2463)))->BgL_typez00)), BUNSPEC);
											((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																BgL_new1263z00_2474)))->BgL_variablez00) =
												((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
														BgL_varz00_2463)), BUNSPEC);
											BgL_auxz00_6048 = BgL_new1263z00_2474;
									}}
									return ((BgL_nodez00_bglt) BgL_auxz00_6048);
								}
							else
								{
									BgL_appz00_bglt BgL_auxz00_6219;

									{	/* Cnst/alloc.scm 1091 */
										long BgL_offsetz00_2460;

										BgL_offsetz00_2460 =
											BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
										BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 =
											(1L + BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);
										BGl_za2globalzd2setza2zd2zzcnst_allocz00 =
											MAKE_YOUNG_PAIR(BgL_structz00_74,
											BGl_za2globalzd2setza2zd2zzcnst_allocz00);
										if (CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
											{	/* Cnst/alloc.scm 1095 */
												obj_t BgL_arg2273z00_2461;

												{	/* Cnst/alloc.scm 69 */
													obj_t BgL_newz00_3391;

													BgL_newz00_3391 =
														create_struct(CNST_TABLE_REF(9L), (int) (2L));
													{	/* Cnst/alloc.scm 69 */
														obj_t BgL_auxz00_6229;
														int BgL_tmpz00_6227;

														BgL_auxz00_6229 = BINT(BgL_offsetz00_2460);
														BgL_tmpz00_6227 = (int) (1L);
														STRUCT_SET(BgL_newz00_3391, BgL_tmpz00_6227,
															BgL_auxz00_6229);
													}
													{	/* Cnst/alloc.scm 69 */
														int BgL_tmpz00_6232;

														BgL_tmpz00_6232 = (int) (0L);
														STRUCT_SET(BgL_newz00_3391, BgL_tmpz00_6232,
															BgL_structz00_74);
													}
													BgL_arg2273z00_2461 = BgL_newz00_3391;
												}
												BGl_za2structzd2envza2zd2zzcnst_allocz00 =
													MAKE_YOUNG_PAIR(BgL_arg2273z00_2461,
													BGl_za2structzd2envza2zd2zzcnst_allocz00);
											}
										else
											{	/* Cnst/alloc.scm 1094 */
												BFALSE;
											}
										BgL_auxz00_6219 =
											BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BINT
											(BgL_offsetz00_2460), BGl_za2structza2z00zztype_cachez00,
											BgL_locz00_75);
									}
									return ((BgL_nodez00_bglt) BgL_auxz00_6219);
								}
						}
				}
			}
		}

	}



/* &cnst-alloc-struct */
	BgL_nodez00_bglt BGl_z62cnstzd2alloczd2structz62zzcnst_allocz00(obj_t
		BgL_envz00_3576, obj_t BgL_structz00_3577, obj_t BgL_locz00_3578)
	{
		{	/* Cnst/alloc.scm 1058 */
			return
				BGl_cnstzd2alloczd2structz00zzcnst_allocz00(BgL_structz00_3577,
				BgL_locz00_3578);
		}

	}



/* cnst-equal? */
	bool_t BGl_cnstzd2equalzf3z21zzcnst_allocz00(obj_t BgL_obj1z00_76,
		obj_t BgL_obj2z00_77)
	{
		{	/* Cnst/alloc.scm 1135 */
		BGl_cnstzd2equalzf3z21zzcnst_allocz00:
			if ((BgL_obj1z00_76 == BgL_obj2z00_77))
				{	/* Cnst/alloc.scm 1137 */
					return ((bool_t) 1);
				}
			else
				{	/* Cnst/alloc.scm 1137 */
					if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_obj1z00_76))
						{	/* Cnst/alloc.scm 1139 */
							return ((bool_t) 0);
						}
					else
						{	/* Cnst/alloc.scm 1139 */
							if (STRINGP(BgL_obj1z00_76))
								{	/* Cnst/alloc.scm 1141 */
									if (STRINGP(BgL_obj2z00_77))
										{	/* Cnst/alloc.scm 1142 */
											long BgL_l1z00_3418;

											BgL_l1z00_3418 = STRING_LENGTH(BgL_obj1z00_76);
											if ((BgL_l1z00_3418 == STRING_LENGTH(BgL_obj2z00_77)))
												{	/* Cnst/alloc.scm 1142 */
													int BgL_arg1303z00_3421;

													{	/* Cnst/alloc.scm 1142 */
														char *BgL_auxz00_6254;
														char *BgL_tmpz00_6252;

														BgL_auxz00_6254 = BSTRING_TO_STRING(BgL_obj2z00_77);
														BgL_tmpz00_6252 = BSTRING_TO_STRING(BgL_obj1z00_76);
														BgL_arg1303z00_3421 =
															memcmp(BgL_tmpz00_6252, BgL_auxz00_6254,
															BgL_l1z00_3418);
													}
													return ((long) (BgL_arg1303z00_3421) == 0L);
												}
											else
												{	/* Cnst/alloc.scm 1142 */
													return ((bool_t) 0);
												}
										}
									else
										{	/* Cnst/alloc.scm 1142 */
											return ((bool_t) 0);
										}
								}
							else
								{	/* Cnst/alloc.scm 1141 */
									if (SYMBOLP(BgL_obj1z00_76))
										{	/* Cnst/alloc.scm 1143 */
											return ((bool_t) 0);
										}
									else
										{	/* Cnst/alloc.scm 1143 */
											if (PAIRP(BgL_obj1z00_76))
												{	/* Cnst/alloc.scm 1145 */
													if (PAIRP(BgL_obj2z00_77))
														{	/* Cnst/alloc.scm 1146 */
															if (BGl_cnstzd2equalzf3z21zzcnst_allocz00(CAR
																	(BgL_obj1z00_76), CAR(BgL_obj2z00_77)))
																{
																	obj_t BgL_obj2z00_6271;
																	obj_t BgL_obj1z00_6269;

																	BgL_obj1z00_6269 = CDR(BgL_obj1z00_76);
																	BgL_obj2z00_6271 = CDR(BgL_obj2z00_77);
																	BgL_obj2z00_77 = BgL_obj2z00_6271;
																	BgL_obj1z00_76 = BgL_obj1z00_6269;
																	goto BGl_cnstzd2equalzf3z21zzcnst_allocz00;
																}
															else
																{	/* Cnst/alloc.scm 1147 */
																	return ((bool_t) 0);
																}
														}
													else
														{	/* Cnst/alloc.scm 1146 */
															return ((bool_t) 0);
														}
												}
											else
												{	/* Cnst/alloc.scm 1145 */
													if (VECTORP(BgL_obj1z00_76))
														{	/* Cnst/alloc.scm 1149 */
															if (VECTORP(BgL_obj2z00_77))
																{	/* Cnst/alloc.scm 1151 */
																	if (
																		(VECTOR_LENGTH(BgL_obj2z00_77) ==
																			VECTOR_LENGTH(BgL_obj1z00_76)))
																		{	/* Cnst/alloc.scm 1153 */
																			bool_t BgL_test2571z00_6281;

																			{	/* Cnst/alloc.scm 1153 */
																				int BgL_arg2302z00_2507;
																				int BgL_arg2304z00_2508;

																				BgL_arg2302z00_2507 =
																					VECTOR_TAG(BgL_obj1z00_76);
																				BgL_arg2304z00_2508 =
																					VECTOR_TAG(BgL_obj2z00_77);
																				BgL_test2571z00_6281 =
																					(
																					(long) (BgL_arg2302z00_2507) ==
																					(long) (BgL_arg2304z00_2508));
																			}
																			if (BgL_test2571z00_6281)
																				{
																					long BgL_iz00_2499;

																					BgL_iz00_2499 = 0L;
																				BgL_zc3z04anonymousza32298ze3z87_2500:
																					{	/* Cnst/alloc.scm 1155 */
																						bool_t BgL__ortest_1273z00_2501;

																						BgL__ortest_1273z00_2501 =
																							(BgL_iz00_2499 ==
																							VECTOR_LENGTH(BgL_obj1z00_76));
																						if (BgL__ortest_1273z00_2501)
																							{	/* Cnst/alloc.scm 1155 */
																								return BgL__ortest_1273z00_2501;
																							}
																						else
																							{	/* Cnst/alloc.scm 1156 */
																								bool_t BgL_test2573z00_6290;

																								{	/* Cnst/alloc.scm 1156 */
																									obj_t BgL_arg2300z00_2504;
																									obj_t BgL_arg2301z00_2505;

																									BgL_arg2300z00_2504 =
																										VECTOR_REF(
																										((obj_t) BgL_obj1z00_76),
																										BgL_iz00_2499);
																									BgL_arg2301z00_2505 =
																										VECTOR_REF(((obj_t)
																											BgL_obj2z00_77),
																										BgL_iz00_2499);
																									BgL_test2573z00_6290 =
																										BGl_cnstzd2equalzf3z21zzcnst_allocz00
																										(BgL_arg2300z00_2504,
																										BgL_arg2301z00_2505);
																								}
																								if (BgL_test2573z00_6290)
																									{
																										long BgL_iz00_6296;

																										BgL_iz00_6296 =
																											(BgL_iz00_2499 + 1L);
																										BgL_iz00_2499 =
																											BgL_iz00_6296;
																										goto
																											BgL_zc3z04anonymousza32298ze3z87_2500;
																									}
																								else
																									{	/* Cnst/alloc.scm 1156 */
																										return ((bool_t) 0);
																									}
																							}
																					}
																				}
																			else
																				{	/* Cnst/alloc.scm 1153 */
																					return ((bool_t) 0);
																				}
																		}
																	else
																		{	/* Cnst/alloc.scm 1152 */
																			return ((bool_t) 0);
																		}
																}
															else
																{	/* Cnst/alloc.scm 1151 */
																	return ((bool_t) 0);
																}
														}
													else
														{	/* Cnst/alloc.scm 1149 */
															if (BGL_HVECTORP(BgL_obj1z00_76))
																{	/* Cnst/alloc.scm 1159 */
																	BGL_TAIL return
																		BGl_equalzf3zf3zz__r4_equivalence_6_2z00
																		(BgL_obj1z00_76, BgL_obj2z00_77);
																}
															else
																{	/* Cnst/alloc.scm 1159 */
																	if (STRUCTP(BgL_obj1z00_76))
																		{	/* Cnst/alloc.scm 1162 */
																			int BgL_lobj1z00_2512;

																			BgL_lobj1z00_2512 =
																				STRUCT_LENGTH(BgL_obj1z00_76);
																			if (STRUCTP(BgL_obj2z00_77))
																				{	/* Cnst/alloc.scm 1163 */
																					if (
																						((long) (STRUCT_LENGTH
																								(BgL_obj2z00_77)) ==
																							(long) (BgL_lobj1z00_2512)))
																						{
																							long BgL_iz00_2516;

																							BgL_iz00_2516 = 0L;
																						BgL_zc3z04anonymousza32308ze3z87_2517:
																							{	/* Cnst/alloc.scm 1166 */
																								bool_t BgL__ortest_1277z00_2518;

																								BgL__ortest_1277z00_2518 =
																									(BgL_iz00_2516 ==
																									(long) (BgL_lobj1z00_2512));
																								if (BgL__ortest_1277z00_2518)
																									{	/* Cnst/alloc.scm 1166 */
																										return
																											BgL__ortest_1277z00_2518;
																									}
																								else
																									{	/* Cnst/alloc.scm 1167 */
																										bool_t BgL_test2579z00_6314;

																										{	/* Cnst/alloc.scm 1167 */
																											obj_t BgL_arg2310z00_2521;
																											obj_t BgL_arg2311z00_2522;

																											BgL_arg2310z00_2521 =
																												STRUCT_REF(
																												((obj_t)
																													BgL_obj1z00_76),
																												(int) (BgL_iz00_2516));
																											BgL_arg2311z00_2522 =
																												STRUCT_REF(((obj_t)
																													BgL_obj2z00_77),
																												(int) (BgL_iz00_2516));
																											BgL_test2579z00_6314 =
																												BGl_cnstzd2equalzf3z21zzcnst_allocz00
																												(BgL_arg2310z00_2521,
																												BgL_arg2311z00_2522);
																										}
																										if (BgL_test2579z00_6314)
																											{
																												long BgL_iz00_6322;

																												BgL_iz00_6322 =
																													(BgL_iz00_2516 + 1L);
																												BgL_iz00_2516 =
																													BgL_iz00_6322;
																												goto
																													BgL_zc3z04anonymousza32308ze3z87_2517;
																											}
																										else
																											{	/* Cnst/alloc.scm 1167 */
																												return ((bool_t) 0);
																											}
																									}
																							}
																						}
																					else
																						{	/* Cnst/alloc.scm 1164 */
																							return ((bool_t) 0);
																						}
																				}
																			else
																				{	/* Cnst/alloc.scm 1163 */
																					return ((bool_t) 0);
																				}
																		}
																	else
																		{	/* Cnst/alloc.scm 1161 */
																			if (CELLP(BgL_obj1z00_76))
																				{	/* Cnst/alloc.scm 1169 */
																					if (CELLP(BgL_obj2z00_77))
																						{
																							obj_t BgL_obj2z00_6330;
																							obj_t BgL_obj1z00_6328;

																							BgL_obj1z00_6328 =
																								CELL_REF(BgL_obj1z00_76);
																							BgL_obj2z00_6330 =
																								CELL_REF(BgL_obj2z00_77);
																							BgL_obj2z00_77 = BgL_obj2z00_6330;
																							BgL_obj1z00_76 = BgL_obj1z00_6328;
																							goto
																								BGl_cnstzd2equalzf3z21zzcnst_allocz00;
																						}
																					else
																						{	/* Cnst/alloc.scm 1170 */
																							return ((bool_t) 0);
																						}
																				}
																			else
																				{	/* Cnst/alloc.scm 1169 */
																					if (UCS2_STRINGP(BgL_obj1z00_76))
																						{	/* Cnst/alloc.scm 1171 */
																							if (UCS2_STRINGP(BgL_obj2z00_77))
																								{	/* Cnst/alloc.scm 1172 */
																									return
																										ucs2_strcmp(BgL_obj1z00_76,
																										BgL_obj2z00_77);
																								}
																							else
																								{	/* Cnst/alloc.scm 1172 */
																									return ((bool_t) 0);
																								}
																						}
																					else
																						{	/* Cnst/alloc.scm 1171 */
																							if (UCS2P(BgL_obj1z00_76))
																								{	/* Cnst/alloc.scm 1173 */
																									if (UCS2P(BgL_obj2z00_77))
																										{	/* Cnst/alloc.scm 1174 */
																											return
																												(CUCS2(BgL_obj1z00_76)
																												==
																												CUCS2(BgL_obj2z00_77));
																										}
																									else
																										{	/* Cnst/alloc.scm 1174 */
																											return ((bool_t) 0);
																										}
																								}
																							else
																								{	/* Cnst/alloc.scm 1173 */
																									if (BGL_DATEP(BgL_obj1z00_76))
																										{	/* Cnst/alloc.scm 1175 */
																											BGL_TAIL return
																												BGl_equalzf3zf3zz__r4_equivalence_6_2z00
																												(BgL_obj1z00_76,
																												BgL_obj2z00_77);
																										}
																									else
																										{	/* Cnst/alloc.scm 1175 */
																											return ((bool_t) 0);
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zzcnst_allocz00(void)
	{
		{	/* Cnst/alloc.scm 15 */
			BGl_modulezd2initializa7ationz75zzengine_paramz00(517137079L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzmodule_modulez00(158397907L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzbackend_backendz00(216206620L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zztools_shapez00(365925558L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zztools_errorz00(300504031L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zztype_typez00(515343395L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zztype_cachez00(346491734L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zztype_typeofz00(398780265L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zztvector_tvectorz00(501518119L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zztvector_cnstz00(263487728L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzast_varz00(90839984L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzast_nodez00(469732712L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzast_sexpz00(163122759L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzast_localz00(315247917L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(44601789L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzcoerce_coercez00(361167184L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzcnst_cachez00(156818605L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzcnst_nodez00(89013043L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzast_identz00(174885617L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zzast_envz00(146730773L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			BGl_modulezd2initializa7ationz75zztype_envz00(296457443L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
			return
				BGl_modulezd2initializa7ationz75zzmodule_libraryz00(292140514L,
				BSTRING_TO_STRING(BGl_string2418z00zzcnst_allocz00));
		}

	}

#ifdef __cplusplus
}
#endif
