/*===========================================================================*/
/*   (Ast/alphatize.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 Ast/alphatize.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_AST_ALPHATIZE_TYPE_DEFINITIONS
#define BGL_AST_ALPHATIZE_TYPE_DEFINITIONS

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

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

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

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

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

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

	typedef struct BgL_sexitz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_handlerz00;
		bool_t BgL_detachedzf3zf3;
	}               *BgL_sexitz00_bglt;

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

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

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

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

	typedef struct BgL_patchz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_valuez00;
		struct BgL_varz00_bgl *BgL_refz00;
		long BgL_indexz00;
		obj_t BgL_patchidz00;
	}               *BgL_patchz00_bglt;

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

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

	typedef struct BgL_closurez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_variablez00_bgl *BgL_variablez00;
	}                 *BgL_closurez00_bglt;

	typedef struct BgL_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_pragmaz00_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_formatz00;
	}                *BgL_pragmaz00_bglt;

	typedef struct BgL_privatez00_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;
	}                 *BgL_privatez00_bglt;

	typedef struct BgL_getfieldz00_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;
		obj_t BgL_fnamez00;
		struct BgL_typez00_bgl *BgL_ftypez00;
		struct BgL_typez00_bgl *BgL_otypez00;
	}                  *BgL_getfieldz00_bglt;

	typedef struct BgL_setfieldz00_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;
		obj_t BgL_fnamez00;
		struct BgL_typez00_bgl *BgL_ftypez00;
		struct BgL_typez00_bgl *BgL_otypez00;
	}                  *BgL_setfieldz00_bglt;

	typedef struct BgL_newz00_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;
		obj_t BgL_argszd2typezd2;
	}             *BgL_newz00_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_instanceofz00_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_classz00;
	}                    *BgL_instanceofz00_bglt;

	typedef struct BgL_castzd2nullzd2_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;
	}                     *BgL_castzd2nullzd2_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_retblockz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
	}                  *BgL_retblockz00_bglt;

	typedef struct BgL_returnz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_retblockz00_bgl *BgL_blockz00;
		struct BgL_nodez00_bgl *BgL_valuez00;
	}                *BgL_returnz00_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_retblockzf2alphazf2_bgl
	{
		struct BgL_retblockz00_bgl *BgL_alphaz00;
	}                          *BgL_retblockzf2alphazf2_bglt;


#endif													// BGL_AST_ALPHATIZE_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2valloc1640zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_retblockz00_bglt BGl_z62lambda1774z62zzast_alphatiza7eza7(obj_t,
		obj_t);
	static obj_t BGl_z62lambda1775z62zzast_alphatiza7eza7(obj_t, obj_t, obj_t);
	BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	extern obj_t BGl_setqz00zzast_nodez00;
	extern obj_t BGl_returnz00zzast_nodez00;
	BGL_IMPORT obj_t BGl_classzd2nilzd2initz12z12zz__objectz00(obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zzast_alphatiza7eza7 = BUNSPEC;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2letzd2fun1660z17zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_closurez00zzast_nodez00;
	extern obj_t BGl_funz00zzast_varz00;
	extern obj_t BGl_newz00zzast_nodez00;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2appzd2ly1620z17zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_vlengthz00zzast_nodez00;
	extern obj_t BGl_syncz00zzast_nodez00;
	extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_alphatiza7eza7zzast_alphatiza7eza7(obj_t, obj_t, obj_t,
		BgL_nodez00_bglt);
	BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_getzd2locationzd2zzast_alphatiza7eza7(BgL_nodez00_bglt,
		obj_t);
	BGL_IMPORT obj_t BGl_registerzd2genericz12zc0zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_sfunz00zzast_varz00;
	static obj_t BGl_toplevelzd2initzd2zzast_alphatiza7eza7(void);
	extern obj_t BGl_sequencez00zzast_nodez00;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2literal1604zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_letzd2varzd2zzast_nodez00;
	extern obj_t BGl_failz00zzast_nodez00;
	static obj_t BGl_genericzd2initzd2zzast_alphatiza7eza7(void);
	extern obj_t BGl_getfieldz00zzast_nodez00;
	static obj_t BGl_retblockzf2alphazf2zzast_alphatiza7eza7 = BUNSPEC;
	extern obj_t BGl_sexitz00zzast_varz00;
	BGL_IMPORT obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t,
		bool_t, bool_t, obj_t, obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zzast_alphatiza7eza7(void);
	extern obj_t BGl_castz00zzast_nodez00;
	extern obj_t BGl_shapez00zztools_shapez00(obj_t);
	BGL_IMPORT obj_t BGl_za2inheritancesza2z00zz__objectz00;
	extern obj_t BGl_boxzd2refzd2zzast_nodez00;
	static obj_t BGl_z62zc3z04anonymousza31699ze3ze5zzast_alphatiza7eza7(obj_t);
	extern obj_t BGl_typez00zztype_typez00;
	static obj_t BGl_z62dozd2alphatiza7e1601z17zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2return1670zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2switch1652zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	extern obj_t BGl_refz00zzast_nodez00;
	extern BgL_localz00_bglt BGl_makezd2localzd2sfunz00zzast_localz00(obj_t,
		BgL_typez00_bglt, BgL_sfunz00_bglt);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2funcall1622zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2kwote1612zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	BGL_IMPORT obj_t BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_appendzd221011zd2zzast_alphatiza7eza7(obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zzast_alphatiza7eza7(void);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2setzd2exzd21664zc5zzast_alphatiza7eza7(obj_t,
		obj_t, obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2patch1606zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2conditi1648zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2castzd2nu1626z17zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2retbloc1668zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2closure1610zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2boxzd2set1658z17zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL BgL_nodez00_bglt
		BGl_alphatiza7ezd2sanszd2closureza7zzast_alphatiza7eza7(obj_t, obj_t, obj_t,
		BgL_nodez00_bglt, BgL_variablez00_bglt);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2letzd2var1662z17zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_varz00zzast_nodez00;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2cast1644zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_makezd2boxzd2zzast_nodez00;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2boxzd2ref1656z17zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2sync1616zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern bool_t BGl_globalzd2optionalzf3z21zzast_varz00(obj_t);
	static obj_t BGl_za2nozd2alphatiza7ezd2closureza2za7zzast_alphatiza7eza7 =
		BUNSPEC;
	BGL_IMPORT obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2setfiel1630zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2new1632zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern BgL_localz00_bglt BGl_makezd2localzd2sexitz00zzast_localz00(obj_t,
		BgL_typez00_bglt, BgL_sexitz00_bglt);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2sequenc1614zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_pragmaz00zzast_nodez00;
	extern BgL_typez00_bglt
		BGl_strictzd2nodezd2typez00zzast_nodez00(BgL_typez00_bglt,
		BgL_typez00_bglt);
	extern obj_t BGl_za2procedureza2z00zztype_cachez00;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2setq1646zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2instanc1642zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_nodez00_bglt, obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2fail1650zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
	extern bool_t BGl_globalzd2keyzf3z21zzast_varz00(obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2pragma1624zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zzast_alphatiza7eza7(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_dumpz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_appz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_applyz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(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;
	extern obj_t BGl_appzd2lyzd2zzast_nodez00;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2var1608zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_vrefz00zzast_nodez00;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2makezd2bo1654z17zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_nodez00zzast_nodez00;
	extern obj_t BGl_kwotez00zzast_nodez00;
	extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
	static obj_t BGl_cnstzd2initzd2zzast_alphatiza7eza7(void);
	static obj_t BGl_libraryzd2moduleszd2initz00zzast_alphatiza7eza7(void);
	extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t,
		BgL_typez00_bglt);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2getfiel1628zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	BGL_IMPORT obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t,
		long, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zzast_alphatiza7eza7(void);
	static obj_t BGl_gczd2rootszd2initz00zzast_alphatiza7eza7(void);
	extern obj_t BGl_vallocz00zzast_nodez00;
	static BgL_nodez00_bglt
		BGl_z62alphatiza7ezd2sanszd2closurezc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_retblockz00zzast_nodez00;
	extern obj_t BGl_instanceofz00zzast_nodez00;
	extern BgL_nodez00_bglt BGl_sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7(obj_t, obj_t);
	extern obj_t BGl_letzd2funzd2zzast_nodez00;
	extern BgL_nodez00_bglt BGl_knownzd2appzd2lyzd2ze3nodez31zzast_applyz00(obj_t,
		obj_t, BgL_nodez00_bglt, BgL_nodez00_bglt, obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2app1618zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2vsetz121638zd7zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_setfieldz00zzast_nodez00;
	extern obj_t BGl_castzd2nullzd2zzast_nodez00;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2vref1636zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_usezd2variablez12zc0zzast_sexpz00(BgL_variablez00_bglt,
		obj_t, obj_t);
	BGL_IMPORT obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_variablez00zzast_varz00;
	extern obj_t BGl_literalz00zzast_nodez00;
	extern obj_t BGl_switchz00zzast_nodez00;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2vlength1634zc5zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	BGL_IMPORT obj_t BGl_classzd2superzd2zz__objectz00(obj_t);
	extern obj_t BGl_conditionalz00zzast_nodez00;
	static BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2jumpzd2ex1666z17zzast_alphatiza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31754ze3ze5zzast_alphatiza7eza7(obj_t,
		obj_t);
	static BgL_retblockz00_bglt BGl_z62lambda1749z62zzast_alphatiza7eza7(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_funcallz00zzast_nodez00;
	static BgL_retblockz00_bglt BGl_z62lambda1752z62zzast_alphatiza7eza7(obj_t,
		obj_t);
	static BgL_retblockz00_bglt BGl_z62lambda1755z62zzast_alphatiza7eza7(obj_t,
		obj_t);
	extern obj_t BGl_vsetz12z12zzast_nodez00;
	static BgL_nodez00_bglt BGl_z62dozd2alphatiza7ez17zzast_alphatiza7eza7(obj_t,
		obj_t, obj_t);
	static BgL_nodez00_bglt BGl_z62alphatiza7ezc5zzast_alphatiza7eza7(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_patchz00zzast_nodez00;
	static obj_t __cnst[8];


	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2145z00zzast_alphatiza7eza7,
		BgL_bgl_za762za7c3za704anonymo2197za7,
		BGl_z62zc3z04anonymousza31699ze3ze5zzast_alphatiza7eza7, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2146z00zzast_alphatiza7eza7,
		BgL_bgl_za762lambda1775za7622198z00,
		BGl_z62lambda1775z62zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2153z00zzast_alphatiza7eza7,
		BgL_bgl_string2153za700za7za7a2199za7, "do-alphatize1601", 16);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2147z00zzast_alphatiza7eza7,
		BgL_bgl_za762lambda1774za7622200z00,
		BGl_z62lambda1774z62zzast_alphatiza7eza7, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2154z00zzast_alphatiza7eza7,
		BgL_bgl_string2154za700za7za7a2201za7, "No method for this object", 25);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2148z00zzast_alphatiza7eza7,
		BgL_bgl_za762lambda1755za7622202z00,
		BGl_z62lambda1755z62zzast_alphatiza7eza7, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2149z00zzast_alphatiza7eza7,
		BgL_bgl_za762za7c3za704anonymo2203za7,
		BGl_z62zc3z04anonymousza31754ze3ze5zzast_alphatiza7eza7, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2156z00zzast_alphatiza7eza7,
		BgL_bgl_string2156za700za7za7a2204za7, "do-alphatize", 12);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2150z00zzast_alphatiza7eza7,
		BgL_bgl_za762lambda1752za7622205z00,
		BGl_z62lambda1752z62zzast_alphatiza7eza7, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2151z00zzast_alphatiza7eza7,
		BgL_bgl_za762lambda1749za7622206z00,
		BGl_z62lambda1749z62zzast_alphatiza7eza7, 0L, BUNSPEC, 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2152z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72207za7,
		BGl_z62dozd2alphatiza7e1601z17zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2155z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72208za7,
		BGl_z62dozd2alphatiza7ezd2literal1604zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2157z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72209za7,
		BGl_z62dozd2alphatiza7ezd2patch1606zc5zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2158z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72210za7,
		BGl_z62dozd2alphatiza7ezd2var1608zc5zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_alphatiza7ezd2sanszd2closurezd2envz75zzast_alphatiza7eza7,
		BgL_bgl_za762alphatiza7a7eza7d2211za7,
		BGl_z62alphatiza7ezd2sanszd2closurezc5zzast_alphatiza7eza7, 0L, BUNSPEC, 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2159z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72212za7,
		BGl_z62dozd2alphatiza7ezd2closure1610zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2160z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72213za7,
		BGl_z62dozd2alphatiza7ezd2kwote1612zc5zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2161z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72214za7,
		BGl_z62dozd2alphatiza7ezd2sequenc1614zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2162z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72215za7,
		BGl_z62dozd2alphatiza7ezd2sync1616zc5zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2163z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72216za7,
		BGl_z62dozd2alphatiza7ezd2app1618zc5zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2164z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72217za7,
		BGl_z62dozd2alphatiza7ezd2appzd2ly1620z17zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2165z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72218za7,
		BGl_z62dozd2alphatiza7ezd2funcall1622zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2166z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72219za7,
		BGl_z62dozd2alphatiza7ezd2pragma1624zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2167z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72220za7,
		BGl_z62dozd2alphatiza7ezd2castzd2nu1626z17zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2168z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72221za7,
		BGl_z62dozd2alphatiza7ezd2getfiel1628zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2169z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72222za7,
		BGl_z62dozd2alphatiza7ezd2setfiel1630zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2170z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72223za7,
		BGl_z62dozd2alphatiza7ezd2new1632zc5zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2171z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72224za7,
		BGl_z62dozd2alphatiza7ezd2vlength1634zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2172z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72225za7,
		BGl_z62dozd2alphatiza7ezd2vref1636zc5zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2173z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72226za7,
		BGl_z62dozd2alphatiza7ezd2vsetz121638zd7zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2174z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72227za7,
		BGl_z62dozd2alphatiza7ezd2valloc1640zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2175z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72228za7,
		BGl_z62dozd2alphatiza7ezd2instanc1642zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2176z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72229za7,
		BGl_z62dozd2alphatiza7ezd2cast1644zc5zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2177z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72230za7,
		BGl_z62dozd2alphatiza7ezd2setq1646zc5zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2178z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72231za7,
		BGl_z62dozd2alphatiza7ezd2conditi1648zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2179z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72232za7,
		BGl_z62dozd2alphatiza7ezd2fail1650zc5zzast_alphatiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2180z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72233za7,
		BGl_z62dozd2alphatiza7ezd2switch1652zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2181z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72234za7,
		BGl_z62dozd2alphatiza7ezd2makezd2bo1654z17zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2182z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72235za7,
		BGl_z62dozd2alphatiza7ezd2boxzd2ref1656z17zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2183z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72236za7,
		BGl_z62dozd2alphatiza7ezd2boxzd2set1658z17zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STRING(BGl_string2190z00zzast_alphatiza7eza7,
		BgL_bgl_string2190za700za7za7a2237za7, "alphatize", 9);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2184z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72238za7,
		BGl_z62dozd2alphatiza7ezd2letzd2fun1660z17zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STRING(BGl_string2191z00zzast_alphatiza7eza7,
		BgL_bgl_string2191za700za7za7a2239za7, "Illegal alphatization (setq)", 28);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2185z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72240za7,
		BGl_z62dozd2alphatiza7ezd2letzd2var1662z17zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STRING(BGl_string2192z00zzast_alphatiza7eza7,
		BgL_bgl_string2192za700za7za7a2241za7, "Illegal alphatization (closure)",
		31);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2186z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72242za7,
		BGl_z62dozd2alphatiza7ezd2setzd2exzd21664zc5zzast_alphatiza7eza7, 0L,
		BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2193z00zzast_alphatiza7eza7,
		BgL_bgl_string2193za700za7za7a2243za7, "Illegal alphatization (var)", 27);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2187z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72244za7,
		BGl_z62dozd2alphatiza7ezd2jumpzd2ex1666z17zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STRING(BGl_string2194z00zzast_alphatiza7eza7,
		BgL_bgl_string2194za700za7za7a2245za7, "ast_alphatize", 13);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2188z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72246za7,
		BGl_z62dozd2alphatiza7ezd2retbloc1668zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STRING(BGl_string2195z00zzast_alphatiza7eza7,
		BgL_bgl_string2195za700za7za7a2247za7,
		"value app set! do-alphatize1601 ast_alphatize retblock/alpha alpha location ",
		76);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2189z00zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72248za7,
		BGl_z62dozd2alphatiza7ezd2return1670zc5zzast_alphatiza7eza7, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_alphatiza7ezd2envz75zzast_alphatiza7eza7,
		BgL_bgl_za762alphatiza7a7eza7c2249za7,
		BGl_z62alphatiza7ezc5zzast_alphatiza7eza7, 0L, BUNSPEC, 4);
	     
		DEFINE_STATIC_BGL_GENERIC(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
		BgL_bgl_za762doza7d2alphatiza72250za7,
		BGl_z62dozd2alphatiza7ez17zzast_alphatiza7eza7, 0L, BUNSPEC, 2);

/* 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_requirezd2initializa7ationz75zzast_alphatiza7eza7));
		     ADD_ROOT((void *) (&BGl_retblockzf2alphazf2zzast_alphatiza7eza7));
		   
			 ADD_ROOT((void
				*) (&BGl_za2nozd2alphatiza7ezd2closureza2za7zzast_alphatiza7eza7));
#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_modulezd2initializa7ationz75zzast_alphatiza7eza7(long
		BgL_checksumz00_4192, char *BgL_fromz00_4193)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zzast_alphatiza7eza7))
				{
					BGl_requirezd2initializa7ationz75zzast_alphatiza7eza7 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zzast_alphatiza7eza7();
					BGl_libraryzd2moduleszd2initz00zzast_alphatiza7eza7();
					BGl_cnstzd2initzd2zzast_alphatiza7eza7();
					BGl_importedzd2moduleszd2initz00zzast_alphatiza7eza7();
					BGl_objectzd2initzd2zzast_alphatiza7eza7();
					BGl_genericzd2initzd2zzast_alphatiza7eza7();
					BGl_methodzd2initzd2zzast_alphatiza7eza7();
					return BGl_toplevelzd2initzd2zzast_alphatiza7eza7();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* library-modules-init */
	obj_t BGl_libraryzd2moduleszd2initz00zzast_alphatiza7eza7(void)
	{
		{	/* Ast/alphatize.scm 14 */
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(0L,
				"ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__objectz00(0L, "ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__readerz00(0L, "ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(0L,
				"ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__errorz00(0L, "ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(0L,
				"ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__bitz00(0L, "ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(0L,
				"ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(0L,
				"ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(0L,
				"ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__bexitz00(0L, "ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__structurez00(0L, "ast_alphatize");
			BGl_modulezd2initializa7ationz75zz__biglooz00(0L, "ast_alphatize");
			return BUNSPEC;
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zzast_alphatiza7eza7(void)
	{
		{	/* Ast/alphatize.scm 14 */
			{	/* Ast/alphatize.scm 14 */
				obj_t BgL_cportz00_3635;

				{	/* Ast/alphatize.scm 14 */
					obj_t BgL_stringz00_3642;

					BgL_stringz00_3642 = BGl_string2195z00zzast_alphatiza7eza7;
					{	/* Ast/alphatize.scm 14 */
						obj_t BgL_startz00_3643;

						BgL_startz00_3643 = BINT(0L);
						{	/* Ast/alphatize.scm 14 */
							obj_t BgL_endz00_3644;

							BgL_endz00_3644 =
								BINT(STRING_LENGTH(((obj_t) BgL_stringz00_3642)));
							{	/* Ast/alphatize.scm 14 */

								BgL_cportz00_3635 =
									BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
									(BgL_stringz00_3642, BgL_startz00_3643, BgL_endz00_3644);
				}}}}
				{
					long BgL_iz00_3636;

					BgL_iz00_3636 = 7L;
				BgL_loopz00_3637:
					if ((BgL_iz00_3636 == -1L))
						{	/* Ast/alphatize.scm 14 */
							return BUNSPEC;
						}
					else
						{	/* Ast/alphatize.scm 14 */
							{	/* Ast/alphatize.scm 14 */
								obj_t BgL_arg2196z00_3638;

								{	/* Ast/alphatize.scm 14 */

									{	/* Ast/alphatize.scm 14 */
										obj_t BgL_locationz00_3640;

										BgL_locationz00_3640 = BBOOL(((bool_t) 0));
										{	/* Ast/alphatize.scm 14 */

											BgL_arg2196z00_3638 =
												BGl_readz00zz__readerz00(BgL_cportz00_3635,
												BgL_locationz00_3640);
										}
									}
								}
								{	/* Ast/alphatize.scm 14 */
									int BgL_tmpz00_4227;

									BgL_tmpz00_4227 = (int) (BgL_iz00_3636);
									CNST_TABLE_SET(BgL_tmpz00_4227, BgL_arg2196z00_3638);
							}}
							{	/* Ast/alphatize.scm 14 */
								int BgL_auxz00_3641;

								BgL_auxz00_3641 = (int) ((BgL_iz00_3636 - 1L));
								{
									long BgL_iz00_4232;

									BgL_iz00_4232 = (long) (BgL_auxz00_3641);
									BgL_iz00_3636 = BgL_iz00_4232;
									goto BgL_loopz00_3637;
								}
							}
						}
				}
			}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zzast_alphatiza7eza7(void)
	{
		{	/* Ast/alphatize.scm 14 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zzast_alphatiza7eza7(void)
	{
		{	/* Ast/alphatize.scm 14 */
			BGl_za2nozd2alphatiza7ezd2closureza2za7zzast_alphatiza7eza7 = BFALSE;
			return BUNSPEC;
		}

	}



/* append-21011 */
	obj_t BGl_appendzd221011zd2zzast_alphatiza7eza7(obj_t BgL_l1z00_1,
		obj_t BgL_l2z00_2)
	{
		{
			{
				obj_t BgL_headz00_1441;

				BgL_headz00_1441 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
				{
					obj_t BgL_prevz00_1442;
					obj_t BgL_tailz00_1443;

					BgL_prevz00_1442 = BgL_headz00_1441;
					BgL_tailz00_1443 = BgL_l1z00_1;
				BgL_loopz00_1444:
					if (PAIRP(BgL_tailz00_1443))
						{
							obj_t BgL_newzd2prevzd2_1446;

							BgL_newzd2prevzd2_1446 =
								MAKE_YOUNG_PAIR(CAR(BgL_tailz00_1443), BgL_l2z00_2);
							SET_CDR(BgL_prevz00_1442, BgL_newzd2prevzd2_1446);
							{
								obj_t BgL_tailz00_4242;
								obj_t BgL_prevz00_4241;

								BgL_prevz00_4241 = BgL_newzd2prevzd2_1446;
								BgL_tailz00_4242 = CDR(BgL_tailz00_1443);
								BgL_tailz00_1443 = BgL_tailz00_4242;
								BgL_prevz00_1442 = BgL_prevz00_4241;
								goto BgL_loopz00_1444;
							}
						}
					else
						{
							BNIL;
						}
					return CDR(BgL_headz00_1441);
				}
			}
		}

	}



/* alphatize */
	BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_alphatiza7eza7zzast_alphatiza7eza7(obj_t
		BgL_whatza2za2_17, obj_t BgL_byza2za2_18, obj_t BgL_locz00_19,
		BgL_nodez00_bglt BgL_nodez00_20)
	{
		{	/* Ast/alphatize.scm 41 */
			{
				obj_t BgL_ll1554z00_1462;
				obj_t BgL_ll1555z00_1463;

				BgL_ll1554z00_1462 = BgL_whatza2za2_17;
				BgL_ll1555z00_1463 = BgL_byza2za2_18;
			BgL_zc3z04anonymousza31691ze3z87_1464:
				if (NULLP(BgL_ll1554z00_1462))
					{	/* Ast/alphatize.scm 43 */
						((bool_t) 1);
					}
				else
					{	/* Ast/alphatize.scm 43 */
						{	/* Ast/alphatize.scm 44 */
							obj_t BgL_whatz00_1466;
							obj_t BgL_byz00_1467;

							BgL_whatz00_1466 = CAR(((obj_t) BgL_ll1554z00_1462));
							BgL_byz00_1467 = CAR(((obj_t) BgL_ll1555z00_1463));
							((((BgL_variablez00_bglt) COBJECT(
											((BgL_variablez00_bglt) BgL_whatz00_1466)))->
									BgL_fastzd2alphazd2) = ((obj_t) BgL_byz00_1467), BUNSPEC);
						}
						{	/* Ast/alphatize.scm 43 */
							obj_t BgL_arg1693z00_1468;
							obj_t BgL_arg1695z00_1469;

							BgL_arg1693z00_1468 = CDR(((obj_t) BgL_ll1554z00_1462));
							BgL_arg1695z00_1469 = CDR(((obj_t) BgL_ll1555z00_1463));
							{
								obj_t BgL_ll1555z00_4258;
								obj_t BgL_ll1554z00_4257;

								BgL_ll1554z00_4257 = BgL_arg1693z00_1468;
								BgL_ll1555z00_4258 = BgL_arg1695z00_1469;
								BgL_ll1555z00_1463 = BgL_ll1555z00_4258;
								BgL_ll1554z00_1462 = BgL_ll1554z00_4257;
								goto BgL_zc3z04anonymousza31691ze3z87_1464;
							}
						}
					}
			}
			{	/* Ast/alphatize.scm 47 */
				BgL_nodez00_bglt BgL_resz00_1471;

				BgL_resz00_1471 =
					BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_nodez00_20,
					BgL_locz00_19);
				{
					obj_t BgL_l1557z00_1473;

					BgL_l1557z00_1473 = BgL_whatza2za2_17;
				BgL_zc3z04anonymousza31696ze3z87_1474:
					if (PAIRP(BgL_l1557z00_1473))
						{	/* Ast/alphatize.scm 49 */
							{	/* Ast/alphatize.scm 50 */
								obj_t BgL_whatz00_1476;

								BgL_whatz00_1476 = CAR(BgL_l1557z00_1473);
								((((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt) BgL_whatz00_1476)))->
										BgL_fastzd2alphazd2) = ((obj_t) BUNSPEC), BUNSPEC);
							}
							{
								obj_t BgL_l1557z00_4265;

								BgL_l1557z00_4265 = CDR(BgL_l1557z00_1473);
								BgL_l1557z00_1473 = BgL_l1557z00_4265;
								goto BgL_zc3z04anonymousza31696ze3z87_1474;
							}
						}
					else
						{	/* Ast/alphatize.scm 49 */
							((bool_t) 1);
						}
				}
				return BgL_resz00_1471;
			}
		}

	}



/* &alphatize */
	BgL_nodez00_bglt BGl_z62alphatiza7ezc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3456, obj_t BgL_whatza2za2_3457, obj_t BgL_byza2za2_3458,
		obj_t BgL_locz00_3459, obj_t BgL_nodez00_3460)
	{
		{	/* Ast/alphatize.scm 41 */
			return
				BGl_alphatiza7eza7zzast_alphatiza7eza7(BgL_whatza2za2_3457,
				BgL_byza2za2_3458, BgL_locz00_3459,
				((BgL_nodez00_bglt) BgL_nodez00_3460));
		}

	}



/* alphatize-sans-closure */
	BGL_EXPORTED_DEF BgL_nodez00_bglt
		BGl_alphatiza7ezd2sanszd2closureza7zzast_alphatiza7eza7(obj_t
		BgL_whatza2za2_21, obj_t BgL_byza2za2_22, obj_t BgL_locz00_23,
		BgL_nodez00_bglt BgL_nodez00_24, BgL_variablez00_bglt BgL_closurez00_25)
	{
		{	/* Ast/alphatize.scm 62 */
			BGl_za2nozd2alphatiza7ezd2closureza2za7zzast_alphatiza7eza7 =
				((obj_t) BgL_closurez00_25);
			{	/* Ast/alphatize.scm 64 */
				obj_t BgL_exitd1112z00_2489;

				BgL_exitd1112z00_2489 = BGL_EXITD_TOP_AS_OBJ();
				{	/* Ast/alphatize.scm 64 */
					obj_t BgL_arg1820z00_2492;

					{	/* Ast/alphatize.scm 64 */
						obj_t BgL_arg1821z00_2493;

						BgL_arg1821z00_2493 = BGL_EXITD_PROTECT(BgL_exitd1112z00_2489);
						BgL_arg1820z00_2492 =
							MAKE_YOUNG_PAIR(BGl_proc2145z00zzast_alphatiza7eza7,
							BgL_arg1821z00_2493);
					}
					BGL_EXITD_PROTECT_SET(BgL_exitd1112z00_2489, BgL_arg1820z00_2492);
					BUNSPEC;
				}
				{	/* Ast/alphatize.scm 65 */
					BgL_nodez00_bglt BgL_tmp1114z00_2491;

					BgL_tmp1114z00_2491 =
						BGl_alphatiza7eza7zzast_alphatiza7eza7(BgL_whatza2za2_21,
						BgL_byza2za2_22, BgL_locz00_23, BgL_nodez00_24);
					{	/* Ast/alphatize.scm 64 */
						bool_t BgL_test2256z00_4275;

						{	/* Ast/alphatize.scm 64 */
							obj_t BgL_arg1819z00_2495;

							BgL_arg1819z00_2495 = BGL_EXITD_PROTECT(BgL_exitd1112z00_2489);
							BgL_test2256z00_4275 = PAIRP(BgL_arg1819z00_2495);
						}
						if (BgL_test2256z00_4275)
							{	/* Ast/alphatize.scm 64 */
								obj_t BgL_arg1817z00_2496;

								{	/* Ast/alphatize.scm 64 */
									obj_t BgL_arg1818z00_2497;

									BgL_arg1818z00_2497 =
										BGL_EXITD_PROTECT(BgL_exitd1112z00_2489);
									BgL_arg1817z00_2496 = CDR(((obj_t) BgL_arg1818z00_2497));
								}
								BGL_EXITD_PROTECT_SET(BgL_exitd1112z00_2489,
									BgL_arg1817z00_2496);
								BUNSPEC;
							}
						else
							{	/* Ast/alphatize.scm 64 */
								BFALSE;
							}
					}
					BGl_za2nozd2alphatiza7ezd2closureza2za7zzast_alphatiza7eza7 = BFALSE;
					return BgL_tmp1114z00_2491;
				}
			}
		}

	}



/* &alphatize-sans-closure */
	BgL_nodez00_bglt
		BGl_z62alphatiza7ezd2sanszd2closurezc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3462, obj_t BgL_whatza2za2_3463, obj_t BgL_byza2za2_3464,
		obj_t BgL_locz00_3465, obj_t BgL_nodez00_3466, obj_t BgL_closurez00_3467)
	{
		{	/* Ast/alphatize.scm 62 */
			return
				BGl_alphatiza7ezd2sanszd2closureza7zzast_alphatiza7eza7
				(BgL_whatza2za2_3463, BgL_byza2za2_3464, BgL_locz00_3465,
				((BgL_nodez00_bglt) BgL_nodez00_3466),
				((BgL_variablez00_bglt) BgL_closurez00_3467));
		}

	}



/* &<@anonymous:1699> */
	obj_t BGl_z62zc3z04anonymousza31699ze3ze5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3468)
	{
		{	/* Ast/alphatize.scm 64 */
			return (BGl_za2nozd2alphatiza7ezd2closureza2za7zzast_alphatiza7eza7 =
				BFALSE, BUNSPEC);
		}

	}



/* get-location */
	obj_t BGl_getzd2locationzd2zzast_alphatiza7eza7(BgL_nodez00_bglt
		BgL_nodez00_26, obj_t BgL_locz00_27)
	{
		{	/* Ast/alphatize.scm 80 */
			{	/* Ast/alphatize.scm 82 */
				bool_t BgL_test2257z00_4285;

				{	/* Ast/alphatize.scm 82 */
					obj_t BgL_arg1730z00_1494;

					BgL_arg1730z00_1494 =
						(((BgL_nodez00_bglt) COBJECT(BgL_nodez00_26))->BgL_locz00);
					if (STRUCTP(BgL_arg1730z00_1494))
						{	/* Ast/alphatize.scm 82 */
							BgL_test2257z00_4285 =
								(STRUCT_KEY(BgL_arg1730z00_1494) == CNST_TABLE_REF(0L));
						}
					else
						{	/* Ast/alphatize.scm 82 */
							BgL_test2257z00_4285 = ((bool_t) 0);
						}
				}
				if (BgL_test2257z00_4285)
					{	/* Ast/alphatize.scm 84 */
						bool_t BgL_test2259z00_4292;

						if (STRUCTP(BgL_locz00_27))
							{	/* Ast/alphatize.scm 84 */
								BgL_test2259z00_4292 =
									(STRUCT_KEY(BgL_locz00_27) == CNST_TABLE_REF(0L));
							}
						else
							{	/* Ast/alphatize.scm 84 */
								BgL_test2259z00_4292 = ((bool_t) 0);
							}
						if (BgL_test2259z00_4292)
							{	/* Ast/alphatize.scm 86 */
								bool_t BgL_test2261z00_4298;

								{	/* Ast/alphatize.scm 86 */
									obj_t BgL_arg1717z00_1491;
									obj_t BgL_arg1718z00_1492;

									BgL_arg1717z00_1491 =
										STRUCT_REF(
										(((BgL_nodez00_bglt) COBJECT(BgL_nodez00_26))->BgL_locz00),
										(int) (0L));
									BgL_arg1718z00_1492 = STRUCT_REF(BgL_locz00_27, (int) (0L));
									{	/* Ast/alphatize.scm 86 */
										long BgL_l1z00_2513;

										BgL_l1z00_2513 =
											STRING_LENGTH(((obj_t) BgL_arg1717z00_1491));
										if (
											(BgL_l1z00_2513 ==
												STRING_LENGTH(((obj_t) BgL_arg1718z00_1492))))
											{	/* Ast/alphatize.scm 86 */
												int BgL_arg1303z00_2516;

												{	/* Ast/alphatize.scm 86 */
													char *BgL_auxz00_4313;
													char *BgL_tmpz00_4310;

													BgL_auxz00_4313 =
														BSTRING_TO_STRING(((obj_t) BgL_arg1718z00_1492));
													BgL_tmpz00_4310 =
														BSTRING_TO_STRING(((obj_t) BgL_arg1717z00_1491));
													BgL_arg1303z00_2516 =
														memcmp(BgL_tmpz00_4310, BgL_auxz00_4313,
														BgL_l1z00_2513);
												}
												BgL_test2261z00_4298 =
													((long) (BgL_arg1303z00_2516) == 0L);
											}
										else
											{	/* Ast/alphatize.scm 86 */
												BgL_test2261z00_4298 = ((bool_t) 0);
											}
									}
								}
								if (BgL_test2261z00_4298)
									{	/* Ast/alphatize.scm 86 */
										return
											(((BgL_nodez00_bglt) COBJECT(BgL_nodez00_26))->
											BgL_locz00);
									}
								else
									{	/* Ast/alphatize.scm 86 */
										return BgL_locz00_27;
									}
							}
						else
							{	/* Ast/alphatize.scm 84 */
								return
									(((BgL_nodez00_bglt) COBJECT(BgL_nodez00_26))->BgL_locz00);
							}
					}
				else
					{	/* Ast/alphatize.scm 82 */
						return BgL_locz00_27;
					}
			}
		}

	}



/* do-alphatize* */
	obj_t BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7(obj_t BgL_nodesz00_28,
		obj_t BgL_locz00_29)
	{
		{	/* Ast/alphatize.scm 94 */
			if (NULLP(BgL_nodesz00_28))
				{	/* Ast/alphatize.scm 95 */
					return BNIL;
				}
			else
				{	/* Ast/alphatize.scm 95 */
					obj_t BgL_head1561z00_1497;

					BgL_head1561z00_1497 = MAKE_YOUNG_PAIR(BNIL, BNIL);
					{
						obj_t BgL_l1559z00_1499;
						obj_t BgL_tail1562z00_1500;

						BgL_l1559z00_1499 = BgL_nodesz00_28;
						BgL_tail1562z00_1500 = BgL_head1561z00_1497;
					BgL_zc3z04anonymousza31733ze3z87_1501:
						if (NULLP(BgL_l1559z00_1499))
							{	/* Ast/alphatize.scm 95 */
								return CDR(BgL_head1561z00_1497);
							}
						else
							{	/* Ast/alphatize.scm 95 */
								obj_t BgL_newtail1563z00_1503;

								{	/* Ast/alphatize.scm 95 */
									BgL_nodez00_bglt BgL_arg1736z00_1505;

									{	/* Ast/alphatize.scm 95 */
										obj_t BgL_nodez00_1506;

										BgL_nodez00_1506 = CAR(((obj_t) BgL_l1559z00_1499));
										BgL_arg1736z00_1505 =
											BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
											((BgL_nodez00_bglt) BgL_nodez00_1506), BgL_locz00_29);
									}
									BgL_newtail1563z00_1503 =
										MAKE_YOUNG_PAIR(((obj_t) BgL_arg1736z00_1505), BNIL);
								}
								SET_CDR(BgL_tail1562z00_1500, BgL_newtail1563z00_1503);
								{	/* Ast/alphatize.scm 95 */
									obj_t BgL_arg1735z00_1504;

									BgL_arg1735z00_1504 = CDR(((obj_t) BgL_l1559z00_1499));
									{
										obj_t BgL_tail1562z00_4337;
										obj_t BgL_l1559z00_4336;

										BgL_l1559z00_4336 = BgL_arg1735z00_1504;
										BgL_tail1562z00_4337 = BgL_newtail1563z00_1503;
										BgL_tail1562z00_1500 = BgL_tail1562z00_4337;
										BgL_l1559z00_1499 = BgL_l1559z00_4336;
										goto BgL_zc3z04anonymousza31733ze3z87_1501;
									}
								}
							}
					}
				}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zzast_alphatiza7eza7(void)
	{
		{	/* Ast/alphatize.scm 14 */
			{	/* Ast/alphatize.scm 26 */
				obj_t BgL_arg1747z00_1512;
				obj_t BgL_arg1748z00_1513;

				{	/* Ast/alphatize.scm 26 */
					obj_t BgL_v1599z00_1538;

					BgL_v1599z00_1538 = create_vector(1L);
					{	/* Ast/alphatize.scm 26 */
						obj_t BgL_arg1768z00_1539;

						BgL_arg1768z00_1539 =
							BGl_makezd2classzd2fieldz00zz__objectz00(CNST_TABLE_REF(1L),
							BGl_proc2147z00zzast_alphatiza7eza7,
							BGl_proc2146z00zzast_alphatiza7eza7, ((bool_t) 0), ((bool_t) 0),
							BFALSE, BFALSE, BGl_retblockz00zzast_nodez00);
						VECTOR_SET(BgL_v1599z00_1538, 0L, BgL_arg1768z00_1539);
					}
					BgL_arg1747z00_1512 = BgL_v1599z00_1538;
				}
				{	/* Ast/alphatize.scm 26 */
					obj_t BgL_v1600z00_1549;

					BgL_v1600z00_1549 = create_vector(0L);
					BgL_arg1748z00_1513 = BgL_v1600z00_1549;
				}
				return (BGl_retblockzf2alphazf2zzast_alphatiza7eza7 =
					BGl_registerzd2classz12zc0zz__objectz00(CNST_TABLE_REF(2L),
						CNST_TABLE_REF(3L), BGl_retblockz00zzast_nodez00, 248L,
						BGl_proc2151z00zzast_alphatiza7eza7,
						BGl_proc2150z00zzast_alphatiza7eza7, BFALSE,
						BGl_proc2149z00zzast_alphatiza7eza7,
						BGl_proc2148z00zzast_alphatiza7eza7, BgL_arg1747z00_1512,
						BgL_arg1748z00_1513), BUNSPEC);
			}
		}

	}



/* &lambda1755 */
	BgL_retblockz00_bglt BGl_z62lambda1755z62zzast_alphatiza7eza7(obj_t
		BgL_envz00_3475, obj_t BgL_o1111z00_3476)
	{
		{	/* Ast/alphatize.scm 26 */
			{	/* Ast/alphatize.scm 26 */
				long BgL_arg1759z00_3647;

				{	/* Ast/alphatize.scm 26 */
					obj_t BgL_arg1760z00_3648;

					{	/* Ast/alphatize.scm 26 */
						obj_t BgL_arg1763z00_3649;

						{	/* Ast/alphatize.scm 26 */
							long BgL_arg1808z00_3650;

							{	/* Ast/alphatize.scm 26 */
								long BgL_arg1809z00_3651;

								BgL_arg1809z00_3651 =
									BGL_OBJECT_CLASS_NUM(
									((BgL_objectz00_bglt)
										((BgL_retblockz00_bglt) BgL_o1111z00_3476)));
								BgL_arg1808z00_3650 = (BgL_arg1809z00_3651 - OBJECT_TYPE);
							}
							BgL_arg1763z00_3649 =
								VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
								BgL_arg1808z00_3650);
						}
						BgL_arg1760z00_3648 =
							BGl_classzd2superzd2zz__objectz00(BgL_arg1763z00_3649);
					}
					{	/* Ast/alphatize.scm 26 */
						obj_t BgL_tmpz00_4352;

						BgL_tmpz00_4352 = ((obj_t) BgL_arg1760z00_3648);
						BgL_arg1759z00_3647 = BGL_CLASS_NUM(BgL_tmpz00_4352);
				}}
				BGL_OBJECT_CLASS_NUM_SET(
					((BgL_objectz00_bglt)
						((BgL_retblockz00_bglt) BgL_o1111z00_3476)), BgL_arg1759z00_3647);
			}
			{	/* Ast/alphatize.scm 26 */
				BgL_objectz00_bglt BgL_tmpz00_4358;

				BgL_tmpz00_4358 =
					((BgL_objectz00_bglt) ((BgL_retblockz00_bglt) BgL_o1111z00_3476));
				BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4358, BFALSE);
			}
			((BgL_objectz00_bglt) ((BgL_retblockz00_bglt) BgL_o1111z00_3476));
			return
				((BgL_retblockz00_bglt) ((BgL_retblockz00_bglt) BgL_o1111z00_3476));
		}

	}



/* &<@anonymous:1754> */
	obj_t BGl_z62zc3z04anonymousza31754ze3ze5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3477, obj_t BgL_new1110z00_3478)
	{
		{	/* Ast/alphatize.scm 26 */
			{
				BgL_retblockz00_bglt BgL_auxz00_4366;

				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_retblockz00_bglt) BgL_new1110z00_3478))))->BgL_locz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				{
					BgL_typez00_bglt BgL_auxz00_4370;

					{	/* Ast/alphatize.scm 26 */
						obj_t BgL_classz00_3653;

						BgL_classz00_3653 = BGl_typez00zztype_typez00;
						{	/* Ast/alphatize.scm 26 */
							obj_t BgL__ortest_1117z00_3654;

							BgL__ortest_1117z00_3654 = BGL_CLASS_NIL(BgL_classz00_3653);
							if (CBOOL(BgL__ortest_1117z00_3654))
								{	/* Ast/alphatize.scm 26 */
									BgL_auxz00_4370 =
										((BgL_typez00_bglt) BgL__ortest_1117z00_3654);
								}
							else
								{	/* Ast/alphatize.scm 26 */
									BgL_auxz00_4370 =
										((BgL_typez00_bglt)
										BGl_classzd2nilzd2initz12z12zz__objectz00
										(BgL_classz00_3653));
								}
						}
					}
					((((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt)
										((BgL_retblockz00_bglt) BgL_new1110z00_3478))))->
							BgL_typez00) = ((BgL_typez00_bglt) BgL_auxz00_4370), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_4380;

					{	/* Ast/alphatize.scm 26 */
						obj_t BgL_classz00_3655;

						BgL_classz00_3655 = BGl_nodez00zzast_nodez00;
						{	/* Ast/alphatize.scm 26 */
							obj_t BgL__ortest_1117z00_3656;

							BgL__ortest_1117z00_3656 = BGL_CLASS_NIL(BgL_classz00_3655);
							if (CBOOL(BgL__ortest_1117z00_3656))
								{	/* Ast/alphatize.scm 26 */
									BgL_auxz00_4380 =
										((BgL_nodez00_bglt) BgL__ortest_1117z00_3656);
								}
							else
								{	/* Ast/alphatize.scm 26 */
									BgL_auxz00_4380 =
										((BgL_nodez00_bglt)
										BGl_classzd2nilzd2initz12z12zz__objectz00
										(BgL_classz00_3655));
								}
						}
					}
					((((BgL_retblockz00_bglt) COBJECT(
									((BgL_retblockz00_bglt)
										((BgL_retblockz00_bglt) BgL_new1110z00_3478))))->
							BgL_bodyz00) = ((BgL_nodez00_bglt) BgL_auxz00_4380), BUNSPEC);
				}
				{
					BgL_retblockz00_bglt BgL_auxz00_4397;
					BgL_retblockzf2alphazf2_bglt BgL_auxz00_4390;

					{	/* Ast/alphatize.scm 26 */
						obj_t BgL_classz00_3657;

						BgL_classz00_3657 = BGl_retblockz00zzast_nodez00;
						{	/* Ast/alphatize.scm 26 */
							obj_t BgL__ortest_1117z00_3658;

							BgL__ortest_1117z00_3658 = BGL_CLASS_NIL(BgL_classz00_3657);
							if (CBOOL(BgL__ortest_1117z00_3658))
								{	/* Ast/alphatize.scm 26 */
									BgL_auxz00_4397 =
										((BgL_retblockz00_bglt) BgL__ortest_1117z00_3658);
								}
							else
								{	/* Ast/alphatize.scm 26 */
									BgL_auxz00_4397 =
										((BgL_retblockz00_bglt)
										BGl_classzd2nilzd2initz12z12zz__objectz00
										(BgL_classz00_3657));
								}
						}
					}
					{
						obj_t BgL_auxz00_4391;

						{	/* Ast/alphatize.scm 26 */
							BgL_objectz00_bglt BgL_tmpz00_4392;

							BgL_tmpz00_4392 =
								((BgL_objectz00_bglt)
								((BgL_retblockz00_bglt) BgL_new1110z00_3478));
							BgL_auxz00_4391 = BGL_OBJECT_WIDENING(BgL_tmpz00_4392);
						}
						BgL_auxz00_4390 = ((BgL_retblockzf2alphazf2_bglt) BgL_auxz00_4391);
					}
					((((BgL_retblockzf2alphazf2_bglt) COBJECT(BgL_auxz00_4390))->
							BgL_alphaz00) =
						((BgL_retblockz00_bglt) BgL_auxz00_4397), BUNSPEC);
				}
				BgL_auxz00_4366 = ((BgL_retblockz00_bglt) BgL_new1110z00_3478);
				return ((obj_t) BgL_auxz00_4366);
			}
		}

	}



