/*===========================================================================*/
/*   (Cfa/tvector.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 Cfa/tvector.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_CFA_TVECTOR_TYPE_DEFINITIONS
#define BGL_CFA_TVECTOR_TYPE_DEFINITIONS

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

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

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

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

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

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

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

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

	typedef struct BgL_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_closurez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_variablez00_bgl *BgL_variablez00;
	}                 *BgL_closurez00_bglt;

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

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

	typedef struct BgL_externz00_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_exprza2za2;
		obj_t BgL_effectz00;
	}                *BgL_externz00_bglt;

	typedef struct BgL_vallocz00_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_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		struct BgL_typez00_bgl *BgL_ftypez00;
		struct BgL_typez00_bgl *BgL_otypez00;
	}                *BgL_vallocz00_bglt;

	typedef struct BgL_vrefz00_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_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		struct BgL_typez00_bgl *BgL_ftypez00;
		struct BgL_typez00_bgl *BgL_otypez00;
		struct BgL_typez00_bgl *BgL_vtypez00;
		bool_t BgL_unsafez00;
	}              *BgL_vrefz00_bglt;

	typedef struct BgL_vsetz12z12_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_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		struct BgL_typez00_bgl *BgL_ftypez00;
		struct BgL_typez00_bgl *BgL_otypez00;
		struct BgL_typez00_bgl *BgL_vtypez00;
		bool_t BgL_unsafez00;
	}                 *BgL_vsetz12z12_bglt;

	typedef struct BgL_vlengthz00_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_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		struct BgL_typez00_bgl *BgL_vtypez00;
		obj_t BgL_ftypez00;
	}                 *BgL_vlengthz00_bglt;

	typedef struct BgL_castz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_argz00;
	}              *BgL_castz00_bglt;

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

	typedef struct BgL_conditionalz00_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_nodez00_bgl *BgL_testz00;
		struct BgL_nodez00_bgl *BgL_truez00;
		struct BgL_nodez00_bgl *BgL_falsez00;
	}                     *BgL_conditionalz00_bglt;

	typedef struct BgL_failz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_procz00;
		struct BgL_nodez00_bgl *BgL_msgz00;
		struct BgL_nodez00_bgl *BgL_objz00;
	}              *BgL_failz00_bglt;

	typedef struct BgL_switchz00_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_nodez00_bgl *BgL_testz00;
		obj_t BgL_clausesz00;
		struct BgL_typez00_bgl *BgL_itemzd2typezd2;
	}                *BgL_switchz00_bglt;

	typedef struct BgL_letzd2funzd2_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_localsz00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
	}                   *BgL_letzd2funzd2_bglt;

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

	typedef struct BgL_setzd2exzd2itz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_varz00_bgl *BgL_varz00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
		struct BgL_nodez00_bgl *BgL_onexitz00;
	}                       *BgL_setzd2exzd2itz00_bglt;

	typedef struct BgL_jumpzd2exzd2itz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_exitz00;
		struct BgL_nodez00_bgl *BgL_valuez00;
	}                        *BgL_jumpzd2exzd2itz00_bglt;

	typedef struct BgL_makezd2boxzd2_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_nodez00_bgl *BgL_valuez00;
		struct BgL_typez00_bgl *BgL_vtypez00;
		obj_t BgL_stackablez00;
	}                    *BgL_makezd2boxzd2_bglt;

	typedef struct BgL_boxzd2refzd2_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_varz00;
		struct BgL_typez00_bgl *BgL_vtypez00;
	}                   *BgL_boxzd2refzd2_bglt;

	typedef struct BgL_boxzd2setz12zc0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_varz00_bgl *BgL_varz00;
		struct BgL_nodez00_bgl *BgL_valuez00;
		struct BgL_typez00_bgl *BgL_vtypez00;
	}                      *BgL_boxzd2setz12zc0_bglt;

	typedef struct BgL_syncz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_mutexz00;
		struct BgL_nodez00_bgl *BgL_prelockz00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
	}              *BgL_syncz00_bglt;

	typedef struct BgL_approxz00_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_typez00_bgl *BgL_typez00;
		bool_t BgL_typezd2lockedzf3z21;
		obj_t BgL_allocsz00;
		bool_t BgL_topzf3zf3;
		long BgL_lostzd2stampzd2;
		obj_t BgL_dupz00;
		bool_t BgL_haszd2procedurezf3z21;
	}                *BgL_approxz00_bglt;

	typedef struct BgL_kwotezf2nodezf2_bgl
	{
		struct BgL_nodez00_bgl *BgL_nodez00;
	}                      *BgL_kwotezf2nodezf2_bglt;

	typedef struct BgL_kwotezf2cinfozf2_bgl
	{
		struct BgL_approxz00_bgl *BgL_approxz00;
	}                       *BgL_kwotezf2cinfozf2_bglt;

	typedef struct BgL_makezd2vectorzd2appz00_bgl
	{
		struct BgL_approxz00_bgl *BgL_approxz00;
		struct BgL_approxz00_bgl *BgL_valuezd2approxzd2;
		long BgL_lostzd2stampzd2;
		struct BgL_variablez00_bgl *BgL_ownerz00;
		obj_t BgL_stackzd2stampzd2;
		bool_t BgL_seenzf3zf3;
		bool_t BgL_tvectorzf3zf3;
	}                             *BgL_makezd2vectorzd2appz00_bglt;

	typedef struct BgL_vrefzf2cinfozf2_bgl
	{
		struct BgL_approxz00_bgl *BgL_approxz00;
		bool_t BgL_tvectorzf3zf3;
	}                      *BgL_vrefzf2cinfozf2_bglt;

	typedef struct BgL_vsetz12zf2cinfoze0_bgl
	{
		struct BgL_approxz00_bgl *BgL_approxz00;
		bool_t BgL_tvectorzf3zf3;
	}                         *BgL_vsetz12zf2cinfoze0_bglt;

	typedef struct BgL_vlengthzf2cinfozf2_bgl
	{
		struct BgL_approxz00_bgl *BgL_approxz00;
		bool_t BgL_tvectorzf3zf3;
	}                         *BgL_vlengthzf2cinfozf2_bglt;

	typedef struct BgL_valloczf2cinfozb2optimz40_bgl
	{
		struct BgL_approxz00_bgl *BgL_approxz00;
		struct BgL_approxz00_bgl *BgL_valuezd2approxzd2;
		long BgL_lostzd2stampzd2;
		struct BgL_variablez00_bgl *BgL_ownerz00;
		bool_t BgL_stackablezf3zf3;
		obj_t BgL_stackzd2stampzd2;
		bool_t BgL_seenzf3zf3;
	}                                *BgL_valloczf2cinfozb2optimz40_bglt;


#endif													// BGL_CFA_TVECTOR_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern obj_t BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_approxz00_bglt,
		obj_t);
	BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	extern obj_t BGl_closurez00zzast_nodez00;
	extern obj_t BGl_syncz00zzast_nodez00;
	static obj_t BGl_z62patchz12zd2letzd2var1676z70zzcfa_tvectorz00(obj_t, obj_t);
	extern obj_t BGl_sfunz00zzast_varz00;
	static BgL_nodez00_bglt
		BGl_patchzd2vectorzf3z12z33zzcfa_tvectorz00(BgL_appz00_bglt);
	extern obj_t BGl_sequencez00zzast_nodez00;
	static obj_t BGl_z62patchz12zd2closure1652za2zzcfa_tvectorz00(obj_t, obj_t);
	extern BgL_nodez00_bglt
		BGl_inlinezd2nodezd2zzinline_inlinez00(BgL_nodez00_bglt, long, obj_t);
	extern obj_t BGl_letzd2varzd2zzast_nodez00;
	extern obj_t BGl_failz00zzast_nodez00;
	static obj_t BGl_objectzd2initzd2zzcfa_tvectorz00(void);
	extern obj_t BGl_boxzd2refzd2zzast_nodez00;
	static obj_t BGl_z62patchz121641z70zzcfa_tvectorz00(obj_t, obj_t);
	BGL_IMPORT obj_t bstring_to_symbol(obj_t);
	extern obj_t BGl_inlinezd2setupz12zc0zzinline_walkz00(obj_t);
	static obj_t BGl_z62patchz12zd2atom1644za2zzcfa_tvectorz00(obj_t, obj_t);
	static obj_t BGl_z62unpatchzd2vectorzd2setz12z70zzcfa_tvectorz00(obj_t);
	static obj_t BGl_z62patchz12zd2makezd2vectorzd2a1692za2zzcfa_tvectorz00(obj_t,
		obj_t);
	static obj_t BGl_methodzd2initzd2zzcfa_tvectorz00(void);
	static obj_t BGl_z62patchz12zd2appzd2ly1658z70zzcfa_tvectorz00(obj_t, obj_t);
	extern obj_t BGl_externz00zzast_nodez00;
	static obj_t BGl_z62patchz12zd2conditional1668za2zzcfa_tvectorz00(obj_t,
		obj_t);
	static obj_t BGl_z62patchz12zd2kwotezf2node1648z50zzcfa_tvectorz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2ze3tvectorz12z23zzcfa_tvectorz00(obj_t);
	BGL_IMPORT obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_za2_za2z00zztype_cachez00;
	extern BgL_typez00_bglt
		BGl_strictzd2nodezd2typez00zzast_nodez00(BgL_typez00_bglt,
		BgL_typez00_bglt);
	static obj_t BGl_z62patchz12zd2extern1662za2zzcfa_tvectorz00(obj_t, obj_t);
	extern obj_t BGl_za2objza2z00zztype_cachez00;
	extern obj_t BGl_buildzd2astzd2sanszd2removezd2zzast_buildz00(obj_t);
	static obj_t BGl_z62patchz12zd2var1650za2zzcfa_tvectorz00(obj_t, obj_t);
	extern obj_t BGl_pragmazd2finaliza7erz75zzmodule_pragmaz00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_unpatchzd2vectorzd2setz12z12zzcfa_tvectorz00(void);
	static obj_t BGl_patchzd2funz12zc0zzcfa_tvectorz00(obj_t);
	extern obj_t BGl_cfunz00zzast_varz00;
	extern obj_t BGl_appzd2lyzd2zzast_nodez00;
	extern obj_t BGl_vsetz12zf2Cinfoze0zzcfa_info3z00;
	extern obj_t BGl_kwotezf2Cinfozf2zzcfa_infoz00;
	BGL_IMPORT obj_t create_struct(obj_t, int);
	static obj_t BGl_patchz12z12zzcfa_tvectorz00(BgL_nodez00_bglt);
	static obj_t BGl_patchza2z12zb0zzcfa_tvectorz00(obj_t);
	static obj_t BGl_z62getzd2vectorzd2itemzd2type1635zb0zzcfa_tvectorz00(obj_t,
		obj_t);
	static BgL_typez00_bglt
		BGl_z62getzd2vectorzd2itemzd2type1638zb0zzcfa_tvectorz00(obj_t, obj_t);
	static obj_t BGl_z62patchz12zd2vlength1690za2zzcfa_tvectorz00(obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zzcfa_tvectorz00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00(void);
	static BgL_typez00_bglt
		BGl_z62getzd2vectorzd2itemzd2type1640zb0zzcfa_tvectorz00(obj_t, obj_t);
	extern obj_t BGl_kwotezf2nodezf2zzcfa_infoz00;
	extern obj_t BGl_lvtypezd2astz12zc0zzast_lvtypez00(obj_t);
	static obj_t BGl_z62addzd2makezd2vectorz12z70zzcfa_tvectorz00(obj_t, obj_t);
	static obj_t BGl_z62patchz12zd2sync1656za2zzcfa_tvectorz00(obj_t, obj_t);
	static obj_t BGl_z62tvectorzd2optimiza7ationzf3ze4zzcfa_tvectorz00(obj_t);
	BGL_IMPORT obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62patchz12zd2fail1670za2zzcfa_tvectorz00(obj_t, obj_t);
	static obj_t BGl_z62patchz12zd2sequence1654za2zzcfa_tvectorz00(obj_t, obj_t);
	extern obj_t BGl_conditionalz00zzast_nodez00;
	extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
	static bool_t BGl_showzd2tvectorzd2zzcfa_tvectorz00(obj_t);
	extern obj_t BGl_za2optimza2z00zzengine_paramz00;
	extern obj_t BGl_setqz00zzast_nodez00;
	extern obj_t BGl_za2intza2z00zztype_cachez00;
	static obj_t BGl_requirezd2initializa7ationz75zzcfa_tvectorz00 = BUNSPEC;
	extern obj_t BGl_za2vectorza2z00zztype_cachez00;
	static obj_t BGl_z62patchz12zd2funcall1660za2zzcfa_tvectorz00(obj_t, obj_t);
	extern obj_t BGl_vlengthz00zzast_nodez00;
	extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
	BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
	static bool_t BGl_patchzd2treez12zc0zzcfa_tvectorz00(obj_t);
	BGL_IMPORT obj_t BGl_registerzd2genericz12zc0zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_atomz00zzast_nodez00;
	static obj_t BGl_z62patchz12zd2kwote1646za2zzcfa_tvectorz00(obj_t, obj_t);
	static obj_t BGl_toplevelzd2initzd2zzcfa_tvectorz00(void);
	static obj_t BGl_z62patchzd2vectorzd2setz12z70zzcfa_tvectorz00(obj_t);
	static BgL_typez00_bglt
		BGl_z62getzd2vectorzd2itemzd2typezb0zzcfa_tvectorz00(obj_t, obj_t);
	extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_lvtypezd2nodez12zc0zzast_lvtypez00(BgL_nodez00_bglt);
	static obj_t BGl_genericzd2initzd2zzcfa_tvectorz00(void);
	BGL_IMPORT obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern BgL_typez00_bglt BGl_getzd2defaultzd2typez00zztype_cachez00(void);
	static obj_t BGl_z62patchz12zd2boxzd2ref1686z70zzcfa_tvectorz00(obj_t, obj_t);
	static BgL_nodez00_bglt
		BGl_patchzd2vectorzd2ze3listz12zf1zzcfa_tvectorz00(BgL_appz00_bglt);
	extern obj_t BGl_za2boolza2z00zztype_cachez00;
	static obj_t BGl_getzd2tvectorszd2zzcfa_tvectorz00(void);
	BGL_EXPORTED_DECL BgL_typez00_bglt
		BGl_getzd2vectorzd2itemzd2typezd2zzcfa_tvectorz00(BgL_nodez00_bglt);
	extern obj_t BGl_castz00zzast_nodez00;
	BGL_IMPORT obj_t BGl_za2inheritancesza2z00zz__objectz00;
	extern obj_t BGl_shapez00zztools_shapez00(obj_t);
	extern obj_t BGl_typez00zztype_typez00;
	extern obj_t BGl_makezd2vectorzd2appz00zzcfa_info2z00;
	extern bool_t BGl_subzd2typezf3z21zztype_envz00(BgL_typez00_bglt,
		BgL_typez00_bglt);
	extern obj_t BGl_za2libzd2modeza2zd2zzengine_paramz00;
	extern obj_t BGl_vrefzf2Cinfozf2zzcfa_info3z00;
	BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_findzd2globalzd2zzast_envz00(obj_t, obj_t);
	static obj_t BGl_z62patchz12zd2vrefzf2Cinfo1696z50zzcfa_tvectorz00(obj_t,
		obj_t);
	extern obj_t BGl_setzd2defaultzd2typez12z12zztype_cachez00(BgL_typez00_bglt);
	BGL_IMPORT obj_t string_append(obj_t, obj_t);
	extern obj_t BGl_varz00zzast_nodez00;
	extern obj_t BGl_makezd2boxzd2zzast_nodez00;
	extern BgL_typez00_bglt BGl_getzd2typezd2atomz00zztype_typeofz00(obj_t);
	static obj_t BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00 = BUNSPEC;
	static obj_t BGl_z62patchz12zd2switch1672za2zzcfa_tvectorz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_addzd2makezd2vectorz12z12zzcfa_tvectorz00(BgL_nodez00_bglt);
	extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_tvectorz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzinline_walkz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzinline_inlinez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_walkza7(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcfa_typez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcfa_setz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcfa_approxz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcfa_cfaz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info2z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzcfa_infoz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_walkz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_lvtypez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_buildz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztvector_tvectorz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_envz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzmodule_pragmaz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzmodule_typez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__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_numbers_6_5_fixnumz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	extern obj_t BGl_appz00zzast_nodez00;
	static obj_t BGl_z62patchz12zd2jumpzd2exzd2it1680za2zzcfa_tvectorz00(obj_t,
		obj_t);
	static obj_t BGl_z62patchz12zd2boxzd2setz121684z62zzcfa_tvectorz00(obj_t,
		obj_t);
	extern obj_t BGl_nodez00zzast_nodez00;
	static obj_t BGl_z62patchz12zd2makezd2box1682z70zzcfa_tvectorz00(obj_t,
		obj_t);
	extern obj_t BGl_kwotez00zzast_nodez00;
	static obj_t BGl_z62vectorzd2ze3tvectorz12z41zzcfa_tvectorz00(obj_t, obj_t);
	extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
	extern obj_t BGl_tvectorzd2finaliza7erz75zzmodule_typez00(void);
	static obj_t BGl_cnstzd2initzd2zzcfa_tvectorz00(void);
	static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_tvectorz00(void);
	static obj_t BGl_importedzd2moduleszd2initz00zzcfa_tvectorz00(void);
	extern obj_t BGl_tvecz00zztvector_tvectorz00;
	static obj_t BGl_z62patchz12zd2letzd2fun1674z70zzcfa_tvectorz00(obj_t, obj_t);
	static obj_t BGl_z62patchz12zd2cast1664za2zzcfa_tvectorz00(obj_t, obj_t);
	extern BgL_nodez00_bglt BGl_sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62patchz12zd2valloczf2Cinfozb21694ze2zzcfa_tvectorz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_patchzd2vectorzd2setz12z12zzcfa_tvectorz00(void);
	static obj_t BGl_z62patchz12zd2setq1666za2zzcfa_tvectorz00(obj_t, obj_t);
	static obj_t BGl_declarezd2tvectorszd2zzcfa_tvectorz00(obj_t);
	extern obj_t BGl_letzd2funzd2zzast_nodez00;
	static obj_t BGl_z62patchz12zd2app1688za2zzcfa_tvectorz00(obj_t, obj_t);
	extern obj_t BGl_modulezd2tvectorzd2clausez00zzmodule_typez00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_literalz00zzast_nodez00;
	extern obj_t BGl_switchz00zzast_nodez00;
	static obj_t BGl_z62patchz12zd2vsetz12zf2Cinfo1698z42zzcfa_tvectorz00(obj_t,
		obj_t);
	extern BgL_approxz00_bglt BGl_cfaz12z12zzcfa_cfaz00(BgL_nodez00_bglt);
	BGL_IMPORT obj_t BGl_classzd2superzd2zz__objectz00(obj_t);
	static obj_t BGl_z62patchz12zd2setzd2exzd2it1678za2zzcfa_tvectorz00(obj_t,
		obj_t);
	extern obj_t BGl_globaliza7ezd2walkz12z67zzglobaliza7e_walkza7(obj_t, obj_t);
	extern obj_t BGl_funcallz00zzast_nodez00;
	extern obj_t BGl_globalz00zzast_varz00;
	extern obj_t BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00;
	static obj_t BGl_z62patchz12z70zzcfa_tvectorz00(obj_t, obj_t);
	static obj_t __cnst[23];


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_patchzd2vectorzd2setz12zd2envzc0zzcfa_tvectorz00,
		BgL_bgl_za762patchza7d2vecto2397z00,
		BGl_z62patchzd2vectorzd2setz12z70zzcfa_tvectorz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2ze3tvectorz12zd2envzf1zzcfa_tvectorz00,
		BgL_bgl_za762vectorza7d2za7e3t2398za7,
		BGl_z62vectorzd2ze3tvectorz12z41zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2353z00zzcfa_tvectorz00,
		BgL_bgl_string2353za700za7za7c2399za7, "   . Vector -> Tvector", 22);
	      DEFINE_STRING(BGl_string2354z00zzcfa_tvectorz00,
		BgL_bgl_string2354za700za7za7c2400za7, " -> vector of ", 14);
	      DEFINE_STRING(BGl_string2355z00zzcfa_tvectorz00,
		BgL_bgl_string2355za700za7za7c2401za7, "        vector of ", 18);
	      DEFINE_STRING(BGl_string2357z00zzcfa_tvectorz00,
		BgL_bgl_string2357za700za7za7c2402za7, "get-vector-item-type1635", 24);
	      DEFINE_STRING(BGl_string2359z00zzcfa_tvectorz00,
		BgL_bgl_string2359za700za7za7c2403za7, "patch!1641", 10);
	      DEFINE_STRING(BGl_string2360z00zzcfa_tvectorz00,
		BgL_bgl_string2360za700za7za7c2404za7, "No method for this object", 25);
	      DEFINE_STRING(BGl_string2362z00zzcfa_tvectorz00,
		BgL_bgl_string2362za700za7za7c2405za7, "get-vector-item-type", 20);
	      DEFINE_STRING(BGl_string2365z00zzcfa_tvectorz00,
		BgL_bgl_string2365za700za7za7c2406za7, "patch!", 6);
	      DEFINE_STRING(BGl_string2393z00zzcfa_tvectorz00,
		BgL_bgl_string2393za700za7za7c2407za7, "Unexpected closure", 18);
	      DEFINE_STRING(BGl_string2394z00zzcfa_tvectorz00,
		BgL_bgl_string2394za700za7za7c2408za7, "cfa_tvector", 11);
	      DEFINE_STRING(BGl_string2395z00zzcfa_tvectorz00,
		BgL_bgl_string2395za700za7za7c2409za7,
		"a-tvector __r4_vectors_6_8 vector->list -length make- allocate- -ref -set! get-vector-item-type1635 patch!1641 value ->list done no-remove unit cfa tv-of- all (vector-set! c-vector-set! vector-set-ur!) vector? $vector? c-vector? (vector-set! vector-set-ur! c-vector-set! $vector-set! $vector-set-ur!) ",
		301);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_tvectorzd2optimiza7ationzf3zd2envz54zzcfa_tvectorz00,
		BgL_bgl_za762tvectorza7d2opt2410z00,
		BGl_z62tvectorzd2optimiza7ationzf3ze4zzcfa_tvectorz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_addzd2makezd2vectorz12zd2envzc0zzcfa_tvectorz00,
		BgL_bgl_za762addza7d2makeza7d22411za7,
		BGl_z62addzd2makezd2vectorz12z70zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_unpatchzd2vectorzd2setz12zd2envzc0zzcfa_tvectorz00,
		BgL_bgl_za762unpatchza7d2vec2412z00,
		BGl_z62unpatchzd2vectorzd2setz12z70zzcfa_tvectorz00, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2356z00zzcfa_tvectorz00,
		BgL_bgl_za762getza7d2vectorza72413za7,
		BGl_z62getzd2vectorzd2itemzd2type1635zb0zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2358z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza7121641za72414za7,
		BGl_z62patchz121641z70zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2361z00zzcfa_tvectorz00,
		BgL_bgl_za762getza7d2vectorza72415za7,
		BGl_z62getzd2vectorzd2itemzd2type1638zb0zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2363z00zzcfa_tvectorz00,
		BgL_bgl_za762getza7d2vectorza72416za7,
		BGl_z62getzd2vectorzd2itemzd2type1640zb0zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2364z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2at2417za7,
		BGl_z62patchz12zd2atom1644za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2366z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2kw2418za7,
		BGl_z62patchz12zd2kwote1646za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2367z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2kw2419za7,
		BGl_z62patchz12zd2kwotezf2node1648z50zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2368z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2va2420za7,
		BGl_z62patchz12zd2var1650za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2369z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2cl2421za7,
		BGl_z62patchz12zd2closure1652za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2370z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2se2422za7,
		BGl_z62patchz12zd2sequence1654za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2371z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2sy2423za7,
		BGl_z62patchz12zd2sync1656za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2372z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2ap2424za7,
		BGl_z62patchz12zd2appzd2ly1658z70zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2373z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2fu2425za7,
		BGl_z62patchz12zd2funcall1660za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2374z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2ex2426za7,
		BGl_z62patchz12zd2extern1662za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2375z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2ca2427za7,
		BGl_z62patchz12zd2cast1664za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2376z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2se2428za7,
		BGl_z62patchz12zd2setq1666za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2377z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2co2429za7,
		BGl_z62patchz12zd2conditional1668za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2378z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2fa2430za7,
		BGl_z62patchz12zd2fail1670za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2379z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2sw2431za7,
		BGl_z62patchz12zd2switch1672za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2380z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2le2432za7,
		BGl_z62patchz12zd2letzd2fun1674z70zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2381z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2le2433za7,
		BGl_z62patchz12zd2letzd2var1676z70zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2382z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2se2434za7,
		BGl_z62patchz12zd2setzd2exzd2it1678za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2383z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2ju2435za7,
		BGl_z62patchz12zd2jumpzd2exzd2it1680za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2384z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2ma2436za7,
		BGl_z62patchz12zd2makezd2box1682z70zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2385z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2bo2437za7,
		BGl_z62patchz12zd2boxzd2setz121684z62zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2386z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2bo2438za7,
		BGl_z62patchz12zd2boxzd2ref1686z70zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2387z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2ap2439za7,
		BGl_z62patchz12zd2app1688za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2388z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2vl2440za7,
		BGl_z62patchz12zd2vlength1690za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2389z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2ma2441za7,
		BGl_z62patchz12zd2makezd2vectorzd2a1692za2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2390z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2va2442za7,
		BGl_z62patchz12zd2valloczf2Cinfozb21694ze2zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2391z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2vr2443za7,
		BGl_z62patchz12zd2vrefzf2Cinfo1696z50zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2392z00zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za7d2vs2444za7,
		BGl_z62patchz12zd2vsetz12zf2Cinfo1698z42zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_GENERIC
		(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00,
		BgL_bgl_za762getza7d2vectorza72445za7,
		BGl_z62getzd2vectorzd2itemzd2typezb0zzcfa_tvectorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_GENERIC(BGl_patchz12zd2envzc0zzcfa_tvectorz00,
		BgL_bgl_za762patchza712za770za7za72446za7,
		BGl_z62patchz12z70zzcfa_tvectorz00, 0L, BUNSPEC, 1);

/* 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_requirezd2initializa7ationz75zzcfa_tvectorz00));
		   
			 ADD_ROOT((void *) (&BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00));
#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_modulezd2initializa7ationz75zzcfa_tvectorz00(long
		BgL_checksumz00_6430, char *BgL_fromz00_6431)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zzcfa_tvectorz00))
				{
					BGl_requirezd2initializa7ationz75zzcfa_tvectorz00 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zzcfa_tvectorz00();
					BGl_libraryzd2moduleszd2initz00zzcfa_tvectorz00();
					BGl_cnstzd2initzd2zzcfa_tvectorz00();
					BGl_importedzd2moduleszd2initz00zzcfa_tvectorz00();
					BGl_genericzd2initzd2zzcfa_tvectorz00();
					BGl_methodzd2initzd2zzcfa_tvectorz00();
					return BGl_toplevelzd2initzd2zzcfa_tvectorz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* library-modules-init */
	obj_t BGl_libraryzd2moduleszd2initz00zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 15 */
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(0L,
				"cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__errorz00(0L, "cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__objectz00(0L, "cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(0L, "cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__readerz00(0L, "cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(0L, "cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__bitz00(0L, "cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(0L, "cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(0L,
				"cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(0L,
				"cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(0L, "cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(0L,
				"cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__structurez00(0L, "cfa_tvector");
			BGl_modulezd2initializa7ationz75zz__biglooz00(0L, "cfa_tvector");
			return BUNSPEC;
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 15 */
			{	/* Cfa/tvector.scm 15 */
				obj_t BgL_cportz00_6121;

				{	/* Cfa/tvector.scm 15 */
					obj_t BgL_stringz00_6128;

					BgL_stringz00_6128 = BGl_string2395z00zzcfa_tvectorz00;
					{	/* Cfa/tvector.scm 15 */
						obj_t BgL_startz00_6129;

						BgL_startz00_6129 = BINT(0L);
						{	/* Cfa/tvector.scm 15 */
							obj_t BgL_endz00_6130;

							BgL_endz00_6130 =
								BINT(STRING_LENGTH(((obj_t) BgL_stringz00_6128)));
							{	/* Cfa/tvector.scm 15 */

								BgL_cportz00_6121 =
									BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
									(BgL_stringz00_6128, BgL_startz00_6129, BgL_endz00_6130);
				}}}}
				{
					long BgL_iz00_6122;

					BgL_iz00_6122 = 22L;
				BgL_loopz00_6123:
					if ((BgL_iz00_6122 == -1L))
						{	/* Cfa/tvector.scm 15 */
							return BUNSPEC;
						}
					else
						{	/* Cfa/tvector.scm 15 */
							{	/* Cfa/tvector.scm 15 */
								obj_t BgL_arg2396z00_6124;

								{	/* Cfa/tvector.scm 15 */

									{	/* Cfa/tvector.scm 15 */
										obj_t BgL_locationz00_6126;

										BgL_locationz00_6126 = BBOOL(((bool_t) 0));
										{	/* Cfa/tvector.scm 15 */

											BgL_arg2396z00_6124 =
												BGl_readz00zz__readerz00(BgL_cportz00_6121,
												BgL_locationz00_6126);
										}
									}
								}
								{	/* Cfa/tvector.scm 15 */
									int BgL_tmpz00_6465;

									BgL_tmpz00_6465 = (int) (BgL_iz00_6122);
									CNST_TABLE_SET(BgL_tmpz00_6465, BgL_arg2396z00_6124);
							}}
							{	/* Cfa/tvector.scm 15 */
								int BgL_auxz00_6127;

								BgL_auxz00_6127 = (int) ((BgL_iz00_6122 - 1L));
								{
									long BgL_iz00_6470;

									BgL_iz00_6470 = (long) (BgL_auxz00_6127);
									BgL_iz00_6122 = BgL_iz00_6470;
									goto BgL_loopz00_6123;
								}
							}
						}
				}
			}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 15 */
			BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00 = BNIL;
			return BUNSPEC;
		}

	}



/* tvector-optimization? */
	BGL_EXPORTED_DEF obj_t
		BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 63 */
			if (((long) CINT(BGl_za2optimza2z00zzengine_paramz00) >= 3L))
				{	/* Cfa/tvector.scm 64 */
					if (CBOOL(BGl_za2libzd2modeza2zd2zzengine_paramz00))
						{	/* Cfa/tvector.scm 64 */
							return BFALSE;
						}
					else
						{	/* Cfa/tvector.scm 64 */
							return BTRUE;
						}
				}
			else
				{	/* Cfa/tvector.scm 64 */
					return BFALSE;
				}
		}

	}



/* &tvector-optimization? */
	obj_t BGl_z62tvectorzd2optimiza7ationzf3ze4zzcfa_tvectorz00(obj_t
		BgL_envz00_6010)
	{
		{	/* Cfa/tvector.scm 63 */
			return BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00();
		}

	}



/* patch-vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_patchzd2vectorzd2setz12z12zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 72 */
			if (CBOOL(BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00()))
				{	/* Cfa/tvector.scm 73 */
					{	/* Cfa/tvector.scm 74 */
						obj_t BgL_g1612z00_3696;

						BgL_g1612z00_3696 = CNST_TABLE_REF(0L);
						{
							obj_t BgL_l1610z00_3698;

							BgL_l1610z00_3698 = BgL_g1612z00_3696;
						BgL_zc3z04anonymousza31774ze3z87_3699:
							if (PAIRP(BgL_l1610z00_3698))
								{	/* Cfa/tvector.scm 85 */
									{	/* Cfa/tvector.scm 75 */
										obj_t BgL_setz00_3701;

										BgL_setz00_3701 = CAR(BgL_l1610z00_3698);
										{	/* Cfa/tvector.scm 75 */
											obj_t BgL_gz00_3702;

											BgL_gz00_3702 =
												BGl_findzd2globalzd2zzast_envz00(BgL_setz00_3701, BNIL);
											{	/* Cfa/tvector.scm 76 */
												bool_t BgL_test2453z00_6487;

												{	/* Cfa/tvector.scm 76 */
													obj_t BgL_classz00_4845;

													BgL_classz00_4845 = BGl_globalz00zzast_varz00;
													if (BGL_OBJECTP(BgL_gz00_3702))
														{	/* Cfa/tvector.scm 76 */
															BgL_objectz00_bglt BgL_arg1801z00_4847;

															BgL_arg1801z00_4847 =
																(BgL_objectz00_bglt) (BgL_gz00_3702);
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* Cfa/tvector.scm 76 */
																	long BgL_idxz00_4853;

																	BgL_idxz00_4853 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_4847);
																	BgL_test2453z00_6487 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_4853 + 2L)) ==
																		BgL_classz00_4845);
																}
															else
																{	/* Cfa/tvector.scm 76 */
																	bool_t BgL_res2313z00_4875;

																	{	/* Cfa/tvector.scm 76 */
																		obj_t BgL_oclassz00_4861;

																		{	/* Cfa/tvector.scm 76 */
																			long BgL_arg1808z00_4867;

																			{	/* Cfa/tvector.scm 76 */
																				long BgL_arg1809z00_4868;

																				BgL_arg1809z00_4868 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_4847);
																				BgL_arg1808z00_4867 =
																					(BgL_arg1809z00_4868 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_4861 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_4867);
																		}
																		{	/* Cfa/tvector.scm 76 */
																			bool_t BgL__ortest_1115z00_4862;

																			BgL__ortest_1115z00_4862 =
																				(BgL_classz00_4845 ==
																				BgL_oclassz00_4861);
																			if (BgL__ortest_1115z00_4862)
																				{	/* Cfa/tvector.scm 76 */
																					BgL_res2313z00_4875 =
																						BgL__ortest_1115z00_4862;
																				}
																			else
																				{	/* Cfa/tvector.scm 76 */
																					long BgL_odepthz00_4863;

																					BgL_odepthz00_4863 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_4861);
																					if ((2L < BgL_odepthz00_4863))
																						{	/* Cfa/tvector.scm 76 */
																							obj_t BgL_arg1797z00_4865;

																							BgL_arg1797z00_4865 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_4861, 2L);
																							BgL_res2313z00_4875 =
																								(BgL_arg1797z00_4865 ==
																								BgL_classz00_4845);
																						}
																					else
																						{	/* Cfa/tvector.scm 76 */
																							BgL_res2313z00_4875 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test2453z00_6487 = BgL_res2313z00_4875;
																}
														}
													else
														{	/* Cfa/tvector.scm 76 */
															BgL_test2453z00_6487 = ((bool_t) 0);
														}
												}
												if (BgL_test2453z00_6487)
													{	/* Cfa/tvector.scm 77 */
														BgL_valuez00_bglt BgL_funz00_3704;

														BgL_funz00_3704 =
															(((BgL_variablez00_bglt) COBJECT(
																	((BgL_variablez00_bglt)
																		((BgL_globalz00_bglt) BgL_gz00_3702))))->
															BgL_valuez00);
														{	/* Cfa/tvector.scm 79 */
															bool_t BgL_test2458z00_6510;

															{	/* Cfa/tvector.scm 79 */
																obj_t BgL_classz00_4877;

																BgL_classz00_4877 = BGl_cfunz00zzast_varz00;
																{	/* Cfa/tvector.scm 79 */
																	BgL_objectz00_bglt BgL_arg1801z00_4879;

																	{	/* Cfa/tvector.scm 79 */
																		obj_t BgL_tmpz00_6511;

																		BgL_tmpz00_6511 =
																			((obj_t)
																			((BgL_objectz00_bglt) BgL_funz00_3704));
																		BgL_arg1801z00_4879 =
																			(BgL_objectz00_bglt) (BgL_tmpz00_6511);
																	}
																	if (BGL_CONDEXPAND_ISA_ARCH64())
																		{	/* Cfa/tvector.scm 79 */
																			long BgL_idxz00_4885;

																			BgL_idxz00_4885 =
																				BGL_OBJECT_INHERITANCE_NUM
																				(BgL_arg1801z00_4879);
																			BgL_test2458z00_6510 =
																				(VECTOR_REF
																				(BGl_za2inheritancesza2z00zz__objectz00,
																					(BgL_idxz00_4885 + 3L)) ==
																				BgL_classz00_4877);
																		}
																	else
																		{	/* Cfa/tvector.scm 79 */
																			bool_t BgL_res2314z00_4907;

																			{	/* Cfa/tvector.scm 79 */
																				obj_t BgL_oclassz00_4893;

																				{	/* Cfa/tvector.scm 79 */
																					long BgL_arg1808z00_4899;

																					{	/* Cfa/tvector.scm 79 */
																						long BgL_arg1809z00_4900;

																						BgL_arg1809z00_4900 =
																							BGL_OBJECT_CLASS_NUM
																							(BgL_arg1801z00_4879);
																						BgL_arg1808z00_4899 =
																							(BgL_arg1809z00_4900 -
																							OBJECT_TYPE);
																					}
																					BgL_oclassz00_4893 =
																						VECTOR_REF
																						(BGl_za2classesza2z00zz__objectz00,
																						BgL_arg1808z00_4899);
																				}
																				{	/* Cfa/tvector.scm 79 */
																					bool_t BgL__ortest_1115z00_4894;

																					BgL__ortest_1115z00_4894 =
																						(BgL_classz00_4877 ==
																						BgL_oclassz00_4893);
																					if (BgL__ortest_1115z00_4894)
																						{	/* Cfa/tvector.scm 79 */
																							BgL_res2314z00_4907 =
																								BgL__ortest_1115z00_4894;
																						}
																					else
																						{	/* Cfa/tvector.scm 79 */
																							long BgL_odepthz00_4895;

																							BgL_odepthz00_4895 =
																								BGL_CLASS_DEPTH
																								(BgL_oclassz00_4893);
																							if ((3L < BgL_odepthz00_4895))
																								{	/* Cfa/tvector.scm 79 */
																									obj_t BgL_arg1797z00_4897;

																									BgL_arg1797z00_4897 =
																										BGL_CLASS_ANCESTORS_REF
																										(BgL_oclassz00_4893, 3L);
																									BgL_res2314z00_4907 =
																										(BgL_arg1797z00_4897 ==
																										BgL_classz00_4877);
																								}
																							else
																								{	/* Cfa/tvector.scm 79 */
																									BgL_res2314z00_4907 =
																										((bool_t) 0);
																								}
																						}
																				}
																			}
																			BgL_test2458z00_6510 =
																				BgL_res2314z00_4907;
																		}
																}
															}
															if (BgL_test2458z00_6510)
																{	/* Cfa/tvector.scm 80 */
																	obj_t BgL_arg1793z00_3706;
																	BgL_typez00_bglt BgL_arg1794z00_3707;

																	{	/* Cfa/tvector.scm 80 */
																		obj_t BgL_pairz00_4909;

																		BgL_pairz00_4909 =
																			(((BgL_cfunz00_bglt) COBJECT(
																					((BgL_cfunz00_bglt)
																						BgL_funz00_3704)))->
																			BgL_argszd2typezd2);
																		BgL_arg1793z00_3706 =
																			CDR(CDR(BgL_pairz00_4909));
																	}
																	BgL_arg1794z00_3707 =
																		BGl_getzd2defaultzd2typez00zztype_cachez00
																		();
																	{	/* Cfa/tvector.scm 80 */
																		obj_t BgL_auxz00_6538;
																		obj_t BgL_tmpz00_6536;

																		BgL_auxz00_6538 =
																			((obj_t) BgL_arg1794z00_3707);
																		BgL_tmpz00_6536 =
																			((obj_t) BgL_arg1793z00_3706);
																		SET_CAR(BgL_tmpz00_6536, BgL_auxz00_6538);
																	}
																}
															else
																{	/* Cfa/tvector.scm 82 */
																	bool_t BgL_test2462z00_6541;

																	{	/* Cfa/tvector.scm 82 */
																		obj_t BgL_classz00_4914;

																		BgL_classz00_4914 = BGl_sfunz00zzast_varz00;
																		{	/* Cfa/tvector.scm 82 */
																			BgL_objectz00_bglt BgL_arg1801z00_4916;

																			{	/* Cfa/tvector.scm 82 */
																				obj_t BgL_tmpz00_6542;

																				BgL_tmpz00_6542 =
																					((obj_t)
																					((BgL_objectz00_bglt)
																						BgL_funz00_3704));
																				BgL_arg1801z00_4916 =
																					(BgL_objectz00_bglt)
																					(BgL_tmpz00_6542);
																			}
																			if (BGL_CONDEXPAND_ISA_ARCH64())
																				{	/* Cfa/tvector.scm 82 */
																					long BgL_idxz00_4922;

																					BgL_idxz00_4922 =
																						BGL_OBJECT_INHERITANCE_NUM
																						(BgL_arg1801z00_4916);
																					BgL_test2462z00_6541 =
																						(VECTOR_REF
																						(BGl_za2inheritancesza2z00zz__objectz00,
																							(BgL_idxz00_4922 + 3L)) ==
																						BgL_classz00_4914);
																				}
																			else
																				{	/* Cfa/tvector.scm 82 */
																					bool_t BgL_res2315z00_4944;

																					{	/* Cfa/tvector.scm 82 */
																						obj_t BgL_oclassz00_4930;

																						{	/* Cfa/tvector.scm 82 */
																							long BgL_arg1808z00_4936;

																							{	/* Cfa/tvector.scm 82 */
																								long BgL_arg1809z00_4937;

																								BgL_arg1809z00_4937 =
																									BGL_OBJECT_CLASS_NUM
																									(BgL_arg1801z00_4916);
																								BgL_arg1808z00_4936 =
																									(BgL_arg1809z00_4937 -
																									OBJECT_TYPE);
																							}
																							BgL_oclassz00_4930 =
																								VECTOR_REF
																								(BGl_za2classesza2z00zz__objectz00,
																								BgL_arg1808z00_4936);
																						}
																						{	/* Cfa/tvector.scm 82 */
																							bool_t BgL__ortest_1115z00_4931;

																							BgL__ortest_1115z00_4931 =
																								(BgL_classz00_4914 ==
																								BgL_oclassz00_4930);
																							if (BgL__ortest_1115z00_4931)
																								{	/* Cfa/tvector.scm 82 */
																									BgL_res2315z00_4944 =
																										BgL__ortest_1115z00_4931;
																								}
																							else
																								{	/* Cfa/tvector.scm 82 */
																									long BgL_odepthz00_4932;

																									BgL_odepthz00_4932 =
																										BGL_CLASS_DEPTH
																										(BgL_oclassz00_4930);
																									if ((3L < BgL_odepthz00_4932))
																										{	/* Cfa/tvector.scm 82 */
																											obj_t BgL_arg1797z00_4934;

																											BgL_arg1797z00_4934 =
																												BGL_CLASS_ANCESTORS_REF
																												(BgL_oclassz00_4930,
																												3L);
																											BgL_res2315z00_4944 =
																												(BgL_arg1797z00_4934 ==
																												BgL_classz00_4914);
																										}
																									else
																										{	/* Cfa/tvector.scm 82 */
																											BgL_res2315z00_4944 =
																												((bool_t) 0);
																										}
																								}
																						}
																					}
																					BgL_test2462z00_6541 =
																						BgL_res2315z00_4944;
																				}
																		}
																	}
																	if (BgL_test2462z00_6541)
																		{	/* Cfa/tvector.scm 83 */
																			obj_t BgL_arg1802z00_3710;
																			BgL_typez00_bglt BgL_arg1816z00_3711;

																			{	/* Cfa/tvector.scm 83 */
																				obj_t BgL_pairz00_4946;

																				BgL_pairz00_4946 =
																					(((BgL_sfunz00_bglt) COBJECT(
																							((BgL_sfunz00_bglt)
																								BgL_funz00_3704)))->
																					BgL_argsz00);
																				BgL_arg1802z00_3710 =
																					CAR(CDR(CDR(BgL_pairz00_4946)));
																			}
																			BgL_arg1816z00_3711 =
																				BGl_getzd2defaultzd2typez00zztype_cachez00
																				();
																			((((BgL_variablez00_bglt)
																						COBJECT(((BgL_variablez00_bglt) (
																									(BgL_localz00_bglt)
																									BgL_arg1802z00_3710))))->
																					BgL_typez00) =
																				((BgL_typez00_bglt)
																					BgL_arg1816z00_3711), BUNSPEC);
																		}
																	else
																		{	/* Cfa/tvector.scm 82 */
																			BFALSE;
																		}
																}
														}
													}
												else
													{	/* Cfa/tvector.scm 76 */
														BFALSE;
													}
											}
										}
									}
									{
										obj_t BgL_l1610z00_6571;

										BgL_l1610z00_6571 = CDR(BgL_l1610z00_3698);
										BgL_l1610z00_3698 = BgL_l1610z00_6571;
										goto BgL_zc3z04anonymousza31774ze3z87_3699;
									}
								}
							else
								{	/* Cfa/tvector.scm 85 */
									((bool_t) 1);
								}
						}
					}
					{	/* Cfa/tvector.scm 87 */
						obj_t BgL_gz00_3716;

						BgL_gz00_3716 =
							BGl_findzd2globalzd2zzast_envz00(CNST_TABLE_REF(1L), BNIL);
						{	/* Cfa/tvector.scm 88 */
							bool_t BgL_test2466z00_6575;

							{	/* Cfa/tvector.scm 88 */
								obj_t BgL_classz00_4955;

								BgL_classz00_4955 = BGl_globalz00zzast_varz00;
								if (BGL_OBJECTP(BgL_gz00_3716))
									{	/* Cfa/tvector.scm 88 */
										BgL_objectz00_bglt BgL_arg1801z00_4957;

										BgL_arg1801z00_4957 = (BgL_objectz00_bglt) (BgL_gz00_3716);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Cfa/tvector.scm 88 */
												long BgL_idxz00_4963;

												BgL_idxz00_4963 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4957);
												BgL_test2466z00_6575 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_4963 + 2L)) == BgL_classz00_4955);
											}
										else
											{	/* Cfa/tvector.scm 88 */
												bool_t BgL_res2316z00_4985;

												{	/* Cfa/tvector.scm 88 */
													obj_t BgL_oclassz00_4971;

													{	/* Cfa/tvector.scm 88 */
														long BgL_arg1808z00_4977;

														{	/* Cfa/tvector.scm 88 */
															long BgL_arg1809z00_4978;

															BgL_arg1809z00_4978 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4957);
															BgL_arg1808z00_4977 =
																(BgL_arg1809z00_4978 - OBJECT_TYPE);
														}
														BgL_oclassz00_4971 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_4977);
													}
													{	/* Cfa/tvector.scm 88 */
														bool_t BgL__ortest_1115z00_4972;

														BgL__ortest_1115z00_4972 =
															(BgL_classz00_4955 == BgL_oclassz00_4971);
														if (BgL__ortest_1115z00_4972)
															{	/* Cfa/tvector.scm 88 */
																BgL_res2316z00_4985 = BgL__ortest_1115z00_4972;
															}
														else
															{	/* Cfa/tvector.scm 88 */
																long BgL_odepthz00_4973;

																BgL_odepthz00_4973 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_4971);
																if ((2L < BgL_odepthz00_4973))
																	{	/* Cfa/tvector.scm 88 */
																		obj_t BgL_arg1797z00_4975;

																		BgL_arg1797z00_4975 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_4971, 2L);
																		BgL_res2316z00_4985 =
																			(BgL_arg1797z00_4975 ==
																			BgL_classz00_4955);
																	}
																else
																	{	/* Cfa/tvector.scm 88 */
																		BgL_res2316z00_4985 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2466z00_6575 = BgL_res2316z00_4985;
											}
									}
								else
									{	/* Cfa/tvector.scm 88 */
										BgL_test2466z00_6575 = ((bool_t) 0);
									}
							}
							if (BgL_test2466z00_6575)
								{	/* Cfa/tvector.scm 89 */
									BgL_valuez00_bglt BgL_fz00_3718;

									BgL_fz00_3718 =
										(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt)
													((BgL_globalz00_bglt) BgL_gz00_3716))))->
										BgL_valuez00);
									{	/* Cfa/tvector.scm 90 */
										obj_t BgL_arg1826z00_3719;
										BgL_typez00_bglt BgL_arg1827z00_3720;

										BgL_arg1826z00_3719 =
											(((BgL_cfunz00_bglt) COBJECT(
													((BgL_cfunz00_bglt) BgL_fz00_3718)))->
											BgL_argszd2typezd2);
										BgL_arg1827z00_3720 =
											BGl_getzd2defaultzd2typez00zztype_cachez00();
										{	/* Cfa/tvector.scm 90 */
											obj_t BgL_auxz00_6603;
											obj_t BgL_tmpz00_6601;

											BgL_auxz00_6603 = ((obj_t) BgL_arg1827z00_3720);
											BgL_tmpz00_6601 = ((obj_t) BgL_arg1826z00_3719);
											SET_CAR(BgL_tmpz00_6601, BgL_auxz00_6603);
										}
									}
								}
							else
								{	/* Cfa/tvector.scm 88 */
									BFALSE;
								}
						}
					}
					{	/* Cfa/tvector.scm 91 */
						obj_t BgL_gz00_3722;

						BgL_gz00_3722 =
							BGl_findzd2globalzd2zzast_envz00(CNST_TABLE_REF(2L), BNIL);
						{	/* Cfa/tvector.scm 92 */
							bool_t BgL_test2471z00_6608;

							{	/* Cfa/tvector.scm 92 */
								obj_t BgL_classz00_4989;

								BgL_classz00_4989 = BGl_globalz00zzast_varz00;
								if (BGL_OBJECTP(BgL_gz00_3722))
									{	/* Cfa/tvector.scm 92 */
										BgL_objectz00_bglt BgL_arg1801z00_4991;

										BgL_arg1801z00_4991 = (BgL_objectz00_bglt) (BgL_gz00_3722);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Cfa/tvector.scm 92 */
												long BgL_idxz00_4997;

												BgL_idxz00_4997 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4991);
												BgL_test2471z00_6608 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_4997 + 2L)) == BgL_classz00_4989);
											}
										else
											{	/* Cfa/tvector.scm 92 */
												bool_t BgL_res2317z00_5019;

												{	/* Cfa/tvector.scm 92 */
													obj_t BgL_oclassz00_5005;

													{	/* Cfa/tvector.scm 92 */
														long BgL_arg1808z00_5011;

														{	/* Cfa/tvector.scm 92 */
															long BgL_arg1809z00_5012;

															BgL_arg1809z00_5012 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4991);
															BgL_arg1808z00_5011 =
																(BgL_arg1809z00_5012 - OBJECT_TYPE);
														}
														BgL_oclassz00_5005 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_5011);
													}
													{	/* Cfa/tvector.scm 92 */
														bool_t BgL__ortest_1115z00_5006;

														BgL__ortest_1115z00_5006 =
															(BgL_classz00_4989 == BgL_oclassz00_5005);
														if (BgL__ortest_1115z00_5006)
															{	/* Cfa/tvector.scm 92 */
																BgL_res2317z00_5019 = BgL__ortest_1115z00_5006;
															}
														else
															{	/* Cfa/tvector.scm 92 */
																long BgL_odepthz00_5007;

																BgL_odepthz00_5007 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_5005);
																if ((2L < BgL_odepthz00_5007))
																	{	/* Cfa/tvector.scm 92 */
																		obj_t BgL_arg1797z00_5009;

																		BgL_arg1797z00_5009 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_5005, 2L);
																		BgL_res2317z00_5019 =
																			(BgL_arg1797z00_5009 ==
																			BgL_classz00_4989);
																	}
																else
																	{	/* Cfa/tvector.scm 92 */
																		BgL_res2317z00_5019 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2471z00_6608 = BgL_res2317z00_5019;
											}
									}
								else
									{	/* Cfa/tvector.scm 92 */
										BgL_test2471z00_6608 = ((bool_t) 0);
									}
							}
							if (BgL_test2471z00_6608)
								{	/* Cfa/tvector.scm 93 */
									BgL_valuez00_bglt BgL_fz00_3724;

									BgL_fz00_3724 =
										(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt)
													((BgL_globalz00_bglt) BgL_gz00_3722))))->
										BgL_valuez00);
									{	/* Cfa/tvector.scm 94 */
										obj_t BgL_arg1830z00_3725;
										BgL_typez00_bglt BgL_arg1831z00_3726;

										BgL_arg1830z00_3725 =
											(((BgL_cfunz00_bglt) COBJECT(
													((BgL_cfunz00_bglt) BgL_fz00_3724)))->
											BgL_argszd2typezd2);
										BgL_arg1831z00_3726 =
											BGl_getzd2defaultzd2typez00zztype_cachez00();
										{	/* Cfa/tvector.scm 94 */
											obj_t BgL_auxz00_6636;
											obj_t BgL_tmpz00_6634;

											BgL_auxz00_6636 = ((obj_t) BgL_arg1831z00_3726);
											BgL_tmpz00_6634 = ((obj_t) BgL_arg1830z00_3725);
											SET_CAR(BgL_tmpz00_6634, BgL_auxz00_6636);
										}
									}
								}
							else
								{	/* Cfa/tvector.scm 92 */
									BFALSE;
								}
						}
					}
					{	/* Cfa/tvector.scm 95 */
						obj_t BgL_gz00_3728;

						BgL_gz00_3728 =
							BGl_findzd2globalzd2zzast_envz00(CNST_TABLE_REF(3L), BNIL);
						{	/* Cfa/tvector.scm 96 */
							bool_t BgL_test2476z00_6641;

							{	/* Cfa/tvector.scm 96 */
								obj_t BgL_classz00_5023;

								BgL_classz00_5023 = BGl_globalz00zzast_varz00;
								if (BGL_OBJECTP(BgL_gz00_3728))
									{	/* Cfa/tvector.scm 96 */
										BgL_objectz00_bglt BgL_arg1801z00_5025;

										BgL_arg1801z00_5025 = (BgL_objectz00_bglt) (BgL_gz00_3728);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Cfa/tvector.scm 96 */
												long BgL_idxz00_5031;

												BgL_idxz00_5031 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5025);
												BgL_test2476z00_6641 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_5031 + 2L)) == BgL_classz00_5023);
											}
										else
											{	/* Cfa/tvector.scm 96 */
												bool_t BgL_res2318z00_5053;

												{	/* Cfa/tvector.scm 96 */
													obj_t BgL_oclassz00_5039;

													{	/* Cfa/tvector.scm 96 */
														long BgL_arg1808z00_5045;

														{	/* Cfa/tvector.scm 96 */
															long BgL_arg1809z00_5046;

															BgL_arg1809z00_5046 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5025);
															BgL_arg1808z00_5045 =
																(BgL_arg1809z00_5046 - OBJECT_TYPE);
														}
														BgL_oclassz00_5039 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_5045);
													}
													{	/* Cfa/tvector.scm 96 */
														bool_t BgL__ortest_1115z00_5040;

														BgL__ortest_1115z00_5040 =
															(BgL_classz00_5023 == BgL_oclassz00_5039);
														if (BgL__ortest_1115z00_5040)
															{	/* Cfa/tvector.scm 96 */
																BgL_res2318z00_5053 = BgL__ortest_1115z00_5040;
															}
														else
															{	/* Cfa/tvector.scm 96 */
																long BgL_odepthz00_5041;

																BgL_odepthz00_5041 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_5039);
																if ((2L < BgL_odepthz00_5041))
																	{	/* Cfa/tvector.scm 96 */
																		obj_t BgL_arg1797z00_5043;

																		BgL_arg1797z00_5043 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_5039, 2L);
																		BgL_res2318z00_5053 =
																			(BgL_arg1797z00_5043 ==
																			BgL_classz00_5023);
																	}
																else
																	{	/* Cfa/tvector.scm 96 */
																		BgL_res2318z00_5053 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2476z00_6641 = BgL_res2318z00_5053;
											}
									}
								else
									{	/* Cfa/tvector.scm 96 */
										BgL_test2476z00_6641 = ((bool_t) 0);
									}
							}
							if (BgL_test2476z00_6641)
								{	/* Cfa/tvector.scm 97 */
									BgL_valuez00_bglt BgL_fz00_3730;

									BgL_fz00_3730 =
										(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt)
													((BgL_globalz00_bglt) BgL_gz00_3728))))->
										BgL_valuez00);
									{	/* Cfa/tvector.scm 98 */
										obj_t BgL_arg1834z00_3731;
										BgL_typez00_bglt BgL_arg1835z00_3732;

										{	/* Cfa/tvector.scm 98 */
											obj_t BgL_pairz00_5056;

											BgL_pairz00_5056 =
												(((BgL_sfunz00_bglt) COBJECT(
														((BgL_sfunz00_bglt) BgL_fz00_3730)))->BgL_argsz00);
											BgL_arg1834z00_3731 = CAR(BgL_pairz00_5056);
										}
										BgL_arg1835z00_3732 =
											BGl_getzd2defaultzd2typez00zztype_cachez00();
										return
											((((BgL_variablez00_bglt) COBJECT(
														((BgL_variablez00_bglt)
															((BgL_localz00_bglt) BgL_arg1834z00_3731))))->
												BgL_typez00) =
											((BgL_typez00_bglt) BgL_arg1835z00_3732), BUNSPEC);
									}
								}
							else
								{	/* Cfa/tvector.scm 96 */
									return BFALSE;
								}
						}
					}
				}
			else
				{	/* Cfa/tvector.scm 73 */
					return BFALSE;
				}
		}

	}