/* &lambda1752 */
	BgL_retblockz00_bglt BGl_z62lambda1752z62zzast_alphatiza7eza7(obj_t
		BgL_envz00_3479, obj_t BgL_o1107z00_3480)
	{
		{	/* Ast/alphatize.scm 26 */
			{	/* Ast/alphatize.scm 26 */
				BgL_retblockzf2alphazf2_bglt BgL_wide1109z00_3660;

				BgL_wide1109z00_3660 =
					((BgL_retblockzf2alphazf2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_retblockzf2alphazf2_bgl))));
				{	/* Ast/alphatize.scm 26 */
					obj_t BgL_auxz00_4412;
					BgL_objectz00_bglt BgL_tmpz00_4408;

					BgL_auxz00_4412 = ((obj_t) BgL_wide1109z00_3660);
					BgL_tmpz00_4408 =
						((BgL_objectz00_bglt)
						((BgL_retblockz00_bglt)
							((BgL_retblockz00_bglt) BgL_o1107z00_3480)));
					BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4408, BgL_auxz00_4412);
				}
				((BgL_objectz00_bglt)
					((BgL_retblockz00_bglt) ((BgL_retblockz00_bglt) BgL_o1107z00_3480)));
				{	/* Ast/alphatize.scm 26 */
					long BgL_arg1753z00_3661;

					BgL_arg1753z00_3661 =
						BGL_CLASS_NUM(BGl_retblockzf2alphazf2zzast_alphatiza7eza7);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt)
							((BgL_retblockz00_bglt)
								((BgL_retblockz00_bglt) BgL_o1107z00_3480))),
						BgL_arg1753z00_3661);
				}
				return
					((BgL_retblockz00_bglt)
					((BgL_retblockz00_bglt) ((BgL_retblockz00_bglt) BgL_o1107z00_3480)));
			}
		}

	}



/* &lambda1749 */
	BgL_retblockz00_bglt BGl_z62lambda1749z62zzast_alphatiza7eza7(obj_t
		BgL_envz00_3481, obj_t BgL_loc1103z00_3482, obj_t BgL_type1104z00_3483,
		obj_t BgL_body1105z00_3484, obj_t BgL_alpha1106z00_3485)
	{
		{	/* Ast/alphatize.scm 26 */
			{	/* Ast/alphatize.scm 26 */
				BgL_retblockz00_bglt BgL_new1446z00_3665;

				{	/* Ast/alphatize.scm 26 */
					BgL_retblockz00_bglt BgL_tmp1444z00_3666;
					BgL_retblockzf2alphazf2_bglt BgL_wide1445z00_3667;

					{
						BgL_retblockz00_bglt BgL_auxz00_4426;

						{	/* Ast/alphatize.scm 26 */
							BgL_retblockz00_bglt BgL_new1443z00_3668;

							BgL_new1443z00_3668 =
								((BgL_retblockz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_retblockz00_bgl))));
							{	/* Ast/alphatize.scm 26 */
								long BgL_arg1751z00_3669;

								BgL_arg1751z00_3669 =
									BGL_CLASS_NUM(BGl_retblockz00zzast_nodez00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1443z00_3668),
									BgL_arg1751z00_3669);
							}
							{	/* Ast/alphatize.scm 26 */
								BgL_objectz00_bglt BgL_tmpz00_4431;

								BgL_tmpz00_4431 = ((BgL_objectz00_bglt) BgL_new1443z00_3668);
								BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4431, BFALSE);
							}
							((BgL_objectz00_bglt) BgL_new1443z00_3668);
							BgL_auxz00_4426 = BgL_new1443z00_3668;
						}
						BgL_tmp1444z00_3666 = ((BgL_retblockz00_bglt) BgL_auxz00_4426);
					}
					BgL_wide1445z00_3667 =
						((BgL_retblockzf2alphazf2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_retblockzf2alphazf2_bgl))));
					{	/* Ast/alphatize.scm 26 */
						obj_t BgL_auxz00_4439;
						BgL_objectz00_bglt BgL_tmpz00_4437;

						BgL_auxz00_4439 = ((obj_t) BgL_wide1445z00_3667);
						BgL_tmpz00_4437 = ((BgL_objectz00_bglt) BgL_tmp1444z00_3666);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4437, BgL_auxz00_4439);
					}
					((BgL_objectz00_bglt) BgL_tmp1444z00_3666);
					{	/* Ast/alphatize.scm 26 */
						long BgL_arg1750z00_3670;

						BgL_arg1750z00_3670 =
							BGL_CLASS_NUM(BGl_retblockzf2alphazf2zzast_alphatiza7eza7);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_tmp1444z00_3666), BgL_arg1750z00_3670);
					}
					BgL_new1446z00_3665 = ((BgL_retblockz00_bglt) BgL_tmp1444z00_3666);
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1446z00_3665)))->BgL_locz00) =
					((obj_t) BgL_loc1103z00_3482), BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1446z00_3665)))->BgL_typez00) =
					((BgL_typez00_bglt) ((BgL_typez00_bglt) BgL_type1104z00_3483)),
					BUNSPEC);
				((((BgL_retblockz00_bglt) COBJECT(((BgL_retblockz00_bglt)
									BgL_new1446z00_3665)))->BgL_bodyz00) =
					((BgL_nodez00_bglt) ((BgL_nodez00_bglt) BgL_body1105z00_3484)),
					BUNSPEC);
				{
					BgL_retblockzf2alphazf2_bglt BgL_auxz00_4455;

					{
						obj_t BgL_auxz00_4456;

						{	/* Ast/alphatize.scm 26 */
							BgL_objectz00_bglt BgL_tmpz00_4457;

							BgL_tmpz00_4457 = ((BgL_objectz00_bglt) BgL_new1446z00_3665);
							BgL_auxz00_4456 = BGL_OBJECT_WIDENING(BgL_tmpz00_4457);
						}
						BgL_auxz00_4455 = ((BgL_retblockzf2alphazf2_bglt) BgL_auxz00_4456);
					}
					((((BgL_retblockzf2alphazf2_bglt) COBJECT(BgL_auxz00_4455))->
							BgL_alphaz00) =
						((BgL_retblockz00_bglt) ((BgL_retblockz00_bglt)
								BgL_alpha1106z00_3485)), BUNSPEC);
				}
				return BgL_new1446z00_3665;
			}
		}

	}



/* &lambda1775 */
	obj_t BGl_z62lambda1775z62zzast_alphatiza7eza7(obj_t BgL_envz00_3486,
		obj_t BgL_oz00_3487, obj_t BgL_vz00_3488)
	{
		{	/* Ast/alphatize.scm 26 */
			{
				BgL_retblockzf2alphazf2_bglt BgL_auxz00_4463;

				{
					obj_t BgL_auxz00_4464;

					{	/* Ast/alphatize.scm 26 */
						BgL_objectz00_bglt BgL_tmpz00_4465;

						BgL_tmpz00_4465 =
							((BgL_objectz00_bglt) ((BgL_retblockz00_bglt) BgL_oz00_3487));
						BgL_auxz00_4464 = BGL_OBJECT_WIDENING(BgL_tmpz00_4465);
					}
					BgL_auxz00_4463 = ((BgL_retblockzf2alphazf2_bglt) BgL_auxz00_4464);
				}
				return
					((((BgL_retblockzf2alphazf2_bglt) COBJECT(BgL_auxz00_4463))->
						BgL_alphaz00) =
					((BgL_retblockz00_bglt) ((BgL_retblockz00_bglt) BgL_vz00_3488)),
					BUNSPEC);
			}
		}

	}



/* &lambda1774 */
	BgL_retblockz00_bglt BGl_z62lambda1774z62zzast_alphatiza7eza7(obj_t
		BgL_envz00_3489, obj_t BgL_oz00_3490)
	{
		{	/* Ast/alphatize.scm 26 */
			{
				BgL_retblockzf2alphazf2_bglt BgL_auxz00_4472;

				{
					obj_t BgL_auxz00_4473;

					{	/* Ast/alphatize.scm 26 */
						BgL_objectz00_bglt BgL_tmpz00_4474;

						BgL_tmpz00_4474 =
							((BgL_objectz00_bglt) ((BgL_retblockz00_bglt) BgL_oz00_3490));
						BgL_auxz00_4473 = BGL_OBJECT_WIDENING(BgL_tmpz00_4474);
					}
					BgL_auxz00_4472 = ((BgL_retblockzf2alphazf2_bglt) BgL_auxz00_4473);
				}
				return
					(((BgL_retblockzf2alphazf2_bglt) COBJECT(BgL_auxz00_4472))->
					BgL_alphaz00);
			}
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zzast_alphatiza7eza7(void)
	{
		{	/* Ast/alphatize.scm 14 */
			return
				BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_proc2152z00zzast_alphatiza7eza7, BGl_nodez00zzast_nodez00,
				BGl_string2153z00zzast_alphatiza7eza7);
		}

	}



/* &do-alphatize1601 */
	obj_t BGl_z62dozd2alphatiza7e1601z17zzast_alphatiza7eza7(obj_t
		BgL_envz00_3492, obj_t BgL_nodez00_3493, obj_t BgL_locz00_3494)
	{
		{	/* Ast/alphatize.scm 100 */
			return
				BGl_errorz00zz__errorz00(CNST_TABLE_REF(4L),
				BGl_string2154z00zzast_alphatiza7eza7,
				((obj_t) ((BgL_nodez00_bglt) BgL_nodez00_3493)));
		}

	}



/* do-alphatize */
	BgL_nodez00_bglt BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_nodez00_bglt
		BgL_nodez00_30, obj_t BgL_locz00_31)
	{
		{	/* Ast/alphatize.scm 100 */
			{	/* Ast/alphatize.scm 100 */
				obj_t BgL_method1602z00_1559;

				{	/* Ast/alphatize.scm 100 */
					obj_t BgL_res2125z00_2593;

					{	/* Ast/alphatize.scm 100 */
						long BgL_objzd2classzd2numz00_2564;

						BgL_objzd2classzd2numz00_2564 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_nodez00_30));
						{	/* Ast/alphatize.scm 100 */
							obj_t BgL_arg1805z00_2565;

							BgL_arg1805z00_2565 =
								PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
								(int) (1L));
							{	/* Ast/alphatize.scm 100 */
								int BgL_offsetz00_2568;

								BgL_offsetz00_2568 = (int) (BgL_objzd2classzd2numz00_2564);
								{	/* Ast/alphatize.scm 100 */
									long BgL_offsetz00_2569;

									BgL_offsetz00_2569 =
										((long) (BgL_offsetz00_2568) - OBJECT_TYPE);
									{	/* Ast/alphatize.scm 100 */
										long BgL_modz00_2570;

										BgL_modz00_2570 =
											(BgL_offsetz00_2569 >> (int) ((long) ((int) (4L))));
										{	/* Ast/alphatize.scm 100 */
											long BgL_restz00_2572;

											BgL_restz00_2572 =
												(BgL_offsetz00_2569 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Ast/alphatize.scm 100 */

												{	/* Ast/alphatize.scm 100 */
													obj_t BgL_bucketz00_2574;

													BgL_bucketz00_2574 =
														VECTOR_REF(
														((obj_t) BgL_arg1805z00_2565), BgL_modz00_2570);
													BgL_res2125z00_2593 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_2574), BgL_restz00_2572);
					}}}}}}}}
					BgL_method1602z00_1559 = BgL_res2125z00_2593;
				}
				return
					((BgL_nodez00_bglt)
					(VA_PROCEDUREP(BgL_method1602z00_1559) ? ((obj_t(*)(obj_t,
									...))
							PROCEDURE_ENTRY(BgL_method1602z00_1559)) (BgL_method1602z00_1559,
							((obj_t) BgL_nodez00_30), BgL_locz00_31, BEOA) : ((obj_t(*)(obj_t,
									obj_t,
									obj_t))
							PROCEDURE_ENTRY(BgL_method1602z00_1559)) (BgL_method1602z00_1559,
							((obj_t) BgL_nodez00_30), BgL_locz00_31)));
			}
		}

	}



/* &do-alphatize */
	BgL_nodez00_bglt BGl_z62dozd2alphatiza7ez17zzast_alphatiza7eza7(obj_t
		BgL_envz00_3495, obj_t BgL_nodez00_3496, obj_t BgL_locz00_3497)
	{
		{	/* Ast/alphatize.scm 100 */
			return
				BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
				((BgL_nodez00_bglt) BgL_nodez00_3496), BgL_locz00_3497);
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zzast_alphatiza7eza7(void)
	{
		{	/* Ast/alphatize.scm 14 */
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_literalz00zzast_nodez00, BGl_proc2155z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_patchz00zzast_nodez00, BGl_proc2157z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_varz00zzast_nodez00, BGl_proc2158z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_closurez00zzast_nodez00, BGl_proc2159z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_kwotez00zzast_nodez00, BGl_proc2160z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_sequencez00zzast_nodez00, BGl_proc2161z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_syncz00zzast_nodez00, BGl_proc2162z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_appz00zzast_nodez00, BGl_proc2163z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_appzd2lyzd2zzast_nodez00, BGl_proc2164z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_funcallz00zzast_nodez00, BGl_proc2165z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_pragmaz00zzast_nodez00, BGl_proc2166z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_castzd2nullzd2zzast_nodez00, BGl_proc2167z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_getfieldz00zzast_nodez00, BGl_proc2168z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_setfieldz00zzast_nodez00, BGl_proc2169z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_newz00zzast_nodez00, BGl_proc2170z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_vlengthz00zzast_nodez00, BGl_proc2171z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_vrefz00zzast_nodez00, BGl_proc2172z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_vsetz12z12zzast_nodez00, BGl_proc2173z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_vallocz00zzast_nodez00, BGl_proc2174z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_instanceofz00zzast_nodez00, BGl_proc2175z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_castz00zzast_nodez00, BGl_proc2176z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_setqz00zzast_nodez00, BGl_proc2177z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_conditionalz00zzast_nodez00, BGl_proc2178z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_failz00zzast_nodez00, BGl_proc2179z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_switchz00zzast_nodez00, BGl_proc2180z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_makezd2boxzd2zzast_nodez00, BGl_proc2181z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_boxzd2refzd2zzast_nodez00, BGl_proc2182z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc2183z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_letzd2funzd2zzast_nodez00, BGl_proc2184z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_letzd2varzd2zzast_nodez00, BGl_proc2185z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc2186z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc2187z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_retblockz00zzast_nodez00, BGl_proc2188z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
			return
				BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7,
				BGl_returnz00zzast_nodez00, BGl_proc2189z00zzast_alphatiza7eza7,
				BGl_string2156z00zzast_alphatiza7eza7);
		}

	}



/* &do-alphatize-return1670 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2return1670zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3532, obj_t BgL_nodez00_3533, obj_t BgL_locz00_3534)
	{
		{	/* Ast/alphatize.scm 541 */
			{	/* Ast/alphatize.scm 543 */
				bool_t BgL_test2268z00_4553;

				{	/* Ast/alphatize.scm 543 */
					BgL_retblockz00_bglt BgL_arg2057z00_3676;

					BgL_arg2057z00_3676 =
						(((BgL_returnz00_bglt) COBJECT(
								((BgL_returnz00_bglt) BgL_nodez00_3533)))->BgL_blockz00);
					{	/* Ast/alphatize.scm 543 */
						obj_t BgL_classz00_3677;

						BgL_classz00_3677 = BGl_retblockzf2alphazf2zzast_alphatiza7eza7;
						{	/* Ast/alphatize.scm 543 */
							obj_t BgL_oclassz00_3678;

							{	/* Ast/alphatize.scm 543 */
								long BgL_arg1808z00_3679;

								{	/* Ast/alphatize.scm 543 */
									long BgL_arg1809z00_3680;

									BgL_arg1809z00_3680 =
										BGL_OBJECT_CLASS_NUM(
										((BgL_objectz00_bglt) BgL_arg2057z00_3676));
									BgL_arg1808z00_3679 = (BgL_arg1809z00_3680 - OBJECT_TYPE);
								}
								BgL_oclassz00_3678 =
									VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
									BgL_arg1808z00_3679);
							}
							BgL_test2268z00_4553 = (BgL_oclassz00_3678 == BgL_classz00_3677);
				}}}
				if (BgL_test2268z00_4553)
					{	/* Ast/alphatize.scm 544 */
						BgL_retblockz00_bglt BgL_i1434z00_3681;

						BgL_i1434z00_3681 =
							((BgL_retblockz00_bglt)
							(((BgL_returnz00_bglt) COBJECT(
										((BgL_returnz00_bglt) BgL_nodez00_3533)))->BgL_blockz00));
						{	/* Ast/alphatize.scm 545 */
							BgL_returnz00_bglt BgL_new1435z00_3682;

							{	/* Ast/alphatize.scm 545 */
								BgL_returnz00_bglt BgL_new1438z00_3683;

								BgL_new1438z00_3683 =
									((BgL_returnz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_returnz00_bgl))));
								{	/* Ast/alphatize.scm 545 */
									long BgL_arg2053z00_3684;

									BgL_arg2053z00_3684 =
										BGL_CLASS_NUM(BGl_returnz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1438z00_3683),
										BgL_arg2053z00_3684);
								}
								{	/* Ast/alphatize.scm 545 */
									BgL_objectz00_bglt BgL_tmpz00_4568;

									BgL_tmpz00_4568 = ((BgL_objectz00_bglt) BgL_new1438z00_3683);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4568, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1438z00_3683);
								BgL_new1435z00_3682 = BgL_new1438z00_3683;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1435z00_3682)))->BgL_locz00) =
								((obj_t) (((BgL_nodez00_bglt)
											COBJECT(((BgL_nodez00_bglt) ((BgL_returnz00_bglt)
														BgL_nodez00_3533))))->BgL_locz00)), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1435z00_3682)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_nodez00_bglt)
											COBJECT(((BgL_nodez00_bglt) ((BgL_returnz00_bglt)
														BgL_nodez00_3533))))->BgL_typez00)), BUNSPEC);
							{
								BgL_retblockz00_bglt BgL_auxz00_4582;

								{
									BgL_retblockzf2alphazf2_bglt BgL_auxz00_4583;

									{
										obj_t BgL_auxz00_4584;

										{	/* Ast/alphatize.scm 546 */
											BgL_objectz00_bglt BgL_tmpz00_4585;

											BgL_tmpz00_4585 =
												((BgL_objectz00_bglt) BgL_i1434z00_3681);
											BgL_auxz00_4584 = BGL_OBJECT_WIDENING(BgL_tmpz00_4585);
										}
										BgL_auxz00_4583 =
											((BgL_retblockzf2alphazf2_bglt) BgL_auxz00_4584);
									}
									BgL_auxz00_4582 =
										(((BgL_retblockzf2alphazf2_bglt) COBJECT(BgL_auxz00_4583))->
										BgL_alphaz00);
								}
								((((BgL_returnz00_bglt) COBJECT(BgL_new1435z00_3682))->
										BgL_blockz00) =
									((BgL_retblockz00_bglt) BgL_auxz00_4582), BUNSPEC);
							}
							{
								BgL_nodez00_bglt BgL_auxz00_4591;

								{	/* Ast/alphatize.scm 547 */
									BgL_nodez00_bglt BgL_arg2050z00_3685;
									obj_t BgL_arg2051z00_3686;

									BgL_arg2050z00_3685 =
										(((BgL_returnz00_bglt) COBJECT(
												((BgL_returnz00_bglt) BgL_nodez00_3533)))->
										BgL_valuez00);
									BgL_arg2051z00_3686 =
										(((BgL_nodez00_bglt)
											COBJECT(((BgL_nodez00_bglt) ((BgL_returnz00_bglt)
														BgL_nodez00_3533))))->BgL_locz00);
									BgL_auxz00_4591 =
										BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7
										(BgL_arg2050z00_3685, BgL_arg2051z00_3686);
								}
								((((BgL_returnz00_bglt) COBJECT(BgL_new1435z00_3682))->
										BgL_valuez00) =
									((BgL_nodez00_bglt) BgL_auxz00_4591), BUNSPEC);
							}
							return ((BgL_nodez00_bglt) BgL_new1435z00_3682);
						}
					}
				else
					{	/* Ast/alphatize.scm 548 */
						BgL_returnz00_bglt BgL_new1439z00_3687;

						{	/* Ast/alphatize.scm 548 */
							BgL_returnz00_bglt BgL_new1442z00_3688;

							BgL_new1442z00_3688 =
								((BgL_returnz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_returnz00_bgl))));
							{	/* Ast/alphatize.scm 548 */
								long BgL_arg2056z00_3689;

								BgL_arg2056z00_3689 = BGL_CLASS_NUM(BGl_returnz00zzast_nodez00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1442z00_3688),
									BgL_arg2056z00_3689);
							}
							{	/* Ast/alphatize.scm 548 */
								BgL_objectz00_bglt BgL_tmpz00_4604;

								BgL_tmpz00_4604 = ((BgL_objectz00_bglt) BgL_new1442z00_3688);
								BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4604, BFALSE);
							}
							((BgL_objectz00_bglt) BgL_new1442z00_3688);
							BgL_new1439z00_3687 = BgL_new1442z00_3688;
						}
						((((BgL_nodez00_bglt) COBJECT(
										((BgL_nodez00_bglt) BgL_new1439z00_3687)))->BgL_locz00) =
							((obj_t) (((BgL_nodez00_bglt)
										COBJECT(((BgL_nodez00_bglt) ((BgL_returnz00_bglt)
													BgL_nodez00_3533))))->BgL_locz00)), BUNSPEC);
						((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
											BgL_new1439z00_3687)))->BgL_typez00) =
							((BgL_typez00_bglt) (((BgL_nodez00_bglt)
										COBJECT(((BgL_nodez00_bglt) ((BgL_returnz00_bglt)
													BgL_nodez00_3533))))->BgL_typez00)), BUNSPEC);
						((((BgL_returnz00_bglt) COBJECT(BgL_new1439z00_3687))->
								BgL_blockz00) =
							((BgL_retblockz00_bglt) (((BgL_returnz00_bglt)
										COBJECT(((BgL_returnz00_bglt) BgL_nodez00_3533)))->
									BgL_blockz00)), BUNSPEC);
						{
							BgL_nodez00_bglt BgL_auxz00_4621;

							{	/* Ast/alphatize.scm 550 */
								BgL_nodez00_bglt BgL_arg2054z00_3690;
								obj_t BgL_arg2055z00_3691;

								BgL_arg2054z00_3690 =
									(((BgL_returnz00_bglt) COBJECT(
											((BgL_returnz00_bglt) BgL_nodez00_3533)))->BgL_valuez00);
								BgL_arg2055z00_3691 =
									(((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt)
												((BgL_returnz00_bglt) BgL_nodez00_3533))))->BgL_locz00);
								BgL_auxz00_4621 =
									BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7
									(BgL_arg2054z00_3690, BgL_arg2055z00_3691);
							}
							((((BgL_returnz00_bglt) COBJECT(BgL_new1439z00_3687))->
									BgL_valuez00) =
								((BgL_nodez00_bglt) BgL_auxz00_4621), BUNSPEC);
						}
						return ((BgL_nodez00_bglt) BgL_new1439z00_3687);
					}
			}
		}

	}



/* &do-alphatize-retbloc1668 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2retbloc1668zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3535, obj_t BgL_nodez00_3536, obj_t BgL_locz00_3537)
	{
		{	/* Ast/alphatize.scm 527 */
			{	/* Ast/alphatize.scm 529 */
				BgL_retblockz00_bglt BgL_resz00_3693;

				{	/* Ast/alphatize.scm 529 */
					BgL_retblockz00_bglt BgL_new1422z00_3694;

					{	/* Ast/alphatize.scm 529 */
						BgL_retblockz00_bglt BgL_new1426z00_3695;

						BgL_new1426z00_3695 =
							((BgL_retblockz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_retblockz00_bgl))));
						{	/* Ast/alphatize.scm 529 */
							long BgL_arg2047z00_3696;

							BgL_arg2047z00_3696 = BGL_CLASS_NUM(BGl_retblockz00zzast_nodez00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1426z00_3695),
								BgL_arg2047z00_3696);
						}
						{	/* Ast/alphatize.scm 529 */
							BgL_objectz00_bglt BgL_tmpz00_4634;

							BgL_tmpz00_4634 = ((BgL_objectz00_bglt) BgL_new1426z00_3695);
							BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4634, BFALSE);
						}
						((BgL_objectz00_bglt) BgL_new1426z00_3695);
						BgL_new1422z00_3694 = BgL_new1426z00_3695;
					}
					((((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt) BgL_new1422z00_3694)))->BgL_locz00) =
						((obj_t) (((BgL_nodez00_bglt)
									COBJECT(((BgL_nodez00_bglt) ((BgL_retblockz00_bglt)
												BgL_nodez00_3536))))->BgL_locz00)), BUNSPEC);
					((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
										BgL_new1422z00_3694)))->BgL_typez00) =
						((BgL_typez00_bglt) (((BgL_nodez00_bglt)
									COBJECT(((BgL_nodez00_bglt) ((BgL_retblockz00_bglt)
												BgL_nodez00_3536))))->BgL_typez00)), BUNSPEC);
					((((BgL_retblockz00_bglt) COBJECT(BgL_new1422z00_3694))->
							BgL_bodyz00) =
						((BgL_nodez00_bglt) (((BgL_retblockz00_bglt)
									COBJECT(((BgL_retblockz00_bglt) ((BgL_nodez00_bglt) (
													(BgL_retblockz00_bglt) BgL_nodez00_3536)))))->
								BgL_bodyz00)), BUNSPEC);
					BgL_resz00_3693 = BgL_new1422z00_3694;
				}
				{	/* Ast/alphatize.scm 530 */
					BgL_retblockzf2alphazf2_bglt BgL_wide1429z00_3697;

					BgL_wide1429z00_3697 =
						((BgL_retblockzf2alphazf2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_retblockzf2alphazf2_bgl))));
					{	/* Ast/alphatize.scm 530 */
						obj_t BgL_auxz00_4658;
						BgL_objectz00_bglt BgL_tmpz00_4654;

						BgL_auxz00_4658 = ((obj_t) BgL_wide1429z00_3697);
						BgL_tmpz00_4654 =
							((BgL_objectz00_bglt)
							((BgL_retblockz00_bglt)
								((BgL_retblockz00_bglt) BgL_nodez00_3536)));
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4654, BgL_auxz00_4658);
					}
					((BgL_objectz00_bglt)
						((BgL_retblockz00_bglt) ((BgL_retblockz00_bglt) BgL_nodez00_3536)));
					{	/* Ast/alphatize.scm 530 */
						long BgL_arg2041z00_3698;

						BgL_arg2041z00_3698 =
							BGL_CLASS_NUM(BGl_retblockzf2alphazf2zzast_alphatiza7eza7);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt)
								((BgL_retblockz00_bglt)
									((BgL_retblockz00_bglt) BgL_nodez00_3536))),
							BgL_arg2041z00_3698);
					}
					((BgL_retblockz00_bglt)
						((BgL_retblockz00_bglt) ((BgL_retblockz00_bglt) BgL_nodez00_3536)));
				}
				{
					BgL_retblockzf2alphazf2_bglt BgL_auxz00_4672;

					{
						obj_t BgL_auxz00_4673;

						{	/* Ast/alphatize.scm 531 */
							BgL_objectz00_bglt BgL_tmpz00_4674;

							BgL_tmpz00_4674 =
								((BgL_objectz00_bglt)
								((BgL_retblockz00_bglt)
									((BgL_retblockz00_bglt) BgL_nodez00_3536)));
							BgL_auxz00_4673 = BGL_OBJECT_WIDENING(BgL_tmpz00_4674);
						}
						BgL_auxz00_4672 = ((BgL_retblockzf2alphazf2_bglt) BgL_auxz00_4673);
					}
					((((BgL_retblockzf2alphazf2_bglt) COBJECT(BgL_auxz00_4672))->
							BgL_alphaz00) =
						((BgL_retblockz00_bglt) BgL_resz00_3693), BUNSPEC);
				}
				((BgL_retblockz00_bglt) ((BgL_retblockz00_bglt) BgL_nodez00_3536));
				{	/* Ast/alphatize.scm 532 */
					BgL_nodez00_bglt BgL_nbodyz00_3699;

					BgL_nbodyz00_3699 =
						BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
						(((BgL_retblockz00_bglt) COBJECT(
									((BgL_retblockz00_bglt) BgL_nodez00_3536)))->BgL_bodyz00),
						BgL_locz00_3537);
					{	/* Ast/alphatize.scm 533 */
						long BgL_arg2042z00_3700;

						{	/* Ast/alphatize.scm 533 */
							obj_t BgL_arg2043z00_3701;

							{	/* Ast/alphatize.scm 533 */
								obj_t BgL_arg2044z00_3702;

								{	/* Ast/alphatize.scm 533 */
									long BgL_arg1808z00_3703;

									{	/* Ast/alphatize.scm 533 */
										long BgL_arg1809z00_3704;

										BgL_arg1809z00_3704 =
											BGL_OBJECT_CLASS_NUM(
											((BgL_objectz00_bglt)
												((BgL_retblockz00_bglt) BgL_nodez00_3536)));
										BgL_arg1808z00_3703 = (BgL_arg1809z00_3704 - OBJECT_TYPE);
									}
									BgL_arg2044z00_3702 =
										VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
										BgL_arg1808z00_3703);
								}
								BgL_arg2043z00_3701 =
									BGl_classzd2superzd2zz__objectz00(BgL_arg2044z00_3702);
							}
							{	/* Ast/alphatize.scm 533 */
								obj_t BgL_tmpz00_4692;

								BgL_tmpz00_4692 = ((obj_t) BgL_arg2043z00_3701);
								BgL_arg2042z00_3700 = BGL_CLASS_NUM(BgL_tmpz00_4692);
						}}
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt)
								((BgL_retblockz00_bglt) BgL_nodez00_3536)),
							BgL_arg2042z00_3700);
					}
					{	/* Ast/alphatize.scm 533 */
						BgL_objectz00_bglt BgL_tmpz00_4698;

						BgL_tmpz00_4698 =
							((BgL_objectz00_bglt) ((BgL_retblockz00_bglt) BgL_nodez00_3536));
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4698, BFALSE);
					}
					((BgL_objectz00_bglt) ((BgL_retblockz00_bglt) BgL_nodez00_3536));
					((BgL_retblockz00_bglt) BgL_nodez00_3536);
					((((BgL_retblockz00_bglt) COBJECT(BgL_resz00_3693))->BgL_bodyz00) =
						((BgL_nodez00_bglt) BgL_nbodyz00_3699), BUNSPEC);
					return ((BgL_nodez00_bglt) BgL_resz00_3693);
				}
			}
		}

	}



/* &do-alphatize-jump-ex1666 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2jumpzd2ex1666z17zzast_alphatiza7eza7(obj_t
		BgL_envz00_3538, obj_t BgL_nodez00_3539, obj_t BgL_locz00_3540)
	{
		{	/* Ast/alphatize.scm 518 */
			{	/* Ast/alphatize.scm 519 */
				BgL_jumpzd2exzd2itz00_bglt BgL_new1417z00_3706;

				{	/* Ast/alphatize.scm 520 */
					BgL_jumpzd2exzd2itz00_bglt BgL_new1420z00_3707;

					BgL_new1420z00_3707 =
						((BgL_jumpzd2exzd2itz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_jumpzd2exzd2itz00_bgl))));
					{	/* Ast/alphatize.scm 520 */
						long BgL_arg2040z00_3708;

						BgL_arg2040z00_3708 =
							BGL_CLASS_NUM(BGl_jumpzd2exzd2itz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1420z00_3707), BgL_arg2040z00_3708);
					}
					{	/* Ast/alphatize.scm 520 */
						BgL_objectz00_bglt BgL_tmpz00_4711;

						BgL_tmpz00_4711 = ((BgL_objectz00_bglt) BgL_new1420z00_3707);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4711, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1420z00_3707);
					BgL_new1417z00_3706 = BgL_new1420z00_3707;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1417z00_3706)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_3539)),
							BgL_locz00_3540)), BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1417z00_3706)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_jumpzd2exzd2itz00_bglt)
											BgL_nodez00_3539))))->BgL_typez00)), BUNSPEC);
				{
					BgL_nodez00_bglt BgL_auxz00_4725;

					{	/* Ast/alphatize.scm 521 */
						BgL_nodez00_bglt BgL_arg2038z00_3709;

						BgL_arg2038z00_3709 =
							(((BgL_jumpzd2exzd2itz00_bglt) COBJECT(
									((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_3539)))->
							BgL_exitz00);
						BgL_auxz00_4725 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg2038z00_3709,
							BgL_locz00_3540);
					}
					((((BgL_jumpzd2exzd2itz00_bglt) COBJECT(BgL_new1417z00_3706))->
							BgL_exitz00) = ((BgL_nodez00_bglt) BgL_auxz00_4725), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_4730;

					{	/* Ast/alphatize.scm 522 */
						BgL_nodez00_bglt BgL_arg2039z00_3710;

						BgL_arg2039z00_3710 =
							(((BgL_jumpzd2exzd2itz00_bglt) COBJECT(
									((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_3539)))->
							BgL_valuez00);
						BgL_auxz00_4730 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg2039z00_3710,
							BgL_locz00_3540);
					}
					((((BgL_jumpzd2exzd2itz00_bglt) COBJECT(BgL_new1417z00_3706))->
							BgL_valuez00) = ((BgL_nodez00_bglt) BgL_auxz00_4730), BUNSPEC);
				}
				return ((BgL_nodez00_bglt) BgL_new1417z00_3706);
			}
		}

	}



/* &do-alphatize-set-ex-1664 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2setzd2exzd21664zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3541, obj_t BgL_nodez00_3542, obj_t BgL_locz00_3543)
	{
		{	/* Ast/alphatize.scm 491 */
			{	/* Ast/alphatize.scm 492 */
				BgL_variablez00_bglt BgL_oldzd2varzd2_3712;

				BgL_oldzd2varzd2_3712 =
					(((BgL_varz00_bglt) COBJECT(
							(((BgL_setzd2exzd2itz00_bglt) COBJECT(
										((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3542)))->
								BgL_varz00)))->BgL_variablez00);
				{	/* Ast/alphatize.scm 492 */
					BgL_valuez00_bglt BgL_oldzd2exitzd2_3713;

					BgL_oldzd2exitzd2_3713 =
						(((BgL_variablez00_bglt) COBJECT(
								((BgL_variablez00_bglt)
									((BgL_localz00_bglt) BgL_oldzd2varzd2_3712))))->BgL_valuez00);
					{	/* Ast/alphatize.scm 493 */
						obj_t BgL_oldzd2hdlgzd2_3714;

						BgL_oldzd2hdlgzd2_3714 =
							(((BgL_sexitz00_bglt) COBJECT(
									((BgL_sexitz00_bglt) BgL_oldzd2exitzd2_3713)))->
							BgL_handlerz00);
						{	/* Ast/alphatize.scm 494 */
							obj_t BgL_alphazd2hdlgzd2_3715;

							BgL_alphazd2hdlgzd2_3715 =
								(((BgL_variablez00_bglt) COBJECT(
										((BgL_variablez00_bglt) BgL_oldzd2hdlgzd2_3714)))->
								BgL_fastzd2alphazd2);
							{	/* Ast/alphatize.scm 495 */
								BgL_localz00_bglt BgL_newzd2varzd2_3716;

								{	/* Ast/alphatize.scm 496 */
									obj_t BgL_arg2032z00_3717;
									BgL_typez00_bglt BgL_arg2033z00_3718;
									BgL_sexitz00_bglt BgL_arg2034z00_3719;

									BgL_arg2032z00_3717 =
										(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt)
													((BgL_localz00_bglt) BgL_oldzd2varzd2_3712))))->
										BgL_idz00);
									BgL_arg2033z00_3718 =
										(((BgL_variablez00_bglt)
											COBJECT(((BgL_variablez00_bglt) ((BgL_localz00_bglt)
														BgL_oldzd2varzd2_3712))))->BgL_typez00);
									{	/* Ast/alphatize.scm 498 */
										BgL_sexitz00_bglt BgL_new1405z00_3720;

										{	/* Ast/alphatize.scm 499 */
											BgL_sexitz00_bglt BgL_new1408z00_3721;

											BgL_new1408z00_3721 =
												((BgL_sexitz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
															BgL_sexitz00_bgl))));
											{	/* Ast/alphatize.scm 499 */
												long BgL_arg2036z00_3722;

												BgL_arg2036z00_3722 =
													BGL_CLASS_NUM(BGl_sexitz00zzast_varz00);
												BGL_OBJECT_CLASS_NUM_SET(
													((BgL_objectz00_bglt) BgL_new1408z00_3721),
													BgL_arg2036z00_3722);
											}
											{	/* Ast/alphatize.scm 499 */
												BgL_objectz00_bglt BgL_tmpz00_4756;

												BgL_tmpz00_4756 =
													((BgL_objectz00_bglt) BgL_new1408z00_3721);
												BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4756, BFALSE);
											}
											((BgL_objectz00_bglt) BgL_new1408z00_3721);
											BgL_new1405z00_3720 = BgL_new1408z00_3721;
										}
										((((BgL_sexitz00_bglt) COBJECT(BgL_new1405z00_3720))->
												BgL_handlerz00) =
											((obj_t) BgL_alphazd2hdlgzd2_3715), BUNSPEC);
										((((BgL_sexitz00_bglt) COBJECT(BgL_new1405z00_3720))->
												BgL_detachedzf3zf3) =
											((bool_t) (((BgL_sexitz00_bglt)
														COBJECT(((BgL_sexitz00_bglt)
																BgL_oldzd2exitzd2_3713)))->BgL_detachedzf3zf3)),
											BUNSPEC);
										BgL_arg2034z00_3719 = BgL_new1405z00_3720;
									}
									BgL_newzd2varzd2_3716 =
										BGl_makezd2localzd2sexitz00zzast_localz00
										(BgL_arg2032z00_3717, BgL_arg2033z00_3718,
										BgL_arg2034z00_3719);
								}
								{	/* Ast/alphatize.scm 496 */
									BgL_nodez00_bglt BgL_oldzd2bodyzd2_3723;

									BgL_oldzd2bodyzd2_3723 =
										(((BgL_setzd2exzd2itz00_bglt) COBJECT(
												((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3542)))->
										BgL_bodyz00);
									{	/* Ast/alphatize.scm 501 */
										BgL_nodez00_bglt BgL_oldzd2onexitzd2_3724;

										BgL_oldzd2onexitzd2_3724 =
											(((BgL_setzd2exzd2itz00_bglt) COBJECT(
													((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3542)))->
											BgL_onexitz00);
										{	/* Ast/alphatize.scm 502 */

											{	/* Ast/alphatize.scm 503 */
												bool_t BgL_arg2021z00_3725;

												BgL_arg2021z00_3725 =
													(((BgL_variablez00_bglt) COBJECT(
															((BgL_variablez00_bglt)
																((BgL_localz00_bglt) BgL_oldzd2varzd2_3712))))->
													BgL_userzf3zf3);
												((((BgL_variablez00_bglt)
															COBJECT(((BgL_variablez00_bglt)
																	BgL_newzd2varzd2_3716)))->BgL_userzf3zf3) =
													((bool_t) BgL_arg2021z00_3725), BUNSPEC);
											}
											{	/* Ast/alphatize.scm 504 */
												BgL_setzd2exzd2itz00_bglt BgL_new1409z00_3726;

												{	/* Ast/alphatize.scm 505 */
													BgL_setzd2exzd2itz00_bglt BgL_new1412z00_3727;

													BgL_new1412z00_3727 =
														((BgL_setzd2exzd2itz00_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_setzd2exzd2itz00_bgl))));
													{	/* Ast/alphatize.scm 505 */
														long BgL_arg2031z00_3728;

														BgL_arg2031z00_3728 =
															BGL_CLASS_NUM(BGl_setzd2exzd2itz00zzast_nodez00);
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt) BgL_new1412z00_3727),
															BgL_arg2031z00_3728);
													}
													{	/* Ast/alphatize.scm 505 */
														BgL_objectz00_bglt BgL_tmpz00_4778;

														BgL_tmpz00_4778 =
															((BgL_objectz00_bglt) BgL_new1412z00_3727);
														BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4778, BFALSE);
													}
													((BgL_objectz00_bglt) BgL_new1412z00_3727);
													BgL_new1409z00_3726 = BgL_new1412z00_3727;
												}
												((((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_new1409z00_3726)))->
														BgL_locz00) =
													((obj_t)
														BGl_getzd2locationzd2zzast_alphatiza7eza7((
																(BgL_nodez00_bglt) ((BgL_setzd2exzd2itz00_bglt)
																	BgL_nodez00_3542)), BgL_locz00_3543)),
													BUNSPEC);
												((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																	BgL_new1409z00_3726)))->BgL_typez00) =
													((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																COBJECT(((BgL_nodez00_bglt) (
																			(BgL_setzd2exzd2itz00_bglt)
																			BgL_nodez00_3542))))->BgL_typez00)),
													BUNSPEC);
												{
													BgL_varz00_bglt BgL_auxz00_4792;

													{	/* Ast/alphatize.scm 506 */
														BgL_nodez00_bglt BgL_duplicated1415z00_3729;
														BgL_refz00_bglt BgL_new1413z00_3730;

														BgL_duplicated1415z00_3729 =
															((BgL_nodez00_bglt)
															(((BgL_setzd2exzd2itz00_bglt) COBJECT(
																		((BgL_setzd2exzd2itz00_bglt)
																			BgL_nodez00_3542)))->BgL_varz00));
														{	/* Ast/alphatize.scm 507 */
															BgL_refz00_bglt BgL_new1416z00_3731;

															BgL_new1416z00_3731 =
																((BgL_refz00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_refz00_bgl))));
															{	/* Ast/alphatize.scm 507 */
																long BgL_arg2023z00_3732;

																{	/* Ast/alphatize.scm 507 */
																	obj_t BgL_classz00_3733;

																	BgL_classz00_3733 = BGl_refz00zzast_nodez00;
																	BgL_arg2023z00_3732 =
																		BGL_CLASS_NUM(BgL_classz00_3733);
																}
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1416z00_3731),
																	BgL_arg2023z00_3732);
															}
															{	/* Ast/alphatize.scm 507 */
																BgL_objectz00_bglt BgL_tmpz00_4800;

																BgL_tmpz00_4800 =
																	((BgL_objectz00_bglt) BgL_new1416z00_3731);
																BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4800,
																	BFALSE);
															}
															((BgL_objectz00_bglt) BgL_new1416z00_3731);
															BgL_new1413z00_3730 = BgL_new1416z00_3731;
														}
														((((BgL_nodez00_bglt) COBJECT(
																		((BgL_nodez00_bglt) BgL_new1413z00_3730)))->
																BgL_locz00) =
															((obj_t)
																BGl_getzd2locationzd2zzast_alphatiza7eza7((
																		(BgL_nodez00_bglt) (
																			(BgL_setzd2exzd2itz00_bglt)
																			BgL_nodez00_3542)), BgL_locz00_3543)),
															BUNSPEC);
														((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																			BgL_new1413z00_3730)))->BgL_typez00) =
															((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																		COBJECT(BgL_duplicated1415z00_3729))->
																	BgL_typez00)), BUNSPEC);
														((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																			BgL_new1413z00_3730)))->BgL_variablez00) =
															((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
																	BgL_newzd2varzd2_3716)), BUNSPEC);
														BgL_auxz00_4792 =
															((BgL_varz00_bglt) BgL_new1413z00_3730);
													}
													((((BgL_setzd2exzd2itz00_bglt)
																COBJECT(BgL_new1409z00_3726))->BgL_varz00) =
														((BgL_varz00_bglt) BgL_auxz00_4792), BUNSPEC);
												}
												{
													BgL_nodez00_bglt BgL_auxz00_4817;

													{	/* Ast/alphatize.scm 509 */
														obj_t BgL_arg2024z00_3734;
														obj_t BgL_arg2025z00_3735;
														obj_t BgL_arg2028z00_3736;

														{	/* Ast/alphatize.scm 509 */
															obj_t BgL_list2029z00_3737;

															BgL_list2029z00_3737 =
																MAKE_YOUNG_PAIR(
																((obj_t) BgL_oldzd2varzd2_3712), BNIL);
															BgL_arg2024z00_3734 = BgL_list2029z00_3737;
														}
														{	/* Ast/alphatize.scm 510 */
															obj_t BgL_list2030z00_3738;

															BgL_list2030z00_3738 =
																MAKE_YOUNG_PAIR(
																((obj_t) BgL_newzd2varzd2_3716), BNIL);
															BgL_arg2025z00_3735 = BgL_list2030z00_3738;
														}
														BgL_arg2028z00_3736 =
															BGl_getzd2locationzd2zzast_alphatiza7eza7(
															((BgL_nodez00_bglt)
																((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3542)),
															BgL_locz00_3543);
														BgL_auxz00_4817 =
															BGl_alphatiza7eza7zzast_alphatiza7eza7
															(BgL_arg2024z00_3734, BgL_arg2025z00_3735,
															BgL_arg2028z00_3736, BgL_oldzd2bodyzd2_3723);
													}
													((((BgL_setzd2exzd2itz00_bglt)
																COBJECT(BgL_new1409z00_3726))->BgL_bodyz00) =
														((BgL_nodez00_bglt) BgL_auxz00_4817), BUNSPEC);
												}
												((((BgL_setzd2exzd2itz00_bglt)
															COBJECT(BgL_new1409z00_3726))->BgL_onexitz00) =
													((BgL_nodez00_bglt)
														BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7
														(BgL_oldzd2onexitzd2_3724, BgL_locz00_3543)),
													BUNSPEC);
												return ((BgL_nodez00_bglt) BgL_new1409z00_3726);
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &do-alphatize-let-var1662 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2letzd2var1662z17zzast_alphatiza7eza7(obj_t
		BgL_envz00_3544, obj_t BgL_nodez00_3545, obj_t BgL_locz00_3546)
	{
		{	/* Ast/alphatize.scm 463 */
			{	/* Ast/alphatize.scm 464 */
				obj_t BgL_oldzd2localszd2_3740;

				{	/* Ast/alphatize.scm 464 */
					obj_t BgL_l1582z00_3741;

					BgL_l1582z00_3741 =
						(((BgL_letzd2varzd2_bglt) COBJECT(
								((BgL_letzd2varzd2_bglt) BgL_nodez00_3545)))->BgL_bindingsz00);
					if (NULLP(BgL_l1582z00_3741))
						{	/* Ast/alphatize.scm 464 */
							BgL_oldzd2localszd2_3740 = BNIL;
						}
					else
						{	/* Ast/alphatize.scm 464 */
							obj_t BgL_head1584z00_3742;

							{	/* Ast/alphatize.scm 464 */
								obj_t BgL_arg2019z00_3743;

								{	/* Ast/alphatize.scm 464 */
									obj_t BgL_pairz00_3744;

									BgL_pairz00_3744 = CAR(((obj_t) BgL_l1582z00_3741));
									BgL_arg2019z00_3743 = CAR(BgL_pairz00_3744);
								}
								BgL_head1584z00_3742 =
									MAKE_YOUNG_PAIR(BgL_arg2019z00_3743, BNIL);
							}
							{	/* Ast/alphatize.scm 464 */
								obj_t BgL_g1587z00_3745;

								BgL_g1587z00_3745 = CDR(((obj_t) BgL_l1582z00_3741));
								{
									obj_t BgL_l1582z00_3747;
									obj_t BgL_tail1585z00_3748;

									BgL_l1582z00_3747 = BgL_g1587z00_3745;
									BgL_tail1585z00_3748 = BgL_head1584z00_3742;
								BgL_zc3z04anonymousza32013ze3z87_3746:
									if (NULLP(BgL_l1582z00_3747))
										{	/* Ast/alphatize.scm 464 */
											BgL_oldzd2localszd2_3740 = BgL_head1584z00_3742;
										}
									else
										{	/* Ast/alphatize.scm 464 */
											obj_t BgL_newtail1586z00_3749;

											{	/* Ast/alphatize.scm 464 */
												obj_t BgL_arg2016z00_3750;

												{	/* Ast/alphatize.scm 464 */
													obj_t BgL_pairz00_3751;

													BgL_pairz00_3751 = CAR(((obj_t) BgL_l1582z00_3747));
													BgL_arg2016z00_3750 = CAR(BgL_pairz00_3751);
												}
												BgL_newtail1586z00_3749 =
													MAKE_YOUNG_PAIR(BgL_arg2016z00_3750, BNIL);
											}
											SET_CDR(BgL_tail1585z00_3748, BgL_newtail1586z00_3749);
											{	/* Ast/alphatize.scm 464 */
												obj_t BgL_arg2015z00_3752;

												BgL_arg2015z00_3752 = CDR(((obj_t) BgL_l1582z00_3747));
												{
													obj_t BgL_tail1585z00_4850;
													obj_t BgL_l1582z00_4849;

													BgL_l1582z00_4849 = BgL_arg2015z00_3752;
													BgL_tail1585z00_4850 = BgL_newtail1586z00_3749;
													BgL_tail1585z00_3748 = BgL_tail1585z00_4850;
													BgL_l1582z00_3747 = BgL_l1582z00_4849;
													goto BgL_zc3z04anonymousza32013ze3z87_3746;
												}
											}
										}
								}
							}
						}
				}
				{	/* Ast/alphatize.scm 464 */
					obj_t BgL_newzd2localszd2_3753;

					if (NULLP(BgL_oldzd2localszd2_3740))
						{	/* Ast/alphatize.scm 465 */
							BgL_newzd2localszd2_3753 = BNIL;
						}
					else
						{	/* Ast/alphatize.scm 465 */
							obj_t BgL_head1590z00_3754;

							BgL_head1590z00_3754 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1588z00_3756;
								obj_t BgL_tail1591z00_3757;

								BgL_l1588z00_3756 = BgL_oldzd2localszd2_3740;
								BgL_tail1591z00_3757 = BgL_head1590z00_3754;
							BgL_zc3z04anonymousza32003ze3z87_3755:
								if (NULLP(BgL_l1588z00_3756))
									{	/* Ast/alphatize.scm 465 */
										BgL_newzd2localszd2_3753 = CDR(BgL_head1590z00_3754);
									}
								else
									{	/* Ast/alphatize.scm 465 */
										obj_t BgL_newtail1592z00_3758;

										{	/* Ast/alphatize.scm 465 */
											BgL_localz00_bglt BgL_arg2007z00_3759;

											{	/* Ast/alphatize.scm 465 */
												obj_t BgL_lz00_3760;

												BgL_lz00_3760 = CAR(((obj_t) BgL_l1588z00_3756));
												{	/* Ast/alphatize.scm 470 */
													BgL_localz00_bglt BgL_varz00_3761;

													{	/* Ast/alphatize.scm 470 */
														obj_t BgL_arg2010z00_3762;
														BgL_typez00_bglt BgL_arg2011z00_3763;

														BgL_arg2010z00_3762 =
															(((BgL_variablez00_bglt) COBJECT(
																	((BgL_variablez00_bglt)
																		((BgL_localz00_bglt) BgL_lz00_3760))))->
															BgL_idz00);
														BgL_arg2011z00_3763 =
															(((BgL_variablez00_bglt)
																COBJECT(((BgL_variablez00_bglt) (
																			(BgL_localz00_bglt) BgL_lz00_3760))))->
															BgL_typez00);
														BgL_varz00_3761 =
															BGl_makezd2localzd2svarz00zzast_localz00
															(BgL_arg2010z00_3762, BgL_arg2011z00_3763);
													}
													{	/* Ast/alphatize.scm 472 */
														bool_t BgL_arg2008z00_3764;

														BgL_arg2008z00_3764 =
															(((BgL_variablez00_bglt) COBJECT(
																	((BgL_variablez00_bglt)
																		((BgL_localz00_bglt) BgL_lz00_3760))))->
															BgL_userzf3zf3);
														((((BgL_variablez00_bglt)
																	COBJECT(((BgL_variablez00_bglt)
																			BgL_varz00_3761)))->BgL_userzf3zf3) =
															((bool_t) BgL_arg2008z00_3764), BUNSPEC);
													}
													{	/* Ast/alphatize.scm 473 */
														obj_t BgL_arg2009z00_3765;

														BgL_arg2009z00_3765 =
															(((BgL_variablez00_bglt) COBJECT(
																	((BgL_variablez00_bglt)
																		((BgL_localz00_bglt) BgL_lz00_3760))))->
															BgL_accessz00);
														((((BgL_variablez00_bglt)
																	COBJECT(((BgL_variablez00_bglt)
																			BgL_varz00_3761)))->BgL_accessz00) =
															((obj_t) BgL_arg2009z00_3765), BUNSPEC);
													}
													BgL_arg2007z00_3759 = BgL_varz00_3761;
												}
											}
											BgL_newtail1592z00_3758 =
												MAKE_YOUNG_PAIR(((obj_t) BgL_arg2007z00_3759), BNIL);
										}
										SET_CDR(BgL_tail1591z00_3757, BgL_newtail1592z00_3758);
										{	/* Ast/alphatize.scm 465 */
											obj_t BgL_arg2006z00_3766;

											BgL_arg2006z00_3766 = CDR(((obj_t) BgL_l1588z00_3756));
											{
												obj_t BgL_tail1591z00_4882;
												obj_t BgL_l1588z00_4881;

												BgL_l1588z00_4881 = BgL_arg2006z00_3766;
												BgL_tail1591z00_4882 = BgL_newtail1592z00_3758;
												BgL_tail1591z00_3757 = BgL_tail1591z00_4882;
												BgL_l1588z00_3756 = BgL_l1588z00_4881;
												goto BgL_zc3z04anonymousza32003ze3z87_3755;
											}
										}
									}
							}
						}
					{	/* Ast/alphatize.scm 465 */
						obj_t BgL_newzd2bindingszd2_3767;

						{	/* Ast/alphatize.scm 476 */
							obj_t BgL_ll1593z00_3768;

							BgL_ll1593z00_3768 =
								(((BgL_letzd2varzd2_bglt) COBJECT(
										((BgL_letzd2varzd2_bglt) BgL_nodez00_3545)))->
								BgL_bindingsz00);
							if (NULLP(BgL_ll1593z00_3768))
								{	/* Ast/alphatize.scm 476 */
									BgL_newzd2bindingszd2_3767 = BNIL;
								}
							else
								{	/* Ast/alphatize.scm 476 */
									obj_t BgL_head1595z00_3769;

									BgL_head1595z00_3769 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{
										obj_t BgL_ll1593z00_3771;
										obj_t BgL_ll1594z00_3772;
										obj_t BgL_tail1596z00_3773;

										BgL_ll1593z00_3771 = BgL_ll1593z00_3768;
										BgL_ll1594z00_3772 = BgL_newzd2localszd2_3753;
										BgL_tail1596z00_3773 = BgL_head1595z00_3769;
									BgL_zc3z04anonymousza31995ze3z87_3770:
										if (NULLP(BgL_ll1593z00_3771))
											{	/* Ast/alphatize.scm 476 */
												BgL_newzd2bindingszd2_3767 = CDR(BgL_head1595z00_3769);
											}
										else
											{	/* Ast/alphatize.scm 476 */
												obj_t BgL_newtail1597z00_3774;

												{	/* Ast/alphatize.scm 476 */
													obj_t BgL_arg1999z00_3775;

													{	/* Ast/alphatize.scm 476 */
														obj_t BgL_bindingz00_3776;
														obj_t BgL_newzd2localzd2_3777;

														BgL_bindingz00_3776 =
															CAR(((obj_t) BgL_ll1593z00_3771));
														BgL_newzd2localzd2_3777 =
															CAR(((obj_t) BgL_ll1594z00_3772));
														{	/* Ast/alphatize.scm 477 */
															BgL_nodez00_bglt BgL_arg2000z00_3778;

															{	/* Ast/alphatize.scm 477 */
																obj_t BgL_arg2001z00_3779;

																BgL_arg2001z00_3779 =
																	CDR(((obj_t) BgL_bindingz00_3776));
																BgL_arg2000z00_3778 =
																	BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
																	((BgL_nodez00_bglt) BgL_arg2001z00_3779),
																	BgL_locz00_3546);
															}
															BgL_arg1999z00_3775 =
																MAKE_YOUNG_PAIR(BgL_newzd2localzd2_3777,
																((obj_t) BgL_arg2000z00_3778));
														}
													}
													BgL_newtail1597z00_3774 =
														MAKE_YOUNG_PAIR(BgL_arg1999z00_3775, BNIL);
												}
												SET_CDR(BgL_tail1596z00_3773, BgL_newtail1597z00_3774);
												{	/* Ast/alphatize.scm 476 */
													obj_t BgL_arg1997z00_3780;
													obj_t BgL_arg1998z00_3781;

													BgL_arg1997z00_3780 =
														CDR(((obj_t) BgL_ll1593z00_3771));
													BgL_arg1998z00_3781 =
														CDR(((obj_t) BgL_ll1594z00_3772));
													{
														obj_t BgL_tail1596z00_4909;
														obj_t BgL_ll1594z00_4908;
														obj_t BgL_ll1593z00_4907;

														BgL_ll1593z00_4907 = BgL_arg1997z00_3780;
														BgL_ll1594z00_4908 = BgL_arg1998z00_3781;
														BgL_tail1596z00_4909 = BgL_newtail1597z00_3774;
														BgL_tail1596z00_3773 = BgL_tail1596z00_4909;
														BgL_ll1594z00_3772 = BgL_ll1594z00_4908;
														BgL_ll1593z00_3771 = BgL_ll1593z00_4907;
														goto BgL_zc3z04anonymousza31995ze3z87_3770;
													}
												}
											}
									}
								}
						}
						{	/* Ast/alphatize.scm 476 */

							{	/* Ast/alphatize.scm 480 */
								BgL_letzd2varzd2_bglt BgL_new1398z00_3782;

								{	/* Ast/alphatize.scm 481 */
									BgL_letzd2varzd2_bglt BgL_new1404z00_3783;

									BgL_new1404z00_3783 =
										((BgL_letzd2varzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
													BgL_letzd2varzd2_bgl))));
									{	/* Ast/alphatize.scm 481 */
										long BgL_arg1993z00_3784;

										BgL_arg1993z00_3784 =
											BGL_CLASS_NUM(BGl_letzd2varzd2zzast_nodez00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1404z00_3783),
											BgL_arg1993z00_3784);
									}
									{	/* Ast/alphatize.scm 481 */
										BgL_objectz00_bglt BgL_tmpz00_4914;

										BgL_tmpz00_4914 =
											((BgL_objectz00_bglt) BgL_new1404z00_3783);
										BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4914, BFALSE);
									}
									((BgL_objectz00_bglt) BgL_new1404z00_3783);
									BgL_new1398z00_3782 = BgL_new1404z00_3783;
								}
								((((BgL_nodez00_bglt) COBJECT(
												((BgL_nodez00_bglt) BgL_new1398z00_3782)))->
										BgL_locz00) =
									((obj_t)
										BGl_getzd2locationzd2zzast_alphatiza7eza7((
												(BgL_nodez00_bglt) ((BgL_letzd2varzd2_bglt)
													BgL_nodez00_3545)), BgL_locz00_3546)), BUNSPEC);
								((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
													BgL_new1398z00_3782)))->BgL_typez00) =
									((BgL_typez00_bglt) (((BgL_nodez00_bglt)
												COBJECT(((BgL_nodez00_bglt) ((BgL_letzd2varzd2_bglt)
															BgL_nodez00_3545))))->BgL_typez00)), BUNSPEC);
								((((BgL_nodezf2effectzf2_bglt)
											COBJECT(((BgL_nodezf2effectzf2_bglt)
													BgL_new1398z00_3782)))->BgL_sidezd2effectzd2) =
									((obj_t) (((BgL_nodezf2effectzf2_bglt)
												COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt)
															((BgL_letzd2varzd2_bglt) BgL_nodez00_3545)))))->
											BgL_sidezd2effectzd2)), BUNSPEC);
								((((BgL_nodezf2effectzf2_bglt)
											COBJECT(((BgL_nodezf2effectzf2_bglt)
													BgL_new1398z00_3782)))->BgL_keyz00) =
									((obj_t) (((BgL_nodezf2effectzf2_bglt)
												COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt)
															((BgL_letzd2varzd2_bglt) BgL_nodez00_3545)))))->
											BgL_keyz00)), BUNSPEC);
								((((BgL_letzd2varzd2_bglt) COBJECT(BgL_new1398z00_3782))->
										BgL_bindingsz00) =
									((obj_t) BgL_newzd2bindingszd2_3767), BUNSPEC);
								{
									BgL_nodez00_bglt BgL_auxz00_4941;

									{	/* Ast/alphatize.scm 485 */
										obj_t BgL_arg1991z00_3785;
										BgL_nodez00_bglt BgL_arg1992z00_3786;

										BgL_arg1991z00_3785 =
											BGl_getzd2locationzd2zzast_alphatiza7eza7(
											((BgL_nodez00_bglt)
												((BgL_letzd2varzd2_bglt) BgL_nodez00_3545)),
											BgL_locz00_3546);
										BgL_arg1992z00_3786 =
											(((BgL_letzd2varzd2_bglt) COBJECT(((BgL_letzd2varzd2_bglt)
														BgL_nodez00_3545)))->BgL_bodyz00);
										BgL_auxz00_4941 =
											BGl_alphatiza7eza7zzast_alphatiza7eza7
											(BgL_oldzd2localszd2_3740, BgL_newzd2localszd2_3753,
											BgL_arg1991z00_3785, BgL_arg1992z00_3786);
									}
									((((BgL_letzd2varzd2_bglt) COBJECT(BgL_new1398z00_3782))->
											BgL_bodyz00) =
										((BgL_nodez00_bglt) BgL_auxz00_4941), BUNSPEC);
								}
								((((BgL_letzd2varzd2_bglt) COBJECT(BgL_new1398z00_3782))->
										BgL_removablezf3zf3) =
									((bool_t) (((BgL_letzd2varzd2_bglt)
												COBJECT(((BgL_letzd2varzd2_bglt) ((BgL_nodez00_bglt) (
																(BgL_letzd2varzd2_bglt) BgL_nodez00_3545)))))->
											BgL_removablezf3zf3)), BUNSPEC);
								return ((BgL_nodez00_bglt) BgL_new1398z00_3782);
							}
						}
					}
				}
			}
		}

	}