/* &patch-vector-set! */
	obj_t BGl_z62patchzd2vectorzd2setz12z70zzcfa_tvectorz00(obj_t BgL_envz00_6011)
	{
		{	/* Cfa/tvector.scm 72 */
			return BGl_patchzd2vectorzd2setz12z12zzcfa_tvectorz00();
		}

	}



/* unpatch-vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_unpatchzd2vectorzd2setz12z12zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 103 */
			if (CBOOL(BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00()))
				{	/* Cfa/tvector.scm 104 */
					{	/* Cfa/tvector.scm 105 */
						obj_t BgL_g1615z00_3736;

						BgL_g1615z00_3736 = CNST_TABLE_REF(4L);
						{
							obj_t BgL_l1613z00_3738;

							BgL_l1613z00_3738 = BgL_g1615z00_3736;
						BgL_zc3z04anonymousza31839ze3z87_3739:
							if (PAIRP(BgL_l1613z00_3738))
								{	/* Cfa/tvector.scm 116 */
									{	/* Cfa/tvector.scm 106 */
										obj_t BgL_setz00_3741;

										BgL_setz00_3741 = CAR(BgL_l1613z00_3738);
										{	/* Cfa/tvector.scm 106 */
											obj_t BgL_gz00_3742;

											BgL_gz00_3742 =
												BGl_findzd2globalzd2zzast_envz00(BgL_setz00_3741, BNIL);
											{	/* Cfa/tvector.scm 107 */
												bool_t BgL_test2483z00_6680;

												{	/* Cfa/tvector.scm 107 */
													obj_t BgL_classz00_5060;

													BgL_classz00_5060 = BGl_globalz00zzast_varz00;
													if (BGL_OBJECTP(BgL_gz00_3742))
														{	/* Cfa/tvector.scm 107 */
															BgL_objectz00_bglt BgL_arg1801z00_5062;

															BgL_arg1801z00_5062 =
																(BgL_objectz00_bglt) (BgL_gz00_3742);
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* Cfa/tvector.scm 107 */
																	long BgL_idxz00_5068;

																	BgL_idxz00_5068 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_5062);
																	BgL_test2483z00_6680 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_5068 + 2L)) ==
																		BgL_classz00_5060);
																}
															else
																{	/* Cfa/tvector.scm 107 */
																	bool_t BgL_res2319z00_5090;

																	{	/* Cfa/tvector.scm 107 */
																		obj_t BgL_oclassz00_5076;

																		{	/* Cfa/tvector.scm 107 */
																			long BgL_arg1808z00_5082;

																			{	/* Cfa/tvector.scm 107 */
																				long BgL_arg1809z00_5083;

																				BgL_arg1809z00_5083 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_5062);
																				BgL_arg1808z00_5082 =
																					(BgL_arg1809z00_5083 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_5076 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_5082);
																		}
																		{	/* Cfa/tvector.scm 107 */
																			bool_t BgL__ortest_1115z00_5077;

																			BgL__ortest_1115z00_5077 =
																				(BgL_classz00_5060 ==
																				BgL_oclassz00_5076);
																			if (BgL__ortest_1115z00_5077)
																				{	/* Cfa/tvector.scm 107 */
																					BgL_res2319z00_5090 =
																						BgL__ortest_1115z00_5077;
																				}
																			else
																				{	/* Cfa/tvector.scm 107 */
																					long BgL_odepthz00_5078;

																					BgL_odepthz00_5078 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_5076);
																					if ((2L < BgL_odepthz00_5078))
																						{	/* Cfa/tvector.scm 107 */
																							obj_t BgL_arg1797z00_5080;

																							BgL_arg1797z00_5080 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_5076, 2L);
																							BgL_res2319z00_5090 =
																								(BgL_arg1797z00_5080 ==
																								BgL_classz00_5060);
																						}
																					else
																						{	/* Cfa/tvector.scm 107 */
																							BgL_res2319z00_5090 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test2483z00_6680 = BgL_res2319z00_5090;
																}
														}
													else
														{	/* Cfa/tvector.scm 107 */
															BgL_test2483z00_6680 = ((bool_t) 0);
														}
												}
												if (BgL_test2483z00_6680)
													{	/* Cfa/tvector.scm 108 */
														BgL_valuez00_bglt BgL_funz00_3744;

														BgL_funz00_3744 =
															(((BgL_variablez00_bglt) COBJECT(
																	((BgL_variablez00_bglt)
																		((BgL_globalz00_bglt) BgL_gz00_3742))))->
															BgL_valuez00);
														{	/* Cfa/tvector.scm 110 */
															bool_t BgL_test2488z00_6703;

															{	/* Cfa/tvector.scm 110 */
																obj_t BgL_classz00_5092;

																BgL_classz00_5092 = BGl_cfunz00zzast_varz00;
																{	/* Cfa/tvector.scm 110 */
																	BgL_objectz00_bglt BgL_arg1801z00_5094;

																	{	/* Cfa/tvector.scm 110 */
																		obj_t BgL_tmpz00_6704;

																		BgL_tmpz00_6704 =
																			((obj_t)
																			((BgL_objectz00_bglt) BgL_funz00_3744));
																		BgL_arg1801z00_5094 =
																			(BgL_objectz00_bglt) (BgL_tmpz00_6704);
																	}
																	if (BGL_CONDEXPAND_ISA_ARCH64())
																		{	/* Cfa/tvector.scm 110 */
																			long BgL_idxz00_5100;

																			BgL_idxz00_5100 =
																				BGL_OBJECT_INHERITANCE_NUM
																				(BgL_arg1801z00_5094);
																			BgL_test2488z00_6703 =
																				(VECTOR_REF
																				(BGl_za2inheritancesza2z00zz__objectz00,
																					(BgL_idxz00_5100 + 3L)) ==
																				BgL_classz00_5092);
																		}
																	else
																		{	/* Cfa/tvector.scm 110 */
																			bool_t BgL_res2320z00_5122;

																			{	/* Cfa/tvector.scm 110 */
																				obj_t BgL_oclassz00_5108;

																				{	/* Cfa/tvector.scm 110 */
																					long BgL_arg1808z00_5114;

																					{	/* Cfa/tvector.scm 110 */
																						long BgL_arg1809z00_5115;

																						BgL_arg1809z00_5115 =
																							BGL_OBJECT_CLASS_NUM
																							(BgL_arg1801z00_5094);
																						BgL_arg1808z00_5114 =
																							(BgL_arg1809z00_5115 -
																							OBJECT_TYPE);
																					}
																					BgL_oclassz00_5108 =
																						VECTOR_REF
																						(BGl_za2classesza2z00zz__objectz00,
																						BgL_arg1808z00_5114);
																				}
																				{	/* Cfa/tvector.scm 110 */
																					bool_t BgL__ortest_1115z00_5109;

																					BgL__ortest_1115z00_5109 =
																						(BgL_classz00_5092 ==
																						BgL_oclassz00_5108);
																					if (BgL__ortest_1115z00_5109)
																						{	/* Cfa/tvector.scm 110 */
																							BgL_res2320z00_5122 =
																								BgL__ortest_1115z00_5109;
																						}
																					else
																						{	/* Cfa/tvector.scm 110 */
																							long BgL_odepthz00_5110;

																							BgL_odepthz00_5110 =
																								BGL_CLASS_DEPTH
																								(BgL_oclassz00_5108);
																							if ((3L < BgL_odepthz00_5110))
																								{	/* Cfa/tvector.scm 110 */
																									obj_t BgL_arg1797z00_5112;

																									BgL_arg1797z00_5112 =
																										BGL_CLASS_ANCESTORS_REF
																										(BgL_oclassz00_5108, 3L);
																									BgL_res2320z00_5122 =
																										(BgL_arg1797z00_5112 ==
																										BgL_classz00_5092);
																								}
																							else
																								{	/* Cfa/tvector.scm 110 */
																									BgL_res2320z00_5122 =
																										((bool_t) 0);
																								}
																						}
																				}
																			}
																			BgL_test2488z00_6703 =
																				BgL_res2320z00_5122;
																		}
																}
															}
															if (BgL_test2488z00_6703)
																{	/* Cfa/tvector.scm 111 */
																	obj_t BgL_arg1843z00_3746;

																	{	/* Cfa/tvector.scm 111 */
																		obj_t BgL_pairz00_5124;

																		BgL_pairz00_5124 =
																			(((BgL_cfunz00_bglt) COBJECT(
																					((BgL_cfunz00_bglt)
																						BgL_funz00_3744)))->
																			BgL_argszd2typezd2);
																		BgL_arg1843z00_3746 =
																			CDR(CDR(BgL_pairz00_5124));
																	}
																	{	/* Cfa/tvector.scm 111 */
																		obj_t BgL_objz00_5129;

																		BgL_objz00_5129 =
																			BGl_za2objza2z00zztype_cachez00;
																		{	/* Cfa/tvector.scm 111 */
																			obj_t BgL_tmpz00_6728;

																			BgL_tmpz00_6728 =
																				((obj_t) BgL_arg1843z00_3746);
																			SET_CAR(BgL_tmpz00_6728, BgL_objz00_5129);
																		}
																	}
																}
															else
																{	/* Cfa/tvector.scm 113 */
																	bool_t BgL_test2492z00_6731;

																	{	/* Cfa/tvector.scm 113 */
																		obj_t BgL_classz00_5130;

																		BgL_classz00_5130 = BGl_sfunz00zzast_varz00;
																		{	/* Cfa/tvector.scm 113 */
																			BgL_objectz00_bglt BgL_arg1801z00_5132;

																			{	/* Cfa/tvector.scm 113 */
																				obj_t BgL_tmpz00_6732;

																				BgL_tmpz00_6732 =
																					((obj_t)
																					((BgL_objectz00_bglt)
																						BgL_funz00_3744));
																				BgL_arg1801z00_5132 =
																					(BgL_objectz00_bglt)
																					(BgL_tmpz00_6732);
																			}
																			if (BGL_CONDEXPAND_ISA_ARCH64())
																				{	/* Cfa/tvector.scm 113 */
																					long BgL_idxz00_5138;

																					BgL_idxz00_5138 =
																						BGL_OBJECT_INHERITANCE_NUM
																						(BgL_arg1801z00_5132);
																					BgL_test2492z00_6731 =
																						(VECTOR_REF
																						(BGl_za2inheritancesza2z00zz__objectz00,
																							(BgL_idxz00_5138 + 3L)) ==
																						BgL_classz00_5130);
																				}
																			else
																				{	/* Cfa/tvector.scm 113 */
																					bool_t BgL_res2321z00_5160;

																					{	/* Cfa/tvector.scm 113 */
																						obj_t BgL_oclassz00_5146;

																						{	/* Cfa/tvector.scm 113 */
																							long BgL_arg1808z00_5152;

																							{	/* Cfa/tvector.scm 113 */
																								long BgL_arg1809z00_5153;

																								BgL_arg1809z00_5153 =
																									BGL_OBJECT_CLASS_NUM
																									(BgL_arg1801z00_5132);
																								BgL_arg1808z00_5152 =
																									(BgL_arg1809z00_5153 -
																									OBJECT_TYPE);
																							}
																							BgL_oclassz00_5146 =
																								VECTOR_REF
																								(BGl_za2classesza2z00zz__objectz00,
																								BgL_arg1808z00_5152);
																						}
																						{	/* Cfa/tvector.scm 113 */
																							bool_t BgL__ortest_1115z00_5147;

																							BgL__ortest_1115z00_5147 =
																								(BgL_classz00_5130 ==
																								BgL_oclassz00_5146);
																							if (BgL__ortest_1115z00_5147)
																								{	/* Cfa/tvector.scm 113 */
																									BgL_res2321z00_5160 =
																										BgL__ortest_1115z00_5147;
																								}
																							else
																								{	/* Cfa/tvector.scm 113 */
																									long BgL_odepthz00_5148;

																									BgL_odepthz00_5148 =
																										BGL_CLASS_DEPTH
																										(BgL_oclassz00_5146);
																									if ((3L < BgL_odepthz00_5148))
																										{	/* Cfa/tvector.scm 113 */
																											obj_t BgL_arg1797z00_5150;

																											BgL_arg1797z00_5150 =
																												BGL_CLASS_ANCESTORS_REF
																												(BgL_oclassz00_5146,
																												3L);
																											BgL_res2321z00_5160 =
																												(BgL_arg1797z00_5150 ==
																												BgL_classz00_5130);
																										}
																									else
																										{	/* Cfa/tvector.scm 113 */
																											BgL_res2321z00_5160 =
																												((bool_t) 0);
																										}
																								}
																						}
																					}
																					BgL_test2492z00_6731 =
																						BgL_res2321z00_5160;
																				}
																		}
																	}
																	if (BgL_test2492z00_6731)
																		{	/* Cfa/tvector.scm 114 */
																			obj_t BgL_arg1846z00_3749;

																			{	/* Cfa/tvector.scm 114 */
																				obj_t BgL_pairz00_5162;

																				BgL_pairz00_5162 =
																					(((BgL_sfunz00_bglt) COBJECT(
																							((BgL_sfunz00_bglt)
																								BgL_funz00_3744)))->
																					BgL_argsz00);
																				BgL_arg1846z00_3749 =
																					CAR(CDR(CDR(BgL_pairz00_5162)));
																			}
																			{	/* Cfa/tvector.scm 114 */
																				BgL_typez00_bglt BgL_vz00_5169;

																				BgL_vz00_5169 =
																					((BgL_typez00_bglt)
																					BGl_za2objza2z00zztype_cachez00);
																				((((BgL_variablez00_bglt)
																							COBJECT(((BgL_variablez00_bglt) (
																										(BgL_localz00_bglt)
																										BgL_arg1846z00_3749))))->
																						BgL_typez00) =
																					((BgL_typez00_bglt) BgL_vz00_5169),
																					BUNSPEC);
																			}
																		}
																	else
																		{	/* Cfa/tvector.scm 113 */
																			BFALSE;
																		}
																}
														}
													}
												else
													{	/* Cfa/tvector.scm 107 */
														BFALSE;
													}
											}
										}
									}
									{
										obj_t BgL_l1613z00_6761;

										BgL_l1613z00_6761 = CDR(BgL_l1613z00_3738);
										BgL_l1613z00_3738 = BgL_l1613z00_6761;
										goto BgL_zc3z04anonymousza31839ze3z87_3739;
									}
								}
							else
								{	/* Cfa/tvector.scm 116 */
									((bool_t) 1);
								}
						}
					}
					{	/* Cfa/tvector.scm 117 */
						obj_t BgL_gz00_3754;

						BgL_gz00_3754 =
							BGl_findzd2globalzd2zzast_envz00(CNST_TABLE_REF(1L), BNIL);
						{	/* Cfa/tvector.scm 118 */
							bool_t BgL_test2496z00_6765;

							{	/* Cfa/tvector.scm 118 */
								obj_t BgL_classz00_5171;

								BgL_classz00_5171 = BGl_globalz00zzast_varz00;
								if (BGL_OBJECTP(BgL_gz00_3754))
									{	/* Cfa/tvector.scm 118 */
										BgL_objectz00_bglt BgL_arg1801z00_5173;

										BgL_arg1801z00_5173 = (BgL_objectz00_bglt) (BgL_gz00_3754);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Cfa/tvector.scm 118 */
												long BgL_idxz00_5179;

												BgL_idxz00_5179 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5173);
												BgL_test2496z00_6765 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_5179 + 2L)) == BgL_classz00_5171);
											}
										else
											{	/* Cfa/tvector.scm 118 */
												bool_t BgL_res2322z00_5201;

												{	/* Cfa/tvector.scm 118 */
													obj_t BgL_oclassz00_5187;

													{	/* Cfa/tvector.scm 118 */
														long BgL_arg1808z00_5193;

														{	/* Cfa/tvector.scm 118 */
															long BgL_arg1809z00_5194;

															BgL_arg1809z00_5194 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5173);
															BgL_arg1808z00_5193 =
																(BgL_arg1809z00_5194 - OBJECT_TYPE);
														}
														BgL_oclassz00_5187 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_5193);
													}
													{	/* Cfa/tvector.scm 118 */
														bool_t BgL__ortest_1115z00_5188;

														BgL__ortest_1115z00_5188 =
															(BgL_classz00_5171 == BgL_oclassz00_5187);
														if (BgL__ortest_1115z00_5188)
															{	/* Cfa/tvector.scm 118 */
																BgL_res2322z00_5201 = BgL__ortest_1115z00_5188;
															}
														else
															{	/* Cfa/tvector.scm 118 */
																long BgL_odepthz00_5189;

																BgL_odepthz00_5189 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_5187);
																if ((2L < BgL_odepthz00_5189))
																	{	/* Cfa/tvector.scm 118 */
																		obj_t BgL_arg1797z00_5191;

																		BgL_arg1797z00_5191 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_5187, 2L);
																		BgL_res2322z00_5201 =
																			(BgL_arg1797z00_5191 ==
																			BgL_classz00_5171);
																	}
																else
																	{	/* Cfa/tvector.scm 118 */
																		BgL_res2322z00_5201 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2496z00_6765 = BgL_res2322z00_5201;
											}
									}
								else
									{	/* Cfa/tvector.scm 118 */
										BgL_test2496z00_6765 = ((bool_t) 0);
									}
							}
							if (BgL_test2496z00_6765)
								{	/* Cfa/tvector.scm 119 */
									BgL_valuez00_bglt BgL_fz00_3756;

									BgL_fz00_3756 =
										(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt)
													((BgL_globalz00_bglt) BgL_gz00_3754))))->
										BgL_valuez00);
									{	/* Cfa/tvector.scm 120 */
										obj_t BgL_arg1852z00_3757;

										BgL_arg1852z00_3757 =
											(((BgL_cfunz00_bglt) COBJECT(
													((BgL_cfunz00_bglt) BgL_fz00_3756)))->
											BgL_argszd2typezd2);
										{	/* Cfa/tvector.scm 120 */
											obj_t BgL_objz00_5205;

											BgL_objz00_5205 = BGl_za2objza2z00zztype_cachez00;
											{	/* Cfa/tvector.scm 120 */
												obj_t BgL_tmpz00_6790;

												BgL_tmpz00_6790 = ((obj_t) BgL_arg1852z00_3757);
												SET_CAR(BgL_tmpz00_6790, BgL_objz00_5205);
											}
										}
									}
								}
							else
								{	/* Cfa/tvector.scm 118 */
									BFALSE;
								}
						}
					}
					{	/* Cfa/tvector.scm 121 */
						obj_t BgL_gz00_3759;

						BgL_gz00_3759 =
							BGl_findzd2globalzd2zzast_envz00(CNST_TABLE_REF(2L), BNIL);
						{	/* Cfa/tvector.scm 122 */
							bool_t BgL_test2501z00_6795;

							{	/* Cfa/tvector.scm 122 */
								obj_t BgL_classz00_5206;

								BgL_classz00_5206 = BGl_globalz00zzast_varz00;
								if (BGL_OBJECTP(BgL_gz00_3759))
									{	/* Cfa/tvector.scm 122 */
										BgL_objectz00_bglt BgL_arg1801z00_5208;

										BgL_arg1801z00_5208 = (BgL_objectz00_bglt) (BgL_gz00_3759);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Cfa/tvector.scm 122 */
												long BgL_idxz00_5214;

												BgL_idxz00_5214 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5208);
												BgL_test2501z00_6795 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_5214 + 2L)) == BgL_classz00_5206);
											}
										else
											{	/* Cfa/tvector.scm 122 */
												bool_t BgL_res2323z00_5236;

												{	/* Cfa/tvector.scm 122 */
													obj_t BgL_oclassz00_5222;

													{	/* Cfa/tvector.scm 122 */
														long BgL_arg1808z00_5228;

														{	/* Cfa/tvector.scm 122 */
															long BgL_arg1809z00_5229;

															BgL_arg1809z00_5229 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5208);
															BgL_arg1808z00_5228 =
																(BgL_arg1809z00_5229 - OBJECT_TYPE);
														}
														BgL_oclassz00_5222 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_5228);
													}
													{	/* Cfa/tvector.scm 122 */
														bool_t BgL__ortest_1115z00_5223;

														BgL__ortest_1115z00_5223 =
															(BgL_classz00_5206 == BgL_oclassz00_5222);
														if (BgL__ortest_1115z00_5223)
															{	/* Cfa/tvector.scm 122 */
																BgL_res2323z00_5236 = BgL__ortest_1115z00_5223;
															}
														else
															{	/* Cfa/tvector.scm 122 */
																long BgL_odepthz00_5224;

																BgL_odepthz00_5224 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_5222);
																if ((2L < BgL_odepthz00_5224))
																	{	/* Cfa/tvector.scm 122 */
																		obj_t BgL_arg1797z00_5226;

																		BgL_arg1797z00_5226 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_5222, 2L);
																		BgL_res2323z00_5236 =
																			(BgL_arg1797z00_5226 ==
																			BgL_classz00_5206);
																	}
																else
																	{	/* Cfa/tvector.scm 122 */
																		BgL_res2323z00_5236 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2501z00_6795 = BgL_res2323z00_5236;
											}
									}
								else
									{	/* Cfa/tvector.scm 122 */
										BgL_test2501z00_6795 = ((bool_t) 0);
									}
							}
							if (BgL_test2501z00_6795)
								{	/* Cfa/tvector.scm 123 */
									BgL_valuez00_bglt BgL_fz00_3761;

									BgL_fz00_3761 =
										(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt)
													((BgL_globalz00_bglt) BgL_gz00_3759))))->
										BgL_valuez00);
									{	/* Cfa/tvector.scm 124 */
										obj_t BgL_arg1855z00_3762;

										BgL_arg1855z00_3762 =
											(((BgL_cfunz00_bglt) COBJECT(
													((BgL_cfunz00_bglt) BgL_fz00_3761)))->
											BgL_argszd2typezd2);
										{	/* Cfa/tvector.scm 124 */
											obj_t BgL_objz00_5240;

											BgL_objz00_5240 = BGl_za2objza2z00zztype_cachez00;
											{	/* Cfa/tvector.scm 124 */
												obj_t BgL_tmpz00_6820;

												BgL_tmpz00_6820 = ((obj_t) BgL_arg1855z00_3762);
												SET_CAR(BgL_tmpz00_6820, BgL_objz00_5240);
											}
										}
									}
								}
							else
								{	/* Cfa/tvector.scm 122 */
									BFALSE;
								}
						}
					}
					{	/* Cfa/tvector.scm 125 */
						obj_t BgL_gz00_3764;

						BgL_gz00_3764 =
							BGl_findzd2globalzd2zzast_envz00(CNST_TABLE_REF(3L), BNIL);
						{	/* Cfa/tvector.scm 126 */
							bool_t BgL_test2506z00_6825;

							{	/* Cfa/tvector.scm 126 */
								obj_t BgL_classz00_5241;

								BgL_classz00_5241 = BGl_globalz00zzast_varz00;
								if (BGL_OBJECTP(BgL_gz00_3764))
									{	/* Cfa/tvector.scm 126 */
										BgL_objectz00_bglt BgL_arg1801z00_5243;

										BgL_arg1801z00_5243 = (BgL_objectz00_bglt) (BgL_gz00_3764);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Cfa/tvector.scm 126 */
												long BgL_idxz00_5249;

												BgL_idxz00_5249 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5243);
												BgL_test2506z00_6825 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_5249 + 2L)) == BgL_classz00_5241);
											}
										else
											{	/* Cfa/tvector.scm 126 */
												bool_t BgL_res2324z00_5271;

												{	/* Cfa/tvector.scm 126 */
													obj_t BgL_oclassz00_5257;

													{	/* Cfa/tvector.scm 126 */
														long BgL_arg1808z00_5263;

														{	/* Cfa/tvector.scm 126 */
															long BgL_arg1809z00_5264;

															BgL_arg1809z00_5264 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5243);
															BgL_arg1808z00_5263 =
																(BgL_arg1809z00_5264 - OBJECT_TYPE);
														}
														BgL_oclassz00_5257 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_5263);
													}
													{	/* Cfa/tvector.scm 126 */
														bool_t BgL__ortest_1115z00_5258;

														BgL__ortest_1115z00_5258 =
															(BgL_classz00_5241 == BgL_oclassz00_5257);
														if (BgL__ortest_1115z00_5258)
															{	/* Cfa/tvector.scm 126 */
																BgL_res2324z00_5271 = BgL__ortest_1115z00_5258;
															}
														else
															{	/* Cfa/tvector.scm 126 */
																long BgL_odepthz00_5259;

																BgL_odepthz00_5259 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_5257);
																if ((2L < BgL_odepthz00_5259))
																	{	/* Cfa/tvector.scm 126 */
																		obj_t BgL_arg1797z00_5261;

																		BgL_arg1797z00_5261 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_5257, 2L);
																		BgL_res2324z00_5271 =
																			(BgL_arg1797z00_5261 ==
																			BgL_classz00_5241);
																	}
																else
																	{	/* Cfa/tvector.scm 126 */
																		BgL_res2324z00_5271 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2506z00_6825 = BgL_res2324z00_5271;
											}
									}
								else
									{	/* Cfa/tvector.scm 126 */
										BgL_test2506z00_6825 = ((bool_t) 0);
									}
							}
							if (BgL_test2506z00_6825)
								{	/* Cfa/tvector.scm 127 */
									BgL_valuez00_bglt BgL_fz00_3766;

									BgL_fz00_3766 =
										(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt)
													((BgL_globalz00_bglt) BgL_gz00_3764))))->
										BgL_valuez00);
									{	/* Cfa/tvector.scm 128 */
										obj_t BgL_arg1860z00_3767;

										{	/* Cfa/tvector.scm 128 */
											obj_t BgL_pairz00_5274;

											BgL_pairz00_5274 =
												(((BgL_sfunz00_bglt) COBJECT(
														((BgL_sfunz00_bglt) BgL_fz00_3766)))->BgL_argsz00);
											BgL_arg1860z00_3767 = CAR(BgL_pairz00_5274);
										}
										{	/* Cfa/tvector.scm 128 */
											BgL_typez00_bglt BgL_vz00_5276;

											BgL_vz00_5276 =
												((BgL_typez00_bglt) BGl_za2objza2z00zztype_cachez00);
											((((BgL_variablez00_bglt) COBJECT(
															((BgL_variablez00_bglt)
																((BgL_localz00_bglt) BgL_arg1860z00_3767))))->
													BgL_typez00) =
												((BgL_typez00_bglt) BgL_vz00_5276), BUNSPEC);
										}
									}
								}
							else
								{	/* Cfa/tvector.scm 126 */
									BFALSE;
								}
						}
					}
				}
			else
				{	/* Cfa/tvector.scm 104 */
					BFALSE;
				}
			return BUNSPEC;
		}

	}



/* &unpatch-vector-set! */
	obj_t BGl_z62unpatchzd2vectorzd2setz12z70zzcfa_tvectorz00(obj_t
		BgL_envz00_6012)
	{
		{	/* Cfa/tvector.scm 103 */
			return BGl_unpatchzd2vectorzd2setz12z12zzcfa_tvectorz00();
		}

	}



/* vector->tvector! */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2ze3tvectorz12z23zzcfa_tvectorz00(obj_t
		BgL_globalsz00_55)
	{
		{	/* Cfa/tvector.scm 134 */
			if (CBOOL(BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00()))
				{	/* Cfa/tvector.scm 135 */
					BGl_inlinezd2setupz12zc0zzinline_walkz00(CNST_TABLE_REF(5L));
					{	/* Cfa/tvector.scm 144 */
						obj_t BgL_vectorsz00_3771;

						BgL_vectorsz00_3771 = BGl_getzd2tvectorszd2zzcfa_tvectorz00();
						{	/* Cfa/tvector.scm 145 */
							obj_t BgL_tvectorsz00_3772;

							{	/* Cfa/tvector.scm 149 */
								obj_t BgL_tmpz00_5277;

								{	/* Cfa/tvector.scm 149 */
									int BgL_tmpz00_6862;

									BgL_tmpz00_6862 = (int) (1L);
									BgL_tmpz00_5277 = BGL_MVALUES_VAL(BgL_tmpz00_6862);
								}
								{	/* Cfa/tvector.scm 149 */
									int BgL_tmpz00_6865;

									BgL_tmpz00_6865 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_6865, BUNSPEC);
								}
								BgL_tvectorsz00_3772 = BgL_tmpz00_5277;
							}
							{
								obj_t BgL_l1616z00_3774;

								BgL_l1616z00_3774 = BgL_vectorsz00_3771;
							BgL_zc3z04anonymousza31864ze3z87_3775:
								if (PAIRP(BgL_l1616z00_3774))
									{	/* Cfa/tvector.scm 146 */
										{	/* Cfa/tvector.scm 147 */
											obj_t BgL_vz00_3777;

											BgL_vz00_3777 = CAR(BgL_l1616z00_3774);
											{	/* Cfa/tvector.scm 147 */
												bool_t BgL_test2513z00_6871;

												{	/* Cfa/tvector.scm 147 */
													BgL_typez00_bglt BgL_arg1868z00_3780;

													BgL_arg1868z00_3780 =
														(((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_vz00_3777)))->
														BgL_typez00);
													BgL_test2513z00_6871 =
														(((obj_t) BgL_arg1868z00_3780) ==
														BGl_za2_za2z00zztype_cachez00);
												}
												if (BgL_test2513z00_6871)
													{	/* Cfa/tvector.scm 148 */
														BgL_typez00_bglt BgL_vz00_5281;

														BgL_vz00_5281 =
															((BgL_typez00_bglt)
															BGl_za2vectorza2z00zztype_cachez00);
														((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																			BgL_vz00_3777)))->BgL_typez00) =
															((BgL_typez00_bglt) BgL_vz00_5281), BUNSPEC);
													}
												else
													{	/* Cfa/tvector.scm 147 */
														BFALSE;
													}
											}
										}
										{
											obj_t BgL_l1616z00_6879;

											BgL_l1616z00_6879 = CDR(BgL_l1616z00_3774);
											BgL_l1616z00_3774 = BgL_l1616z00_6879;
											goto BgL_zc3z04anonymousza31864ze3z87_3775;
										}
									}
								else
									{	/* Cfa/tvector.scm 146 */
										((bool_t) 1);
									}
							}
							BGl_showzd2tvectorzd2zzcfa_tvectorz00(BgL_tvectorsz00_3772);
							if (PAIRP(BgL_tvectorsz00_3772))
								{	/* Cfa/tvector.scm 153 */
									obj_t BgL_addzd2treezd2_3784;

									BgL_addzd2treezd2_3784 =
										BGl_declarezd2tvectorszd2zzcfa_tvectorz00
										(BgL_tvectorsz00_3772);
									BGl_patchzd2treez12zc0zzcfa_tvectorz00(BgL_globalsz00_55);
									BGl_lvtypezd2astz12zc0zzast_lvtypez00(BgL_addzd2treezd2_3784);
									return BgL_addzd2treezd2_3784;
								}
							else
								{	/* Cfa/tvector.scm 152 */
									BGl_patchzd2treez12zc0zzcfa_tvectorz00(BgL_globalsz00_55);
									return BNIL;
								}
						}
					}
				}
			else
				{	/* Cfa/tvector.scm 135 */
					return BNIL;
				}
		}

	}



/* &vector->tvector! */
	obj_t BGl_z62vectorzd2ze3tvectorz12z41zzcfa_tvectorz00(obj_t BgL_envz00_6013,
		obj_t BgL_globalsz00_6014)
	{
		{	/* Cfa/tvector.scm 134 */
			return BGl_vectorzd2ze3tvectorz12z23zzcfa_tvectorz00(BgL_globalsz00_6014);
		}

	}



/* add-make-vector! */
	BGL_EXPORTED_DEF obj_t
		BGl_addzd2makezd2vectorz12z12zzcfa_tvectorz00(BgL_nodez00_bglt
		BgL_nodez00_56)
	{
		{	/* Cfa/tvector.scm 172 */
			if (CBOOL(BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00()))
				{	/* Cfa/tvector.scm 173 */
					return (BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00 =
						MAKE_YOUNG_PAIR(
							((obj_t) BgL_nodez00_56),
							BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00), BUNSPEC);
				}
			else
				{	/* Cfa/tvector.scm 173 */
					return BFALSE;
				}
		}

	}



/* &add-make-vector! */
	obj_t BGl_z62addzd2makezd2vectorz12z70zzcfa_tvectorz00(obj_t BgL_envz00_6015,
		obj_t BgL_nodez00_6016)
	{
		{	/* Cfa/tvector.scm 172 */
			return
				BGl_addzd2makezd2vectorz12z12zzcfa_tvectorz00(
				((BgL_nodez00_bglt) BgL_nodez00_6016));
		}

	}



/* get-tvectors */
	obj_t BGl_getzd2tvectorszd2zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 182 */
			{
				obj_t BgL_appsz00_3789;
				obj_t BgL_vectorsz00_3790;
				obj_t BgL_tvectorsz00_3791;

				BgL_appsz00_3789 = BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00;
				BgL_vectorsz00_3790 = BNIL;
				BgL_tvectorsz00_3791 = BNIL;
			BgL_zc3z04anonymousza31873ze3z87_3792:
				if (NULLP(BgL_appsz00_3789))
					{	/* Cfa/tvector.scm 186 */
						{	/* Cfa/tvector.scm 187 */
							int BgL_tmpz00_6898;

							BgL_tmpz00_6898 = (int) (2L);
							BGL_MVALUES_NUMBER_SET(BgL_tmpz00_6898);
						}
						{	/* Cfa/tvector.scm 187 */
							int BgL_tmpz00_6901;

							BgL_tmpz00_6901 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_6901, BgL_tvectorsz00_3791);
						}
						return BgL_vectorsz00_3790;
					}
				else
					{	/* Cfa/tvector.scm 188 */
						obj_t BgL_appz00_3796;

						BgL_appz00_3796 = CAR(((obj_t) BgL_appsz00_3789));
						{	/* Cfa/tvector.scm 188 */
							BgL_typez00_bglt BgL_typez00_3797;

							BgL_typez00_3797 =
								BGl_getzd2vectorzd2itemzd2typezd2zzcfa_tvectorz00(
								((BgL_nodez00_bglt) BgL_appz00_3796));
							{	/* Cfa/tvector.scm 189 */

								{	/* Cfa/tvector.scm 193 */
									bool_t BgL_test2517z00_6908;

									if (
										(((obj_t) BgL_typez00_3797) ==
											BGl_za2_za2z00zztype_cachez00))
										{	/* Cfa/tvector.scm 193 */
											BgL_test2517z00_6908 = ((bool_t) 0);
										}
									else
										{	/* Cfa/tvector.scm 193 */
											if (BGl_subzd2typezf3z21zztype_envz00(BgL_typez00_3797,
													((BgL_typez00_bglt) BGl_za2objza2z00zztype_cachez00)))
												{	/* Cfa/tvector.scm 194 */
													BgL_test2517z00_6908 = ((bool_t) 0);
												}
											else
												{	/* Cfa/tvector.scm 194 */
													BgL_test2517z00_6908 = ((bool_t) 1);
												}
										}
									if (BgL_test2517z00_6908)
										{	/* Cfa/tvector.scm 195 */
											obj_t BgL_arg1877z00_3800;
											obj_t BgL_arg1879z00_3801;

											BgL_arg1877z00_3800 = CDR(((obj_t) BgL_appsz00_3789));
											BgL_arg1879z00_3801 =
												MAKE_YOUNG_PAIR(BgL_appz00_3796, BgL_tvectorsz00_3791);
											{
												obj_t BgL_tvectorsz00_6919;
												obj_t BgL_appsz00_6918;

												BgL_appsz00_6918 = BgL_arg1877z00_3800;
												BgL_tvectorsz00_6919 = BgL_arg1879z00_3801;
												BgL_tvectorsz00_3791 = BgL_tvectorsz00_6919;
												BgL_appsz00_3789 = BgL_appsz00_6918;
												goto BgL_zc3z04anonymousza31873ze3z87_3792;
											}
										}
									else
										{	/* Cfa/tvector.scm 196 */
											obj_t BgL_arg1880z00_3802;
											obj_t BgL_arg1881z00_3803;

											BgL_arg1880z00_3802 = CDR(((obj_t) BgL_appsz00_3789));
											BgL_arg1881z00_3803 =
												MAKE_YOUNG_PAIR(BgL_appz00_3796, BgL_vectorsz00_3790);
											{
												obj_t BgL_vectorsz00_6924;
												obj_t BgL_appsz00_6923;

												BgL_appsz00_6923 = BgL_arg1880z00_3802;
												BgL_vectorsz00_6924 = BgL_arg1881z00_3803;
												BgL_vectorsz00_3790 = BgL_vectorsz00_6924;
												BgL_appsz00_3789 = BgL_appsz00_6923;
												goto BgL_zc3z04anonymousza31873ze3z87_3792;
											}
										}
								}
							}
						}
					}
			}
		}

	}



/* show-tvector */
	bool_t BGl_showzd2tvectorzd2zzcfa_tvectorz00(obj_t BgL_tvectorz00_60)
	{
		{	/* Cfa/tvector.scm 224 */
			{	/* Cfa/tvector.scm 225 */
				obj_t BgL_list1882z00_3806;

				{	/* Cfa/tvector.scm 225 */
					obj_t BgL_arg1883z00_3807;

					BgL_arg1883z00_3807 =
						MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 10)), BNIL);
					BgL_list1882z00_3806 =
						MAKE_YOUNG_PAIR(BGl_string2353z00zzcfa_tvectorz00,
						BgL_arg1883z00_3807);
				}
				BGl_verbosez00zztools_speekz00(BINT(1L), BgL_list1882z00_3806);
			}
			{
				obj_t BgL_l1620z00_3809;

				BgL_l1620z00_3809 = BgL_tvectorz00_60;
			BgL_zc3z04anonymousza31884ze3z87_3810:
				if (PAIRP(BgL_l1620z00_3809))
					{	/* Cfa/tvector.scm 226 */
						{	/* Cfa/tvector.scm 227 */
							obj_t BgL_appz00_3812;

							BgL_appz00_3812 = CAR(BgL_l1620z00_3809);
							{	/* Cfa/tvector.scm 228 */
								obj_t BgL_arg1886z00_3813;
								obj_t BgL_arg1888z00_3814;

								BgL_arg1886z00_3813 =
									BGl_shapez00zztools_shapez00(BGl_za2objza2z00zztype_cachez00);
								{	/* Cfa/tvector.scm 230 */
									BgL_typez00_bglt BgL_arg1895z00_3820;

									BgL_arg1895z00_3820 =
										BGl_getzd2vectorzd2itemzd2typezd2zzcfa_tvectorz00(
										((BgL_nodez00_bglt) BgL_appz00_3812));
									BgL_arg1888z00_3814 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg1895z00_3820));
								}
								{	/* Cfa/tvector.scm 227 */
									obj_t BgL_list1889z00_3815;

									{	/* Cfa/tvector.scm 227 */
										obj_t BgL_arg1890z00_3816;

										{	/* Cfa/tvector.scm 227 */
											obj_t BgL_arg1892z00_3817;

											{	/* Cfa/tvector.scm 227 */
												obj_t BgL_arg1893z00_3818;

												{	/* Cfa/tvector.scm 227 */
													obj_t BgL_arg1894z00_3819;

													BgL_arg1894z00_3819 =
														MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 10)), BNIL);
													BgL_arg1893z00_3818 =
														MAKE_YOUNG_PAIR(BgL_arg1888z00_3814,
														BgL_arg1894z00_3819);
												}
												BgL_arg1892z00_3817 =
													MAKE_YOUNG_PAIR(BGl_string2354z00zzcfa_tvectorz00,
													BgL_arg1893z00_3818);
											}
											BgL_arg1890z00_3816 =
												MAKE_YOUNG_PAIR(BgL_arg1886z00_3813,
												BgL_arg1892z00_3817);
										}
										BgL_list1889z00_3815 =
											MAKE_YOUNG_PAIR(BGl_string2355z00zzcfa_tvectorz00,
											BgL_arg1890z00_3816);
									}
									BGl_verbosez00zztools_speekz00(BINT(2L),
										BgL_list1889z00_3815);
						}}}
						{
							obj_t BgL_l1620z00_6946;

							BgL_l1620z00_6946 = CDR(BgL_l1620z00_3809);
							BgL_l1620z00_3809 = BgL_l1620z00_6946;
							goto BgL_zc3z04anonymousza31884ze3z87_3810;
						}
					}
				else
					{	/* Cfa/tvector.scm 226 */
						return ((bool_t) 1);
					}
			}
		}

	}