/* &do-alphatize-let-fun1660 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2letzd2fun1660z17zzast_alphatiza7eza7(obj_t
		BgL_envz00_3547, obj_t BgL_nodez00_3548, obj_t BgL_locz00_3549)
	{
		{	/* Ast/alphatize.scm 423 */
			{	/* Ast/alphatize.scm 424 */
				obj_t BgL_oldzd2localszd2_3788;

				BgL_oldzd2localszd2_3788 =
					(((BgL_letzd2funzd2_bglt) COBJECT(
							((BgL_letzd2funzd2_bglt) BgL_nodez00_3548)))->BgL_localsz00);
				{	/* Ast/alphatize.scm 424 */
					obj_t BgL_newzd2localszd2_3789;

					if (NULLP(BgL_oldzd2localszd2_3788))
						{	/* Ast/alphatize.scm 425 */
							BgL_newzd2localszd2_3789 = BNIL;
						}
					else
						{	/* Ast/alphatize.scm 425 */
							obj_t BgL_head1571z00_3790;

							BgL_head1571z00_3790 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1569z00_3792;
								obj_t BgL_tail1572z00_3793;

								BgL_l1569z00_3792 = BgL_oldzd2localszd2_3788;
								BgL_tail1572z00_3793 = BgL_head1571z00_3790;
							BgL_zc3z04anonymousza31983ze3z87_3791:
								if (NULLP(BgL_l1569z00_3792))
									{	/* Ast/alphatize.scm 425 */
										BgL_newzd2localszd2_3789 = CDR(BgL_head1571z00_3790);
									}
								else
									{	/* Ast/alphatize.scm 425 */
										obj_t BgL_newtail1573z00_3794;

										{	/* Ast/alphatize.scm 425 */
											BgL_localz00_bglt BgL_arg1986z00_3795;

											{	/* Ast/alphatize.scm 425 */
												obj_t BgL_lz00_3796;

												BgL_lz00_3796 = CAR(((obj_t) BgL_l1569z00_3792));
												{	/* Ast/alphatize.scm 426 */
													BgL_localz00_bglt BgL_vz00_3797;

													{	/* Ast/alphatize.scm 426 */
														obj_t BgL_arg1988z00_3798;
														BgL_typez00_bglt BgL_arg1989z00_3799;
														BgL_valuez00_bglt BgL_arg1990z00_3800;

														BgL_arg1988z00_3798 =
															(((BgL_variablez00_bglt) COBJECT(
																	((BgL_variablez00_bglt)
																		((BgL_localz00_bglt) BgL_lz00_3796))))->
															BgL_idz00);
														BgL_arg1989z00_3799 =
															(((BgL_variablez00_bglt)
																COBJECT(((BgL_variablez00_bglt) (
																			(BgL_localz00_bglt) BgL_lz00_3796))))->
															BgL_typez00);
														BgL_arg1990z00_3800 =
															(((BgL_variablez00_bglt)
																COBJECT(((BgL_variablez00_bglt) (
																			(BgL_localz00_bglt) BgL_lz00_3796))))->
															BgL_valuez00);
														BgL_vz00_3797 =
															BGl_makezd2localzd2sfunz00zzast_localz00
															(BgL_arg1988z00_3798, BgL_arg1989z00_3799,
															((BgL_sfunz00_bglt) BgL_arg1990z00_3800));
													}
													{	/* Ast/alphatize.scm 430 */
														long BgL_arg1987z00_3801;

														BgL_arg1987z00_3801 =
															(((BgL_variablez00_bglt) COBJECT(
																	((BgL_variablez00_bglt) BgL_lz00_3796)))->
															BgL_occurrencez00);
														((((BgL_variablez00_bglt)
																	COBJECT(((BgL_variablez00_bglt)
																			BgL_vz00_3797)))->BgL_occurrencez00) =
															((long) BgL_arg1987z00_3801), BUNSPEC);
													}
													BgL_arg1986z00_3795 = BgL_vz00_3797;
											}}
											BgL_newtail1573z00_3794 =
												MAKE_YOUNG_PAIR(((obj_t) BgL_arg1986z00_3795), BNIL);
										}
										SET_CDR(BgL_tail1572z00_3793, BgL_newtail1573z00_3794);
										{	/* Ast/alphatize.scm 425 */
											obj_t BgL_arg1985z00_3802;

											BgL_arg1985z00_3802 = CDR(((obj_t) BgL_l1569z00_3792));
											{
												obj_t BgL_tail1572z00_4986;
												obj_t BgL_l1569z00_4985;

												BgL_l1569z00_4985 = BgL_arg1985z00_3802;
												BgL_tail1572z00_4986 = BgL_newtail1573z00_3794;
												BgL_tail1572z00_3793 = BgL_tail1572z00_4986;
												BgL_l1569z00_3792 = BgL_l1569z00_4985;
												goto BgL_zc3z04anonymousza31983ze3z87_3791;
											}
										}
									}
							}
						}
					{	/* Ast/alphatize.scm 425 */

						{
							obj_t BgL_ll1579z00_3804;
							obj_t BgL_ll1580z00_3805;

							BgL_ll1579z00_3804 = BgL_oldzd2localszd2_3788;
							BgL_ll1580z00_3805 = BgL_newzd2localszd2_3789;
						BgL_zc3z04anonymousza31963ze3z87_3803:
							if (NULLP(BgL_ll1579z00_3804))
								{	/* Ast/alphatize.scm 433 */
									((bool_t) 1);
								}
							else
								{	/* Ast/alphatize.scm 433 */
									{	/* Ast/alphatize.scm 434 */
										obj_t BgL_oldz00_3806;
										obj_t BgL_newz00_3807;

										BgL_oldz00_3806 = CAR(((obj_t) BgL_ll1579z00_3804));
										BgL_newz00_3807 = CAR(((obj_t) BgL_ll1580z00_3805));
										{	/* Ast/alphatize.scm 434 */
											BgL_valuez00_bglt BgL_oldzd2sfunzd2_3808;

											BgL_oldzd2sfunzd2_3808 =
												(((BgL_variablez00_bglt) COBJECT(
														((BgL_variablez00_bglt)
															((BgL_localz00_bglt) BgL_oldz00_3806))))->
												BgL_valuez00);
											{	/* Ast/alphatize.scm 434 */
												obj_t BgL_oldzd2argszd2_3809;

												BgL_oldzd2argszd2_3809 =
													(((BgL_sfunz00_bglt) COBJECT(
															((BgL_sfunz00_bglt) BgL_oldzd2sfunzd2_3808)))->
													BgL_argsz00);
												{	/* Ast/alphatize.scm 435 */
													obj_t BgL_newzd2argszd2_3810;

													if (NULLP(BgL_oldzd2argszd2_3809))
														{	/* Ast/alphatize.scm 436 */
															BgL_newzd2argszd2_3810 = BNIL;
														}
													else
														{	/* Ast/alphatize.scm 436 */
															obj_t BgL_head1576z00_3811;

															BgL_head1576z00_3811 =
																MAKE_YOUNG_PAIR(BNIL, BNIL);
															{
																obj_t BgL_l1574z00_3813;
																obj_t BgL_tail1577z00_3814;

																BgL_l1574z00_3813 = BgL_oldzd2argszd2_3809;
																BgL_tail1577z00_3814 = BgL_head1576z00_3811;
															BgL_zc3z04anonymousza31971ze3z87_3812:
																if (NULLP(BgL_l1574z00_3813))
																	{	/* Ast/alphatize.scm 436 */
																		BgL_newzd2argszd2_3810 =
																			CDR(BgL_head1576z00_3811);
																	}
																else
																	{	/* Ast/alphatize.scm 436 */
																		obj_t BgL_newtail1578z00_3815;

																		{	/* Ast/alphatize.scm 436 */
																			BgL_localz00_bglt BgL_arg1974z00_3816;

																			{	/* Ast/alphatize.scm 436 */
																				obj_t BgL_lz00_3817;

																				BgL_lz00_3817 =
																					CAR(((obj_t) BgL_l1574z00_3813));
																				{	/* Ast/alphatize.scm 437 */
																					obj_t BgL_arg1975z00_3818;
																					BgL_typez00_bglt BgL_arg1976z00_3819;

																					BgL_arg1975z00_3818 =
																						(((BgL_variablez00_bglt) COBJECT(
																								((BgL_variablez00_bglt)
																									((BgL_localz00_bglt)
																										BgL_lz00_3817))))->
																						BgL_idz00);
																					BgL_arg1976z00_3819 =
																						(((BgL_variablez00_bglt)
																							COBJECT(((BgL_variablez00_bglt) (
																										(BgL_localz00_bglt)
																										BgL_lz00_3817))))->
																						BgL_typez00);
																					BgL_arg1974z00_3816 =
																						BGl_makezd2localzd2svarz00zzast_localz00
																						(BgL_arg1975z00_3818,
																						BgL_arg1976z00_3819);
																				}
																			}
																			BgL_newtail1578z00_3815 =
																				MAKE_YOUNG_PAIR(
																				((obj_t) BgL_arg1974z00_3816), BNIL);
																		}
																		SET_CDR(BgL_tail1577z00_3814,
																			BgL_newtail1578z00_3815);
																		{	/* Ast/alphatize.scm 436 */
																			obj_t BgL_arg1973z00_3820;

																			BgL_arg1973z00_3820 =
																				CDR(((obj_t) BgL_l1574z00_3813));
																			{
																				obj_t BgL_tail1577z00_5019;
																				obj_t BgL_l1574z00_5018;

																				BgL_l1574z00_5018 = BgL_arg1973z00_3820;
																				BgL_tail1577z00_5019 =
																					BgL_newtail1578z00_3815;
																				BgL_tail1577z00_3814 =
																					BgL_tail1577z00_5019;
																				BgL_l1574z00_3813 = BgL_l1574z00_5018;
																				goto
																					BgL_zc3z04anonymousza31971ze3z87_3812;
																			}
																		}
																	}
															}
														}
													{	/* Ast/alphatize.scm 436 */
														obj_t BgL_oldzd2bodyzd2_3821;

														BgL_oldzd2bodyzd2_3821 =
															(((BgL_sfunz00_bglt) COBJECT(
																	((BgL_sfunz00_bglt)
																		BgL_oldzd2sfunzd2_3808)))->BgL_bodyz00);
														{	/* Ast/alphatize.scm 440 */
															BgL_nodez00_bglt BgL_newzd2bodyzd2_3822;

															{	/* Ast/alphatize.scm 441 */
																obj_t BgL_arg1967z00_3823;
																obj_t BgL_arg1968z00_3824;
																obj_t BgL_arg1969z00_3825;

																BgL_arg1967z00_3823 =
																	BGl_appendzd221011zd2zzast_alphatiza7eza7
																	(BgL_oldzd2localszd2_3788,
																	BgL_oldzd2argszd2_3809);
																BgL_arg1968z00_3824 =
																	BGl_appendzd221011zd2zzast_alphatiza7eza7
																	(BgL_newzd2localszd2_3789,
																	BgL_newzd2argszd2_3810);
																BgL_arg1969z00_3825 =
																	BGl_getzd2locationzd2zzast_alphatiza7eza7((
																		(BgL_nodez00_bglt) ((BgL_letzd2funzd2_bglt)
																			BgL_nodez00_3548)), BgL_locz00_3549);
																BgL_newzd2bodyzd2_3822 =
																	BGl_alphatiza7eza7zzast_alphatiza7eza7
																	(BgL_arg1967z00_3823, BgL_arg1968z00_3824,
																	BgL_arg1969z00_3825,
																	((BgL_nodez00_bglt) BgL_oldzd2bodyzd2_3821));
															}
															{	/* Ast/alphatize.scm 441 */
																BgL_sfunz00_bglt BgL_newzd2sfunzd2_3826;

																{	/* Ast/alphatize.scm 445 */
																	BgL_sfunz00_bglt BgL_new1378z00_3827;

																	{	/* Ast/alphatize.scm 447 */
																		BgL_sfunz00_bglt BgL_new1391z00_3828;

																		BgL_new1391z00_3828 =
																			((BgL_sfunz00_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_sfunz00_bgl))));
																		{	/* Ast/alphatize.scm 447 */
																			long BgL_arg1966z00_3829;

																			BgL_arg1966z00_3829 =
																				BGL_CLASS_NUM(BGl_sfunz00zzast_varz00);
																			BGL_OBJECT_CLASS_NUM_SET(
																				((BgL_objectz00_bglt)
																					BgL_new1391z00_3828),
																				BgL_arg1966z00_3829);
																		}
																		{	/* Ast/alphatize.scm 447 */
																			BgL_objectz00_bglt BgL_tmpz00_5033;

																			BgL_tmpz00_5033 =
																				((BgL_objectz00_bglt)
																				BgL_new1391z00_3828);
																			BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5033,
																				BFALSE);
																		}
																		((BgL_objectz00_bglt) BgL_new1391z00_3828);
																		BgL_new1378z00_3827 = BgL_new1391z00_3828;
																	}
																	((((BgL_funz00_bglt) COBJECT(
																					((BgL_funz00_bglt)
																						BgL_new1378z00_3827)))->
																			BgL_arityz00) =
																		((long) (((BgL_funz00_bglt)
																					COBJECT(((BgL_funz00_bglt)
																							BgL_oldzd2sfunzd2_3808)))->
																				BgL_arityz00)), BUNSPEC);
																	((((BgL_funz00_bglt)
																				COBJECT(((BgL_funz00_bglt)
																						BgL_new1378z00_3827)))->
																			BgL_sidezd2effectzd2) =
																		((obj_t) (((BgL_funz00_bglt)
																					COBJECT(((BgL_funz00_bglt)
																							BgL_oldzd2sfunzd2_3808)))->
																				BgL_sidezd2effectzd2)), BUNSPEC);
																	((((BgL_funz00_bglt)
																				COBJECT(((BgL_funz00_bglt)
																						BgL_new1378z00_3827)))->
																			BgL_predicatezd2ofzd2) =
																		((obj_t) (((BgL_funz00_bglt)
																					COBJECT(((BgL_funz00_bglt)
																							BgL_oldzd2sfunzd2_3808)))->
																				BgL_predicatezd2ofzd2)), BUNSPEC);
																	((((BgL_funz00_bglt)
																				COBJECT(((BgL_funz00_bglt)
																						BgL_new1378z00_3827)))->
																			BgL_stackzd2allocatorzd2) =
																		((obj_t) (((BgL_funz00_bglt)
																					COBJECT(((BgL_funz00_bglt)
																							BgL_oldzd2sfunzd2_3808)))->
																				BgL_stackzd2allocatorzd2)), BUNSPEC);
																	((((BgL_funz00_bglt)
																				COBJECT(((BgL_funz00_bglt)
																						BgL_new1378z00_3827)))->
																			BgL_topzf3zf3) =
																		((bool_t) (((BgL_funz00_bglt)
																					COBJECT(((BgL_funz00_bglt)
																							BgL_oldzd2sfunzd2_3808)))->
																				BgL_topzf3zf3)), BUNSPEC);
																	((((BgL_funz00_bglt)
																				COBJECT(((BgL_funz00_bglt)
																						BgL_new1378z00_3827)))->
																			BgL_thezd2closurezd2) =
																		((obj_t) (((BgL_funz00_bglt)
																					COBJECT(((BgL_funz00_bglt)
																							BgL_oldzd2sfunzd2_3808)))->
																				BgL_thezd2closurezd2)), BUNSPEC);
																	((((BgL_funz00_bglt)
																				COBJECT(((BgL_funz00_bglt)
																						BgL_new1378z00_3827)))->
																			BgL_effectz00) =
																		((obj_t) (((BgL_funz00_bglt)
																					COBJECT(((BgL_funz00_bglt)
																							BgL_oldzd2sfunzd2_3808)))->
																				BgL_effectz00)), BUNSPEC);
																	((((BgL_funz00_bglt)
																				COBJECT(((BgL_funz00_bglt)
																						BgL_new1378z00_3827)))->
																			BgL_failsafez00) =
																		((obj_t) (((BgL_funz00_bglt)
																					COBJECT(((BgL_funz00_bglt)
																							BgL_oldzd2sfunzd2_3808)))->
																				BgL_failsafez00)), BUNSPEC);
																	((((BgL_funz00_bglt)
																				COBJECT(((BgL_funz00_bglt)
																						BgL_new1378z00_3827)))->
																			BgL_argszd2noescapezd2) =
																		((obj_t) (((BgL_funz00_bglt)
																					COBJECT(((BgL_funz00_bglt)
																							BgL_oldzd2sfunzd2_3808)))->
																				BgL_argszd2noescapezd2)), BUNSPEC);
																	((((BgL_funz00_bglt)
																				COBJECT(((BgL_funz00_bglt)
																						BgL_new1378z00_3827)))->
																			BgL_argszd2retescapezd2) =
																		((obj_t) (((BgL_funz00_bglt)
																					COBJECT(((BgL_funz00_bglt)
																							BgL_oldzd2sfunzd2_3808)))->
																				BgL_argszd2retescapezd2)), BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_propertyz00) =
																		((obj_t) (((BgL_sfunz00_bglt)
																					COBJECT(((BgL_sfunz00_bglt) (
																								(BgL_funz00_bglt)
																								BgL_oldzd2sfunzd2_3808))))->
																				BgL_propertyz00)), BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_argsz00) =
																		((obj_t) BgL_newzd2argszd2_3810), BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_argszd2namezd2) =
																		((obj_t) (((BgL_sfunz00_bglt)
																					COBJECT(((BgL_sfunz00_bglt) (
																								(BgL_funz00_bglt)
																								BgL_oldzd2sfunzd2_3808))))->
																				BgL_argszd2namezd2)), BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_bodyz00) =
																		((obj_t) ((obj_t) BgL_newzd2bodyzd2_3822)),
																		BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_classz00) =
																		((obj_t) (((BgL_sfunz00_bglt)
																					COBJECT(((BgL_sfunz00_bglt) (
																								(BgL_funz00_bglt)
																								BgL_oldzd2sfunzd2_3808))))->
																				BgL_classz00)), BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_dssslzd2keywordszd2) =
																		((obj_t) (((BgL_sfunz00_bglt)
																					COBJECT(((BgL_sfunz00_bglt) (
																								(BgL_funz00_bglt)
																								BgL_oldzd2sfunzd2_3808))))->
																				BgL_dssslzd2keywordszd2)), BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_locz00) =
																		((obj_t) (((BgL_sfunz00_bglt)
																					COBJECT(((BgL_sfunz00_bglt) (
																								(BgL_funz00_bglt)
																								BgL_oldzd2sfunzd2_3808))))->
																				BgL_locz00)), BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_optionalsz00) =
																		((obj_t) (((BgL_sfunz00_bglt)
																					COBJECT(((BgL_sfunz00_bglt) (
																								(BgL_funz00_bglt)
																								BgL_oldzd2sfunzd2_3808))))->
																				BgL_optionalsz00)), BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_keysz00) =
																		((obj_t) (((BgL_sfunz00_bglt)
																					COBJECT(((BgL_sfunz00_bglt) (
																								(BgL_funz00_bglt)
																								BgL_oldzd2sfunzd2_3808))))->
																				BgL_keysz00)), BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_thezd2closurezd2globalz00) =
																		((obj_t) (((BgL_sfunz00_bglt)
																					COBJECT(((BgL_sfunz00_bglt) (
																								(BgL_funz00_bglt)
																								BgL_oldzd2sfunzd2_3808))))->
																				BgL_thezd2closurezd2globalz00)),
																		BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_strengthz00) =
																		((obj_t) (((BgL_sfunz00_bglt)
																					COBJECT(((BgL_sfunz00_bglt) (
																								(BgL_funz00_bglt)
																								BgL_oldzd2sfunzd2_3808))))->
																				BgL_strengthz00)), BUNSPEC);
																	((((BgL_sfunz00_bglt)
																				COBJECT(BgL_new1378z00_3827))->
																			BgL_stackablez00) =
																		((obj_t) (((BgL_sfunz00_bglt)
																					COBJECT(((BgL_sfunz00_bglt) (
																								(BgL_funz00_bglt)
																								BgL_oldzd2sfunzd2_3808))))->
																				BgL_stackablez00)), BUNSPEC);
																	BgL_newzd2sfunzd2_3826 = BgL_new1378z00_3827;
																}
																{	/* Ast/alphatize.scm 445 */

																	{	/* Ast/alphatize.scm 448 */
																		bool_t BgL_arg1965z00_3830;

																		BgL_arg1965z00_3830 =
																			(((BgL_variablez00_bglt) COBJECT(
																					((BgL_variablez00_bglt)
																						((BgL_localz00_bglt)
																							BgL_oldz00_3806))))->
																			BgL_userzf3zf3);
																		((((BgL_variablez00_bglt)
																					COBJECT(((BgL_variablez00_bglt) (
																								(BgL_localz00_bglt)
																								BgL_newz00_3807))))->
																				BgL_userzf3zf3) =
																			((bool_t) BgL_arg1965z00_3830), BUNSPEC);
																	}
																	((((BgL_variablez00_bglt) COBJECT(
																					((BgL_variablez00_bglt)
																						((BgL_localz00_bglt)
																							BgL_newz00_3807))))->
																			BgL_valuez00) =
																		((BgL_valuez00_bglt) ((BgL_valuez00_bglt)
																				BgL_newzd2sfunzd2_3826)), BUNSPEC);
									}}}}}}}}
									{	/* Ast/alphatize.scm 433 */
										obj_t BgL_arg1977z00_3831;
										obj_t BgL_arg1978z00_3832;

										BgL_arg1977z00_3831 = CDR(((obj_t) BgL_ll1579z00_3804));
										BgL_arg1978z00_3832 = CDR(((obj_t) BgL_ll1580z00_3805));
										{
											obj_t BgL_ll1580z00_5135;
											obj_t BgL_ll1579z00_5134;

											BgL_ll1579z00_5134 = BgL_arg1977z00_3831;
											BgL_ll1580z00_5135 = BgL_arg1978z00_3832;
											BgL_ll1580z00_3805 = BgL_ll1580z00_5135;
											BgL_ll1579z00_3804 = BgL_ll1579z00_5134;
											goto BgL_zc3z04anonymousza31963ze3z87_3803;
										}
									}
								}
						}
						{	/* Ast/alphatize.scm 452 */
							BgL_letzd2funzd2_bglt BgL_new1392z00_3833;

							{	/* Ast/alphatize.scm 453 */
								BgL_letzd2funzd2_bglt BgL_new1397z00_3834;

								BgL_new1397z00_3834 =
									((BgL_letzd2funzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_letzd2funzd2_bgl))));
								{	/* Ast/alphatize.scm 453 */
									long BgL_arg1981z00_3835;

									BgL_arg1981z00_3835 =
										BGL_CLASS_NUM(BGl_letzd2funzd2zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1397z00_3834),
										BgL_arg1981z00_3835);
								}
								{	/* Ast/alphatize.scm 453 */
									BgL_objectz00_bglt BgL_tmpz00_5140;

									BgL_tmpz00_5140 = ((BgL_objectz00_bglt) BgL_new1397z00_3834);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5140, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1397z00_3834);
								BgL_new1392z00_3833 = BgL_new1397z00_3834;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1392z00_3833)))->BgL_locz00) =
								((obj_t)
									BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt)
											((BgL_letzd2funzd2_bglt) BgL_nodez00_3548)),
										BgL_locz00_3549)), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1392z00_3833)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_nodez00_bglt)
											COBJECT(((BgL_nodez00_bglt) ((BgL_letzd2funzd2_bglt)
														BgL_nodez00_3548))))->BgL_typez00)), BUNSPEC);
							((((BgL_nodezf2effectzf2_bglt)
										COBJECT(((BgL_nodezf2effectzf2_bglt)
												BgL_new1392z00_3833)))->BgL_sidezd2effectzd2) =
								((obj_t) (((BgL_nodezf2effectzf2_bglt)
											COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
															(BgL_letzd2funzd2_bglt) BgL_nodez00_3548)))))->
										BgL_sidezd2effectzd2)), BUNSPEC);
							((((BgL_nodezf2effectzf2_bglt)
										COBJECT(((BgL_nodezf2effectzf2_bglt)
												BgL_new1392z00_3833)))->BgL_keyz00) =
								((obj_t) (((BgL_nodezf2effectzf2_bglt)
											COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
															(BgL_letzd2funzd2_bglt) BgL_nodez00_3548)))))->
										BgL_keyz00)), BUNSPEC);
							((((BgL_letzd2funzd2_bglt) COBJECT(BgL_new1392z00_3833))->
									BgL_localsz00) = ((obj_t) BgL_newzd2localszd2_3789), BUNSPEC);
							{
								BgL_nodez00_bglt BgL_auxz00_5167;

								{	/* Ast/alphatize.scm 457 */
									obj_t BgL_arg1979z00_3836;
									BgL_nodez00_bglt BgL_arg1980z00_3837;

									BgL_arg1979z00_3836 =
										BGl_getzd2locationzd2zzast_alphatiza7eza7(
										((BgL_nodez00_bglt)
											((BgL_letzd2funzd2_bglt) BgL_nodez00_3548)),
										BgL_locz00_3549);
									BgL_arg1980z00_3837 =
										(((BgL_letzd2funzd2_bglt) COBJECT(((BgL_letzd2funzd2_bglt)
													BgL_nodez00_3548)))->BgL_bodyz00);
									BgL_auxz00_5167 =
										BGl_alphatiza7eza7zzast_alphatiza7eza7
										(BgL_oldzd2localszd2_3788, BgL_newzd2localszd2_3789,
										BgL_arg1979z00_3836, BgL_arg1980z00_3837);
								}
								((((BgL_letzd2funzd2_bglt) COBJECT(BgL_new1392z00_3833))->
										BgL_bodyz00) =
									((BgL_nodez00_bglt) BgL_auxz00_5167), BUNSPEC);
							}
							return ((BgL_nodez00_bglt) BgL_new1392z00_3833);
						}
					}
				}
			}
		}

	}



/* &do-alphatize-box-set1658 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2boxzd2set1658z17zzast_alphatiza7eza7(obj_t
		BgL_envz00_3550, obj_t BgL_nodez00_3551, obj_t BgL_locz00_3552)
	{
		{	/* Ast/alphatize.scm 414 */
			{	/* Ast/alphatize.scm 415 */
				BgL_boxzd2setz12zc0_bglt BgL_new1373z00_3839;

				{	/* Ast/alphatize.scm 416 */
					BgL_boxzd2setz12zc0_bglt BgL_new1377z00_3840;

					BgL_new1377z00_3840 =
						((BgL_boxzd2setz12zc0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_boxzd2setz12zc0_bgl))));
					{	/* Ast/alphatize.scm 416 */
						long BgL_arg1962z00_3841;

						BgL_arg1962z00_3841 =
							BGL_CLASS_NUM(BGl_boxzd2setz12zc0zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1377z00_3840), BgL_arg1962z00_3841);
					}
					{	/* Ast/alphatize.scm 416 */
						BgL_objectz00_bglt BgL_tmpz00_5180;

						BgL_tmpz00_5180 = ((BgL_objectz00_bglt) BgL_new1377z00_3840);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5180, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1377z00_3840);
					BgL_new1373z00_3839 = BgL_new1377z00_3840;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1373z00_3839)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_boxzd2setz12zc0_bglt) BgL_nodez00_3551)),
							BgL_locz00_3552)), BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1373z00_3839)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_boxzd2setz12zc0_bglt)
											BgL_nodez00_3551))))->BgL_typez00)), BUNSPEC);
				{
					BgL_varz00_bglt BgL_auxz00_5194;

					{	/* Ast/alphatize.scm 417 */
						BgL_varz00_bglt BgL_arg1960z00_3842;

						BgL_arg1960z00_3842 =
							(((BgL_boxzd2setz12zc0_bglt) COBJECT(
									((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_3551)))->BgL_varz00);
						BgL_auxz00_5194 =
							((BgL_varz00_bglt)
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
								((BgL_nodez00_bglt) BgL_arg1960z00_3842), BgL_locz00_3552));
					}
					((((BgL_boxzd2setz12zc0_bglt) COBJECT(BgL_new1373z00_3839))->
							BgL_varz00) = ((BgL_varz00_bglt) BgL_auxz00_5194), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_5201;

					{	/* Ast/alphatize.scm 418 */
						BgL_nodez00_bglt BgL_arg1961z00_3843;

						BgL_arg1961z00_3843 =
							(((BgL_boxzd2setz12zc0_bglt) COBJECT(
									((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_3551)))->
							BgL_valuez00);
						BgL_auxz00_5201 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1961z00_3843,
							BgL_locz00_3552);
					}
					((((BgL_boxzd2setz12zc0_bglt) COBJECT(BgL_new1373z00_3839))->
							BgL_valuez00) = ((BgL_nodez00_bglt) BgL_auxz00_5201), BUNSPEC);
				}
				((((BgL_boxzd2setz12zc0_bglt) COBJECT(BgL_new1373z00_3839))->
						BgL_vtypez00) =
					((BgL_typez00_bglt) (((BgL_boxzd2setz12zc0_bglt)
								COBJECT(((BgL_boxzd2setz12zc0_bglt) ((BgL_nodez00_bglt) (
												(BgL_boxzd2setz12zc0_bglt) BgL_nodez00_3551)))))->
							BgL_vtypez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1373z00_3839);
			}
		}

	}



/* &do-alphatize-box-ref1656 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2boxzd2ref1656z17zzast_alphatiza7eza7(obj_t
		BgL_envz00_3553, obj_t BgL_nodez00_3554, obj_t BgL_locz00_3555)
	{
		{	/* Ast/alphatize.scm 406 */
			{	/* Ast/alphatize.scm 407 */
				BgL_boxzd2refzd2_bglt BgL_new1366z00_3845;

				{	/* Ast/alphatize.scm 408 */
					BgL_boxzd2refzd2_bglt BgL_new1372z00_3846;

					BgL_new1372z00_3846 =
						((BgL_boxzd2refzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_boxzd2refzd2_bgl))));
					{	/* Ast/alphatize.scm 408 */
						long BgL_arg1959z00_3847;

						BgL_arg1959z00_3847 = BGL_CLASS_NUM(BGl_boxzd2refzd2zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1372z00_3846), BgL_arg1959z00_3847);
					}
					{	/* Ast/alphatize.scm 408 */
						BgL_objectz00_bglt BgL_tmpz00_5216;

						BgL_tmpz00_5216 = ((BgL_objectz00_bglt) BgL_new1372z00_3846);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5216, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1372z00_3846);
					BgL_new1366z00_3845 = BgL_new1372z00_3846;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1366z00_3845)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_boxzd2refzd2_bglt) BgL_nodez00_3554)), BgL_locz00_3555)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1366z00_3845)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_boxzd2refzd2_bglt)
											BgL_nodez00_3554))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1366z00_3845)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_boxzd2refzd2_bglt) BgL_nodez00_3554)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1366z00_3845)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_boxzd2refzd2_bglt) BgL_nodez00_3554)))))->
							BgL_keyz00)), BUNSPEC);
				{
					BgL_varz00_bglt BgL_auxz00_5242;

					{	/* Ast/alphatize.scm 409 */
						BgL_varz00_bglt BgL_arg1958z00_3848;

						BgL_arg1958z00_3848 =
							(((BgL_boxzd2refzd2_bglt) COBJECT(
									((BgL_boxzd2refzd2_bglt) BgL_nodez00_3554)))->BgL_varz00);
						BgL_auxz00_5242 =
							((BgL_varz00_bglt)
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
								((BgL_nodez00_bglt) BgL_arg1958z00_3848), BgL_locz00_3555));
					}
					((((BgL_boxzd2refzd2_bglt) COBJECT(BgL_new1366z00_3845))->
							BgL_varz00) = ((BgL_varz00_bglt) BgL_auxz00_5242), BUNSPEC);
				}
				((((BgL_boxzd2refzd2_bglt) COBJECT(BgL_new1366z00_3845))->
						BgL_vtypez00) =
					((BgL_typez00_bglt) (((BgL_boxzd2refzd2_bglt)
								COBJECT(((BgL_boxzd2refzd2_bglt) ((BgL_nodez00_bglt) (
												(BgL_boxzd2refzd2_bglt) BgL_nodez00_3554)))))->
							BgL_vtypez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1366z00_3845);
			}
		}

	}



/* &do-alphatize-make-bo1654 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2makezd2bo1654z17zzast_alphatiza7eza7(obj_t
		BgL_envz00_3556, obj_t BgL_nodez00_3557, obj_t BgL_locz00_3558)
	{
		{	/* Ast/alphatize.scm 398 */
			{	/* Ast/alphatize.scm 399 */
				BgL_makezd2boxzd2_bglt BgL_new1358z00_3850;

				{	/* Ast/alphatize.scm 400 */
					BgL_makezd2boxzd2_bglt BgL_new1365z00_3851;

					BgL_new1365z00_3851 =
						((BgL_makezd2boxzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_makezd2boxzd2_bgl))));
					{	/* Ast/alphatize.scm 400 */
						long BgL_arg1957z00_3852;

						BgL_arg1957z00_3852 = BGL_CLASS_NUM(BGl_makezd2boxzd2zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1365z00_3851), BgL_arg1957z00_3852);
					}
					{	/* Ast/alphatize.scm 400 */
						BgL_objectz00_bglt BgL_tmpz00_5259;

						BgL_tmpz00_5259 = ((BgL_objectz00_bglt) BgL_new1365z00_3851);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5259, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1365z00_3851);
					BgL_new1358z00_3850 = BgL_new1365z00_3851;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1358z00_3850)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_makezd2boxzd2_bglt) BgL_nodez00_3557)),
							BgL_locz00_3558)), BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1358z00_3850)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_makezd2boxzd2_bglt)
											BgL_nodez00_3557))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1358z00_3850)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_makezd2boxzd2_bglt) BgL_nodez00_3557)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1358z00_3850)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_makezd2boxzd2_bglt) BgL_nodez00_3557)))))->
							BgL_keyz00)), BUNSPEC);
				{
					BgL_nodez00_bglt BgL_auxz00_5285;

					{	/* Ast/alphatize.scm 401 */
						BgL_nodez00_bglt BgL_arg1956z00_3853;

						BgL_arg1956z00_3853 =
							(((BgL_makezd2boxzd2_bglt) COBJECT(
									((BgL_makezd2boxzd2_bglt) BgL_nodez00_3557)))->BgL_valuez00);
						BgL_auxz00_5285 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1956z00_3853,
							BgL_locz00_3558);
					}
					((((BgL_makezd2boxzd2_bglt) COBJECT(BgL_new1358z00_3850))->
							BgL_valuez00) = ((BgL_nodez00_bglt) BgL_auxz00_5285), BUNSPEC);
				}
				((((BgL_makezd2boxzd2_bglt) COBJECT(BgL_new1358z00_3850))->
						BgL_vtypez00) =
					((BgL_typez00_bglt) (((BgL_makezd2boxzd2_bglt)
								COBJECT(((BgL_makezd2boxzd2_bglt) ((BgL_nodez00_bglt) (
												(BgL_makezd2boxzd2_bglt) BgL_nodez00_3557)))))->
							BgL_vtypez00)), BUNSPEC);
				((((BgL_makezd2boxzd2_bglt) COBJECT(BgL_new1358z00_3850))->
						BgL_stackablez00) =
					((obj_t) (((BgL_makezd2boxzd2_bglt)
								COBJECT(((BgL_makezd2boxzd2_bglt) ((BgL_nodez00_bglt) (
												(BgL_makezd2boxzd2_bglt) BgL_nodez00_3557)))))->
							BgL_stackablez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1358z00_3850);
			}
		}

	}



/* &do-alphatize-switch1652 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2switch1652zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3559, obj_t BgL_nodez00_3560, obj_t BgL_locz00_3561)
	{
		{	/* Ast/alphatize.scm 386 */
			{	/* Ast/alphatize.scm 387 */
				BgL_switchz00_bglt BgL_new1351z00_3855;

				{	/* Ast/alphatize.scm 388 */
					BgL_switchz00_bglt BgL_new1357z00_3856;

					BgL_new1357z00_3856 =
						((BgL_switchz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_switchz00_bgl))));
					{	/* Ast/alphatize.scm 388 */
						long BgL_arg1955z00_3857;

						BgL_arg1955z00_3857 = BGL_CLASS_NUM(BGl_switchz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1357z00_3856), BgL_arg1955z00_3857);
					}
					{	/* Ast/alphatize.scm 388 */
						BgL_objectz00_bglt BgL_tmpz00_5305;

						BgL_tmpz00_5305 = ((BgL_objectz00_bglt) BgL_new1357z00_3856);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5305, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1357z00_3856);
					BgL_new1351z00_3855 = BgL_new1357z00_3856;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1351z00_3855)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_switchz00_bglt) BgL_nodez00_3560)), BgL_locz00_3561)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1351z00_3855)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_switchz00_bglt)
											BgL_nodez00_3560))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1351z00_3855)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_switchz00_bglt) BgL_nodez00_3560)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1351z00_3855)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_switchz00_bglt) BgL_nodez00_3560)))))->
							BgL_keyz00)), BUNSPEC);
				{
					BgL_nodez00_bglt BgL_auxz00_5331;

					{	/* Ast/alphatize.scm 389 */
						BgL_nodez00_bglt BgL_arg1946z00_3858;

						BgL_arg1946z00_3858 =
							(((BgL_switchz00_bglt) COBJECT(
									((BgL_switchz00_bglt) BgL_nodez00_3560)))->BgL_testz00);
						BgL_auxz00_5331 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1946z00_3858,
							BgL_locz00_3561);
					}
					((((BgL_switchz00_bglt) COBJECT(BgL_new1351z00_3855))->BgL_testz00) =
						((BgL_nodez00_bglt) BgL_auxz00_5331), BUNSPEC);
				}
				{
					obj_t BgL_auxz00_5336;

					{	/* Ast/alphatize.scm 390 */
						obj_t BgL_l1564z00_3859;

						BgL_l1564z00_3859 =
							(((BgL_switchz00_bglt) COBJECT(
									((BgL_switchz00_bglt) BgL_nodez00_3560)))->BgL_clausesz00);
						if (NULLP(BgL_l1564z00_3859))
							{	/* Ast/alphatize.scm 390 */
								BgL_auxz00_5336 = BNIL;
							}
						else
							{	/* Ast/alphatize.scm 390 */
								obj_t BgL_head1566z00_3860;

								BgL_head1566z00_3860 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1564z00_3862;
									obj_t BgL_tail1567z00_3863;

									BgL_l1564z00_3862 = BgL_l1564z00_3859;
									BgL_tail1567z00_3863 = BgL_head1566z00_3860;
								BgL_zc3z04anonymousza31948ze3z87_3861:
									if (NULLP(BgL_l1564z00_3862))
										{	/* Ast/alphatize.scm 390 */
											BgL_auxz00_5336 = CDR(BgL_head1566z00_3860);
										}
									else
										{	/* Ast/alphatize.scm 390 */
											obj_t BgL_newtail1568z00_3864;

											{	/* Ast/alphatize.scm 390 */
												obj_t BgL_arg1951z00_3865;

												{	/* Ast/alphatize.scm 390 */
													obj_t BgL_clausez00_3866;

													BgL_clausez00_3866 = CAR(((obj_t) BgL_l1564z00_3862));
													{	/* Ast/alphatize.scm 391 */
														obj_t BgL_arg1952z00_3867;
														BgL_nodez00_bglt BgL_arg1953z00_3868;

														BgL_arg1952z00_3867 =
															CAR(((obj_t) BgL_clausez00_3866));
														{	/* Ast/alphatize.scm 392 */
															obj_t BgL_arg1954z00_3869;

															BgL_arg1954z00_3869 =
																CDR(((obj_t) BgL_clausez00_3866));
															BgL_arg1953z00_3868 =
																BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
																((BgL_nodez00_bglt) BgL_arg1954z00_3869),
																BgL_locz00_3561);
														}
														BgL_arg1951z00_3865 =
															MAKE_YOUNG_PAIR(BgL_arg1952z00_3867,
															((obj_t) BgL_arg1953z00_3868));
													}
												}
												BgL_newtail1568z00_3864 =
													MAKE_YOUNG_PAIR(BgL_arg1951z00_3865, BNIL);
											}
											SET_CDR(BgL_tail1567z00_3863, BgL_newtail1568z00_3864);
											{	/* Ast/alphatize.scm 390 */
												obj_t BgL_arg1950z00_3870;

												BgL_arg1950z00_3870 = CDR(((obj_t) BgL_l1564z00_3862));
												{
													obj_t BgL_tail1567z00_5360;
													obj_t BgL_l1564z00_5359;

													BgL_l1564z00_5359 = BgL_arg1950z00_3870;
													BgL_tail1567z00_5360 = BgL_newtail1568z00_3864;
													BgL_tail1567z00_3863 = BgL_tail1567z00_5360;
													BgL_l1564z00_3862 = BgL_l1564z00_5359;
													goto BgL_zc3z04anonymousza31948ze3z87_3861;
												}
											}
										}
								}
							}
					}
					((((BgL_switchz00_bglt) COBJECT(BgL_new1351z00_3855))->
							BgL_clausesz00) = ((obj_t) BgL_auxz00_5336), BUNSPEC);
				}
				((((BgL_switchz00_bglt) COBJECT(BgL_new1351z00_3855))->
						BgL_itemzd2typezd2) =
					((BgL_typez00_bglt) (((BgL_switchz00_bglt)
								COBJECT(((BgL_switchz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_switchz00_bglt) BgL_nodez00_3560)))))->
							BgL_itemzd2typezd2)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1351z00_3855);
			}
		}

	}