/* declare-tvectors */
	obj_t BGl_declarezd2tvectorszd2zzcfa_tvectorz00(obj_t BgL_tvectorz00_61)
	{
		{	/* Cfa/tvector.scm 237 */
			{
				obj_t BgL_l1622z00_3824;

				BgL_l1622z00_3824 = BgL_tvectorz00_61;
			BgL_zc3z04anonymousza31897ze3z87_3825:
				if (PAIRP(BgL_l1622z00_3824))
					{	/* Cfa/tvector.scm 239 */
						{	/* Cfa/tvector.scm 240 */
							obj_t BgL_appz00_3827;

							BgL_appz00_3827 = CAR(BgL_l1622z00_3824);
							{	/* Cfa/tvector.scm 240 */
								BgL_typez00_bglt BgL_typez00_3828;

								BgL_typez00_3828 =
									BGl_getzd2vectorzd2itemzd2typezd2zzcfa_tvectorz00(
									((BgL_nodez00_bglt) BgL_appz00_3827));
								{	/* Cfa/tvector.scm 242 */
									bool_t BgL_test2522z00_6953;

									{	/* Cfa/tvector.scm 242 */
										obj_t BgL_arg1914z00_3838;

										BgL_arg1914z00_3838 =
											(((BgL_typez00_bglt) COBJECT(BgL_typez00_3828))->
											BgL_tvectorz00);
										{	/* Cfa/tvector.scm 242 */
											obj_t BgL_classz00_5289;

											BgL_classz00_5289 = BGl_typez00zztype_typez00;
											if (BGL_OBJECTP(BgL_arg1914z00_3838))
												{	/* Cfa/tvector.scm 242 */
													BgL_objectz00_bglt BgL_arg1801z00_5291;

													BgL_arg1801z00_5291 =
														(BgL_objectz00_bglt) (BgL_arg1914z00_3838);
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* Cfa/tvector.scm 242 */
															long BgL_idxz00_5297;

															BgL_idxz00_5297 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5291);
															BgL_test2522z00_6953 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_5297 + 1L)) == BgL_classz00_5289);
														}
													else
														{	/* Cfa/tvector.scm 242 */
															bool_t BgL_res2325z00_5319;

															{	/* Cfa/tvector.scm 242 */
																obj_t BgL_oclassz00_5305;

																{	/* Cfa/tvector.scm 242 */
																	long BgL_arg1808z00_5311;

																	{	/* Cfa/tvector.scm 242 */
																		long BgL_arg1809z00_5312;

																		BgL_arg1809z00_5312 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5291);
																		BgL_arg1808z00_5311 =
																			(BgL_arg1809z00_5312 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_5305 =
																		VECTOR_REF
																		(BGl_za2classesza2z00zz__objectz00,
																		BgL_arg1808z00_5311);
																}
																{	/* Cfa/tvector.scm 242 */
																	bool_t BgL__ortest_1115z00_5306;

																	BgL__ortest_1115z00_5306 =
																		(BgL_classz00_5289 == BgL_oclassz00_5305);
																	if (BgL__ortest_1115z00_5306)
																		{	/* Cfa/tvector.scm 242 */
																			BgL_res2325z00_5319 =
																				BgL__ortest_1115z00_5306;
																		}
																	else
																		{	/* Cfa/tvector.scm 242 */
																			long BgL_odepthz00_5307;

																			BgL_odepthz00_5307 =
																				BGL_CLASS_DEPTH(BgL_oclassz00_5305);
																			if ((1L < BgL_odepthz00_5307))
																				{	/* Cfa/tvector.scm 242 */
																					obj_t BgL_arg1797z00_5309;

																					BgL_arg1797z00_5309 =
																						BGL_CLASS_ANCESTORS_REF
																						(BgL_oclassz00_5305, 1L);
																					BgL_res2325z00_5319 =
																						(BgL_arg1797z00_5309 ==
																						BgL_classz00_5289);
																				}
																			else
																				{	/* Cfa/tvector.scm 242 */
																					BgL_res2325z00_5319 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test2522z00_6953 = BgL_res2325z00_5319;
														}
												}
											else
												{	/* Cfa/tvector.scm 242 */
													BgL_test2522z00_6953 = ((bool_t) 0);
												}
										}
									}
									if (BgL_test2522z00_6953)
										{	/* Cfa/tvector.scm 242 */
											BFALSE;
										}
									else
										{	/* Cfa/tvector.scm 243 */
											obj_t BgL_tvzd2idzd2_3832;

											{	/* Cfa/tvector.scm 243 */
												obj_t BgL_arg1905z00_3834;

												{	/* Cfa/tvector.scm 243 */
													obj_t BgL_arg1908z00_3835;
													obj_t BgL_arg1909z00_3836;

													{	/* Cfa/tvector.scm 243 */
														obj_t BgL_symbolz00_5320;

														BgL_symbolz00_5320 = CNST_TABLE_REF(6L);
														{	/* Cfa/tvector.scm 243 */
															obj_t BgL_arg1454z00_5321;

															BgL_arg1454z00_5321 =
																SYMBOL_TO_STRING(BgL_symbolz00_5320);
															BgL_arg1908z00_3835 =
																BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																(BgL_arg1454z00_5321);
														}
													}
													{	/* Cfa/tvector.scm 243 */
														obj_t BgL_arg1911z00_3837;

														BgL_arg1911z00_3837 =
															(((BgL_typez00_bglt) COBJECT(BgL_typez00_3828))->
															BgL_idz00);
														{	/* Cfa/tvector.scm 243 */
															obj_t BgL_arg1454z00_5323;

															BgL_arg1454z00_5323 =
																SYMBOL_TO_STRING(BgL_arg1911z00_3837);
															BgL_arg1909z00_3836 =
																BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																(BgL_arg1454z00_5323);
														}
													}
													BgL_arg1905z00_3834 =
														string_append(BgL_arg1908z00_3835,
														BgL_arg1909z00_3836);
												}
												BgL_tvzd2idzd2_3832 =
													bstring_to_symbol(BgL_arg1905z00_3834);
											}
											{
												obj_t BgL_auxz00_6982;

												{	/* Cfa/tvector.scm 245 */
													obj_t BgL_arg1901z00_3833;

													BgL_arg1901z00_3833 =
														(((BgL_typez00_bglt) COBJECT(BgL_typez00_3828))->
														BgL_idz00);
													BgL_auxz00_6982 =
														BGl_modulezd2tvectorzd2clausez00zzmodule_typez00
														(BgL_tvzd2idzd2_3832, BgL_arg1901z00_3833,
														CNST_TABLE_REF(7L), BFALSE);
												}
												((((BgL_typez00_bglt) COBJECT(BgL_typez00_3828))->
														BgL_tvectorz00) =
													((obj_t) BgL_auxz00_6982), BUNSPEC);
											}
										}
								}
							}
						}
						{
							obj_t BgL_l1622z00_6987;

							BgL_l1622z00_6987 = CDR(BgL_l1622z00_3824);
							BgL_l1622z00_3824 = BgL_l1622z00_6987;
							goto BgL_zc3z04anonymousza31897ze3z87_3825;
						}
					}
				else
					{	/* Cfa/tvector.scm 239 */
						((bool_t) 1);
					}
			}
			{	/* Cfa/tvector.scm 248 */
				BgL_typez00_bglt BgL_oldzd2defaultzd2typez00_3841;

				BgL_oldzd2defaultzd2typez00_3841 =
					BGl_getzd2defaultzd2typez00zztype_cachez00();
				BGl_setzd2defaultzd2typez12z12zztype_cachez00(
					((BgL_typez00_bglt) BGl_za2objza2z00zztype_cachez00));
				{	/* Cfa/tvector.scm 250 */
					obj_t BgL_tvectorzd2unitzd2_3842;

					BgL_tvectorzd2unitzd2_3842 =
						BGl_tvectorzd2finaliza7erz75zzmodule_typez00();
					BGl_pragmazd2finaliza7erz75zzmodule_pragmaz00();
					{	/* Cfa/tvector.scm 252 */
						obj_t BgL_resz00_3843;

						{	/* Cfa/tvector.scm 252 */
							bool_t BgL_test2527z00_6994;

							if (STRUCTP(BgL_tvectorzd2unitzd2_3842))
								{	/* Cfa/tvector.scm 252 */
									BgL_test2527z00_6994 =
										(STRUCT_KEY(BgL_tvectorzd2unitzd2_3842) ==
										CNST_TABLE_REF(8L));
								}
							else
								{	/* Cfa/tvector.scm 252 */
									BgL_test2527z00_6994 = ((bool_t) 0);
								}
							if (BgL_test2527z00_6994)
								{	/* Cfa/tvector.scm 253 */
									obj_t BgL_astz00_3845;

									{	/* Cfa/tvector.scm 253 */
										obj_t BgL_arg1917z00_3846;

										{	/* Cfa/tvector.scm 253 */
											obj_t BgL_list1918z00_3847;

											BgL_list1918z00_3847 =
												MAKE_YOUNG_PAIR(BgL_tvectorzd2unitzd2_3842, BNIL);
											BgL_arg1917z00_3846 = BgL_list1918z00_3847;
										}
										BgL_astz00_3845 =
											BGl_buildzd2astzd2sanszd2removezd2zzast_buildz00
											(BgL_arg1917z00_3846);
									}
									BgL_resz00_3843 =
										BGl_globaliza7ezd2walkz12z67zzglobaliza7e_walkza7
										(BgL_astz00_3845, CNST_TABLE_REF(9L));
								}
							else
								{	/* Cfa/tvector.scm 252 */
									BgL_resz00_3843 = BNIL;
								}
						}
						BGl_lvtypezd2astz12zc0zzast_lvtypez00(BgL_resz00_3843);
						BGl_setzd2defaultzd2typez12z12zztype_cachez00
							(BgL_oldzd2defaultzd2typez00_3841);
						return BgL_resz00_3843;
					}
				}
			}
		}

	}



/* patch-tree! */
	bool_t BGl_patchzd2treez12zc0zzcfa_tvectorz00(obj_t BgL_globalsz00_62)
	{
		{	/* Cfa/tvector.scm 267 */
			{
				obj_t BgL_l1624z00_3849;

				BgL_l1624z00_3849 = BgL_globalsz00_62;
			BgL_zc3z04anonymousza31919ze3z87_3850:
				if (PAIRP(BgL_l1624z00_3849))
					{	/* Cfa/tvector.scm 268 */
						BGl_patchzd2funz12zc0zzcfa_tvectorz00(CAR(BgL_l1624z00_3849));
						{
							obj_t BgL_l1624z00_7010;

							BgL_l1624z00_7010 = CDR(BgL_l1624z00_3849);
							BgL_l1624z00_3849 = BgL_l1624z00_7010;
							goto BgL_zc3z04anonymousza31919ze3z87_3850;
						}
					}
				else
					{	/* Cfa/tvector.scm 268 */
						return ((bool_t) 1);
					}
			}
		}

	}



/* patch-fun! */
	obj_t BGl_patchzd2funz12zc0zzcfa_tvectorz00(obj_t BgL_variablez00_63)
	{
		{	/* Cfa/tvector.scm 273 */
			{	/* Cfa/tvector.scm 274 */
				BgL_valuez00_bglt BgL_funz00_3855;

				BgL_funz00_3855 =
					(((BgL_variablez00_bglt) COBJECT(
							((BgL_variablez00_bglt) BgL_variablez00_63)))->BgL_valuez00);
				{	/* Cfa/tvector.scm 277 */
					obj_t BgL_arg1923z00_3856;

					{	/* Cfa/tvector.scm 277 */
						obj_t BgL_arg1924z00_3857;

						BgL_arg1924z00_3857 =
							(((BgL_sfunz00_bglt) COBJECT(
									((BgL_sfunz00_bglt) BgL_funz00_3855)))->BgL_bodyz00);
						BgL_arg1923z00_3856 =
							BGl_patchz12z12zzcfa_tvectorz00(
							((BgL_nodez00_bglt) BgL_arg1924z00_3857));
					}
					return
						((((BgL_sfunz00_bglt) COBJECT(
									((BgL_sfunz00_bglt) BgL_funz00_3855)))->BgL_bodyz00) =
						((obj_t) BgL_arg1923z00_3856), BUNSPEC);
				}
			}
		}

	}



/* patch*! */
	obj_t BGl_patchza2z12zb0zzcfa_tvectorz00(obj_t BgL_nodeza2za2_87)
	{
		{	/* Cfa/tvector.scm 485 */
			{
				obj_t BgL_nodeza2za2_3859;

				BgL_nodeza2za2_3859 = BgL_nodeza2za2_87;
			BgL_zc3z04anonymousza31925ze3z87_3860:
				if (NULLP(BgL_nodeza2za2_3859))
					{	/* Cfa/tvector.scm 487 */
						return CNST_TABLE_REF(10L);
					}
				else
					{	/* Cfa/tvector.scm 487 */
						{	/* Cfa/tvector.scm 490 */
							obj_t BgL_arg1927z00_3862;

							{	/* Cfa/tvector.scm 490 */
								obj_t BgL_arg1928z00_3863;

								BgL_arg1928z00_3863 = CAR(((obj_t) BgL_nodeza2za2_3859));
								BgL_arg1927z00_3862 =
									BGl_patchz12z12zzcfa_tvectorz00(
									((BgL_nodez00_bglt) BgL_arg1928z00_3863));
							}
							{	/* Cfa/tvector.scm 490 */
								obj_t BgL_tmpz00_7027;

								BgL_tmpz00_7027 = ((obj_t) BgL_nodeza2za2_3859);
								SET_CAR(BgL_tmpz00_7027, BgL_arg1927z00_3862);
							}
						}
						{	/* Cfa/tvector.scm 491 */
							obj_t BgL_arg1929z00_3864;

							BgL_arg1929z00_3864 = CDR(((obj_t) BgL_nodeza2za2_3859));
							{
								obj_t BgL_nodeza2za2_7032;

								BgL_nodeza2za2_7032 = BgL_arg1929z00_3864;
								BgL_nodeza2za2_3859 = BgL_nodeza2za2_7032;
								goto BgL_zc3z04anonymousza31925ze3z87_3860;
							}
						}
					}
			}
		}

	}



/* patch-vector?! */
	BgL_nodez00_bglt BGl_patchzd2vectorzf3z12z33zzcfa_tvectorz00(BgL_appz00_bglt
		BgL_nodez00_90)
	{
		{	/* Cfa/tvector.scm 534 */
			BGl_patchza2z12zb0zzcfa_tvectorz00(
				(((BgL_appz00_bglt) COBJECT(BgL_nodez00_90))->BgL_argsz00));
			{	/* Cfa/tvector.scm 537 */
				BgL_approxz00_bglt BgL_approxz00_3868;

				{	/* Cfa/tvector.scm 537 */
					obj_t BgL_arg1937z00_3877;

					BgL_arg1937z00_3877 =
						CAR((((BgL_appz00_bglt) COBJECT(BgL_nodez00_90))->BgL_argsz00));
					BgL_approxz00_3868 =
						BGl_cfaz12z12zzcfa_cfaz00(((BgL_nodez00_bglt) BgL_arg1937z00_3877));
				}
				{	/* Cfa/tvector.scm 537 */
					obj_t BgL_typez00_3869;

					BgL_typez00_3869 =
						BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_approxz00_3868,
						CAR((((BgL_appz00_bglt) COBJECT(BgL_nodez00_90))->BgL_argsz00)));
					{	/* Cfa/tvector.scm 538 */

						{	/* Cfa/tvector.scm 539 */
							bool_t BgL_test2531z00_7042;

							if ((BgL_typez00_3869 == BGl_za2vectorza2z00zztype_cachez00))
								{	/* Cfa/tvector.scm 539 */
									BgL_test2531z00_7042 = ((bool_t) 1);
								}
							else
								{	/* Cfa/tvector.scm 539 */
									obj_t BgL_classz00_5341;

									BgL_classz00_5341 = BGl_tvecz00zztvector_tvectorz00;
									if (BGL_OBJECTP(BgL_typez00_3869))
										{	/* Cfa/tvector.scm 539 */
											BgL_objectz00_bglt BgL_arg1801z00_5343;

											BgL_arg1801z00_5343 =
												(BgL_objectz00_bglt) (BgL_typez00_3869);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Cfa/tvector.scm 539 */
													long BgL_idxz00_5349;

													BgL_idxz00_5349 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5343);
													BgL_test2531z00_7042 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_5349 + 2L)) == BgL_classz00_5341);
												}
											else
												{	/* Cfa/tvector.scm 539 */
													bool_t BgL_res2328z00_5371;

													{	/* Cfa/tvector.scm 539 */
														obj_t BgL_oclassz00_5357;

														{	/* Cfa/tvector.scm 539 */
															long BgL_arg1808z00_5363;

															{	/* Cfa/tvector.scm 539 */
																long BgL_arg1809z00_5364;

																BgL_arg1809z00_5364 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5343);
																BgL_arg1808z00_5363 =
																	(BgL_arg1809z00_5364 - OBJECT_TYPE);
															}
															BgL_oclassz00_5357 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_5363);
														}
														{	/* Cfa/tvector.scm 539 */
															bool_t BgL__ortest_1115z00_5358;

															BgL__ortest_1115z00_5358 =
																(BgL_classz00_5341 == BgL_oclassz00_5357);
															if (BgL__ortest_1115z00_5358)
																{	/* Cfa/tvector.scm 539 */
																	BgL_res2328z00_5371 =
																		BgL__ortest_1115z00_5358;
																}
															else
																{	/* Cfa/tvector.scm 539 */
																	long BgL_odepthz00_5359;

																	BgL_odepthz00_5359 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_5357);
																	if ((2L < BgL_odepthz00_5359))
																		{	/* Cfa/tvector.scm 539 */
																			obj_t BgL_arg1797z00_5361;

																			BgL_arg1797z00_5361 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_5357, 2L);
																			BgL_res2328z00_5371 =
																				(BgL_arg1797z00_5361 ==
																				BgL_classz00_5341);
																		}
																	else
																		{	/* Cfa/tvector.scm 539 */
																			BgL_res2328z00_5371 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2531z00_7042 = BgL_res2328z00_5371;
												}
										}
									else
										{	/* Cfa/tvector.scm 539 */
											BgL_test2531z00_7042 = ((bool_t) 0);
										}
								}
							if (BgL_test2531z00_7042)
								{	/* Cfa/tvector.scm 540 */
									BgL_literalz00_bglt BgL_new1229z00_3871;

									{	/* Cfa/tvector.scm 541 */
										BgL_literalz00_bglt BgL_new1228z00_3873;

										BgL_new1228z00_3873 =
											((BgL_literalz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_literalz00_bgl))));
										{	/* Cfa/tvector.scm 541 */
											long BgL_arg1934z00_3874;

											BgL_arg1934z00_3874 =
												BGL_CLASS_NUM(BGl_literalz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1228z00_3873),
												BgL_arg1934z00_3874);
										}
										{	/* Cfa/tvector.scm 541 */
											BgL_objectz00_bglt BgL_tmpz00_7068;

											BgL_tmpz00_7068 =
												((BgL_objectz00_bglt) BgL_new1228z00_3873);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_7068, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1228z00_3873);
										BgL_new1229z00_3871 = BgL_new1228z00_3873;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1229z00_3871)))->
											BgL_locz00) =
										((obj_t) (((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
															BgL_nodez00_90)))->BgL_locz00)), BUNSPEC);
									{
										BgL_typez00_bglt BgL_auxz00_7076;

										{	/* Cfa/tvector.scm 542 */
											BgL_typez00_bglt BgL_arg1933z00_3872;

											BgL_arg1933z00_3872 =
												BGl_getzd2typezd2atomz00zztype_typeofz00(BTRUE);
											BgL_auxz00_7076 =
												BGl_strictzd2nodezd2typez00zzast_nodez00
												(BgL_arg1933z00_3872,
												((BgL_typez00_bglt) BGl_za2boolza2z00zztype_cachez00));
										}
										((((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt) BgL_new1229z00_3871)))->
												BgL_typez00) =
											((BgL_typez00_bglt) BgL_auxz00_7076), BUNSPEC);
									}
									((((BgL_atomz00_bglt) COBJECT(
													((BgL_atomz00_bglt) BgL_new1229z00_3871)))->
											BgL_valuez00) = ((obj_t) BTRUE), BUNSPEC);
									return ((BgL_nodez00_bglt) BgL_new1229z00_3871);
								}
							else
								{	/* Cfa/tvector.scm 539 */
									return ((BgL_nodez00_bglt) BgL_nodez00_90);
								}
						}
					}
				}
			}
		}

	}



/* patch-vector->list! */
	BgL_nodez00_bglt
		BGl_patchzd2vectorzd2ze3listz12zf1zzcfa_tvectorz00(BgL_appz00_bglt
		BgL_nodez00_91)
	{
		{	/* Cfa/tvector.scm 549 */
			BGl_patchza2z12zb0zzcfa_tvectorz00(
				(((BgL_appz00_bglt) COBJECT(BgL_nodez00_91))->BgL_argsz00));
			{	/* Cfa/tvector.scm 552 */
				BgL_approxz00_bglt BgL_approxz00_3881;

				{	/* Cfa/tvector.scm 552 */
					obj_t BgL_arg1950z00_3895;

					BgL_arg1950z00_3895 =
						CAR((((BgL_appz00_bglt) COBJECT(BgL_nodez00_91))->BgL_argsz00));
					BgL_approxz00_3881 =
						BGl_cfaz12z12zzcfa_cfaz00(((BgL_nodez00_bglt) BgL_arg1950z00_3895));
				}
				{	/* Cfa/tvector.scm 552 */
					obj_t BgL_tvz00_3882;

					BgL_tvz00_3882 =
						BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_approxz00_3881,
						((obj_t) BgL_nodez00_91));
					{	/* Cfa/tvector.scm 553 */

						{	/* Cfa/tvector.scm 554 */
							bool_t BgL_test2537z00_7094;

							{	/* Cfa/tvector.scm 554 */
								obj_t BgL_classz00_5377;

								BgL_classz00_5377 = BGl_tvecz00zztvector_tvectorz00;
								if (BGL_OBJECTP(BgL_tvz00_3882))
									{	/* Cfa/tvector.scm 554 */
										BgL_objectz00_bglt BgL_arg1801z00_5379;

										BgL_arg1801z00_5379 = (BgL_objectz00_bglt) (BgL_tvz00_3882);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Cfa/tvector.scm 554 */
												long BgL_idxz00_5385;

												BgL_idxz00_5385 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5379);
												BgL_test2537z00_7094 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_5385 + 2L)) == BgL_classz00_5377);
											}
										else
											{	/* Cfa/tvector.scm 554 */
												bool_t BgL_res2329z00_5407;

												{	/* Cfa/tvector.scm 554 */
													obj_t BgL_oclassz00_5393;

													{	/* Cfa/tvector.scm 554 */
														long BgL_arg1808z00_5399;

														{	/* Cfa/tvector.scm 554 */
															long BgL_arg1809z00_5400;

															BgL_arg1809z00_5400 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5379);
															BgL_arg1808z00_5399 =
																(BgL_arg1809z00_5400 - OBJECT_TYPE);
														}
														BgL_oclassz00_5393 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_5399);
													}
													{	/* Cfa/tvector.scm 554 */
														bool_t BgL__ortest_1115z00_5394;

														BgL__ortest_1115z00_5394 =
															(BgL_classz00_5377 == BgL_oclassz00_5393);
														if (BgL__ortest_1115z00_5394)
															{	/* Cfa/tvector.scm 554 */
																BgL_res2329z00_5407 = BgL__ortest_1115z00_5394;
															}
														else
															{	/* Cfa/tvector.scm 554 */
																long BgL_odepthz00_5395;

																BgL_odepthz00_5395 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_5393);
																if ((2L < BgL_odepthz00_5395))
																	{	/* Cfa/tvector.scm 554 */
																		obj_t BgL_arg1797z00_5397;

																		BgL_arg1797z00_5397 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_5393, 2L);
																		BgL_res2329z00_5407 =
																			(BgL_arg1797z00_5397 ==
																			BgL_classz00_5377);
																	}
																else
																	{	/* Cfa/tvector.scm 554 */
																		BgL_res2329z00_5407 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2537z00_7094 = BgL_res2329z00_5407;
											}
									}
								else
									{	/* Cfa/tvector.scm 554 */
										BgL_test2537z00_7094 = ((bool_t) 0);
									}
							}
							if (BgL_test2537z00_7094)
								{	/* Cfa/tvector.scm 555 */
									obj_t BgL_tvzd2ze3listz31_3884;

									{	/* Cfa/tvector.scm 555 */
										obj_t BgL_arg1946z00_3891;

										{	/* Cfa/tvector.scm 555 */
											obj_t BgL_arg1947z00_3892;
											obj_t BgL_arg1948z00_3893;

											{	/* Cfa/tvector.scm 555 */
												obj_t BgL_arg1949z00_3894;

												BgL_arg1949z00_3894 =
													(((BgL_typez00_bglt) COBJECT(
															((BgL_typez00_bglt) BgL_tvz00_3882)))->BgL_idz00);
												{	/* Cfa/tvector.scm 555 */
													obj_t BgL_arg1454z00_5410;

													BgL_arg1454z00_5410 =
														SYMBOL_TO_STRING(BgL_arg1949z00_3894);
													BgL_arg1947z00_3892 =
														BGl_stringzd2copyzd2zz__r4_strings_6_7z00
														(BgL_arg1454z00_5410);
												}
											}
											{	/* Cfa/tvector.scm 555 */
												obj_t BgL_symbolz00_5411;

												BgL_symbolz00_5411 = CNST_TABLE_REF(11L);
												{	/* Cfa/tvector.scm 555 */
													obj_t BgL_arg1454z00_5412;

													BgL_arg1454z00_5412 =
														SYMBOL_TO_STRING(BgL_symbolz00_5411);
													BgL_arg1948z00_3893 =
														BGl_stringzd2copyzd2zz__r4_strings_6_7z00
														(BgL_arg1454z00_5412);
												}
											}
											BgL_arg1946z00_3891 =
												string_append(BgL_arg1947z00_3892, BgL_arg1948z00_3893);
										}
										BgL_tvzd2ze3listz31_3884 =
											bstring_to_symbol(BgL_arg1946z00_3891);
									}
									{	/* Cfa/tvector.scm 555 */
										BgL_nodez00_bglt BgL_newzd2nodezd2_3885;

										{	/* Cfa/tvector.scm 556 */
											obj_t BgL_arg1942z00_3887;
											obj_t BgL_arg1943z00_3888;

											BgL_arg1942z00_3887 =
												MAKE_YOUNG_PAIR(BgL_tvzd2ze3listz31_3884,
												BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
													(((BgL_appz00_bglt) COBJECT(BgL_nodez00_91))->
														BgL_argsz00), BNIL));
											BgL_arg1943z00_3888 =
												(((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
															BgL_nodez00_91)))->BgL_locz00);
											BgL_newzd2nodezd2_3885 =
												BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg1942z00_3887,
												BNIL, BgL_arg1943z00_3888, CNST_TABLE_REF(12L));
										}
										{	/* Cfa/tvector.scm 556 */

											{	/* Cfa/tvector.scm 560 */
												BgL_typez00_bglt BgL_arg1941z00_3886;

												BgL_arg1941z00_3886 =
													(((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt) BgL_nodez00_91)))->
													BgL_typez00);
												((((BgL_nodez00_bglt) COBJECT(BgL_newzd2nodezd2_3885))->
														BgL_typez00) =
													((BgL_typez00_bglt) BgL_arg1941z00_3886), BUNSPEC);
											}
											return BgL_newzd2nodezd2_3885;
										}
									}
								}
							else
								{	/* Cfa/tvector.scm 554 */
									return ((BgL_nodez00_bglt) BgL_nodez00_91);
								}
						}
					}
				}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 15 */
			BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00,
				BGl_proc2356z00zzcfa_tvectorz00, BGl_nodez00zzast_nodez00,
				BGl_string2357z00zzcfa_tvectorz00);
			return
				BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_proc2358z00zzcfa_tvectorz00,
				BGl_nodez00zzast_nodez00, BGl_string2359z00zzcfa_tvectorz00);
		}

	}



/* &patch!1641 */
	obj_t BGl_z62patchz121641z70zzcfa_tvectorz00(obj_t BgL_envz00_6019,
		obj_t BgL_nodez00_6020)
	{
		{	/* Cfa/tvector.scm 282 */
			return
				BGl_errorz00zz__errorz00(CNST_TABLE_REF(13L),
				BGl_string2360z00zzcfa_tvectorz00,
				((obj_t) ((BgL_nodez00_bglt) BgL_nodez00_6020)));
		}

	}



/* &get-vector-item-type1635 */
	obj_t BGl_z62getzd2vectorzd2itemzd2type1635zb0zzcfa_tvectorz00(obj_t
		BgL_envz00_6021, obj_t BgL_nodez00_6022)
	{
		{	/* Cfa/tvector.scm 201 */
			return
				BGl_errorz00zz__errorz00(CNST_TABLE_REF(14L),
				BGl_string2360z00zzcfa_tvectorz00,
				((obj_t) ((BgL_nodez00_bglt) BgL_nodez00_6022)));
		}

	}



/* get-vector-item-type */
	BGL_EXPORTED_DEF BgL_typez00_bglt
		BGl_getzd2vectorzd2itemzd2typezd2zzcfa_tvectorz00(BgL_nodez00_bglt
		BgL_nodez00_57)
	{
		{	/* Cfa/tvector.scm 201 */
			{	/* Cfa/tvector.scm 201 */
				obj_t BgL_method1636z00_3905;

				{	/* Cfa/tvector.scm 201 */
					obj_t BgL_res2334z00_5447;

					{	/* Cfa/tvector.scm 201 */
						long BgL_objzd2classzd2numz00_5418;

						BgL_objzd2classzd2numz00_5418 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_nodez00_57));
						{	/* Cfa/tvector.scm 201 */
							obj_t BgL_arg1805z00_5419;

							BgL_arg1805z00_5419 =
								PROCEDURE_REF
								(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00,
								(int) (1L));
							{	/* Cfa/tvector.scm 201 */
								int BgL_offsetz00_5422;

								BgL_offsetz00_5422 = (int) (BgL_objzd2classzd2numz00_5418);
								{	/* Cfa/tvector.scm 201 */
									long BgL_offsetz00_5423;

									BgL_offsetz00_5423 =
										((long) (BgL_offsetz00_5422) - OBJECT_TYPE);
									{	/* Cfa/tvector.scm 201 */
										long BgL_modz00_5424;

										BgL_modz00_5424 =
											(BgL_offsetz00_5423 >> (int) ((long) ((int) (4L))));
										{	/* Cfa/tvector.scm 201 */
											long BgL_restz00_5426;

											BgL_restz00_5426 =
												(BgL_offsetz00_5423 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Cfa/tvector.scm 201 */

												{	/* Cfa/tvector.scm 201 */
													obj_t BgL_bucketz00_5428;

													BgL_bucketz00_5428 =
														VECTOR_REF(
														((obj_t) BgL_arg1805z00_5419), BgL_modz00_5424);
													BgL_res2334z00_5447 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_5428), BgL_restz00_5426);
					}}}}}}}}
					BgL_method1636z00_3905 = BgL_res2334z00_5447;
				}
				return
					((BgL_typez00_bglt)
					(VA_PROCEDUREP(BgL_method1636z00_3905) ? ((obj_t(*)(obj_t,
									...))
							PROCEDURE_ENTRY(BgL_method1636z00_3905)) (BgL_method1636z00_3905,
							((obj_t) BgL_nodez00_57), BEOA) : ((obj_t(*)(obj_t,
									obj_t))
							PROCEDURE_ENTRY(BgL_method1636z00_3905)) (BgL_method1636z00_3905,
							((obj_t) BgL_nodez00_57))));
			}
		}

	}



/* &get-vector-item-type */
	BgL_typez00_bglt BGl_z62getzd2vectorzd2itemzd2typezb0zzcfa_tvectorz00(obj_t
		BgL_envz00_6023, obj_t BgL_nodez00_6024)
	{
		{	/* Cfa/tvector.scm 201 */
			return
				BGl_getzd2vectorzd2itemzd2typezd2zzcfa_tvectorz00(
				((BgL_nodez00_bglt) BgL_nodez00_6024));
		}

	}



/* patch! */
	obj_t BGl_patchz12z12zzcfa_tvectorz00(BgL_nodez00_bglt BgL_nodez00_64)
	{
		{	/* Cfa/tvector.scm 282 */
			{	/* Cfa/tvector.scm 282 */
				obj_t BgL_method1642z00_3906;

				{	/* Cfa/tvector.scm 282 */
					obj_t BgL_res2339z00_5478;

					{	/* Cfa/tvector.scm 282 */
						long BgL_objzd2classzd2numz00_5449;

						BgL_objzd2classzd2numz00_5449 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_nodez00_64));
						{	/* Cfa/tvector.scm 282 */
							obj_t BgL_arg1805z00_5450;

							BgL_arg1805z00_5450 =
								PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00,
								(int) (1L));
							{	/* Cfa/tvector.scm 282 */
								int BgL_offsetz00_5453;

								BgL_offsetz00_5453 = (int) (BgL_objzd2classzd2numz00_5449);
								{	/* Cfa/tvector.scm 282 */
									long BgL_offsetz00_5454;

									BgL_offsetz00_5454 =
										((long) (BgL_offsetz00_5453) - OBJECT_TYPE);
									{	/* Cfa/tvector.scm 282 */
										long BgL_modz00_5455;

										BgL_modz00_5455 =
											(BgL_offsetz00_5454 >> (int) ((long) ((int) (4L))));
										{	/* Cfa/tvector.scm 282 */
											long BgL_restz00_5457;

											BgL_restz00_5457 =
												(BgL_offsetz00_5454 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Cfa/tvector.scm 282 */

												{	/* Cfa/tvector.scm 282 */
													obj_t BgL_bucketz00_5459;

													BgL_bucketz00_5459 =
														VECTOR_REF(
														((obj_t) BgL_arg1805z00_5450), BgL_modz00_5455);
													BgL_res2339z00_5478 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_5459), BgL_restz00_5457);
					}}}}}}}}
					BgL_method1642z00_3906 = BgL_res2339z00_5478;
				}
				return
					(VA_PROCEDUREP(BgL_method1642z00_3906) ? ((obj_t(*)(obj_t,
								...))
						PROCEDURE_ENTRY(BgL_method1642z00_3906)) (BgL_method1642z00_3906,
						((obj_t) BgL_nodez00_64), BEOA) : ((obj_t(*)(obj_t,
								obj_t))
						PROCEDURE_ENTRY(BgL_method1642z00_3906)) (BgL_method1642z00_3906,
						((obj_t) BgL_nodez00_64)));
			}
		}

	}



/* &patch! */
	obj_t BGl_z62patchz12z70zzcfa_tvectorz00(obj_t BgL_envz00_6025,
		obj_t BgL_nodez00_6026)
	{
		{	/* Cfa/tvector.scm 282 */
			return
				BGl_patchz12z12zzcfa_tvectorz00(((BgL_nodez00_bglt) BgL_nodez00_6026));
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 15 */
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00,
				BGl_makezd2vectorzd2appz00zzcfa_info2z00,
				BGl_proc2361z00zzcfa_tvectorz00, BGl_string2362z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00,
				BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00,
				BGl_proc2363z00zzcfa_tvectorz00, BGl_string2362z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_atomz00zzast_nodez00,
				BGl_proc2364z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_kwotez00zzast_nodez00,
				BGl_proc2366z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00,
				BGl_kwotezf2nodezf2zzcfa_infoz00, BGl_proc2367z00zzcfa_tvectorz00,
				BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_varz00zzast_nodez00,
				BGl_proc2368z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_closurez00zzast_nodez00,
				BGl_proc2369z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_sequencez00zzast_nodez00,
				BGl_proc2370z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_syncz00zzast_nodez00,
				BGl_proc2371z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_appzd2lyzd2zzast_nodez00,
				BGl_proc2372z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_funcallz00zzast_nodez00,
				BGl_proc2373z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_externz00zzast_nodez00,
				BGl_proc2374z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_castz00zzast_nodez00,
				BGl_proc2375z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_setqz00zzast_nodez00,
				BGl_proc2376z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_conditionalz00zzast_nodez00,
				BGl_proc2377z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_failz00zzast_nodez00,
				BGl_proc2378z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_switchz00zzast_nodez00,
				BGl_proc2379z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_letzd2funzd2zzast_nodez00,
				BGl_proc2380z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_letzd2varzd2zzast_nodez00,
				BGl_proc2381z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00,
				BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc2382z00zzcfa_tvectorz00,
				BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00,
				BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc2383z00zzcfa_tvectorz00,
				BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_makezd2boxzd2zzast_nodez00,
				BGl_proc2384z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00,
				BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc2385z00zzcfa_tvectorz00,
				BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_boxzd2refzd2zzast_nodez00,
				BGl_proc2386z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_appz00zzast_nodez00,
				BGl_proc2387z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_vlengthz00zzast_nodez00,
				BGl_proc2388z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00,
				BGl_makezd2vectorzd2appz00zzcfa_info2z00,
				BGl_proc2389z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00,
				BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00,
				BGl_proc2390z00zzcfa_tvectorz00, BGl_string2365z00zzcfa_tvectorz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00,
				BGl_vrefzf2Cinfozf2zzcfa_info3z00, BGl_proc2391z00zzcfa_tvectorz00,
				BGl_string2365z00zzcfa_tvectorz00);
			return
				BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_patchz12zd2envzc0zzcfa_tvectorz00,
				BGl_vsetz12zf2Cinfoze0zzcfa_info3z00, BGl_proc2392z00zzcfa_tvectorz00,
				BGl_string2365z00zzcfa_tvectorz00);
		}

	}



/* &patch!-vset!/Cinfo1698 */
	obj_t BGl_z62patchz12zd2vsetz12zf2Cinfo1698z42zzcfa_tvectorz00(obj_t
		BgL_envz00_6057, obj_t BgL_nodez00_6058)
	{
		{	/* Cfa/tvector.scm 629 */
			{
				BgL_nodez00_bglt BgL_auxz00_7239;

				{	/* Cfa/tvector.scm 631 */
					obj_t BgL_arg2100z00_6135;

					BgL_arg2100z00_6135 =
						(((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt)
									((BgL_vsetz12z12_bglt) BgL_nodez00_6058))))->BgL_exprza2za2);
					BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg2100z00_6135);
				}
				{	/* Cfa/tvector.scm 632 */
					bool_t BgL_test2542z00_7244;

					{
						BgL_vsetz12zf2cinfoze0_bglt BgL_auxz00_7245;

						{
							obj_t BgL_auxz00_7246;

							{	/* Cfa/tvector.scm 632 */
								BgL_objectz00_bglt BgL_tmpz00_7247;

								BgL_tmpz00_7247 =
									((BgL_objectz00_bglt)
									((BgL_vsetz12z12_bglt) BgL_nodez00_6058));
								BgL_auxz00_7246 = BGL_OBJECT_WIDENING(BgL_tmpz00_7247);
							}
							BgL_auxz00_7245 = ((BgL_vsetz12zf2cinfoze0_bglt) BgL_auxz00_7246);
						}
						BgL_test2542z00_7244 =
							(((BgL_vsetz12zf2cinfoze0_bglt) COBJECT(BgL_auxz00_7245))->
							BgL_tvectorzf3zf3);
					}
					if (BgL_test2542z00_7244)
						{	/* Cfa/tvector.scm 632 */
							BgL_auxz00_7239 =
								((BgL_nodez00_bglt) ((BgL_vsetz12z12_bglt) BgL_nodez00_6058));
						}
					else
						{	/* Cfa/tvector.scm 634 */
							BgL_approxz00_bglt BgL_veczd2approxzd2_6136;

							{	/* Cfa/tvector.scm 634 */
								obj_t BgL_arg2111z00_6137;

								{	/* Cfa/tvector.scm 634 */
									obj_t BgL_pairz00_6138;

									BgL_pairz00_6138 =
										(((BgL_externz00_bglt) COBJECT(
												((BgL_externz00_bglt)
													((BgL_vsetz12z12_bglt) BgL_nodez00_6058))))->
										BgL_exprza2za2);
									BgL_arg2111z00_6137 = CAR(BgL_pairz00_6138);
								}
								BgL_veczd2approxzd2_6136 =
									BGl_cfaz12z12zzcfa_cfaz00(
									((BgL_nodez00_bglt) BgL_arg2111z00_6137));
							}
							{	/* Cfa/tvector.scm 634 */
								obj_t BgL_tvz00_6139;

								BgL_tvz00_6139 =
									BGl_getzd2approxzd2typez00zzcfa_typez00
									(BgL_veczd2approxzd2_6136,
									((obj_t) ((BgL_vsetz12z12_bglt) BgL_nodez00_6058)));
								{	/* Cfa/tvector.scm 635 */

									{	/* Cfa/tvector.scm 636 */
										bool_t BgL_test2543z00_7264;

										{	/* Cfa/tvector.scm 636 */
											obj_t BgL_classz00_6140;

											BgL_classz00_6140 = BGl_tvecz00zztvector_tvectorz00;
											if (BGL_OBJECTP(BgL_tvz00_6139))
												{	/* Cfa/tvector.scm 636 */
													BgL_objectz00_bglt BgL_arg1801z00_6141;

													BgL_arg1801z00_6141 =
														(BgL_objectz00_bglt) (BgL_tvz00_6139);
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* Cfa/tvector.scm 636 */
															long BgL_idxz00_6142;

															BgL_idxz00_6142 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_6141);
															BgL_test2543z00_7264 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_6142 + 2L)) == BgL_classz00_6140);
														}
													else
														{	/* Cfa/tvector.scm 636 */
															bool_t BgL_res2347z00_6145;

															{	/* Cfa/tvector.scm 636 */
																obj_t BgL_oclassz00_6146;

																{	/* Cfa/tvector.scm 636 */
																	long BgL_arg1808z00_6147;

																	{	/* Cfa/tvector.scm 636 */
																		long BgL_arg1809z00_6148;

																		BgL_arg1809z00_6148 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_6141);
																		BgL_arg1808z00_6147 =
																			(BgL_arg1809z00_6148 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_6146 =
																		VECTOR_REF
																		(BGl_za2classesza2z00zz__objectz00,
																		BgL_arg1808z00_6147);
																}
																{	/* Cfa/tvector.scm 636 */
																	bool_t BgL__ortest_1115z00_6149;

																	BgL__ortest_1115z00_6149 =
																		(BgL_classz00_6140 == BgL_oclassz00_6146);
																	if (BgL__ortest_1115z00_6149)
																		{	/* Cfa/tvector.scm 636 */
																			BgL_res2347z00_6145 =
																				BgL__ortest_1115z00_6149;
																		}
																	else
																		{	/* Cfa/tvector.scm 636 */
																			long BgL_odepthz00_6150;

																			BgL_odepthz00_6150 =
																				BGL_CLASS_DEPTH(BgL_oclassz00_6146);
																			if ((2L < BgL_odepthz00_6150))
																				{	/* Cfa/tvector.scm 636 */
																					obj_t BgL_arg1797z00_6151;

																					BgL_arg1797z00_6151 =
																						BGL_CLASS_ANCESTORS_REF
																						(BgL_oclassz00_6146, 2L);
																					BgL_res2347z00_6145 =
																						(BgL_arg1797z00_6151 ==
																						BgL_classz00_6140);
																				}
																			else
																				{	/* Cfa/tvector.scm 636 */
																					BgL_res2347z00_6145 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test2543z00_7264 = BgL_res2347z00_6145;
														}
												}
											else
												{	/* Cfa/tvector.scm 636 */
													BgL_test2543z00_7264 = ((bool_t) 0);
												}
										}
										if (BgL_test2543z00_7264)
											{	/* Cfa/tvector.scm 638 */
												obj_t BgL_tvzd2setz12zc0_6152;

												{	/* Cfa/tvector.scm 638 */
													obj_t BgL_arg2107z00_6153;

													{	/* Cfa/tvector.scm 638 */
														obj_t BgL_arg2108z00_6154;
														obj_t BgL_arg2109z00_6155;

														{	/* Cfa/tvector.scm 638 */
															obj_t BgL_arg2110z00_6156;

															BgL_arg2110z00_6156 =
																(((BgL_typez00_bglt) COBJECT(
																		((BgL_typez00_bglt) BgL_tvz00_6139)))->
																BgL_idz00);
															{	/* Cfa/tvector.scm 638 */
																obj_t BgL_arg1454z00_6157;

																BgL_arg1454z00_6157 =
																	SYMBOL_TO_STRING(BgL_arg2110z00_6156);
																BgL_arg2108z00_6154 =
																	BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																	(BgL_arg1454z00_6157);
															}
														}
														{	/* Cfa/tvector.scm 638 */
															obj_t BgL_symbolz00_6158;

															BgL_symbolz00_6158 = CNST_TABLE_REF(15L);
															{	/* Cfa/tvector.scm 638 */
																obj_t BgL_arg1454z00_6159;

																BgL_arg1454z00_6159 =
																	SYMBOL_TO_STRING(BgL_symbolz00_6158);
																BgL_arg2109z00_6155 =
																	BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																	(BgL_arg1454z00_6159);
															}
														}
														BgL_arg2107z00_6153 =
															string_append(BgL_arg2108z00_6154,
															BgL_arg2109z00_6155);
													}
													BgL_tvzd2setz12zc0_6152 =
														bstring_to_symbol(BgL_arg2107z00_6153);
												}
												{	/* Cfa/tvector.scm 638 */
													BgL_nodez00_bglt BgL_newzd2nodezd2_6160;

													{	/* Cfa/tvector.scm 639 */
														obj_t BgL_arg2103z00_6161;
														obj_t BgL_arg2104z00_6162;

														{	/* Cfa/tvector.scm 639 */
															obj_t BgL_arg2105z00_6163;

															BgL_arg2105z00_6163 =
																BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
																(((BgL_externz00_bglt) COBJECT(
																			((BgL_externz00_bglt)
																				((BgL_vsetz12z12_bglt)
																					BgL_nodez00_6058))))->BgL_exprza2za2),
																BNIL);
															BgL_arg2103z00_6161 =
																MAKE_YOUNG_PAIR(BgL_tvzd2setz12zc0_6152,
																BgL_arg2105z00_6163);
														}
														BgL_arg2104z00_6162 =
															(((BgL_nodez00_bglt) COBJECT(
																	((BgL_nodez00_bglt)
																		((BgL_vsetz12z12_bglt)
																			BgL_nodez00_6058))))->BgL_locz00);
														BgL_newzd2nodezd2_6160 =
															BGl_sexpzd2ze3nodez31zzast_sexpz00
															(BgL_arg2103z00_6161, BNIL, BgL_arg2104z00_6162,
															CNST_TABLE_REF(12L));
													}
													{	/* Cfa/tvector.scm 639 */

														BgL_auxz00_7239 =
															BGl_inlinezd2nodezd2zzinline_inlinez00
															(BgL_newzd2nodezd2_6160, 1L, BNIL);
													}
												}
											}
										else
											{	/* Cfa/tvector.scm 636 */
												BgL_auxz00_7239 =
													((BgL_nodez00_bglt)
													((BgL_vsetz12z12_bglt) BgL_nodez00_6058));
											}
									}
								}
							}
						}
				}
				return ((obj_t) BgL_auxz00_7239);
			}
		}

	}



/* &patch!-vref/Cinfo1696 */
	obj_t BGl_z62patchz12zd2vrefzf2Cinfo1696z50zzcfa_tvectorz00(obj_t
		BgL_envz00_6059, obj_t BgL_nodez00_6060)
	{
		{	/* Cfa/tvector.scm 606 */
			{
				BgL_nodez00_bglt BgL_auxz00_7307;

				{	/* Cfa/tvector.scm 608 */
					obj_t BgL_arg2083z00_6165;

					BgL_arg2083z00_6165 =
						(((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt)
									((BgL_vrefz00_bglt) BgL_nodez00_6060))))->BgL_exprza2za2);
					BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg2083z00_6165);
				}
				{	/* Cfa/tvector.scm 609 */
					bool_t BgL_test2548z00_7312;

					{
						BgL_vrefzf2cinfozf2_bglt BgL_auxz00_7313;

						{
							obj_t BgL_auxz00_7314;

							{	/* Cfa/tvector.scm 609 */
								BgL_objectz00_bglt BgL_tmpz00_7315;

								BgL_tmpz00_7315 =
									((BgL_objectz00_bglt) ((BgL_vrefz00_bglt) BgL_nodez00_6060));
								BgL_auxz00_7314 = BGL_OBJECT_WIDENING(BgL_tmpz00_7315);
							}
							BgL_auxz00_7313 = ((BgL_vrefzf2cinfozf2_bglt) BgL_auxz00_7314);
						}
						BgL_test2548z00_7312 =
							(((BgL_vrefzf2cinfozf2_bglt) COBJECT(BgL_auxz00_7313))->
							BgL_tvectorzf3zf3);
					}
					if (BgL_test2548z00_7312)
						{	/* Cfa/tvector.scm 610 */
							BgL_typez00_bglt BgL_tyz00_6166;

							BgL_tyz00_6166 =
								(((BgL_vrefz00_bglt) COBJECT(
										((BgL_vrefz00_bglt)
											((BgL_vrefz00_bglt) BgL_nodez00_6060))))->BgL_ftypez00);
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt)
												((BgL_vrefz00_bglt) BgL_nodez00_6060))))->BgL_typez00) =
								((BgL_typez00_bglt) BgL_tyz00_6166), BUNSPEC);
							BgL_auxz00_7307 =
								((BgL_nodez00_bglt) ((BgL_vrefz00_bglt) BgL_nodez00_6060));
						}
					else
						{	/* Cfa/tvector.scm 613 */
							BgL_approxz00_bglt BgL_veczd2approxzd2_6167;

							{	/* Cfa/tvector.scm 613 */
								obj_t BgL_arg2098z00_6168;

								{	/* Cfa/tvector.scm 613 */
									obj_t BgL_pairz00_6169;

									BgL_pairz00_6169 =
										(((BgL_externz00_bglt) COBJECT(
												((BgL_externz00_bglt)
													((BgL_vrefz00_bglt) BgL_nodez00_6060))))->
										BgL_exprza2za2);
									BgL_arg2098z00_6168 = CAR(BgL_pairz00_6169);
								}
								BgL_veczd2approxzd2_6167 =
									BGl_cfaz12z12zzcfa_cfaz00(
									((BgL_nodez00_bglt) BgL_arg2098z00_6168));
							}
							{	/* Cfa/tvector.scm 613 */
								obj_t BgL_tvz00_6170;

								BgL_tvz00_6170 =
									BGl_getzd2approxzd2typez00zzcfa_typez00
									(BgL_veczd2approxzd2_6167,
									((obj_t) ((BgL_vrefz00_bglt) BgL_nodez00_6060)));
								{	/* Cfa/tvector.scm 614 */

									{	/* Cfa/tvector.scm 615 */
										bool_t BgL_test2549z00_7338;

										{	/* Cfa/tvector.scm 615 */
											obj_t BgL_classz00_6171;

											BgL_classz00_6171 = BGl_tvecz00zztvector_tvectorz00;
											if (BGL_OBJECTP(BgL_tvz00_6170))
												{	/* Cfa/tvector.scm 615 */
													BgL_objectz00_bglt BgL_arg1801z00_6172;

													BgL_arg1801z00_6172 =
														(BgL_objectz00_bglt) (BgL_tvz00_6170);
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* Cfa/tvector.scm 615 */
															long BgL_idxz00_6173;

															BgL_idxz00_6173 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_6172);
															BgL_test2549z00_7338 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_6173 + 2L)) == BgL_classz00_6171);
														}
													else
														{	/* Cfa/tvector.scm 615 */
															bool_t BgL_res2346z00_6176;

															{	/* Cfa/tvector.scm 615 */
																obj_t BgL_oclassz00_6177;

																{	/* Cfa/tvector.scm 615 */
																	long BgL_arg1808z00_6178;

																	{	/* Cfa/tvector.scm 615 */
																		long BgL_arg1809z00_6179;

																		BgL_arg1809z00_6179 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_6172);
																		BgL_arg1808z00_6178 =
																			(BgL_arg1809z00_6179 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_6177 =
																		VECTOR_REF
																		(BGl_za2classesza2z00zz__objectz00,
																		BgL_arg1808z00_6178);
																}
																{	/* Cfa/tvector.scm 615 */
																	bool_t BgL__ortest_1115z00_6180;

																	BgL__ortest_1115z00_6180 =
																		(BgL_classz00_6171 == BgL_oclassz00_6177);
																	if (BgL__ortest_1115z00_6180)
																		{	/* Cfa/tvector.scm 615 */
																			BgL_res2346z00_6176 =
																				BgL__ortest_1115z00_6180;
																		}
																	else
																		{	/* Cfa/tvector.scm 615 */
																			long BgL_odepthz00_6181;

																			BgL_odepthz00_6181 =
																				BGL_CLASS_DEPTH(BgL_oclassz00_6177);
																			if ((2L < BgL_odepthz00_6181))
																				{	/* Cfa/tvector.scm 615 */
																					obj_t BgL_arg1797z00_6182;

																					BgL_arg1797z00_6182 =
																						BGL_CLASS_ANCESTORS_REF
																						(BgL_oclassz00_6177, 2L);
																					BgL_res2346z00_6176 =
																						(BgL_arg1797z00_6182 ==
																						BgL_classz00_6171);
																				}
																			else
																				{	/* Cfa/tvector.scm 615 */
																					BgL_res2346z00_6176 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test2549z00_7338 = BgL_res2346z00_6176;
														}
												}
											else
												{	/* Cfa/tvector.scm 615 */
													BgL_test2549z00_7338 = ((bool_t) 0);
												}
										}
										if (BgL_test2549z00_7338)
											{	/* Cfa/tvector.scm 620 */
												obj_t BgL_tyz00_6183;

												{	/* Cfa/tvector.scm 620 */
													BgL_approxz00_bglt BgL_arg2096z00_6184;

													{
														BgL_vrefzf2cinfozf2_bglt BgL_auxz00_7358;

														{
															obj_t BgL_auxz00_7359;

															{	/* Cfa/tvector.scm 620 */
																BgL_objectz00_bglt BgL_tmpz00_7360;

																BgL_tmpz00_7360 =
																	((BgL_objectz00_bglt)
																	((BgL_vrefz00_bglt) BgL_nodez00_6060));
																BgL_auxz00_7359 =
																	BGL_OBJECT_WIDENING(BgL_tmpz00_7360);
															}
															BgL_auxz00_7358 =
																((BgL_vrefzf2cinfozf2_bglt) BgL_auxz00_7359);
														}
														BgL_arg2096z00_6184 =
															(((BgL_vrefzf2cinfozf2_bglt)
																COBJECT(BgL_auxz00_7358))->BgL_approxz00);
													}
													BgL_tyz00_6183 =
														BGl_getzd2approxzd2typez00zzcfa_typez00
														(BgL_arg2096z00_6184,
														((obj_t) ((BgL_vrefz00_bglt) BgL_nodez00_6060)));
												}
												{	/* Cfa/tvector.scm 620 */
													obj_t BgL_tvzd2refzd2_6185;

													{	/* Cfa/tvector.scm 621 */
														obj_t BgL_arg2091z00_6186;

														{	/* Cfa/tvector.scm 621 */
															obj_t BgL_arg2093z00_6187;
															obj_t BgL_arg2094z00_6188;

															{	/* Cfa/tvector.scm 621 */
																obj_t BgL_arg2095z00_6189;

																BgL_arg2095z00_6189 =
																	(((BgL_typez00_bglt) COBJECT(
																			((BgL_typez00_bglt) BgL_tvz00_6170)))->
																	BgL_idz00);
																{	/* Cfa/tvector.scm 621 */
																	obj_t BgL_arg1454z00_6190;

																	BgL_arg1454z00_6190 =
																		SYMBOL_TO_STRING(BgL_arg2095z00_6189);
																	BgL_arg2093z00_6187 =
																		BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																		(BgL_arg1454z00_6190);
																}
															}
															{	/* Cfa/tvector.scm 621 */
																obj_t BgL_symbolz00_6191;

																BgL_symbolz00_6191 = CNST_TABLE_REF(16L);
																{	/* Cfa/tvector.scm 621 */
																	obj_t BgL_arg1454z00_6192;

																	BgL_arg1454z00_6192 =
																		SYMBOL_TO_STRING(BgL_symbolz00_6191);
																	BgL_arg2094z00_6188 =
																		BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																		(BgL_arg1454z00_6192);
																}
															}
															BgL_arg2091z00_6186 =
																string_append(BgL_arg2093z00_6187,
																BgL_arg2094z00_6188);
														}
														BgL_tvzd2refzd2_6185 =
															bstring_to_symbol(BgL_arg2091z00_6186);
													}
													{	/* Cfa/tvector.scm 621 */
														BgL_nodez00_bglt BgL_newzd2nodezd2_6193;

														{	/* Cfa/tvector.scm 622 */
															obj_t BgL_arg2087z00_6194;
															obj_t BgL_arg2088z00_6195;

															{	/* Cfa/tvector.scm 622 */
																obj_t BgL_arg2089z00_6196;

																BgL_arg2089z00_6196 =
																	BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																	((((BgL_externz00_bglt)
																			COBJECT(((BgL_externz00_bglt) (
																						(BgL_vrefz00_bglt)
																						BgL_nodez00_6060))))->
																		BgL_exprza2za2), BNIL);
																BgL_arg2087z00_6194 =
																	MAKE_YOUNG_PAIR(BgL_tvzd2refzd2_6185,
																	BgL_arg2089z00_6196);
															}
															BgL_arg2088z00_6195 =
																(((BgL_nodez00_bglt) COBJECT(
																		((BgL_nodez00_bglt)
																			((BgL_vrefz00_bglt) BgL_nodez00_6060))))->
																BgL_locz00);
															BgL_newzd2nodezd2_6193 =
																BGl_sexpzd2ze3nodez31zzast_sexpz00
																(BgL_arg2087z00_6194, BNIL, BgL_arg2088z00_6195,
																CNST_TABLE_REF(12L));
														}
														{	/* Cfa/tvector.scm 622 */

															{	/* Cfa/tvector.scm 623 */
																BgL_typez00_bglt BgL_arg2086z00_6197;

																BgL_arg2086z00_6197 =
																	BGl_strictzd2nodezd2typez00zzast_nodez00(
																	((BgL_typez00_bglt) BgL_tvz00_6170),
																	((BgL_typez00_bglt) BgL_tyz00_6183));
																((((BgL_nodez00_bglt)
																			COBJECT(BgL_newzd2nodezd2_6193))->
																		BgL_typez00) =
																	((BgL_typez00_bglt) BgL_arg2086z00_6197),
																	BUNSPEC);
															}
															BgL_auxz00_7307 =
																BGl_inlinezd2nodezd2zzinline_inlinez00
																(BgL_newzd2nodezd2_6193, 1L, BNIL);
														}
													}
												}
											}
										else
											{	/* Cfa/tvector.scm 616 */
												obj_t BgL_tyz00_6198;

												{	/* Cfa/tvector.scm 616 */
													BgL_approxz00_bglt BgL_arg2097z00_6199;

													{
														BgL_vrefzf2cinfozf2_bglt BgL_auxz00_7393;

														{
															obj_t BgL_auxz00_7394;

															{	/* Cfa/tvector.scm 616 */
																BgL_objectz00_bglt BgL_tmpz00_7395;

																BgL_tmpz00_7395 =
																	((BgL_objectz00_bglt)
																	((BgL_vrefz00_bglt) BgL_nodez00_6060));
																BgL_auxz00_7394 =
																	BGL_OBJECT_WIDENING(BgL_tmpz00_7395);
															}
															BgL_auxz00_7393 =
																((BgL_vrefzf2cinfozf2_bglt) BgL_auxz00_7394);
														}
														BgL_arg2097z00_6199 =
															(((BgL_vrefzf2cinfozf2_bglt)
																COBJECT(BgL_auxz00_7393))->BgL_approxz00);
													}
													BgL_tyz00_6198 =
														BGl_getzd2approxzd2typez00zzcfa_typez00
														(BgL_arg2097z00_6199,
														((obj_t) ((BgL_vrefz00_bglt) BgL_nodez00_6060)));
												}
												((((BgL_vrefz00_bglt) COBJECT(
																((BgL_vrefz00_bglt)
																	((BgL_vrefz00_bglt) BgL_nodez00_6060))))->
														BgL_ftypez00) =
													((BgL_typez00_bglt) ((BgL_typez00_bglt)
															BgL_tyz00_6198)), BUNSPEC);
												((((BgL_nodez00_bglt)
															COBJECT(((BgL_nodez00_bglt) ((BgL_vrefz00_bglt)
																		BgL_nodez00_6060))))->BgL_typez00) =
													((BgL_typez00_bglt) ((BgL_typez00_bglt)
															BgL_tyz00_6198)), BUNSPEC);
												BgL_auxz00_7307 =
													((BgL_nodez00_bglt) ((BgL_vrefz00_bglt)
														BgL_nodez00_6060));
											}
									}
								}
							}
						}
				}
				return ((obj_t) BgL_auxz00_7307);
			}
		}

	}