/* &do-alphatize-fail1650 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2fail1650zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3562, obj_t BgL_nodez00_3563, obj_t BgL_locz00_3564)
	{
		{	/* Ast/alphatize.scm 376 */
			{	/* Ast/alphatize.scm 377 */
				BgL_failz00_bglt BgL_new1347z00_3872;

				{	/* Ast/alphatize.scm 378 */
					BgL_failz00_bglt BgL_new1350z00_3873;

					BgL_new1350z00_3873 =
						((BgL_failz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_failz00_bgl))));
					{	/* Ast/alphatize.scm 378 */
						long BgL_arg1945z00_3874;

						BgL_arg1945z00_3874 = BGL_CLASS_NUM(BGl_failz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1350z00_3873), BgL_arg1945z00_3874);
					}
					{	/* Ast/alphatize.scm 378 */
						BgL_objectz00_bglt BgL_tmpz00_5372;

						BgL_tmpz00_5372 = ((BgL_objectz00_bglt) BgL_new1350z00_3873);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5372, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1350z00_3873);
					BgL_new1347z00_3872 = BgL_new1350z00_3873;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1347z00_3872)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_failz00_bglt) BgL_nodez00_3563)), BgL_locz00_3564)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1347z00_3872)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_failz00_bglt)
											BgL_nodez00_3563))))->BgL_typez00)), BUNSPEC);
				{
					BgL_nodez00_bglt BgL_auxz00_5386;

					{	/* Ast/alphatize.scm 379 */
						BgL_nodez00_bglt BgL_arg1942z00_3875;

						BgL_arg1942z00_3875 =
							(((BgL_failz00_bglt) COBJECT(
									((BgL_failz00_bglt) BgL_nodez00_3563)))->BgL_procz00);
						BgL_auxz00_5386 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1942z00_3875,
							BgL_locz00_3564);
					}
					((((BgL_failz00_bglt) COBJECT(BgL_new1347z00_3872))->BgL_procz00) =
						((BgL_nodez00_bglt) BgL_auxz00_5386), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_5391;

					{	/* Ast/alphatize.scm 380 */
						BgL_nodez00_bglt BgL_arg1943z00_3876;

						BgL_arg1943z00_3876 =
							(((BgL_failz00_bglt) COBJECT(
									((BgL_failz00_bglt) BgL_nodez00_3563)))->BgL_msgz00);
						BgL_auxz00_5391 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1943z00_3876,
							BgL_locz00_3564);
					}
					((((BgL_failz00_bglt) COBJECT(BgL_new1347z00_3872))->BgL_msgz00) =
						((BgL_nodez00_bglt) BgL_auxz00_5391), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_5396;

					{	/* Ast/alphatize.scm 381 */
						BgL_nodez00_bglt BgL_arg1944z00_3877;

						BgL_arg1944z00_3877 =
							(((BgL_failz00_bglt) COBJECT(
									((BgL_failz00_bglt) BgL_nodez00_3563)))->BgL_objz00);
						BgL_auxz00_5396 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1944z00_3877,
							BgL_locz00_3564);
					}
					((((BgL_failz00_bglt) COBJECT(BgL_new1347z00_3872))->BgL_objz00) =
						((BgL_nodez00_bglt) BgL_auxz00_5396), BUNSPEC);
				}
				return ((BgL_nodez00_bglt) BgL_new1347z00_3872);
			}
		}

	}



/* &do-alphatize-conditi1648 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2conditi1648zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3565, obj_t BgL_nodez00_3566, obj_t BgL_locz00_3567)
	{
		{	/* Ast/alphatize.scm 366 */
			{	/* Ast/alphatize.scm 367 */
				BgL_conditionalz00_bglt BgL_new1341z00_3879;

				{	/* Ast/alphatize.scm 368 */
					BgL_conditionalz00_bglt BgL_new1346z00_3880;

					BgL_new1346z00_3880 =
						((BgL_conditionalz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_conditionalz00_bgl))));
					{	/* Ast/alphatize.scm 368 */
						long BgL_arg1941z00_3881;

						BgL_arg1941z00_3881 =
							BGL_CLASS_NUM(BGl_conditionalz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1346z00_3880), BgL_arg1941z00_3881);
					}
					{	/* Ast/alphatize.scm 368 */
						BgL_objectz00_bglt BgL_tmpz00_5406;

						BgL_tmpz00_5406 = ((BgL_objectz00_bglt) BgL_new1346z00_3880);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5406, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1346z00_3880);
					BgL_new1341z00_3879 = BgL_new1346z00_3880;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1341z00_3879)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_conditionalz00_bglt) BgL_nodez00_3566)),
							BgL_locz00_3567)), BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1341z00_3879)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_conditionalz00_bglt)
											BgL_nodez00_3566))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1341z00_3879)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_conditionalz00_bglt) BgL_nodez00_3566)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1341z00_3879)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_conditionalz00_bglt) BgL_nodez00_3566)))))->
							BgL_keyz00)), BUNSPEC);
				{
					BgL_nodez00_bglt BgL_auxz00_5432;

					{	/* Ast/alphatize.scm 369 */
						BgL_nodez00_bglt BgL_arg1938z00_3882;

						BgL_arg1938z00_3882 =
							(((BgL_conditionalz00_bglt) COBJECT(
									((BgL_conditionalz00_bglt) BgL_nodez00_3566)))->BgL_testz00);
						BgL_auxz00_5432 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1938z00_3882,
							BgL_locz00_3567);
					}
					((((BgL_conditionalz00_bglt) COBJECT(BgL_new1341z00_3879))->
							BgL_testz00) = ((BgL_nodez00_bglt) BgL_auxz00_5432), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_5437;

					{	/* Ast/alphatize.scm 370 */
						BgL_nodez00_bglt BgL_arg1939z00_3883;

						BgL_arg1939z00_3883 =
							(((BgL_conditionalz00_bglt) COBJECT(
									((BgL_conditionalz00_bglt) BgL_nodez00_3566)))->BgL_truez00);
						BgL_auxz00_5437 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1939z00_3883,
							BgL_locz00_3567);
					}
					((((BgL_conditionalz00_bglt) COBJECT(BgL_new1341z00_3879))->
							BgL_truez00) = ((BgL_nodez00_bglt) BgL_auxz00_5437), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_5442;

					{	/* Ast/alphatize.scm 371 */
						BgL_nodez00_bglt BgL_arg1940z00_3884;

						BgL_arg1940z00_3884 =
							(((BgL_conditionalz00_bglt) COBJECT(
									((BgL_conditionalz00_bglt) BgL_nodez00_3566)))->BgL_falsez00);
						BgL_auxz00_5442 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1940z00_3884,
							BgL_locz00_3567);
					}
					((((BgL_conditionalz00_bglt) COBJECT(BgL_new1341z00_3879))->
							BgL_falsez00) = ((BgL_nodez00_bglt) BgL_auxz00_5442), BUNSPEC);
				}
				return ((BgL_nodez00_bglt) BgL_new1341z00_3879);
			}
		}

	}



/* &do-alphatize-setq1646 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2setq1646zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3568, obj_t BgL_nodez00_3569, obj_t BgL_locz00_3570)
	{
		{	/* Ast/alphatize.scm 339 */
			{	/* Ast/alphatize.scm 340 */
				BgL_varz00_bglt BgL_vz00_3886;

				BgL_vz00_3886 =
					(((BgL_setqz00_bglt) COBJECT(
							((BgL_setqz00_bglt) BgL_nodez00_3569)))->BgL_varz00);
				{	/* Ast/alphatize.scm 340 */
					BgL_variablez00_bglt BgL_varz00_3887;

					BgL_varz00_3887 =
						(((BgL_varz00_bglt) COBJECT(BgL_vz00_3886))->BgL_variablez00);
					{	/* Ast/alphatize.scm 341 */
						obj_t BgL_alphaz00_3888;

						BgL_alphaz00_3888 =
							(((BgL_variablez00_bglt) COBJECT(BgL_varz00_3887))->
							BgL_fastzd2alphazd2);
						{	/* Ast/alphatize.scm 342 */

							if ((BgL_alphaz00_3888 == BUNSPEC))
								{	/* Ast/alphatize.scm 344 */
									{	/* Ast/alphatize.scm 345 */
										obj_t BgL_arg1927z00_3889;

										BgL_arg1927z00_3889 =
											(((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt)
														((BgL_setqz00_bglt) BgL_nodez00_3569))))->
											BgL_locz00);
										BGl_usezd2variablez12zc0zzast_sexpz00(BgL_varz00_3887,
											BgL_arg1927z00_3889, CNST_TABLE_REF(5L));
									}
									{	/* Ast/alphatize.scm 346 */
										BgL_setqz00_bglt BgL_new1324z00_3890;

										{	/* Ast/alphatize.scm 347 */
											BgL_setqz00_bglt BgL_new1327z00_3891;

											BgL_new1327z00_3891 =
												((BgL_setqz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
															BgL_setqz00_bgl))));
											{	/* Ast/alphatize.scm 347 */
												long BgL_arg1930z00_3892;

												BgL_arg1930z00_3892 =
													BGL_CLASS_NUM(BGl_setqz00zzast_nodez00);
												BGL_OBJECT_CLASS_NUM_SET(
													((BgL_objectz00_bglt) BgL_new1327z00_3891),
													BgL_arg1930z00_3892);
											}
											{	/* Ast/alphatize.scm 347 */
												BgL_objectz00_bglt BgL_tmpz00_5463;

												BgL_tmpz00_5463 =
													((BgL_objectz00_bglt) BgL_new1327z00_3891);
												BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5463, BFALSE);
											}
											((BgL_objectz00_bglt) BgL_new1327z00_3891);
											BgL_new1324z00_3890 = BgL_new1327z00_3891;
										}
										((((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt) BgL_new1324z00_3890)))->
												BgL_locz00) =
											((obj_t)
												BGl_getzd2locationzd2zzast_alphatiza7eza7((
														(BgL_nodez00_bglt) ((BgL_setqz00_bglt)
															BgL_nodez00_3569)), BgL_locz00_3570)), BUNSPEC);
										((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
															BgL_new1324z00_3890)))->BgL_typez00) =
											((BgL_typez00_bglt) (((BgL_nodez00_bglt)
														COBJECT(((BgL_nodez00_bglt) ((BgL_setqz00_bglt)
																	BgL_nodez00_3569))))->BgL_typez00)), BUNSPEC);
										{
											BgL_varz00_bglt BgL_auxz00_5477;

											{	/* Ast/alphatize.scm 348 */
												BgL_refz00_bglt BgL_new1328z00_3893;

												{	/* Ast/alphatize.scm 348 */
													BgL_refz00_bglt BgL_new1332z00_3894;

													BgL_new1332z00_3894 =
														((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_refz00_bgl))));
													{	/* Ast/alphatize.scm 348 */
														long BgL_arg1928z00_3895;

														{	/* Ast/alphatize.scm 348 */
															obj_t BgL_classz00_3896;

															BgL_classz00_3896 = BGl_refz00zzast_nodez00;
															BgL_arg1928z00_3895 =
																BGL_CLASS_NUM(BgL_classz00_3896);
														}
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt) BgL_new1332z00_3894),
															BgL_arg1928z00_3895);
													}
													{	/* Ast/alphatize.scm 348 */
														BgL_objectz00_bglt BgL_tmpz00_5482;

														BgL_tmpz00_5482 =
															((BgL_objectz00_bglt) BgL_new1332z00_3894);
														BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5482, BFALSE);
													}
													((BgL_objectz00_bglt) BgL_new1332z00_3894);
													BgL_new1328z00_3893 = BgL_new1332z00_3894;
												}
												((((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_new1328z00_3893)))->
														BgL_locz00) =
													((obj_t)
														BGl_getzd2locationzd2zzast_alphatiza7eza7((
																(BgL_nodez00_bglt) ((BgL_setqz00_bglt)
																	BgL_nodez00_3569)), BgL_locz00_3570)),
													BUNSPEC);
												((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																	BgL_new1328z00_3893)))->BgL_typez00) =
													((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																COBJECT(((BgL_nodez00_bglt) BgL_vz00_3886)))->
															BgL_typez00)), BUNSPEC);
												((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																	BgL_new1328z00_3893)))->BgL_variablez00) =
													((BgL_variablez00_bglt) (((BgL_varz00_bglt)
																COBJECT(((BgL_varz00_bglt) ((BgL_nodez00_bglt)
																			BgL_vz00_3886))))->BgL_variablez00)),
													BUNSPEC);
												BgL_auxz00_5477 =
													((BgL_varz00_bglt) BgL_new1328z00_3893);
											}
											((((BgL_setqz00_bglt) COBJECT(BgL_new1324z00_3890))->
													BgL_varz00) =
												((BgL_varz00_bglt) BgL_auxz00_5477), BUNSPEC);
										}
										{
											BgL_nodez00_bglt BgL_auxz00_5502;

											{	/* Ast/alphatize.scm 349 */
												BgL_nodez00_bglt BgL_arg1929z00_3897;

												BgL_arg1929z00_3897 =
													(((BgL_setqz00_bglt) COBJECT(
															((BgL_setqz00_bglt) BgL_nodez00_3569)))->
													BgL_valuez00);
												BgL_auxz00_5502 =
													BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7
													(BgL_arg1929z00_3897, BgL_locz00_3570);
											}
											((((BgL_setqz00_bglt) COBJECT(BgL_new1324z00_3890))->
													BgL_valuez00) =
												((BgL_nodez00_bglt) BgL_auxz00_5502), BUNSPEC);
										}
										return ((BgL_nodez00_bglt) BgL_new1324z00_3890);
									}
								}
							else
								{	/* Ast/alphatize.scm 350 */
									bool_t BgL_test2283z00_5508;

									{	/* Ast/alphatize.scm 350 */
										obj_t BgL_classz00_3898;

										BgL_classz00_3898 = BGl_variablez00zzast_varz00;
										if (BGL_OBJECTP(BgL_alphaz00_3888))
											{	/* Ast/alphatize.scm 350 */
												BgL_objectz00_bglt BgL_arg1801z00_3899;

												BgL_arg1801z00_3899 =
													(BgL_objectz00_bglt) (BgL_alphaz00_3888);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* Ast/alphatize.scm 350 */
														long BgL_idxz00_3900;

														BgL_idxz00_3900 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3899);
														BgL_test2283z00_5508 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_3900 + 1L)) == BgL_classz00_3898);
													}
												else
													{	/* Ast/alphatize.scm 350 */
														bool_t BgL_res2136z00_3903;

														{	/* Ast/alphatize.scm 350 */
															obj_t BgL_oclassz00_3904;

															{	/* Ast/alphatize.scm 350 */
																long BgL_arg1808z00_3905;

																{	/* Ast/alphatize.scm 350 */
																	long BgL_arg1809z00_3906;

																	BgL_arg1809z00_3906 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3899);
																	BgL_arg1808z00_3905 =
																		(BgL_arg1809z00_3906 - OBJECT_TYPE);
																}
																BgL_oclassz00_3904 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_3905);
															}
															{	/* Ast/alphatize.scm 350 */
																bool_t BgL__ortest_1115z00_3907;

																BgL__ortest_1115z00_3907 =
																	(BgL_classz00_3898 == BgL_oclassz00_3904);
																if (BgL__ortest_1115z00_3907)
																	{	/* Ast/alphatize.scm 350 */
																		BgL_res2136z00_3903 =
																			BgL__ortest_1115z00_3907;
																	}
																else
																	{	/* Ast/alphatize.scm 350 */
																		long BgL_odepthz00_3908;

																		BgL_odepthz00_3908 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_3904);
																		if ((1L < BgL_odepthz00_3908))
																			{	/* Ast/alphatize.scm 350 */
																				obj_t BgL_arg1797z00_3909;

																				BgL_arg1797z00_3909 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_3904, 1L);
																				BgL_res2136z00_3903 =
																					(BgL_arg1797z00_3909 ==
																					BgL_classz00_3898);
																			}
																		else
																			{	/* Ast/alphatize.scm 350 */
																				BgL_res2136z00_3903 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2283z00_5508 = BgL_res2136z00_3903;
													}
											}
										else
											{	/* Ast/alphatize.scm 350 */
												BgL_test2283z00_5508 = ((bool_t) 0);
											}
									}
									if (BgL_test2283z00_5508)
										{	/* Ast/alphatize.scm 350 */
											{	/* Ast/alphatize.scm 351 */
												obj_t BgL_arg1933z00_3910;

												BgL_arg1933z00_3910 =
													(((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt)
																((BgL_setqz00_bglt) BgL_nodez00_3569))))->
													BgL_locz00);
												BGl_usezd2variablez12zc0zzast_sexpz00((
														(BgL_variablez00_bglt) BgL_alphaz00_3888),
													BgL_arg1933z00_3910, CNST_TABLE_REF(5L));
											}
											{	/* Ast/alphatize.scm 352 */
												BgL_setqz00_bglt BgL_new1333z00_3911;

												{	/* Ast/alphatize.scm 353 */
													BgL_setqz00_bglt BgL_new1336z00_3912;

													BgL_new1336z00_3912 =
														((BgL_setqz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_setqz00_bgl))));
													{	/* Ast/alphatize.scm 353 */
														long BgL_arg1936z00_3913;

														BgL_arg1936z00_3913 =
															BGL_CLASS_NUM(BGl_setqz00zzast_nodez00);
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt) BgL_new1336z00_3912),
															BgL_arg1936z00_3913);
													}
													{	/* Ast/alphatize.scm 353 */
														BgL_objectz00_bglt BgL_tmpz00_5538;

														BgL_tmpz00_5538 =
															((BgL_objectz00_bglt) BgL_new1336z00_3912);
														BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5538, BFALSE);
													}
													((BgL_objectz00_bglt) BgL_new1336z00_3912);
													BgL_new1333z00_3911 = BgL_new1336z00_3912;
												}
												((((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_new1333z00_3911)))->
														BgL_locz00) =
													((obj_t)
														BGl_getzd2locationzd2zzast_alphatiza7eza7((
																(BgL_nodez00_bglt) ((BgL_setqz00_bglt)
																	BgL_nodez00_3569)), BgL_locz00_3570)),
													BUNSPEC);
												((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																	BgL_new1333z00_3911)))->BgL_typez00) =
													((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																COBJECT(((BgL_nodez00_bglt) ((BgL_setqz00_bglt)
																			BgL_nodez00_3569))))->BgL_typez00)),
													BUNSPEC);
												{
													BgL_varz00_bglt BgL_auxz00_5552;

													{	/* Ast/alphatize.scm 354 */
														BgL_refz00_bglt BgL_new1337z00_3914;

														{	/* Ast/alphatize.scm 355 */
															BgL_refz00_bglt BgL_new1340z00_3915;

															BgL_new1340z00_3915 =
																((BgL_refz00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_refz00_bgl))));
															{	/* Ast/alphatize.scm 355 */
																long BgL_arg1934z00_3916;

																{	/* Ast/alphatize.scm 355 */
																	obj_t BgL_classz00_3917;

																	BgL_classz00_3917 = BGl_refz00zzast_nodez00;
																	BgL_arg1934z00_3916 =
																		BGL_CLASS_NUM(BgL_classz00_3917);
																}
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1340z00_3915),
																	BgL_arg1934z00_3916);
															}
															{	/* Ast/alphatize.scm 355 */
																BgL_objectz00_bglt BgL_tmpz00_5557;

																BgL_tmpz00_5557 =
																	((BgL_objectz00_bglt) BgL_new1340z00_3915);
																BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5557,
																	BFALSE);
															}
															((BgL_objectz00_bglt) BgL_new1340z00_3915);
															BgL_new1337z00_3914 = BgL_new1340z00_3915;
														}
														((((BgL_nodez00_bglt) COBJECT(
																		((BgL_nodez00_bglt) BgL_new1337z00_3914)))->
																BgL_locz00) =
															((obj_t)
																BGl_getzd2locationzd2zzast_alphatiza7eza7((
																		(BgL_nodez00_bglt) ((BgL_setqz00_bglt)
																			BgL_nodez00_3569)), BgL_locz00_3570)),
															BUNSPEC);
														((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																			BgL_new1337z00_3914)))->BgL_typez00) =
															((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt)
																				BgL_vz00_3886)))->BgL_typez00)),
															BUNSPEC);
														((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																			BgL_new1337z00_3914)))->BgL_variablez00) =
															((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
																	BgL_alphaz00_3888)), BUNSPEC);
														BgL_auxz00_5552 =
															((BgL_varz00_bglt) BgL_new1337z00_3914);
													}
													((((BgL_setqz00_bglt) COBJECT(BgL_new1333z00_3911))->
															BgL_varz00) =
														((BgL_varz00_bglt) BgL_auxz00_5552), BUNSPEC);
												}
												{
													BgL_nodez00_bglt BgL_auxz00_5575;

													{	/* Ast/alphatize.scm 357 */
														BgL_nodez00_bglt BgL_arg1935z00_3918;

														BgL_arg1935z00_3918 =
															(((BgL_setqz00_bglt) COBJECT(
																	((BgL_setqz00_bglt) BgL_nodez00_3569)))->
															BgL_valuez00);
														BgL_auxz00_5575 =
															BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7
															(BgL_arg1935z00_3918, BgL_locz00_3570);
													}
													((((BgL_setqz00_bglt) COBJECT(BgL_new1333z00_3911))->
															BgL_valuez00) =
														((BgL_nodez00_bglt) BgL_auxz00_5575), BUNSPEC);
												}
												return ((BgL_nodez00_bglt) BgL_new1333z00_3911);
											}
										}
									else
										{	/* Ast/alphatize.scm 361 */
											obj_t BgL_arg1937z00_3919;

											BgL_arg1937z00_3919 =
												BGl_shapez00zztools_shapez00(
												((obj_t) ((BgL_setqz00_bglt) BgL_nodez00_3569)));
											return
												((BgL_nodez00_bglt)
												BGl_internalzd2errorzd2zztools_errorz00
												(BGl_string2190z00zzast_alphatiza7eza7,
													BGl_string2191z00zzast_alphatiza7eza7,
													BgL_arg1937z00_3919));
										}
								}
						}
					}
				}
			}
		}

	}



/* &do-alphatize-cast1644 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2cast1644zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3571, obj_t BgL_nodez00_3572, obj_t BgL_locz00_3573)
	{
		{	/* Ast/alphatize.scm 331 */
			{	/* Ast/alphatize.scm 332 */
				BgL_castz00_bglt BgL_new1320z00_3921;

				{	/* Ast/alphatize.scm 333 */
					BgL_castz00_bglt BgL_new1323z00_3922;

					BgL_new1323z00_3922 =
						((BgL_castz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_castz00_bgl))));
					{	/* Ast/alphatize.scm 333 */
						long BgL_arg1926z00_3923;

						BgL_arg1926z00_3923 = BGL_CLASS_NUM(BGl_castz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1323z00_3922), BgL_arg1926z00_3923);
					}
					{	/* Ast/alphatize.scm 333 */
						BgL_objectz00_bglt BgL_tmpz00_5590;

						BgL_tmpz00_5590 = ((BgL_objectz00_bglt) BgL_new1323z00_3922);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5590, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1323z00_3922);
					BgL_new1320z00_3921 = BgL_new1323z00_3922;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1320z00_3921)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_castz00_bglt) BgL_nodez00_3572)), BgL_locz00_3573)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1320z00_3921)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_castz00_bglt)
											BgL_nodez00_3572))))->BgL_typez00)), BUNSPEC);
				{
					BgL_nodez00_bglt BgL_auxz00_5604;

					{	/* Ast/alphatize.scm 334 */
						BgL_nodez00_bglt BgL_arg1925z00_3924;

						BgL_arg1925z00_3924 =
							(((BgL_castz00_bglt) COBJECT(
									((BgL_castz00_bglt) BgL_nodez00_3572)))->BgL_argz00);
						BgL_auxz00_5604 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1925z00_3924,
							BgL_locz00_3573);
					}
					((((BgL_castz00_bglt) COBJECT(BgL_new1320z00_3921))->BgL_argz00) =
						((BgL_nodez00_bglt) BgL_auxz00_5604), BUNSPEC);
				}
				return ((BgL_nodez00_bglt) BgL_new1320z00_3921);
			}
		}

	}



/* &do-alphatize-instanc1642 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2instanc1642zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3574, obj_t BgL_nodez00_3575, obj_t BgL_locz00_3576)
	{
		{	/* Ast/alphatize.scm 323 */
			{	/* Ast/alphatize.scm 324 */
				BgL_instanceofz00_bglt BgL_new1311z00_3926;

				{	/* Ast/alphatize.scm 326 */
					BgL_instanceofz00_bglt BgL_new1319z00_3927;

					BgL_new1319z00_3927 =
						((BgL_instanceofz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_instanceofz00_bgl))));
					{	/* Ast/alphatize.scm 326 */
						long BgL_arg1924z00_3928;

						BgL_arg1924z00_3928 = BGL_CLASS_NUM(BGl_instanceofz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1319z00_3927), BgL_arg1924z00_3928);
					}
					{	/* Ast/alphatize.scm 326 */
						BgL_objectz00_bglt BgL_tmpz00_5614;

						BgL_tmpz00_5614 = ((BgL_objectz00_bglt) BgL_new1319z00_3927);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5614, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1319z00_3927);
					BgL_new1311z00_3926 = BgL_new1319z00_3927;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1311z00_3926)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_instanceofz00_bglt) BgL_nodez00_3575)),
							BgL_locz00_3576)), BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1311z00_3926)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_instanceofz00_bglt)
											BgL_nodez00_3575))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1311z00_3926)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_instanceofz00_bglt) BgL_nodez00_3575)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1311z00_3926)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_instanceofz00_bglt) BgL_nodez00_3575)))))->
							BgL_keyz00)), BUNSPEC);
				{
					obj_t BgL_auxz00_5640;

					{	/* Ast/alphatize.scm 325 */
						BgL_nodez00_bglt BgL_arg1920z00_3929;

						{	/* Ast/alphatize.scm 325 */
							obj_t BgL_arg1922z00_3930;

							{	/* Ast/alphatize.scm 325 */
								obj_t BgL_pairz00_3931;

								BgL_pairz00_3931 =
									(((BgL_externz00_bglt) COBJECT(
											((BgL_externz00_bglt)
												((BgL_instanceofz00_bglt) BgL_nodez00_3575))))->
									BgL_exprza2za2);
								BgL_arg1922z00_3930 = CAR(BgL_pairz00_3931);
							}
							BgL_arg1920z00_3929 =
								BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
								((BgL_nodez00_bglt) BgL_arg1922z00_3930), BgL_locz00_3576);
						}
						{	/* Ast/alphatize.scm 325 */
							obj_t BgL_list1921z00_3932;

							BgL_list1921z00_3932 =
								MAKE_YOUNG_PAIR(((obj_t) BgL_arg1920z00_3929), BNIL);
							BgL_auxz00_5640 = BgL_list1921z00_3932;
					}}
					((((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt) BgL_new1311z00_3926)))->
							BgL_exprza2za2) = ((obj_t) BgL_auxz00_5640), BUNSPEC);
				}
				((((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_new1311z00_3926)))->BgL_effectz00) =
					((obj_t) (((BgL_externz00_bglt)
								COBJECT(((BgL_externz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_instanceofz00_bglt) BgL_nodez00_3575)))))->
							BgL_effectz00)), BUNSPEC);
				((((BgL_privatez00_bglt) COBJECT(((BgL_privatez00_bglt)
									BgL_new1311z00_3926)))->BgL_czd2formatzd2) =
					((obj_t) (((BgL_privatez00_bglt)
								COBJECT(((BgL_privatez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_instanceofz00_bglt) BgL_nodez00_3575)))))->
							BgL_czd2formatzd2)), BUNSPEC);
				((((BgL_instanceofz00_bglt) COBJECT(BgL_new1311z00_3926))->
						BgL_classz00) =
					((BgL_typez00_bglt) (((BgL_instanceofz00_bglt)
								COBJECT(((BgL_instanceofz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_instanceofz00_bglt) BgL_nodez00_3575)))))->
							BgL_classz00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1311z00_3926);
			}
		}

	}



/* &do-alphatize-valloc1640 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2valloc1640zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3577, obj_t BgL_nodez00_3578, obj_t BgL_locz00_3579)
	{
		{	/* Ast/alphatize.scm 315 */
			{	/* Ast/alphatize.scm 316 */
				BgL_vallocz00_bglt BgL_new1301z00_3934;

				{	/* Ast/alphatize.scm 317 */
					BgL_vallocz00_bglt BgL_new1310z00_3935;

					BgL_new1310z00_3935 =
						((BgL_vallocz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_vallocz00_bgl))));
					{	/* Ast/alphatize.scm 317 */
						long BgL_arg1918z00_3936;

						BgL_arg1918z00_3936 = BGL_CLASS_NUM(BGl_vallocz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1310z00_3935), BgL_arg1918z00_3936);
					}
					{	/* Ast/alphatize.scm 317 */
						BgL_objectz00_bglt BgL_tmpz00_5673;

						BgL_tmpz00_5673 = ((BgL_objectz00_bglt) BgL_new1310z00_3935);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5673, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1310z00_3935);
					BgL_new1301z00_3934 = BgL_new1310z00_3935;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1301z00_3934)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_vallocz00_bglt) BgL_nodez00_3578)), BgL_locz00_3579)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1301z00_3934)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_vallocz00_bglt)
											BgL_nodez00_3578))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1301z00_3934)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_vallocz00_bglt) BgL_nodez00_3578)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1301z00_3934)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_vallocz00_bglt) BgL_nodez00_3578)))))->
							BgL_keyz00)), BUNSPEC);
				{
					obj_t BgL_auxz00_5699;

					{	/* Ast/alphatize.scm 318 */
						obj_t BgL_arg1917z00_3937;

						BgL_arg1917z00_3937 =
							(((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt)
										((BgL_vallocz00_bglt) BgL_nodez00_3578))))->BgL_exprza2za2);
						BgL_auxz00_5699 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1917z00_3937, BgL_locz00_3579);
					}
					((((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt) BgL_new1301z00_3934)))->
							BgL_exprza2za2) = ((obj_t) BgL_auxz00_5699), BUNSPEC);
				}
				((((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_new1301z00_3934)))->BgL_effectz00) =
					((obj_t) (((BgL_externz00_bglt)
								COBJECT(((BgL_externz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vallocz00_bglt) BgL_nodez00_3578)))))->
							BgL_effectz00)), BUNSPEC);
				((((BgL_privatez00_bglt) COBJECT(((BgL_privatez00_bglt)
									BgL_new1301z00_3934)))->BgL_czd2formatzd2) =
					((obj_t) (((BgL_privatez00_bglt)
								COBJECT(((BgL_privatez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vallocz00_bglt) BgL_nodez00_3578)))))->
							BgL_czd2formatzd2)), BUNSPEC);
				((((BgL_vallocz00_bglt) COBJECT(BgL_new1301z00_3934))->BgL_ftypez00) =
					((BgL_typez00_bglt) (((BgL_vallocz00_bglt)
								COBJECT(((BgL_vallocz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vallocz00_bglt) BgL_nodez00_3578)))))->
							BgL_ftypez00)), BUNSPEC);
				((((BgL_vallocz00_bglt) COBJECT(BgL_new1301z00_3934))->BgL_otypez00) =
					((BgL_typez00_bglt) (((BgL_vallocz00_bglt)
								COBJECT(((BgL_vallocz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vallocz00_bglt) BgL_nodez00_3578)))))->
							BgL_otypez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1301z00_3934);
			}
		}

	}



/* &do-alphatize-vset!1638 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2vsetz121638zd7zzast_alphatiza7eza7(obj_t
		BgL_envz00_3580, obj_t BgL_nodez00_3581, obj_t BgL_locz00_3582)
	{
		{	/* Ast/alphatize.scm 307 */
			{	/* Ast/alphatize.scm 308 */
				BgL_vsetz12z12_bglt BgL_new1289z00_3939;

				{	/* Ast/alphatize.scm 309 */
					BgL_vsetz12z12_bglt BgL_new1300z00_3940;

					BgL_new1300z00_3940 =
						((BgL_vsetz12z12_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_vsetz12z12_bgl))));
					{	/* Ast/alphatize.scm 309 */
						long BgL_arg1916z00_3941;

						BgL_arg1916z00_3941 = BGL_CLASS_NUM(BGl_vsetz12z12zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1300z00_3940), BgL_arg1916z00_3941);
					}
					{	/* Ast/alphatize.scm 309 */
						BgL_objectz00_bglt BgL_tmpz00_5733;

						BgL_tmpz00_5733 = ((BgL_objectz00_bglt) BgL_new1300z00_3940);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5733, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1300z00_3940);
					BgL_new1289z00_3939 = BgL_new1300z00_3940;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1289z00_3939)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_vsetz12z12_bglt) BgL_nodez00_3581)), BgL_locz00_3582)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1289z00_3939)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_vsetz12z12_bglt)
											BgL_nodez00_3581))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1289z00_3939)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_vsetz12z12_bglt) BgL_nodez00_3581)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1289z00_3939)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_vsetz12z12_bglt) BgL_nodez00_3581)))))->
							BgL_keyz00)), BUNSPEC);
				{
					obj_t BgL_auxz00_5759;

					{	/* Ast/alphatize.scm 310 */
						obj_t BgL_arg1915z00_3942;

						BgL_arg1915z00_3942 =
							(((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt)
										((BgL_vsetz12z12_bglt) BgL_nodez00_3581))))->
							BgL_exprza2za2);
						BgL_auxz00_5759 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1915z00_3942, BgL_locz00_3582);
					}
					((((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt) BgL_new1289z00_3939)))->
							BgL_exprza2za2) = ((obj_t) BgL_auxz00_5759), BUNSPEC);
				}
				((((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_new1289z00_3939)))->BgL_effectz00) =
					((obj_t) (((BgL_externz00_bglt)
								COBJECT(((BgL_externz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vsetz12z12_bglt) BgL_nodez00_3581)))))->
							BgL_effectz00)), BUNSPEC);
				((((BgL_privatez00_bglt) COBJECT(((BgL_privatez00_bglt)
									BgL_new1289z00_3939)))->BgL_czd2formatzd2) =
					((obj_t) (((BgL_privatez00_bglt)
								COBJECT(((BgL_privatez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vsetz12z12_bglt) BgL_nodez00_3581)))))->
							BgL_czd2formatzd2)), BUNSPEC);
				((((BgL_vsetz12z12_bglt) COBJECT(BgL_new1289z00_3939))->BgL_ftypez00) =
					((BgL_typez00_bglt) (((BgL_vsetz12z12_bglt)
								COBJECT(((BgL_vsetz12z12_bglt) ((BgL_nodez00_bglt) (
												(BgL_vsetz12z12_bglt) BgL_nodez00_3581)))))->
							BgL_ftypez00)), BUNSPEC);
				((((BgL_vsetz12z12_bglt) COBJECT(BgL_new1289z00_3939))->BgL_otypez00) =
					((BgL_typez00_bglt) (((BgL_vsetz12z12_bglt)
								COBJECT(((BgL_vsetz12z12_bglt) ((BgL_nodez00_bglt) (
												(BgL_vsetz12z12_bglt) BgL_nodez00_3581)))))->
							BgL_otypez00)), BUNSPEC);
				((((BgL_vsetz12z12_bglt) COBJECT(BgL_new1289z00_3939))->BgL_vtypez00) =
					((BgL_typez00_bglt) (((BgL_vsetz12z12_bglt)
								COBJECT(((BgL_vsetz12z12_bglt) ((BgL_nodez00_bglt) (
												(BgL_vsetz12z12_bglt) BgL_nodez00_3581)))))->
							BgL_vtypez00)), BUNSPEC);
				((((BgL_vsetz12z12_bglt) COBJECT(BgL_new1289z00_3939))->BgL_unsafez00) =
					((bool_t) (((BgL_vsetz12z12_bglt)
								COBJECT(((BgL_vsetz12z12_bglt) ((BgL_nodez00_bglt) (
												(BgL_vsetz12z12_bglt) BgL_nodez00_3581)))))->
							BgL_unsafez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1289z00_3939);
			}
		}

	}