/* &patch!-valloc/Cinfo+1694 */
	obj_t BGl_z62patchz12zd2valloczf2Cinfozb21694ze2zzcfa_tvectorz00(obj_t
		BgL_envz00_6061, obj_t BgL_nodez00_6062)
	{
		{	/* Cfa/tvector.scm 585 */
			{
				BgL_nodez00_bglt BgL_auxz00_7415;

				{	/* Cfa/tvector.scm 587 */
					obj_t BgL_arg2067z00_6201;

					BgL_arg2067z00_6201 =
						(((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt)
									((BgL_vallocz00_bglt) BgL_nodez00_6062))))->BgL_exprza2za2);
					BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg2067z00_6201);
				}
				{	/* Cfa/tvector.scm 588 */
					BgL_typez00_bglt BgL_typez00_6202;

					{	/* Cfa/tvector.scm 588 */
						BgL_approxz00_bglt BgL_arg2082z00_6203;

						{
							BgL_valloczf2cinfozb2optimz40_bglt BgL_auxz00_7420;

							{
								obj_t BgL_auxz00_7421;

								{	/* Cfa/tvector.scm 588 */
									BgL_objectz00_bglt BgL_tmpz00_7422;

									BgL_tmpz00_7422 =
										((BgL_objectz00_bglt)
										((BgL_vallocz00_bglt) BgL_nodez00_6062));
									BgL_auxz00_7421 = BGL_OBJECT_WIDENING(BgL_tmpz00_7422);
								}
								BgL_auxz00_7420 =
									((BgL_valloczf2cinfozb2optimz40_bglt) BgL_auxz00_7421);
							}
							BgL_arg2082z00_6203 =
								(((BgL_valloczf2cinfozb2optimz40_bglt)
									COBJECT(BgL_auxz00_7420))->BgL_valuezd2approxzd2);
						}
						BgL_typez00_6202 =
							(((BgL_approxz00_bglt) COBJECT(BgL_arg2082z00_6203))->
							BgL_typez00);
					}
					{	/* Cfa/tvector.scm 588 */
						obj_t BgL_tvz00_6204;

						BgL_tvz00_6204 =
							(((BgL_typez00_bglt) COBJECT(BgL_typez00_6202))->BgL_tvectorz00);
						{	/* Cfa/tvector.scm 589 */

							{	/* Cfa/tvector.scm 590 */
								bool_t BgL_test2554z00_7430;

								{	/* Cfa/tvector.scm 590 */
									bool_t BgL_test2555z00_7431;

									{	/* Cfa/tvector.scm 590 */
										obj_t BgL_classz00_6205;

										BgL_classz00_6205 = BGl_typez00zztype_typez00;
										if (BGL_OBJECTP(BgL_tvz00_6204))
											{	/* Cfa/tvector.scm 590 */
												BgL_objectz00_bglt BgL_arg1801z00_6206;

												BgL_arg1801z00_6206 =
													(BgL_objectz00_bglt) (BgL_tvz00_6204);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* Cfa/tvector.scm 590 */
														long BgL_idxz00_6207;

														BgL_idxz00_6207 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_6206);
														BgL_test2555z00_7431 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_6207 + 1L)) == BgL_classz00_6205);
													}
												else
													{	/* Cfa/tvector.scm 590 */
														bool_t BgL_res2345z00_6210;

														{	/* Cfa/tvector.scm 590 */
															obj_t BgL_oclassz00_6211;

															{	/* Cfa/tvector.scm 590 */
																long BgL_arg1808z00_6212;

																{	/* Cfa/tvector.scm 590 */
																	long BgL_arg1809z00_6213;

																	BgL_arg1809z00_6213 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_6206);
																	BgL_arg1808z00_6212 =
																		(BgL_arg1809z00_6213 - OBJECT_TYPE);
																}
																BgL_oclassz00_6211 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_6212);
															}
															{	/* Cfa/tvector.scm 590 */
																bool_t BgL__ortest_1115z00_6214;

																BgL__ortest_1115z00_6214 =
																	(BgL_classz00_6205 == BgL_oclassz00_6211);
																if (BgL__ortest_1115z00_6214)
																	{	/* Cfa/tvector.scm 590 */
																		BgL_res2345z00_6210 =
																			BgL__ortest_1115z00_6214;
																	}
																else
																	{	/* Cfa/tvector.scm 590 */
																		long BgL_odepthz00_6215;

																		BgL_odepthz00_6215 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_6211);
																		if ((1L < BgL_odepthz00_6215))
																			{	/* Cfa/tvector.scm 590 */
																				obj_t BgL_arg1797z00_6216;

																				BgL_arg1797z00_6216 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_6211, 1L);
																				BgL_res2345z00_6210 =
																					(BgL_arg1797z00_6216 ==
																					BgL_classz00_6205);
																			}
																		else
																			{	/* Cfa/tvector.scm 590 */
																				BgL_res2345z00_6210 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2555z00_7431 = BgL_res2345z00_6210;
													}
											}
										else
											{	/* Cfa/tvector.scm 590 */
												BgL_test2555z00_7431 = ((bool_t) 0);
											}
									}
									if (BgL_test2555z00_7431)
										{	/* Cfa/tvector.scm 590 */
											BgL_typez00_bglt BgL_arg2081z00_6217;

											BgL_arg2081z00_6217 =
												(((BgL_vallocz00_bglt) COBJECT(
														((BgL_vallocz00_bglt)
															((BgL_vallocz00_bglt) BgL_nodez00_6062))))->
												BgL_ftypez00);
											BgL_test2554z00_7430 =
												(((obj_t) BgL_arg2081z00_6217) ==
												BGl_za2_za2z00zztype_cachez00);
										}
									else
										{	/* Cfa/tvector.scm 590 */
											BgL_test2554z00_7430 = ((bool_t) 0);
										}
								}
								if (BgL_test2554z00_7430)
									{	/* Cfa/tvector.scm 591 */
										obj_t BgL_createzd2tvzd2_6218;

										{	/* Cfa/tvector.scm 591 */
											obj_t BgL_arg2076z00_6219;

											{	/* Cfa/tvector.scm 591 */
												obj_t BgL_arg2077z00_6220;
												obj_t BgL_arg2078z00_6221;

												{	/* Cfa/tvector.scm 591 */
													obj_t BgL_symbolz00_6222;

													BgL_symbolz00_6222 = CNST_TABLE_REF(17L);
													{	/* Cfa/tvector.scm 591 */
														obj_t BgL_arg1454z00_6223;

														BgL_arg1454z00_6223 =
															SYMBOL_TO_STRING(BgL_symbolz00_6222);
														BgL_arg2077z00_6220 =
															BGl_stringzd2copyzd2zz__r4_strings_6_7z00
															(BgL_arg1454z00_6223);
													}
												}
												{	/* Cfa/tvector.scm 591 */
													obj_t BgL_arg2079z00_6224;

													BgL_arg2079z00_6224 =
														(((BgL_typez00_bglt) COBJECT(
																((BgL_typez00_bglt) BgL_tvz00_6204)))->
														BgL_idz00);
													{	/* Cfa/tvector.scm 591 */
														obj_t BgL_arg1454z00_6225;

														BgL_arg1454z00_6225 =
															SYMBOL_TO_STRING(BgL_arg2079z00_6224);
														BgL_arg2078z00_6221 =
															BGl_stringzd2copyzd2zz__r4_strings_6_7z00
															(BgL_arg1454z00_6225);
													}
												}
												BgL_arg2076z00_6219 =
													string_append(BgL_arg2077z00_6220,
													BgL_arg2078z00_6221);
											}
											BgL_createzd2tvzd2_6218 =
												bstring_to_symbol(BgL_arg2076z00_6219);
										}
										{	/* Cfa/tvector.scm 591 */
											BgL_nodez00_bglt BgL_newzd2nodezd2_6226;

											{	/* Cfa/tvector.scm 592 */
												obj_t BgL_arg2071z00_6227;
												obj_t BgL_arg2072z00_6228;

												{	/* Cfa/tvector.scm 592 */
													obj_t BgL_arg2073z00_6229;

													BgL_arg2073z00_6229 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
														(((BgL_externz00_bglt) COBJECT(
																	((BgL_externz00_bglt)
																		((BgL_vallocz00_bglt) BgL_nodez00_6062))))->
															BgL_exprza2za2), BNIL);
													BgL_arg2071z00_6227 =
														MAKE_YOUNG_PAIR(BgL_createzd2tvzd2_6218,
														BgL_arg2073z00_6229);
												}
												BgL_arg2072z00_6228 =
													(((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt)
																((BgL_vallocz00_bglt) BgL_nodez00_6062))))->
													BgL_locz00);
												BgL_newzd2nodezd2_6226 =
													BGl_sexpzd2ze3nodez31zzast_sexpz00
													(BgL_arg2071z00_6227, BNIL, BgL_arg2072z00_6228,
													CNST_TABLE_REF(12L));
											}
											{	/* Cfa/tvector.scm 592 */

												{	/* Cfa/tvector.scm 596 */
													BgL_nodez00_bglt BgL_nz00_6230;

													BgL_nz00_6230 =
														BGl_inlinezd2nodezd2zzinline_inlinez00
														(BgL_newzd2nodezd2_6226, 1L, BNIL);
													BGl_lvtypezd2nodez12zc0zzast_lvtypez00(BgL_nz00_6230);
													BgL_auxz00_7415 = BgL_nz00_6230;
												}
											}
										}
									}
								else
									{	/* Cfa/tvector.scm 590 */
										{
											BgL_typez00_bglt BgL_auxz00_7477;

											{	/* Cfa/tvector.scm 600 */
												BgL_approxz00_bglt BgL_arg2080z00_6231;

												{
													BgL_valloczf2cinfozb2optimz40_bglt BgL_auxz00_7480;

													{
														obj_t BgL_auxz00_7481;

														{	/* Cfa/tvector.scm 600 */
															BgL_objectz00_bglt BgL_tmpz00_7482;

															BgL_tmpz00_7482 =
																((BgL_objectz00_bglt)
																((BgL_vallocz00_bglt) BgL_nodez00_6062));
															BgL_auxz00_7481 =
																BGL_OBJECT_WIDENING(BgL_tmpz00_7482);
														}
														BgL_auxz00_7480 =
															((BgL_valloczf2cinfozb2optimz40_bglt)
															BgL_auxz00_7481);
													}
													BgL_arg2080z00_6231 =
														(((BgL_valloczf2cinfozb2optimz40_bglt)
															COBJECT(BgL_auxz00_7480))->BgL_valuezd2approxzd2);
												}
												BgL_auxz00_7477 =
													((BgL_typez00_bglt)
													BGl_getzd2approxzd2typez00zzcfa_typez00
													(BgL_arg2080z00_6231,
														((obj_t) ((BgL_vallocz00_bglt) BgL_nodez00_6062))));
											}
											((((BgL_vallocz00_bglt) COBJECT(
															((BgL_vallocz00_bglt)
																((BgL_vallocz00_bglt) BgL_nodez00_6062))))->
													BgL_ftypez00) =
												((BgL_typez00_bglt) BgL_auxz00_7477), BUNSPEC);
										}
										BgL_auxz00_7415 =
											((BgL_nodez00_bglt)
											((BgL_vallocz00_bglt) BgL_nodez00_6062));
									}
							}
						}
					}
				}
				return ((obj_t) BgL_auxz00_7415);
			}
		}

	}



/* &patch!-make-vector-a1692 */
	obj_t BGl_z62patchz12zd2makezd2vectorzd2a1692za2zzcfa_tvectorz00(obj_t
		BgL_envz00_6063, obj_t BgL_nodez00_6064)
	{
		{	/* Cfa/tvector.scm 567 */
			{
				BgL_nodez00_bglt BgL_auxz00_7496;

				{	/* Cfa/tvector.scm 569 */
					obj_t BgL_arg2053z00_6233;

					BgL_arg2053z00_6233 =
						(((BgL_appz00_bglt) COBJECT(
								((BgL_appz00_bglt)
									((BgL_appz00_bglt) BgL_nodez00_6064))))->BgL_argsz00);
					BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg2053z00_6233);
				}
				{	/* Cfa/tvector.scm 570 */
					BgL_typez00_bglt BgL_typez00_6234;

					{	/* Cfa/tvector.scm 570 */
						BgL_approxz00_bglt BgL_arg2066z00_6235;

						{
							BgL_makezd2vectorzd2appz00_bglt BgL_auxz00_7501;

							{
								obj_t BgL_auxz00_7502;

								{	/* Cfa/tvector.scm 570 */
									BgL_objectz00_bglt BgL_tmpz00_7503;

									BgL_tmpz00_7503 =
										((BgL_objectz00_bglt) ((BgL_appz00_bglt) BgL_nodez00_6064));
									BgL_auxz00_7502 = BGL_OBJECT_WIDENING(BgL_tmpz00_7503);
								}
								BgL_auxz00_7501 =
									((BgL_makezd2vectorzd2appz00_bglt) BgL_auxz00_7502);
							}
							BgL_arg2066z00_6235 =
								(((BgL_makezd2vectorzd2appz00_bglt) COBJECT(BgL_auxz00_7501))->
								BgL_valuezd2approxzd2);
						}
						BgL_typez00_6234 =
							(((BgL_approxz00_bglt) COBJECT(BgL_arg2066z00_6235))->
							BgL_typez00);
					}
					{	/* Cfa/tvector.scm 570 */
						obj_t BgL_tvz00_6236;

						BgL_tvz00_6236 =
							(((BgL_typez00_bglt) COBJECT(BgL_typez00_6234))->BgL_tvectorz00);
						{	/* Cfa/tvector.scm 571 */

							{	/* Cfa/tvector.scm 572 */
								bool_t BgL_test2560z00_7511;

								{	/* Cfa/tvector.scm 572 */
									bool_t BgL_test2561z00_7512;

									{	/* Cfa/tvector.scm 572 */
										obj_t BgL_classz00_6237;

										BgL_classz00_6237 = BGl_typez00zztype_typez00;
										if (BGL_OBJECTP(BgL_tvz00_6236))
											{	/* Cfa/tvector.scm 572 */
												BgL_objectz00_bglt BgL_arg1801z00_6238;

												BgL_arg1801z00_6238 =
													(BgL_objectz00_bglt) (BgL_tvz00_6236);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* Cfa/tvector.scm 572 */
														long BgL_idxz00_6239;

														BgL_idxz00_6239 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_6238);
														BgL_test2561z00_7512 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_6239 + 1L)) == BgL_classz00_6237);
													}
												else
													{	/* Cfa/tvector.scm 572 */
														bool_t BgL_res2344z00_6242;

														{	/* Cfa/tvector.scm 572 */
															obj_t BgL_oclassz00_6243;

															{	/* Cfa/tvector.scm 572 */
																long BgL_arg1808z00_6244;

																{	/* Cfa/tvector.scm 572 */
																	long BgL_arg1809z00_6245;

																	BgL_arg1809z00_6245 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_6238);
																	BgL_arg1808z00_6244 =
																		(BgL_arg1809z00_6245 - OBJECT_TYPE);
																}
																BgL_oclassz00_6243 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_6244);
															}
															{	/* Cfa/tvector.scm 572 */
																bool_t BgL__ortest_1115z00_6246;

																BgL__ortest_1115z00_6246 =
																	(BgL_classz00_6237 == BgL_oclassz00_6243);
																if (BgL__ortest_1115z00_6246)
																	{	/* Cfa/tvector.scm 572 */
																		BgL_res2344z00_6242 =
																			BgL__ortest_1115z00_6246;
																	}
																else
																	{	/* Cfa/tvector.scm 572 */
																		long BgL_odepthz00_6247;

																		BgL_odepthz00_6247 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_6243);
																		if ((1L < BgL_odepthz00_6247))
																			{	/* Cfa/tvector.scm 572 */
																				obj_t BgL_arg1797z00_6248;

																				BgL_arg1797z00_6248 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_6243, 1L);
																				BgL_res2344z00_6242 =
																					(BgL_arg1797z00_6248 ==
																					BgL_classz00_6237);
																			}
																		else
																			{	/* Cfa/tvector.scm 572 */
																				BgL_res2344z00_6242 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2561z00_7512 = BgL_res2344z00_6242;
													}
											}
										else
											{	/* Cfa/tvector.scm 572 */
												BgL_test2561z00_7512 = ((bool_t) 0);
											}
									}
									if (BgL_test2561z00_7512)
										{
											BgL_makezd2vectorzd2appz00_bglt BgL_auxz00_7532;

											{
												obj_t BgL_auxz00_7533;

												{	/* Cfa/tvector.scm 572 */
													BgL_objectz00_bglt BgL_tmpz00_7534;

													BgL_tmpz00_7534 =
														((BgL_objectz00_bglt)
														((BgL_appz00_bglt) BgL_nodez00_6064));
													BgL_auxz00_7533 =
														BGL_OBJECT_WIDENING(BgL_tmpz00_7534);
												}
												BgL_auxz00_7532 =
													((BgL_makezd2vectorzd2appz00_bglt) BgL_auxz00_7533);
											}
											BgL_test2560z00_7511 =
												(((BgL_makezd2vectorzd2appz00_bglt)
													COBJECT(BgL_auxz00_7532))->BgL_tvectorzf3zf3);
										}
									else
										{	/* Cfa/tvector.scm 572 */
											BgL_test2560z00_7511 = ((bool_t) 0);
										}
								}
								if (BgL_test2560z00_7511)
									{	/* Cfa/tvector.scm 573 */
										obj_t BgL_makezd2tvzd2_6249;

										{	/* Cfa/tvector.scm 573 */
											obj_t BgL_arg2060z00_6250;

											{	/* Cfa/tvector.scm 573 */
												obj_t BgL_arg2061z00_6251;
												obj_t BgL_arg2062z00_6252;

												{	/* Cfa/tvector.scm 573 */
													obj_t BgL_symbolz00_6253;

													BgL_symbolz00_6253 = CNST_TABLE_REF(18L);
													{	/* Cfa/tvector.scm 573 */
														obj_t BgL_arg1454z00_6254;

														BgL_arg1454z00_6254 =
															SYMBOL_TO_STRING(BgL_symbolz00_6253);
														BgL_arg2061z00_6251 =
															BGl_stringzd2copyzd2zz__r4_strings_6_7z00
															(BgL_arg1454z00_6254);
													}
												}
												{	/* Cfa/tvector.scm 573 */
													obj_t BgL_arg2063z00_6255;

													BgL_arg2063z00_6255 =
														(((BgL_typez00_bglt) COBJECT(
																((BgL_typez00_bglt) BgL_tvz00_6236)))->
														BgL_idz00);
													{	/* Cfa/tvector.scm 573 */
														obj_t BgL_arg1454z00_6256;

														BgL_arg1454z00_6256 =
															SYMBOL_TO_STRING(BgL_arg2063z00_6255);
														BgL_arg2062z00_6252 =
															BGl_stringzd2copyzd2zz__r4_strings_6_7z00
															(BgL_arg1454z00_6256);
													}
												}
												BgL_arg2060z00_6250 =
													string_append(BgL_arg2061z00_6251,
													BgL_arg2062z00_6252);
											}
											BgL_makezd2tvzd2_6249 =
												bstring_to_symbol(BgL_arg2060z00_6250);
										}
										{	/* Cfa/tvector.scm 573 */
											BgL_nodez00_bglt BgL_newzd2nodezd2_6257;

											{	/* Cfa/tvector.scm 574 */
												obj_t BgL_arg2056z00_6258;
												obj_t BgL_arg2057z00_6259;

												{	/* Cfa/tvector.scm 574 */
													obj_t BgL_arg2058z00_6260;

													BgL_arg2058z00_6260 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
														(((BgL_appz00_bglt) COBJECT(
																	((BgL_appz00_bglt)
																		((BgL_appz00_bglt) BgL_nodez00_6064))))->
															BgL_argsz00), BNIL);
													BgL_arg2056z00_6258 =
														MAKE_YOUNG_PAIR(BgL_makezd2tvzd2_6249,
														BgL_arg2058z00_6260);
												}
												BgL_arg2057z00_6259 =
													(((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt)
																((BgL_appz00_bglt) BgL_nodez00_6064))))->
													BgL_locz00);
												BgL_newzd2nodezd2_6257 =
													BGl_sexpzd2ze3nodez31zzast_sexpz00
													(BgL_arg2056z00_6258, BNIL, BgL_arg2057z00_6259,
													CNST_TABLE_REF(12L));
											}
											{	/* Cfa/tvector.scm 574 */

												((((BgL_nodez00_bglt) COBJECT(BgL_newzd2nodezd2_6257))->
														BgL_typez00) =
													((BgL_typez00_bglt) ((BgL_typez00_bglt)
															BgL_tvz00_6236)), BUNSPEC);
												BgL_auxz00_7496 =
													BGl_inlinezd2nodezd2zzinline_inlinez00
													(BgL_newzd2nodezd2_6257, 1L, BNIL);
											}
										}
									}
								else
									{	/* Cfa/tvector.scm 572 */
										BgL_auxz00_7496 =
											((BgL_nodez00_bglt) ((BgL_appz00_bglt) BgL_nodez00_6064));
									}
							}
						}
					}
				}
				return ((obj_t) BgL_auxz00_7496);
			}
		}

	}



/* &patch!-vlength1690 */
	obj_t BGl_z62patchz12zd2vlength1690za2zzcfa_tvectorz00(obj_t BgL_envz00_6065,
		obj_t BgL_nodez00_6066)
	{
		{	/* Cfa/tvector.scm 516 */
			{
				BgL_nodez00_bglt BgL_auxz00_7565;

				{	/* Cfa/tvector.scm 518 */
					obj_t BgL_arg2036z00_6262;

					BgL_arg2036z00_6262 =
						(((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt)
									((BgL_vlengthz00_bglt)
										((BgL_vlengthz00_bglt) BgL_nodez00_6066)))))->
						BgL_exprza2za2);
					BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg2036z00_6262);
				}
				{	/* Cfa/tvector.scm 519 */
					BgL_approxz00_bglt BgL_approxz00_6263;

					{	/* Cfa/tvector.scm 519 */
						obj_t BgL_arg2050z00_6264;

						{	/* Cfa/tvector.scm 519 */
							obj_t BgL_pairz00_6265;

							BgL_pairz00_6265 =
								(((BgL_externz00_bglt) COBJECT(
										((BgL_externz00_bglt)
											((BgL_vlengthz00_bglt)
												((BgL_vlengthz00_bglt) BgL_nodez00_6066)))))->
								BgL_exprza2za2);
							BgL_arg2050z00_6264 = CAR(BgL_pairz00_6265);
						}
						BgL_approxz00_6263 =
							BGl_cfaz12z12zzcfa_cfaz00(
							((BgL_nodez00_bglt) BgL_arg2050z00_6264));
					}
					{	/* Cfa/tvector.scm 519 */
						obj_t BgL_tvz00_6266;

						BgL_tvz00_6266 =
							BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_approxz00_6263,
							((obj_t) ((BgL_vlengthz00_bglt) BgL_nodez00_6066)));
						{	/* Cfa/tvector.scm 520 */

							{	/* Cfa/tvector.scm 521 */
								bool_t BgL_test2566z00_7581;

								{	/* Cfa/tvector.scm 521 */
									bool_t BgL_test2567z00_7582;

									{	/* Cfa/tvector.scm 521 */
										obj_t BgL_classz00_6267;

										BgL_classz00_6267 = BGl_tvecz00zztvector_tvectorz00;
										if (BGL_OBJECTP(BgL_tvz00_6266))
											{	/* Cfa/tvector.scm 521 */
												BgL_objectz00_bglt BgL_arg1801z00_6268;

												BgL_arg1801z00_6268 =
													(BgL_objectz00_bglt) (BgL_tvz00_6266);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* Cfa/tvector.scm 521 */
														long BgL_idxz00_6269;

														BgL_idxz00_6269 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_6268);
														BgL_test2567z00_7582 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_6269 + 2L)) == BgL_classz00_6267);
													}
												else
													{	/* Cfa/tvector.scm 521 */
														bool_t BgL_res2343z00_6272;

														{	/* Cfa/tvector.scm 521 */
															obj_t BgL_oclassz00_6273;

															{	/* Cfa/tvector.scm 521 */
																long BgL_arg1808z00_6274;

																{	/* Cfa/tvector.scm 521 */
																	long BgL_arg1809z00_6275;

																	BgL_arg1809z00_6275 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_6268);
																	BgL_arg1808z00_6274 =
																		(BgL_arg1809z00_6275 - OBJECT_TYPE);
																}
																BgL_oclassz00_6273 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_6274);
															}
															{	/* Cfa/tvector.scm 521 */
																bool_t BgL__ortest_1115z00_6276;

																BgL__ortest_1115z00_6276 =
																	(BgL_classz00_6267 == BgL_oclassz00_6273);
																if (BgL__ortest_1115z00_6276)
																	{	/* Cfa/tvector.scm 521 */
																		BgL_res2343z00_6272 =
																			BgL__ortest_1115z00_6276;
																	}
																else
																	{	/* Cfa/tvector.scm 521 */
																		long BgL_odepthz00_6277;

																		BgL_odepthz00_6277 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_6273);
																		if ((2L < BgL_odepthz00_6277))
																			{	/* Cfa/tvector.scm 521 */
																				obj_t BgL_arg1797z00_6278;

																				BgL_arg1797z00_6278 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_6273, 2L);
																				BgL_res2343z00_6272 =
																					(BgL_arg1797z00_6278 ==
																					BgL_classz00_6267);
																			}
																		else
																			{	/* Cfa/tvector.scm 521 */
																				BgL_res2343z00_6272 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2567z00_7582 = BgL_res2343z00_6272;
													}
											}
										else
											{	/* Cfa/tvector.scm 521 */
												BgL_test2567z00_7582 = ((bool_t) 0);
											}
									}
									if (BgL_test2567z00_7582)
										{	/* Cfa/tvector.scm 521 */
											bool_t BgL_test2572z00_7602;

											{
												BgL_vlengthzf2cinfozf2_bglt BgL_auxz00_7603;

												{
													obj_t BgL_auxz00_7604;

													{	/* Cfa/tvector.scm 521 */
														BgL_objectz00_bglt BgL_tmpz00_7605;

														BgL_tmpz00_7605 =
															((BgL_objectz00_bglt)
															((BgL_vlengthz00_bglt)
																((BgL_vlengthz00_bglt) BgL_nodez00_6066)));
														BgL_auxz00_7604 =
															BGL_OBJECT_WIDENING(BgL_tmpz00_7605);
													}
													BgL_auxz00_7603 =
														((BgL_vlengthzf2cinfozf2_bglt) BgL_auxz00_7604);
												}
												BgL_test2572z00_7602 =
													(((BgL_vlengthzf2cinfozf2_bglt)
														COBJECT(BgL_auxz00_7603))->BgL_tvectorzf3zf3);
											}
											if (BgL_test2572z00_7602)
												{	/* Cfa/tvector.scm 521 */
													BgL_test2566z00_7581 = ((bool_t) 0);
												}
											else
												{	/* Cfa/tvector.scm 521 */
													BgL_test2566z00_7581 = ((bool_t) 1);
												}
										}
									else
										{	/* Cfa/tvector.scm 521 */
											BgL_test2566z00_7581 = ((bool_t) 0);
										}
								}
								if (BgL_test2566z00_7581)
									{	/* Cfa/tvector.scm 522 */
										obj_t BgL_lengthzd2tvzd2_6279;

										{	/* Cfa/tvector.scm 522 */
											obj_t BgL_arg2046z00_6280;

											{	/* Cfa/tvector.scm 522 */
												obj_t BgL_arg2047z00_6281;
												obj_t BgL_arg2048z00_6282;

												{	/* Cfa/tvector.scm 522 */
													obj_t BgL_arg2049z00_6283;

													BgL_arg2049z00_6283 =
														(((BgL_typez00_bglt) COBJECT(
																((BgL_typez00_bglt) BgL_tvz00_6266)))->
														BgL_idz00);
													{	/* Cfa/tvector.scm 522 */
														obj_t BgL_arg1454z00_6284;

														BgL_arg1454z00_6284 =
															SYMBOL_TO_STRING(BgL_arg2049z00_6283);
														BgL_arg2047z00_6281 =
															BGl_stringzd2copyzd2zz__r4_strings_6_7z00
															(BgL_arg1454z00_6284);
													}
												}
												{	/* Cfa/tvector.scm 522 */
													obj_t BgL_symbolz00_6285;

													BgL_symbolz00_6285 = CNST_TABLE_REF(19L);
													{	/* Cfa/tvector.scm 522 */
														obj_t BgL_arg1454z00_6286;

														BgL_arg1454z00_6286 =
															SYMBOL_TO_STRING(BgL_symbolz00_6285);
														BgL_arg2048z00_6282 =
															BGl_stringzd2copyzd2zz__r4_strings_6_7z00
															(BgL_arg1454z00_6286);
													}
												}
												BgL_arg2046z00_6280 =
													string_append(BgL_arg2047z00_6281,
													BgL_arg2048z00_6282);
											}
											BgL_lengthzd2tvzd2_6279 =
												bstring_to_symbol(BgL_arg2046z00_6280);
										}
										{	/* Cfa/tvector.scm 522 */
											BgL_nodez00_bglt BgL_newzd2nodezd2_6287;

											{	/* Cfa/tvector.scm 523 */
												obj_t BgL_arg2040z00_6288;
												obj_t BgL_arg2041z00_6289;

												{	/* Cfa/tvector.scm 523 */
													obj_t BgL_arg2042z00_6290;

													{	/* Cfa/tvector.scm 523 */
														obj_t BgL_arg2043z00_6291;

														{	/* Cfa/tvector.scm 523 */
															obj_t BgL_pairz00_6292;

															BgL_pairz00_6292 =
																(((BgL_externz00_bglt) COBJECT(
																		((BgL_externz00_bglt)
																			((BgL_vlengthz00_bglt)
																				((BgL_vlengthz00_bglt)
																					BgL_nodez00_6066)))))->
																BgL_exprza2za2);
															BgL_arg2043z00_6291 = CAR(BgL_pairz00_6292);
														}
														BgL_arg2042z00_6290 =
															MAKE_YOUNG_PAIR(BgL_arg2043z00_6291, BNIL);
													}
													BgL_arg2040z00_6288 =
														MAKE_YOUNG_PAIR(BgL_lengthzd2tvzd2_6279,
														BgL_arg2042z00_6290);
												}
												BgL_arg2041z00_6289 =
													(((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt)
																((BgL_vlengthz00_bglt)
																	((BgL_vlengthz00_bglt) BgL_nodez00_6066)))))->
													BgL_locz00);
												BgL_newzd2nodezd2_6287 =
													BGl_sexpzd2ze3nodez31zzast_sexpz00
													(BgL_arg2040z00_6288, BNIL, BgL_arg2041z00_6289,
													CNST_TABLE_REF(12L));
											}
											{	/* Cfa/tvector.scm 523 */

												{	/* Cfa/tvector.scm 527 */
													BgL_typez00_bglt BgL_vz00_6293;

													BgL_vz00_6293 =
														((BgL_typez00_bglt)
														BGl_za2intza2z00zztype_cachez00);
													((((BgL_nodez00_bglt)
																COBJECT(BgL_newzd2nodezd2_6287))->BgL_typez00) =
														((BgL_typez00_bglt) BgL_vz00_6293), BUNSPEC);
												}
												BgL_auxz00_7565 =
													BGl_inlinezd2nodezd2zzinline_inlinez00
													(BgL_newzd2nodezd2_6287, 1L, BNIL);
											}
										}
									}
								else
									{	/* Cfa/tvector.scm 521 */
										BgL_auxz00_7565 =
											((BgL_nodez00_bglt)
											((BgL_vlengthz00_bglt) BgL_nodez00_6066));
									}
							}
						}
					}
				}
				return ((obj_t) BgL_auxz00_7565);
			}
		}

	}