/* &do-alphatize-vref1636 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2vref1636zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3583, obj_t BgL_nodez00_3584, obj_t BgL_locz00_3585)
	{
		{	/* Ast/alphatize.scm 299 */
			{	/* Ast/alphatize.scm 300 */
				BgL_vrefz00_bglt BgL_new1277z00_3944;

				{	/* Ast/alphatize.scm 301 */
					BgL_vrefz00_bglt BgL_new1288z00_3945;

					BgL_new1288z00_3945 =
						((BgL_vrefz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_vrefz00_bgl))));
					{	/* Ast/alphatize.scm 301 */
						long BgL_arg1914z00_3946;

						BgL_arg1914z00_3946 = BGL_CLASS_NUM(BGl_vrefz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1288z00_3945), BgL_arg1914z00_3946);
					}
					{	/* Ast/alphatize.scm 301 */
						BgL_objectz00_bglt BgL_tmpz00_5803;

						BgL_tmpz00_5803 = ((BgL_objectz00_bglt) BgL_new1288z00_3945);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5803, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1288z00_3945);
					BgL_new1277z00_3944 = BgL_new1288z00_3945;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1277z00_3944)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_vrefz00_bglt) BgL_nodez00_3584)), BgL_locz00_3585)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1277z00_3944)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_vrefz00_bglt)
											BgL_nodez00_3584))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1277z00_3944)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_vrefz00_bglt) BgL_nodez00_3584)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1277z00_3944)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_vrefz00_bglt) BgL_nodez00_3584)))))->BgL_keyz00)),
					BUNSPEC);
				{
					obj_t BgL_auxz00_5829;

					{	/* Ast/alphatize.scm 302 */
						obj_t BgL_arg1911z00_3947;

						BgL_arg1911z00_3947 =
							(((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt)
										((BgL_vrefz00_bglt) BgL_nodez00_3584))))->BgL_exprza2za2);
						BgL_auxz00_5829 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1911z00_3947, BgL_locz00_3585);
					}
					((((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt) BgL_new1277z00_3944)))->
							BgL_exprza2za2) = ((obj_t) BgL_auxz00_5829), BUNSPEC);
				}
				((((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_new1277z00_3944)))->BgL_effectz00) =
					((obj_t) (((BgL_externz00_bglt)
								COBJECT(((BgL_externz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vrefz00_bglt) BgL_nodez00_3584)))))->
							BgL_effectz00)), BUNSPEC);
				((((BgL_privatez00_bglt) COBJECT(((BgL_privatez00_bglt)
									BgL_new1277z00_3944)))->BgL_czd2formatzd2) =
					((obj_t) (((BgL_privatez00_bglt)
								COBJECT(((BgL_privatez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vrefz00_bglt) BgL_nodez00_3584)))))->
							BgL_czd2formatzd2)), BUNSPEC);
				((((BgL_vrefz00_bglt) COBJECT(BgL_new1277z00_3944))->BgL_ftypez00) =
					((BgL_typez00_bglt) (((BgL_vrefz00_bglt)
								COBJECT(((BgL_vrefz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vrefz00_bglt) BgL_nodez00_3584)))))->
							BgL_ftypez00)), BUNSPEC);
				((((BgL_vrefz00_bglt) COBJECT(BgL_new1277z00_3944))->BgL_otypez00) =
					((BgL_typez00_bglt) (((BgL_vrefz00_bglt)
								COBJECT(((BgL_vrefz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vrefz00_bglt) BgL_nodez00_3584)))))->
							BgL_otypez00)), BUNSPEC);
				((((BgL_vrefz00_bglt) COBJECT(BgL_new1277z00_3944))->BgL_vtypez00) =
					((BgL_typez00_bglt) (((BgL_vrefz00_bglt)
								COBJECT(((BgL_vrefz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vrefz00_bglt) BgL_nodez00_3584)))))->
							BgL_vtypez00)), BUNSPEC);
				((((BgL_vrefz00_bglt) COBJECT(BgL_new1277z00_3944))->BgL_unsafez00) =
					((bool_t) (((BgL_vrefz00_bglt)
								COBJECT(((BgL_vrefz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vrefz00_bglt) BgL_nodez00_3584)))))->
							BgL_unsafez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1277z00_3944);
			}
		}

	}



/* &do-alphatize-vlength1634 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2vlength1634zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3586, obj_t BgL_nodez00_3587, obj_t BgL_locz00_3588)
	{
		{	/* Ast/alphatize.scm 291 */
			{	/* Ast/alphatize.scm 292 */
				BgL_vlengthz00_bglt BgL_new1267z00_3949;

				{	/* Ast/alphatize.scm 293 */
					BgL_vlengthz00_bglt BgL_new1276z00_3950;

					BgL_new1276z00_3950 =
						((BgL_vlengthz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_vlengthz00_bgl))));
					{	/* Ast/alphatize.scm 293 */
						long BgL_arg1909z00_3951;

						BgL_arg1909z00_3951 = BGL_CLASS_NUM(BGl_vlengthz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1276z00_3950), BgL_arg1909z00_3951);
					}
					{	/* Ast/alphatize.scm 293 */
						BgL_objectz00_bglt BgL_tmpz00_5873;

						BgL_tmpz00_5873 = ((BgL_objectz00_bglt) BgL_new1276z00_3950);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5873, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1276z00_3950);
					BgL_new1267z00_3949 = BgL_new1276z00_3950;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1267z00_3949)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_vlengthz00_bglt) BgL_nodez00_3587)), BgL_locz00_3588)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1267z00_3949)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_vlengthz00_bglt)
											BgL_nodez00_3587))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1267z00_3949)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_vlengthz00_bglt) BgL_nodez00_3587)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1267z00_3949)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_vlengthz00_bglt) BgL_nodez00_3587)))))->
							BgL_keyz00)), BUNSPEC);
				{
					obj_t BgL_auxz00_5899;

					{	/* Ast/alphatize.scm 294 */
						obj_t BgL_arg1908z00_3952;

						BgL_arg1908z00_3952 =
							(((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt)
										((BgL_vlengthz00_bglt) BgL_nodez00_3587))))->
							BgL_exprza2za2);
						BgL_auxz00_5899 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1908z00_3952, BgL_locz00_3588);
					}
					((((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt) BgL_new1267z00_3949)))->
							BgL_exprza2za2) = ((obj_t) BgL_auxz00_5899), BUNSPEC);
				}
				((((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_new1267z00_3949)))->BgL_effectz00) =
					((obj_t) (((BgL_externz00_bglt)
								COBJECT(((BgL_externz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vlengthz00_bglt) BgL_nodez00_3587)))))->
							BgL_effectz00)), BUNSPEC);
				((((BgL_privatez00_bglt) COBJECT(((BgL_privatez00_bglt)
									BgL_new1267z00_3949)))->BgL_czd2formatzd2) =
					((obj_t) (((BgL_privatez00_bglt)
								COBJECT(((BgL_privatez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vlengthz00_bglt) BgL_nodez00_3587)))))->
							BgL_czd2formatzd2)), BUNSPEC);
				((((BgL_vlengthz00_bglt) COBJECT(BgL_new1267z00_3949))->BgL_vtypez00) =
					((BgL_typez00_bglt) (((BgL_vlengthz00_bglt)
								COBJECT(((BgL_vlengthz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vlengthz00_bglt) BgL_nodez00_3587)))))->
							BgL_vtypez00)), BUNSPEC);
				((((BgL_vlengthz00_bglt) COBJECT(BgL_new1267z00_3949))->BgL_ftypez00) =
					((obj_t) (((BgL_vlengthz00_bglt)
								COBJECT(((BgL_vlengthz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_vlengthz00_bglt) BgL_nodez00_3587)))))->
							BgL_ftypez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1267z00_3949);
			}
		}

	}



/* &do-alphatize-new1632 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2new1632zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3589, obj_t BgL_nodez00_3590, obj_t BgL_locz00_3591)
	{
		{	/* Ast/alphatize.scm 283 */
			{	/* Ast/alphatize.scm 284 */
				BgL_newz00_bglt BgL_new1258z00_3954;

				{	/* Ast/alphatize.scm 285 */
					BgL_newz00_bglt BgL_new1266z00_3955;

					BgL_new1266z00_3955 =
						((BgL_newz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_newz00_bgl))));
					{	/* Ast/alphatize.scm 285 */
						long BgL_arg1905z00_3956;

						BgL_arg1905z00_3956 = BGL_CLASS_NUM(BGl_newz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1266z00_3955), BgL_arg1905z00_3956);
					}
					{	/* Ast/alphatize.scm 285 */
						BgL_objectz00_bglt BgL_tmpz00_5933;

						BgL_tmpz00_5933 = ((BgL_objectz00_bglt) BgL_new1266z00_3955);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5933, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1266z00_3955);
					BgL_new1258z00_3954 = BgL_new1266z00_3955;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1258z00_3954)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_newz00_bglt) BgL_nodez00_3590)), BgL_locz00_3591)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1258z00_3954)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_newz00_bglt)
											BgL_nodez00_3590))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1258z00_3954)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_newz00_bglt) BgL_nodez00_3590)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1258z00_3954)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_newz00_bglt) BgL_nodez00_3590)))))->BgL_keyz00)),
					BUNSPEC);
				{
					obj_t BgL_auxz00_5959;

					{	/* Ast/alphatize.scm 286 */
						obj_t BgL_arg1901z00_3957;

						BgL_arg1901z00_3957 =
							(((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt)
										((BgL_newz00_bglt) BgL_nodez00_3590))))->BgL_exprza2za2);
						BgL_auxz00_5959 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1901z00_3957, BgL_locz00_3591);
					}
					((((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt) BgL_new1258z00_3954)))->
							BgL_exprza2za2) = ((obj_t) BgL_auxz00_5959), BUNSPEC);
				}
				((((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_new1258z00_3954)))->BgL_effectz00) =
					((obj_t) (((BgL_externz00_bglt)
								COBJECT(((BgL_externz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_newz00_bglt) BgL_nodez00_3590)))))->
							BgL_effectz00)), BUNSPEC);
				((((BgL_privatez00_bglt) COBJECT(((BgL_privatez00_bglt)
									BgL_new1258z00_3954)))->BgL_czd2formatzd2) =
					((obj_t) (((BgL_privatez00_bglt)
								COBJECT(((BgL_privatez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_newz00_bglt) BgL_nodez00_3590)))))->
							BgL_czd2formatzd2)), BUNSPEC);
				((((BgL_newz00_bglt) COBJECT(BgL_new1258z00_3954))->
						BgL_argszd2typezd2) =
					((obj_t) (((BgL_newz00_bglt)
								COBJECT(((BgL_newz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_newz00_bglt) BgL_nodez00_3590)))))->
							BgL_argszd2typezd2)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1258z00_3954);
			}
		}

	}



/* &do-alphatize-setfiel1630 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2setfiel1630zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3592, obj_t BgL_nodez00_3593, obj_t BgL_locz00_3594)
	{
		{	/* Ast/alphatize.scm 275 */
			{	/* Ast/alphatize.scm 276 */
				BgL_setfieldz00_bglt BgL_new1247z00_3959;

				{	/* Ast/alphatize.scm 277 */
					BgL_setfieldz00_bglt BgL_new1257z00_3960;

					BgL_new1257z00_3960 =
						((BgL_setfieldz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_setfieldz00_bgl))));
					{	/* Ast/alphatize.scm 277 */
						long BgL_arg1900z00_3961;

						BgL_arg1900z00_3961 = BGL_CLASS_NUM(BGl_setfieldz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1257z00_3960), BgL_arg1900z00_3961);
					}
					{	/* Ast/alphatize.scm 277 */
						BgL_objectz00_bglt BgL_tmpz00_5988;

						BgL_tmpz00_5988 = ((BgL_objectz00_bglt) BgL_new1257z00_3960);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_5988, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1257z00_3960);
					BgL_new1247z00_3959 = BgL_new1257z00_3960;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1247z00_3959)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_setfieldz00_bglt) BgL_nodez00_3593)), BgL_locz00_3594)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1247z00_3959)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_setfieldz00_bglt)
											BgL_nodez00_3593))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1247z00_3959)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_setfieldz00_bglt) BgL_nodez00_3593)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1247z00_3959)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_setfieldz00_bglt) BgL_nodez00_3593)))))->
							BgL_keyz00)), BUNSPEC);
				{
					obj_t BgL_auxz00_6014;

					{	/* Ast/alphatize.scm 278 */
						obj_t BgL_arg1899z00_3962;

						BgL_arg1899z00_3962 =
							(((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt)
										((BgL_setfieldz00_bglt) BgL_nodez00_3593))))->
							BgL_exprza2za2);
						BgL_auxz00_6014 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1899z00_3962, BgL_locz00_3594);
					}
					((((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt) BgL_new1247z00_3959)))->
							BgL_exprza2za2) = ((obj_t) BgL_auxz00_6014), BUNSPEC);
				}
				((((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_new1247z00_3959)))->BgL_effectz00) =
					((obj_t) (((BgL_externz00_bglt)
								COBJECT(((BgL_externz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_setfieldz00_bglt) BgL_nodez00_3593)))))->
							BgL_effectz00)), BUNSPEC);
				((((BgL_privatez00_bglt) COBJECT(((BgL_privatez00_bglt)
									BgL_new1247z00_3959)))->BgL_czd2formatzd2) =
					((obj_t) (((BgL_privatez00_bglt)
								COBJECT(((BgL_privatez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_setfieldz00_bglt) BgL_nodez00_3593)))))->
							BgL_czd2formatzd2)), BUNSPEC);
				((((BgL_setfieldz00_bglt) COBJECT(BgL_new1247z00_3959))->BgL_fnamez00) =
					((obj_t) (((BgL_setfieldz00_bglt)
								COBJECT(((BgL_setfieldz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_setfieldz00_bglt) BgL_nodez00_3593)))))->
							BgL_fnamez00)), BUNSPEC);
				((((BgL_setfieldz00_bglt) COBJECT(BgL_new1247z00_3959))->BgL_ftypez00) =
					((BgL_typez00_bglt) (((BgL_setfieldz00_bglt)
								COBJECT(((BgL_setfieldz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_setfieldz00_bglt) BgL_nodez00_3593)))))->
							BgL_ftypez00)), BUNSPEC);
				((((BgL_setfieldz00_bglt) COBJECT(BgL_new1247z00_3959))->BgL_otypez00) =
					((BgL_typez00_bglt) (((BgL_setfieldz00_bglt)
								COBJECT(((BgL_setfieldz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_setfieldz00_bglt) BgL_nodez00_3593)))))->
							BgL_otypez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1247z00_3959);
			}
		}

	}



/* &do-alphatize-getfiel1628 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2getfiel1628zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3595, obj_t BgL_nodez00_3596, obj_t BgL_locz00_3597)
	{
		{	/* Ast/alphatize.scm 267 */
			{	/* Ast/alphatize.scm 268 */
				BgL_getfieldz00_bglt BgL_new1235z00_3964;

				{	/* Ast/alphatize.scm 269 */
					BgL_getfieldz00_bglt BgL_new1246z00_3965;

					BgL_new1246z00_3965 =
						((BgL_getfieldz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_getfieldz00_bgl))));
					{	/* Ast/alphatize.scm 269 */
						long BgL_arg1898z00_3966;

						BgL_arg1898z00_3966 = BGL_CLASS_NUM(BGl_getfieldz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1246z00_3965), BgL_arg1898z00_3966);
					}
					{	/* Ast/alphatize.scm 269 */
						BgL_objectz00_bglt BgL_tmpz00_6053;

						BgL_tmpz00_6053 = ((BgL_objectz00_bglt) BgL_new1246z00_3965);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6053, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1246z00_3965);
					BgL_new1235z00_3964 = BgL_new1246z00_3965;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1235z00_3964)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_getfieldz00_bglt) BgL_nodez00_3596)), BgL_locz00_3597)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1235z00_3964)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_getfieldz00_bglt)
											BgL_nodez00_3596))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1235z00_3964)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_getfieldz00_bglt) BgL_nodez00_3596)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1235z00_3964)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_getfieldz00_bglt) BgL_nodez00_3596)))))->
							BgL_keyz00)), BUNSPEC);
				{
					obj_t BgL_auxz00_6079;

					{	/* Ast/alphatize.scm 270 */
						obj_t BgL_arg1897z00_3967;

						BgL_arg1897z00_3967 =
							(((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt)
										((BgL_getfieldz00_bglt) BgL_nodez00_3596))))->
							BgL_exprza2za2);
						BgL_auxz00_6079 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1897z00_3967, BgL_locz00_3597);
					}
					((((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt) BgL_new1235z00_3964)))->
							BgL_exprza2za2) = ((obj_t) BgL_auxz00_6079), BUNSPEC);
				}
				((((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_new1235z00_3964)))->BgL_effectz00) =
					((obj_t) (((BgL_externz00_bglt)
								COBJECT(((BgL_externz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_getfieldz00_bglt) BgL_nodez00_3596)))))->
							BgL_effectz00)), BUNSPEC);
				((((BgL_privatez00_bglt) COBJECT(((BgL_privatez00_bglt)
									BgL_new1235z00_3964)))->BgL_czd2formatzd2) =
					((obj_t) (((BgL_privatez00_bglt)
								COBJECT(((BgL_privatez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_getfieldz00_bglt) BgL_nodez00_3596)))))->
							BgL_czd2formatzd2)), BUNSPEC);
				((((BgL_getfieldz00_bglt) COBJECT(BgL_new1235z00_3964))->BgL_fnamez00) =
					((obj_t) (((BgL_getfieldz00_bglt)
								COBJECT(((BgL_getfieldz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_getfieldz00_bglt) BgL_nodez00_3596)))))->
							BgL_fnamez00)), BUNSPEC);
				((((BgL_getfieldz00_bglt) COBJECT(BgL_new1235z00_3964))->BgL_ftypez00) =
					((BgL_typez00_bglt) (((BgL_getfieldz00_bglt)
								COBJECT(((BgL_getfieldz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_getfieldz00_bglt) BgL_nodez00_3596)))))->
							BgL_ftypez00)), BUNSPEC);
				((((BgL_getfieldz00_bglt) COBJECT(BgL_new1235z00_3964))->BgL_otypez00) =
					((BgL_typez00_bglt) (((BgL_getfieldz00_bglt)
								COBJECT(((BgL_getfieldz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_getfieldz00_bglt) BgL_nodez00_3596)))))->
							BgL_otypez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1235z00_3964);
			}
		}

	}



/* &do-alphatize-cast-nu1626 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2castzd2nu1626z17zzast_alphatiza7eza7(obj_t
		BgL_envz00_3598, obj_t BgL_nodez00_3599, obj_t BgL_locz00_3600)
	{
		{	/* Ast/alphatize.scm 259 */
			{	/* Ast/alphatize.scm 260 */
				BgL_castzd2nullzd2_bglt BgL_new1227z00_3969;

				{	/* Ast/alphatize.scm 261 */
					BgL_castzd2nullzd2_bglt BgL_new1234z00_3970;

					BgL_new1234z00_3970 =
						((BgL_castzd2nullzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_castzd2nullzd2_bgl))));
					{	/* Ast/alphatize.scm 261 */
						long BgL_arg1896z00_3971;

						BgL_arg1896z00_3971 =
							BGL_CLASS_NUM(BGl_castzd2nullzd2zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1234z00_3970), BgL_arg1896z00_3971);
					}
					{	/* Ast/alphatize.scm 261 */
						BgL_objectz00_bglt BgL_tmpz00_6118;

						BgL_tmpz00_6118 = ((BgL_objectz00_bglt) BgL_new1234z00_3970);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6118, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1234z00_3970);
					BgL_new1227z00_3969 = BgL_new1234z00_3970;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1227z00_3969)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_castzd2nullzd2_bglt) BgL_nodez00_3599)),
							BgL_locz00_3600)), BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1227z00_3969)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_castzd2nullzd2_bglt)
											BgL_nodez00_3599))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1227z00_3969)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_castzd2nullzd2_bglt) BgL_nodez00_3599)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1227z00_3969)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_castzd2nullzd2_bglt) BgL_nodez00_3599)))))->
							BgL_keyz00)), BUNSPEC);
				{
					obj_t BgL_auxz00_6144;

					{	/* Ast/alphatize.scm 262 */
						obj_t BgL_arg1895z00_3972;

						BgL_arg1895z00_3972 =
							(((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt)
										((BgL_castzd2nullzd2_bglt) BgL_nodez00_3599))))->
							BgL_exprza2za2);
						BgL_auxz00_6144 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1895z00_3972, BgL_locz00_3600);
					}
					((((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt) BgL_new1227z00_3969)))->
							BgL_exprza2za2) = ((obj_t) BgL_auxz00_6144), BUNSPEC);
				}
				((((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_new1227z00_3969)))->BgL_effectz00) =
					((obj_t) (((BgL_externz00_bglt)
								COBJECT(((BgL_externz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_castzd2nullzd2_bglt) BgL_nodez00_3599)))))->
							BgL_effectz00)), BUNSPEC);
				((((BgL_privatez00_bglt) COBJECT(((BgL_privatez00_bglt)
									BgL_new1227z00_3969)))->BgL_czd2formatzd2) =
					((obj_t) (((BgL_privatez00_bglt)
								COBJECT(((BgL_privatez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_castzd2nullzd2_bglt) BgL_nodez00_3599)))))->
							BgL_czd2formatzd2)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1227z00_3969);
			}
		}

	}



/* &do-alphatize-pragma1624 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2pragma1624zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3601, obj_t BgL_nodez00_3602, obj_t BgL_locz00_3603)
	{
		{	/* Ast/alphatize.scm 251 */
			{	/* Ast/alphatize.scm 252 */
				BgL_pragmaz00_bglt BgL_new1218z00_3974;

				{	/* Ast/alphatize.scm 253 */
					BgL_pragmaz00_bglt BgL_new1226z00_3975;

					BgL_new1226z00_3975 =
						((BgL_pragmaz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_pragmaz00_bgl))));
					{	/* Ast/alphatize.scm 253 */
						long BgL_arg1894z00_3976;

						BgL_arg1894z00_3976 = BGL_CLASS_NUM(BGl_pragmaz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1226z00_3975), BgL_arg1894z00_3976);
					}
					{	/* Ast/alphatize.scm 253 */
						BgL_objectz00_bglt BgL_tmpz00_6168;

						BgL_tmpz00_6168 = ((BgL_objectz00_bglt) BgL_new1226z00_3975);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6168, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1226z00_3975);
					BgL_new1218z00_3974 = BgL_new1226z00_3975;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1218z00_3974)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_pragmaz00_bglt) BgL_nodez00_3602)), BgL_locz00_3603)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1218z00_3974)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_pragmaz00_bglt)
											BgL_nodez00_3602))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1218z00_3974)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_pragmaz00_bglt) BgL_nodez00_3602)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1218z00_3974)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_pragmaz00_bglt) BgL_nodez00_3602)))))->
							BgL_keyz00)), BUNSPEC);
				{
					obj_t BgL_auxz00_6194;

					{	/* Ast/alphatize.scm 254 */
						obj_t BgL_arg1893z00_3977;

						BgL_arg1893z00_3977 =
							(((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt)
										((BgL_pragmaz00_bglt) BgL_nodez00_3602))))->BgL_exprza2za2);
						BgL_auxz00_6194 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1893z00_3977, BgL_locz00_3603);
					}
					((((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt) BgL_new1218z00_3974)))->
							BgL_exprza2za2) = ((obj_t) BgL_auxz00_6194), BUNSPEC);
				}
				((((BgL_externz00_bglt) COBJECT(
								((BgL_externz00_bglt) BgL_new1218z00_3974)))->BgL_effectz00) =
					((obj_t) (((BgL_externz00_bglt)
								COBJECT(((BgL_externz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_pragmaz00_bglt) BgL_nodez00_3602)))))->
							BgL_effectz00)), BUNSPEC);
				((((BgL_pragmaz00_bglt) COBJECT(BgL_new1218z00_3974))->BgL_formatz00) =
					((obj_t) (((BgL_pragmaz00_bglt)
								COBJECT(((BgL_pragmaz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_pragmaz00_bglt) BgL_nodez00_3602)))))->
							BgL_formatz00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1218z00_3974);
			}
		}

	}



/* &do-alphatize-funcall1622 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2funcall1622zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3604, obj_t BgL_nodez00_3605, obj_t BgL_locz00_3606)
	{
		{	/* Ast/alphatize.scm 237 */
			{	/* Ast/alphatize.scm 238 */
				BgL_nodez00_bglt BgL_funz00_3979;
				obj_t BgL_argsz00_3980;

				BgL_funz00_3979 =
					BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
					(((BgL_funcallz00_bglt) COBJECT(
								((BgL_funcallz00_bglt) BgL_nodez00_3605)))->BgL_funz00),
					BgL_locz00_3606);
				BgL_argsz00_3980 =
					BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7((((BgL_funcallz00_bglt)
							COBJECT(((BgL_funcallz00_bglt) BgL_nodez00_3605)))->BgL_argsz00),
					BgL_locz00_3606);
				{	/* Ast/alphatize.scm 240 */
					bool_t BgL_test2288z00_6219;

					{	/* Ast/alphatize.scm 240 */
						obj_t BgL_classz00_3981;

						BgL_classz00_3981 = BGl_closurez00zzast_nodez00;
						{	/* Ast/alphatize.scm 240 */
							BgL_objectz00_bglt BgL_arg1801z00_3982;

							{	/* Ast/alphatize.scm 240 */
								obj_t BgL_tmpz00_6220;

								BgL_tmpz00_6220 =
									((obj_t) ((BgL_objectz00_bglt) BgL_funz00_3979));
								BgL_arg1801z00_3982 = (BgL_objectz00_bglt) (BgL_tmpz00_6220);
							}
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Ast/alphatize.scm 240 */
									long BgL_idxz00_3983;

									BgL_idxz00_3983 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3982);
									BgL_test2288z00_6219 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_3983 + 3L)) == BgL_classz00_3981);
								}
							else
								{	/* Ast/alphatize.scm 240 */
									bool_t BgL_res2134z00_3986;

									{	/* Ast/alphatize.scm 240 */
										obj_t BgL_oclassz00_3987;

										{	/* Ast/alphatize.scm 240 */
											long BgL_arg1808z00_3988;

											{	/* Ast/alphatize.scm 240 */
												long BgL_arg1809z00_3989;

												BgL_arg1809z00_3989 =
													BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3982);
												BgL_arg1808z00_3988 =
													(BgL_arg1809z00_3989 - OBJECT_TYPE);
											}
											BgL_oclassz00_3987 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg1808z00_3988);
										}
										{	/* Ast/alphatize.scm 240 */
											bool_t BgL__ortest_1115z00_3990;

											BgL__ortest_1115z00_3990 =
												(BgL_classz00_3981 == BgL_oclassz00_3987);
											if (BgL__ortest_1115z00_3990)
												{	/* Ast/alphatize.scm 240 */
													BgL_res2134z00_3986 = BgL__ortest_1115z00_3990;
												}
											else
												{	/* Ast/alphatize.scm 240 */
													long BgL_odepthz00_3991;

													BgL_odepthz00_3991 =
														BGL_CLASS_DEPTH(BgL_oclassz00_3987);
													if ((3L < BgL_odepthz00_3991))
														{	/* Ast/alphatize.scm 240 */
															obj_t BgL_arg1797z00_3992;

															BgL_arg1797z00_3992 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3987, 3L);
															BgL_res2134z00_3986 =
																(BgL_arg1797z00_3992 == BgL_classz00_3981);
														}
													else
														{	/* Ast/alphatize.scm 240 */
															BgL_res2134z00_3986 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2288z00_6219 = BgL_res2134z00_3986;
								}
						}
					}
					if (BgL_test2288z00_6219)
						{	/* Ast/alphatize.scm 241 */
							obj_t BgL_arg1882z00_3993;
							obj_t BgL_arg1883z00_3994;

							{	/* Ast/alphatize.scm 241 */
								BgL_refz00_bglt BgL_arg1884z00_3995;
								obj_t BgL_arg1885z00_3996;

								{	/* Ast/alphatize.scm 241 */
									BgL_refz00_bglt BgL_new1207z00_3997;

									{	/* Ast/alphatize.scm 241 */
										BgL_refz00_bglt BgL_new1211z00_3998;

										BgL_new1211z00_3998 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Ast/alphatize.scm 241 */
											long BgL_arg1886z00_3999;

											BgL_arg1886z00_3999 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1211z00_3998),
												BgL_arg1886z00_3999);
										}
										{	/* Ast/alphatize.scm 241 */
											BgL_objectz00_bglt BgL_tmpz00_6244;

											BgL_tmpz00_6244 =
												((BgL_objectz00_bglt) BgL_new1211z00_3998);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6244, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1211z00_3998);
										BgL_new1207z00_3997 = BgL_new1211z00_3998;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1207z00_3997)))->
											BgL_locz00) =
										((obj_t) (((BgL_nodez00_bglt) COBJECT(BgL_funz00_3979))->
												BgL_locz00)), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1207z00_3997)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_nodez00_bglt)
													COBJECT(BgL_funz00_3979))->BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1207z00_3997)))->BgL_variablez00) =
										((BgL_variablez00_bglt) (((BgL_varz00_bglt)
													COBJECT(((BgL_varz00_bglt) BgL_funz00_3979)))->
												BgL_variablez00)), BUNSPEC);
									BgL_arg1884z00_3995 = BgL_new1207z00_3997;
								}
								BgL_arg1885z00_3996 =
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(CDR(
										((obj_t) BgL_argsz00_3980)), BNIL);
								BgL_arg1882z00_3993 =
									MAKE_YOUNG_PAIR(
									((obj_t) BgL_arg1884z00_3995), BgL_arg1885z00_3996);
							}
							BgL_arg1883z00_3994 =
								(((BgL_nodez00_bglt) COBJECT(
										((BgL_nodez00_bglt)
											((BgL_funcallz00_bglt) BgL_nodez00_3605))))->BgL_locz00);
							return
								BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg1882z00_3993, BNIL,
								BgL_arg1883z00_3994, CNST_TABLE_REF(6L));
						}
					else
						{	/* Ast/alphatize.scm 243 */
							BgL_funcallz00_bglt BgL_new1212z00_4000;

							{	/* Ast/alphatize.scm 244 */
								BgL_funcallz00_bglt BgL_new1217z00_4001;

								BgL_new1217z00_4001 =
									((BgL_funcallz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_funcallz00_bgl))));
								{	/* Ast/alphatize.scm 244 */
									long BgL_arg1889z00_4002;

									BgL_arg1889z00_4002 =
										BGL_CLASS_NUM(BGl_funcallz00zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1217z00_4001),
										BgL_arg1889z00_4002);
								}
								{	/* Ast/alphatize.scm 244 */
									BgL_objectz00_bglt BgL_tmpz00_6272;

									BgL_tmpz00_6272 = ((BgL_objectz00_bglt) BgL_new1217z00_4001);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6272, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1217z00_4001);
								BgL_new1212z00_4000 = BgL_new1217z00_4001;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1212z00_4000)))->BgL_locz00) =
								((obj_t)
									BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt)
											((BgL_funcallz00_bglt) BgL_nodez00_3605)),
										BgL_locz00_3606)), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1212z00_4000)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_nodez00_bglt)
											COBJECT(((BgL_nodez00_bglt) ((BgL_funcallz00_bglt)
														BgL_nodez00_3605))))->BgL_typez00)), BUNSPEC);
							((((BgL_funcallz00_bglt) COBJECT(BgL_new1212z00_4000))->
									BgL_funz00) = ((BgL_nodez00_bglt) BgL_funz00_3979), BUNSPEC);
							((((BgL_funcallz00_bglt) COBJECT(BgL_new1212z00_4000))->
									BgL_argsz00) = ((obj_t) BgL_argsz00_3980), BUNSPEC);
							((((BgL_funcallz00_bglt) COBJECT(BgL_new1212z00_4000))->
									BgL_strengthz00) =
								((obj_t) (((BgL_funcallz00_bglt)
											COBJECT(((BgL_funcallz00_bglt) ((BgL_nodez00_bglt) (
															(BgL_funcallz00_bglt) BgL_nodez00_3605)))))->
										BgL_strengthz00)), BUNSPEC);
							((((BgL_funcallz00_bglt) COBJECT(BgL_new1212z00_4000))->
									BgL_functionsz00) =
								((obj_t) (((BgL_funcallz00_bglt)
											COBJECT(((BgL_funcallz00_bglt) ((BgL_nodez00_bglt) (
															(BgL_funcallz00_bglt) BgL_nodez00_3605)))))->
										BgL_functionsz00)), BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1212z00_4000);
						}
				}
			}
		}

	}