/* &patch!-app1688 */
	obj_t BGl_z62patchz12zd2app1688za2zzcfa_tvectorz00(obj_t BgL_envz00_6067,
		obj_t BgL_nodez00_6068)
	{
		{	/* Cfa/tvector.scm 496 */
			{
				BgL_nodez00_bglt BgL_auxz00_7640;

				BGl_patchza2z12zb0zzcfa_tvectorz00(
					(((BgL_appz00_bglt) COBJECT(
								((BgL_appz00_bglt) BgL_nodez00_6068)))->BgL_argsz00));
				{
					BgL_varz00_bglt BgL_auxz00_7644;

					{	/* Cfa/tvector.scm 499 */
						BgL_varz00_bglt BgL_arg2019z00_6295;

						BgL_arg2019z00_6295 =
							(((BgL_appz00_bglt) COBJECT(
									((BgL_appz00_bglt) BgL_nodez00_6068)))->BgL_funz00);
						BgL_auxz00_7644 =
							((BgL_varz00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(
								((BgL_nodez00_bglt) BgL_arg2019z00_6295)));
					}
					((((BgL_appz00_bglt) COBJECT(
									((BgL_appz00_bglt) BgL_nodez00_6068)))->BgL_funz00) =
						((BgL_varz00_bglt) BgL_auxz00_7644), BUNSPEC);
				}
				{	/* Cfa/tvector.scm 500 */
					BgL_variablez00_bglt BgL_vz00_6296;

					BgL_vz00_6296 =
						(((BgL_varz00_bglt) COBJECT(
								(((BgL_appz00_bglt) COBJECT(
											((BgL_appz00_bglt) BgL_nodez00_6068)))->BgL_funz00)))->
						BgL_variablez00);
					{	/* Cfa/tvector.scm 501 */
						bool_t BgL_test2573z00_7655;

						{	/* Cfa/tvector.scm 501 */
							obj_t BgL_classz00_6297;

							BgL_classz00_6297 = BGl_globalz00zzast_varz00;
							{	/* Cfa/tvector.scm 501 */
								BgL_objectz00_bglt BgL_arg1801z00_6298;

								{	/* Cfa/tvector.scm 501 */
									obj_t BgL_tmpz00_7656;

									BgL_tmpz00_7656 =
										((obj_t) ((BgL_objectz00_bglt) BgL_vz00_6296));
									BgL_arg1801z00_6298 = (BgL_objectz00_bglt) (BgL_tmpz00_7656);
								}
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Cfa/tvector.scm 501 */
										long BgL_idxz00_6299;

										BgL_idxz00_6299 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_6298);
										BgL_test2573z00_7655 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_6299 + 2L)) == BgL_classz00_6297);
									}
								else
									{	/* Cfa/tvector.scm 501 */
										bool_t BgL_res2341z00_6302;

										{	/* Cfa/tvector.scm 501 */
											obj_t BgL_oclassz00_6303;

											{	/* Cfa/tvector.scm 501 */
												long BgL_arg1808z00_6304;

												{	/* Cfa/tvector.scm 501 */
													long BgL_arg1809z00_6305;

													BgL_arg1809z00_6305 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_6298);
													BgL_arg1808z00_6304 =
														(BgL_arg1809z00_6305 - OBJECT_TYPE);
												}
												BgL_oclassz00_6303 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_6304);
											}
											{	/* Cfa/tvector.scm 501 */
												bool_t BgL__ortest_1115z00_6306;

												BgL__ortest_1115z00_6306 =
													(BgL_classz00_6297 == BgL_oclassz00_6303);
												if (BgL__ortest_1115z00_6306)
													{	/* Cfa/tvector.scm 501 */
														BgL_res2341z00_6302 = BgL__ortest_1115z00_6306;
													}
												else
													{	/* Cfa/tvector.scm 501 */
														long BgL_odepthz00_6307;

														BgL_odepthz00_6307 =
															BGL_CLASS_DEPTH(BgL_oclassz00_6303);
														if ((2L < BgL_odepthz00_6307))
															{	/* Cfa/tvector.scm 501 */
																obj_t BgL_arg1797z00_6308;

																BgL_arg1797z00_6308 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_6303,
																	2L);
																BgL_res2341z00_6302 =
																	(BgL_arg1797z00_6308 == BgL_classz00_6297);
															}
														else
															{	/* Cfa/tvector.scm 501 */
																BgL_res2341z00_6302 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2573z00_7655 = BgL_res2341z00_6302;
									}
							}
						}
						if (BgL_test2573z00_7655)
							{	/* Cfa/tvector.scm 502 */
								bool_t BgL_test2577z00_7676;

								{	/* Cfa/tvector.scm 502 */
									BgL_valuez00_bglt BgL_arg2033z00_6309;

									BgL_arg2033z00_6309 =
										(((BgL_variablez00_bglt) COBJECT(BgL_vz00_6296))->
										BgL_valuez00);
									{	/* Cfa/tvector.scm 502 */
										obj_t BgL_classz00_6310;

										BgL_classz00_6310 = BGl_cfunz00zzast_varz00;
										{	/* Cfa/tvector.scm 502 */
											BgL_objectz00_bglt BgL_arg1801z00_6311;

											{	/* Cfa/tvector.scm 502 */
												obj_t BgL_tmpz00_7678;

												BgL_tmpz00_7678 =
													((obj_t) ((BgL_objectz00_bglt) BgL_arg2033z00_6309));
												BgL_arg1801z00_6311 =
													(BgL_objectz00_bglt) (BgL_tmpz00_7678);
											}
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Cfa/tvector.scm 502 */
													long BgL_idxz00_6312;

													BgL_idxz00_6312 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_6311);
													BgL_test2577z00_7676 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_6312 + 3L)) == BgL_classz00_6310);
												}
											else
												{	/* Cfa/tvector.scm 502 */
													bool_t BgL_res2342z00_6315;

													{	/* Cfa/tvector.scm 502 */
														obj_t BgL_oclassz00_6316;

														{	/* Cfa/tvector.scm 502 */
															long BgL_arg1808z00_6317;

															{	/* Cfa/tvector.scm 502 */
																long BgL_arg1809z00_6318;

																BgL_arg1809z00_6318 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_6311);
																BgL_arg1808z00_6317 =
																	(BgL_arg1809z00_6318 - OBJECT_TYPE);
															}
															BgL_oclassz00_6316 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_6317);
														}
														{	/* Cfa/tvector.scm 502 */
															bool_t BgL__ortest_1115z00_6319;

															BgL__ortest_1115z00_6319 =
																(BgL_classz00_6310 == BgL_oclassz00_6316);
															if (BgL__ortest_1115z00_6319)
																{	/* Cfa/tvector.scm 502 */
																	BgL_res2342z00_6315 =
																		BgL__ortest_1115z00_6319;
																}
															else
																{	/* Cfa/tvector.scm 502 */
																	long BgL_odepthz00_6320;

																	BgL_odepthz00_6320 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_6316);
																	if ((3L < BgL_odepthz00_6320))
																		{	/* Cfa/tvector.scm 502 */
																			obj_t BgL_arg1797z00_6321;

																			BgL_arg1797z00_6321 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_6316, 3L);
																			BgL_res2342z00_6315 =
																				(BgL_arg1797z00_6321 ==
																				BgL_classz00_6310);
																		}
																	else
																		{	/* Cfa/tvector.scm 502 */
																			BgL_res2342z00_6315 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2577z00_7676 = BgL_res2342z00_6315;
												}
										}
									}
								}
								if (BgL_test2577z00_7676)
									{	/* Cfa/tvector.scm 503 */
										obj_t BgL_casezd2valuezd2_6322;

										BgL_casezd2valuezd2_6322 =
											(((BgL_variablez00_bglt) COBJECT(
													((BgL_variablez00_bglt)
														((BgL_globalz00_bglt) BgL_vz00_6296))))->BgL_idz00);
										if ((BgL_casezd2valuezd2_6322 == CNST_TABLE_REF(1L)))
											{	/* Cfa/tvector.scm 503 */
												BgL_auxz00_7640 =
													BGl_patchzd2vectorzf3z12z33zzcfa_tvectorz00(
													((BgL_appz00_bglt) BgL_nodez00_6068));
											}
										else
											{	/* Cfa/tvector.scm 503 */
												if ((BgL_casezd2valuezd2_6322 == CNST_TABLE_REF(2L)))
													{	/* Cfa/tvector.scm 503 */
														BgL_auxz00_7640 =
															BGl_patchzd2vectorzf3z12z33zzcfa_tvectorz00(
															((BgL_appz00_bglt) BgL_nodez00_6068));
													}
												else
													{	/* Cfa/tvector.scm 503 */
														BgL_auxz00_7640 =
															((BgL_nodez00_bglt)
															((BgL_appz00_bglt) BgL_nodez00_6068));
													}
											}
									}
								else
									{	/* Cfa/tvector.scm 507 */
										bool_t BgL_test2583z00_7713;

										if (
											((((BgL_variablez00_bglt) COBJECT(
															((BgL_variablez00_bglt)
																((BgL_globalz00_bglt) BgL_vz00_6296))))->
													BgL_idz00) == CNST_TABLE_REF(20L)))
											{	/* Cfa/tvector.scm 507 */
												BgL_test2583z00_7713 =
													(
													(((BgL_globalz00_bglt) COBJECT(
																((BgL_globalz00_bglt) BgL_vz00_6296)))->
														BgL_modulez00) == CNST_TABLE_REF(21L));
											}
										else
											{	/* Cfa/tvector.scm 507 */
												BgL_test2583z00_7713 = ((bool_t) 0);
											}
										if (BgL_test2583z00_7713)
											{	/* Cfa/tvector.scm 507 */
												BgL_auxz00_7640 =
													BGl_patchzd2vectorzd2ze3listz12zf1zzcfa_tvectorz00(
													((BgL_appz00_bglt) BgL_nodez00_6068));
											}
										else
											{	/* Cfa/tvector.scm 507 */
												BgL_auxz00_7640 =
													((BgL_nodez00_bglt)
													((BgL_appz00_bglt) BgL_nodez00_6068));
											}
									}
							}
						else
							{	/* Cfa/tvector.scm 501 */
								BgL_auxz00_7640 =
									((BgL_nodez00_bglt) ((BgL_appz00_bglt) BgL_nodez00_6068));
							}
					}
				}
				return ((obj_t) BgL_auxz00_7640);
			}
		}

	}



/* &patch!-box-ref1686 */
	obj_t BGl_z62patchz12zd2boxzd2ref1686z70zzcfa_tvectorz00(obj_t
		BgL_envz00_6069, obj_t BgL_nodez00_6070)
	{
		{	/* Cfa/tvector.scm 477 */
			{
				BgL_boxzd2refzd2_bglt BgL_auxz00_7731;

				{
					BgL_varz00_bglt BgL_auxz00_7732;

					{	/* Cfa/tvector.scm 479 */
						BgL_varz00_bglt BgL_arg2016z00_6324;

						BgL_arg2016z00_6324 =
							(((BgL_boxzd2refzd2_bglt) COBJECT(
									((BgL_boxzd2refzd2_bglt) BgL_nodez00_6070)))->BgL_varz00);
						BgL_auxz00_7732 =
							((BgL_varz00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(
								((BgL_nodez00_bglt) BgL_arg2016z00_6324)));
					}
					((((BgL_boxzd2refzd2_bglt) COBJECT(
									((BgL_boxzd2refzd2_bglt) BgL_nodez00_6070)))->BgL_varz00) =
						((BgL_varz00_bglt) BgL_auxz00_7732), BUNSPEC);
				}
				BgL_auxz00_7731 = ((BgL_boxzd2refzd2_bglt) BgL_nodez00_6070);
				return ((obj_t) BgL_auxz00_7731);
			}
		}

	}



/* &patch!-box-set!1684 */
	obj_t BGl_z62patchz12zd2boxzd2setz121684z62zzcfa_tvectorz00(obj_t
		BgL_envz00_6071, obj_t BgL_nodez00_6072)
	{
		{	/* Cfa/tvector.scm 468 */
			{
				BgL_boxzd2setz12zc0_bglt BgL_auxz00_7742;

				{
					BgL_varz00_bglt BgL_auxz00_7743;

					{	/* Cfa/tvector.scm 470 */
						BgL_varz00_bglt BgL_arg2014z00_6326;

						BgL_arg2014z00_6326 =
							(((BgL_boxzd2setz12zc0_bglt) COBJECT(
									((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_6072)))->BgL_varz00);
						BgL_auxz00_7743 =
							((BgL_varz00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(
								((BgL_nodez00_bglt) BgL_arg2014z00_6326)));
					}
					((((BgL_boxzd2setz12zc0_bglt) COBJECT(
									((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_6072)))->BgL_varz00) =
						((BgL_varz00_bglt) BgL_auxz00_7743), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7751;

					{	/* Cfa/tvector.scm 471 */
						BgL_nodez00_bglt BgL_arg2015z00_6327;

						BgL_arg2015z00_6327 =
							(((BgL_boxzd2setz12zc0_bglt) COBJECT(
									((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_6072)))->
							BgL_valuez00);
						BgL_auxz00_7751 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg2015z00_6327));
					}
					((((BgL_boxzd2setz12zc0_bglt) COBJECT(
									((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_6072)))->
							BgL_valuez00) = ((BgL_nodez00_bglt) BgL_auxz00_7751), BUNSPEC);
				}
				BgL_auxz00_7742 = ((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_6072);
				return ((obj_t) BgL_auxz00_7742);
			}
		}

	}



/* &patch!-make-box1682 */
	obj_t BGl_z62patchz12zd2makezd2box1682z70zzcfa_tvectorz00(obj_t
		BgL_envz00_6073, obj_t BgL_nodez00_6074)
	{
		{	/* Cfa/tvector.scm 460 */
			{
				BgL_makezd2boxzd2_bglt BgL_auxz00_7760;

				{
					BgL_nodez00_bglt BgL_auxz00_7761;

					{	/* Cfa/tvector.scm 462 */
						BgL_nodez00_bglt BgL_arg2013z00_6329;

						BgL_arg2013z00_6329 =
							(((BgL_makezd2boxzd2_bglt) COBJECT(
									((BgL_makezd2boxzd2_bglt) BgL_nodez00_6074)))->BgL_valuez00);
						BgL_auxz00_7761 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg2013z00_6329));
					}
					((((BgL_makezd2boxzd2_bglt) COBJECT(
									((BgL_makezd2boxzd2_bglt) BgL_nodez00_6074)))->BgL_valuez00) =
						((BgL_nodez00_bglt) BgL_auxz00_7761), BUNSPEC);
				}
				BgL_auxz00_7760 = ((BgL_makezd2boxzd2_bglt) BgL_nodez00_6074);
				return ((obj_t) BgL_auxz00_7760);
			}
		}

	}



/* &patch!-jump-ex-it1680 */
	obj_t BGl_z62patchz12zd2jumpzd2exzd2it1680za2zzcfa_tvectorz00(obj_t
		BgL_envz00_6075, obj_t BgL_nodez00_6076)
	{
		{	/* Cfa/tvector.scm 451 */
			{
				BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_7770;

				{
					BgL_nodez00_bglt BgL_auxz00_7771;

					{	/* Cfa/tvector.scm 453 */
						BgL_nodez00_bglt BgL_arg2011z00_6331;

						BgL_arg2011z00_6331 =
							(((BgL_jumpzd2exzd2itz00_bglt) COBJECT(
									((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_6076)))->
							BgL_exitz00);
						BgL_auxz00_7771 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg2011z00_6331));
					}
					((((BgL_jumpzd2exzd2itz00_bglt) COBJECT(
									((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_6076)))->
							BgL_exitz00) = ((BgL_nodez00_bglt) BgL_auxz00_7771), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7778;

					{	/* Cfa/tvector.scm 454 */
						BgL_nodez00_bglt BgL_arg2012z00_6332;

						BgL_arg2012z00_6332 =
							(((BgL_jumpzd2exzd2itz00_bglt) COBJECT(
									((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_6076)))->
							BgL_valuez00);
						BgL_auxz00_7778 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg2012z00_6332));
					}
					((((BgL_jumpzd2exzd2itz00_bglt) COBJECT(
									((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_6076)))->
							BgL_valuez00) = ((BgL_nodez00_bglt) BgL_auxz00_7778), BUNSPEC);
				}
				BgL_auxz00_7770 = ((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_6076);
				return ((obj_t) BgL_auxz00_7770);
			}
		}

	}



/* &patch!-set-ex-it1678 */
	obj_t BGl_z62patchz12zd2setzd2exzd2it1678za2zzcfa_tvectorz00(obj_t
		BgL_envz00_6077, obj_t BgL_nodez00_6078)
	{
		{	/* Cfa/tvector.scm 441 */
			{
				BgL_setzd2exzd2itz00_bglt BgL_auxz00_7787;

				{
					BgL_nodez00_bglt BgL_auxz00_7788;

					{	/* Cfa/tvector.scm 443 */
						BgL_nodez00_bglt BgL_arg2008z00_6334;

						BgL_arg2008z00_6334 =
							(((BgL_setzd2exzd2itz00_bglt) COBJECT(
									((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_6078)))->
							BgL_bodyz00);
						BgL_auxz00_7788 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg2008z00_6334));
					}
					((((BgL_setzd2exzd2itz00_bglt) COBJECT(
									((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_6078)))->
							BgL_bodyz00) = ((BgL_nodez00_bglt) BgL_auxz00_7788), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7795;

					{	/* Cfa/tvector.scm 444 */
						BgL_nodez00_bglt BgL_arg2009z00_6335;

						BgL_arg2009z00_6335 =
							(((BgL_setzd2exzd2itz00_bglt) COBJECT(
									((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_6078)))->
							BgL_onexitz00);
						BgL_auxz00_7795 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg2009z00_6335));
					}
					((((BgL_setzd2exzd2itz00_bglt) COBJECT(
									((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_6078)))->
							BgL_onexitz00) = ((BgL_nodez00_bglt) BgL_auxz00_7795), BUNSPEC);
				}
				{	/* Cfa/tvector.scm 445 */
					BgL_varz00_bglt BgL_arg2010z00_6336;

					BgL_arg2010z00_6336 =
						(((BgL_setzd2exzd2itz00_bglt) COBJECT(
								((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_6078)))->BgL_varz00);
					BGl_patchz12z12zzcfa_tvectorz00(
						((BgL_nodez00_bglt) BgL_arg2010z00_6336));
				}
				BgL_auxz00_7787 = ((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_6078);
				return ((obj_t) BgL_auxz00_7787);
			}
		}

	}



/* &patch!-let-var1676 */
	obj_t BGl_z62patchz12zd2letzd2var1676z70zzcfa_tvectorz00(obj_t
		BgL_envz00_6079, obj_t BgL_nodez00_6080)
	{
		{	/* Cfa/tvector.scm 429 */
			{
				BgL_letzd2varzd2_bglt BgL_auxz00_7808;

				{	/* Cfa/tvector.scm 431 */
					obj_t BgL_g1634z00_6338;

					BgL_g1634z00_6338 =
						(((BgL_letzd2varzd2_bglt) COBJECT(
								((BgL_letzd2varzd2_bglt) BgL_nodez00_6080)))->BgL_bindingsz00);
					{
						obj_t BgL_l1632z00_6340;

						BgL_l1632z00_6340 = BgL_g1634z00_6338;
					BgL_zc3z04anonymousza32002ze3z87_6339:
						if (PAIRP(BgL_l1632z00_6340))
							{	/* Cfa/tvector.scm 431 */
								{	/* Cfa/tvector.scm 432 */
									obj_t BgL_bindingz00_6341;

									BgL_bindingz00_6341 = CAR(BgL_l1632z00_6340);
									{	/* Cfa/tvector.scm 432 */
										obj_t BgL_valz00_6342;

										BgL_valz00_6342 = CDR(((obj_t) BgL_bindingz00_6341));
										{	/* Cfa/tvector.scm 433 */
											obj_t BgL_arg2004z00_6343;

											BgL_arg2004z00_6343 =
												BGl_patchz12z12zzcfa_tvectorz00(
												((BgL_nodez00_bglt) BgL_valz00_6342));
											{	/* Cfa/tvector.scm 433 */
												obj_t BgL_tmpz00_7818;

												BgL_tmpz00_7818 = ((obj_t) BgL_bindingz00_6341);
												SET_CDR(BgL_tmpz00_7818, BgL_arg2004z00_6343);
											}
										}
									}
								}
								{
									obj_t BgL_l1632z00_7821;

									BgL_l1632z00_7821 = CDR(BgL_l1632z00_6340);
									BgL_l1632z00_6340 = BgL_l1632z00_7821;
									goto BgL_zc3z04anonymousza32002ze3z87_6339;
								}
							}
						else
							{	/* Cfa/tvector.scm 431 */
								((bool_t) 1);
							}
					}
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7823;

					{	/* Cfa/tvector.scm 435 */
						BgL_nodez00_bglt BgL_arg2007z00_6344;

						BgL_arg2007z00_6344 =
							(((BgL_letzd2varzd2_bglt) COBJECT(
									((BgL_letzd2varzd2_bglt) BgL_nodez00_6080)))->BgL_bodyz00);
						BgL_auxz00_7823 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg2007z00_6344));
					}
					((((BgL_letzd2varzd2_bglt) COBJECT(
									((BgL_letzd2varzd2_bglt) BgL_nodez00_6080)))->BgL_bodyz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7823), BUNSPEC);
				}
				BgL_auxz00_7808 = ((BgL_letzd2varzd2_bglt) BgL_nodez00_6080);
				return ((obj_t) BgL_auxz00_7808);
			}
		}

	}



/* &patch!-let-fun1674 */
	obj_t BGl_z62patchz12zd2letzd2fun1674z70zzcfa_tvectorz00(obj_t
		BgL_envz00_6081, obj_t BgL_nodez00_6082)
	{
		{	/* Cfa/tvector.scm 420 */
			{
				BgL_letzd2funzd2_bglt BgL_auxz00_7832;

				{	/* Cfa/tvector.scm 422 */
					obj_t BgL_g1631z00_6346;

					BgL_g1631z00_6346 =
						(((BgL_letzd2funzd2_bglt) COBJECT(
								((BgL_letzd2funzd2_bglt) BgL_nodez00_6082)))->BgL_localsz00);
					{
						obj_t BgL_l1629z00_6348;

						BgL_l1629z00_6348 = BgL_g1631z00_6346;
					BgL_zc3z04anonymousza31997ze3z87_6347:
						if (PAIRP(BgL_l1629z00_6348))
							{	/* Cfa/tvector.scm 422 */
								BGl_patchzd2funz12zc0zzcfa_tvectorz00(CAR(BgL_l1629z00_6348));
								{
									obj_t BgL_l1629z00_7839;

									BgL_l1629z00_7839 = CDR(BgL_l1629z00_6348);
									BgL_l1629z00_6348 = BgL_l1629z00_7839;
									goto BgL_zc3z04anonymousza31997ze3z87_6347;
								}
							}
						else
							{	/* Cfa/tvector.scm 422 */
								((bool_t) 1);
							}
					}
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7841;

					{	/* Cfa/tvector.scm 423 */
						BgL_nodez00_bglt BgL_arg2001z00_6349;

						BgL_arg2001z00_6349 =
							(((BgL_letzd2funzd2_bglt) COBJECT(
									((BgL_letzd2funzd2_bglt) BgL_nodez00_6082)))->BgL_bodyz00);
						BgL_auxz00_7841 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg2001z00_6349));
					}
					((((BgL_letzd2funzd2_bglt) COBJECT(
									((BgL_letzd2funzd2_bglt) BgL_nodez00_6082)))->BgL_bodyz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7841), BUNSPEC);
				}
				BgL_auxz00_7832 = ((BgL_letzd2funzd2_bglt) BgL_nodez00_6082);
				return ((obj_t) BgL_auxz00_7832);
			}
		}

	}



/* &patch!-switch1672 */
	obj_t BGl_z62patchz12zd2switch1672za2zzcfa_tvectorz00(obj_t BgL_envz00_6083,
		obj_t BgL_nodez00_6084)
	{
		{	/* Cfa/tvector.scm 409 */
			{
				BgL_switchz00_bglt BgL_auxz00_7850;

				{
					BgL_nodez00_bglt BgL_auxz00_7851;

					{	/* Cfa/tvector.scm 411 */
						BgL_nodez00_bglt BgL_arg1991z00_6351;

						BgL_arg1991z00_6351 =
							(((BgL_switchz00_bglt) COBJECT(
									((BgL_switchz00_bglt) BgL_nodez00_6084)))->BgL_testz00);
						BgL_auxz00_7851 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1991z00_6351));
					}
					((((BgL_switchz00_bglt) COBJECT(
									((BgL_switchz00_bglt) BgL_nodez00_6084)))->BgL_testz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7851), BUNSPEC);
				}
				{	/* Cfa/tvector.scm 412 */
					obj_t BgL_g1628z00_6352;

					BgL_g1628z00_6352 =
						(((BgL_switchz00_bglt) COBJECT(
								((BgL_switchz00_bglt) BgL_nodez00_6084)))->BgL_clausesz00);
					{
						obj_t BgL_l1626z00_6354;

						BgL_l1626z00_6354 = BgL_g1628z00_6352;
					BgL_zc3z04anonymousza31992ze3z87_6353:
						if (PAIRP(BgL_l1626z00_6354))
							{	/* Cfa/tvector.scm 412 */
								{	/* Cfa/tvector.scm 413 */
									obj_t BgL_clausez00_6355;

									BgL_clausez00_6355 = CAR(BgL_l1626z00_6354);
									{	/* Cfa/tvector.scm 413 */
										obj_t BgL_arg1994z00_6356;

										{	/* Cfa/tvector.scm 413 */
											obj_t BgL_arg1995z00_6357;

											BgL_arg1995z00_6357 = CDR(((obj_t) BgL_clausez00_6355));
											BgL_arg1994z00_6356 =
												BGl_patchz12z12zzcfa_tvectorz00(
												((BgL_nodez00_bglt) BgL_arg1995z00_6357));
										}
										{	/* Cfa/tvector.scm 413 */
											obj_t BgL_tmpz00_7867;

											BgL_tmpz00_7867 = ((obj_t) BgL_clausez00_6355);
											SET_CDR(BgL_tmpz00_7867, BgL_arg1994z00_6356);
										}
									}
								}
								{
									obj_t BgL_l1626z00_7870;

									BgL_l1626z00_7870 = CDR(BgL_l1626z00_6354);
									BgL_l1626z00_6354 = BgL_l1626z00_7870;
									goto BgL_zc3z04anonymousza31992ze3z87_6353;
								}
							}
						else
							{	/* Cfa/tvector.scm 412 */
								((bool_t) 1);
							}
					}
				}
				BgL_auxz00_7850 = ((BgL_switchz00_bglt) BgL_nodez00_6084);
				return ((obj_t) BgL_auxz00_7850);
			}
		}

	}



/* &patch!-fail1670 */
	obj_t BGl_z62patchz12zd2fail1670za2zzcfa_tvectorz00(obj_t BgL_envz00_6085,
		obj_t BgL_nodez00_6086)
	{
		{	/* Cfa/tvector.scm 399 */
			{
				BgL_failz00_bglt BgL_auxz00_7874;

				{
					BgL_nodez00_bglt BgL_auxz00_7875;

					{	/* Cfa/tvector.scm 401 */
						BgL_nodez00_bglt BgL_arg1988z00_6359;

						BgL_arg1988z00_6359 =
							(((BgL_failz00_bglt) COBJECT(
									((BgL_failz00_bglt) BgL_nodez00_6086)))->BgL_procz00);
						BgL_auxz00_7875 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1988z00_6359));
					}
					((((BgL_failz00_bglt) COBJECT(
									((BgL_failz00_bglt) BgL_nodez00_6086)))->BgL_procz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7875), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7882;

					{	/* Cfa/tvector.scm 402 */
						BgL_nodez00_bglt BgL_arg1989z00_6360;

						BgL_arg1989z00_6360 =
							(((BgL_failz00_bglt) COBJECT(
									((BgL_failz00_bglt) BgL_nodez00_6086)))->BgL_msgz00);
						BgL_auxz00_7882 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1989z00_6360));
					}
					((((BgL_failz00_bglt) COBJECT(
									((BgL_failz00_bglt) BgL_nodez00_6086)))->BgL_msgz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7882), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7889;

					{	/* Cfa/tvector.scm 403 */
						BgL_nodez00_bglt BgL_arg1990z00_6361;

						BgL_arg1990z00_6361 =
							(((BgL_failz00_bglt) COBJECT(
									((BgL_failz00_bglt) BgL_nodez00_6086)))->BgL_objz00);
						BgL_auxz00_7889 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1990z00_6361));
					}
					((((BgL_failz00_bglt) COBJECT(
									((BgL_failz00_bglt) BgL_nodez00_6086)))->BgL_objz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7889), BUNSPEC);
				}
				BgL_auxz00_7874 = ((BgL_failz00_bglt) BgL_nodez00_6086);
				return ((obj_t) BgL_auxz00_7874);
			}
		}

	}



/* &patch!-conditional1668 */
	obj_t BGl_z62patchz12zd2conditional1668za2zzcfa_tvectorz00(obj_t
		BgL_envz00_6087, obj_t BgL_nodez00_6088)
	{
		{	/* Cfa/tvector.scm 389 */
			{
				BgL_conditionalz00_bglt BgL_auxz00_7898;

				{
					BgL_nodez00_bglt BgL_auxz00_7899;

					{	/* Cfa/tvector.scm 391 */
						BgL_nodez00_bglt BgL_arg1985z00_6363;

						BgL_arg1985z00_6363 =
							(((BgL_conditionalz00_bglt) COBJECT(
									((BgL_conditionalz00_bglt) BgL_nodez00_6088)))->BgL_testz00);
						BgL_auxz00_7899 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1985z00_6363));
					}
					((((BgL_conditionalz00_bglt) COBJECT(
									((BgL_conditionalz00_bglt) BgL_nodez00_6088)))->BgL_testz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7899), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7906;

					{	/* Cfa/tvector.scm 392 */
						BgL_nodez00_bglt BgL_arg1986z00_6364;

						BgL_arg1986z00_6364 =
							(((BgL_conditionalz00_bglt) COBJECT(
									((BgL_conditionalz00_bglt) BgL_nodez00_6088)))->BgL_truez00);
						BgL_auxz00_7906 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1986z00_6364));
					}
					((((BgL_conditionalz00_bglt) COBJECT(
									((BgL_conditionalz00_bglt) BgL_nodez00_6088)))->BgL_truez00) =
						((BgL_nodez00_bglt) BgL_auxz00_7906), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7913;

					{	/* Cfa/tvector.scm 393 */
						BgL_nodez00_bglt BgL_arg1987z00_6365;

						BgL_arg1987z00_6365 =
							(((BgL_conditionalz00_bglt) COBJECT(
									((BgL_conditionalz00_bglt) BgL_nodez00_6088)))->BgL_falsez00);
						BgL_auxz00_7913 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1987z00_6365));
					}
					((((BgL_conditionalz00_bglt) COBJECT(
									((BgL_conditionalz00_bglt) BgL_nodez00_6088)))->
							BgL_falsez00) = ((BgL_nodez00_bglt) BgL_auxz00_7913), BUNSPEC);
				}
				BgL_auxz00_7898 = ((BgL_conditionalz00_bglt) BgL_nodez00_6088);
				return ((obj_t) BgL_auxz00_7898);
			}
		}

	}



/* &patch!-setq1666 */
	obj_t BGl_z62patchz12zd2setq1666za2zzcfa_tvectorz00(obj_t BgL_envz00_6089,
		obj_t BgL_nodez00_6090)
	{
		{	/* Cfa/tvector.scm 380 */
			{
				BgL_setqz00_bglt BgL_auxz00_7922;

				{
					BgL_nodez00_bglt BgL_auxz00_7923;

					{	/* Cfa/tvector.scm 382 */
						BgL_nodez00_bglt BgL_arg1983z00_6367;

						BgL_arg1983z00_6367 =
							(((BgL_setqz00_bglt) COBJECT(
									((BgL_setqz00_bglt) BgL_nodez00_6090)))->BgL_valuez00);
						BgL_auxz00_7923 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1983z00_6367));
					}
					((((BgL_setqz00_bglt) COBJECT(
									((BgL_setqz00_bglt) BgL_nodez00_6090)))->BgL_valuez00) =
						((BgL_nodez00_bglt) BgL_auxz00_7923), BUNSPEC);
				}
				{
					BgL_varz00_bglt BgL_auxz00_7930;

					{	/* Cfa/tvector.scm 383 */
						BgL_varz00_bglt BgL_arg1984z00_6368;

						BgL_arg1984z00_6368 =
							(((BgL_setqz00_bglt) COBJECT(
									((BgL_setqz00_bglt) BgL_nodez00_6090)))->BgL_varz00);
						BgL_auxz00_7930 =
							((BgL_varz00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(
								((BgL_nodez00_bglt) BgL_arg1984z00_6368)));
					}
					((((BgL_setqz00_bglt) COBJECT(
									((BgL_setqz00_bglt) BgL_nodez00_6090)))->BgL_varz00) =
						((BgL_varz00_bglt) BgL_auxz00_7930), BUNSPEC);
				}
				BgL_auxz00_7922 = ((BgL_setqz00_bglt) BgL_nodez00_6090);
				return ((obj_t) BgL_auxz00_7922);
			}
		}

	}



/* &patch!-cast1664 */
	obj_t BGl_z62patchz12zd2cast1664za2zzcfa_tvectorz00(obj_t BgL_envz00_6091,
		obj_t BgL_nodez00_6092)
	{
		{	/* Cfa/tvector.scm 372 */
			{
				BgL_castz00_bglt BgL_auxz00_7940;

				BGl_patchz12z12zzcfa_tvectorz00(
					(((BgL_castz00_bglt) COBJECT(
								((BgL_castz00_bglt) BgL_nodez00_6092)))->BgL_argz00));
				BgL_auxz00_7940 = ((BgL_castz00_bglt) BgL_nodez00_6092);
				return ((obj_t) BgL_auxz00_7940);
			}
		}

	}



/* &patch!-extern1662 */
	obj_t BGl_z62patchz12zd2extern1662za2zzcfa_tvectorz00(obj_t BgL_envz00_6093,
		obj_t BgL_nodez00_6094)
	{
		{	/* Cfa/tvector.scm 364 */
			{
				BgL_externz00_bglt BgL_auxz00_7946;

				BGl_patchza2z12zb0zzcfa_tvectorz00(
					(((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_nodez00_6094)))->BgL_exprza2za2));
				BgL_auxz00_7946 = ((BgL_externz00_bglt) BgL_nodez00_6094);
				return ((obj_t) BgL_auxz00_7946);
			}
		}

	}



/* &patch!-funcall1660 */
	obj_t BGl_z62patchz12zd2funcall1660za2zzcfa_tvectorz00(obj_t BgL_envz00_6095,
		obj_t BgL_nodez00_6096)
	{
		{	/* Cfa/tvector.scm 355 */
			{
				BgL_funcallz00_bglt BgL_auxz00_7952;

				{
					BgL_nodez00_bglt BgL_auxz00_7953;

					{	/* Cfa/tvector.scm 357 */
						BgL_nodez00_bglt BgL_arg1979z00_6372;

						BgL_arg1979z00_6372 =
							(((BgL_funcallz00_bglt) COBJECT(
									((BgL_funcallz00_bglt) BgL_nodez00_6096)))->BgL_funz00);
						BgL_auxz00_7953 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1979z00_6372));
					}
					((((BgL_funcallz00_bglt) COBJECT(
									((BgL_funcallz00_bglt) BgL_nodez00_6096)))->BgL_funz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7953), BUNSPEC);
				}
				BGl_patchza2z12zb0zzcfa_tvectorz00(
					(((BgL_funcallz00_bglt) COBJECT(
								((BgL_funcallz00_bglt) BgL_nodez00_6096)))->BgL_argsz00));
				BgL_auxz00_7952 = ((BgL_funcallz00_bglt) BgL_nodez00_6096);
				return ((obj_t) BgL_auxz00_7952);
			}
		}

	}