/* &do-alphatize-app-ly1620 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2appzd2ly1620z17zzast_alphatiza7eza7(obj_t
		BgL_envz00_3607, obj_t BgL_nodez00_3608, obj_t BgL_locz00_3609)
	{
		{	/* Ast/alphatize.scm 215 */
			{	/* Ast/alphatize.scm 216 */
				BgL_nodez00_bglt BgL_funz00_4004;
				BgL_nodez00_bglt BgL_argz00_4005;

				BgL_funz00_4004 =
					BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
					(((BgL_appzd2lyzd2_bglt) COBJECT(
								((BgL_appzd2lyzd2_bglt) BgL_nodez00_3608)))->BgL_funz00),
					BgL_locz00_3609);
				BgL_argz00_4005 =
					BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7((((BgL_appzd2lyzd2_bglt)
							COBJECT(((BgL_appzd2lyzd2_bglt) BgL_nodez00_3608)))->BgL_argz00),
					BgL_locz00_3609);
				{	/* Ast/alphatize.scm 218 */
					bool_t BgL_test2292z00_6305;

					{	/* Ast/alphatize.scm 218 */
						bool_t BgL_test2293z00_6306;

						{	/* Ast/alphatize.scm 218 */
							obj_t BgL_classz00_4006;

							BgL_classz00_4006 = BGl_closurez00zzast_nodez00;
							{	/* Ast/alphatize.scm 218 */
								BgL_objectz00_bglt BgL_arg1801z00_4007;

								{	/* Ast/alphatize.scm 218 */
									obj_t BgL_tmpz00_6307;

									BgL_tmpz00_6307 =
										((obj_t) ((BgL_objectz00_bglt) BgL_funz00_4004));
									BgL_arg1801z00_4007 = (BgL_objectz00_bglt) (BgL_tmpz00_6307);
								}
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Ast/alphatize.scm 218 */
										long BgL_idxz00_4008;

										BgL_idxz00_4008 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4007);
										BgL_test2293z00_6306 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_4008 + 3L)) == BgL_classz00_4006);
									}
								else
									{	/* Ast/alphatize.scm 218 */
										bool_t BgL_res2133z00_4011;

										{	/* Ast/alphatize.scm 218 */
											obj_t BgL_oclassz00_4012;

											{	/* Ast/alphatize.scm 218 */
												long BgL_arg1808z00_4013;

												{	/* Ast/alphatize.scm 218 */
													long BgL_arg1809z00_4014;

													BgL_arg1809z00_4014 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4007);
													BgL_arg1808z00_4013 =
														(BgL_arg1809z00_4014 - OBJECT_TYPE);
												}
												BgL_oclassz00_4012 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_4013);
											}
											{	/* Ast/alphatize.scm 218 */
												bool_t BgL__ortest_1115z00_4015;

												BgL__ortest_1115z00_4015 =
													(BgL_classz00_4006 == BgL_oclassz00_4012);
												if (BgL__ortest_1115z00_4015)
													{	/* Ast/alphatize.scm 218 */
														BgL_res2133z00_4011 = BgL__ortest_1115z00_4015;
													}
												else
													{	/* Ast/alphatize.scm 218 */
														long BgL_odepthz00_4016;

														BgL_odepthz00_4016 =
															BGL_CLASS_DEPTH(BgL_oclassz00_4012);
														if ((3L < BgL_odepthz00_4016))
															{	/* Ast/alphatize.scm 218 */
																obj_t BgL_arg1797z00_4017;

																BgL_arg1797z00_4017 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4012,
																	3L);
																BgL_res2133z00_4011 =
																	(BgL_arg1797z00_4017 == BgL_classz00_4006);
															}
														else
															{	/* Ast/alphatize.scm 218 */
																BgL_res2133z00_4011 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2293z00_6306 = BgL_res2133z00_4011;
									}
							}
						}
						if (BgL_test2293z00_6306)
							{	/* Ast/alphatize.scm 219 */
								bool_t BgL_test2297z00_6327;

								{	/* Ast/alphatize.scm 219 */
									BgL_variablez00_bglt BgL_arg1877z00_4018;

									BgL_arg1877z00_4018 =
										(((BgL_varz00_bglt) COBJECT(
												((BgL_varz00_bglt) BgL_funz00_4004)))->BgL_variablez00);
									BgL_test2297z00_6327 =
										BGl_globalzd2optionalzf3z21zzast_varz00(
										((obj_t) BgL_arg1877z00_4018));
								}
								if (BgL_test2297z00_6327)
									{	/* Ast/alphatize.scm 219 */
										BgL_test2292z00_6305 = ((bool_t) 0);
									}
								else
									{	/* Ast/alphatize.scm 220 */
										bool_t BgL_test2298z00_6332;

										{	/* Ast/alphatize.scm 220 */
											BgL_variablez00_bglt BgL_arg1876z00_4019;

											BgL_arg1876z00_4019 =
												(((BgL_varz00_bglt) COBJECT(
														((BgL_varz00_bglt) BgL_funz00_4004)))->
												BgL_variablez00);
											BgL_test2298z00_6332 =
												BGl_globalzd2keyzf3z21zzast_varz00(((obj_t)
													BgL_arg1876z00_4019));
										}
										if (BgL_test2298z00_6332)
											{	/* Ast/alphatize.scm 220 */
												BgL_test2292z00_6305 = ((bool_t) 0);
											}
										else
											{	/* Ast/alphatize.scm 220 */
												BgL_test2292z00_6305 = ((bool_t) 1);
											}
									}
							}
						else
							{	/* Ast/alphatize.scm 218 */
								BgL_test2292z00_6305 = ((bool_t) 0);
							}
					}
					if (BgL_test2292z00_6305)
						{	/* Ast/alphatize.scm 222 */
							obj_t BgL_arg1870z00_4020;
							BgL_refz00_bglt BgL_arg1872z00_4021;

							BgL_arg1870z00_4020 =
								BGl_getzd2locationzd2zzast_alphatiza7eza7(
								((BgL_nodez00_bglt)
									((BgL_appzd2lyzd2_bglt) BgL_nodez00_3608)), BgL_locz00_3609);
							{	/* Ast/alphatize.scm 223 */
								BgL_refz00_bglt BgL_new1197z00_4022;

								{	/* Ast/alphatize.scm 223 */
									BgL_refz00_bglt BgL_new1202z00_4023;

									BgL_new1202z00_4023 =
										((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
													BgL_refz00_bgl))));
									{	/* Ast/alphatize.scm 223 */
										long BgL_arg1873z00_4024;

										BgL_arg1873z00_4024 =
											BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1202z00_4023),
											BgL_arg1873z00_4024);
									}
									{	/* Ast/alphatize.scm 223 */
										BgL_objectz00_bglt BgL_tmpz00_6344;

										BgL_tmpz00_6344 =
											((BgL_objectz00_bglt) BgL_new1202z00_4023);
										BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6344, BFALSE);
									}
									((BgL_objectz00_bglt) BgL_new1202z00_4023);
									BgL_new1197z00_4022 = BgL_new1202z00_4023;
								}
								((((BgL_nodez00_bglt) COBJECT(
												((BgL_nodez00_bglt) BgL_new1197z00_4022)))->
										BgL_locz00) =
									((obj_t) (((BgL_nodez00_bglt) COBJECT(BgL_funz00_4004))->
											BgL_locz00)), BUNSPEC);
								((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
													BgL_new1197z00_4022)))->BgL_typez00) =
									((BgL_typez00_bglt) (((BgL_nodez00_bglt)
												COBJECT(BgL_funz00_4004))->BgL_typez00)), BUNSPEC);
								((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
													BgL_new1197z00_4022)))->BgL_variablez00) =
									((BgL_variablez00_bglt) (((BgL_varz00_bglt)
												COBJECT(((BgL_varz00_bglt) BgL_funz00_4004)))->
											BgL_variablez00)), BUNSPEC);
								BgL_arg1872z00_4021 = BgL_new1197z00_4022;
							}
							return
								BGl_knownzd2appzd2lyzd2ze3nodez31zzast_applyz00(BNIL,
								BgL_arg1870z00_4020, ((BgL_nodez00_bglt) BgL_arg1872z00_4021),
								BgL_argz00_4005, CNST_TABLE_REF(7L));
						}
					else
						{	/* Ast/alphatize.scm 226 */
							BgL_appzd2lyzd2_bglt BgL_new1203z00_4025;

							{	/* Ast/alphatize.scm 227 */
								BgL_appzd2lyzd2_bglt BgL_new1206z00_4026;

								BgL_new1206z00_4026 =
									((BgL_appzd2lyzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_appzd2lyzd2_bgl))));
								{	/* Ast/alphatize.scm 227 */
									long BgL_arg1875z00_4027;

									BgL_arg1875z00_4027 =
										BGL_CLASS_NUM(BGl_appzd2lyzd2zzast_nodez00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1206z00_4026),
										BgL_arg1875z00_4027);
								}
								{	/* Ast/alphatize.scm 227 */
									BgL_objectz00_bglt BgL_tmpz00_6365;

									BgL_tmpz00_6365 = ((BgL_objectz00_bglt) BgL_new1206z00_4026);
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6365, BFALSE);
								}
								((BgL_objectz00_bglt) BgL_new1206z00_4026);
								BgL_new1203z00_4025 = BgL_new1206z00_4026;
							}
							((((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt) BgL_new1203z00_4025)))->BgL_locz00) =
								((obj_t)
									BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt)
											((BgL_appzd2lyzd2_bglt) BgL_nodez00_3608)),
										BgL_locz00_3609)), BUNSPEC);
							((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
												BgL_new1203z00_4025)))->BgL_typez00) =
								((BgL_typez00_bglt) (((BgL_nodez00_bglt)
											COBJECT(((BgL_nodez00_bglt) ((BgL_appzd2lyzd2_bglt)
														BgL_nodez00_3608))))->BgL_typez00)), BUNSPEC);
							((((BgL_appzd2lyzd2_bglt) COBJECT(BgL_new1203z00_4025))->
									BgL_funz00) = ((BgL_nodez00_bglt) BgL_funz00_4004), BUNSPEC);
							((((BgL_appzd2lyzd2_bglt) COBJECT(BgL_new1203z00_4025))->
									BgL_argz00) = ((BgL_nodez00_bglt) BgL_argz00_4005), BUNSPEC);
							return ((BgL_nodez00_bglt) BgL_new1203z00_4025);
						}
				}
			}
		}

	}



/* &do-alphatize-app1618 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2app1618zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3610, obj_t BgL_nodez00_3611, obj_t BgL_locz00_3612)
	{
		{	/* Ast/alphatize.scm 201 */
			{	/* Ast/alphatize.scm 204 */
				BgL_appz00_bglt BgL_new1185z00_4029;

				{	/* Ast/alphatize.scm 205 */
					BgL_appz00_bglt BgL_new1191z00_4030;

					BgL_new1191z00_4030 =
						((BgL_appz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_appz00_bgl))));
					{	/* Ast/alphatize.scm 205 */
						long BgL_arg1857z00_4031;

						BgL_arg1857z00_4031 = BGL_CLASS_NUM(BGl_appz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1191z00_4030), BgL_arg1857z00_4031);
					}
					{	/* Ast/alphatize.scm 205 */
						BgL_objectz00_bglt BgL_tmpz00_6386;

						BgL_tmpz00_6386 = ((BgL_objectz00_bglt) BgL_new1191z00_4030);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6386, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1191z00_4030);
					BgL_new1185z00_4029 = BgL_new1191z00_4030;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1185z00_4029)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_appz00_bglt) BgL_nodez00_3611)), BgL_locz00_3612)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1185z00_4029)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_appz00_bglt)
											BgL_nodez00_3611))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1185z00_4029)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_appz00_bglt) BgL_nodez00_3611)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1185z00_4029)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_appz00_bglt) BgL_nodez00_3611)))))->BgL_keyz00)),
					BUNSPEC);
				{
					BgL_varz00_bglt BgL_auxz00_6412;

					{	/* Ast/alphatize.scm 206 */
						BgL_nodez00_bglt BgL_varz00_4032;

						{	/* Ast/alphatize.scm 206 */
							BgL_varz00_bglt BgL_arg1855z00_4033;

							BgL_arg1855z00_4033 =
								(((BgL_appz00_bglt) COBJECT(
										((BgL_appz00_bglt) BgL_nodez00_3611)))->BgL_funz00);
							BgL_varz00_4032 =
								BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
								((BgL_nodez00_bglt) BgL_arg1855z00_4033), BgL_locz00_3612);
						}
						{	/* Ast/alphatize.scm 207 */
							bool_t BgL_test2299z00_6417;

							{	/* Ast/alphatize.scm 207 */
								obj_t BgL_classz00_4034;

								BgL_classz00_4034 = BGl_closurez00zzast_nodez00;
								{	/* Ast/alphatize.scm 207 */
									BgL_objectz00_bglt BgL_arg1801z00_4035;

									{	/* Ast/alphatize.scm 207 */
										obj_t BgL_tmpz00_6418;

										BgL_tmpz00_6418 =
											((obj_t) ((BgL_objectz00_bglt) BgL_varz00_4032));
										BgL_arg1801z00_4035 =
											(BgL_objectz00_bglt) (BgL_tmpz00_6418);
									}
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Ast/alphatize.scm 207 */
											long BgL_idxz00_4036;

											BgL_idxz00_4036 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4035);
											{	/* Ast/alphatize.scm 207 */
												obj_t BgL_arg1795z00_4037;

												{	/* Ast/alphatize.scm 207 */
													long BgL_arg1796z00_4038;

													BgL_arg1796z00_4038 = (BgL_idxz00_4036 + 3L);
													{	/* Ast/alphatize.scm 207 */
														obj_t BgL_vectorz00_4039;

														BgL_vectorz00_4039 =
															BGl_za2inheritancesza2z00zz__objectz00;
														BgL_arg1795z00_4037 =
															VECTOR_REF(BgL_vectorz00_4039,
															BgL_arg1796z00_4038);
												}}
												BgL_test2299z00_6417 =
													(BgL_arg1795z00_4037 == BgL_classz00_4034);
										}}
									else
										{	/* Ast/alphatize.scm 207 */
											bool_t BgL_res2132z00_4040;

											{	/* Ast/alphatize.scm 207 */
												obj_t BgL_oclassz00_4041;

												{	/* Ast/alphatize.scm 207 */
													long BgL_arg1808z00_4042;

													{	/* Ast/alphatize.scm 207 */
														long BgL_arg1809z00_4043;

														BgL_arg1809z00_4043 =
															BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4035);
														BgL_arg1808z00_4042 =
															(BgL_arg1809z00_4043 - OBJECT_TYPE);
													}
													{	/* Ast/alphatize.scm 207 */
														obj_t BgL_vectorz00_4044;

														BgL_vectorz00_4044 =
															BGl_za2classesza2z00zz__objectz00;
														BgL_oclassz00_4041 =
															VECTOR_REF(BgL_vectorz00_4044,
															BgL_arg1808z00_4042);
												}}
												{	/* Ast/alphatize.scm 207 */
													bool_t BgL__ortest_1115z00_4045;

													BgL__ortest_1115z00_4045 =
														(BgL_classz00_4034 == BgL_oclassz00_4041);
													if (BgL__ortest_1115z00_4045)
														{	/* Ast/alphatize.scm 207 */
															BgL_res2132z00_4040 = BgL__ortest_1115z00_4045;
														}
													else
														{	/* Ast/alphatize.scm 207 */
															long BgL_odepthz00_4046;

															BgL_odepthz00_4046 =
																BGL_CLASS_DEPTH(BgL_oclassz00_4041);
															if ((3L < BgL_odepthz00_4046))
																{	/* Ast/alphatize.scm 207 */
																	obj_t BgL_arg1797z00_4047;

																	BgL_arg1797z00_4047 =
																		BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4041,
																		3L);
																	BgL_res2132z00_4040 =
																		(BgL_arg1797z00_4047 == BgL_classz00_4034);
																}
															else
																{	/* Ast/alphatize.scm 207 */
																	BgL_res2132z00_4040 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test2299z00_6417 = BgL_res2132z00_4040;
										}
								}
							}
							if (BgL_test2299z00_6417)
								{	/* Ast/alphatize.scm 208 */
									BgL_refz00_bglt BgL_new1192z00_4048;

									{	/* Ast/alphatize.scm 208 */
										BgL_refz00_bglt BgL_new1196z00_4049;

										BgL_new1196z00_4049 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Ast/alphatize.scm 208 */
											long BgL_arg1854z00_4050;

											{	/* Ast/alphatize.scm 208 */
												obj_t BgL_classz00_4051;

												BgL_classz00_4051 = BGl_refz00zzast_nodez00;
												BgL_arg1854z00_4050 = BGL_CLASS_NUM(BgL_classz00_4051);
											}
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1196z00_4049),
												BgL_arg1854z00_4050);
										}
										{	/* Ast/alphatize.scm 208 */
											BgL_objectz00_bglt BgL_tmpz00_6442;

											BgL_tmpz00_6442 =
												((BgL_objectz00_bglt) BgL_new1196z00_4049);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6442, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1196z00_4049);
										BgL_new1192z00_4048 = BgL_new1196z00_4049;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1192z00_4048)))->
											BgL_locz00) =
										((obj_t) (((BgL_nodez00_bglt) COBJECT(BgL_varz00_4032))->
												BgL_locz00)), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1192z00_4048)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_nodez00_bglt)
													COBJECT(BgL_varz00_4032))->BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1192z00_4048)))->BgL_variablez00) =
										((BgL_variablez00_bglt) (((BgL_varz00_bglt)
													COBJECT(((BgL_varz00_bglt) BgL_varz00_4032)))->
												BgL_variablez00)), BUNSPEC);
									BgL_auxz00_6412 = ((BgL_varz00_bglt) BgL_new1192z00_4048);
								}
							else
								{	/* Ast/alphatize.scm 207 */
									BgL_auxz00_6412 = ((BgL_varz00_bglt) BgL_varz00_4032);
								}
						}
					}
					((((BgL_appz00_bglt) COBJECT(BgL_new1185z00_4029))->BgL_funz00) =
						((BgL_varz00_bglt) BgL_auxz00_6412), BUNSPEC);
				}
				{
					obj_t BgL_auxz00_6459;

					{	/* Ast/alphatize.scm 210 */
						obj_t BgL_arg1856z00_4052;

						BgL_arg1856z00_4052 =
							(((BgL_appz00_bglt) COBJECT(
									((BgL_appz00_bglt) BgL_nodez00_3611)))->BgL_argsz00);
						BgL_auxz00_6459 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1856z00_4052, BgL_locz00_3612);
					}
					((((BgL_appz00_bglt) COBJECT(BgL_new1185z00_4029))->BgL_argsz00) =
						((obj_t) BgL_auxz00_6459), BUNSPEC);
				}
				((((BgL_appz00_bglt) COBJECT(BgL_new1185z00_4029))->BgL_stackablez00) =
					((obj_t) (((BgL_appz00_bglt)
								COBJECT(((BgL_appz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_appz00_bglt) BgL_nodez00_3611)))))->
							BgL_stackablez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1185z00_4029);
			}
		}

	}



/* &do-alphatize-sync1616 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2sync1616zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3613, obj_t BgL_nodez00_3614, obj_t BgL_locz00_3615)
	{
		{	/* Ast/alphatize.scm 191 */
			{	/* Ast/alphatize.scm 192 */
				BgL_syncz00_bglt BgL_new1181z00_4054;

				{	/* Ast/alphatize.scm 193 */
					BgL_syncz00_bglt BgL_new1184z00_4055;

					BgL_new1184z00_4055 =
						((BgL_syncz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_syncz00_bgl))));
					{	/* Ast/alphatize.scm 193 */
						long BgL_arg1852z00_4056;

						BgL_arg1852z00_4056 = BGL_CLASS_NUM(BGl_syncz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1184z00_4055), BgL_arg1852z00_4056);
					}
					{	/* Ast/alphatize.scm 193 */
						BgL_objectz00_bglt BgL_tmpz00_6474;

						BgL_tmpz00_6474 = ((BgL_objectz00_bglt) BgL_new1184z00_4055);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6474, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1184z00_4055);
					BgL_new1181z00_4054 = BgL_new1184z00_4055;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1181z00_4054)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_syncz00_bglt) BgL_nodez00_3614)), BgL_locz00_3615)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1181z00_4054)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_syncz00_bglt)
											BgL_nodez00_3614))))->BgL_typez00)), BUNSPEC);
				{
					BgL_nodez00_bglt BgL_auxz00_6488;

					{	/* Ast/alphatize.scm 194 */
						BgL_nodez00_bglt BgL_arg1848z00_4057;

						BgL_arg1848z00_4057 =
							(((BgL_syncz00_bglt) COBJECT(
									((BgL_syncz00_bglt) BgL_nodez00_3614)))->BgL_mutexz00);
						BgL_auxz00_6488 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1848z00_4057,
							BgL_locz00_3615);
					}
					((((BgL_syncz00_bglt) COBJECT(BgL_new1181z00_4054))->BgL_mutexz00) =
						((BgL_nodez00_bglt) BgL_auxz00_6488), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_6493;

					{	/* Ast/alphatize.scm 195 */
						BgL_nodez00_bglt BgL_arg1850z00_4058;

						BgL_arg1850z00_4058 =
							(((BgL_syncz00_bglt) COBJECT(
									((BgL_syncz00_bglt) BgL_nodez00_3614)))->BgL_prelockz00);
						BgL_auxz00_6493 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1850z00_4058,
							BgL_locz00_3615);
					}
					((((BgL_syncz00_bglt) COBJECT(BgL_new1181z00_4054))->BgL_prelockz00) =
						((BgL_nodez00_bglt) BgL_auxz00_6493), BUNSPEC);
				}
				{
					BgL_nodez00_bglt BgL_auxz00_6498;

					{	/* Ast/alphatize.scm 196 */
						BgL_nodez00_bglt BgL_arg1851z00_4059;

						BgL_arg1851z00_4059 =
							(((BgL_syncz00_bglt) COBJECT(
									((BgL_syncz00_bglt) BgL_nodez00_3614)))->BgL_bodyz00);
						BgL_auxz00_6498 =
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_arg1851z00_4059,
							BgL_locz00_3615);
					}
					((((BgL_syncz00_bglt) COBJECT(BgL_new1181z00_4054))->BgL_bodyz00) =
						((BgL_nodez00_bglt) BgL_auxz00_6498), BUNSPEC);
				}
				return ((BgL_nodez00_bglt) BgL_new1181z00_4054);
			}
		}

	}



/* &do-alphatize-sequenc1614 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2sequenc1614zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3616, obj_t BgL_nodez00_3617, obj_t BgL_locz00_3618)
	{
		{	/* Ast/alphatize.scm 183 */
			{	/* Ast/alphatize.scm 184 */
				BgL_sequencez00_bglt BgL_new1173z00_4061;

				{	/* Ast/alphatize.scm 185 */
					BgL_sequencez00_bglt BgL_new1180z00_4062;

					BgL_new1180z00_4062 =
						((BgL_sequencez00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_sequencez00_bgl))));
					{	/* Ast/alphatize.scm 185 */
						long BgL_arg1846z00_4063;

						BgL_arg1846z00_4063 = BGL_CLASS_NUM(BGl_sequencez00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1180z00_4062), BgL_arg1846z00_4063);
					}
					{	/* Ast/alphatize.scm 185 */
						BgL_objectz00_bglt BgL_tmpz00_6508;

						BgL_tmpz00_6508 = ((BgL_objectz00_bglt) BgL_new1180z00_4062);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6508, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1180z00_4062);
					BgL_new1173z00_4061 = BgL_new1180z00_4062;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1173z00_4061)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_sequencez00_bglt) BgL_nodez00_3617)), BgL_locz00_3618)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1173z00_4061)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_sequencez00_bglt)
											BgL_nodez00_3617))))->BgL_typez00)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1173z00_4061)))->BgL_sidezd2effectzd2) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_sequencez00_bglt) BgL_nodez00_3617)))))->
							BgL_sidezd2effectzd2)), BUNSPEC);
				((((BgL_nodezf2effectzf2_bglt) COBJECT(((BgL_nodezf2effectzf2_bglt)
									BgL_new1173z00_4061)))->BgL_keyz00) =
					((obj_t) (((BgL_nodezf2effectzf2_bglt)
								COBJECT(((BgL_nodezf2effectzf2_bglt) ((BgL_nodez00_bglt) (
												(BgL_sequencez00_bglt) BgL_nodez00_3617)))))->
							BgL_keyz00)), BUNSPEC);
				{
					obj_t BgL_auxz00_6534;

					{	/* Ast/alphatize.scm 186 */
						obj_t BgL_arg1845z00_4064;

						BgL_arg1845z00_4064 =
							(((BgL_sequencez00_bglt) COBJECT(
									((BgL_sequencez00_bglt) BgL_nodez00_3617)))->BgL_nodesz00);
						BgL_auxz00_6534 =
							BGl_dozd2alphatiza7eza2zd7zzast_alphatiza7eza7
							(BgL_arg1845z00_4064, BgL_locz00_3618);
					}
					((((BgL_sequencez00_bglt) COBJECT(BgL_new1173z00_4061))->
							BgL_nodesz00) = ((obj_t) BgL_auxz00_6534), BUNSPEC);
				}
				((((BgL_sequencez00_bglt) COBJECT(BgL_new1173z00_4061))->
						BgL_unsafez00) =
					((bool_t) (((BgL_sequencez00_bglt)
								COBJECT(((BgL_sequencez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_sequencez00_bglt) BgL_nodez00_3617)))))->
							BgL_unsafez00)), BUNSPEC);
				((((BgL_sequencez00_bglt) COBJECT(BgL_new1173z00_4061))->BgL_metaz00) =
					((obj_t) (((BgL_sequencez00_bglt)
								COBJECT(((BgL_sequencez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_sequencez00_bglt) BgL_nodez00_3617)))))->
							BgL_metaz00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1173z00_4061);
			}
		}

	}



/* &do-alphatize-kwote1612 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2kwote1612zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3619, obj_t BgL_nodez00_3620, obj_t BgL_locz00_3621)
	{
		{	/* Ast/alphatize.scm 177 */
			{	/* Ast/alphatize.scm 178 */
				BgL_kwotez00_bglt BgL_new1168z00_4066;

				{	/* Ast/alphatize.scm 178 */
					BgL_kwotez00_bglt BgL_new1172z00_4067;

					BgL_new1172z00_4067 =
						((BgL_kwotez00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_kwotez00_bgl))));
					{	/* Ast/alphatize.scm 178 */
						long BgL_arg1844z00_4068;

						BgL_arg1844z00_4068 = BGL_CLASS_NUM(BGl_kwotez00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1172z00_4067), BgL_arg1844z00_4068);
					}
					{	/* Ast/alphatize.scm 178 */
						BgL_objectz00_bglt BgL_tmpz00_6554;

						BgL_tmpz00_6554 = ((BgL_objectz00_bglt) BgL_new1172z00_4067);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6554, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1172z00_4067);
					BgL_new1168z00_4066 = BgL_new1172z00_4067;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1168z00_4066)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_kwotez00_bglt) BgL_nodez00_3620)), BgL_locz00_3621)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1168z00_4066)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_kwotez00_bglt)
											BgL_nodez00_3620))))->BgL_typez00)), BUNSPEC);
				((((BgL_kwotez00_bglt) COBJECT(BgL_new1168z00_4066))->BgL_valuez00) =
					((obj_t) (((BgL_kwotez00_bglt)
								COBJECT(((BgL_kwotez00_bglt) ((BgL_nodez00_bglt) (
												(BgL_kwotez00_bglt) BgL_nodez00_3620)))))->
							BgL_valuez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1168z00_4066);
			}
		}

	}



/* &do-alphatize-closure1610 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2closure1610zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3622, obj_t BgL_nodez00_3623, obj_t BgL_locz00_3624)
	{
		{	/* Ast/alphatize.scm 155 */
			{	/* Ast/alphatize.scm 156 */
				BgL_variablez00_bglt BgL_varz00_4070;

				BgL_varz00_4070 =
					(((BgL_varz00_bglt) COBJECT(
							((BgL_varz00_bglt)
								((BgL_closurez00_bglt) BgL_nodez00_3623))))->BgL_variablez00);
				if (
					(((obj_t) BgL_varz00_4070) ==
						BGl_za2nozd2alphatiza7ezd2closureza2za7zzast_alphatiza7eza7))
					{	/* Ast/alphatize.scm 157 */
						return
							((BgL_nodez00_bglt) ((BgL_closurez00_bglt) BgL_nodez00_3623));
					}
				else
					{	/* Ast/alphatize.scm 159 */
						obj_t BgL_alphaz00_4071;

						BgL_alphaz00_4071 =
							(((BgL_variablez00_bglt) COBJECT(BgL_varz00_4070))->
							BgL_fastzd2alphazd2);
						if ((BgL_alphaz00_4071 == BUNSPEC))
							{	/* Ast/alphatize.scm 161 */
								{	/* Ast/alphatize.scm 162 */
									obj_t BgL_arg1838z00_4072;

									BgL_arg1838z00_4072 =
										(((BgL_nodez00_bglt) COBJECT(
												((BgL_nodez00_bglt)
													((BgL_closurez00_bglt) BgL_nodez00_3623))))->
										BgL_locz00);
									BGl_usezd2variablez12zc0zzast_sexpz00(BgL_varz00_4070,
										BgL_arg1838z00_4072, CNST_TABLE_REF(7L));
								}
								{	/* Ast/alphatize.scm 163 */
									BgL_closurez00_bglt BgL_new1159z00_4073;

									{	/* Ast/alphatize.scm 163 */
										BgL_closurez00_bglt BgL_new1163z00_4074;

										BgL_new1163z00_4074 =
											((BgL_closurez00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_closurez00_bgl))));
										{	/* Ast/alphatize.scm 163 */
											long BgL_arg1839z00_4075;

											BgL_arg1839z00_4075 =
												BGL_CLASS_NUM(BGl_closurez00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1163z00_4074),
												BgL_arg1839z00_4075);
										}
										{	/* Ast/alphatize.scm 163 */
											BgL_objectz00_bglt BgL_tmpz00_6594;

											BgL_tmpz00_6594 =
												((BgL_objectz00_bglt) BgL_new1163z00_4074);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6594, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1163z00_4074);
										BgL_new1159z00_4073 = BgL_new1163z00_4074;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1159z00_4073)))->
											BgL_locz00) =
										((obj_t)
											BGl_getzd2locationzd2zzast_alphatiza7eza7((
													(BgL_nodez00_bglt) ((BgL_closurez00_bglt)
														BgL_nodez00_3623)), BgL_locz00_3624)), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1159z00_4073)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_nodez00_bglt)
													COBJECT(((BgL_nodez00_bglt) ((BgL_closurez00_bglt)
																BgL_nodez00_3623))))->BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1159z00_4073)))->BgL_variablez00) =
										((BgL_variablez00_bglt) (((BgL_varz00_bglt)
													COBJECT(((BgL_varz00_bglt) ((BgL_nodez00_bglt) (
																	(BgL_closurez00_bglt) BgL_nodez00_3623)))))->
												BgL_variablez00)), BUNSPEC);
									return ((BgL_nodez00_bglt) BgL_new1159z00_4073);
								}
							}
						else
							{	/* Ast/alphatize.scm 164 */
								bool_t BgL_test2305z00_6615;

								{	/* Ast/alphatize.scm 164 */
									obj_t BgL_classz00_4076;

									BgL_classz00_4076 = BGl_variablez00zzast_varz00;
									if (BGL_OBJECTP(BgL_alphaz00_4071))
										{	/* Ast/alphatize.scm 164 */
											BgL_objectz00_bglt BgL_arg1801z00_4077;

											BgL_arg1801z00_4077 =
												(BgL_objectz00_bglt) (BgL_alphaz00_4071);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Ast/alphatize.scm 164 */
													long BgL_idxz00_4078;

													BgL_idxz00_4078 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4077);
													BgL_test2305z00_6615 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_4078 + 1L)) == BgL_classz00_4076);
												}
											else
												{	/* Ast/alphatize.scm 164 */
													bool_t BgL_res2131z00_4081;

													{	/* Ast/alphatize.scm 164 */
														obj_t BgL_oclassz00_4082;

														{	/* Ast/alphatize.scm 164 */
															long BgL_arg1808z00_4083;

															{	/* Ast/alphatize.scm 164 */
																long BgL_arg1809z00_4084;

																BgL_arg1809z00_4084 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4077);
																BgL_arg1808z00_4083 =
																	(BgL_arg1809z00_4084 - OBJECT_TYPE);
															}
															BgL_oclassz00_4082 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_4083);
														}
														{	/* Ast/alphatize.scm 164 */
															bool_t BgL__ortest_1115z00_4085;

															BgL__ortest_1115z00_4085 =
																(BgL_classz00_4076 == BgL_oclassz00_4082);
															if (BgL__ortest_1115z00_4085)
																{	/* Ast/alphatize.scm 164 */
																	BgL_res2131z00_4081 =
																		BgL__ortest_1115z00_4085;
																}
															else
																{	/* Ast/alphatize.scm 164 */
																	long BgL_odepthz00_4086;

																	BgL_odepthz00_4086 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_4082);
																	if ((1L < BgL_odepthz00_4086))
																		{	/* Ast/alphatize.scm 164 */
																			obj_t BgL_arg1797z00_4087;

																			BgL_arg1797z00_4087 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_4082, 1L);
																			BgL_res2131z00_4081 =
																				(BgL_arg1797z00_4087 ==
																				BgL_classz00_4076);
																		}
																	else
																		{	/* Ast/alphatize.scm 164 */
																			BgL_res2131z00_4081 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2305z00_6615 = BgL_res2131z00_4081;
												}
										}
									else
										{	/* Ast/alphatize.scm 164 */
											BgL_test2305z00_6615 = ((bool_t) 0);
										}
								}
								if (BgL_test2305z00_6615)
									{	/* Ast/alphatize.scm 164 */
										{	/* Ast/alphatize.scm 165 */
											obj_t BgL_arg1841z00_4088;

											BgL_arg1841z00_4088 =
												(((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt)
															((BgL_closurez00_bglt) BgL_nodez00_3623))))->
												BgL_locz00);
											BGl_usezd2variablez12zc0zzast_sexpz00((
													(BgL_variablez00_bglt) BgL_alphaz00_4071),
												BgL_arg1841z00_4088, CNST_TABLE_REF(7L));
										}
										{	/* Ast/alphatize.scm 166 */
											BgL_closurez00_bglt BgL_new1164z00_4089;

											{	/* Ast/alphatize.scm 167 */
												BgL_closurez00_bglt BgL_new1167z00_4090;

												BgL_new1167z00_4090 =
													((BgL_closurez00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																BgL_closurez00_bgl))));
												{	/* Ast/alphatize.scm 167 */
													long BgL_arg1842z00_4091;

													BgL_arg1842z00_4091 =
														BGL_CLASS_NUM(BGl_closurez00zzast_nodez00);
													BGL_OBJECT_CLASS_NUM_SET(
														((BgL_objectz00_bglt) BgL_new1167z00_4090),
														BgL_arg1842z00_4091);
												}
												{	/* Ast/alphatize.scm 167 */
													BgL_objectz00_bglt BgL_tmpz00_6645;

													BgL_tmpz00_6645 =
														((BgL_objectz00_bglt) BgL_new1167z00_4090);
													BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6645, BFALSE);
												}
												((BgL_objectz00_bglt) BgL_new1167z00_4090);
												BgL_new1164z00_4089 = BgL_new1167z00_4090;
											}
											((((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt) BgL_new1164z00_4089)))->
													BgL_locz00) =
												((obj_t)
													BGl_getzd2locationzd2zzast_alphatiza7eza7((
															(BgL_nodez00_bglt) ((BgL_closurez00_bglt)
																BgL_nodez00_3623)), BgL_locz00_3624)), BUNSPEC);
											((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																BgL_new1164z00_4089)))->BgL_typez00) =
												((BgL_typez00_bglt) (((BgL_nodez00_bglt)
															COBJECT(((BgL_nodez00_bglt) ((BgL_closurez00_bglt)
																		BgL_nodez00_3623))))->BgL_typez00)),
												BUNSPEC);
											((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																BgL_new1164z00_4089)))->BgL_variablez00) =
												((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
														BgL_alphaz00_4071)), BUNSPEC);
											return ((BgL_nodez00_bglt) BgL_new1164z00_4089);
										}
									}
								else
									{	/* Ast/alphatize.scm 172 */
										obj_t BgL_arg1843z00_4092;

										BgL_arg1843z00_4092 =
											BGl_shapez00zztools_shapez00(
											((obj_t) ((BgL_closurez00_bglt) BgL_nodez00_3623)));
										return
											((BgL_nodez00_bglt)
											BGl_internalzd2errorzd2zztools_errorz00
											(BGl_string2190z00zzast_alphatiza7eza7,
												BGl_string2192z00zzast_alphatiza7eza7,
												BgL_arg1843z00_4092));
									}
							}
					}
			}
		}

	}