/* &patch!-app-ly1658 */
	obj_t BGl_z62patchz12zd2appzd2ly1658z70zzcfa_tvectorz00(obj_t BgL_envz00_6097,
		obj_t BgL_nodez00_6098)
	{
		{	/* Cfa/tvector.scm 346 */
			{
				BgL_appzd2lyzd2_bglt BgL_auxz00_7965;

				{
					BgL_nodez00_bglt BgL_auxz00_7966;

					{	/* Cfa/tvector.scm 348 */
						BgL_nodez00_bglt BgL_arg1977z00_6374;

						BgL_arg1977z00_6374 =
							(((BgL_appzd2lyzd2_bglt) COBJECT(
									((BgL_appzd2lyzd2_bglt) BgL_nodez00_6098)))->BgL_funz00);
						BgL_auxz00_7966 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1977z00_6374));
					}
					((((BgL_appzd2lyzd2_bglt) COBJECT(
									((BgL_appzd2lyzd2_bglt) BgL_nodez00_6098)))->BgL_funz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7966), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7973;

					{	/* Cfa/tvector.scm 349 */
						BgL_nodez00_bglt BgL_arg1978z00_6375;

						BgL_arg1978z00_6375 =
							(((BgL_appzd2lyzd2_bglt) COBJECT(
									((BgL_appzd2lyzd2_bglt) BgL_nodez00_6098)))->BgL_argz00);
						BgL_auxz00_7973 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1978z00_6375));
					}
					((((BgL_appzd2lyzd2_bglt) COBJECT(
									((BgL_appzd2lyzd2_bglt) BgL_nodez00_6098)))->BgL_argz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7973), BUNSPEC);
				}
				BgL_auxz00_7965 = ((BgL_appzd2lyzd2_bglt) BgL_nodez00_6098);
				return ((obj_t) BgL_auxz00_7965);
			}
		}

	}



/* &patch!-sync1656 */
	obj_t BGl_z62patchz12zd2sync1656za2zzcfa_tvectorz00(obj_t BgL_envz00_6099,
		obj_t BgL_nodez00_6100)
	{
		{	/* Cfa/tvector.scm 336 */
			{
				BgL_syncz00_bglt BgL_auxz00_7982;

				{
					BgL_nodez00_bglt BgL_auxz00_7983;

					{	/* Cfa/tvector.scm 338 */
						BgL_nodez00_bglt BgL_arg1974z00_6377;

						BgL_arg1974z00_6377 =
							(((BgL_syncz00_bglt) COBJECT(
									((BgL_syncz00_bglt) BgL_nodez00_6100)))->BgL_mutexz00);
						BgL_auxz00_7983 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1974z00_6377));
					}
					((((BgL_syncz00_bglt) COBJECT(
									((BgL_syncz00_bglt) BgL_nodez00_6100)))->BgL_mutexz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7983), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7990;

					{	/* Cfa/tvector.scm 339 */
						BgL_nodez00_bglt BgL_arg1975z00_6378;

						BgL_arg1975z00_6378 =
							(((BgL_syncz00_bglt) COBJECT(
									((BgL_syncz00_bglt) BgL_nodez00_6100)))->BgL_prelockz00);
						BgL_auxz00_7990 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1975z00_6378));
					}
					((((BgL_syncz00_bglt) COBJECT(
									((BgL_syncz00_bglt) BgL_nodez00_6100)))->BgL_prelockz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7990), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_7997;

					{	/* Cfa/tvector.scm 340 */
						BgL_nodez00_bglt BgL_arg1976z00_6379;

						BgL_arg1976z00_6379 =
							(((BgL_syncz00_bglt) COBJECT(
									((BgL_syncz00_bglt) BgL_nodez00_6100)))->BgL_bodyz00);
						BgL_auxz00_7997 =
							((BgL_nodez00_bglt)
							BGl_patchz12z12zzcfa_tvectorz00(BgL_arg1976z00_6379));
					}
					((((BgL_syncz00_bglt) COBJECT(
									((BgL_syncz00_bglt) BgL_nodez00_6100)))->BgL_bodyz00) =
						((BgL_nodez00_bglt) BgL_auxz00_7997), BUNSPEC);
				}
				BgL_auxz00_7982 = ((BgL_syncz00_bglt) BgL_nodez00_6100);
				return ((obj_t) BgL_auxz00_7982);
			}
		}

	}



/* &patch!-sequence1654 */
	obj_t BGl_z62patchz12zd2sequence1654za2zzcfa_tvectorz00(obj_t BgL_envz00_6101,
		obj_t BgL_nodez00_6102)
	{
		{	/* Cfa/tvector.scm 328 */
			{
				BgL_sequencez00_bglt BgL_auxz00_8006;

				BGl_patchza2z12zb0zzcfa_tvectorz00(
					(((BgL_sequencez00_bglt) COBJECT(
								((BgL_sequencez00_bglt) BgL_nodez00_6102)))->BgL_nodesz00));
				BgL_auxz00_8006 = ((BgL_sequencez00_bglt) BgL_nodez00_6102);
				return ((obj_t) BgL_auxz00_8006);
			}
		}

	}



/* &patch!-closure1652 */
	obj_t BGl_z62patchz12zd2closure1652za2zzcfa_tvectorz00(obj_t BgL_envz00_6103,
		obj_t BgL_nodez00_6104)
	{
		{	/* Cfa/tvector.scm 322 */
			{	/* Cfa/tvector.scm 323 */
				obj_t BgL_arg1972z00_6382;

				BgL_arg1972z00_6382 =
					BGl_shapez00zztools_shapez00(
					((obj_t) ((BgL_closurez00_bglt) BgL_nodez00_6104)));
				return
					BGl_internalzd2errorzd2zztools_errorz00
					(BGl_string2365z00zzcfa_tvectorz00, BGl_string2393z00zzcfa_tvectorz00,
					BgL_arg1972z00_6382);
			}
		}

	}



/* &patch!-var1650 */
	obj_t BGl_z62patchz12zd2var1650za2zzcfa_tvectorz00(obj_t BgL_envz00_6105,
		obj_t BgL_nodez00_6106)
	{
		{	/* Cfa/tvector.scm 316 */
			return ((obj_t) ((BgL_varz00_bglt) BgL_nodez00_6106));
		}

	}



/* &patch!-kwote/node1648 */
	obj_t BGl_z62patchz12zd2kwotezf2node1648z50zzcfa_tvectorz00(obj_t
		BgL_envz00_6107, obj_t BgL_knodez00_6108)
	{
		{	/* Cfa/tvector.scm 299 */
			{
				BgL_kwotez00_bglt BgL_auxz00_8018;

				{	/* Cfa/tvector.scm 301 */
					BgL_approxz00_bglt BgL_approxz00_6385;

					{	/* Cfa/tvector.scm 301 */
						BgL_nodez00_bglt BgL_arg1971z00_6386;

						{
							BgL_kwotezf2nodezf2_bglt BgL_auxz00_8019;

							{
								obj_t BgL_auxz00_8020;

								{	/* Cfa/tvector.scm 301 */
									BgL_objectz00_bglt BgL_tmpz00_8021;

									BgL_tmpz00_8021 =
										((BgL_objectz00_bglt)
										((BgL_kwotez00_bglt) BgL_knodez00_6108));
									BgL_auxz00_8020 = BGL_OBJECT_WIDENING(BgL_tmpz00_8021);
								}
								BgL_auxz00_8019 = ((BgL_kwotezf2nodezf2_bglt) BgL_auxz00_8020);
							}
							BgL_arg1971z00_6386 =
								(((BgL_kwotezf2nodezf2_bglt) COBJECT(BgL_auxz00_8019))->
								BgL_nodez00);
						}
						BgL_approxz00_6385 = BGl_cfaz12z12zzcfa_cfaz00(BgL_arg1971z00_6386);
					}
					{	/* Cfa/tvector.scm 301 */
						obj_t BgL_tvz00_6387;

						{	/* Cfa/tvector.scm 302 */
							BgL_nodez00_bglt BgL_arg1970z00_6388;

							{
								BgL_kwotezf2nodezf2_bglt BgL_auxz00_8028;

								{
									obj_t BgL_auxz00_8029;

									{	/* Cfa/tvector.scm 302 */
										BgL_objectz00_bglt BgL_tmpz00_8030;

										BgL_tmpz00_8030 =
											((BgL_objectz00_bglt)
											((BgL_kwotez00_bglt) BgL_knodez00_6108));
										BgL_auxz00_8029 = BGL_OBJECT_WIDENING(BgL_tmpz00_8030);
									}
									BgL_auxz00_8028 =
										((BgL_kwotezf2nodezf2_bglt) BgL_auxz00_8029);
								}
								BgL_arg1970z00_6388 =
									(((BgL_kwotezf2nodezf2_bglt) COBJECT(BgL_auxz00_8028))->
									BgL_nodez00);
							}
							BgL_tvz00_6387 =
								BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_approxz00_6385,
								((obj_t) BgL_arg1970z00_6388));
						}
						{	/* Cfa/tvector.scm 302 */

							{	/* Cfa/tvector.scm 303 */
								bool_t BgL_test2588z00_8038;

								{	/* Cfa/tvector.scm 303 */
									obj_t BgL_classz00_6389;

									BgL_classz00_6389 = BGl_tvecz00zztvector_tvectorz00;
									if (BGL_OBJECTP(BgL_tvz00_6387))
										{	/* Cfa/tvector.scm 303 */
											BgL_objectz00_bglt BgL_arg1801z00_6390;

											BgL_arg1801z00_6390 =
												(BgL_objectz00_bglt) (BgL_tvz00_6387);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Cfa/tvector.scm 303 */
													long BgL_idxz00_6391;

													BgL_idxz00_6391 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_6390);
													BgL_test2588z00_8038 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_6391 + 2L)) == BgL_classz00_6389);
												}
											else
												{	/* Cfa/tvector.scm 303 */
													bool_t BgL_res2340z00_6394;

													{	/* Cfa/tvector.scm 303 */
														obj_t BgL_oclassz00_6395;

														{	/* Cfa/tvector.scm 303 */
															long BgL_arg1808z00_6396;

															{	/* Cfa/tvector.scm 303 */
																long BgL_arg1809z00_6397;

																BgL_arg1809z00_6397 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_6390);
																BgL_arg1808z00_6396 =
																	(BgL_arg1809z00_6397 - OBJECT_TYPE);
															}
															BgL_oclassz00_6395 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_6396);
														}
														{	/* Cfa/tvector.scm 303 */
															bool_t BgL__ortest_1115z00_6398;

															BgL__ortest_1115z00_6398 =
																(BgL_classz00_6389 == BgL_oclassz00_6395);
															if (BgL__ortest_1115z00_6398)
																{	/* Cfa/tvector.scm 303 */
																	BgL_res2340z00_6394 =
																		BgL__ortest_1115z00_6398;
																}
															else
																{	/* Cfa/tvector.scm 303 */
																	long BgL_odepthz00_6399;

																	BgL_odepthz00_6399 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_6395);
																	if ((2L < BgL_odepthz00_6399))
																		{	/* Cfa/tvector.scm 303 */
																			obj_t BgL_arg1797z00_6400;

																			BgL_arg1797z00_6400 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_6395, 2L);
																			BgL_res2340z00_6394 =
																				(BgL_arg1797z00_6400 ==
																				BgL_classz00_6389);
																		}
																	else
																		{	/* Cfa/tvector.scm 303 */
																			BgL_res2340z00_6394 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2588z00_8038 = BgL_res2340z00_6394;
												}
										}
									else
										{	/* Cfa/tvector.scm 303 */
											BgL_test2588z00_8038 = ((bool_t) 0);
										}
								}
								if (BgL_test2588z00_8038)
									{	/* Cfa/tvector.scm 304 */
										BgL_kwotez00_bglt BgL_knodez00_6401;

										{	/* Cfa/tvector.scm 304 */
											long BgL_arg1963z00_6402;

											{	/* Cfa/tvector.scm 304 */
												obj_t BgL_arg1964z00_6403;

												{	/* Cfa/tvector.scm 304 */
													obj_t BgL_arg1965z00_6404;

													{	/* Cfa/tvector.scm 304 */
														long BgL_arg1808z00_6405;

														{	/* Cfa/tvector.scm 304 */
															long BgL_arg1809z00_6406;

															BgL_arg1809z00_6406 =
																BGL_OBJECT_CLASS_NUM(
																((BgL_objectz00_bglt)
																	((BgL_kwotez00_bglt) BgL_knodez00_6108)));
															BgL_arg1808z00_6405 =
																(BgL_arg1809z00_6406 - OBJECT_TYPE);
														}
														BgL_arg1965z00_6404 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_6405);
													}
													BgL_arg1964z00_6403 =
														BGl_classzd2superzd2zz__objectz00
														(BgL_arg1965z00_6404);
												}
												{	/* Cfa/tvector.scm 304 */
													obj_t BgL_tmpz00_8064;

													BgL_tmpz00_8064 = ((obj_t) BgL_arg1964z00_6403);
													BgL_arg1963z00_6402 = BGL_CLASS_NUM(BgL_tmpz00_8064);
											}}
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt)
													((BgL_kwotez00_bglt) BgL_knodez00_6108)),
												BgL_arg1963z00_6402);
										}
										{	/* Cfa/tvector.scm 304 */
											BgL_objectz00_bglt BgL_tmpz00_8070;

											BgL_tmpz00_8070 =
												((BgL_objectz00_bglt)
												((BgL_kwotez00_bglt) BgL_knodez00_6108));
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_8070, BFALSE);
										}
										((BgL_objectz00_bglt)
											((BgL_kwotez00_bglt) BgL_knodez00_6108));
										BgL_knodez00_6401 = ((BgL_kwotez00_bglt) BgL_knodez00_6108);
										{	/* Cfa/tvector.scm 304 */
											BgL_kwotez00_bglt BgL_nz00_6407;

											{	/* Cfa/tvector.scm 305 */
												BgL_kwotez00_bglt BgL_new1193z00_6408;

												{	/* Cfa/tvector.scm 305 */
													BgL_kwotez00_bglt BgL_new1196z00_6409;

													BgL_new1196z00_6409 =
														((BgL_kwotez00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_kwotez00_bgl))));
													{	/* Cfa/tvector.scm 305 */
														long BgL_arg1962z00_6410;

														BgL_arg1962z00_6410 =
															BGL_CLASS_NUM(BGl_kwotez00zzast_nodez00);
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt) BgL_new1196z00_6409),
															BgL_arg1962z00_6410);
													}
													{	/* Cfa/tvector.scm 305 */
														BgL_objectz00_bglt BgL_tmpz00_8081;

														BgL_tmpz00_8081 =
															((BgL_objectz00_bglt) BgL_new1196z00_6409);
														BGL_OBJECT_WIDENING_SET(BgL_tmpz00_8081, BFALSE);
													}
													((BgL_objectz00_bglt) BgL_new1196z00_6409);
													BgL_new1193z00_6408 = BgL_new1196z00_6409;
												}
												((((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_new1193z00_6408)))->
														BgL_locz00) =
													((obj_t) (((BgL_nodez00_bglt)
																COBJECT(((BgL_nodez00_bglt)
																		BgL_knodez00_6401)))->BgL_locz00)),
													BUNSPEC);
												{
													BgL_typez00_bglt BgL_auxz00_8089;

													{	/* Cfa/tvector.scm 306 */
														BgL_typez00_bglt BgL_arg1960z00_6411;

														BgL_arg1960z00_6411 =
															(((BgL_nodez00_bglt) COBJECT(
																	((BgL_nodez00_bglt) BgL_knodez00_6401)))->
															BgL_typez00);
														BgL_auxz00_8089 =
															BGl_strictzd2nodezd2typez00zzast_nodez00((
																(BgL_typez00_bglt) BgL_tvz00_6387),
															BgL_arg1960z00_6411);
													}
													((((BgL_nodez00_bglt) COBJECT(
																	((BgL_nodez00_bglt) BgL_new1193z00_6408)))->
															BgL_typez00) =
														((BgL_typez00_bglt) BgL_auxz00_8089), BUNSPEC);
												}
												{
													obj_t BgL_auxz00_8096;

													{	/* Cfa/tvector.scm 307 */
														obj_t BgL_arg1961z00_6412;

														BgL_arg1961z00_6412 =
															(((BgL_kwotez00_bglt) COBJECT(
																	((BgL_kwotez00_bglt)
																		((BgL_kwotez00_bglt) BgL_knodez00_6108))))->
															BgL_valuez00);
														{	/* Cfa/tvector.scm 307 */
															obj_t BgL_newz00_6413;

															BgL_newz00_6413 =
																create_struct(CNST_TABLE_REF(22L), (int) (2L));
															{	/* Cfa/tvector.scm 307 */
																int BgL_tmpz00_8103;

																BgL_tmpz00_8103 = (int) (1L);
																STRUCT_SET(BgL_newz00_6413, BgL_tmpz00_8103,
																	BgL_arg1961z00_6412);
															}
															{	/* Cfa/tvector.scm 307 */
																int BgL_tmpz00_8106;

																BgL_tmpz00_8106 = (int) (0L);
																STRUCT_SET(BgL_newz00_6413, BgL_tmpz00_8106,
																	BgL_tvz00_6387);
															}
															BgL_auxz00_8096 = BgL_newz00_6413;
													}}
													((((BgL_kwotez00_bglt) COBJECT(BgL_new1193z00_6408))->
															BgL_valuez00) =
														((obj_t) BgL_auxz00_8096), BUNSPEC);
												}
												BgL_nz00_6407 = BgL_new1193z00_6408;
											}
											{	/* Cfa/tvector.scm 305 */

												{	/* Cfa/tvector.scm 308 */
													BgL_kwotezf2cinfozf2_bglt BgL_wide1199z00_6414;

													BgL_wide1199z00_6414 =
														((BgL_kwotezf2cinfozf2_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_kwotezf2cinfozf2_bgl))));
													{	/* Cfa/tvector.scm 308 */
														obj_t BgL_auxz00_8114;
														BgL_objectz00_bglt BgL_tmpz00_8111;

														BgL_auxz00_8114 = ((obj_t) BgL_wide1199z00_6414);
														BgL_tmpz00_8111 =
															((BgL_objectz00_bglt)
															((BgL_kwotez00_bglt) BgL_nz00_6407));
														BGL_OBJECT_WIDENING_SET(BgL_tmpz00_8111,
															BgL_auxz00_8114);
													}
													((BgL_objectz00_bglt)
														((BgL_kwotez00_bglt) BgL_nz00_6407));
													{	/* Cfa/tvector.scm 308 */
														long BgL_arg1959z00_6415;

														BgL_arg1959z00_6415 =
															BGL_CLASS_NUM(BGl_kwotezf2Cinfozf2zzcfa_infoz00);
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt)
																((BgL_kwotez00_bglt) BgL_nz00_6407)),
															BgL_arg1959z00_6415);
													}
													((BgL_kwotez00_bglt)
														((BgL_kwotez00_bglt) BgL_nz00_6407));
												}
												{
													BgL_kwotezf2cinfozf2_bglt BgL_auxz00_8125;

													{
														obj_t BgL_auxz00_8126;

														{	/* Cfa/tvector.scm 309 */
															BgL_objectz00_bglt BgL_tmpz00_8127;

															BgL_tmpz00_8127 =
																((BgL_objectz00_bglt)
																((BgL_kwotez00_bglt) BgL_nz00_6407));
															BgL_auxz00_8126 =
																BGL_OBJECT_WIDENING(BgL_tmpz00_8127);
														}
														BgL_auxz00_8125 =
															((BgL_kwotezf2cinfozf2_bglt) BgL_auxz00_8126);
													}
													((((BgL_kwotezf2cinfozf2_bglt)
																COBJECT(BgL_auxz00_8125))->BgL_approxz00) =
														((BgL_approxz00_bglt) BgL_approxz00_6385), BUNSPEC);
												}
												BgL_auxz00_8018 = ((BgL_kwotez00_bglt) BgL_nz00_6407);
									}}}
								else
									{	/* Cfa/tvector.scm 310 */
										BgL_kwotez00_bglt BgL_tmp1203z00_6416;

										{	/* Cfa/tvector.scm 310 */
											long BgL_arg1967z00_6417;

											{	/* Cfa/tvector.scm 310 */
												obj_t BgL_arg1968z00_6418;

												{	/* Cfa/tvector.scm 310 */
													obj_t BgL_arg1969z00_6419;

													{	/* Cfa/tvector.scm 310 */
														long BgL_arg1808z00_6420;

														{	/* Cfa/tvector.scm 310 */
															long BgL_arg1809z00_6421;

															BgL_arg1809z00_6421 =
																BGL_OBJECT_CLASS_NUM(
																((BgL_objectz00_bglt)
																	((BgL_kwotez00_bglt) BgL_knodez00_6108)));
															BgL_arg1808z00_6420 =
																(BgL_arg1809z00_6421 - OBJECT_TYPE);
														}
														BgL_arg1969z00_6419 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_6420);
													}
													BgL_arg1968z00_6418 =
														BGl_classzd2superzd2zz__objectz00
														(BgL_arg1969z00_6419);
												}
												{	/* Cfa/tvector.scm 310 */
													obj_t BgL_tmpz00_8140;

													BgL_tmpz00_8140 = ((obj_t) BgL_arg1968z00_6418);
													BgL_arg1967z00_6417 = BGL_CLASS_NUM(BgL_tmpz00_8140);
											}}
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt)
													((BgL_kwotez00_bglt) BgL_knodez00_6108)),
												BgL_arg1967z00_6417);
										}
										{	/* Cfa/tvector.scm 310 */
											BgL_objectz00_bglt BgL_tmpz00_8146;

											BgL_tmpz00_8146 =
												((BgL_objectz00_bglt)
												((BgL_kwotez00_bglt) BgL_knodez00_6108));
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_8146, BFALSE);
										}
										((BgL_objectz00_bglt)
											((BgL_kwotez00_bglt) BgL_knodez00_6108));
										BgL_tmp1203z00_6416 =
											((BgL_kwotez00_bglt)
											((BgL_kwotez00_bglt) BgL_knodez00_6108));
										{	/* Cfa/tvector.scm 310 */
											BgL_kwotezf2cinfozf2_bglt BgL_wide1205z00_6422;

											BgL_wide1205z00_6422 =
												((BgL_kwotezf2cinfozf2_bglt)
												BOBJECT(GC_MALLOC(sizeof(struct
															BgL_kwotezf2cinfozf2_bgl))));
											{	/* Cfa/tvector.scm 310 */
												obj_t BgL_auxz00_8158;
												BgL_objectz00_bglt BgL_tmpz00_8155;

												BgL_auxz00_8158 = ((obj_t) BgL_wide1205z00_6422);
												BgL_tmpz00_8155 =
													((BgL_objectz00_bglt)
													((BgL_kwotez00_bglt) BgL_tmp1203z00_6416));
												BGL_OBJECT_WIDENING_SET(BgL_tmpz00_8155,
													BgL_auxz00_8158);
											}
											((BgL_objectz00_bglt)
												((BgL_kwotez00_bglt) BgL_tmp1203z00_6416));
											{	/* Cfa/tvector.scm 310 */
												long BgL_arg1966z00_6423;

												BgL_arg1966z00_6423 =
													BGL_CLASS_NUM(BGl_kwotezf2Cinfozf2zzcfa_infoz00);
												BGL_OBJECT_CLASS_NUM_SET(
													((BgL_objectz00_bglt)
														((BgL_kwotez00_bglt) BgL_tmp1203z00_6416)),
													BgL_arg1966z00_6423);
											}
											((BgL_kwotez00_bglt)
												((BgL_kwotez00_bglt) BgL_tmp1203z00_6416));
										}
										{
											BgL_kwotezf2cinfozf2_bglt BgL_auxz00_8169;

											{
												obj_t BgL_auxz00_8170;

												{	/* Cfa/tvector.scm 311 */
													BgL_objectz00_bglt BgL_tmpz00_8171;

													BgL_tmpz00_8171 =
														((BgL_objectz00_bglt)
														((BgL_kwotez00_bglt) BgL_tmp1203z00_6416));
													BgL_auxz00_8170 =
														BGL_OBJECT_WIDENING(BgL_tmpz00_8171);
												}
												BgL_auxz00_8169 =
													((BgL_kwotezf2cinfozf2_bglt) BgL_auxz00_8170);
											}
											((((BgL_kwotezf2cinfozf2_bglt) COBJECT(BgL_auxz00_8169))->
													BgL_approxz00) =
												((BgL_approxz00_bglt) BgL_approxz00_6385), BUNSPEC);
										}
										BgL_auxz00_8018 = ((BgL_kwotez00_bglt) BgL_tmp1203z00_6416);
				}}}}}
				return ((obj_t) BgL_auxz00_8018);
			}
		}

	}



/* &patch!-kwote1646 */
	obj_t BGl_z62patchz12zd2kwote1646za2zzcfa_tvectorz00(obj_t BgL_envz00_6109,
		obj_t BgL_nodez00_6110)
	{
		{	/* Cfa/tvector.scm 293 */
			return ((obj_t) ((BgL_kwotez00_bglt) BgL_nodez00_6110));
		}

	}



/* &patch!-atom1644 */
	obj_t BGl_z62patchz12zd2atom1644za2zzcfa_tvectorz00(obj_t BgL_envz00_6111,
		obj_t BgL_nodez00_6112)
	{
		{	/* Cfa/tvector.scm 287 */
			return ((obj_t) ((BgL_atomz00_bglt) BgL_nodez00_6112));
		}

	}



/* &get-vector-item-type1640 */
	BgL_typez00_bglt
		BGl_z62getzd2vectorzd2itemzd2type1640zb0zzcfa_tvectorz00(obj_t
		BgL_envz00_6113, obj_t BgL_nodez00_6114)
	{
		{	/* Cfa/tvector.scm 215 */
			{	/* Cfa/tvector.scm 217 */
				bool_t BgL_test2593z00_8183;

				{
					BgL_valloczf2cinfozb2optimz40_bglt BgL_auxz00_8184;

					{
						obj_t BgL_auxz00_8185;

						{	/* Cfa/tvector.scm 217 */
							BgL_objectz00_bglt BgL_tmpz00_8186;

							BgL_tmpz00_8186 =
								((BgL_objectz00_bglt) ((BgL_vallocz00_bglt) BgL_nodez00_6114));
							BgL_auxz00_8185 = BGL_OBJECT_WIDENING(BgL_tmpz00_8186);
						}
						BgL_auxz00_8184 =
							((BgL_valloczf2cinfozb2optimz40_bglt) BgL_auxz00_8185);
					}
					BgL_test2593z00_8183 =
						(((BgL_valloczf2cinfozb2optimz40_bglt) COBJECT(BgL_auxz00_8184))->
						BgL_seenzf3zf3);
				}
				if (BgL_test2593z00_8183)
					{	/* Cfa/tvector.scm 219 */
						BgL_approxz00_bglt BgL_arg1957z00_6427;

						{
							BgL_valloczf2cinfozb2optimz40_bglt BgL_auxz00_8192;

							{
								obj_t BgL_auxz00_8193;

								{	/* Cfa/tvector.scm 219 */
									BgL_objectz00_bglt BgL_tmpz00_8194;

									BgL_tmpz00_8194 =
										((BgL_objectz00_bglt)
										((BgL_vallocz00_bglt) BgL_nodez00_6114));
									BgL_auxz00_8193 = BGL_OBJECT_WIDENING(BgL_tmpz00_8194);
								}
								BgL_auxz00_8192 =
									((BgL_valloczf2cinfozb2optimz40_bglt) BgL_auxz00_8193);
							}
							BgL_arg1957z00_6427 =
								(((BgL_valloczf2cinfozb2optimz40_bglt)
									COBJECT(BgL_auxz00_8192))->BgL_valuezd2approxzd2);
						}
						return
							(((BgL_approxz00_bglt) COBJECT(BgL_arg1957z00_6427))->
							BgL_typez00);
					}
				else
					{	/* Cfa/tvector.scm 217 */
						return ((BgL_typez00_bglt) BGl_za2vectorza2z00zztype_cachez00);
					}
			}
		}

	}



/* &get-vector-item-type1638 */
	BgL_typez00_bglt
		BGl_z62getzd2vectorzd2itemzd2type1638zb0zzcfa_tvectorz00(obj_t
		BgL_envz00_6115, obj_t BgL_appz00_6116)
	{
		{	/* Cfa/tvector.scm 206 */
			{	/* Cfa/tvector.scm 208 */
				bool_t BgL_test2594z00_8202;

				{
					BgL_makezd2vectorzd2appz00_bglt BgL_auxz00_8203;

					{
						obj_t BgL_auxz00_8204;

						{	/* Cfa/tvector.scm 208 */
							BgL_objectz00_bglt BgL_tmpz00_8205;

							BgL_tmpz00_8205 =
								((BgL_objectz00_bglt) ((BgL_appz00_bglt) BgL_appz00_6116));
							BgL_auxz00_8204 = BGL_OBJECT_WIDENING(BgL_tmpz00_8205);
						}
						BgL_auxz00_8203 =
							((BgL_makezd2vectorzd2appz00_bglt) BgL_auxz00_8204);
					}
					BgL_test2594z00_8202 =
						(((BgL_makezd2vectorzd2appz00_bglt) COBJECT(BgL_auxz00_8203))->
						BgL_seenzf3zf3);
				}
				if (BgL_test2594z00_8202)
					{	/* Cfa/tvector.scm 210 */
						BgL_approxz00_bglt BgL_arg1955z00_6429;

						{
							BgL_makezd2vectorzd2appz00_bglt BgL_auxz00_8211;

							{
								obj_t BgL_auxz00_8212;

								{	/* Cfa/tvector.scm 210 */
									BgL_objectz00_bglt BgL_tmpz00_8213;

									BgL_tmpz00_8213 =
										((BgL_objectz00_bglt) ((BgL_appz00_bglt) BgL_appz00_6116));
									BgL_auxz00_8212 = BGL_OBJECT_WIDENING(BgL_tmpz00_8213);
								}
								BgL_auxz00_8211 =
									((BgL_makezd2vectorzd2appz00_bglt) BgL_auxz00_8212);
							}
							BgL_arg1955z00_6429 =
								(((BgL_makezd2vectorzd2appz00_bglt) COBJECT(BgL_auxz00_8211))->
								BgL_valuezd2approxzd2);
						}
						return
							(((BgL_approxz00_bglt) COBJECT(BgL_arg1955z00_6429))->
							BgL_typez00);
					}
				else
					{	/* Cfa/tvector.scm 208 */
						return ((BgL_typez00_bglt) BGl_za2vectorza2z00zztype_cachez00);
					}
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zzcfa_tvectorz00(void)
	{
		{	/* Cfa/tvector.scm 15 */
			BGl_modulezd2initializa7ationz75zztools_tracez00(54713316L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzengine_paramz00(517137079L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzmodule_typez00(410405073L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzmodule_pragmaz00(433305536L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zztype_typez00(515343395L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zztype_cachez00(346491734L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zztype_envz00(296457443L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zztype_typeofz00(398780265L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zztvector_tvectorz00(501518119L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zztools_shapez00(365925558L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zztools_speekz00(61247943L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zztools_errorz00(300504031L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzast_varz00(90839984L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzast_nodez00(469732712L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzast_buildz00(428035925L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzast_sexpz00(163122759L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzast_envz00(146730773L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzast_lvtypez00(189769752L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzast_walkz00(343174225L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzcfa_infoz00(3788352L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzcfa_info2z00(0L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzcfa_info3z00(0L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzcfa_cfaz00(400853817L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzcfa_approxz00(54924680L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzcfa_setz00(5932721L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzcfa_typez00(93933605L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzglobaliza7e_walkza7(69163963L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			BGl_modulezd2initializa7ationz75zzinline_inlinez00(20504962L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
			return
				BGl_modulezd2initializa7ationz75zzinline_walkz00(385476819L,
				BSTRING_TO_STRING(BGl_string2394z00zzcfa_tvectorz00));
		}

	}

#ifdef __cplusplus
}
#endif