/* &do-alphatize-var1608 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2var1608zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3625, obj_t BgL_nodez00_3626, obj_t BgL_locz00_3627)
	{
		{	/* Ast/alphatize.scm 122 */
			{	/* Ast/alphatize.scm 123 */
				BgL_variablez00_bglt BgL_varz00_4094;

				BgL_varz00_4094 =
					(((BgL_varz00_bglt) COBJECT(
							((BgL_varz00_bglt) BgL_nodez00_3626)))->BgL_variablez00);
				{	/* Ast/alphatize.scm 123 */
					obj_t BgL_alphaz00_4095;

					BgL_alphaz00_4095 =
						(((BgL_variablez00_bglt) COBJECT(BgL_varz00_4094))->
						BgL_fastzd2alphazd2);
					{	/* Ast/alphatize.scm 124 */

						if ((BgL_alphaz00_4095 == BUNSPEC))
							{	/* Ast/alphatize.scm 126 */
								{	/* Ast/alphatize.scm 127 */
									obj_t BgL_arg1800z00_4096;

									BgL_arg1800z00_4096 =
										(((BgL_nodez00_bglt) COBJECT(
												((BgL_nodez00_bglt)
													((BgL_varz00_bglt) BgL_nodez00_3626))))->BgL_locz00);
									BGl_usezd2variablez12zc0zzast_sexpz00(BgL_varz00_4094,
										BgL_arg1800z00_4096, CNST_TABLE_REF(7L));
								}
								{	/* Ast/alphatize.scm 128 */
									BgL_refz00_bglt BgL_new1128z00_4097;

									{	/* Ast/alphatize.scm 128 */
										BgL_refz00_bglt BgL_new1132z00_4098;

										BgL_new1132z00_4098 =
											((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_refz00_bgl))));
										{	/* Ast/alphatize.scm 128 */
											long BgL_arg1802z00_4099;

											BgL_arg1802z00_4099 =
												BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1132z00_4098),
												BgL_arg1802z00_4099);
										}
										{	/* Ast/alphatize.scm 128 */
											BgL_objectz00_bglt BgL_tmpz00_6682;

											BgL_tmpz00_6682 =
												((BgL_objectz00_bglt) BgL_new1132z00_4098);
											BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6682, BFALSE);
										}
										((BgL_objectz00_bglt) BgL_new1132z00_4098);
										BgL_new1128z00_4097 = BgL_new1132z00_4098;
									}
									((((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt) BgL_new1128z00_4097)))->
											BgL_locz00) =
										((obj_t)
											BGl_getzd2locationzd2zzast_alphatiza7eza7((
													(BgL_nodez00_bglt) ((BgL_varz00_bglt)
														BgL_nodez00_3626)), BgL_locz00_3627)), BUNSPEC);
									((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
														BgL_new1128z00_4097)))->BgL_typez00) =
										((BgL_typez00_bglt) (((BgL_nodez00_bglt)
													COBJECT(((BgL_nodez00_bglt) ((BgL_varz00_bglt)
																BgL_nodez00_3626))))->BgL_typez00)), BUNSPEC);
									((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
														BgL_new1128z00_4097)))->BgL_variablez00) =
										((BgL_variablez00_bglt) (((BgL_varz00_bglt)
													COBJECT(((BgL_varz00_bglt) ((BgL_nodez00_bglt) (
																	(BgL_varz00_bglt) BgL_nodez00_3626)))))->
												BgL_variablez00)), BUNSPEC);
									return ((BgL_nodez00_bglt) BgL_new1128z00_4097);
								}
							}
						else
							{	/* Ast/alphatize.scm 129 */
								bool_t BgL_test2311z00_6703;

								{	/* Ast/alphatize.scm 129 */
									obj_t BgL_classz00_4100;

									BgL_classz00_4100 = BGl_variablez00zzast_varz00;
									if (BGL_OBJECTP(BgL_alphaz00_4095))
										{	/* Ast/alphatize.scm 129 */
											BgL_objectz00_bglt BgL_arg1801z00_4101;

											BgL_arg1801z00_4101 =
												(BgL_objectz00_bglt) (BgL_alphaz00_4095);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Ast/alphatize.scm 129 */
													long BgL_idxz00_4102;

													BgL_idxz00_4102 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4101);
													BgL_test2311z00_6703 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_4102 + 1L)) == BgL_classz00_4100);
												}
											else
												{	/* Ast/alphatize.scm 129 */
													bool_t BgL_res2126z00_4105;

													{	/* Ast/alphatize.scm 129 */
														obj_t BgL_oclassz00_4106;

														{	/* Ast/alphatize.scm 129 */
															long BgL_arg1808z00_4107;

															{	/* Ast/alphatize.scm 129 */
																long BgL_arg1809z00_4108;

																BgL_arg1809z00_4108 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4101);
																BgL_arg1808z00_4107 =
																	(BgL_arg1809z00_4108 - OBJECT_TYPE);
															}
															BgL_oclassz00_4106 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_4107);
														}
														{	/* Ast/alphatize.scm 129 */
															bool_t BgL__ortest_1115z00_4109;

															BgL__ortest_1115z00_4109 =
																(BgL_classz00_4100 == BgL_oclassz00_4106);
															if (BgL__ortest_1115z00_4109)
																{	/* Ast/alphatize.scm 129 */
																	BgL_res2126z00_4105 =
																		BgL__ortest_1115z00_4109;
																}
															else
																{	/* Ast/alphatize.scm 129 */
																	long BgL_odepthz00_4110;

																	BgL_odepthz00_4110 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_4106);
																	if ((1L < BgL_odepthz00_4110))
																		{	/* Ast/alphatize.scm 129 */
																			obj_t BgL_arg1797z00_4111;

																			BgL_arg1797z00_4111 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_4106, 1L);
																			BgL_res2126z00_4105 =
																				(BgL_arg1797z00_4111 ==
																				BgL_classz00_4100);
																		}
																	else
																		{	/* Ast/alphatize.scm 129 */
																			BgL_res2126z00_4105 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2311z00_6703 = BgL_res2126z00_4105;
												}
										}
									else
										{	/* Ast/alphatize.scm 129 */
											BgL_test2311z00_6703 = ((bool_t) 0);
										}
								}
								if (BgL_test2311z00_6703)
									{	/* Ast/alphatize.scm 129 */
										{	/* Ast/alphatize.scm 130 */
											obj_t BgL_arg1816z00_4112;

											BgL_arg1816z00_4112 =
												(((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt)
															((BgL_varz00_bglt) BgL_nodez00_3626))))->
												BgL_locz00);
											BGl_usezd2variablez12zc0zzast_sexpz00((
													(BgL_variablez00_bglt) BgL_alphaz00_4095),
												BgL_arg1816z00_4112, CNST_TABLE_REF(7L));
										}
										{	/* Ast/alphatize.scm 131 */
											bool_t BgL_test2316z00_6729;

											{	/* Ast/alphatize.scm 131 */
												BgL_valuez00_bglt BgL_arg1827z00_4113;

												BgL_arg1827z00_4113 =
													(((BgL_variablez00_bglt) COBJECT(
															((BgL_variablez00_bglt) BgL_alphaz00_4095)))->
													BgL_valuez00);
												{	/* Ast/alphatize.scm 131 */
													obj_t BgL_classz00_4114;

													BgL_classz00_4114 = BGl_funz00zzast_varz00;
													{	/* Ast/alphatize.scm 131 */
														BgL_objectz00_bglt BgL_arg1801z00_4115;

														{	/* Ast/alphatize.scm 131 */
															obj_t BgL_tmpz00_6732;

															BgL_tmpz00_6732 =
																((obj_t)
																((BgL_objectz00_bglt) BgL_arg1827z00_4113));
															BgL_arg1801z00_4115 =
																(BgL_objectz00_bglt) (BgL_tmpz00_6732);
														}
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* Ast/alphatize.scm 131 */
																long BgL_idxz00_4116;

																BgL_idxz00_4116 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_4115);
																BgL_test2316z00_6729 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_4116 + 2L)) ==
																	BgL_classz00_4114);
															}
														else
															{	/* Ast/alphatize.scm 131 */
																bool_t BgL_res2127z00_4119;

																{	/* Ast/alphatize.scm 131 */
																	obj_t BgL_oclassz00_4120;

																	{	/* Ast/alphatize.scm 131 */
																		long BgL_arg1808z00_4121;

																		{	/* Ast/alphatize.scm 131 */
																			long BgL_arg1809z00_4122;

																			BgL_arg1809z00_4122 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_4115);
																			BgL_arg1808z00_4121 =
																				(BgL_arg1809z00_4122 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_4120 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_4121);
																	}
																	{	/* Ast/alphatize.scm 131 */
																		bool_t BgL__ortest_1115z00_4123;

																		BgL__ortest_1115z00_4123 =
																			(BgL_classz00_4114 == BgL_oclassz00_4120);
																		if (BgL__ortest_1115z00_4123)
																			{	/* Ast/alphatize.scm 131 */
																				BgL_res2127z00_4119 =
																					BgL__ortest_1115z00_4123;
																			}
																		else
																			{	/* Ast/alphatize.scm 131 */
																				long BgL_odepthz00_4124;

																				BgL_odepthz00_4124 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_4120);
																				if ((2L < BgL_odepthz00_4124))
																					{	/* Ast/alphatize.scm 131 */
																						obj_t BgL_arg1797z00_4125;

																						BgL_arg1797z00_4125 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_4120, 2L);
																						BgL_res2127z00_4119 =
																							(BgL_arg1797z00_4125 ==
																							BgL_classz00_4114);
																					}
																				else
																					{	/* Ast/alphatize.scm 131 */
																						BgL_res2127z00_4119 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2316z00_6729 = BgL_res2127z00_4119;
															}
													}
												}
											}
											if (BgL_test2316z00_6729)
												{	/* Ast/alphatize.scm 132 */
													BgL_closurez00_bglt BgL_new1135z00_4126;

													{	/* Ast/alphatize.scm 133 */
														BgL_closurez00_bglt BgL_new1133z00_4127;

														BgL_new1133z00_4127 =
															((BgL_closurez00_bglt)
															BOBJECT(GC_MALLOC(sizeof(struct
																		BgL_closurez00_bgl))));
														{	/* Ast/alphatize.scm 133 */
															long BgL_arg1825z00_4128;

															BgL_arg1825z00_4128 =
																BGL_CLASS_NUM(BGl_closurez00zzast_nodez00);
															BGL_OBJECT_CLASS_NUM_SET(
																((BgL_objectz00_bglt) BgL_new1133z00_4127),
																BgL_arg1825z00_4128);
														}
														{	/* Ast/alphatize.scm 133 */
															BgL_objectz00_bglt BgL_tmpz00_6756;

															BgL_tmpz00_6756 =
																((BgL_objectz00_bglt) BgL_new1133z00_4127);
															BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6756, BFALSE);
														}
														((BgL_objectz00_bglt) BgL_new1133z00_4127);
														BgL_new1135z00_4126 = BgL_new1133z00_4127;
													}
													((((BgL_nodez00_bglt) COBJECT(
																	((BgL_nodez00_bglt) BgL_new1135z00_4126)))->
															BgL_locz00) =
														((obj_t)
															BGl_getzd2locationzd2zzast_alphatiza7eza7((
																	(BgL_nodez00_bglt) ((BgL_varz00_bglt)
																		BgL_nodez00_3626)), BgL_locz00_3627)),
														BUNSPEC);
													{
														BgL_typez00_bglt BgL_auxz00_6765;

														{	/* Ast/alphatize.scm 134 */
															BgL_typez00_bglt BgL_arg1824z00_4129;

															BgL_arg1824z00_4129 =
																(((BgL_variablez00_bglt) COBJECT(
																		((BgL_variablez00_bglt)
																			BgL_alphaz00_4095)))->BgL_typez00);
															BgL_auxz00_6765 =
																BGl_strictzd2nodezd2typez00zzast_nodez00((
																	(BgL_typez00_bglt)
																	BGl_za2procedureza2z00zztype_cachez00),
																BgL_arg1824z00_4129);
														}
														((((BgL_nodez00_bglt) COBJECT(
																		((BgL_nodez00_bglt) BgL_new1135z00_4126)))->
																BgL_typez00) =
															((BgL_typez00_bglt) BgL_auxz00_6765), BUNSPEC);
													}
													((((BgL_varz00_bglt) COBJECT(
																	((BgL_varz00_bglt) BgL_new1135z00_4126)))->
															BgL_variablez00) =
														((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
																BgL_alphaz00_4095)), BUNSPEC);
													return ((BgL_nodez00_bglt) BgL_new1135z00_4126);
												}
											else
												{	/* Ast/alphatize.scm 136 */
													BgL_refz00_bglt BgL_new1136z00_4130;

													{	/* Ast/alphatize.scm 137 */
														BgL_refz00_bglt BgL_new1139z00_4131;

														BgL_new1139z00_4131 =
															((BgL_refz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
																		BgL_refz00_bgl))));
														{	/* Ast/alphatize.scm 137 */
															long BgL_arg1826z00_4132;

															BgL_arg1826z00_4132 =
																BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
															BGL_OBJECT_CLASS_NUM_SET(
																((BgL_objectz00_bglt) BgL_new1139z00_4131),
																BgL_arg1826z00_4132);
														}
														{	/* Ast/alphatize.scm 137 */
															BgL_objectz00_bglt BgL_tmpz00_6780;

															BgL_tmpz00_6780 =
																((BgL_objectz00_bglt) BgL_new1139z00_4131);
															BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6780, BFALSE);
														}
														((BgL_objectz00_bglt) BgL_new1139z00_4131);
														BgL_new1136z00_4130 = BgL_new1139z00_4131;
													}
													((((BgL_nodez00_bglt) COBJECT(
																	((BgL_nodez00_bglt) BgL_new1136z00_4130)))->
															BgL_locz00) =
														((obj_t)
															BGl_getzd2locationzd2zzast_alphatiza7eza7((
																	(BgL_nodez00_bglt) ((BgL_varz00_bglt)
																		BgL_nodez00_3626)), BgL_locz00_3627)),
														BUNSPEC);
													((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																		BgL_new1136z00_4130)))->BgL_typez00) =
														((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																	COBJECT(((BgL_nodez00_bglt) ((BgL_varz00_bglt)
																				BgL_nodez00_3626))))->BgL_typez00)),
														BUNSPEC);
													((((BgL_varz00_bglt) COBJECT(((BgL_varz00_bglt)
																		BgL_new1136z00_4130)))->BgL_variablez00) =
														((BgL_variablez00_bglt) ((BgL_variablez00_bglt)
																BgL_alphaz00_4095)), BUNSPEC);
													return ((BgL_nodez00_bglt) BgL_new1136z00_4130);
												}
										}
									}
								else
									{	/* Ast/alphatize.scm 139 */
										bool_t BgL_test2320z00_6798;

										{	/* Ast/alphatize.scm 139 */
											obj_t BgL_classz00_4133;

											BgL_classz00_4133 = BGl_literalz00zzast_nodez00;
											if (BGL_OBJECTP(BgL_alphaz00_4095))
												{	/* Ast/alphatize.scm 139 */
													BgL_objectz00_bglt BgL_arg1801z00_4134;

													BgL_arg1801z00_4134 =
														(BgL_objectz00_bglt) (BgL_alphaz00_4095);
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* Ast/alphatize.scm 139 */
															long BgL_idxz00_4135;

															BgL_idxz00_4135 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4134);
															BgL_test2320z00_6798 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_4135 + 3L)) == BgL_classz00_4133);
														}
													else
														{	/* Ast/alphatize.scm 139 */
															bool_t BgL_res2128z00_4138;

															{	/* Ast/alphatize.scm 139 */
																obj_t BgL_oclassz00_4139;

																{	/* Ast/alphatize.scm 139 */
																	long BgL_arg1808z00_4140;

																	{	/* Ast/alphatize.scm 139 */
																		long BgL_arg1809z00_4141;

																		BgL_arg1809z00_4141 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4134);
																		BgL_arg1808z00_4140 =
																			(BgL_arg1809z00_4141 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_4139 =
																		VECTOR_REF
																		(BGl_za2classesza2z00zz__objectz00,
																		BgL_arg1808z00_4140);
																}
																{	/* Ast/alphatize.scm 139 */
																	bool_t BgL__ortest_1115z00_4142;

																	BgL__ortest_1115z00_4142 =
																		(BgL_classz00_4133 == BgL_oclassz00_4139);
																	if (BgL__ortest_1115z00_4142)
																		{	/* Ast/alphatize.scm 139 */
																			BgL_res2128z00_4138 =
																				BgL__ortest_1115z00_4142;
																		}
																	else
																		{	/* Ast/alphatize.scm 139 */
																			long BgL_odepthz00_4143;

																			BgL_odepthz00_4143 =
																				BGL_CLASS_DEPTH(BgL_oclassz00_4139);
																			if ((3L < BgL_odepthz00_4143))
																				{	/* Ast/alphatize.scm 139 */
																					obj_t BgL_arg1797z00_4144;

																					BgL_arg1797z00_4144 =
																						BGL_CLASS_ANCESTORS_REF
																						(BgL_oclassz00_4139, 3L);
																					BgL_res2128z00_4138 =
																						(BgL_arg1797z00_4144 ==
																						BgL_classz00_4133);
																				}
																			else
																				{	/* Ast/alphatize.scm 139 */
																					BgL_res2128z00_4138 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test2320z00_6798 = BgL_res2128z00_4138;
														}
												}
											else
												{	/* Ast/alphatize.scm 139 */
													BgL_test2320z00_6798 = ((bool_t) 0);
												}
										}
										if (BgL_test2320z00_6798)
											{	/* Ast/alphatize.scm 140 */
												BgL_literalz00_bglt BgL_new1140z00_4145;

												{	/* Ast/alphatize.scm 140 */
													BgL_literalz00_bglt BgL_new1144z00_4146;

													BgL_new1144z00_4146 =
														((BgL_literalz00_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_literalz00_bgl))));
													{	/* Ast/alphatize.scm 140 */
														long BgL_arg1829z00_4147;

														BgL_arg1829z00_4147 =
															BGL_CLASS_NUM(BGl_literalz00zzast_nodez00);
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt) BgL_new1144z00_4146),
															BgL_arg1829z00_4147);
													}
													{	/* Ast/alphatize.scm 140 */
														BgL_objectz00_bglt BgL_tmpz00_6822;

														BgL_tmpz00_6822 =
															((BgL_objectz00_bglt) BgL_new1144z00_4146);
														BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6822, BFALSE);
													}
													((BgL_objectz00_bglt) BgL_new1144z00_4146);
													BgL_new1140z00_4145 = BgL_new1144z00_4146;
												}
												((((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt) BgL_new1140z00_4145)))->
														BgL_locz00) =
													((obj_t) (((BgL_nodez00_bglt)
																COBJECT(((BgL_nodez00_bglt)
																		BgL_alphaz00_4095)))->BgL_locz00)),
													BUNSPEC);
												((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																	BgL_new1140z00_4145)))->BgL_typez00) =
													((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																COBJECT(((BgL_nodez00_bglt)
																		BgL_alphaz00_4095)))->BgL_typez00)),
													BUNSPEC);
												((((BgL_atomz00_bglt) COBJECT(((BgL_atomz00_bglt)
																	BgL_new1140z00_4145)))->BgL_valuez00) =
													((obj_t) (((BgL_atomz00_bglt)
																COBJECT(((BgL_atomz00_bglt) ((BgL_nodez00_bglt)
																			BgL_alphaz00_4095))))->BgL_valuez00)),
													BUNSPEC);
												return ((BgL_nodez00_bglt) BgL_new1140z00_4145);
											}
										else
											{	/* Ast/alphatize.scm 141 */
												bool_t BgL_test2325z00_6840;

												{	/* Ast/alphatize.scm 141 */
													obj_t BgL_classz00_4148;

													BgL_classz00_4148 = BGl_patchz00zzast_nodez00;
													if (BGL_OBJECTP(BgL_alphaz00_4095))
														{	/* Ast/alphatize.scm 141 */
															BgL_objectz00_bglt BgL_arg1801z00_4149;

															BgL_arg1801z00_4149 =
																(BgL_objectz00_bglt) (BgL_alphaz00_4095);
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* Ast/alphatize.scm 141 */
																	long BgL_idxz00_4150;

																	BgL_idxz00_4150 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_4149);
																	BgL_test2325z00_6840 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_4150 + 3L)) ==
																		BgL_classz00_4148);
																}
															else
																{	/* Ast/alphatize.scm 141 */
																	bool_t BgL_res2129z00_4153;

																	{	/* Ast/alphatize.scm 141 */
																		obj_t BgL_oclassz00_4154;

																		{	/* Ast/alphatize.scm 141 */
																			long BgL_arg1808z00_4155;

																			{	/* Ast/alphatize.scm 141 */
																				long BgL_arg1809z00_4156;

																				BgL_arg1809z00_4156 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_4149);
																				BgL_arg1808z00_4155 =
																					(BgL_arg1809z00_4156 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_4154 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_4155);
																		}
																		{	/* Ast/alphatize.scm 141 */
																			bool_t BgL__ortest_1115z00_4157;

																			BgL__ortest_1115z00_4157 =
																				(BgL_classz00_4148 ==
																				BgL_oclassz00_4154);
																			if (BgL__ortest_1115z00_4157)
																				{	/* Ast/alphatize.scm 141 */
																					BgL_res2129z00_4153 =
																						BgL__ortest_1115z00_4157;
																				}
																			else
																				{	/* Ast/alphatize.scm 141 */
																					long BgL_odepthz00_4158;

																					BgL_odepthz00_4158 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_4154);
																					if ((3L < BgL_odepthz00_4158))
																						{	/* Ast/alphatize.scm 141 */
																							obj_t BgL_arg1797z00_4159;

																							BgL_arg1797z00_4159 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_4154, 3L);
																							BgL_res2129z00_4153 =
																								(BgL_arg1797z00_4159 ==
																								BgL_classz00_4148);
																						}
																					else
																						{	/* Ast/alphatize.scm 141 */
																							BgL_res2129z00_4153 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test2325z00_6840 = BgL_res2129z00_4153;
																}
														}
													else
														{	/* Ast/alphatize.scm 141 */
															BgL_test2325z00_6840 = ((bool_t) 0);
														}
												}
												if (BgL_test2325z00_6840)
													{	/* Ast/alphatize.scm 143 */
														BgL_patchz00_bglt BgL_new1146z00_4160;

														{	/* Ast/alphatize.scm 143 */
															BgL_patchz00_bglt BgL_new1152z00_4161;

															BgL_new1152z00_4161 =
																((BgL_patchz00_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_patchz00_bgl))));
															{	/* Ast/alphatize.scm 143 */
																long BgL_arg1832z00_4162;

																BgL_arg1832z00_4162 =
																	BGL_CLASS_NUM(BGl_patchz00zzast_nodez00);
																BGL_OBJECT_CLASS_NUM_SET(
																	((BgL_objectz00_bglt) BgL_new1152z00_4161),
																	BgL_arg1832z00_4162);
															}
															{	/* Ast/alphatize.scm 143 */
																BgL_objectz00_bglt BgL_tmpz00_6864;

																BgL_tmpz00_6864 =
																	((BgL_objectz00_bglt) BgL_new1152z00_4161);
																BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6864,
																	BFALSE);
															}
															((BgL_objectz00_bglt) BgL_new1152z00_4161);
															BgL_new1146z00_4160 = BgL_new1152z00_4161;
														}
														((((BgL_nodez00_bglt) COBJECT(
																		((BgL_nodez00_bglt) BgL_new1146z00_4160)))->
																BgL_locz00) =
															((obj_t) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt)
																				BgL_alphaz00_4095)))->BgL_locz00)),
															BUNSPEC);
														((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
																			BgL_new1146z00_4160)))->BgL_typez00) =
															((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																		COBJECT(((BgL_nodez00_bglt)
																				BgL_alphaz00_4095)))->BgL_typez00)),
															BUNSPEC);
														((((BgL_atomz00_bglt) COBJECT(((BgL_atomz00_bglt)
																			BgL_new1146z00_4160)))->BgL_valuez00) =
															((obj_t) (((BgL_atomz00_bglt)
																		COBJECT(((BgL_atomz00_bglt) (
																					(BgL_nodez00_bglt)
																					BgL_alphaz00_4095))))->BgL_valuez00)),
															BUNSPEC);
														{
															BgL_varz00_bglt BgL_auxz00_6881;

															{	/* Ast/alphatize.scm 144 */
																BgL_varz00_bglt BgL_arg1831z00_4163;

																BgL_arg1831z00_4163 =
																	(((BgL_patchz00_bglt) COBJECT(
																			((BgL_patchz00_bglt)
																				BgL_alphaz00_4095)))->BgL_refz00);
																BgL_auxz00_6881 =
																	((BgL_varz00_bglt)
																	BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7((
																			(BgL_nodez00_bglt) BgL_arg1831z00_4163),
																		BgL_locz00_3627));
															}
															((((BgL_patchz00_bglt)
																		COBJECT(BgL_new1146z00_4160))->BgL_refz00) =
																((BgL_varz00_bglt) BgL_auxz00_6881), BUNSPEC);
														}
														((((BgL_patchz00_bglt)
																	COBJECT(BgL_new1146z00_4160))->BgL_indexz00) =
															((long) (((BgL_patchz00_bglt)
																		COBJECT(((BgL_patchz00_bglt) (
																					(BgL_nodez00_bglt)
																					BgL_alphaz00_4095))))->BgL_indexz00)),
															BUNSPEC);
														((((BgL_patchz00_bglt)
																	COBJECT(BgL_new1146z00_4160))->
																BgL_patchidz00) =
															((obj_t) (((BgL_patchz00_bglt)
																		COBJECT(((BgL_patchz00_bglt) (
																					(BgL_nodez00_bglt)
																					BgL_alphaz00_4095))))->
																	BgL_patchidz00)), BUNSPEC);
														return ((BgL_nodez00_bglt) BgL_new1146z00_4160);
													}
												else
													{	/* Ast/alphatize.scm 145 */
														bool_t BgL_test2330z00_6897;

														{	/* Ast/alphatize.scm 145 */
															obj_t BgL_classz00_4164;

															BgL_classz00_4164 = BGl_kwotez00zzast_nodez00;
															if (BGL_OBJECTP(BgL_alphaz00_4095))
																{	/* Ast/alphatize.scm 145 */
																	BgL_objectz00_bglt BgL_arg1801z00_4165;

																	BgL_arg1801z00_4165 =
																		(BgL_objectz00_bglt) (BgL_alphaz00_4095);
																	if (BGL_CONDEXPAND_ISA_ARCH64())
																		{	/* Ast/alphatize.scm 145 */
																			long BgL_idxz00_4166;

																			BgL_idxz00_4166 =
																				BGL_OBJECT_INHERITANCE_NUM
																				(BgL_arg1801z00_4165);
																			BgL_test2330z00_6897 =
																				(VECTOR_REF
																				(BGl_za2inheritancesza2z00zz__objectz00,
																					(BgL_idxz00_4166 + 2L)) ==
																				BgL_classz00_4164);
																		}
																	else
																		{	/* Ast/alphatize.scm 145 */
																			bool_t BgL_res2130z00_4169;

																			{	/* Ast/alphatize.scm 145 */
																				obj_t BgL_oclassz00_4170;

																				{	/* Ast/alphatize.scm 145 */
																					long BgL_arg1808z00_4171;

																					{	/* Ast/alphatize.scm 145 */
																						long BgL_arg1809z00_4172;

																						BgL_arg1809z00_4172 =
																							BGL_OBJECT_CLASS_NUM
																							(BgL_arg1801z00_4165);
																						BgL_arg1808z00_4171 =
																							(BgL_arg1809z00_4172 -
																							OBJECT_TYPE);
																					}
																					BgL_oclassz00_4170 =
																						VECTOR_REF
																						(BGl_za2classesza2z00zz__objectz00,
																						BgL_arg1808z00_4171);
																				}
																				{	/* Ast/alphatize.scm 145 */
																					bool_t BgL__ortest_1115z00_4173;

																					BgL__ortest_1115z00_4173 =
																						(BgL_classz00_4164 ==
																						BgL_oclassz00_4170);
																					if (BgL__ortest_1115z00_4173)
																						{	/* Ast/alphatize.scm 145 */
																							BgL_res2130z00_4169 =
																								BgL__ortest_1115z00_4173;
																						}
																					else
																						{	/* Ast/alphatize.scm 145 */
																							long BgL_odepthz00_4174;

																							BgL_odepthz00_4174 =
																								BGL_CLASS_DEPTH
																								(BgL_oclassz00_4170);
																							if ((2L < BgL_odepthz00_4174))
																								{	/* Ast/alphatize.scm 145 */
																									obj_t BgL_arg1797z00_4175;

																									BgL_arg1797z00_4175 =
																										BGL_CLASS_ANCESTORS_REF
																										(BgL_oclassz00_4170, 2L);
																									BgL_res2130z00_4169 =
																										(BgL_arg1797z00_4175 ==
																										BgL_classz00_4164);
																								}
																							else
																								{	/* Ast/alphatize.scm 145 */
																									BgL_res2130z00_4169 =
																										((bool_t) 0);
																								}
																						}
																				}
																			}
																			BgL_test2330z00_6897 =
																				BgL_res2130z00_4169;
																		}
																}
															else
																{	/* Ast/alphatize.scm 145 */
																	BgL_test2330z00_6897 = ((bool_t) 0);
																}
														}
														if (BgL_test2330z00_6897)
															{	/* Ast/alphatize.scm 146 */
																BgL_kwotez00_bglt BgL_new1153z00_4176;

																{	/* Ast/alphatize.scm 146 */
																	BgL_kwotez00_bglt BgL_new1158z00_4177;

																	BgL_new1158z00_4177 =
																		((BgL_kwotez00_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_kwotez00_bgl))));
																	{	/* Ast/alphatize.scm 146 */
																		long BgL_arg1834z00_4178;

																		BgL_arg1834z00_4178 =
																			BGL_CLASS_NUM(BGl_kwotez00zzast_nodez00);
																		BGL_OBJECT_CLASS_NUM_SET(
																			((BgL_objectz00_bglt)
																				BgL_new1158z00_4177),
																			BgL_arg1834z00_4178);
																	}
																	{	/* Ast/alphatize.scm 146 */
																		BgL_objectz00_bglt BgL_tmpz00_6921;

																		BgL_tmpz00_6921 =
																			((BgL_objectz00_bglt)
																			BgL_new1158z00_4177);
																		BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6921,
																			BFALSE);
																	}
																	((BgL_objectz00_bglt) BgL_new1158z00_4177);
																	BgL_new1153z00_4176 = BgL_new1158z00_4177;
																}
																((((BgL_nodez00_bglt) COBJECT(
																				((BgL_nodez00_bglt)
																					BgL_new1153z00_4176)))->BgL_locz00) =
																	((obj_t) (((BgL_nodez00_bglt)
																				COBJECT(((BgL_nodez00_bglt)
																						BgL_alphaz00_4095)))->BgL_locz00)),
																	BUNSPEC);
																((((BgL_nodez00_bglt)
																			COBJECT(((BgL_nodez00_bglt)
																					BgL_new1153z00_4176)))->BgL_typez00) =
																	((BgL_typez00_bglt) (((BgL_nodez00_bglt)
																				COBJECT(((BgL_nodez00_bglt)
																						BgL_alphaz00_4095)))->BgL_typez00)),
																	BUNSPEC);
																((((BgL_kwotez00_bglt)
																			COBJECT(BgL_new1153z00_4176))->
																		BgL_valuez00) =
																	((obj_t) (((BgL_kwotez00_bglt)
																				COBJECT(((BgL_kwotez00_bglt) (
																							(BgL_nodez00_bglt)
																							BgL_alphaz00_4095))))->
																			BgL_valuez00)), BUNSPEC);
																return ((BgL_nodez00_bglt) BgL_new1153z00_4176);
															}
														else
															{	/* Ast/alphatize.scm 150 */
																obj_t BgL_arg1835z00_4179;

																{	/* Ast/alphatize.scm 150 */
																	obj_t BgL_arg1836z00_4180;
																	obj_t BgL_arg1837z00_4181;

																	BgL_arg1836z00_4180 =
																		BGl_shapez00zztools_shapez00(
																		((obj_t)
																			((BgL_varz00_bglt) BgL_nodez00_3626)));
																	BgL_arg1837z00_4181 =
																		BGl_shapez00zztools_shapez00
																		(BgL_alphaz00_4095);
																	BgL_arg1835z00_4179 =
																		MAKE_YOUNG_PAIR(BgL_arg1836z00_4180,
																		BgL_arg1837z00_4181);
																}
																return
																	((BgL_nodez00_bglt)
																	BGl_internalzd2errorzd2zztools_errorz00
																	(BGl_string2190z00zzast_alphatiza7eza7,
																		BGl_string2193z00zzast_alphatiza7eza7,
																		BgL_arg1835z00_4179));
															}
													}
											}
									}
							}
					}
				}
			}
		}

	}



/* &do-alphatize-patch1606 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2patch1606zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3628, obj_t BgL_nodez00_3629, obj_t BgL_locz00_3630)
	{
		{	/* Ast/alphatize.scm 112 */
			{	/* Ast/alphatize.scm 114 */
				BgL_patchz00_bglt BgL_new1122z00_4183;

				{	/* Ast/alphatize.scm 117 */
					BgL_patchz00_bglt BgL_new1127z00_4184;

					BgL_new1127z00_4184 =
						((BgL_patchz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_patchz00_bgl))));
					{	/* Ast/alphatize.scm 117 */
						long BgL_arg1799z00_4185;

						BgL_arg1799z00_4185 = BGL_CLASS_NUM(BGl_patchz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1127z00_4184), BgL_arg1799z00_4185);
					}
					{	/* Ast/alphatize.scm 117 */
						BgL_objectz00_bglt BgL_tmpz00_6949;

						BgL_tmpz00_6949 = ((BgL_objectz00_bglt) BgL_new1127z00_4184);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6949, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1127z00_4184);
					BgL_new1122z00_4183 = BgL_new1127z00_4184;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1122z00_4183)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_patchz00_bglt) BgL_nodez00_3629)), BgL_locz00_3630)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1122z00_4183)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_patchz00_bglt)
											BgL_nodez00_3629))))->BgL_typez00)), BUNSPEC);
				{
					obj_t BgL_auxz00_6963;

					{	/* Ast/alphatize.scm 116 */
						obj_t BgL_arg1794z00_4186;

						BgL_arg1794z00_4186 =
							(((BgL_atomz00_bglt) COBJECT(
									((BgL_atomz00_bglt)
										((BgL_patchz00_bglt) BgL_nodez00_3629))))->BgL_valuez00);
						BgL_auxz00_6963 =
							((obj_t)
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
								((BgL_nodez00_bglt) BgL_arg1794z00_4186), BgL_locz00_3630));
					}
					((((BgL_atomz00_bglt) COBJECT(
									((BgL_atomz00_bglt) BgL_new1122z00_4183)))->BgL_valuez00) =
						((obj_t) BgL_auxz00_6963), BUNSPEC);
				}
				{
					BgL_varz00_bglt BgL_auxz00_6972;

					{	/* Ast/alphatize.scm 115 */
						BgL_varz00_bglt BgL_arg1798z00_4187;

						BgL_arg1798z00_4187 =
							(((BgL_patchz00_bglt) COBJECT(
									((BgL_patchz00_bglt) BgL_nodez00_3629)))->BgL_refz00);
						BgL_auxz00_6972 =
							((BgL_varz00_bglt)
							BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
								((BgL_nodez00_bglt) BgL_arg1798z00_4187), BgL_locz00_3630));
					}
					((((BgL_patchz00_bglt) COBJECT(BgL_new1122z00_4183))->BgL_refz00) =
						((BgL_varz00_bglt) BgL_auxz00_6972), BUNSPEC);
				}
				((((BgL_patchz00_bglt) COBJECT(BgL_new1122z00_4183))->BgL_indexz00) =
					((long) (((BgL_patchz00_bglt)
								COBJECT(((BgL_patchz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_patchz00_bglt) BgL_nodez00_3629)))))->
							BgL_indexz00)), BUNSPEC);
				((((BgL_patchz00_bglt) COBJECT(BgL_new1122z00_4183))->BgL_patchidz00) =
					((obj_t) (((BgL_patchz00_bglt)
								COBJECT(((BgL_patchz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_patchz00_bglt) BgL_nodez00_3629)))))->
							BgL_patchidz00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1122z00_4183);
			}
		}

	}



/* &do-alphatize-literal1604 */
	BgL_nodez00_bglt
		BGl_z62dozd2alphatiza7ezd2literal1604zc5zzast_alphatiza7eza7(obj_t
		BgL_envz00_3631, obj_t BgL_nodez00_3632, obj_t BgL_locz00_3633)
	{
		{	/* Ast/alphatize.scm 105 */
			{	/* Ast/alphatize.scm 106 */
				BgL_literalz00_bglt BgL_new1116z00_4189;

				{	/* Ast/alphatize.scm 107 */
					BgL_literalz00_bglt BgL_new1120z00_4190;

					BgL_new1120z00_4190 =
						((BgL_literalz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_literalz00_bgl))));
					{	/* Ast/alphatize.scm 107 */
						long BgL_arg1793z00_4191;

						BgL_arg1793z00_4191 = BGL_CLASS_NUM(BGl_literalz00zzast_nodez00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1120z00_4190), BgL_arg1793z00_4191);
					}
					{	/* Ast/alphatize.scm 107 */
						BgL_objectz00_bglt BgL_tmpz00_6994;

						BgL_tmpz00_6994 = ((BgL_objectz00_bglt) BgL_new1120z00_4190);
						BGL_OBJECT_WIDENING_SET(BgL_tmpz00_6994, BFALSE);
					}
					((BgL_objectz00_bglt) BgL_new1120z00_4190);
					BgL_new1116z00_4189 = BgL_new1120z00_4190;
				}
				((((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt) BgL_new1116z00_4189)))->BgL_locz00) =
					((obj_t)
						BGl_getzd2locationzd2zzast_alphatiza7eza7(((BgL_nodez00_bglt) (
									(BgL_literalz00_bglt) BgL_nodez00_3632)), BgL_locz00_3633)),
					BUNSPEC);
				((((BgL_nodez00_bglt) COBJECT(((BgL_nodez00_bglt)
									BgL_new1116z00_4189)))->BgL_typez00) =
					((BgL_typez00_bglt) (((BgL_nodez00_bglt)
								COBJECT(((BgL_nodez00_bglt) ((BgL_literalz00_bglt)
											BgL_nodez00_3632))))->BgL_typez00)), BUNSPEC);
				((((BgL_atomz00_bglt) COBJECT(((BgL_atomz00_bglt)
									BgL_new1116z00_4189)))->BgL_valuez00) =
					((obj_t) (((BgL_atomz00_bglt)
								COBJECT(((BgL_atomz00_bglt) ((BgL_nodez00_bglt) (
												(BgL_literalz00_bglt) BgL_nodez00_3632)))))->
							BgL_valuez00)), BUNSPEC);
				return ((BgL_nodez00_bglt) BgL_new1116z00_4189);
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zzast_alphatiza7eza7(void)
	{
		{	/* Ast/alphatize.scm 14 */
			BGl_modulezd2initializa7ationz75zztype_typez00(515343395L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
			BGl_modulezd2initializa7ationz75zzast_varz00(90839984L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
			BGl_modulezd2initializa7ationz75zzast_nodez00(469732712L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
			BGl_modulezd2initializa7ationz75zztools_errorz00(300504031L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
			BGl_modulezd2initializa7ationz75zztools_shapez00(365925558L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
			BGl_modulezd2initializa7ationz75zztype_cachez00(346491734L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
			BGl_modulezd2initializa7ationz75zzast_sexpz00(163122759L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
			BGl_modulezd2initializa7ationz75zzast_localz00(315247917L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
			BGl_modulezd2initializa7ationz75zzast_applyz00(277780830L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
			BGl_modulezd2initializa7ationz75zzast_appz00(449859288L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
			return
				BGl_modulezd2initializa7ationz75zzast_dumpz00(271707717L,
				BSTRING_TO_STRING(BGl_string2194z00zzast_alphatiza7eza7));
		}

	}

#ifdef __cplusplus
}
#endif
