/*===========================================================================*/
/*   (Ast/alphatize.scm)                                                     */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Ast/alphatize.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


/* 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;
} *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;
} *BgL_variablez00_bglt;

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

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

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

typedef struct BgL_sfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_propertyz00;
   obj_t BgL_argsz00;
   obj_t BgL_bodyz00;
   obj_t BgL_classz00;
   obj_t BgL_dssslzd2keywordszd2;
   obj_t BgL_locz00;
} *BgL_sfunz00_bglt;

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

typedef struct BgL_svarz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_svarz00_bglt;

typedef struct BgL_scnstz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_nodez00;
   obj_t BgL_classz00;
   obj_t BgL_locz00;
} *BgL_scnstz00_bglt;

typedef struct BgL_cvarz00_bgl {
   header_t header;
   obj_t widening;
   bool_t BgL_macrozf3zf3;
} *BgL_cvarz00_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_feffectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_readz00;
   obj_t BgL_writez00;
} *BgL_feffectz00_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_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
} *BgL_nodezf2effectzf2_bglt;

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

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

typedef struct BgL_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_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_nodesz00;
} *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_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *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;
} *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_sidezd2effectzf3z21;
   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_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_formatz00;
} *BgL_pragmaz00_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_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   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_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   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_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *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_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2heapzd2formatz00;
   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_sidezd2effectzf3z21;
   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;
} *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_sidezd2effectzf3z21;
   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;
} *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_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vlengthz00_bglt;

typedef struct BgL_isaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   struct BgL_typez00_bgl * BgL_classz00;
} *BgL_isaz00_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_sidezd2effectzf3z21;
   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_selectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_selectz00_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_sidezd2effectzf3z21;
   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_sidezd2effectzf3z21;
   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;
} *BgL_setzd2exzd2itz00_bglt;

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

typedef struct BgL_makezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *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_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_varz00;
} *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;
} *BgL_boxzd2setz12zc0_bglt;


extern obj_t BGl_vrefz00zzast_nodez00;
static obj_t BGl_methodzd2initzd2zzast_alphatiza7eza7();
static obj_t BGl_dozd2alphatiza7ezd2app2855za7zzast_alphatiza7eza7(obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static BgL_nodez00_bglt BGl_dozd2alphatiza7ezd2default2841za7zzast_alphatiza7eza7(BgL_nodez00_bglt);
extern BgL_castz00_bglt BGl_makezd2castzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt);
extern BgL_letzd2varzd2_bglt BGl_makezd2letzd2varz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, BgL_nodez00_bglt, bool_t);
static obj_t BGl_dozd2alphatiza7ezd2appzd2ly2857z75zzast_alphatiza7eza7(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern obj_t BGl_usezd2variablez12zc0zzast_sexpz00(BgL_variablez00_bglt, obj_t, obj_t);
extern BgL_atomz00_bglt BGl_makezd2atomzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
extern BgL_failz00_bglt BGl_makezd2failzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_pragmaz00zzast_nodez00;
extern obj_t BGl_userzd2errorzf2locationz20zztools_errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern BgL_letzd2funzd2_bglt BGl_makezd2letzd2funz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, BgL_nodez00_bglt);
static obj_t BGl_dozd2alphatiza7ezd2fail2886za7zzast_alphatiza7eza7(obj_t, obj_t);
extern obj_t BGl_kwotez00zzast_nodez00;
extern BgL_jumpzd2exzd2itz00_bglt BGl_makezd2jumpzd2exzd2itzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt);
extern obj_t BGl_funz00zzast_varz00;
static obj_t BGl_dozd2alphatiza7ezd2conditional2884za7zzast_alphatiza7eza7(obj_t, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2setzd2exzd2it2901za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_newz00_bglt BGl_makezd2newzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t);
extern BgL_conditionalz00_bglt BGl_makezd2conditionalzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt);
static obj_t BGl_dozd2alphatiza7ezd2boxzd2ref2892z75zzast_alphatiza7eza7(obj_t, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2closure2849za7zzast_alphatiza7eza7(obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern BgL_localz00_bglt BGl_makezd2localzd2sexitz00zzast_localz00(obj_t, BgL_typez00_bglt, BgL_sexitz00_bglt);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_dozd2alphatiza7ezd2funcall2859za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_appz00_bglt BGl_makezd2appzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t);
static obj_t BGl_cnstzd2initzd2zzast_alphatiza7eza7();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
extern bool_t BGl_correctzd2arityzd2appzf3zf3zzast_appz00(BgL_variablez00_bglt, obj_t);
static obj_t BGl__dozd2alphatiza7e4889z75zzast_alphatiza7eza7(obj_t, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2select2888za7zzast_alphatiza7eza7(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzast_alphatiza7eza7();
static BgL_nodez00_bglt BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_nodez00_bglt);
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_dozd2alphatiza7ezd2new2867za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_setfieldz00_bglt BGl_makezd2setfieldzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt);
extern BgL_setzd2exzd2itz00_bglt BGl_makezd2setzd2exzd2itzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt);
extern obj_t BGl_getfieldz00zzast_nodez00;
extern obj_t BGl_isaz00zzast_nodez00;
static obj_t BGl__alphatiza7e4887za7zzast_alphatiza7eza7(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2pragma2861za7zzast_alphatiza7eza7(obj_t, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2atom2845za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_vlengthz00_bglt BGl_makezd2vlengthzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt);
extern BgL_closurez00_bglt BGl_makezd2closurezd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_variablez00zzast_varz00;
extern BgL_sexitz00_bglt BGl_makezd2sexitzd2zzast_varz00(obj_t, bool_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_dozd2alphatiza7ezd2setfield2865za7zzast_alphatiza7eza7(obj_t, obj_t);
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzast_alphatiza7eza7();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_dozd2alphatiza7ezd2vlength2870za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_sequencez00_bglt BGl_makezd2sequencezd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzast_alphatiza7eza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_applyz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_appz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern BgL_kwotez00_bglt BGl_makezd2kwotezd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
static obj_t BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(obj_t);
static obj_t BGl_dozd2alphatiza7ezd2var2847za7zzast_alphatiza7eza7(obj_t, obj_t);
static obj_t BGl_za2locationza2z00zzast_alphatiza7eza7 = BUNSPEC;
static obj_t BGl_dozd2alphatiza7ezd2sequence2853za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_pragmaz00_bglt BGl_makezd2pragmazd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2setq2882za7zzast_alphatiza7eza7(obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
extern BgL_localz00_bglt BGl_makezd2localzd2sfunz00zzast_localz00(obj_t, BgL_typez00_bglt, BgL_sfunz00_bglt);
static obj_t BGl_dozd2alphatiza7ezd2letzd2var2899z75zzast_alphatiza7eza7(obj_t, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2vref2872za7zzast_alphatiza7eza7(obj_t, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2boxzd2setz122894z67zzast_alphatiza7eza7(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_dozd2alphatiza7ezd2valloc2876za7zzast_alphatiza7eza7(obj_t, obj_t);
extern obj_t BGl_newz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
static obj_t BGl_dozd2alphatiza7ezd2kwote2851za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t, BgL_typez00_bglt);
extern BgL_boxzd2setz12zc0_bglt BGl_makezd2boxzd2setz12z12zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt);
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_dozd2alphatiza7ezd2letzd2fun2896z75zzast_alphatiza7eza7(obj_t, obj_t);
static obj_t BGl__dozd2alphatiza7ezd2default2841za7zzast_alphatiza7eza7(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_alphatiza7eza7zzast_alphatiza7eza7(obj_t, obj_t, obj_t, BgL_nodez00_bglt);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2getfield2863za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_vsetz12z12_bglt BGl_makezd2vsetz12zc0zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_typez00_bglt);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_dozd2alphatiza7ezd2vsetz122874zb5zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_nodez00_bglt BGl_makezd2appzd2nodez00zzast_appz00(obj_t, obj_t, BgL_varz00_bglt, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2makezd2box2890z75zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_setqz00_bglt BGl_makezd2setqzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt);
extern obj_t BGl_closurez00zzast_nodez00;
extern obj_t BGl_vlengthz00zzast_nodez00;
extern BgL_getfieldz00_bglt BGl_makezd2getfieldzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt);
static obj_t BGl_dozd2alphatiza7ezd2isa2878za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_vrefz00_bglt BGl_makezd2vrefzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_typez00_bglt);
extern obj_t BGl_setfieldz00zzast_nodez00;
extern BgL_varz00_bglt BGl_makezd2varzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
extern BgL_makezd2boxzd2_bglt BGl_makezd2makezd2boxz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
extern BgL_nodez00_bglt BGl_knownzd2appzd2lyzd2ze3nodez31zzast_applyz00(obj_t, obj_t, BgL_nodez00_bglt, BgL_nodez00_bglt, obj_t);
extern BgL_sfunz00_bglt BGl_makezd2sfunzd2zzast_varz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_dozd2alphatiza7ezd2cast2880za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_selectz00_bglt BGl_makezd2selectzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt, obj_t, BgL_typez00_bglt);
static obj_t BGl_requirezd2initializa7ationz75zzast_alphatiza7eza7 = BUNSPEC;
extern BgL_vallocz00_bglt BGl_makezd2valloczd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt);
extern BgL_appzd2lyzd2_bglt BGl_makezd2appzd2lyz00zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt);
static obj_t BGl_dozd2alphatiza7ezd2jumpzd2exzd2it2903za7zzast_alphatiza7eza7(obj_t, obj_t);
extern BgL_funcallz00_bglt BGl_makezd2funcallzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, obj_t, obj_t);
extern BgL_isaz00_bglt BGl_makezd2isazd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt);
static obj_t BGl_libraryzd2moduleszd2initz00zzast_alphatiza7eza7();
extern BgL_boxzd2refzd2_bglt BGl_makezd2boxzd2refz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt);
extern obj_t BGl_vsetz12z12zzast_nodez00;
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 4 ] ;


DEFINE_STATIC_PROCEDURE( BGl_dozd2alphatiza7ezd2default2841zd2envz75zzast_alphatiza7eza7, BgL_bgl__doza7d2alphatiza7a7eza7d2default2841za7a7za7za7ast_alphatiza7a7eza7a75933z00, BGl__dozd2alphatiza7ezd2default2841za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_GENERIC( BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_bgl__doza7d2alphatiza7a7e4889za775za7za7ast_alphatiza7a7eza7a75934za7, BGl__dozd2alphatiza7e4889z75zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5870z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2atom2845za7a7za7za7ast_alphatiza7a7eza7a75935z00, BGl_dozd2alphatiza7ezd2atom2845za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5871z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2var2847za7a7za7za7ast_alphatiza7a7eza7a75936z00, BGl_dozd2alphatiza7ezd2var2847za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5872z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2closure2849za7a7za7za7ast_alphatiza7a7eza7a75937z00, BGl_dozd2alphatiza7ezd2closure2849za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5873z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2kwote2851za7a7za7za7ast_alphatiza7a7eza7a75938z00, BGl_dozd2alphatiza7ezd2kwote2851za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5874z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2sequence2853za7a7za7za7ast_alphatiza7a7eza7a75939z00, BGl_dozd2alphatiza7ezd2sequence2853za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5875z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2app2855za7a7za7za7ast_alphatiza7a7eza7a75940z00, BGl_dozd2alphatiza7ezd2app2855za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5876z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2appza7d2ly2857za775za7za7ast_alphatiza7a7eza7a75941za7, BGl_dozd2alphatiza7ezd2appzd2ly2857z75zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5877z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2funcall2859za7a7za7za7ast_alphatiza7a7eza7a75942z00, BGl_dozd2alphatiza7ezd2funcall2859za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5878z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2pragma2861za7a7za7za7ast_alphatiza7a7eza7a75943z00, BGl_dozd2alphatiza7ezd2pragma2861za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5880z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2setfield2865za7a7za7za7ast_alphatiza7a7eza7a75944z00, BGl_dozd2alphatiza7ezd2setfield2865za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5879z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2getfield2863za7a7za7za7ast_alphatiza7a7eza7a75945z00, BGl_dozd2alphatiza7ezd2getfield2863za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5881z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2new2867za7a7za7za7ast_alphatiza7a7eza7a75946z00, BGl_dozd2alphatiza7ezd2new2867za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5882z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2vlength2870za7a7za7za7ast_alphatiza7a7eza7a75947z00, BGl_dozd2alphatiza7ezd2vlength2870za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5883z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2vref2872za7a7za7za7ast_alphatiza7a7eza7a75948z00, BGl_dozd2alphatiza7ezd2vref2872za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5884z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2vsetza7122874za7b5za7za7ast_alphatiza7a7eza7a75949za7, BGl_dozd2alphatiza7ezd2vsetz122874zb5zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5885z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2valloc2876za7a7za7za7ast_alphatiza7a7eza7a75950z00, BGl_dozd2alphatiza7ezd2valloc2876za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5886z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2isa2878za7a7za7za7ast_alphatiza7a7eza7a75951z00, BGl_dozd2alphatiza7ezd2isa2878za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5887z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2cast2880za7a7za7za7ast_alphatiza7a7eza7a75952z00, BGl_dozd2alphatiza7ezd2cast2880za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5888z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2setq2882za7a7za7za7ast_alphatiza7a7eza7a75953z00, BGl_dozd2alphatiza7ezd2setq2882za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5890z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2fail2886za7a7za7za7ast_alphatiza7a7eza7a75954z00, BGl_dozd2alphatiza7ezd2fail2886za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5889z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2conditional2884za7a7za7za7ast_alphatiza7a7eza7a75955z00, BGl_dozd2alphatiza7ezd2conditional2884za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5891z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2select2888za7a7za7za7ast_alphatiza7a7eza7a75956z00, BGl_dozd2alphatiza7ezd2select2888za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5892z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2makeza7d2box2890za775za7za7ast_alphatiza7a7eza7a75957za7, BGl_dozd2alphatiza7ezd2makezd2box2890z75zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5893z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2boxza7d2ref2892za775za7za7ast_alphatiza7a7eza7a75958za7, BGl_dozd2alphatiza7ezd2boxzd2ref2892z75zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5894z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2boxza7d2setza7122894za767za7za7ast_alphatiza7a7eza7a75959z00, BGl_dozd2alphatiza7ezd2boxzd2setz122894z67zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5895z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2letza7d2fun2896za775za7za7ast_alphatiza7a7eza7a75960za7, BGl_dozd2alphatiza7ezd2letzd2fun2896z75zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5896z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2letza7d2var2899za775za7za7ast_alphatiza7a7eza7a75961za7, BGl_dozd2alphatiza7ezd2letzd2var2899z75zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5897z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2setza7d2exza7d2it2901za7a7za7za7ast_alphatiza7a7eza7a75962z00, BGl_dozd2alphatiza7ezd2setzd2exzd2it2901za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5898z00zzast_alphatiza7eza7, BgL_bgl_doza7d2alphatiza7a7eza7d2jumpza7d2exza7d2it2903za7a7za7za7ast_alphatiza7a7eza7a75963z00, BGl_dozd2alphatiza7ezd2jumpzd2exzd2it2903za7zzast_alphatiza7eza7, 0L, 1 );
DEFINE_STRING( BGl_string5899z00zzast_alphatiza7eza7, BgL_bgl_string5899za700za7za7ast_alphatiza7a7eza7a75964za7, "alphatize", 9 );
DEFINE_STRING( BGl_string5906z00zzast_alphatiza7eza7, BgL_bgl_string5906za700za7za7ast_alphatiza7a7eza7a75965za7, "do-alphatize-default2841 value set! location ", 45 );
DEFINE_STRING( BGl_string5905z00zzast_alphatiza7eza7, BgL_bgl_string5905za700za7za7ast_alphatiza7a7eza7a75966za7, "No method for this object", 25 );
DEFINE_STRING( BGl_string5904z00zzast_alphatiza7eza7, BgL_bgl_string5904za700za7za7ast_alphatiza7a7eza7a75967za7, "Illegal alphatization (var)", 27 );
DEFINE_STRING( BGl_string5903z00zzast_alphatiza7eza7, BgL_bgl_string5903za700za7za7ast_alphatiza7a7eza7a75968za7, "Illegal alphatization (closure)", 31 );
DEFINE_STRING( BGl_string5902z00zzast_alphatiza7eza7, BgL_bgl_string5902za700za7za7ast_alphatiza7a7eza7a75969za7, "wrong number of argument(s)", 27 );
DEFINE_STRING( BGl_string5901z00zzast_alphatiza7eza7, BgL_bgl_string5901za700za7za7ast_alphatiza7a7eza7a75970za7, "Illegal application", 19 );
DEFINE_STRING( BGl_string5900z00zzast_alphatiza7eza7, BgL_bgl_string5900za700za7za7ast_alphatiza7a7eza7a75971za7, "Illegal alphatization (setq)", 28 );
DEFINE_EXPORT_PROCEDURE( BGl_alphatiza7ezd2envz75zzast_alphatiza7eza7, BgL_bgl__alphatiza7a7e4887za7a7za7za7ast_alphatiza7a7eza7a75972z00, BGl__alphatiza7e4887za7zzast_alphatiza7eza7, 0L, 4 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzast_alphatiza7eza7(long BgL_checksumz00_3813, char * BgL_fromz00_3814)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzast_alphatiza7eza7))
{ 
BGl_requirezd2initializa7ationz75zzast_alphatiza7eza7 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzast_alphatiza7eza7(); 
BGl_cnstzd2initzd2zzast_alphatiza7eza7(); 
BGl_importedzd2moduleszd2initz00zzast_alphatiza7eza7(); 
BGl_methodzd2initzd2zzast_alphatiza7eza7(); 
BGl_toplevelzd2initzd2zzast_alphatiza7eza7(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzast_alphatiza7eza7()
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 14 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "ast_alphatize"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "ast_alphatize"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "ast_alphatize"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzast_alphatiza7eza7()
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 14 */
{ /* ./Ast/alphatize.scm 14 */
obj_t BgL_cportz00_3806;
BgL_cportz00_3806 = 
open_input_string(BGl_string5906z00zzast_alphatiza7eza7); 
{ 
long BgL_iz00_3807;
BgL_iz00_3807 = ((long)3); 
BgL_loopz00_3808:
{ /* ./Ast/alphatize.scm 14 */
bool_t BgL_test5908z00_3809;
BgL_test5908z00_3809 = 
(BgL_iz00_3807==((long)-1)); 
if(BgL_test5908z00_3809)
{ /* ./Ast/alphatize.scm 14 */
return BUNSPEC;}  else 
{ /* ./Ast/alphatize.scm 14 */
{ /* ./Ast/alphatize.scm 14 */
obj_t BgL_arg5910z00_3810;
{ /* ./Ast/alphatize.scm 14 */
obj_t BgL_list5913z00_3811;
BgL_list5913z00_3811 = 
MAKE_PAIR(BgL_cportz00_3806, BNIL); 
BgL_arg5910z00_3810 = 
BGl_readz00zz__readerz00(BgL_list5913z00_3811); } 
{ /* ./Ast/alphatize.scm 14 */
int BgL_auxz00_3831;
BgL_auxz00_3831 = 
(int)(BgL_iz00_3807); 
CNST_TABLE_SET(BgL_auxz00_3831, BgL_arg5910z00_3810); } } 
{ /* ./Ast/alphatize.scm 14 */
int BgL_auxz00_3812;
{ /* ./Ast/alphatize.scm 14 */
long BgL_auxz00_3834;
BgL_auxz00_3834 = 
(BgL_iz00_3807-((long)1)); 
BgL_auxz00_3812 = 
(int)(BgL_auxz00_3834); } 
{ 
long BgL_iz00_3837;
BgL_iz00_3837 = 
(long)(BgL_auxz00_3812); 
BgL_iz00_3807 = BgL_iz00_3837; 
goto BgL_loopz00_3808;} } } } } } } 
}



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



/* alphatize */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_alphatiza7eza7zzast_alphatiza7eza7(obj_t BgL_whatza2za2_15, obj_t BgL_byza2za2_16, obj_t BgL_locz00_17, BgL_nodez00_bglt BgL_nodez00_18)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 37 */
{ 
obj_t BgL_ll2662z00_718;obj_t BgL_ll2663z00_719;
BgL_ll2662z00_718 = BgL_whatza2za2_15; 
BgL_ll2663z00_719 = BgL_byza2za2_16; 
BgL_forzd2each2664zd2_720:
{ /* ./Ast/alphatize.scm 39 */
bool_t BgL_test2938z00_721;
BgL_test2938z00_721 = 
NULLP(BgL_ll2662z00_718); 
if(BgL_test2938z00_721)
{ /* ./Ast/alphatize.scm 39 */((bool_t)1); }  else 
{ /* ./Ast/alphatize.scm 39 */
{ /* ./Ast/alphatize.scm 40 */
obj_t BgL_whatz00_722;obj_t BgL_byz00_723;
BgL_whatz00_722 = 
CAR(BgL_ll2662z00_718); 
BgL_byz00_723 = 
CAR(BgL_ll2663z00_719); 
{ /* ./Ast/alphatize.scm 40 */
BgL_variablez00_bglt BgL_obj1108z00_1964;obj_t BgL_val1107z00_1965;
BgL_obj1108z00_1964 = 
(BgL_variablez00_bglt)(BgL_whatz00_722); 
BgL_val1107z00_1965 = BgL_byz00_723; 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_1964))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_1965), BUNSPEC); } } 
{ /* ./Ast/alphatize.scm 39 */
obj_t BgL_arg2943z00_724;obj_t BgL_arg2944z00_725;
BgL_arg2943z00_724 = 
CDR(BgL_ll2662z00_718); 
BgL_arg2944z00_725 = 
CDR(BgL_ll2663z00_719); 
{ 
obj_t BgL_ll2663z00_3848;obj_t BgL_ll2662z00_3847;
BgL_ll2662z00_3847 = BgL_arg2943z00_724; 
BgL_ll2663z00_3848 = BgL_arg2944z00_725; 
BgL_ll2663z00_719 = BgL_ll2663z00_3848; 
BgL_ll2662z00_718 = BgL_ll2662z00_3847; 
goto BgL_forzd2each2664zd2_720;} } } } } 
BGl_za2locationza2z00zzast_alphatiza7eza7 = BgL_locz00_17; 
{ /* ./Ast/alphatize.scm 44 */
BgL_nodez00_bglt BgL_resz00_726;
{ /* ./Ast/alphatize.scm 44 */
BgL_nodez00_bglt BgL_res4744z00_1994;
{ /* ./Ast/alphatize.scm 44 */
obj_t BgL_method2843z00_1969;
{ /* ./Ast/alphatize.scm 44 */
BgL_objectz00_bglt BgL_objz00_1970;
BgL_objz00_1970 = 
(BgL_objectz00_bglt)(BgL_nodez00_18); 
{ /* ./Ast/alphatize.scm 44 */
long BgL_objzd2classzd2numz00_1971;
BgL_objzd2classzd2numz00_1971 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1970); 
{ /* ./Ast/alphatize.scm 44 */
obj_t BgL_arg2017z00_1972;
{ /* ./Ast/alphatize.scm 44 */
int BgL_auxz00_3851;
BgL_auxz00_3851 = 
(int)(((long)1)); 
BgL_arg2017z00_1972 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_3851); } 
{ /* ./Ast/alphatize.scm 44 */
int BgL_offsetz00_1975;
BgL_offsetz00_1975 = 
(int)(BgL_objzd2classzd2numz00_1971); 
{ /* ./Ast/alphatize.scm 44 */
long BgL_offsetz00_1976;
{ /* ./Ast/alphatize.scm 44 */
long BgL_auxz00_3855;
BgL_auxz00_3855 = 
(long)(BgL_offsetz00_1975); 
BgL_offsetz00_1976 = 
(BgL_auxz00_3855-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 44 */
long BgL_modz00_1977;
{ /* ./Ast/alphatize.scm 44 */
int BgL_arg2028z00_1978;
BgL_arg2028z00_1978 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 44 */
long BgL_n2z00_1986;
BgL_n2z00_1986 = 
(long)(BgL_arg2028z00_1978); 
BgL_modz00_1977 = 
(BgL_offsetz00_1976/BgL_n2z00_1986); } } 
{ /* ./Ast/alphatize.scm 44 */
long BgL_restz00_1979;
{ /* ./Ast/alphatize.scm 44 */
int BgL_arg2024z00_1980;
BgL_arg2024z00_1980 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 44 */
long BgL_n2z00_1989;
BgL_n2z00_1989 = 
(long)(BgL_arg2024z00_1980); 
BgL_restz00_1979 = 
(BgL_offsetz00_1976%BgL_n2z00_1989); } } 
{ /* ./Ast/alphatize.scm 44 */

{ /* ./Ast/alphatize.scm 44 */
obj_t BgL_bucketz00_1981;
{ /* ./Ast/alphatize.scm 44 */
int BgL_kz00_1991;
BgL_kz00_1991 = 
(int)(BgL_modz00_1977); 
BgL_bucketz00_1981 = 
VECTOR_REF(BgL_arg2017z00_1972,BgL_kz00_1991); } 
{ /* ./Ast/alphatize.scm 44 */
int BgL_kz00_1993;
BgL_kz00_1993 = 
(int)(BgL_restz00_1979); 
BgL_method2843z00_1969 = 
VECTOR_REF(BgL_bucketz00_1981,BgL_kz00_1993); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 44 */
obj_t BgL_auxz00_3868;
BgL_auxz00_3868 = 
PROCEDURE_ENTRY(BgL_method2843z00_1969)(BgL_method2843z00_1969, 
(obj_t)(BgL_nodez00_18), BEOA); 
BgL_res4744z00_1994 = 
(BgL_nodez00_bglt)(BgL_auxz00_3868); } } 
BgL_resz00_726 = BgL_res4744z00_1994; } 
{ 
obj_t BgL_l2665z00_727;
BgL_l2665z00_727 = BgL_whatza2za2_15; 
BgL_forzd2each2666zd2_728:
{ /* ./Ast/alphatize.scm 46 */
bool_t BgL_test2950z00_729;
BgL_test2950z00_729 = 
PAIRP(BgL_l2665z00_727); 
if(BgL_test2950z00_729)
{ /* ./Ast/alphatize.scm 46 */
{ /* ./Ast/alphatize.scm 47 */
obj_t BgL_whatz00_730;
BgL_whatz00_730 = 
CAR(BgL_l2665z00_727); 
{ /* ./Ast/alphatize.scm 47 */
BgL_variablez00_bglt BgL_obj1108z00_1997;obj_t BgL_val1107z00_1998;
BgL_obj1108z00_1997 = 
(BgL_variablez00_bglt)(BgL_whatz00_730); 
BgL_val1107z00_1998 = BUNSPEC; 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_1997))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_1998), BUNSPEC); } } 
{ /* ./Ast/alphatize.scm 46 */
obj_t BgL_arg2954z00_731;
BgL_arg2954z00_731 = 
CDR(BgL_l2665z00_727); 
{ 
obj_t BgL_l2665z00_3879;
BgL_l2665z00_3879 = BgL_arg2954z00_731; 
BgL_l2665z00_727 = BgL_l2665z00_3879; 
goto BgL_forzd2each2666zd2_728;} } }  else 
{ /* ./Ast/alphatize.scm 46 */((bool_t)1); } } } 
return BgL_resz00_726;} } 
}



/* _alphatize4887 */
obj_t BGl__alphatiza7e4887za7zzast_alphatiza7eza7(obj_t BgL_envz00_3709, obj_t BgL_whatza2za2_3710, obj_t BgL_byza2za2_3711, obj_t BgL_locz00_3712, obj_t BgL_nodez00_3713)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 37 */
{ /* ./Ast/alphatize.scm 39 */
BgL_nodez00_bglt BgL_auxz00_3880;
BgL_auxz00_3880 = 
BGl_alphatiza7eza7zzast_alphatiza7eza7(BgL_whatza2za2_3710, BgL_byza2za2_3711, BgL_locz00_3712, 
(BgL_nodez00_bglt)(BgL_nodez00_3713)); 
return 
(obj_t)(BgL_auxz00_3880);} } 
}



/* get-inline-location */
obj_t BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(obj_t BgL_nodez00_19)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 63 */
{ /* ./Ast/alphatize.scm 65 */
bool_t BgL_test2959z00_732;
{ /* ./Ast/alphatize.scm 65 */
obj_t BgL_oz00_2000;
BgL_oz00_2000 = BGl_za2locationza2z00zzast_alphatiza7eza7; 
if(
STRUCTP(BgL_oz00_2000))
{ /* ./Ast/alphatize.scm 65 */
obj_t BgL_auxz00_3888;obj_t BgL_auxz00_3886;
BgL_auxz00_3888 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_3886 = 
STRUCT_KEY(BgL_oz00_2000); 
BgL_test2959z00_732 = 
(BgL_auxz00_3886==BgL_auxz00_3888); }  else 
{ /* ./Ast/alphatize.scm 65 */
BgL_test2959z00_732 = ((bool_t)0); } } 
if(BgL_test2959z00_732)
{ /* ./Ast/alphatize.scm 65 */
return BGl_za2locationza2z00zzast_alphatiza7eza7;}  else 
{ /* ./Ast/alphatize.scm 67 */
bool_t BgL_testz00_3892;
{ /* ./Ast/alphatize.scm 67 */
obj_t BgL_arg2963z00_734;
{ /* ./Ast/alphatize.scm 67 */
BgL_nodez00_bglt BgL_obj1560z00_2007;
BgL_obj1560z00_2007 = 
(BgL_nodez00_bglt)(BgL_nodez00_19); 
BgL_arg2963z00_734 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2007))->BgL_locz00); } 
if(
STRUCTP(BgL_arg2963z00_734))
{ /* ./Ast/alphatize.scm 67 */
obj_t BgL_auxz00_3899;obj_t BgL_auxz00_3897;
BgL_auxz00_3899 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_3897 = 
STRUCT_KEY(BgL_arg2963z00_734); 
BgL_testz00_3892 = 
(BgL_auxz00_3897==BgL_auxz00_3899); }  else 
{ /* ./Ast/alphatize.scm 67 */
BgL_testz00_3892 = ((bool_t)0)
; } } 
if(BgL_testz00_3892)
{ /* ./Ast/alphatize.scm 67 */
{ /* ./Ast/alphatize.scm 68 */
BgL_nodez00_bglt BgL_obj1560z00_2015;
BgL_obj1560z00_2015 = 
(BgL_nodez00_bglt)(BgL_nodez00_19); 
return 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2015))->BgL_locz00);} }  else 
{ /* ./Ast/alphatize.scm 67 */
return BFALSE;} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzast_alphatiza7eza7()
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 14 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_dozd2alphatiza7ezd2default2841zd2envz75zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_atomz00zzast_nodez00, BGl_proc5870z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_varz00zzast_nodez00, BGl_proc5871z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_closurez00zzast_nodez00, BGl_proc5872z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_kwotez00zzast_nodez00, BGl_proc5873z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_sequencez00zzast_nodez00, BGl_proc5874z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_appz00zzast_nodez00, BGl_proc5875z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_appzd2lyzd2zzast_nodez00, BGl_proc5876z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_funcallz00zzast_nodez00, BGl_proc5877z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_pragmaz00zzast_nodez00, BGl_proc5878z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_getfieldz00zzast_nodez00, BGl_proc5879z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_setfieldz00zzast_nodez00, BGl_proc5880z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_newz00zzast_nodez00, BGl_proc5881z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_vlengthz00zzast_nodez00, BGl_proc5882z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_vrefz00zzast_nodez00, BGl_proc5883z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_vsetz12z12zzast_nodez00, BGl_proc5884z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_vallocz00zzast_nodez00, BGl_proc5885z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_isaz00zzast_nodez00, BGl_proc5886z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_castz00zzast_nodez00, BGl_proc5887z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_setqz00zzast_nodez00, BGl_proc5888z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_conditionalz00zzast_nodez00, BGl_proc5889z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_failz00zzast_nodez00, BGl_proc5890z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_selectz00zzast_nodez00, BGl_proc5891z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_makezd2boxzd2zzast_nodez00, BGl_proc5892z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_boxzd2refzd2zzast_nodez00, BGl_proc5893z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc5894z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_letzd2funzd2zzast_nodez00, BGl_proc5895z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_letzd2varzd2zzast_nodez00, BGl_proc5896z00zzast_alphatiza7eza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc5897z00zzast_alphatiza7eza7); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc5898z00zzast_alphatiza7eza7);} 
}



/* do-alphatize-jump-ex-it2903 */
obj_t BGl_dozd2alphatiza7ezd2jumpzd2exzd2it2903za7zzast_alphatiza7eza7(obj_t BgL_envz00_3745, obj_t BgL_nodez00_3746)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 460 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1931;
{ /* ./Ast/alphatize.scm 461 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_3934;
BgL_nodez00_1931 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_3746); 
{ /* ./Ast/alphatize.scm 462 */
BgL_jumpzd2exzd2itz00_bglt BgL_new2840z00_1935;
{ /* ./Ast/alphatize.scm 462 */
obj_t BgL_arg4707z00_1936;BgL_typez00_bglt BgL_arg4708z00_1937;BgL_nodez00_bglt BgL_arg4709z00_1938;BgL_nodez00_bglt BgL_arg4710z00_1939;
BgL_arg4707z00_1936 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1931)); 
{ /* ./Ast/alphatize.scm 461 */
BgL_nodez00_bglt BgL_obj1561z00_3624;
BgL_obj1561z00_3624 = 
(BgL_nodez00_bglt)(BgL_nodez00_1931); 
BgL_arg4708z00_1937 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3624))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 463 */
BgL_nodez00_bglt BgL_arg4715z00_1940;
BgL_arg4715z00_1940 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1931))->BgL_exitz00); 
{ /* ./Ast/alphatize.scm 463 */
BgL_nodez00_bglt BgL_res4881z00_3652;
{ /* ./Ast/alphatize.scm 463 */
obj_t BgL_method2843z00_3627;
{ /* ./Ast/alphatize.scm 463 */
BgL_objectz00_bglt BgL_objz00_3628;
BgL_objz00_3628 = 
(BgL_objectz00_bglt)(BgL_arg4715z00_1940); 
{ /* ./Ast/alphatize.scm 463 */
long BgL_objzd2classzd2numz00_3629;
BgL_objzd2classzd2numz00_3629 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3628); 
{ /* ./Ast/alphatize.scm 463 */
obj_t BgL_arg2017z00_3630;
{ /* ./Ast/alphatize.scm 463 */
int BgL_auxz00_3942;
BgL_auxz00_3942 = 
(int)(((long)1)); 
BgL_arg2017z00_3630 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_3942); } 
{ /* ./Ast/alphatize.scm 463 */
int BgL_offsetz00_3633;
BgL_offsetz00_3633 = 
(int)(BgL_objzd2classzd2numz00_3629); 
{ /* ./Ast/alphatize.scm 463 */
long BgL_offsetz00_3634;
{ /* ./Ast/alphatize.scm 463 */
long BgL_auxz00_3946;
BgL_auxz00_3946 = 
(long)(BgL_offsetz00_3633); 
BgL_offsetz00_3634 = 
(BgL_auxz00_3946-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 463 */
long BgL_modz00_3635;
{ /* ./Ast/alphatize.scm 463 */
int BgL_arg2028z00_3636;
BgL_arg2028z00_3636 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 463 */
long BgL_n2z00_3644;
BgL_n2z00_3644 = 
(long)(BgL_arg2028z00_3636); 
BgL_modz00_3635 = 
(BgL_offsetz00_3634/BgL_n2z00_3644); } } 
{ /* ./Ast/alphatize.scm 463 */
long BgL_restz00_3637;
{ /* ./Ast/alphatize.scm 463 */
int BgL_arg2024z00_3638;
BgL_arg2024z00_3638 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 463 */
long BgL_n2z00_3647;
BgL_n2z00_3647 = 
(long)(BgL_arg2024z00_3638); 
BgL_restz00_3637 = 
(BgL_offsetz00_3634%BgL_n2z00_3647); } } 
{ /* ./Ast/alphatize.scm 463 */

{ /* ./Ast/alphatize.scm 463 */
obj_t BgL_bucketz00_3639;
{ /* ./Ast/alphatize.scm 463 */
int BgL_kz00_3649;
BgL_kz00_3649 = 
(int)(BgL_modz00_3635); 
BgL_bucketz00_3639 = 
VECTOR_REF(BgL_arg2017z00_3630,BgL_kz00_3649); } 
{ /* ./Ast/alphatize.scm 463 */
int BgL_kz00_3651;
BgL_kz00_3651 = 
(int)(BgL_restz00_3637); 
BgL_method2843z00_3627 = 
VECTOR_REF(BgL_bucketz00_3639,BgL_kz00_3651); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 463 */
obj_t BgL_auxz00_3959;
BgL_auxz00_3959 = 
PROCEDURE_ENTRY(BgL_method2843z00_3627)(BgL_method2843z00_3627, 
(obj_t)(BgL_arg4715z00_1940), BEOA); 
BgL_res4881z00_3652 = 
(BgL_nodez00_bglt)(BgL_auxz00_3959); } } 
BgL_arg4709z00_1938 = BgL_res4881z00_3652; } } 
{ /* ./Ast/alphatize.scm 464 */
BgL_nodez00_bglt BgL_arg4719z00_1941;
BgL_arg4719z00_1941 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1931))->BgL_valuez00); 
{ /* ./Ast/alphatize.scm 464 */
BgL_nodez00_bglt BgL_res4884z00_3680;
{ /* ./Ast/alphatize.scm 464 */
obj_t BgL_method2843z00_3655;
{ /* ./Ast/alphatize.scm 464 */
BgL_objectz00_bglt BgL_objz00_3656;
BgL_objz00_3656 = 
(BgL_objectz00_bglt)(BgL_arg4719z00_1941); 
{ /* ./Ast/alphatize.scm 464 */
long BgL_objzd2classzd2numz00_3657;
BgL_objzd2classzd2numz00_3657 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3656); 
{ /* ./Ast/alphatize.scm 464 */
obj_t BgL_arg2017z00_3658;
{ /* ./Ast/alphatize.scm 464 */
int BgL_auxz00_3967;
BgL_auxz00_3967 = 
(int)(((long)1)); 
BgL_arg2017z00_3658 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_3967); } 
{ /* ./Ast/alphatize.scm 464 */
int BgL_offsetz00_3661;
BgL_offsetz00_3661 = 
(int)(BgL_objzd2classzd2numz00_3657); 
{ /* ./Ast/alphatize.scm 464 */
long BgL_offsetz00_3662;
{ /* ./Ast/alphatize.scm 464 */
long BgL_auxz00_3971;
BgL_auxz00_3971 = 
(long)(BgL_offsetz00_3661); 
BgL_offsetz00_3662 = 
(BgL_auxz00_3971-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 464 */
long BgL_modz00_3663;
{ /* ./Ast/alphatize.scm 464 */
int BgL_arg2028z00_3664;
BgL_arg2028z00_3664 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 464 */
long BgL_n2z00_3672;
BgL_n2z00_3672 = 
(long)(BgL_arg2028z00_3664); 
BgL_modz00_3663 = 
(BgL_offsetz00_3662/BgL_n2z00_3672); } } 
{ /* ./Ast/alphatize.scm 464 */
long BgL_restz00_3665;
{ /* ./Ast/alphatize.scm 464 */
int BgL_arg2024z00_3666;
BgL_arg2024z00_3666 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 464 */
long BgL_n2z00_3675;
BgL_n2z00_3675 = 
(long)(BgL_arg2024z00_3666); 
BgL_restz00_3665 = 
(BgL_offsetz00_3662%BgL_n2z00_3675); } } 
{ /* ./Ast/alphatize.scm 464 */

{ /* ./Ast/alphatize.scm 464 */
obj_t BgL_bucketz00_3667;
{ /* ./Ast/alphatize.scm 464 */
int BgL_kz00_3677;
BgL_kz00_3677 = 
(int)(BgL_modz00_3663); 
BgL_bucketz00_3667 = 
VECTOR_REF(BgL_arg2017z00_3658,BgL_kz00_3677); } 
{ /* ./Ast/alphatize.scm 464 */
int BgL_kz00_3679;
BgL_kz00_3679 = 
(int)(BgL_restz00_3665); 
BgL_method2843z00_3655 = 
VECTOR_REF(BgL_bucketz00_3667,BgL_kz00_3679); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 464 */
obj_t BgL_auxz00_3984;
BgL_auxz00_3984 = 
PROCEDURE_ENTRY(BgL_method2843z00_3655)(BgL_method2843z00_3655, 
(obj_t)(BgL_arg4719z00_1941), BEOA); 
BgL_res4884z00_3680 = 
(BgL_nodez00_bglt)(BgL_auxz00_3984); } } 
BgL_arg4710z00_1939 = BgL_res4884z00_3680; } } 
BgL_new2840z00_1935 = 
BGl_makezd2jumpzd2exzd2itzd2zzast_nodez00(BgL_arg4707z00_1936, BgL_arg4708z00_1937, BgL_arg4709z00_1938, BgL_arg4710z00_1939); } 
{ /* ./Ast/alphatize.scm 461 */

BgL_auxz00_3934 = BgL_new2840z00_1935; } } 
return 
(obj_t)(BgL_auxz00_3934);} } } 
}



/* do-alphatize-set-ex-it2901 */
obj_t BGl_dozd2alphatiza7ezd2setzd2exzd2it2901za7zzast_alphatiza7eza7(obj_t BgL_envz00_3747, obj_t BgL_nodez00_3748)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 435 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1895;
{ /* ./Ast/alphatize.scm 436 */
BgL_setzd2exzd2itz00_bglt BgL_auxz00_3992;
BgL_nodez00_1895 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_3748); 
{ /* ./Ast/alphatize.scm 436 */
BgL_variablez00_bglt BgL_oldzd2varzd2_1898;
{ /* ./Ast/alphatize.scm 436 */
BgL_varz00_bglt BgL_arg4697z00_1928;
BgL_arg4697z00_1928 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1895))->BgL_varz00); 
BgL_oldzd2varzd2_1898 = 
(((BgL_varz00_bglt)CREF(BgL_arg4697z00_1928))->BgL_variablez00); } 
{ /* ./Ast/alphatize.scm 436 */
BgL_valuez00_bglt BgL_oldzd2exitzd2_1899;
BgL_oldzd2exitzd2_1899 = 
(((BgL_variablez00_bglt)CREF(BgL_oldzd2varzd2_1898))->BgL_valuez00); 
{ /* ./Ast/alphatize.scm 437 */
obj_t BgL_oldzd2hdlgzd2_1900;
{ /* ./Ast/alphatize.scm 438 */
BgL_sexitz00_bglt BgL_obj1528z00_3608;
BgL_obj1528z00_3608 = 
(BgL_sexitz00_bglt)(BgL_oldzd2exitzd2_1899); 
BgL_oldzd2hdlgzd2_1900 = 
(((BgL_sexitz00_bglt)CREF(BgL_obj1528z00_3608))->BgL_handlerz00); } 
{ /* ./Ast/alphatize.scm 438 */
obj_t BgL_alphazd2hdlgzd2_1901;
{ /* ./Ast/alphatize.scm 439 */
BgL_variablez00_bglt BgL_obj1106z00_3609;
BgL_obj1106z00_3609 = 
(BgL_variablez00_bglt)(BgL_oldzd2hdlgzd2_1900); 
BgL_alphazd2hdlgzd2_1901 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1106z00_3609))->BgL_fastzd2alphazd2); } 
{ /* ./Ast/alphatize.scm 439 */
BgL_localz00_bglt BgL_newzd2varzd2_1902;
{ /* ./Ast/alphatize.scm 440 */
obj_t BgL_arg4682z00_1921;BgL_typez00_bglt BgL_arg4683z00_1922;BgL_sexitz00_bglt BgL_arg4684z00_1923;
BgL_arg4682z00_1921 = 
(((BgL_variablez00_bglt)CREF(BgL_oldzd2varzd2_1898))->BgL_idz00); 
BgL_arg4683z00_1922 = 
(((BgL_variablez00_bglt)CREF(BgL_oldzd2varzd2_1898))->BgL_typez00); 
{ /* ./Ast/alphatize.scm 442 */
BgL_sexitz00_bglt BgL_duplicated2833z00_1924;
BgL_duplicated2833z00_1924 = 
(BgL_sexitz00_bglt)(BgL_oldzd2exitzd2_1899); 
{ /* ./Ast/alphatize.scm 443 */
BgL_sexitz00_bglt BgL_new2834z00_1925;
{ /* ./Ast/alphatize.scm 443 */
obj_t BgL_arg4689z00_1926;bool_t BgL_arg4690z00_1927;
BgL_arg4689z00_1926 = BgL_alphazd2hdlgzd2_1901; 
BgL_arg4690z00_1927 = 
(((BgL_sexitz00_bglt)CREF(BgL_duplicated2833z00_1924))->BgL_detachedzf3zf3); 
BgL_new2834z00_1925 = 
BGl_makezd2sexitzd2zzast_varz00(BgL_arg4689z00_1926, BgL_arg4690z00_1927); } 
{ /* ./Ast/alphatize.scm 442 */

BgL_arg4684z00_1923 = BgL_new2834z00_1925; } } } 
BgL_newzd2varzd2_1902 = 
BGl_makezd2localzd2sexitz00zzast_localz00(BgL_arg4682z00_1921, BgL_arg4683z00_1922, BgL_arg4684z00_1923); } 
{ /* ./Ast/alphatize.scm 440 */
BgL_nodez00_bglt BgL_oldzd2bodyzd2_1903;
BgL_oldzd2bodyzd2_1903 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1895))->BgL_bodyz00); 
{ /* ./Ast/alphatize.scm 445 */

{ /* ./Ast/alphatize.scm 446 */
bool_t BgL_arg4649z00_1904;
{ /* ./Ast/alphatize.scm 446 */
BgL_localz00_bglt BgL_obj1263z00_3614;
BgL_obj1263z00_3614 = 
(BgL_localz00_bglt)(BgL_oldzd2varzd2_1898); 
BgL_arg4649z00_1904 = 
(((BgL_localz00_bglt)CREF(BgL_obj1263z00_3614))->BgL_userzf3zf3); } 
{ /* ./Ast/alphatize.scm 446 */
BgL_localz00_bglt BgL_obj1265z00_3615;bool_t BgL_val1264z00_3616;
BgL_obj1265z00_3615 = BgL_newzd2varzd2_1902; 
BgL_val1264z00_3616 = BgL_arg4649z00_1904; 
((((BgL_localz00_bglt)CREF(BgL_obj1265z00_3615))->BgL_userzf3zf3) = ((bool_t)BgL_val1264z00_3616), BUNSPEC); } } 
{ /* ./Ast/alphatize.scm 448 */
BgL_setzd2exzd2itz00_bglt BgL_new2836z00_1906;
{ /* ./Ast/alphatize.scm 448 */
obj_t BgL_arg4653z00_1907;BgL_typez00_bglt BgL_arg4654z00_1908;BgL_varz00_bglt BgL_arg4655z00_1909;BgL_nodez00_bglt BgL_arg4656z00_1910;
BgL_arg4653z00_1907 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1895)); 
{ /* ./Ast/alphatize.scm 447 */
BgL_nodez00_bglt BgL_obj1561z00_3617;
BgL_obj1561z00_3617 = 
(BgL_nodez00_bglt)(BgL_nodez00_1895); 
BgL_arg4654z00_1908 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3617))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 449 */
BgL_varz00_bglt BgL_duplicated2837z00_1911;
BgL_duplicated2837z00_1911 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1895))->BgL_varz00); 
{ /* ./Ast/alphatize.scm 450 */
BgL_varz00_bglt BgL_new2838z00_1912;
{ /* ./Ast/alphatize.scm 450 */
obj_t BgL_arg4661z00_1913;BgL_typez00_bglt BgL_arg4662z00_1914;BgL_localz00_bglt BgL_arg4663z00_1915;
BgL_arg4661z00_1913 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1895)); 
{ /* ./Ast/alphatize.scm 449 */
BgL_nodez00_bglt BgL_obj1561z00_3619;
BgL_obj1561z00_3619 = 
(BgL_nodez00_bglt)(BgL_duplicated2837z00_1911); 
BgL_arg4662z00_1914 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3619))->BgL_typez00); } 
BgL_arg4663z00_1915 = BgL_newzd2varzd2_1902; 
BgL_new2838z00_1912 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg4661z00_1913, BgL_arg4662z00_1914, 
(BgL_variablez00_bglt)(BgL_arg4663z00_1915)); } 
{ /* ./Ast/alphatize.scm 449 */

BgL_arg4655z00_1909 = BgL_new2838z00_1912; } } } 
{ /* ./Ast/alphatize.scm 452 */
obj_t BgL_arg4669z00_1916;obj_t BgL_arg4670z00_1917;obj_t BgL_arg4671z00_1918;
{ /* ./Ast/alphatize.scm 452 */
obj_t BgL_list4674z00_1919;
{ /* ./Ast/alphatize.scm 452 */
obj_t BgL_auxz00_4021;
BgL_auxz00_4021 = 
(obj_t)(BgL_oldzd2varzd2_1898); 
BgL_list4674z00_1919 = 
MAKE_PAIR(BgL_auxz00_4021, BNIL); } 
BgL_arg4669z00_1916 = BgL_list4674z00_1919; } 
{ /* ./Ast/alphatize.scm 453 */
obj_t BgL_list4677z00_1920;
{ /* ./Ast/alphatize.scm 453 */
obj_t BgL_auxz00_4024;
BgL_auxz00_4024 = 
(obj_t)(BgL_newzd2varzd2_1902); 
BgL_list4677z00_1920 = 
MAKE_PAIR(BgL_auxz00_4024, BNIL); } 
BgL_arg4670z00_1917 = BgL_list4677z00_1920; } 
BgL_arg4671z00_1918 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1895)); 
BgL_arg4656z00_1910 = 
BGl_alphatiza7eza7zzast_alphatiza7eza7(BgL_arg4669z00_1916, BgL_arg4670z00_1917, BgL_arg4671z00_1918, BgL_oldzd2bodyzd2_1903); } 
BgL_new2836z00_1906 = 
BGl_makezd2setzd2exzd2itzd2zzast_nodez00(BgL_arg4653z00_1907, BgL_arg4654z00_1908, BgL_arg4655z00_1909, BgL_arg4656z00_1910); } 
{ /* ./Ast/alphatize.scm 447 */

BgL_auxz00_3992 = BgL_new2836z00_1906; } } } } } } } } } 
return 
(obj_t)(BgL_auxz00_3992);} } } 
}



/* do-alphatize-let-var2899 */
obj_t BGl_dozd2alphatiza7ezd2letzd2var2899z75zzast_alphatiza7eza7(obj_t BgL_envz00_3749, obj_t BgL_nodez00_3750)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 407 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1825;
{ /* ./Ast/alphatize.scm 408 */
BgL_letzd2varzd2_bglt BgL_auxz00_4033;
BgL_nodez00_1825 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_3750); 
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_oldzd2localszd2_1828;
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_l2815z00_1877;
BgL_l2815z00_1877 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1825))->BgL_bindingsz00); 
{ /* ./Ast/alphatize.scm 408 */
bool_t BgL_test4611z00_1878;
BgL_test4611z00_1878 = 
NULLP(BgL_l2815z00_1877); 
if(BgL_test4611z00_1878)
{ /* ./Ast/alphatize.scm 408 */
BgL_oldzd2localszd2_1828 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_head2817z00_1879;
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_arg4632z00_1890;
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_auxz00_4037;
BgL_auxz00_4037 = 
CAR(BgL_l2815z00_1877); 
BgL_arg4632z00_1890 = 
CAR(BgL_auxz00_4037); } 
BgL_head2817z00_1879 = 
MAKE_PAIR(BgL_arg4632z00_1890, BNIL); } 
{ 
obj_t BgL_l2815z00_1880;obj_t BgL_tail2818z00_1881;
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_arg4613z00_1883;
BgL_arg4613z00_1883 = 
CDR(BgL_l2815z00_1877); 
BgL_l2815z00_1880 = BgL_arg4613z00_1883; 
BgL_tail2818z00_1881 = BgL_head2817z00_1879; 
BgL_map2816z00_1882:
{ /* ./Ast/alphatize.scm 408 */
bool_t BgL_test4616z00_1884;
BgL_test4616z00_1884 = 
NULLP(BgL_l2815z00_1880); 
if(BgL_test4616z00_1884)
{ /* ./Ast/alphatize.scm 408 */
BgL_oldzd2localszd2_1828 = BgL_head2817z00_1879; }  else 
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_newtail2819z00_1885;
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_arg4623z00_1887;
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_auxz00_4044;
BgL_auxz00_4044 = 
CAR(BgL_l2815z00_1880); 
BgL_arg4623z00_1887 = 
CAR(BgL_auxz00_4044); } 
BgL_newtail2819z00_1885 = 
MAKE_PAIR(BgL_arg4623z00_1887, BNIL); } 
SET_CDR(BgL_tail2818z00_1881, BgL_newtail2819z00_1885); 
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_arg4619z00_1886;
BgL_arg4619z00_1886 = 
CDR(BgL_l2815z00_1880); 
{ 
obj_t BgL_tail2818z00_4051;obj_t BgL_l2815z00_4050;
BgL_l2815z00_4050 = BgL_arg4619z00_1886; 
BgL_tail2818z00_4051 = BgL_newtail2819z00_1885; 
BgL_tail2818z00_1881 = BgL_tail2818z00_4051; 
BgL_l2815z00_1880 = BgL_l2815z00_4050; 
goto BgL_map2816z00_1882;} } } } } } } } } 
{ /* ./Ast/alphatize.scm 408 */
obj_t BgL_newzd2localszd2_1829;
{ /* ./Ast/alphatize.scm 409 */
bool_t BgL_test4580z00_1861;
BgL_test4580z00_1861 = 
NULLP(BgL_oldzd2localszd2_1828); 
if(BgL_test4580z00_1861)
{ /* ./Ast/alphatize.scm 409 */
BgL_newzd2localszd2_1829 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 409 */
obj_t BgL_head2822z00_1862;
BgL_head2822z00_1862 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2820z00_1863;obj_t BgL_tail2823z00_1864;
BgL_l2820z00_1863 = BgL_oldzd2localszd2_1828; 
BgL_tail2823z00_1864 = BgL_head2822z00_1862; 
BgL_map2821z00_1865:
{ /* ./Ast/alphatize.scm 409 */
bool_t BgL_test4582z00_1866;
BgL_test4582z00_1866 = 
NULLP(BgL_l2820z00_1863); 
if(BgL_test4582z00_1866)
{ /* ./Ast/alphatize.scm 409 */
BgL_newzd2localszd2_1829 = 
CDR(BgL_head2822z00_1862); }  else 
{ /* ./Ast/alphatize.scm 414 */
obj_t BgL_newtail2824z00_1867;
{ /* ./Ast/alphatize.scm 414 */
BgL_localz00_bglt BgL_arg4590z00_1869;
{ /* ./Ast/alphatize.scm 414 */
obj_t BgL_lz00_1871;
BgL_lz00_1871 = 
CAR(BgL_l2820z00_1863); 
{ /* ./Ast/alphatize.scm 414 */
BgL_localz00_bglt BgL_varz00_1872;
{ /* ./Ast/alphatize.scm 414 */
obj_t BgL_arg4602z00_1875;BgL_typez00_bglt BgL_arg4603z00_1876;
{ /* ./Ast/alphatize.scm 414 */
BgL_variablez00_bglt BgL_obj1093z00_3545;
BgL_obj1093z00_3545 = 
(BgL_variablez00_bglt)(BgL_lz00_1871); 
BgL_arg4602z00_1875 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_3545))->BgL_idz00); } 
{ /* ./Ast/alphatize.scm 415 */
BgL_variablez00_bglt BgL_obj1097z00_3546;
BgL_obj1097z00_3546 = 
(BgL_variablez00_bglt)(BgL_lz00_1871); 
BgL_arg4603z00_1876 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_3546))->BgL_typez00); } 
BgL_varz00_1872 = 
BGl_makezd2localzd2svarz00zzast_localz00(BgL_arg4602z00_1875, BgL_arg4603z00_1876); } 
{ /* ./Ast/alphatize.scm 416 */
bool_t BgL_arg4594z00_1873;
{ /* ./Ast/alphatize.scm 416 */
BgL_localz00_bglt BgL_obj1263z00_3547;
BgL_obj1263z00_3547 = 
(BgL_localz00_bglt)(BgL_lz00_1871); 
BgL_arg4594z00_1873 = 
(((BgL_localz00_bglt)CREF(BgL_obj1263z00_3547))->BgL_userzf3zf3); } 
{ /* ./Ast/alphatize.scm 416 */
BgL_localz00_bglt BgL_obj1265z00_3548;bool_t BgL_val1264z00_3549;
BgL_obj1265z00_3548 = BgL_varz00_1872; 
BgL_val1264z00_3549 = BgL_arg4594z00_1873; 
((((BgL_localz00_bglt)CREF(BgL_obj1265z00_3548))->BgL_userzf3zf3) = ((bool_t)BgL_val1264z00_3549), BUNSPEC); } } 
{ /* ./Ast/alphatize.scm 417 */
obj_t BgL_arg4598z00_1874;
{ /* ./Ast/alphatize.scm 417 */
BgL_variablez00_bglt BgL_obj1103z00_3550;
BgL_obj1103z00_3550 = 
(BgL_variablez00_bglt)(BgL_lz00_1871); 
BgL_arg4598z00_1874 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1103z00_3550))->BgL_accessz00); } 
{ /* ./Ast/alphatize.scm 417 */
BgL_variablez00_bglt BgL_obj1105z00_3551;obj_t BgL_val1104z00_3552;
BgL_obj1105z00_3551 = 
(BgL_variablez00_bglt)(BgL_varz00_1872); 
BgL_val1104z00_3552 = BgL_arg4598z00_1874; 
((((BgL_variablez00_bglt)CREF(BgL_obj1105z00_3551))->BgL_accessz00) = ((obj_t)BgL_val1104z00_3552), BUNSPEC); } } 
BgL_arg4590z00_1869 = BgL_varz00_1872; } } 
{ /* ./Ast/alphatize.scm 409 */
obj_t BgL_obj1z00_3553;
BgL_obj1z00_3553 = 
(obj_t)(BgL_arg4590z00_1869); 
BgL_newtail2824z00_1867 = 
MAKE_PAIR(BgL_obj1z00_3553, BNIL); } } 
SET_CDR(BgL_tail2823z00_1864, BgL_newtail2824z00_1867); 
{ /* ./Ast/alphatize.scm 409 */
obj_t BgL_arg4586z00_1868;
BgL_arg4586z00_1868 = 
CDR(BgL_l2820z00_1863); 
{ 
obj_t BgL_tail2823z00_4076;obj_t BgL_l2820z00_4075;
BgL_l2820z00_4075 = BgL_arg4586z00_1868; 
BgL_tail2823z00_4076 = BgL_newtail2824z00_1867; 
BgL_tail2823z00_1864 = BgL_tail2823z00_4076; 
BgL_l2820z00_1863 = BgL_l2820z00_4075; 
goto BgL_map2821z00_1865;} } } } } } } 
{ /* ./Ast/alphatize.scm 409 */
obj_t BgL_newzd2bindingszd2_1830;
{ /* ./Ast/alphatize.scm 420 */
obj_t BgL_ll2825z00_1842;
BgL_ll2825z00_1842 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1825))->BgL_bindingsz00); 
{ /* ./Ast/alphatize.scm 420 */
bool_t BgL_test4551z00_1844;
BgL_test4551z00_1844 = 
NULLP(BgL_ll2825z00_1842); 
if(BgL_test4551z00_1844)
{ /* ./Ast/alphatize.scm 420 */
BgL_newzd2bindingszd2_1830 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 420 */
obj_t BgL_head2827z00_1845;
BgL_head2827z00_1845 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_ll2825z00_1846;obj_t BgL_ll2826z00_1847;obj_t BgL_tail2828z00_1848;
BgL_ll2825z00_1846 = BgL_ll2825z00_1842; 
BgL_ll2826z00_1847 = BgL_newzd2localszd2_1829; 
BgL_tail2828z00_1848 = BgL_head2827z00_1845; 
BgL_map2830z00_1849:
{ /* ./Ast/alphatize.scm 420 */
bool_t BgL_test4553z00_1850;
BgL_test4553z00_1850 = 
NULLP(BgL_ll2825z00_1846); 
if(BgL_test4553z00_1850)
{ /* ./Ast/alphatize.scm 420 */
BgL_newzd2bindingszd2_1830 = 
CDR(BgL_head2827z00_1845); }  else 
{ /* ./Ast/alphatize.scm 421 */
obj_t BgL_newtail2829z00_1851;
{ /* ./Ast/alphatize.scm 421 */
obj_t BgL_arg4564z00_1854;
{ /* ./Ast/alphatize.scm 421 */
obj_t BgL_bindingz00_1856;obj_t BgL_newzd2localzd2_1857;
BgL_bindingz00_1856 = 
CAR(BgL_ll2825z00_1846); 
BgL_newzd2localzd2_1857 = 
CAR(BgL_ll2826z00_1847); 
{ /* ./Ast/alphatize.scm 421 */
BgL_nodez00_bglt BgL_arg4568z00_1858;
{ /* ./Ast/alphatize.scm 421 */
obj_t BgL_arg4571z00_1859;
BgL_arg4571z00_1859 = 
CDR(BgL_bindingz00_1856); 
{ /* ./Ast/alphatize.scm 421 */
BgL_nodez00_bglt BgL_res4876z00_3593;
{ /* ./Ast/alphatize.scm 421 */
BgL_nodez00_bglt BgL_nodez00_3567;
BgL_nodez00_3567 = 
(BgL_nodez00_bglt)(BgL_arg4571z00_1859); 
{ /* ./Ast/alphatize.scm 421 */
obj_t BgL_method2843z00_3568;
{ /* ./Ast/alphatize.scm 421 */
BgL_objectz00_bglt BgL_objz00_3569;
BgL_objz00_3569 = 
(BgL_objectz00_bglt)(BgL_nodez00_3567); 
{ /* ./Ast/alphatize.scm 421 */
long BgL_objzd2classzd2numz00_3570;
BgL_objzd2classzd2numz00_3570 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3569); 
{ /* ./Ast/alphatize.scm 421 */
obj_t BgL_arg2017z00_3571;
{ /* ./Ast/alphatize.scm 421 */
int BgL_auxz00_4090;
BgL_auxz00_4090 = 
(int)(((long)1)); 
BgL_arg2017z00_3571 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4090); } 
{ /* ./Ast/alphatize.scm 421 */
int BgL_offsetz00_3574;
BgL_offsetz00_3574 = 
(int)(BgL_objzd2classzd2numz00_3570); 
{ /* ./Ast/alphatize.scm 421 */
long BgL_offsetz00_3575;
{ /* ./Ast/alphatize.scm 421 */
long BgL_auxz00_4094;
BgL_auxz00_4094 = 
(long)(BgL_offsetz00_3574); 
BgL_offsetz00_3575 = 
(BgL_auxz00_4094-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 421 */
long BgL_modz00_3576;
{ /* ./Ast/alphatize.scm 421 */
int BgL_arg2028z00_3577;
BgL_arg2028z00_3577 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 421 */
long BgL_n2z00_3585;
BgL_n2z00_3585 = 
(long)(BgL_arg2028z00_3577); 
BgL_modz00_3576 = 
(BgL_offsetz00_3575/BgL_n2z00_3585); } } 
{ /* ./Ast/alphatize.scm 421 */
long BgL_restz00_3578;
{ /* ./Ast/alphatize.scm 421 */
int BgL_arg2024z00_3579;
BgL_arg2024z00_3579 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 421 */
long BgL_n2z00_3588;
BgL_n2z00_3588 = 
(long)(BgL_arg2024z00_3579); 
BgL_restz00_3578 = 
(BgL_offsetz00_3575%BgL_n2z00_3588); } } 
{ /* ./Ast/alphatize.scm 421 */

{ /* ./Ast/alphatize.scm 421 */
obj_t BgL_bucketz00_3580;
{ /* ./Ast/alphatize.scm 421 */
int BgL_kz00_3590;
BgL_kz00_3590 = 
(int)(BgL_modz00_3576); 
BgL_bucketz00_3580 = 
VECTOR_REF(BgL_arg2017z00_3571,BgL_kz00_3590); } 
{ /* ./Ast/alphatize.scm 421 */
int BgL_kz00_3592;
BgL_kz00_3592 = 
(int)(BgL_restz00_3578); 
BgL_method2843z00_3568 = 
VECTOR_REF(BgL_bucketz00_3580,BgL_kz00_3592); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 421 */
obj_t BgL_auxz00_4107;
BgL_auxz00_4107 = 
PROCEDURE_ENTRY(BgL_method2843z00_3568)(BgL_method2843z00_3568, 
(obj_t)(BgL_nodez00_3567), BEOA); 
BgL_res4876z00_3593 = 
(BgL_nodez00_bglt)(BgL_auxz00_4107); } } } 
BgL_arg4568z00_1858 = BgL_res4876z00_3593; } } 
{ /* ./Ast/alphatize.scm 421 */
obj_t BgL_auxz00_4112;
BgL_auxz00_4112 = 
(obj_t)(BgL_arg4568z00_1858); 
BgL_arg4564z00_1854 = 
MAKE_PAIR(BgL_newzd2localzd2_1857, BgL_auxz00_4112); } } } 
BgL_newtail2829z00_1851 = 
MAKE_PAIR(BgL_arg4564z00_1854, BNIL); } 
SET_CDR(BgL_tail2828z00_1848, BgL_newtail2829z00_1851); 
{ /* ./Ast/alphatize.scm 420 */
obj_t BgL_arg4558z00_1852;obj_t BgL_arg4559z00_1853;
BgL_arg4558z00_1852 = 
CDR(BgL_ll2825z00_1846); 
BgL_arg4559z00_1853 = 
CDR(BgL_ll2826z00_1847); 
{ 
obj_t BgL_tail2828z00_4121;obj_t BgL_ll2826z00_4120;obj_t BgL_ll2825z00_4119;
BgL_ll2825z00_4119 = BgL_arg4558z00_1852; 
BgL_ll2826z00_4120 = BgL_arg4559z00_1853; 
BgL_tail2828z00_4121 = BgL_newtail2829z00_1851; 
BgL_tail2828z00_1848 = BgL_tail2828z00_4121; 
BgL_ll2826z00_1847 = BgL_ll2826z00_4120; 
BgL_ll2825z00_1846 = BgL_ll2825z00_4119; 
goto BgL_map2830z00_1849;} } } } } } } } 
{ /* ./Ast/alphatize.scm 420 */

{ /* ./Ast/alphatize.scm 425 */
BgL_letzd2varzd2_bglt BgL_new2832z00_1832;
{ /* ./Ast/alphatize.scm 425 */
obj_t BgL_arg4532z00_1833;BgL_typez00_bglt BgL_arg4533z00_1834;obj_t BgL_arg4534z00_1835;obj_t BgL_arg4535z00_1836;obj_t BgL_arg4536z00_1837;BgL_nodez00_bglt BgL_arg4537z00_1838;bool_t BgL_arg4538z00_1839;
BgL_arg4532z00_1833 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1825)); 
{ /* ./Ast/alphatize.scm 424 */
BgL_nodez00_bglt BgL_obj1561z00_3600;
BgL_obj1561z00_3600 = 
(BgL_nodez00_bglt)(BgL_nodez00_1825); 
BgL_arg4533z00_1834 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3600))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 424 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_3601;
BgL_obj1578z00_3601 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1825); 
BgL_arg4534z00_1835 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_3601))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 424 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_3602;
BgL_obj1581z00_3602 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1825); 
BgL_arg4535z00_1836 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_3602))->BgL_keyz00); } 
BgL_arg4536z00_1837 = BgL_newzd2bindingszd2_1830; 
{ /* ./Ast/alphatize.scm 429 */
obj_t BgL_arg4545z00_1840;BgL_nodez00_bglt BgL_arg4546z00_1841;
BgL_arg4545z00_1840 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1825)); 
BgL_arg4546z00_1841 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1825))->BgL_bodyz00); 
BgL_arg4537z00_1838 = 
BGl_alphatiza7eza7zzast_alphatiza7eza7(BgL_oldzd2localszd2_1828, BgL_newzd2localszd2_1829, BgL_arg4545z00_1840, BgL_arg4546z00_1841); } 
BgL_arg4538z00_1839 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1825))->BgL_removablezf3zf3); 
BgL_new2832z00_1832 = 
BGl_makezd2letzd2varz00zzast_nodez00(BgL_arg4532z00_1833, BgL_arg4533z00_1834, BgL_arg4534z00_1835, BgL_arg4535z00_1836, BgL_arg4536z00_1837, BgL_arg4537z00_1838, BgL_arg4538z00_1839); } 
{ /* ./Ast/alphatize.scm 424 */

BgL_auxz00_4033 = BgL_new2832z00_1832; } } } } } } 
return 
(obj_t)(BgL_auxz00_4033);} } } 
}



/* do-alphatize-let-fun2896 */
obj_t BGl_dozd2alphatiza7ezd2letzd2fun2896z75zzast_alphatiza7eza7(obj_t BgL_envz00_3751, obj_t BgL_nodez00_3752)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 370 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1746;
{ /* ./Ast/alphatize.scm 371 */
BgL_letzd2funzd2_bglt BgL_auxz00_4138;
BgL_nodez00_1746 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_3752); 
{ /* ./Ast/alphatize.scm 371 */
obj_t BgL_oldzd2localszd2_1749;
BgL_oldzd2localszd2_1749 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1746))->BgL_localsz00); 
{ /* ./Ast/alphatize.scm 371 */
obj_t BgL_newzd2localszd2_1750;
{ /* ./Ast/alphatize.scm 372 */
bool_t BgL_test4499z00_1809;
BgL_test4499z00_1809 = 
NULLP(BgL_oldzd2localszd2_1749); 
if(BgL_test4499z00_1809)
{ /* ./Ast/alphatize.scm 372 */
BgL_newzd2localszd2_1750 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 372 */
obj_t BgL_head2800z00_1810;
BgL_head2800z00_1810 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2798z00_1811;obj_t BgL_tail2801z00_1812;
BgL_l2798z00_1811 = BgL_oldzd2localszd2_1749; 
BgL_tail2801z00_1812 = BgL_head2800z00_1810; 
BgL_map2799z00_1813:
{ /* ./Ast/alphatize.scm 372 */
bool_t BgL_test4501z00_1814;
BgL_test4501z00_1814 = 
NULLP(BgL_l2798z00_1811); 
if(BgL_test4501z00_1814)
{ /* ./Ast/alphatize.scm 372 */
BgL_newzd2localszd2_1750 = 
CDR(BgL_head2800z00_1810); }  else 
{ /* ./Ast/alphatize.scm 373 */
obj_t BgL_newtail2802z00_1815;
{ /* ./Ast/alphatize.scm 373 */
BgL_localz00_bglt BgL_arg4509z00_1817;
{ /* ./Ast/alphatize.scm 373 */
obj_t BgL_lz00_1819;
BgL_lz00_1819 = 
CAR(BgL_l2798z00_1811); 
{ /* ./Ast/alphatize.scm 373 */
obj_t BgL_arg4513z00_1820;BgL_typez00_bglt BgL_arg4514z00_1821;BgL_valuez00_bglt BgL_arg4515z00_1822;
{ /* ./Ast/alphatize.scm 373 */
BgL_variablez00_bglt BgL_obj1093z00_3475;
BgL_obj1093z00_3475 = 
(BgL_variablez00_bglt)(BgL_lz00_1819); 
BgL_arg4513z00_1820 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_3475))->BgL_idz00); } 
{ /* ./Ast/alphatize.scm 374 */
BgL_variablez00_bglt BgL_obj1097z00_3476;
BgL_obj1097z00_3476 = 
(BgL_variablez00_bglt)(BgL_lz00_1819); 
BgL_arg4514z00_1821 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_3476))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 375 */
BgL_variablez00_bglt BgL_obj1100z00_3477;
BgL_obj1100z00_3477 = 
(BgL_variablez00_bglt)(BgL_lz00_1819); 
BgL_arg4515z00_1822 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3477))->BgL_valuez00); } 
BgL_arg4509z00_1817 = 
BGl_makezd2localzd2sfunz00zzast_localz00(BgL_arg4513z00_1820, BgL_arg4514z00_1821, 
(BgL_sfunz00_bglt)(BgL_arg4515z00_1822)); } } 
{ /* ./Ast/alphatize.scm 372 */
obj_t BgL_obj1z00_3478;
BgL_obj1z00_3478 = 
(obj_t)(BgL_arg4509z00_1817); 
BgL_newtail2802z00_1815 = 
MAKE_PAIR(BgL_obj1z00_3478, BNIL); } } 
SET_CDR(BgL_tail2801z00_1812, BgL_newtail2802z00_1815); 
{ /* ./Ast/alphatize.scm 372 */
obj_t BgL_arg4505z00_1816;
BgL_arg4505z00_1816 = 
CDR(BgL_l2798z00_1811); 
{ 
obj_t BgL_tail2801z00_4160;obj_t BgL_l2798z00_4159;
BgL_l2798z00_4159 = BgL_arg4505z00_1816; 
BgL_tail2801z00_4160 = BgL_newtail2802z00_1815; 
BgL_tail2801z00_1812 = BgL_tail2801z00_4160; 
BgL_l2798z00_1811 = BgL_l2798z00_4159; 
goto BgL_map2799z00_1813;} } } } } } } 
{ /* ./Ast/alphatize.scm 372 */

{ 
obj_t BgL_ll2803z00_1751;obj_t BgL_ll2804z00_1752;
BgL_ll2803z00_1751 = BgL_oldzd2localszd2_1749; 
BgL_ll2804z00_1752 = BgL_newzd2localszd2_1750; 
BgL_forzd2each2805zd2_1753:
{ /* ./Ast/alphatize.scm 377 */
bool_t BgL_test4405z00_1754;
BgL_test4405z00_1754 = 
NULLP(BgL_ll2803z00_1751); 
if(BgL_test4405z00_1754)
{ /* ./Ast/alphatize.scm 377 */((bool_t)1); }  else 
{ /* ./Ast/alphatize.scm 377 */
{ /* ./Ast/alphatize.scm 378 */
obj_t BgL_oldz00_1755;obj_t BgL_newz00_1756;
BgL_oldz00_1755 = 
CAR(BgL_ll2803z00_1751); 
BgL_newz00_1756 = 
CAR(BgL_ll2804z00_1752); 
{ /* ./Ast/alphatize.scm 378 */
BgL_valuez00_bglt BgL_oldzd2sfunzd2_1757;
{ /* ./Ast/alphatize.scm 378 */
BgL_variablez00_bglt BgL_obj1100z00_3486;
BgL_obj1100z00_3486 = 
(BgL_variablez00_bglt)(BgL_oldz00_1755); 
BgL_oldzd2sfunzd2_1757 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3486))->BgL_valuez00); } 
{ /* ./Ast/alphatize.scm 378 */
obj_t BgL_oldzd2argszd2_1758;
{ /* ./Ast/alphatize.scm 379 */
BgL_sfunz00_bglt BgL_obj1367z00_3487;
BgL_obj1367z00_3487 = 
(BgL_sfunz00_bglt)(BgL_oldzd2sfunzd2_1757); 
BgL_oldzd2argszd2_1758 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_3487))->BgL_argsz00); } 
{ /* ./Ast/alphatize.scm 379 */
obj_t BgL_newzd2argszd2_1759;
{ /* ./Ast/alphatize.scm 380 */
bool_t BgL_test4446z00_1783;
BgL_test4446z00_1783 = 
NULLP(BgL_oldzd2argszd2_1758); 
if(BgL_test4446z00_1783)
{ /* ./Ast/alphatize.scm 380 */
BgL_newzd2argszd2_1759 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 380 */
obj_t BgL_head2808z00_1784;
BgL_head2808z00_1784 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2806z00_1785;obj_t BgL_tail2809z00_1786;
BgL_l2806z00_1785 = BgL_oldzd2argszd2_1758; 
BgL_tail2809z00_1786 = BgL_head2808z00_1784; 
BgL_map2807z00_1787:
{ /* ./Ast/alphatize.scm 380 */
bool_t BgL_test4448z00_1788;
BgL_test4448z00_1788 = 
NULLP(BgL_l2806z00_1785); 
if(BgL_test4448z00_1788)
{ /* ./Ast/alphatize.scm 380 */
BgL_newzd2argszd2_1759 = 
CDR(BgL_head2808z00_1784); }  else 
{ /* ./Ast/alphatize.scm 381 */
obj_t BgL_newtail2810z00_1789;
{ /* ./Ast/alphatize.scm 381 */
BgL_localz00_bglt BgL_arg4456z00_1791;
{ /* ./Ast/alphatize.scm 381 */
obj_t BgL_lz00_1793;
BgL_lz00_1793 = 
CAR(BgL_l2806z00_1785); 
{ /* ./Ast/alphatize.scm 381 */
obj_t BgL_arg4461z00_1794;BgL_typez00_bglt BgL_arg4462z00_1795;
{ /* ./Ast/alphatize.scm 381 */
BgL_variablez00_bglt BgL_obj1093z00_3494;
BgL_obj1093z00_3494 = 
(BgL_variablez00_bglt)(BgL_lz00_1793); 
BgL_arg4461z00_1794 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_3494))->BgL_idz00); } 
{ /* ./Ast/alphatize.scm 382 */
BgL_variablez00_bglt BgL_obj1097z00_3495;
BgL_obj1097z00_3495 = 
(BgL_variablez00_bglt)(BgL_lz00_1793); 
BgL_arg4462z00_1795 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_3495))->BgL_typez00); } 
BgL_arg4456z00_1791 = 
BGl_makezd2localzd2svarz00zzast_localz00(BgL_arg4461z00_1794, BgL_arg4462z00_1795); } } 
{ /* ./Ast/alphatize.scm 380 */
obj_t BgL_obj1z00_3496;
BgL_obj1z00_3496 = 
(obj_t)(BgL_arg4456z00_1791); 
BgL_newtail2810z00_1789 = 
MAKE_PAIR(BgL_obj1z00_3496, BNIL); } } 
SET_CDR(BgL_tail2809z00_1786, BgL_newtail2810z00_1789); 
{ /* ./Ast/alphatize.scm 380 */
obj_t BgL_arg4452z00_1790;
BgL_arg4452z00_1790 = 
CDR(BgL_l2806z00_1785); 
{ 
obj_t BgL_tail2809z00_4186;obj_t BgL_l2806z00_4185;
BgL_l2806z00_4185 = BgL_arg4452z00_1790; 
BgL_tail2809z00_4186 = BgL_newtail2810z00_1789; 
BgL_tail2809z00_1786 = BgL_tail2809z00_4186; 
BgL_l2806z00_1785 = BgL_l2806z00_4185; 
goto BgL_map2807z00_1787;} } } } } } } 
{ /* ./Ast/alphatize.scm 380 */
obj_t BgL_oldzd2bodyzd2_1760;
{ /* ./Ast/alphatize.scm 384 */
BgL_sfunz00_bglt BgL_obj1370z00_3501;
BgL_obj1370z00_3501 = 
(BgL_sfunz00_bglt)(BgL_oldzd2sfunzd2_1757); 
BgL_oldzd2bodyzd2_1760 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_3501))->BgL_bodyz00); } 
{ /* ./Ast/alphatize.scm 384 */
BgL_nodez00_bglt BgL_newzd2bodyzd2_1761;
{ /* ./Ast/alphatize.scm 385 */
obj_t BgL_arg4438z00_1779;obj_t BgL_arg4439z00_1780;obj_t BgL_arg4440z00_1781;
BgL_arg4438z00_1779 = 
bgl_append2(BgL_oldzd2localszd2_1749, BgL_oldzd2argszd2_1758); 
BgL_arg4439z00_1780 = 
bgl_append2(BgL_newzd2localszd2_1750, BgL_newzd2argszd2_1759); 
BgL_arg4440z00_1781 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1746)); 
BgL_newzd2bodyzd2_1761 = 
BGl_alphatiza7eza7zzast_alphatiza7eza7(BgL_arg4438z00_1779, BgL_arg4439z00_1780, BgL_arg4440z00_1781, 
(BgL_nodez00_bglt)(BgL_oldzd2bodyzd2_1760)); } 
{ /* ./Ast/alphatize.scm 385 */
BgL_sfunz00_bglt BgL_newzd2sfunzd2_1762;
{ /* ./Ast/alphatize.scm 389 */
BgL_sfunz00_bglt BgL_duplicated2811z00_1764;
BgL_duplicated2811z00_1764 = 
(BgL_sfunz00_bglt)(BgL_oldzd2sfunzd2_1757); 
{ /* ./Ast/alphatize.scm 389 */
BgL_sfunz00_bglt BgL_new2812z00_1765;
{ /* ./Ast/alphatize.scm 389 */
long BgL_arg4412z00_1766;obj_t BgL_arg4413z00_1767;obj_t BgL_arg4414z00_1768;obj_t BgL_arg4415z00_1769;bool_t BgL_arg4416z00_1770;obj_t BgL_arg4417z00_1771;obj_t BgL_arg4418z00_1772;obj_t BgL_arg4419z00_1773;obj_t BgL_arg4420z00_1774;BgL_nodez00_bglt BgL_arg4421z00_1775;obj_t BgL_arg4422z00_1776;obj_t BgL_arg4423z00_1777;obj_t BgL_arg4424z00_1778;
{ /* ./Ast/alphatize.scm 389 */
BgL_funz00_bglt BgL_obj1301z00_3502;
BgL_obj1301z00_3502 = 
(BgL_funz00_bglt)(BgL_duplicated2811z00_1764); 
BgL_arg4412z00_1766 = 
(((BgL_funz00_bglt)CREF(BgL_obj1301z00_3502))->BgL_arityz00); } 
{ /* ./Ast/alphatize.scm 389 */
BgL_funz00_bglt BgL_obj1302z00_3503;
BgL_obj1302z00_3503 = 
(BgL_funz00_bglt)(BgL_duplicated2811z00_1764); 
BgL_arg4413z00_1767 = 
(((BgL_funz00_bglt)CREF(BgL_obj1302z00_3503))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 389 */
BgL_funz00_bglt BgL_obj1305z00_3504;
BgL_obj1305z00_3504 = 
(BgL_funz00_bglt)(BgL_duplicated2811z00_1764); 
BgL_arg4414z00_1768 = 
(((BgL_funz00_bglt)CREF(BgL_obj1305z00_3504))->BgL_predicatezd2ofzd2); } 
{ /* ./Ast/alphatize.scm 389 */
BgL_funz00_bglt BgL_obj1308z00_3505;
BgL_obj1308z00_3505 = 
(BgL_funz00_bglt)(BgL_duplicated2811z00_1764); 
BgL_arg4415z00_1769 = 
(((BgL_funz00_bglt)CREF(BgL_obj1308z00_3505))->BgL_stackzd2allocatorzd2); } 
{ /* ./Ast/alphatize.scm 389 */
BgL_funz00_bglt BgL_obj1311z00_3506;
BgL_obj1311z00_3506 = 
(BgL_funz00_bglt)(BgL_duplicated2811z00_1764); 
BgL_arg4416z00_1770 = 
(((BgL_funz00_bglt)CREF(BgL_obj1311z00_3506))->BgL_topzf3zf3); } 
{ /* ./Ast/alphatize.scm 389 */
BgL_funz00_bglt BgL_obj1314z00_3507;
BgL_obj1314z00_3507 = 
(BgL_funz00_bglt)(BgL_duplicated2811z00_1764); 
BgL_arg4417z00_1771 = 
(((BgL_funz00_bglt)CREF(BgL_obj1314z00_3507))->BgL_thezd2closurezd2); } 
{ /* ./Ast/alphatize.scm 389 */
BgL_funz00_bglt BgL_obj1317z00_3508;
BgL_obj1317z00_3508 = 
(BgL_funz00_bglt)(BgL_duplicated2811z00_1764); 
BgL_arg4418z00_1772 = 
(((BgL_funz00_bglt)CREF(BgL_obj1317z00_3508))->BgL_effectz00); } 
BgL_arg4419z00_1773 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated2811z00_1764))->BgL_propertyz00); 
BgL_arg4420z00_1774 = BgL_newzd2argszd2_1759; 
BgL_arg4421z00_1775 = BgL_newzd2bodyzd2_1761; 
BgL_arg4422z00_1776 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated2811z00_1764))->BgL_classz00); 
BgL_arg4423z00_1777 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated2811z00_1764))->BgL_dssslzd2keywordszd2); 
BgL_arg4424z00_1778 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated2811z00_1764))->BgL_locz00); 
BgL_new2812z00_1765 = 
BGl_makezd2sfunzd2zzast_varz00(BgL_arg4412z00_1766, BgL_arg4413z00_1767, BgL_arg4414z00_1768, BgL_arg4415z00_1769, BgL_arg4416z00_1770, BgL_arg4417z00_1771, BgL_arg4418z00_1772, BgL_arg4419z00_1773, BgL_arg4420z00_1774, 
(obj_t)(BgL_arg4421z00_1775), BgL_arg4422z00_1776, BgL_arg4423z00_1777, BgL_arg4424z00_1778); } 
{ /* ./Ast/alphatize.scm 389 */

BgL_newzd2sfunzd2_1762 = BgL_new2812z00_1765; } } } 
{ /* ./Ast/alphatize.scm 389 */

{ /* ./Ast/alphatize.scm 392 */
bool_t BgL_arg4407z00_1763;
{ /* ./Ast/alphatize.scm 392 */
BgL_localz00_bglt BgL_obj1263z00_3513;
BgL_obj1263z00_3513 = 
(BgL_localz00_bglt)(BgL_oldz00_1755); 
BgL_arg4407z00_1763 = 
(((BgL_localz00_bglt)CREF(BgL_obj1263z00_3513))->BgL_userzf3zf3); } 
{ /* ./Ast/alphatize.scm 392 */
BgL_localz00_bglt BgL_obj1265z00_3514;bool_t BgL_val1264z00_3515;
BgL_obj1265z00_3514 = 
(BgL_localz00_bglt)(BgL_newz00_1756); 
BgL_val1264z00_3515 = BgL_arg4407z00_1763; 
((((BgL_localz00_bglt)CREF(BgL_obj1265z00_3514))->BgL_userzf3zf3) = ((bool_t)BgL_val1264z00_3515), BUNSPEC); } } 
{ /* ./Ast/alphatize.scm 393 */
BgL_variablez00_bglt BgL_obj1102z00_3516;BgL_valuez00_bglt BgL_val1101z00_3517;
BgL_obj1102z00_3516 = 
(BgL_variablez00_bglt)(BgL_newz00_1756); 
BgL_val1101z00_3517 = 
(BgL_valuez00_bglt)(BgL_newzd2sfunzd2_1762); 
((((BgL_variablez00_bglt)CREF(BgL_obj1102z00_3516))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_val1101z00_3517), BUNSPEC); } } } } } } } } } 
{ /* ./Ast/alphatize.scm 377 */
obj_t BgL_arg4475z00_1796;obj_t BgL_arg4476z00_1797;
BgL_arg4475z00_1796 = 
CDR(BgL_ll2803z00_1751); 
BgL_arg4476z00_1797 = 
CDR(BgL_ll2804z00_1752); 
{ 
obj_t BgL_ll2804z00_4226;obj_t BgL_ll2803z00_4225;
BgL_ll2803z00_4225 = BgL_arg4475z00_1796; 
BgL_ll2804z00_4226 = BgL_arg4476z00_1797; 
BgL_ll2804z00_1752 = BgL_ll2804z00_4226; 
BgL_ll2803z00_1751 = BgL_ll2803z00_4225; 
goto BgL_forzd2each2805zd2_1753;} } } } } 
{ /* ./Ast/alphatize.scm 397 */
BgL_letzd2funzd2_bglt BgL_new2814z00_1799;
{ /* ./Ast/alphatize.scm 397 */
obj_t BgL_arg4482z00_1800;BgL_typez00_bglt BgL_arg4483z00_1801;obj_t BgL_arg4484z00_1802;obj_t BgL_arg4485z00_1803;obj_t BgL_arg4486z00_1804;BgL_nodez00_bglt BgL_arg4487z00_1805;
BgL_arg4482z00_1800 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1746)); 
{ /* ./Ast/alphatize.scm 396 */
BgL_nodez00_bglt BgL_obj1561z00_3520;
BgL_obj1561z00_3520 = 
(BgL_nodez00_bglt)(BgL_nodez00_1746); 
BgL_arg4483z00_1801 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3520))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 396 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_3521;
BgL_obj1578z00_3521 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1746); 
BgL_arg4484z00_1802 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_3521))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 396 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_3522;
BgL_obj1581z00_3522 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1746); 
BgL_arg4485z00_1803 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_3522))->BgL_keyz00); } 
BgL_arg4486z00_1804 = BgL_newzd2localszd2_1750; 
{ /* ./Ast/alphatize.scm 401 */
obj_t BgL_arg4494z00_1806;BgL_nodez00_bglt BgL_arg4495z00_1807;
BgL_arg4494z00_1806 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1746)); 
BgL_arg4495z00_1807 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1746))->BgL_bodyz00); 
BgL_arg4487z00_1805 = 
BGl_alphatiza7eza7zzast_alphatiza7eza7(BgL_oldzd2localszd2_1749, BgL_newzd2localszd2_1750, BgL_arg4494z00_1806, BgL_arg4495z00_1807); } 
BgL_new2814z00_1799 = 
BGl_makezd2letzd2funz00zzast_nodez00(BgL_arg4482z00_1800, BgL_arg4483z00_1801, BgL_arg4484z00_1802, BgL_arg4485z00_1803, BgL_arg4486z00_1804, BgL_arg4487z00_1805); } 
{ /* ./Ast/alphatize.scm 396 */

BgL_auxz00_4138 = BgL_new2814z00_1799; } } } } } 
return 
(obj_t)(BgL_auxz00_4138);} } } 
}



/* do-alphatize-box-set!2894 */
obj_t BGl_dozd2alphatiza7ezd2boxzd2setz122894z67zzast_alphatiza7eza7(obj_t BgL_envz00_3753, obj_t BgL_nodez00_3754)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 361 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1733;
{ /* ./Ast/alphatize.scm 362 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_4242;
BgL_nodez00_1733 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_3754); 
{ /* ./Ast/alphatize.scm 363 */
BgL_boxzd2setz12zc0_bglt BgL_new2797z00_1737;
{ /* ./Ast/alphatize.scm 363 */
obj_t BgL_arg4383z00_1738;BgL_typez00_bglt BgL_arg4384z00_1739;BgL_nodez00_bglt BgL_arg4385z00_1740;BgL_nodez00_bglt BgL_arg4386z00_1741;
BgL_arg4383z00_1738 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1733)); 
{ /* ./Ast/alphatize.scm 362 */
BgL_nodez00_bglt BgL_obj1561z00_3411;
BgL_obj1561z00_3411 = 
(BgL_nodez00_bglt)(BgL_nodez00_1733); 
BgL_arg4384z00_1739 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3411))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 364 */
BgL_varz00_bglt BgL_arg4391z00_1742;
BgL_arg4391z00_1742 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1733))->BgL_varz00); 
{ /* ./Ast/alphatize.scm 364 */
BgL_nodez00_bglt BgL_res4870z00_3439;
{ /* ./Ast/alphatize.scm 364 */
BgL_nodez00_bglt BgL_nodez00_3413;
BgL_nodez00_3413 = 
(BgL_nodez00_bglt)(BgL_arg4391z00_1742); 
{ /* ./Ast/alphatize.scm 364 */
obj_t BgL_method2843z00_3414;
{ /* ./Ast/alphatize.scm 364 */
BgL_objectz00_bglt BgL_objz00_3415;
BgL_objz00_3415 = 
(BgL_objectz00_bglt)(BgL_nodez00_3413); 
{ /* ./Ast/alphatize.scm 364 */
long BgL_objzd2classzd2numz00_3416;
BgL_objzd2classzd2numz00_3416 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3415); 
{ /* ./Ast/alphatize.scm 364 */
obj_t BgL_arg2017z00_3417;
{ /* ./Ast/alphatize.scm 364 */
int BgL_auxz00_4251;
BgL_auxz00_4251 = 
(int)(((long)1)); 
BgL_arg2017z00_3417 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4251); } 
{ /* ./Ast/alphatize.scm 364 */
int BgL_offsetz00_3420;
BgL_offsetz00_3420 = 
(int)(BgL_objzd2classzd2numz00_3416); 
{ /* ./Ast/alphatize.scm 364 */
long BgL_offsetz00_3421;
{ /* ./Ast/alphatize.scm 364 */
long BgL_auxz00_4255;
BgL_auxz00_4255 = 
(long)(BgL_offsetz00_3420); 
BgL_offsetz00_3421 = 
(BgL_auxz00_4255-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 364 */
long BgL_modz00_3422;
{ /* ./Ast/alphatize.scm 364 */
int BgL_arg2028z00_3423;
BgL_arg2028z00_3423 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 364 */
long BgL_n2z00_3431;
BgL_n2z00_3431 = 
(long)(BgL_arg2028z00_3423); 
BgL_modz00_3422 = 
(BgL_offsetz00_3421/BgL_n2z00_3431); } } 
{ /* ./Ast/alphatize.scm 364 */
long BgL_restz00_3424;
{ /* ./Ast/alphatize.scm 364 */
int BgL_arg2024z00_3425;
BgL_arg2024z00_3425 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 364 */
long BgL_n2z00_3434;
BgL_n2z00_3434 = 
(long)(BgL_arg2024z00_3425); 
BgL_restz00_3424 = 
(BgL_offsetz00_3421%BgL_n2z00_3434); } } 
{ /* ./Ast/alphatize.scm 364 */

{ /* ./Ast/alphatize.scm 364 */
obj_t BgL_bucketz00_3426;
{ /* ./Ast/alphatize.scm 364 */
int BgL_kz00_3436;
BgL_kz00_3436 = 
(int)(BgL_modz00_3422); 
BgL_bucketz00_3426 = 
VECTOR_REF(BgL_arg2017z00_3417,BgL_kz00_3436); } 
{ /* ./Ast/alphatize.scm 364 */
int BgL_kz00_3438;
BgL_kz00_3438 = 
(int)(BgL_restz00_3424); 
BgL_method2843z00_3414 = 
VECTOR_REF(BgL_bucketz00_3426,BgL_kz00_3438); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 364 */
obj_t BgL_auxz00_4268;
BgL_auxz00_4268 = 
PROCEDURE_ENTRY(BgL_method2843z00_3414)(BgL_method2843z00_3414, 
(obj_t)(BgL_nodez00_3413), BEOA); 
BgL_res4870z00_3439 = 
(BgL_nodez00_bglt)(BgL_auxz00_4268); } } } 
BgL_arg4385z00_1740 = BgL_res4870z00_3439; } } 
{ /* ./Ast/alphatize.scm 365 */
BgL_nodez00_bglt BgL_arg4395z00_1743;
BgL_arg4395z00_1743 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1733))->BgL_valuez00); 
{ /* ./Ast/alphatize.scm 365 */
BgL_nodez00_bglt BgL_res4873z00_3467;
{ /* ./Ast/alphatize.scm 365 */
obj_t BgL_method2843z00_3442;
{ /* ./Ast/alphatize.scm 365 */
BgL_objectz00_bglt BgL_objz00_3443;
BgL_objz00_3443 = 
(BgL_objectz00_bglt)(BgL_arg4395z00_1743); 
{ /* ./Ast/alphatize.scm 365 */
long BgL_objzd2classzd2numz00_3444;
BgL_objzd2classzd2numz00_3444 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3443); 
{ /* ./Ast/alphatize.scm 365 */
obj_t BgL_arg2017z00_3445;
{ /* ./Ast/alphatize.scm 365 */
int BgL_auxz00_4276;
BgL_auxz00_4276 = 
(int)(((long)1)); 
BgL_arg2017z00_3445 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4276); } 
{ /* ./Ast/alphatize.scm 365 */
int BgL_offsetz00_3448;
BgL_offsetz00_3448 = 
(int)(BgL_objzd2classzd2numz00_3444); 
{ /* ./Ast/alphatize.scm 365 */
long BgL_offsetz00_3449;
{ /* ./Ast/alphatize.scm 365 */
long BgL_auxz00_4280;
BgL_auxz00_4280 = 
(long)(BgL_offsetz00_3448); 
BgL_offsetz00_3449 = 
(BgL_auxz00_4280-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 365 */
long BgL_modz00_3450;
{ /* ./Ast/alphatize.scm 365 */
int BgL_arg2028z00_3451;
BgL_arg2028z00_3451 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 365 */
long BgL_n2z00_3459;
BgL_n2z00_3459 = 
(long)(BgL_arg2028z00_3451); 
BgL_modz00_3450 = 
(BgL_offsetz00_3449/BgL_n2z00_3459); } } 
{ /* ./Ast/alphatize.scm 365 */
long BgL_restz00_3452;
{ /* ./Ast/alphatize.scm 365 */
int BgL_arg2024z00_3453;
BgL_arg2024z00_3453 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 365 */
long BgL_n2z00_3462;
BgL_n2z00_3462 = 
(long)(BgL_arg2024z00_3453); 
BgL_restz00_3452 = 
(BgL_offsetz00_3449%BgL_n2z00_3462); } } 
{ /* ./Ast/alphatize.scm 365 */

{ /* ./Ast/alphatize.scm 365 */
obj_t BgL_bucketz00_3454;
{ /* ./Ast/alphatize.scm 365 */
int BgL_kz00_3464;
BgL_kz00_3464 = 
(int)(BgL_modz00_3450); 
BgL_bucketz00_3454 = 
VECTOR_REF(BgL_arg2017z00_3445,BgL_kz00_3464); } 
{ /* ./Ast/alphatize.scm 365 */
int BgL_kz00_3466;
BgL_kz00_3466 = 
(int)(BgL_restz00_3452); 
BgL_method2843z00_3442 = 
VECTOR_REF(BgL_bucketz00_3454,BgL_kz00_3466); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 365 */
obj_t BgL_auxz00_4293;
BgL_auxz00_4293 = 
PROCEDURE_ENTRY(BgL_method2843z00_3442)(BgL_method2843z00_3442, 
(obj_t)(BgL_arg4395z00_1743), BEOA); 
BgL_res4873z00_3467 = 
(BgL_nodez00_bglt)(BgL_auxz00_4293); } } 
BgL_arg4386z00_1741 = BgL_res4873z00_3467; } } 
BgL_new2797z00_1737 = 
BGl_makezd2boxzd2setz12z12zzast_nodez00(BgL_arg4383z00_1738, BgL_arg4384z00_1739, 
(BgL_varz00_bglt)(BgL_arg4385z00_1740), BgL_arg4386z00_1741); } 
{ /* ./Ast/alphatize.scm 362 */

BgL_auxz00_4242 = BgL_new2797z00_1737; } } 
return 
(obj_t)(BgL_auxz00_4242);} } } 
}



/* do-alphatize-box-ref2892 */
obj_t BGl_dozd2alphatiza7ezd2boxzd2ref2892z75zzast_alphatiza7eza7(obj_t BgL_envz00_3755, obj_t BgL_nodez00_3756)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 353 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1720;
{ /* ./Ast/alphatize.scm 354 */
BgL_boxzd2refzd2_bglt BgL_auxz00_4302;
BgL_nodez00_1720 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_3756); 
{ /* ./Ast/alphatize.scm 355 */
BgL_boxzd2refzd2_bglt BgL_new2795z00_1724;
{ /* ./Ast/alphatize.scm 355 */
obj_t BgL_arg4362z00_1725;BgL_typez00_bglt BgL_arg4363z00_1726;obj_t BgL_arg4364z00_1727;obj_t BgL_arg4365z00_1728;BgL_nodez00_bglt BgL_arg4366z00_1729;
BgL_arg4362z00_1725 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1720)); 
{ /* ./Ast/alphatize.scm 354 */
BgL_nodez00_bglt BgL_obj1561z00_3380;
BgL_obj1561z00_3380 = 
(BgL_nodez00_bglt)(BgL_nodez00_1720); 
BgL_arg4363z00_1726 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3380))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 354 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_3381;
BgL_obj1578z00_3381 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1720); 
BgL_arg4364z00_1727 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_3381))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 354 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_3382;
BgL_obj1581z00_3382 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1720); 
BgL_arg4365z00_1728 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_3382))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 356 */
BgL_varz00_bglt BgL_arg4373z00_1730;
BgL_arg4373z00_1730 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1720))->BgL_varz00); 
{ /* ./Ast/alphatize.scm 356 */
BgL_nodez00_bglt BgL_res4867z00_3410;
{ /* ./Ast/alphatize.scm 356 */
BgL_nodez00_bglt BgL_nodez00_3384;
BgL_nodez00_3384 = 
(BgL_nodez00_bglt)(BgL_arg4373z00_1730); 
{ /* ./Ast/alphatize.scm 356 */
obj_t BgL_method2843z00_3385;
{ /* ./Ast/alphatize.scm 356 */
BgL_objectz00_bglt BgL_objz00_3386;
BgL_objz00_3386 = 
(BgL_objectz00_bglt)(BgL_nodez00_3384); 
{ /* ./Ast/alphatize.scm 356 */
long BgL_objzd2classzd2numz00_3387;
BgL_objzd2classzd2numz00_3387 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3386); 
{ /* ./Ast/alphatize.scm 356 */
obj_t BgL_arg2017z00_3388;
{ /* ./Ast/alphatize.scm 356 */
int BgL_auxz00_4315;
BgL_auxz00_4315 = 
(int)(((long)1)); 
BgL_arg2017z00_3388 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4315); } 
{ /* ./Ast/alphatize.scm 356 */
int BgL_offsetz00_3391;
BgL_offsetz00_3391 = 
(int)(BgL_objzd2classzd2numz00_3387); 
{ /* ./Ast/alphatize.scm 356 */
long BgL_offsetz00_3392;
{ /* ./Ast/alphatize.scm 356 */
long BgL_auxz00_4319;
BgL_auxz00_4319 = 
(long)(BgL_offsetz00_3391); 
BgL_offsetz00_3392 = 
(BgL_auxz00_4319-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 356 */
long BgL_modz00_3393;
{ /* ./Ast/alphatize.scm 356 */
int BgL_arg2028z00_3394;
BgL_arg2028z00_3394 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 356 */
long BgL_n2z00_3402;
BgL_n2z00_3402 = 
(long)(BgL_arg2028z00_3394); 
BgL_modz00_3393 = 
(BgL_offsetz00_3392/BgL_n2z00_3402); } } 
{ /* ./Ast/alphatize.scm 356 */
long BgL_restz00_3395;
{ /* ./Ast/alphatize.scm 356 */
int BgL_arg2024z00_3396;
BgL_arg2024z00_3396 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 356 */
long BgL_n2z00_3405;
BgL_n2z00_3405 = 
(long)(BgL_arg2024z00_3396); 
BgL_restz00_3395 = 
(BgL_offsetz00_3392%BgL_n2z00_3405); } } 
{ /* ./Ast/alphatize.scm 356 */

{ /* ./Ast/alphatize.scm 356 */
obj_t BgL_bucketz00_3397;
{ /* ./Ast/alphatize.scm 356 */
int BgL_kz00_3407;
BgL_kz00_3407 = 
(int)(BgL_modz00_3393); 
BgL_bucketz00_3397 = 
VECTOR_REF(BgL_arg2017z00_3388,BgL_kz00_3407); } 
{ /* ./Ast/alphatize.scm 356 */
int BgL_kz00_3409;
BgL_kz00_3409 = 
(int)(BgL_restz00_3395); 
BgL_method2843z00_3385 = 
VECTOR_REF(BgL_bucketz00_3397,BgL_kz00_3409); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 356 */
obj_t BgL_auxz00_4332;
BgL_auxz00_4332 = 
PROCEDURE_ENTRY(BgL_method2843z00_3385)(BgL_method2843z00_3385, 
(obj_t)(BgL_nodez00_3384), BEOA); 
BgL_res4867z00_3410 = 
(BgL_nodez00_bglt)(BgL_auxz00_4332); } } } 
BgL_arg4366z00_1729 = BgL_res4867z00_3410; } } 
BgL_new2795z00_1724 = 
BGl_makezd2boxzd2refz00zzast_nodez00(BgL_arg4362z00_1725, BgL_arg4363z00_1726, BgL_arg4364z00_1727, BgL_arg4365z00_1728, 
(BgL_varz00_bglt)(BgL_arg4366z00_1729)); } 
{ /* ./Ast/alphatize.scm 354 */

BgL_auxz00_4302 = BgL_new2795z00_1724; } } 
return 
(obj_t)(BgL_auxz00_4302);} } } 
}



/* do-alphatize-make-box2890 */
obj_t BGl_dozd2alphatiza7ezd2makezd2box2890z75zzast_alphatiza7eza7(obj_t BgL_envz00_3757, obj_t BgL_nodez00_3758)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 345 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1707;
{ /* ./Ast/alphatize.scm 346 */
BgL_makezd2boxzd2_bglt BgL_auxz00_4341;
BgL_nodez00_1707 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_3758); 
{ /* ./Ast/alphatize.scm 347 */
BgL_makezd2boxzd2_bglt BgL_new2793z00_1711;
{ /* ./Ast/alphatize.scm 347 */
obj_t BgL_arg4341z00_1712;BgL_typez00_bglt BgL_arg4342z00_1713;obj_t BgL_arg4343z00_1714;obj_t BgL_arg4344z00_1715;BgL_nodez00_bglt BgL_arg4345z00_1716;
BgL_arg4341z00_1712 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1707)); 
{ /* ./Ast/alphatize.scm 346 */
BgL_nodez00_bglt BgL_obj1561z00_3349;
BgL_obj1561z00_3349 = 
(BgL_nodez00_bglt)(BgL_nodez00_1707); 
BgL_arg4342z00_1713 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3349))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 346 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_3350;
BgL_obj1578z00_3350 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1707); 
BgL_arg4343z00_1714 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_3350))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 346 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_3351;
BgL_obj1581z00_3351 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1707); 
BgL_arg4344z00_1715 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_3351))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 348 */
BgL_nodez00_bglt BgL_arg4352z00_1717;
BgL_arg4352z00_1717 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1707))->BgL_valuez00); 
{ /* ./Ast/alphatize.scm 348 */
BgL_nodez00_bglt BgL_res4864z00_3379;
{ /* ./Ast/alphatize.scm 348 */
obj_t BgL_method2843z00_3354;
{ /* ./Ast/alphatize.scm 348 */
BgL_objectz00_bglt BgL_objz00_3355;
BgL_objz00_3355 = 
(BgL_objectz00_bglt)(BgL_arg4352z00_1717); 
{ /* ./Ast/alphatize.scm 348 */
long BgL_objzd2classzd2numz00_3356;
BgL_objzd2classzd2numz00_3356 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3355); 
{ /* ./Ast/alphatize.scm 348 */
obj_t BgL_arg2017z00_3357;
{ /* ./Ast/alphatize.scm 348 */
int BgL_auxz00_4353;
BgL_auxz00_4353 = 
(int)(((long)1)); 
BgL_arg2017z00_3357 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4353); } 
{ /* ./Ast/alphatize.scm 348 */
int BgL_offsetz00_3360;
BgL_offsetz00_3360 = 
(int)(BgL_objzd2classzd2numz00_3356); 
{ /* ./Ast/alphatize.scm 348 */
long BgL_offsetz00_3361;
{ /* ./Ast/alphatize.scm 348 */
long BgL_auxz00_4357;
BgL_auxz00_4357 = 
(long)(BgL_offsetz00_3360); 
BgL_offsetz00_3361 = 
(BgL_auxz00_4357-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 348 */
long BgL_modz00_3362;
{ /* ./Ast/alphatize.scm 348 */
int BgL_arg2028z00_3363;
BgL_arg2028z00_3363 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 348 */
long BgL_n2z00_3371;
BgL_n2z00_3371 = 
(long)(BgL_arg2028z00_3363); 
BgL_modz00_3362 = 
(BgL_offsetz00_3361/BgL_n2z00_3371); } } 
{ /* ./Ast/alphatize.scm 348 */
long BgL_restz00_3364;
{ /* ./Ast/alphatize.scm 348 */
int BgL_arg2024z00_3365;
BgL_arg2024z00_3365 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 348 */
long BgL_n2z00_3374;
BgL_n2z00_3374 = 
(long)(BgL_arg2024z00_3365); 
BgL_restz00_3364 = 
(BgL_offsetz00_3361%BgL_n2z00_3374); } } 
{ /* ./Ast/alphatize.scm 348 */

{ /* ./Ast/alphatize.scm 348 */
obj_t BgL_bucketz00_3366;
{ /* ./Ast/alphatize.scm 348 */
int BgL_kz00_3376;
BgL_kz00_3376 = 
(int)(BgL_modz00_3362); 
BgL_bucketz00_3366 = 
VECTOR_REF(BgL_arg2017z00_3357,BgL_kz00_3376); } 
{ /* ./Ast/alphatize.scm 348 */
int BgL_kz00_3378;
BgL_kz00_3378 = 
(int)(BgL_restz00_3364); 
BgL_method2843z00_3354 = 
VECTOR_REF(BgL_bucketz00_3366,BgL_kz00_3378); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 348 */
obj_t BgL_auxz00_4370;
BgL_auxz00_4370 = 
PROCEDURE_ENTRY(BgL_method2843z00_3354)(BgL_method2843z00_3354, 
(obj_t)(BgL_arg4352z00_1717), BEOA); 
BgL_res4864z00_3379 = 
(BgL_nodez00_bglt)(BgL_auxz00_4370); } } 
BgL_arg4345z00_1716 = BgL_res4864z00_3379; } } 
BgL_new2793z00_1711 = 
BGl_makezd2makezd2boxz00zzast_nodez00(BgL_arg4341z00_1712, BgL_arg4342z00_1713, BgL_arg4343z00_1714, BgL_arg4344z00_1715, BgL_arg4345z00_1716); } 
{ /* ./Ast/alphatize.scm 346 */

BgL_auxz00_4341 = BgL_new2793z00_1711; } } 
return 
(obj_t)(BgL_auxz00_4341);} } } 
}



/* do-alphatize-select2888 */
obj_t BGl_dozd2alphatiza7ezd2select2888za7zzast_alphatiza7eza7(obj_t BgL_envz00_3759, obj_t BgL_nodez00_3760)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 333 */
{ 
BgL_selectz00_bglt BgL_nodez00_1677;
{ /* ./Ast/alphatize.scm 334 */
BgL_selectz00_bglt BgL_auxz00_4378;
BgL_nodez00_1677 = 
(BgL_selectz00_bglt)(BgL_nodez00_3760); 
{ /* ./Ast/alphatize.scm 335 */
BgL_selectz00_bglt BgL_new2786z00_1681;
{ /* ./Ast/alphatize.scm 335 */
obj_t BgL_arg4290z00_1682;BgL_typez00_bglt BgL_arg4291z00_1683;obj_t BgL_arg4292z00_1684;obj_t BgL_arg4293z00_1685;BgL_nodez00_bglt BgL_arg4294z00_1686;obj_t BgL_arg4295z00_1687;BgL_typez00_bglt BgL_arg4296z00_1688;
BgL_arg4290z00_1682 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1677)); 
{ /* ./Ast/alphatize.scm 334 */
BgL_nodez00_bglt BgL_obj1561z00_3276;
BgL_obj1561z00_3276 = 
(BgL_nodez00_bglt)(BgL_nodez00_1677); 
BgL_arg4291z00_1683 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3276))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 334 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_3277;
BgL_obj1578z00_3277 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1677); 
BgL_arg4292z00_1684 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_3277))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 334 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_3278;
BgL_obj1581z00_3278 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1677); 
BgL_arg4293z00_1685 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_3278))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 336 */
BgL_nodez00_bglt BgL_arg4303z00_1689;
BgL_arg4303z00_1689 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1677))->BgL_testz00); 
{ /* ./Ast/alphatize.scm 336 */
BgL_nodez00_bglt BgL_res4858z00_3306;
{ /* ./Ast/alphatize.scm 336 */
obj_t BgL_method2843z00_3281;
{ /* ./Ast/alphatize.scm 336 */
BgL_objectz00_bglt BgL_objz00_3282;
BgL_objz00_3282 = 
(BgL_objectz00_bglt)(BgL_arg4303z00_1689); 
{ /* ./Ast/alphatize.scm 336 */
long BgL_objzd2classzd2numz00_3283;
BgL_objzd2classzd2numz00_3283 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3282); 
{ /* ./Ast/alphatize.scm 336 */
obj_t BgL_arg2017z00_3284;
{ /* ./Ast/alphatize.scm 336 */
int BgL_auxz00_4390;
BgL_auxz00_4390 = 
(int)(((long)1)); 
BgL_arg2017z00_3284 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4390); } 
{ /* ./Ast/alphatize.scm 336 */
int BgL_offsetz00_3287;
BgL_offsetz00_3287 = 
(int)(BgL_objzd2classzd2numz00_3283); 
{ /* ./Ast/alphatize.scm 336 */
long BgL_offsetz00_3288;
{ /* ./Ast/alphatize.scm 336 */
long BgL_auxz00_4394;
BgL_auxz00_4394 = 
(long)(BgL_offsetz00_3287); 
BgL_offsetz00_3288 = 
(BgL_auxz00_4394-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 336 */
long BgL_modz00_3289;
{ /* ./Ast/alphatize.scm 336 */
int BgL_arg2028z00_3290;
BgL_arg2028z00_3290 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 336 */
long BgL_n2z00_3298;
BgL_n2z00_3298 = 
(long)(BgL_arg2028z00_3290); 
BgL_modz00_3289 = 
(BgL_offsetz00_3288/BgL_n2z00_3298); } } 
{ /* ./Ast/alphatize.scm 336 */
long BgL_restz00_3291;
{ /* ./Ast/alphatize.scm 336 */
int BgL_arg2024z00_3292;
BgL_arg2024z00_3292 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 336 */
long BgL_n2z00_3301;
BgL_n2z00_3301 = 
(long)(BgL_arg2024z00_3292); 
BgL_restz00_3291 = 
(BgL_offsetz00_3288%BgL_n2z00_3301); } } 
{ /* ./Ast/alphatize.scm 336 */

{ /* ./Ast/alphatize.scm 336 */
obj_t BgL_bucketz00_3293;
{ /* ./Ast/alphatize.scm 336 */
int BgL_kz00_3303;
BgL_kz00_3303 = 
(int)(BgL_modz00_3289); 
BgL_bucketz00_3293 = 
VECTOR_REF(BgL_arg2017z00_3284,BgL_kz00_3303); } 
{ /* ./Ast/alphatize.scm 336 */
int BgL_kz00_3305;
BgL_kz00_3305 = 
(int)(BgL_restz00_3291); 
BgL_method2843z00_3281 = 
VECTOR_REF(BgL_bucketz00_3293,BgL_kz00_3305); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 336 */
obj_t BgL_auxz00_4407;
BgL_auxz00_4407 = 
PROCEDURE_ENTRY(BgL_method2843z00_3281)(BgL_method2843z00_3281, 
(obj_t)(BgL_arg4303z00_1689), BEOA); 
BgL_res4858z00_3306 = 
(BgL_nodez00_bglt)(BgL_auxz00_4407); } } 
BgL_arg4294z00_1686 = BgL_res4858z00_3306; } } 
{ /* ./Ast/alphatize.scm 337 */
obj_t BgL_l2787z00_1690;
BgL_l2787z00_1690 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1677))->BgL_clausesz00); 
{ /* ./Ast/alphatize.scm 337 */
bool_t BgL_test4306z00_1691;
BgL_test4306z00_1691 = 
NULLP(BgL_l2787z00_1690); 
if(BgL_test4306z00_1691)
{ /* ./Ast/alphatize.scm 337 */
BgL_arg4295z00_1687 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 337 */
obj_t BgL_head2789z00_1692;
BgL_head2789z00_1692 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2787z00_1693;obj_t BgL_tail2790z00_1694;
BgL_l2787z00_1693 = BgL_l2787z00_1690; 
BgL_tail2790z00_1694 = BgL_head2789z00_1692; 
BgL_map2788z00_1695:
{ /* ./Ast/alphatize.scm 337 */
bool_t BgL_test4308z00_1696;
BgL_test4308z00_1696 = 
NULLP(BgL_l2787z00_1693); 
if(BgL_test4308z00_1696)
{ /* ./Ast/alphatize.scm 337 */
BgL_arg4295z00_1687 = 
CDR(BgL_head2789z00_1692); }  else 
{ /* ./Ast/alphatize.scm 338 */
obj_t BgL_newtail2791z00_1697;
{ /* ./Ast/alphatize.scm 338 */
obj_t BgL_arg4316z00_1699;
{ /* ./Ast/alphatize.scm 338 */
obj_t BgL_clausez00_1701;
BgL_clausez00_1701 = 
CAR(BgL_l2787z00_1693); 
{ /* ./Ast/alphatize.scm 338 */
obj_t BgL_arg4320z00_1702;BgL_nodez00_bglt BgL_arg4321z00_1703;
BgL_arg4320z00_1702 = 
CAR(BgL_clausez00_1701); 
{ /* ./Ast/alphatize.scm 339 */
obj_t BgL_arg4325z00_1704;
BgL_arg4325z00_1704 = 
CDR(BgL_clausez00_1701); 
{ /* ./Ast/alphatize.scm 339 */
BgL_nodez00_bglt BgL_res4861z00_3342;
{ /* ./Ast/alphatize.scm 339 */
BgL_nodez00_bglt BgL_nodez00_3316;
BgL_nodez00_3316 = 
(BgL_nodez00_bglt)(BgL_arg4325z00_1704); 
{ /* ./Ast/alphatize.scm 339 */
obj_t BgL_method2843z00_3317;
{ /* ./Ast/alphatize.scm 339 */
BgL_objectz00_bglt BgL_objz00_3318;
BgL_objz00_3318 = 
(BgL_objectz00_bglt)(BgL_nodez00_3316); 
{ /* ./Ast/alphatize.scm 339 */
long BgL_objzd2classzd2numz00_3319;
BgL_objzd2classzd2numz00_3319 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3318); 
{ /* ./Ast/alphatize.scm 339 */
obj_t BgL_arg2017z00_3320;
{ /* ./Ast/alphatize.scm 339 */
int BgL_auxz00_4425;
BgL_auxz00_4425 = 
(int)(((long)1)); 
BgL_arg2017z00_3320 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4425); } 
{ /* ./Ast/alphatize.scm 339 */
int BgL_offsetz00_3323;
BgL_offsetz00_3323 = 
(int)(BgL_objzd2classzd2numz00_3319); 
{ /* ./Ast/alphatize.scm 339 */
long BgL_offsetz00_3324;
{ /* ./Ast/alphatize.scm 339 */
long BgL_auxz00_4429;
BgL_auxz00_4429 = 
(long)(BgL_offsetz00_3323); 
BgL_offsetz00_3324 = 
(BgL_auxz00_4429-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 339 */
long BgL_modz00_3325;
{ /* ./Ast/alphatize.scm 339 */
int BgL_arg2028z00_3326;
BgL_arg2028z00_3326 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 339 */
long BgL_n2z00_3334;
BgL_n2z00_3334 = 
(long)(BgL_arg2028z00_3326); 
BgL_modz00_3325 = 
(BgL_offsetz00_3324/BgL_n2z00_3334); } } 
{ /* ./Ast/alphatize.scm 339 */
long BgL_restz00_3327;
{ /* ./Ast/alphatize.scm 339 */
int BgL_arg2024z00_3328;
BgL_arg2024z00_3328 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 339 */
long BgL_n2z00_3337;
BgL_n2z00_3337 = 
(long)(BgL_arg2024z00_3328); 
BgL_restz00_3327 = 
(BgL_offsetz00_3324%BgL_n2z00_3337); } } 
{ /* ./Ast/alphatize.scm 339 */

{ /* ./Ast/alphatize.scm 339 */
obj_t BgL_bucketz00_3329;
{ /* ./Ast/alphatize.scm 339 */
int BgL_kz00_3339;
BgL_kz00_3339 = 
(int)(BgL_modz00_3325); 
BgL_bucketz00_3329 = 
VECTOR_REF(BgL_arg2017z00_3320,BgL_kz00_3339); } 
{ /* ./Ast/alphatize.scm 339 */
int BgL_kz00_3341;
BgL_kz00_3341 = 
(int)(BgL_restz00_3327); 
BgL_method2843z00_3317 = 
VECTOR_REF(BgL_bucketz00_3329,BgL_kz00_3341); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 339 */
obj_t BgL_auxz00_4442;
BgL_auxz00_4442 = 
PROCEDURE_ENTRY(BgL_method2843z00_3317)(BgL_method2843z00_3317, 
(obj_t)(BgL_nodez00_3316), BEOA); 
BgL_res4861z00_3342 = 
(BgL_nodez00_bglt)(BgL_auxz00_4442); } } } 
BgL_arg4321z00_1703 = BgL_res4861z00_3342; } } 
{ /* ./Ast/alphatize.scm 338 */
obj_t BgL_auxz00_4447;
BgL_auxz00_4447 = 
(obj_t)(BgL_arg4321z00_1703); 
BgL_arg4316z00_1699 = 
MAKE_PAIR(BgL_arg4320z00_1702, BgL_auxz00_4447); } } } 
BgL_newtail2791z00_1697 = 
MAKE_PAIR(BgL_arg4316z00_1699, BNIL); } 
SET_CDR(BgL_tail2790z00_1694, BgL_newtail2791z00_1697); 
{ /* ./Ast/alphatize.scm 337 */
obj_t BgL_arg4312z00_1698;
BgL_arg4312z00_1698 = 
CDR(BgL_l2787z00_1693); 
{ 
obj_t BgL_tail2790z00_4454;obj_t BgL_l2787z00_4453;
BgL_l2787z00_4453 = BgL_arg4312z00_1698; 
BgL_tail2790z00_4454 = BgL_newtail2791z00_1697; 
BgL_tail2790z00_1694 = BgL_tail2790z00_4454; 
BgL_l2787z00_1693 = BgL_l2787z00_4453; 
goto BgL_map2788z00_1695;} } } } } } } } 
BgL_arg4296z00_1688 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1677))->BgL_itemzd2typezd2); 
BgL_new2786z00_1681 = 
BGl_makezd2selectzd2zzast_nodez00(BgL_arg4290z00_1682, BgL_arg4291z00_1683, BgL_arg4292z00_1684, BgL_arg4293z00_1685, BgL_arg4294z00_1686, BgL_arg4295z00_1687, BgL_arg4296z00_1688); } 
{ /* ./Ast/alphatize.scm 334 */

BgL_auxz00_4378 = BgL_new2786z00_1681; } } 
return 
(obj_t)(BgL_auxz00_4378);} } } 
}



/* do-alphatize-fail2886 */
obj_t BGl_dozd2alphatiza7ezd2fail2886za7zzast_alphatiza7eza7(obj_t BgL_envz00_3761, obj_t BgL_nodez00_3762)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 323 */
{ 
BgL_failz00_bglt BgL_nodez00_1662;
{ /* ./Ast/alphatize.scm 324 */
BgL_failz00_bglt BgL_auxz00_4459;
BgL_nodez00_1662 = 
(BgL_failz00_bglt)(BgL_nodez00_3762); 
{ /* ./Ast/alphatize.scm 325 */
BgL_failz00_bglt BgL_new2784z00_1666;
{ /* ./Ast/alphatize.scm 325 */
obj_t BgL_arg4263z00_1667;BgL_typez00_bglt BgL_arg4264z00_1668;BgL_nodez00_bglt BgL_arg4265z00_1669;BgL_nodez00_bglt BgL_arg4266z00_1670;BgL_nodez00_bglt BgL_arg4267z00_1671;
BgL_arg4263z00_1667 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1662)); 
{ /* ./Ast/alphatize.scm 324 */
BgL_nodez00_bglt BgL_obj1561z00_3191;
BgL_obj1561z00_3191 = 
(BgL_nodez00_bglt)(BgL_nodez00_1662); 
BgL_arg4264z00_1668 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3191))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 326 */
BgL_nodez00_bglt BgL_arg4272z00_1672;
BgL_arg4272z00_1672 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1662))->BgL_procz00); 
{ /* ./Ast/alphatize.scm 326 */
BgL_nodez00_bglt BgL_res4849z00_3219;
{ /* ./Ast/alphatize.scm 326 */
obj_t BgL_method2843z00_3194;
{ /* ./Ast/alphatize.scm 326 */
BgL_objectz00_bglt BgL_objz00_3195;
BgL_objz00_3195 = 
(BgL_objectz00_bglt)(BgL_arg4272z00_1672); 
{ /* ./Ast/alphatize.scm 326 */
long BgL_objzd2classzd2numz00_3196;
BgL_objzd2classzd2numz00_3196 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3195); 
{ /* ./Ast/alphatize.scm 326 */
obj_t BgL_arg2017z00_3197;
{ /* ./Ast/alphatize.scm 326 */
int BgL_auxz00_4467;
BgL_auxz00_4467 = 
(int)(((long)1)); 
BgL_arg2017z00_3197 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4467); } 
{ /* ./Ast/alphatize.scm 326 */
int BgL_offsetz00_3200;
BgL_offsetz00_3200 = 
(int)(BgL_objzd2classzd2numz00_3196); 
{ /* ./Ast/alphatize.scm 326 */
long BgL_offsetz00_3201;
{ /* ./Ast/alphatize.scm 326 */
long BgL_auxz00_4471;
BgL_auxz00_4471 = 
(long)(BgL_offsetz00_3200); 
BgL_offsetz00_3201 = 
(BgL_auxz00_4471-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 326 */
long BgL_modz00_3202;
{ /* ./Ast/alphatize.scm 326 */
int BgL_arg2028z00_3203;
BgL_arg2028z00_3203 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 326 */
long BgL_n2z00_3211;
BgL_n2z00_3211 = 
(long)(BgL_arg2028z00_3203); 
BgL_modz00_3202 = 
(BgL_offsetz00_3201/BgL_n2z00_3211); } } 
{ /* ./Ast/alphatize.scm 326 */
long BgL_restz00_3204;
{ /* ./Ast/alphatize.scm 326 */
int BgL_arg2024z00_3205;
BgL_arg2024z00_3205 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 326 */
long BgL_n2z00_3214;
BgL_n2z00_3214 = 
(long)(BgL_arg2024z00_3205); 
BgL_restz00_3204 = 
(BgL_offsetz00_3201%BgL_n2z00_3214); } } 
{ /* ./Ast/alphatize.scm 326 */

{ /* ./Ast/alphatize.scm 326 */
obj_t BgL_bucketz00_3206;
{ /* ./Ast/alphatize.scm 326 */
int BgL_kz00_3216;
BgL_kz00_3216 = 
(int)(BgL_modz00_3202); 
BgL_bucketz00_3206 = 
VECTOR_REF(BgL_arg2017z00_3197,BgL_kz00_3216); } 
{ /* ./Ast/alphatize.scm 326 */
int BgL_kz00_3218;
BgL_kz00_3218 = 
(int)(BgL_restz00_3204); 
BgL_method2843z00_3194 = 
VECTOR_REF(BgL_bucketz00_3206,BgL_kz00_3218); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 326 */
obj_t BgL_auxz00_4484;
BgL_auxz00_4484 = 
PROCEDURE_ENTRY(BgL_method2843z00_3194)(BgL_method2843z00_3194, 
(obj_t)(BgL_arg4272z00_1672), BEOA); 
BgL_res4849z00_3219 = 
(BgL_nodez00_bglt)(BgL_auxz00_4484); } } 
BgL_arg4265z00_1669 = BgL_res4849z00_3219; } } 
{ /* ./Ast/alphatize.scm 327 */
BgL_nodez00_bglt BgL_arg4276z00_1673;
BgL_arg4276z00_1673 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1662))->BgL_msgz00); 
{ /* ./Ast/alphatize.scm 327 */
BgL_nodez00_bglt BgL_res4852z00_3247;
{ /* ./Ast/alphatize.scm 327 */
obj_t BgL_method2843z00_3222;
{ /* ./Ast/alphatize.scm 327 */
BgL_objectz00_bglt BgL_objz00_3223;
BgL_objz00_3223 = 
(BgL_objectz00_bglt)(BgL_arg4276z00_1673); 
{ /* ./Ast/alphatize.scm 327 */
long BgL_objzd2classzd2numz00_3224;
BgL_objzd2classzd2numz00_3224 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3223); 
{ /* ./Ast/alphatize.scm 327 */
obj_t BgL_arg2017z00_3225;
{ /* ./Ast/alphatize.scm 327 */
int BgL_auxz00_4492;
BgL_auxz00_4492 = 
(int)(((long)1)); 
BgL_arg2017z00_3225 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4492); } 
{ /* ./Ast/alphatize.scm 327 */
int BgL_offsetz00_3228;
BgL_offsetz00_3228 = 
(int)(BgL_objzd2classzd2numz00_3224); 
{ /* ./Ast/alphatize.scm 327 */
long BgL_offsetz00_3229;
{ /* ./Ast/alphatize.scm 327 */
long BgL_auxz00_4496;
BgL_auxz00_4496 = 
(long)(BgL_offsetz00_3228); 
BgL_offsetz00_3229 = 
(BgL_auxz00_4496-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 327 */
long BgL_modz00_3230;
{ /* ./Ast/alphatize.scm 327 */
int BgL_arg2028z00_3231;
BgL_arg2028z00_3231 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 327 */
long BgL_n2z00_3239;
BgL_n2z00_3239 = 
(long)(BgL_arg2028z00_3231); 
BgL_modz00_3230 = 
(BgL_offsetz00_3229/BgL_n2z00_3239); } } 
{ /* ./Ast/alphatize.scm 327 */
long BgL_restz00_3232;
{ /* ./Ast/alphatize.scm 327 */
int BgL_arg2024z00_3233;
BgL_arg2024z00_3233 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 327 */
long BgL_n2z00_3242;
BgL_n2z00_3242 = 
(long)(BgL_arg2024z00_3233); 
BgL_restz00_3232 = 
(BgL_offsetz00_3229%BgL_n2z00_3242); } } 
{ /* ./Ast/alphatize.scm 327 */

{ /* ./Ast/alphatize.scm 327 */
obj_t BgL_bucketz00_3234;
{ /* ./Ast/alphatize.scm 327 */
int BgL_kz00_3244;
BgL_kz00_3244 = 
(int)(BgL_modz00_3230); 
BgL_bucketz00_3234 = 
VECTOR_REF(BgL_arg2017z00_3225,BgL_kz00_3244); } 
{ /* ./Ast/alphatize.scm 327 */
int BgL_kz00_3246;
BgL_kz00_3246 = 
(int)(BgL_restz00_3232); 
BgL_method2843z00_3222 = 
VECTOR_REF(BgL_bucketz00_3234,BgL_kz00_3246); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 327 */
obj_t BgL_auxz00_4509;
BgL_auxz00_4509 = 
PROCEDURE_ENTRY(BgL_method2843z00_3222)(BgL_method2843z00_3222, 
(obj_t)(BgL_arg4276z00_1673), BEOA); 
BgL_res4852z00_3247 = 
(BgL_nodez00_bglt)(BgL_auxz00_4509); } } 
BgL_arg4266z00_1670 = BgL_res4852z00_3247; } } 
{ /* ./Ast/alphatize.scm 328 */
BgL_nodez00_bglt BgL_arg4280z00_1674;
BgL_arg4280z00_1674 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1662))->BgL_objz00); 
{ /* ./Ast/alphatize.scm 328 */
BgL_nodez00_bglt BgL_res4855z00_3275;
{ /* ./Ast/alphatize.scm 328 */
obj_t BgL_method2843z00_3250;
{ /* ./Ast/alphatize.scm 328 */
BgL_objectz00_bglt BgL_objz00_3251;
BgL_objz00_3251 = 
(BgL_objectz00_bglt)(BgL_arg4280z00_1674); 
{ /* ./Ast/alphatize.scm 328 */
long BgL_objzd2classzd2numz00_3252;
BgL_objzd2classzd2numz00_3252 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3251); 
{ /* ./Ast/alphatize.scm 328 */
obj_t BgL_arg2017z00_3253;
{ /* ./Ast/alphatize.scm 328 */
int BgL_auxz00_4517;
BgL_auxz00_4517 = 
(int)(((long)1)); 
BgL_arg2017z00_3253 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4517); } 
{ /* ./Ast/alphatize.scm 328 */
int BgL_offsetz00_3256;
BgL_offsetz00_3256 = 
(int)(BgL_objzd2classzd2numz00_3252); 
{ /* ./Ast/alphatize.scm 328 */
long BgL_offsetz00_3257;
{ /* ./Ast/alphatize.scm 328 */
long BgL_auxz00_4521;
BgL_auxz00_4521 = 
(long)(BgL_offsetz00_3256); 
BgL_offsetz00_3257 = 
(BgL_auxz00_4521-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 328 */
long BgL_modz00_3258;
{ /* ./Ast/alphatize.scm 328 */
int BgL_arg2028z00_3259;
BgL_arg2028z00_3259 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 328 */
long BgL_n2z00_3267;
BgL_n2z00_3267 = 
(long)(BgL_arg2028z00_3259); 
BgL_modz00_3258 = 
(BgL_offsetz00_3257/BgL_n2z00_3267); } } 
{ /* ./Ast/alphatize.scm 328 */
long BgL_restz00_3260;
{ /* ./Ast/alphatize.scm 328 */
int BgL_arg2024z00_3261;
BgL_arg2024z00_3261 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 328 */
long BgL_n2z00_3270;
BgL_n2z00_3270 = 
(long)(BgL_arg2024z00_3261); 
BgL_restz00_3260 = 
(BgL_offsetz00_3257%BgL_n2z00_3270); } } 
{ /* ./Ast/alphatize.scm 328 */

{ /* ./Ast/alphatize.scm 328 */
obj_t BgL_bucketz00_3262;
{ /* ./Ast/alphatize.scm 328 */
int BgL_kz00_3272;
BgL_kz00_3272 = 
(int)(BgL_modz00_3258); 
BgL_bucketz00_3262 = 
VECTOR_REF(BgL_arg2017z00_3253,BgL_kz00_3272); } 
{ /* ./Ast/alphatize.scm 328 */
int BgL_kz00_3274;
BgL_kz00_3274 = 
(int)(BgL_restz00_3260); 
BgL_method2843z00_3250 = 
VECTOR_REF(BgL_bucketz00_3262,BgL_kz00_3274); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 328 */
obj_t BgL_auxz00_4534;
BgL_auxz00_4534 = 
PROCEDURE_ENTRY(BgL_method2843z00_3250)(BgL_method2843z00_3250, 
(obj_t)(BgL_arg4280z00_1674), BEOA); 
BgL_res4855z00_3275 = 
(BgL_nodez00_bglt)(BgL_auxz00_4534); } } 
BgL_arg4267z00_1671 = BgL_res4855z00_3275; } } 
BgL_new2784z00_1666 = 
BGl_makezd2failzd2zzast_nodez00(BgL_arg4263z00_1667, BgL_arg4264z00_1668, BgL_arg4265z00_1669, BgL_arg4266z00_1670, BgL_arg4267z00_1671); } 
{ /* ./Ast/alphatize.scm 324 */

BgL_auxz00_4459 = BgL_new2784z00_1666; } } 
return 
(obj_t)(BgL_auxz00_4459);} } } 
}



/* do-alphatize-conditional2884 */
obj_t BGl_dozd2alphatiza7ezd2conditional2884za7zzast_alphatiza7eza7(obj_t BgL_envz00_3763, obj_t BgL_nodez00_3764)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 313 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1645;
{ /* ./Ast/alphatize.scm 314 */
BgL_conditionalz00_bglt BgL_auxz00_4542;
BgL_nodez00_1645 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_3764); 
{ /* ./Ast/alphatize.scm 315 */
BgL_conditionalz00_bglt BgL_new2782z00_1649;
{ /* ./Ast/alphatize.scm 315 */
obj_t BgL_arg4232z00_1650;BgL_typez00_bglt BgL_arg4233z00_1651;obj_t BgL_arg4234z00_1652;obj_t BgL_arg4235z00_1653;BgL_nodez00_bglt BgL_arg4236z00_1654;BgL_nodez00_bglt BgL_arg4237z00_1655;BgL_nodez00_bglt BgL_arg4238z00_1656;
BgL_arg4232z00_1650 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1645)); 
{ /* ./Ast/alphatize.scm 314 */
BgL_nodez00_bglt BgL_obj1561z00_3104;
BgL_obj1561z00_3104 = 
(BgL_nodez00_bglt)(BgL_nodez00_1645); 
BgL_arg4233z00_1651 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3104))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 314 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_3105;
BgL_obj1578z00_3105 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1645); 
BgL_arg4234z00_1652 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_3105))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 314 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_3106;
BgL_obj1581z00_3106 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1645); 
BgL_arg4235z00_1653 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_3106))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 316 */
BgL_nodez00_bglt BgL_arg4245z00_1657;
BgL_arg4245z00_1657 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1645))->BgL_testz00); 
{ /* ./Ast/alphatize.scm 316 */
BgL_nodez00_bglt BgL_res4840z00_3134;
{ /* ./Ast/alphatize.scm 316 */
obj_t BgL_method2843z00_3109;
{ /* ./Ast/alphatize.scm 316 */
BgL_objectz00_bglt BgL_objz00_3110;
BgL_objz00_3110 = 
(BgL_objectz00_bglt)(BgL_arg4245z00_1657); 
{ /* ./Ast/alphatize.scm 316 */
long BgL_objzd2classzd2numz00_3111;
BgL_objzd2classzd2numz00_3111 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3110); 
{ /* ./Ast/alphatize.scm 316 */
obj_t BgL_arg2017z00_3112;
{ /* ./Ast/alphatize.scm 316 */
int BgL_auxz00_4554;
BgL_auxz00_4554 = 
(int)(((long)1)); 
BgL_arg2017z00_3112 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4554); } 
{ /* ./Ast/alphatize.scm 316 */
int BgL_offsetz00_3115;
BgL_offsetz00_3115 = 
(int)(BgL_objzd2classzd2numz00_3111); 
{ /* ./Ast/alphatize.scm 316 */
long BgL_offsetz00_3116;
{ /* ./Ast/alphatize.scm 316 */
long BgL_auxz00_4558;
BgL_auxz00_4558 = 
(long)(BgL_offsetz00_3115); 
BgL_offsetz00_3116 = 
(BgL_auxz00_4558-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 316 */
long BgL_modz00_3117;
{ /* ./Ast/alphatize.scm 316 */
int BgL_arg2028z00_3118;
BgL_arg2028z00_3118 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 316 */
long BgL_n2z00_3126;
BgL_n2z00_3126 = 
(long)(BgL_arg2028z00_3118); 
BgL_modz00_3117 = 
(BgL_offsetz00_3116/BgL_n2z00_3126); } } 
{ /* ./Ast/alphatize.scm 316 */
long BgL_restz00_3119;
{ /* ./Ast/alphatize.scm 316 */
int BgL_arg2024z00_3120;
BgL_arg2024z00_3120 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 316 */
long BgL_n2z00_3129;
BgL_n2z00_3129 = 
(long)(BgL_arg2024z00_3120); 
BgL_restz00_3119 = 
(BgL_offsetz00_3116%BgL_n2z00_3129); } } 
{ /* ./Ast/alphatize.scm 316 */

{ /* ./Ast/alphatize.scm 316 */
obj_t BgL_bucketz00_3121;
{ /* ./Ast/alphatize.scm 316 */
int BgL_kz00_3131;
BgL_kz00_3131 = 
(int)(BgL_modz00_3117); 
BgL_bucketz00_3121 = 
VECTOR_REF(BgL_arg2017z00_3112,BgL_kz00_3131); } 
{ /* ./Ast/alphatize.scm 316 */
int BgL_kz00_3133;
BgL_kz00_3133 = 
(int)(BgL_restz00_3119); 
BgL_method2843z00_3109 = 
VECTOR_REF(BgL_bucketz00_3121,BgL_kz00_3133); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 316 */
obj_t BgL_auxz00_4571;
BgL_auxz00_4571 = 
PROCEDURE_ENTRY(BgL_method2843z00_3109)(BgL_method2843z00_3109, 
(obj_t)(BgL_arg4245z00_1657), BEOA); 
BgL_res4840z00_3134 = 
(BgL_nodez00_bglt)(BgL_auxz00_4571); } } 
BgL_arg4236z00_1654 = BgL_res4840z00_3134; } } 
{ /* ./Ast/alphatize.scm 317 */
BgL_nodez00_bglt BgL_arg4249z00_1658;
BgL_arg4249z00_1658 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1645))->BgL_truez00); 
{ /* ./Ast/alphatize.scm 317 */
BgL_nodez00_bglt BgL_res4843z00_3162;
{ /* ./Ast/alphatize.scm 317 */
obj_t BgL_method2843z00_3137;
{ /* ./Ast/alphatize.scm 317 */
BgL_objectz00_bglt BgL_objz00_3138;
BgL_objz00_3138 = 
(BgL_objectz00_bglt)(BgL_arg4249z00_1658); 
{ /* ./Ast/alphatize.scm 317 */
long BgL_objzd2classzd2numz00_3139;
BgL_objzd2classzd2numz00_3139 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3138); 
{ /* ./Ast/alphatize.scm 317 */
obj_t BgL_arg2017z00_3140;
{ /* ./Ast/alphatize.scm 317 */
int BgL_auxz00_4579;
BgL_auxz00_4579 = 
(int)(((long)1)); 
BgL_arg2017z00_3140 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4579); } 
{ /* ./Ast/alphatize.scm 317 */
int BgL_offsetz00_3143;
BgL_offsetz00_3143 = 
(int)(BgL_objzd2classzd2numz00_3139); 
{ /* ./Ast/alphatize.scm 317 */
long BgL_offsetz00_3144;
{ /* ./Ast/alphatize.scm 317 */
long BgL_auxz00_4583;
BgL_auxz00_4583 = 
(long)(BgL_offsetz00_3143); 
BgL_offsetz00_3144 = 
(BgL_auxz00_4583-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 317 */
long BgL_modz00_3145;
{ /* ./Ast/alphatize.scm 317 */
int BgL_arg2028z00_3146;
BgL_arg2028z00_3146 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 317 */
long BgL_n2z00_3154;
BgL_n2z00_3154 = 
(long)(BgL_arg2028z00_3146); 
BgL_modz00_3145 = 
(BgL_offsetz00_3144/BgL_n2z00_3154); } } 
{ /* ./Ast/alphatize.scm 317 */
long BgL_restz00_3147;
{ /* ./Ast/alphatize.scm 317 */
int BgL_arg2024z00_3148;
BgL_arg2024z00_3148 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 317 */
long BgL_n2z00_3157;
BgL_n2z00_3157 = 
(long)(BgL_arg2024z00_3148); 
BgL_restz00_3147 = 
(BgL_offsetz00_3144%BgL_n2z00_3157); } } 
{ /* ./Ast/alphatize.scm 317 */

{ /* ./Ast/alphatize.scm 317 */
obj_t BgL_bucketz00_3149;
{ /* ./Ast/alphatize.scm 317 */
int BgL_kz00_3159;
BgL_kz00_3159 = 
(int)(BgL_modz00_3145); 
BgL_bucketz00_3149 = 
VECTOR_REF(BgL_arg2017z00_3140,BgL_kz00_3159); } 
{ /* ./Ast/alphatize.scm 317 */
int BgL_kz00_3161;
BgL_kz00_3161 = 
(int)(BgL_restz00_3147); 
BgL_method2843z00_3137 = 
VECTOR_REF(BgL_bucketz00_3149,BgL_kz00_3161); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 317 */
obj_t BgL_auxz00_4596;
BgL_auxz00_4596 = 
PROCEDURE_ENTRY(BgL_method2843z00_3137)(BgL_method2843z00_3137, 
(obj_t)(BgL_arg4249z00_1658), BEOA); 
BgL_res4843z00_3162 = 
(BgL_nodez00_bglt)(BgL_auxz00_4596); } } 
BgL_arg4237z00_1655 = BgL_res4843z00_3162; } } 
{ /* ./Ast/alphatize.scm 318 */
BgL_nodez00_bglt BgL_arg4253z00_1659;
BgL_arg4253z00_1659 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1645))->BgL_falsez00); 
{ /* ./Ast/alphatize.scm 318 */
BgL_nodez00_bglt BgL_res4846z00_3190;
{ /* ./Ast/alphatize.scm 318 */
obj_t BgL_method2843z00_3165;
{ /* ./Ast/alphatize.scm 318 */
BgL_objectz00_bglt BgL_objz00_3166;
BgL_objz00_3166 = 
(BgL_objectz00_bglt)(BgL_arg4253z00_1659); 
{ /* ./Ast/alphatize.scm 318 */
long BgL_objzd2classzd2numz00_3167;
BgL_objzd2classzd2numz00_3167 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3166); 
{ /* ./Ast/alphatize.scm 318 */
obj_t BgL_arg2017z00_3168;
{ /* ./Ast/alphatize.scm 318 */
int BgL_auxz00_4604;
BgL_auxz00_4604 = 
(int)(((long)1)); 
BgL_arg2017z00_3168 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4604); } 
{ /* ./Ast/alphatize.scm 318 */
int BgL_offsetz00_3171;
BgL_offsetz00_3171 = 
(int)(BgL_objzd2classzd2numz00_3167); 
{ /* ./Ast/alphatize.scm 318 */
long BgL_offsetz00_3172;
{ /* ./Ast/alphatize.scm 318 */
long BgL_auxz00_4608;
BgL_auxz00_4608 = 
(long)(BgL_offsetz00_3171); 
BgL_offsetz00_3172 = 
(BgL_auxz00_4608-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 318 */
long BgL_modz00_3173;
{ /* ./Ast/alphatize.scm 318 */
int BgL_arg2028z00_3174;
BgL_arg2028z00_3174 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 318 */
long BgL_n2z00_3182;
BgL_n2z00_3182 = 
(long)(BgL_arg2028z00_3174); 
BgL_modz00_3173 = 
(BgL_offsetz00_3172/BgL_n2z00_3182); } } 
{ /* ./Ast/alphatize.scm 318 */
long BgL_restz00_3175;
{ /* ./Ast/alphatize.scm 318 */
int BgL_arg2024z00_3176;
BgL_arg2024z00_3176 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 318 */
long BgL_n2z00_3185;
BgL_n2z00_3185 = 
(long)(BgL_arg2024z00_3176); 
BgL_restz00_3175 = 
(BgL_offsetz00_3172%BgL_n2z00_3185); } } 
{ /* ./Ast/alphatize.scm 318 */

{ /* ./Ast/alphatize.scm 318 */
obj_t BgL_bucketz00_3177;
{ /* ./Ast/alphatize.scm 318 */
int BgL_kz00_3187;
BgL_kz00_3187 = 
(int)(BgL_modz00_3173); 
BgL_bucketz00_3177 = 
VECTOR_REF(BgL_arg2017z00_3168,BgL_kz00_3187); } 
{ /* ./Ast/alphatize.scm 318 */
int BgL_kz00_3189;
BgL_kz00_3189 = 
(int)(BgL_restz00_3175); 
BgL_method2843z00_3165 = 
VECTOR_REF(BgL_bucketz00_3177,BgL_kz00_3189); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 318 */
obj_t BgL_auxz00_4621;
BgL_auxz00_4621 = 
PROCEDURE_ENTRY(BgL_method2843z00_3165)(BgL_method2843z00_3165, 
(obj_t)(BgL_arg4253z00_1659), BEOA); 
BgL_res4846z00_3190 = 
(BgL_nodez00_bglt)(BgL_auxz00_4621); } } 
BgL_arg4238z00_1656 = BgL_res4846z00_3190; } } 
BgL_new2782z00_1649 = 
BGl_makezd2conditionalzd2zzast_nodez00(BgL_arg4232z00_1650, BgL_arg4233z00_1651, BgL_arg4234z00_1652, BgL_arg4235z00_1653, BgL_arg4236z00_1654, BgL_arg4237z00_1655, BgL_arg4238z00_1656); } 
{ /* ./Ast/alphatize.scm 314 */

BgL_auxz00_4542 = BgL_new2782z00_1649; } } 
return 
(obj_t)(BgL_auxz00_4542);} } } 
}



/* do-alphatize-setq2882 */
obj_t BGl_dozd2alphatiza7ezd2setq2882za7zzast_alphatiza7eza7(obj_t BgL_envz00_3765, obj_t BgL_nodez00_3766)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 286 */
{ 
BgL_setqz00_bglt BgL_nodez00_1604;
BgL_nodez00_1604 = 
(BgL_setqz00_bglt)(BgL_nodez00_3766); 
{ /* ./Ast/alphatize.scm 287 */
BgL_varz00_bglt BgL_vz00_1607;
BgL_vz00_1607 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1604))->BgL_varz00); 
{ /* ./Ast/alphatize.scm 287 */
BgL_variablez00_bglt BgL_varz00_1608;
BgL_varz00_1608 = 
(((BgL_varz00_bglt)CREF(BgL_vz00_1607))->BgL_variablez00); 
{ /* ./Ast/alphatize.scm 288 */
obj_t BgL_alphaz00_1609;
BgL_alphaz00_1609 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_1608))->BgL_fastzd2alphazd2); 
{ /* ./Ast/alphatize.scm 289 */

{ /* ./Ast/alphatize.scm 291 */
bool_t BgL_test4163z00_1610;
BgL_test4163z00_1610 = 
(BgL_alphaz00_1609==BUNSPEC); 
if(BgL_test4163z00_1610)
{ /* ./Ast/alphatize.scm 291 */
{ /* ./Ast/alphatize.scm 292 */
obj_t BgL_arg4165z00_1611;obj_t BgL_arg4166z00_1612;
{ /* ./Ast/alphatize.scm 292 */
BgL_nodez00_bglt BgL_obj1560z00_3040;
BgL_obj1560z00_3040 = 
(BgL_nodez00_bglt)(BgL_nodez00_1604); 
BgL_arg4165z00_1611 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3040))->BgL_locz00); } 
BgL_arg4166z00_1612 = 
CNST_TABLE_REF(((long)1)); 
BGl_usezd2variablez12zc0zzast_sexpz00(BgL_varz00_1608, BgL_arg4165z00_1611, BgL_arg4166z00_1612); } 
{ /* ./Ast/alphatize.scm 294 */
BgL_setqz00_bglt BgL_new2774z00_1614;
{ /* ./Ast/alphatize.scm 294 */
obj_t BgL_arg4170z00_1615;BgL_typez00_bglt BgL_arg4171z00_1616;BgL_varz00_bglt BgL_arg4172z00_1617;BgL_nodez00_bglt BgL_arg4173z00_1618;
BgL_arg4170z00_1615 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1604)); 
{ /* ./Ast/alphatize.scm 293 */
BgL_nodez00_bglt BgL_obj1561z00_3041;
BgL_obj1561z00_3041 = 
(BgL_nodez00_bglt)(BgL_nodez00_1604); 
BgL_arg4171z00_1616 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3041))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 295 */
BgL_varz00_bglt BgL_new2776z00_1620;
{ /* ./Ast/alphatize.scm 295 */
obj_t BgL_arg4178z00_1621;BgL_typez00_bglt BgL_arg4179z00_1622;BgL_variablez00_bglt BgL_arg4180z00_1623;
BgL_arg4178z00_1621 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1604)); 
{ /* ./Ast/alphatize.scm 295 */
BgL_nodez00_bglt BgL_obj1561z00_3042;
BgL_obj1561z00_3042 = 
(BgL_nodez00_bglt)(BgL_vz00_1607); 
BgL_arg4179z00_1622 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3042))->BgL_typez00); } 
BgL_arg4180z00_1623 = 
(((BgL_varz00_bglt)CREF(BgL_vz00_1607))->BgL_variablez00); 
BgL_new2776z00_1620 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg4178z00_1621, BgL_arg4179z00_1622, BgL_arg4180z00_1623); } 
{ /* ./Ast/alphatize.scm 295 */

BgL_arg4172z00_1617 = BgL_new2776z00_1620; } } 
{ /* ./Ast/alphatize.scm 296 */
BgL_nodez00_bglt BgL_arg4186z00_1624;
BgL_arg4186z00_1624 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1604))->BgL_valuez00); 
{ /* ./Ast/alphatize.scm 296 */
BgL_nodez00_bglt BgL_res4834z00_3071;
{ /* ./Ast/alphatize.scm 296 */
obj_t BgL_method2843z00_3046;
{ /* ./Ast/alphatize.scm 296 */
BgL_objectz00_bglt BgL_objz00_3047;
BgL_objz00_3047 = 
(BgL_objectz00_bglt)(BgL_arg4186z00_1624); 
{ /* ./Ast/alphatize.scm 296 */
long BgL_objzd2classzd2numz00_3048;
BgL_objzd2classzd2numz00_3048 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3047); 
{ /* ./Ast/alphatize.scm 296 */
obj_t BgL_arg2017z00_3049;
{ /* ./Ast/alphatize.scm 296 */
int BgL_auxz00_4651;
BgL_auxz00_4651 = 
(int)(((long)1)); 
BgL_arg2017z00_3049 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4651); } 
{ /* ./Ast/alphatize.scm 296 */
int BgL_offsetz00_3052;
BgL_offsetz00_3052 = 
(int)(BgL_objzd2classzd2numz00_3048); 
{ /* ./Ast/alphatize.scm 296 */
long BgL_offsetz00_3053;
{ /* ./Ast/alphatize.scm 296 */
long BgL_auxz00_4655;
BgL_auxz00_4655 = 
(long)(BgL_offsetz00_3052); 
BgL_offsetz00_3053 = 
(BgL_auxz00_4655-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 296 */
long BgL_modz00_3054;
{ /* ./Ast/alphatize.scm 296 */
int BgL_arg2028z00_3055;
BgL_arg2028z00_3055 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 296 */
long BgL_n2z00_3063;
BgL_n2z00_3063 = 
(long)(BgL_arg2028z00_3055); 
BgL_modz00_3054 = 
(BgL_offsetz00_3053/BgL_n2z00_3063); } } 
{ /* ./Ast/alphatize.scm 296 */
long BgL_restz00_3056;
{ /* ./Ast/alphatize.scm 296 */
int BgL_arg2024z00_3057;
BgL_arg2024z00_3057 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 296 */
long BgL_n2z00_3066;
BgL_n2z00_3066 = 
(long)(BgL_arg2024z00_3057); 
BgL_restz00_3056 = 
(BgL_offsetz00_3053%BgL_n2z00_3066); } } 
{ /* ./Ast/alphatize.scm 296 */

{ /* ./Ast/alphatize.scm 296 */
obj_t BgL_bucketz00_3058;
{ /* ./Ast/alphatize.scm 296 */
int BgL_kz00_3068;
BgL_kz00_3068 = 
(int)(BgL_modz00_3054); 
BgL_bucketz00_3058 = 
VECTOR_REF(BgL_arg2017z00_3049,BgL_kz00_3068); } 
{ /* ./Ast/alphatize.scm 296 */
int BgL_kz00_3070;
BgL_kz00_3070 = 
(int)(BgL_restz00_3056); 
BgL_method2843z00_3046 = 
VECTOR_REF(BgL_bucketz00_3058,BgL_kz00_3070); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 296 */
obj_t BgL_auxz00_4668;
BgL_auxz00_4668 = 
PROCEDURE_ENTRY(BgL_method2843z00_3046)(BgL_method2843z00_3046, 
(obj_t)(BgL_arg4186z00_1624), BEOA); 
BgL_res4834z00_3071 = 
(BgL_nodez00_bglt)(BgL_auxz00_4668); } } 
BgL_arg4173z00_1618 = BgL_res4834z00_3071; } } 
BgL_new2774z00_1614 = 
BGl_makezd2setqzd2zzast_nodez00(BgL_arg4170z00_1615, BgL_arg4171z00_1616, BgL_arg4172z00_1617, BgL_arg4173z00_1618); } 
{ /* ./Ast/alphatize.scm 293 */

return 
(obj_t)(BgL_new2774z00_1614);} } }  else 
{ /* ./Ast/alphatize.scm 297 */
bool_t BgL_test4189z00_1625;
BgL_test4189z00_1625 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1609, BGl_variablez00zzast_varz00); 
if(BgL_test4189z00_1625)
{ /* ./Ast/alphatize.scm 297 */
{ /* ./Ast/alphatize.scm 298 */
obj_t BgL_arg4191z00_1626;obj_t BgL_arg4192z00_1627;
{ /* ./Ast/alphatize.scm 298 */
BgL_nodez00_bglt BgL_obj1560z00_3073;
BgL_obj1560z00_3073 = 
(BgL_nodez00_bglt)(BgL_nodez00_1604); 
BgL_arg4191z00_1626 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3073))->BgL_locz00); } 
BgL_arg4192z00_1627 = 
CNST_TABLE_REF(((long)1)); 
BGl_usezd2variablez12zc0zzast_sexpz00(
(BgL_variablez00_bglt)(BgL_alphaz00_1609), BgL_arg4191z00_1626, BgL_arg4192z00_1627); } 
{ /* ./Ast/alphatize.scm 300 */
BgL_setqz00_bglt BgL_new2778z00_1629;
{ /* ./Ast/alphatize.scm 300 */
obj_t BgL_arg4196z00_1630;BgL_typez00_bglt BgL_arg4197z00_1631;BgL_varz00_bglt BgL_arg4198z00_1632;BgL_nodez00_bglt BgL_arg4199z00_1633;
BgL_arg4196z00_1630 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1604)); 
{ /* ./Ast/alphatize.scm 299 */
BgL_nodez00_bglt BgL_obj1561z00_3074;
BgL_obj1561z00_3074 = 
(BgL_nodez00_bglt)(BgL_nodez00_1604); 
BgL_arg4197z00_1631 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3074))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 302 */
BgL_varz00_bglt BgL_new2780z00_1635;
{ /* ./Ast/alphatize.scm 302 */
obj_t BgL_arg4204z00_1636;BgL_typez00_bglt BgL_arg4205z00_1637;obj_t BgL_arg4206z00_1638;
BgL_arg4204z00_1636 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1604)); 
{ /* ./Ast/alphatize.scm 301 */
BgL_nodez00_bglt BgL_obj1561z00_3075;
BgL_obj1561z00_3075 = 
(BgL_nodez00_bglt)(BgL_vz00_1607); 
BgL_arg4205z00_1637 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3075))->BgL_typez00); } 
BgL_arg4206z00_1638 = BgL_alphaz00_1609; 
BgL_new2780z00_1635 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg4204z00_1636, BgL_arg4205z00_1637, 
(BgL_variablez00_bglt)(BgL_arg4206z00_1638)); } 
{ /* ./Ast/alphatize.scm 301 */

BgL_arg4198z00_1632 = BgL_new2780z00_1635; } } 
{ /* ./Ast/alphatize.scm 304 */
BgL_nodez00_bglt BgL_arg4211z00_1639;
BgL_arg4211z00_1639 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1604))->BgL_valuez00); 
{ /* ./Ast/alphatize.scm 304 */
BgL_nodez00_bglt BgL_res4837z00_3103;
{ /* ./Ast/alphatize.scm 304 */
obj_t BgL_method2843z00_3078;
{ /* ./Ast/alphatize.scm 304 */
BgL_objectz00_bglt BgL_objz00_3079;
BgL_objz00_3079 = 
(BgL_objectz00_bglt)(BgL_arg4211z00_1639); 
{ /* ./Ast/alphatize.scm 304 */
long BgL_objzd2classzd2numz00_3080;
BgL_objzd2classzd2numz00_3080 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3079); 
{ /* ./Ast/alphatize.scm 304 */
obj_t BgL_arg2017z00_3081;
{ /* ./Ast/alphatize.scm 304 */
int BgL_auxz00_4695;
BgL_auxz00_4695 = 
(int)(((long)1)); 
BgL_arg2017z00_3081 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4695); } 
{ /* ./Ast/alphatize.scm 304 */
int BgL_offsetz00_3084;
BgL_offsetz00_3084 = 
(int)(BgL_objzd2classzd2numz00_3080); 
{ /* ./Ast/alphatize.scm 304 */
long BgL_offsetz00_3085;
{ /* ./Ast/alphatize.scm 304 */
long BgL_auxz00_4699;
BgL_auxz00_4699 = 
(long)(BgL_offsetz00_3084); 
BgL_offsetz00_3085 = 
(BgL_auxz00_4699-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 304 */
long BgL_modz00_3086;
{ /* ./Ast/alphatize.scm 304 */
int BgL_arg2028z00_3087;
BgL_arg2028z00_3087 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 304 */
long BgL_n2z00_3095;
BgL_n2z00_3095 = 
(long)(BgL_arg2028z00_3087); 
BgL_modz00_3086 = 
(BgL_offsetz00_3085/BgL_n2z00_3095); } } 
{ /* ./Ast/alphatize.scm 304 */
long BgL_restz00_3088;
{ /* ./Ast/alphatize.scm 304 */
int BgL_arg2024z00_3089;
BgL_arg2024z00_3089 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 304 */
long BgL_n2z00_3098;
BgL_n2z00_3098 = 
(long)(BgL_arg2024z00_3089); 
BgL_restz00_3088 = 
(BgL_offsetz00_3085%BgL_n2z00_3098); } } 
{ /* ./Ast/alphatize.scm 304 */

{ /* ./Ast/alphatize.scm 304 */
obj_t BgL_bucketz00_3090;
{ /* ./Ast/alphatize.scm 304 */
int BgL_kz00_3100;
BgL_kz00_3100 = 
(int)(BgL_modz00_3086); 
BgL_bucketz00_3090 = 
VECTOR_REF(BgL_arg2017z00_3081,BgL_kz00_3100); } 
{ /* ./Ast/alphatize.scm 304 */
int BgL_kz00_3102;
BgL_kz00_3102 = 
(int)(BgL_restz00_3088); 
BgL_method2843z00_3078 = 
VECTOR_REF(BgL_bucketz00_3090,BgL_kz00_3102); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 304 */
obj_t BgL_auxz00_4712;
BgL_auxz00_4712 = 
PROCEDURE_ENTRY(BgL_method2843z00_3078)(BgL_method2843z00_3078, 
(obj_t)(BgL_arg4211z00_1639), BEOA); 
BgL_res4837z00_3103 = 
(BgL_nodez00_bglt)(BgL_auxz00_4712); } } 
BgL_arg4199z00_1633 = BgL_res4837z00_3103; } } 
BgL_new2778z00_1629 = 
BGl_makezd2setqzd2zzast_nodez00(BgL_arg4196z00_1630, BgL_arg4197z00_1631, BgL_arg4198z00_1632, BgL_arg4199z00_1633); } 
{ /* ./Ast/alphatize.scm 299 */

return 
(obj_t)(BgL_new2778z00_1629);} } }  else 
{ /* ./Ast/alphatize.scm 297 */
{ /* ./Ast/alphatize.scm 306 */
obj_t BgL_arg4217z00_1642;
BgL_arg4217z00_1642 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1604)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string5899z00zzast_alphatiza7eza7, BGl_string5900z00zzast_alphatiza7eza7, BgL_arg4217z00_1642);} } } } } } } } } } 
}



/* do-alphatize-cast2880 */
obj_t BGl_dozd2alphatiza7ezd2cast2880za7zzast_alphatiza7eza7(obj_t BgL_envz00_3767, obj_t BgL_nodez00_3768)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 278 */
{ 
BgL_castz00_bglt BgL_nodez00_1593;
{ /* ./Ast/alphatize.scm 279 */
BgL_castz00_bglt BgL_auxz00_4723;
BgL_nodez00_1593 = 
(BgL_castz00_bglt)(BgL_nodez00_3768); 
{ /* ./Ast/alphatize.scm 280 */
BgL_castz00_bglt BgL_new2772z00_1597;
{ /* ./Ast/alphatize.scm 280 */
obj_t BgL_arg4147z00_1598;BgL_typez00_bglt BgL_arg4148z00_1599;BgL_nodez00_bglt BgL_arg4149z00_1600;
BgL_arg4147z00_1598 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1593)); 
{ /* ./Ast/alphatize.scm 279 */
BgL_nodez00_bglt BgL_obj1561z00_3008;
BgL_obj1561z00_3008 = 
(BgL_nodez00_bglt)(BgL_nodez00_1593); 
BgL_arg4148z00_1599 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3008))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 281 */
BgL_nodez00_bglt BgL_arg4154z00_1601;
BgL_arg4154z00_1601 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1593))->BgL_argz00); 
{ /* ./Ast/alphatize.scm 281 */
BgL_nodez00_bglt BgL_res4831z00_3036;
{ /* ./Ast/alphatize.scm 281 */
obj_t BgL_method2843z00_3011;
{ /* ./Ast/alphatize.scm 281 */
BgL_objectz00_bglt BgL_objz00_3012;
BgL_objz00_3012 = 
(BgL_objectz00_bglt)(BgL_arg4154z00_1601); 
{ /* ./Ast/alphatize.scm 281 */
long BgL_objzd2classzd2numz00_3013;
BgL_objzd2classzd2numz00_3013 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3012); 
{ /* ./Ast/alphatize.scm 281 */
obj_t BgL_arg2017z00_3014;
{ /* ./Ast/alphatize.scm 281 */
int BgL_auxz00_4731;
BgL_auxz00_4731 = 
(int)(((long)1)); 
BgL_arg2017z00_3014 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4731); } 
{ /* ./Ast/alphatize.scm 281 */
int BgL_offsetz00_3017;
BgL_offsetz00_3017 = 
(int)(BgL_objzd2classzd2numz00_3013); 
{ /* ./Ast/alphatize.scm 281 */
long BgL_offsetz00_3018;
{ /* ./Ast/alphatize.scm 281 */
long BgL_auxz00_4735;
BgL_auxz00_4735 = 
(long)(BgL_offsetz00_3017); 
BgL_offsetz00_3018 = 
(BgL_auxz00_4735-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 281 */
long BgL_modz00_3019;
{ /* ./Ast/alphatize.scm 281 */
int BgL_arg2028z00_3020;
BgL_arg2028z00_3020 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 281 */
long BgL_n2z00_3028;
BgL_n2z00_3028 = 
(long)(BgL_arg2028z00_3020); 
BgL_modz00_3019 = 
(BgL_offsetz00_3018/BgL_n2z00_3028); } } 
{ /* ./Ast/alphatize.scm 281 */
long BgL_restz00_3021;
{ /* ./Ast/alphatize.scm 281 */
int BgL_arg2024z00_3022;
BgL_arg2024z00_3022 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 281 */
long BgL_n2z00_3031;
BgL_n2z00_3031 = 
(long)(BgL_arg2024z00_3022); 
BgL_restz00_3021 = 
(BgL_offsetz00_3018%BgL_n2z00_3031); } } 
{ /* ./Ast/alphatize.scm 281 */

{ /* ./Ast/alphatize.scm 281 */
obj_t BgL_bucketz00_3023;
{ /* ./Ast/alphatize.scm 281 */
int BgL_kz00_3033;
BgL_kz00_3033 = 
(int)(BgL_modz00_3019); 
BgL_bucketz00_3023 = 
VECTOR_REF(BgL_arg2017z00_3014,BgL_kz00_3033); } 
{ /* ./Ast/alphatize.scm 281 */
int BgL_kz00_3035;
BgL_kz00_3035 = 
(int)(BgL_restz00_3021); 
BgL_method2843z00_3011 = 
VECTOR_REF(BgL_bucketz00_3023,BgL_kz00_3035); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 281 */
obj_t BgL_auxz00_4748;
BgL_auxz00_4748 = 
PROCEDURE_ENTRY(BgL_method2843z00_3011)(BgL_method2843z00_3011, 
(obj_t)(BgL_arg4154z00_1601), BEOA); 
BgL_res4831z00_3036 = 
(BgL_nodez00_bglt)(BgL_auxz00_4748); } } 
BgL_arg4149z00_1600 = BgL_res4831z00_3036; } } 
BgL_new2772z00_1597 = 
BGl_makezd2castzd2zzast_nodez00(BgL_arg4147z00_1598, BgL_arg4148z00_1599, BgL_arg4149z00_1600); } 
{ /* ./Ast/alphatize.scm 279 */

BgL_auxz00_4723 = BgL_new2772z00_1597; } } 
return 
(obj_t)(BgL_auxz00_4723);} } } 
}



/* do-alphatize-isa2878 */
obj_t BGl_dozd2alphatiza7ezd2isa2878za7zzast_alphatiza7eza7(obj_t BgL_envz00_3769, obj_t BgL_nodez00_3770)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 270 */
{ 
BgL_isaz00_bglt BgL_nodez00_1575;
{ /* ./Ast/alphatize.scm 271 */
BgL_isaz00_bglt BgL_auxz00_4756;
BgL_nodez00_1575 = 
(BgL_isaz00_bglt)(BgL_nodez00_3770); 
{ /* ./Ast/alphatize.scm 273 */
BgL_isaz00_bglt BgL_new2770z00_1579;
{ /* ./Ast/alphatize.scm 273 */
obj_t BgL_arg4113z00_1580;BgL_typez00_bglt BgL_arg4114z00_1581;obj_t BgL_arg4115z00_1582;obj_t BgL_arg4116z00_1583;obj_t BgL_arg4118z00_1584;obj_t BgL_arg4119z00_1585;BgL_typez00_bglt BgL_arg4120z00_1586;
BgL_arg4113z00_1580 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1575)); 
{ /* ./Ast/alphatize.scm 271 */
BgL_nodez00_bglt BgL_obj1561z00_2972;
BgL_obj1561z00_2972 = 
(BgL_nodez00_bglt)(BgL_nodez00_1575); 
BgL_arg4114z00_1581 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2972))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 271 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2973;
BgL_obj1578z00_2973 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1575); 
BgL_arg4115z00_1582 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2973))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 271 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2974;
BgL_obj1581z00_2974 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1575); 
BgL_arg4116z00_1583 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2974))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 272 */
BgL_nodez00_bglt BgL_arg4127z00_1587;
{ /* ./Ast/alphatize.scm 272 */
obj_t BgL_arg4132z00_1589;
{ /* ./Ast/alphatize.scm 272 */
obj_t BgL_auxz00_4765;
{ /* ./Ast/alphatize.scm 272 */
BgL_externz00_bglt BgL_obj1817z00_2975;
BgL_obj1817z00_2975 = 
(BgL_externz00_bglt)(BgL_nodez00_1575); 
BgL_auxz00_4765 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2975))->BgL_exprza2za2); } 
BgL_arg4132z00_1589 = 
CAR(BgL_auxz00_4765); } 
{ /* ./Ast/alphatize.scm 272 */
BgL_nodez00_bglt BgL_res4827z00_3003;
{ /* ./Ast/alphatize.scm 272 */
BgL_nodez00_bglt BgL_nodez00_2977;
BgL_nodez00_2977 = 
(BgL_nodez00_bglt)(BgL_arg4132z00_1589); 
{ /* ./Ast/alphatize.scm 272 */
obj_t BgL_method2843z00_2978;
{ /* ./Ast/alphatize.scm 272 */
BgL_objectz00_bglt BgL_objz00_2979;
BgL_objz00_2979 = 
(BgL_objectz00_bglt)(BgL_nodez00_2977); 
{ /* ./Ast/alphatize.scm 272 */
long BgL_objzd2classzd2numz00_2980;
BgL_objzd2classzd2numz00_2980 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2979); 
{ /* ./Ast/alphatize.scm 272 */
obj_t BgL_arg2017z00_2981;
{ /* ./Ast/alphatize.scm 272 */
int BgL_auxz00_4772;
BgL_auxz00_4772 = 
(int)(((long)1)); 
BgL_arg2017z00_2981 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4772); } 
{ /* ./Ast/alphatize.scm 272 */
int BgL_offsetz00_2984;
BgL_offsetz00_2984 = 
(int)(BgL_objzd2classzd2numz00_2980); 
{ /* ./Ast/alphatize.scm 272 */
long BgL_offsetz00_2985;
{ /* ./Ast/alphatize.scm 272 */
long BgL_auxz00_4776;
BgL_auxz00_4776 = 
(long)(BgL_offsetz00_2984); 
BgL_offsetz00_2985 = 
(BgL_auxz00_4776-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 272 */
long BgL_modz00_2986;
{ /* ./Ast/alphatize.scm 272 */
int BgL_arg2028z00_2987;
BgL_arg2028z00_2987 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 272 */
long BgL_n2z00_2995;
BgL_n2z00_2995 = 
(long)(BgL_arg2028z00_2987); 
BgL_modz00_2986 = 
(BgL_offsetz00_2985/BgL_n2z00_2995); } } 
{ /* ./Ast/alphatize.scm 272 */
long BgL_restz00_2988;
{ /* ./Ast/alphatize.scm 272 */
int BgL_arg2024z00_2989;
BgL_arg2024z00_2989 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 272 */
long BgL_n2z00_2998;
BgL_n2z00_2998 = 
(long)(BgL_arg2024z00_2989); 
BgL_restz00_2988 = 
(BgL_offsetz00_2985%BgL_n2z00_2998); } } 
{ /* ./Ast/alphatize.scm 272 */

{ /* ./Ast/alphatize.scm 272 */
obj_t BgL_bucketz00_2990;
{ /* ./Ast/alphatize.scm 272 */
int BgL_kz00_3000;
BgL_kz00_3000 = 
(int)(BgL_modz00_2986); 
BgL_bucketz00_2990 = 
VECTOR_REF(BgL_arg2017z00_2981,BgL_kz00_3000); } 
{ /* ./Ast/alphatize.scm 272 */
int BgL_kz00_3002;
BgL_kz00_3002 = 
(int)(BgL_restz00_2988); 
BgL_method2843z00_2978 = 
VECTOR_REF(BgL_bucketz00_2990,BgL_kz00_3002); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 272 */
obj_t BgL_auxz00_4789;
BgL_auxz00_4789 = 
PROCEDURE_ENTRY(BgL_method2843z00_2978)(BgL_method2843z00_2978, 
(obj_t)(BgL_nodez00_2977), BEOA); 
BgL_res4827z00_3003 = 
(BgL_nodez00_bglt)(BgL_auxz00_4789); } } } 
BgL_arg4127z00_1587 = BgL_res4827z00_3003; } } 
{ /* ./Ast/alphatize.scm 272 */
obj_t BgL_list4129z00_1588;
{ /* ./Ast/alphatize.scm 272 */
obj_t BgL_auxz00_4794;
BgL_auxz00_4794 = 
(obj_t)(BgL_arg4127z00_1587); 
BgL_list4129z00_1588 = 
MAKE_PAIR(BgL_auxz00_4794, BNIL); } 
BgL_arg4118z00_1584 = BgL_list4129z00_1588; } } 
{ /* ./Ast/alphatize.scm 271 */
BgL_externz00_bglt BgL_obj1820z00_3006;
BgL_obj1820z00_3006 = 
(BgL_externz00_bglt)(BgL_nodez00_1575); 
BgL_arg4119z00_1585 = 
(((BgL_externz00_bglt)CREF(BgL_obj1820z00_3006))->BgL_effectz00); } 
BgL_arg4120z00_1586 = 
(((BgL_isaz00_bglt)CREF(BgL_nodez00_1575))->BgL_classz00); 
BgL_new2770z00_1579 = 
BGl_makezd2isazd2zzast_nodez00(BgL_arg4113z00_1580, BgL_arg4114z00_1581, BgL_arg4115z00_1582, BgL_arg4116z00_1583, BgL_arg4118z00_1584, BgL_arg4119z00_1585, BgL_arg4120z00_1586); } 
{ /* ./Ast/alphatize.scm 271 */

BgL_auxz00_4756 = BgL_new2770z00_1579; } } 
return 
(obj_t)(BgL_auxz00_4756);} } } 
}



/* do-alphatize-valloc2876 */
obj_t BGl_dozd2alphatiza7ezd2valloc2876za7zzast_alphatiza7eza7(obj_t BgL_envz00_3771, obj_t BgL_nodez00_3772)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 262 */
{ 
BgL_vallocz00_bglt BgL_nodez00_1543;
{ /* ./Ast/alphatize.scm 263 */
BgL_vallocz00_bglt BgL_auxz00_4803;
BgL_nodez00_1543 = 
(BgL_vallocz00_bglt)(BgL_nodez00_3772); 
{ /* ./Ast/alphatize.scm 264 */
BgL_vallocz00_bglt BgL_new2763z00_1547;
{ /* ./Ast/alphatize.scm 264 */
obj_t BgL_arg4058z00_1548;BgL_typez00_bglt BgL_arg4059z00_1549;obj_t BgL_arg4060z00_1550;obj_t BgL_arg4061z00_1551;obj_t BgL_arg4062z00_1552;obj_t BgL_arg4063z00_1553;obj_t BgL_arg4064z00_1554;BgL_typez00_bglt BgL_arg4065z00_1555;BgL_typez00_bglt BgL_arg4066z00_1556;
BgL_arg4058z00_1548 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1543)); 
{ /* ./Ast/alphatize.scm 263 */
BgL_nodez00_bglt BgL_obj1561z00_2898;
BgL_obj1561z00_2898 = 
(BgL_nodez00_bglt)(BgL_nodez00_1543); 
BgL_arg4059z00_1549 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2898))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 263 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2899;
BgL_obj1578z00_2899 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1543); 
BgL_arg4060z00_1550 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2899))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 263 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2900;
BgL_obj1581z00_2900 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1543); 
BgL_arg4061z00_1551 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2900))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_l2764z00_1557;
{ /* ./Ast/alphatize.scm 265 */
BgL_externz00_bglt BgL_obj1817z00_2901;
BgL_obj1817z00_2901 = 
(BgL_externz00_bglt)(BgL_nodez00_1543); 
BgL_l2764z00_1557 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2901))->BgL_exprza2za2); } 
{ /* ./Ast/alphatize.scm 265 */
bool_t BgL_test4072z00_1558;
BgL_test4072z00_1558 = 
NULLP(BgL_l2764z00_1557); 
if(BgL_test4072z00_1558)
{ /* ./Ast/alphatize.scm 265 */
BgL_arg4062z00_1552 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_head2766z00_1559;
{ /* ./Ast/alphatize.scm 265 */
BgL_nodez00_bglt BgL_arg4093z00_1570;
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_arg4097z00_1572;
BgL_arg4097z00_1572 = 
CAR(BgL_l2764z00_1557); 
{ /* ./Ast/alphatize.scm 265 */
BgL_nodez00_bglt BgL_res4821z00_2930;
{ /* ./Ast/alphatize.scm 265 */
BgL_nodez00_bglt BgL_nodez00_2904;
BgL_nodez00_2904 = 
(BgL_nodez00_bglt)(BgL_arg4097z00_1572); 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_method2843z00_2905;
{ /* ./Ast/alphatize.scm 265 */
BgL_objectz00_bglt BgL_objz00_2906;
BgL_objz00_2906 = 
(BgL_objectz00_bglt)(BgL_nodez00_2904); 
{ /* ./Ast/alphatize.scm 265 */
long BgL_objzd2classzd2numz00_2907;
BgL_objzd2classzd2numz00_2907 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2906); 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_arg2017z00_2908;
{ /* ./Ast/alphatize.scm 265 */
int BgL_auxz00_4820;
BgL_auxz00_4820 = 
(int)(((long)1)); 
BgL_arg2017z00_2908 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4820); } 
{ /* ./Ast/alphatize.scm 265 */
int BgL_offsetz00_2911;
BgL_offsetz00_2911 = 
(int)(BgL_objzd2classzd2numz00_2907); 
{ /* ./Ast/alphatize.scm 265 */
long BgL_offsetz00_2912;
{ /* ./Ast/alphatize.scm 265 */
long BgL_auxz00_4824;
BgL_auxz00_4824 = 
(long)(BgL_offsetz00_2911); 
BgL_offsetz00_2912 = 
(BgL_auxz00_4824-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 265 */
long BgL_modz00_2913;
{ /* ./Ast/alphatize.scm 265 */
int BgL_arg2028z00_2914;
BgL_arg2028z00_2914 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 265 */
long BgL_n2z00_2922;
BgL_n2z00_2922 = 
(long)(BgL_arg2028z00_2914); 
BgL_modz00_2913 = 
(BgL_offsetz00_2912/BgL_n2z00_2922); } } 
{ /* ./Ast/alphatize.scm 265 */
long BgL_restz00_2915;
{ /* ./Ast/alphatize.scm 265 */
int BgL_arg2024z00_2916;
BgL_arg2024z00_2916 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 265 */
long BgL_n2z00_2925;
BgL_n2z00_2925 = 
(long)(BgL_arg2024z00_2916); 
BgL_restz00_2915 = 
(BgL_offsetz00_2912%BgL_n2z00_2925); } } 
{ /* ./Ast/alphatize.scm 265 */

{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_bucketz00_2917;
{ /* ./Ast/alphatize.scm 265 */
int BgL_kz00_2927;
BgL_kz00_2927 = 
(int)(BgL_modz00_2913); 
BgL_bucketz00_2917 = 
VECTOR_REF(BgL_arg2017z00_2908,BgL_kz00_2927); } 
{ /* ./Ast/alphatize.scm 265 */
int BgL_kz00_2929;
BgL_kz00_2929 = 
(int)(BgL_restz00_2915); 
BgL_method2843z00_2905 = 
VECTOR_REF(BgL_bucketz00_2917,BgL_kz00_2929); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_auxz00_4837;
BgL_auxz00_4837 = 
PROCEDURE_ENTRY(BgL_method2843z00_2905)(BgL_method2843z00_2905, 
(obj_t)(BgL_nodez00_2904), BEOA); 
BgL_res4821z00_2930 = 
(BgL_nodez00_bglt)(BgL_auxz00_4837); } } } 
BgL_arg4093z00_1570 = BgL_res4821z00_2930; } } 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_obj1z00_2931;
BgL_obj1z00_2931 = 
(obj_t)(BgL_arg4093z00_1570); 
BgL_head2766z00_1559 = 
MAKE_PAIR(BgL_obj1z00_2931, BNIL); } } 
{ 
obj_t BgL_l2764z00_1560;obj_t BgL_tail2767z00_1561;
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_arg4074z00_1563;
BgL_arg4074z00_1563 = 
CDR(BgL_l2764z00_1557); 
BgL_l2764z00_1560 = BgL_arg4074z00_1563; 
BgL_tail2767z00_1561 = BgL_head2766z00_1559; 
BgL_map2765z00_1562:
{ /* ./Ast/alphatize.scm 265 */
bool_t BgL_test4077z00_1564;
BgL_test4077z00_1564 = 
NULLP(BgL_l2764z00_1560); 
if(BgL_test4077z00_1564)
{ /* ./Ast/alphatize.scm 265 */
BgL_arg4062z00_1552 = BgL_head2766z00_1559; }  else 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_newtail2768z00_1565;
{ /* ./Ast/alphatize.scm 265 */
BgL_nodez00_bglt BgL_arg4084z00_1567;
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_arg4088z00_1569;
BgL_arg4088z00_1569 = 
CAR(BgL_l2764z00_1560); 
{ /* ./Ast/alphatize.scm 265 */
BgL_nodez00_bglt BgL_res4824z00_2962;
{ /* ./Ast/alphatize.scm 265 */
BgL_nodez00_bglt BgL_nodez00_2936;
BgL_nodez00_2936 = 
(BgL_nodez00_bglt)(BgL_arg4088z00_1569); 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_method2843z00_2937;
{ /* ./Ast/alphatize.scm 265 */
BgL_objectz00_bglt BgL_objz00_2938;
BgL_objz00_2938 = 
(BgL_objectz00_bglt)(BgL_nodez00_2936); 
{ /* ./Ast/alphatize.scm 265 */
long BgL_objzd2classzd2numz00_2939;
BgL_objzd2classzd2numz00_2939 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2938); 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_arg2017z00_2940;
{ /* ./Ast/alphatize.scm 265 */
int BgL_auxz00_4851;
BgL_auxz00_4851 = 
(int)(((long)1)); 
BgL_arg2017z00_2940 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4851); } 
{ /* ./Ast/alphatize.scm 265 */
int BgL_offsetz00_2943;
BgL_offsetz00_2943 = 
(int)(BgL_objzd2classzd2numz00_2939); 
{ /* ./Ast/alphatize.scm 265 */
long BgL_offsetz00_2944;
{ /* ./Ast/alphatize.scm 265 */
long BgL_auxz00_4855;
BgL_auxz00_4855 = 
(long)(BgL_offsetz00_2943); 
BgL_offsetz00_2944 = 
(BgL_auxz00_4855-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 265 */
long BgL_modz00_2945;
{ /* ./Ast/alphatize.scm 265 */
int BgL_arg2028z00_2946;
BgL_arg2028z00_2946 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 265 */
long BgL_n2z00_2954;
BgL_n2z00_2954 = 
(long)(BgL_arg2028z00_2946); 
BgL_modz00_2945 = 
(BgL_offsetz00_2944/BgL_n2z00_2954); } } 
{ /* ./Ast/alphatize.scm 265 */
long BgL_restz00_2947;
{ /* ./Ast/alphatize.scm 265 */
int BgL_arg2024z00_2948;
BgL_arg2024z00_2948 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 265 */
long BgL_n2z00_2957;
BgL_n2z00_2957 = 
(long)(BgL_arg2024z00_2948); 
BgL_restz00_2947 = 
(BgL_offsetz00_2944%BgL_n2z00_2957); } } 
{ /* ./Ast/alphatize.scm 265 */

{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_bucketz00_2949;
{ /* ./Ast/alphatize.scm 265 */
int BgL_kz00_2959;
BgL_kz00_2959 = 
(int)(BgL_modz00_2945); 
BgL_bucketz00_2949 = 
VECTOR_REF(BgL_arg2017z00_2940,BgL_kz00_2959); } 
{ /* ./Ast/alphatize.scm 265 */
int BgL_kz00_2961;
BgL_kz00_2961 = 
(int)(BgL_restz00_2947); 
BgL_method2843z00_2937 = 
VECTOR_REF(BgL_bucketz00_2949,BgL_kz00_2961); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_auxz00_4868;
BgL_auxz00_4868 = 
PROCEDURE_ENTRY(BgL_method2843z00_2937)(BgL_method2843z00_2937, 
(obj_t)(BgL_nodez00_2936), BEOA); 
BgL_res4824z00_2962 = 
(BgL_nodez00_bglt)(BgL_auxz00_4868); } } } 
BgL_arg4084z00_1567 = BgL_res4824z00_2962; } } 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_obj1z00_2963;
BgL_obj1z00_2963 = 
(obj_t)(BgL_arg4084z00_1567); 
BgL_newtail2768z00_1565 = 
MAKE_PAIR(BgL_obj1z00_2963, BNIL); } } 
SET_CDR(BgL_tail2767z00_1561, BgL_newtail2768z00_1565); 
{ /* ./Ast/alphatize.scm 265 */
obj_t BgL_arg4080z00_1566;
BgL_arg4080z00_1566 = 
CDR(BgL_l2764z00_1560); 
{ 
obj_t BgL_tail2767z00_4878;obj_t BgL_l2764z00_4877;
BgL_l2764z00_4877 = BgL_arg4080z00_1566; 
BgL_tail2767z00_4878 = BgL_newtail2768z00_1565; 
BgL_tail2767z00_1561 = BgL_tail2767z00_4878; 
BgL_l2764z00_1560 = BgL_l2764z00_4877; 
goto BgL_map2765z00_1562;} } } } } } } } } 
{ /* ./Ast/alphatize.scm 263 */
BgL_externz00_bglt BgL_obj1820z00_2968;
BgL_obj1820z00_2968 = 
(BgL_externz00_bglt)(BgL_nodez00_1543); 
BgL_arg4063z00_1553 = 
(((BgL_externz00_bglt)CREF(BgL_obj1820z00_2968))->BgL_effectz00); } 
BgL_arg4064z00_1554 = 
(((BgL_vallocz00_bglt)CREF(BgL_nodez00_1543))->BgL_czd2heapzd2formatz00); 
BgL_arg4065z00_1555 = 
(((BgL_vallocz00_bglt)CREF(BgL_nodez00_1543))->BgL_ftypez00); 
BgL_arg4066z00_1556 = 
(((BgL_vallocz00_bglt)CREF(BgL_nodez00_1543))->BgL_otypez00); 
BgL_new2763z00_1547 = 
BGl_makezd2valloczd2zzast_nodez00(BgL_arg4058z00_1548, BgL_arg4059z00_1549, BgL_arg4060z00_1550, BgL_arg4061z00_1551, BgL_arg4062z00_1552, BgL_arg4063z00_1553, BgL_arg4064z00_1554, BgL_arg4065z00_1555, BgL_arg4066z00_1556); } 
{ /* ./Ast/alphatize.scm 263 */

BgL_auxz00_4803 = BgL_new2763z00_1547; } } 
return 
(obj_t)(BgL_auxz00_4803);} } } 
}



/* do-alphatize-vset!2874 */
obj_t BGl_dozd2alphatiza7ezd2vsetz122874zb5zzast_alphatiza7eza7(obj_t BgL_envz00_3773, obj_t BgL_nodez00_3774)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 254 */
{ 
BgL_vsetz12z12_bglt BgL_nodez00_1510;
{ /* ./Ast/alphatize.scm 255 */
BgL_vsetz12z12_bglt BgL_auxz00_4887;
BgL_nodez00_1510 = 
(BgL_vsetz12z12_bglt)(BgL_nodez00_3774); 
{ /* ./Ast/alphatize.scm 256 */
BgL_vsetz12z12_bglt BgL_new2756z00_1514;
{ /* ./Ast/alphatize.scm 256 */
obj_t BgL_arg4001z00_1515;BgL_typez00_bglt BgL_arg4002z00_1516;obj_t BgL_arg4003z00_1517;obj_t BgL_arg4004z00_1518;obj_t BgL_arg4005z00_1519;obj_t BgL_arg4006z00_1520;obj_t BgL_arg4007z00_1521;BgL_typez00_bglt BgL_arg4008z00_1522;BgL_typez00_bglt BgL_arg4009z00_1523;BgL_typez00_bglt BgL_arg4010z00_1524;
BgL_arg4001z00_1515 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1510)); 
{ /* ./Ast/alphatize.scm 255 */
BgL_nodez00_bglt BgL_obj1561z00_2823;
BgL_obj1561z00_2823 = 
(BgL_nodez00_bglt)(BgL_nodez00_1510); 
BgL_arg4002z00_1516 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2823))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 255 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2824;
BgL_obj1578z00_2824 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1510); 
BgL_arg4003z00_1517 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2824))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 255 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2825;
BgL_obj1581z00_2825 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1510); 
BgL_arg4004z00_1518 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2825))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_l2757z00_1525;
{ /* ./Ast/alphatize.scm 257 */
BgL_externz00_bglt BgL_obj1817z00_2826;
BgL_obj1817z00_2826 = 
(BgL_externz00_bglt)(BgL_nodez00_1510); 
BgL_l2757z00_1525 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2826))->BgL_exprza2za2); } 
{ /* ./Ast/alphatize.scm 257 */
bool_t BgL_test4016z00_1526;
BgL_test4016z00_1526 = 
NULLP(BgL_l2757z00_1525); 
if(BgL_test4016z00_1526)
{ /* ./Ast/alphatize.scm 257 */
BgL_arg4005z00_1519 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_head2759z00_1527;
{ /* ./Ast/alphatize.scm 257 */
BgL_nodez00_bglt BgL_arg4037z00_1538;
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_arg4041z00_1540;
BgL_arg4041z00_1540 = 
CAR(BgL_l2757z00_1525); 
{ /* ./Ast/alphatize.scm 257 */
BgL_nodez00_bglt BgL_res4815z00_2855;
{ /* ./Ast/alphatize.scm 257 */
BgL_nodez00_bglt BgL_nodez00_2829;
BgL_nodez00_2829 = 
(BgL_nodez00_bglt)(BgL_arg4041z00_1540); 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_method2843z00_2830;
{ /* ./Ast/alphatize.scm 257 */
BgL_objectz00_bglt BgL_objz00_2831;
BgL_objz00_2831 = 
(BgL_objectz00_bglt)(BgL_nodez00_2829); 
{ /* ./Ast/alphatize.scm 257 */
long BgL_objzd2classzd2numz00_2832;
BgL_objzd2classzd2numz00_2832 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2831); 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_arg2017z00_2833;
{ /* ./Ast/alphatize.scm 257 */
int BgL_auxz00_4904;
BgL_auxz00_4904 = 
(int)(((long)1)); 
BgL_arg2017z00_2833 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4904); } 
{ /* ./Ast/alphatize.scm 257 */
int BgL_offsetz00_2836;
BgL_offsetz00_2836 = 
(int)(BgL_objzd2classzd2numz00_2832); 
{ /* ./Ast/alphatize.scm 257 */
long BgL_offsetz00_2837;
{ /* ./Ast/alphatize.scm 257 */
long BgL_auxz00_4908;
BgL_auxz00_4908 = 
(long)(BgL_offsetz00_2836); 
BgL_offsetz00_2837 = 
(BgL_auxz00_4908-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 257 */
long BgL_modz00_2838;
{ /* ./Ast/alphatize.scm 257 */
int BgL_arg2028z00_2839;
BgL_arg2028z00_2839 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 257 */
long BgL_n2z00_2847;
BgL_n2z00_2847 = 
(long)(BgL_arg2028z00_2839); 
BgL_modz00_2838 = 
(BgL_offsetz00_2837/BgL_n2z00_2847); } } 
{ /* ./Ast/alphatize.scm 257 */
long BgL_restz00_2840;
{ /* ./Ast/alphatize.scm 257 */
int BgL_arg2024z00_2841;
BgL_arg2024z00_2841 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 257 */
long BgL_n2z00_2850;
BgL_n2z00_2850 = 
(long)(BgL_arg2024z00_2841); 
BgL_restz00_2840 = 
(BgL_offsetz00_2837%BgL_n2z00_2850); } } 
{ /* ./Ast/alphatize.scm 257 */

{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_bucketz00_2842;
{ /* ./Ast/alphatize.scm 257 */
int BgL_kz00_2852;
BgL_kz00_2852 = 
(int)(BgL_modz00_2838); 
BgL_bucketz00_2842 = 
VECTOR_REF(BgL_arg2017z00_2833,BgL_kz00_2852); } 
{ /* ./Ast/alphatize.scm 257 */
int BgL_kz00_2854;
BgL_kz00_2854 = 
(int)(BgL_restz00_2840); 
BgL_method2843z00_2830 = 
VECTOR_REF(BgL_bucketz00_2842,BgL_kz00_2854); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_auxz00_4921;
BgL_auxz00_4921 = 
PROCEDURE_ENTRY(BgL_method2843z00_2830)(BgL_method2843z00_2830, 
(obj_t)(BgL_nodez00_2829), BEOA); 
BgL_res4815z00_2855 = 
(BgL_nodez00_bglt)(BgL_auxz00_4921); } } } 
BgL_arg4037z00_1538 = BgL_res4815z00_2855; } } 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_obj1z00_2856;
BgL_obj1z00_2856 = 
(obj_t)(BgL_arg4037z00_1538); 
BgL_head2759z00_1527 = 
MAKE_PAIR(BgL_obj1z00_2856, BNIL); } } 
{ 
obj_t BgL_l2757z00_1528;obj_t BgL_tail2760z00_1529;
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_arg4018z00_1531;
BgL_arg4018z00_1531 = 
CDR(BgL_l2757z00_1525); 
BgL_l2757z00_1528 = BgL_arg4018z00_1531; 
BgL_tail2760z00_1529 = BgL_head2759z00_1527; 
BgL_map2758z00_1530:
{ /* ./Ast/alphatize.scm 257 */
bool_t BgL_test4021z00_1532;
BgL_test4021z00_1532 = 
NULLP(BgL_l2757z00_1528); 
if(BgL_test4021z00_1532)
{ /* ./Ast/alphatize.scm 257 */
BgL_arg4005z00_1519 = BgL_head2759z00_1527; }  else 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_newtail2761z00_1533;
{ /* ./Ast/alphatize.scm 257 */
BgL_nodez00_bglt BgL_arg4028z00_1535;
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_arg4032z00_1537;
BgL_arg4032z00_1537 = 
CAR(BgL_l2757z00_1528); 
{ /* ./Ast/alphatize.scm 257 */
BgL_nodez00_bglt BgL_res4818z00_2887;
{ /* ./Ast/alphatize.scm 257 */
BgL_nodez00_bglt BgL_nodez00_2861;
BgL_nodez00_2861 = 
(BgL_nodez00_bglt)(BgL_arg4032z00_1537); 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_method2843z00_2862;
{ /* ./Ast/alphatize.scm 257 */
BgL_objectz00_bglt BgL_objz00_2863;
BgL_objz00_2863 = 
(BgL_objectz00_bglt)(BgL_nodez00_2861); 
{ /* ./Ast/alphatize.scm 257 */
long BgL_objzd2classzd2numz00_2864;
BgL_objzd2classzd2numz00_2864 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2863); 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_arg2017z00_2865;
{ /* ./Ast/alphatize.scm 257 */
int BgL_auxz00_4935;
BgL_auxz00_4935 = 
(int)(((long)1)); 
BgL_arg2017z00_2865 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4935); } 
{ /* ./Ast/alphatize.scm 257 */
int BgL_offsetz00_2868;
BgL_offsetz00_2868 = 
(int)(BgL_objzd2classzd2numz00_2864); 
{ /* ./Ast/alphatize.scm 257 */
long BgL_offsetz00_2869;
{ /* ./Ast/alphatize.scm 257 */
long BgL_auxz00_4939;
BgL_auxz00_4939 = 
(long)(BgL_offsetz00_2868); 
BgL_offsetz00_2869 = 
(BgL_auxz00_4939-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 257 */
long BgL_modz00_2870;
{ /* ./Ast/alphatize.scm 257 */
int BgL_arg2028z00_2871;
BgL_arg2028z00_2871 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 257 */
long BgL_n2z00_2879;
BgL_n2z00_2879 = 
(long)(BgL_arg2028z00_2871); 
BgL_modz00_2870 = 
(BgL_offsetz00_2869/BgL_n2z00_2879); } } 
{ /* ./Ast/alphatize.scm 257 */
long BgL_restz00_2872;
{ /* ./Ast/alphatize.scm 257 */
int BgL_arg2024z00_2873;
BgL_arg2024z00_2873 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 257 */
long BgL_n2z00_2882;
BgL_n2z00_2882 = 
(long)(BgL_arg2024z00_2873); 
BgL_restz00_2872 = 
(BgL_offsetz00_2869%BgL_n2z00_2882); } } 
{ /* ./Ast/alphatize.scm 257 */

{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_bucketz00_2874;
{ /* ./Ast/alphatize.scm 257 */
int BgL_kz00_2884;
BgL_kz00_2884 = 
(int)(BgL_modz00_2870); 
BgL_bucketz00_2874 = 
VECTOR_REF(BgL_arg2017z00_2865,BgL_kz00_2884); } 
{ /* ./Ast/alphatize.scm 257 */
int BgL_kz00_2886;
BgL_kz00_2886 = 
(int)(BgL_restz00_2872); 
BgL_method2843z00_2862 = 
VECTOR_REF(BgL_bucketz00_2874,BgL_kz00_2886); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_auxz00_4952;
BgL_auxz00_4952 = 
PROCEDURE_ENTRY(BgL_method2843z00_2862)(BgL_method2843z00_2862, 
(obj_t)(BgL_nodez00_2861), BEOA); 
BgL_res4818z00_2887 = 
(BgL_nodez00_bglt)(BgL_auxz00_4952); } } } 
BgL_arg4028z00_1535 = BgL_res4818z00_2887; } } 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_obj1z00_2888;
BgL_obj1z00_2888 = 
(obj_t)(BgL_arg4028z00_1535); 
BgL_newtail2761z00_1533 = 
MAKE_PAIR(BgL_obj1z00_2888, BNIL); } } 
SET_CDR(BgL_tail2760z00_1529, BgL_newtail2761z00_1533); 
{ /* ./Ast/alphatize.scm 257 */
obj_t BgL_arg4024z00_1534;
BgL_arg4024z00_1534 = 
CDR(BgL_l2757z00_1528); 
{ 
obj_t BgL_tail2760z00_4962;obj_t BgL_l2757z00_4961;
BgL_l2757z00_4961 = BgL_arg4024z00_1534; 
BgL_tail2760z00_4962 = BgL_newtail2761z00_1533; 
BgL_tail2760z00_1529 = BgL_tail2760z00_4962; 
BgL_l2757z00_1528 = BgL_l2757z00_4961; 
goto BgL_map2758z00_1530;} } } } } } } } } 
{ /* ./Ast/alphatize.scm 255 */
BgL_externz00_bglt BgL_obj1820z00_2893;
BgL_obj1820z00_2893 = 
(BgL_externz00_bglt)(BgL_nodez00_1510); 
BgL_arg4006z00_1520 = 
(((BgL_externz00_bglt)CREF(BgL_obj1820z00_2893))->BgL_effectz00); } 
BgL_arg4007z00_1521 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_nodez00_1510))->BgL_czd2formatzd2); 
BgL_arg4008z00_1522 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_nodez00_1510))->BgL_ftypez00); 
BgL_arg4009z00_1523 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_nodez00_1510))->BgL_otypez00); 
BgL_arg4010z00_1524 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_nodez00_1510))->BgL_vtypez00); 
BgL_new2756z00_1514 = 
BGl_makezd2vsetz12zc0zzast_nodez00(BgL_arg4001z00_1515, BgL_arg4002z00_1516, BgL_arg4003z00_1517, BgL_arg4004z00_1518, BgL_arg4005z00_1519, BgL_arg4006z00_1520, BgL_arg4007z00_1521, BgL_arg4008z00_1522, BgL_arg4009z00_1523, BgL_arg4010z00_1524); } 
{ /* ./Ast/alphatize.scm 255 */

BgL_auxz00_4887 = BgL_new2756z00_1514; } } 
return 
(obj_t)(BgL_auxz00_4887);} } } 
}



/* do-alphatize-vref2872 */
obj_t BGl_dozd2alphatiza7ezd2vref2872za7zzast_alphatiza7eza7(obj_t BgL_envz00_3775, obj_t BgL_nodez00_3776)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 246 */
{ 
BgL_vrefz00_bglt BgL_nodez00_1477;
{ /* ./Ast/alphatize.scm 247 */
BgL_vrefz00_bglt BgL_auxz00_4972;
BgL_nodez00_1477 = 
(BgL_vrefz00_bglt)(BgL_nodez00_3776); 
{ /* ./Ast/alphatize.scm 248 */
BgL_vrefz00_bglt BgL_new2749z00_1481;
{ /* ./Ast/alphatize.scm 248 */
obj_t BgL_arg3943z00_1482;BgL_typez00_bglt BgL_arg3944z00_1483;obj_t BgL_arg3945z00_1484;obj_t BgL_arg3946z00_1485;obj_t BgL_arg3948z00_1486;obj_t BgL_arg3949z00_1487;obj_t BgL_arg3950z00_1488;BgL_typez00_bglt BgL_arg3951z00_1489;BgL_typez00_bglt BgL_arg3952z00_1490;BgL_typez00_bglt BgL_arg3953z00_1491;
BgL_arg3943z00_1482 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1477)); 
{ /* ./Ast/alphatize.scm 247 */
BgL_nodez00_bglt BgL_obj1561z00_2748;
BgL_obj1561z00_2748 = 
(BgL_nodez00_bglt)(BgL_nodez00_1477); 
BgL_arg3944z00_1483 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2748))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 247 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2749;
BgL_obj1578z00_2749 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1477); 
BgL_arg3945z00_1484 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2749))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 247 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2750;
BgL_obj1581z00_2750 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1477); 
BgL_arg3946z00_1485 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2750))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_l2750z00_1492;
{ /* ./Ast/alphatize.scm 249 */
BgL_externz00_bglt BgL_obj1817z00_2751;
BgL_obj1817z00_2751 = 
(BgL_externz00_bglt)(BgL_nodez00_1477); 
BgL_l2750z00_1492 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2751))->BgL_exprza2za2); } 
{ /* ./Ast/alphatize.scm 249 */
bool_t BgL_test3959z00_1493;
BgL_test3959z00_1493 = 
NULLP(BgL_l2750z00_1492); 
if(BgL_test3959z00_1493)
{ /* ./Ast/alphatize.scm 249 */
BgL_arg3948z00_1486 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_head2752z00_1494;
{ /* ./Ast/alphatize.scm 249 */
BgL_nodez00_bglt BgL_arg3980z00_1505;
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_arg3984z00_1507;
BgL_arg3984z00_1507 = 
CAR(BgL_l2750z00_1492); 
{ /* ./Ast/alphatize.scm 249 */
BgL_nodez00_bglt BgL_res4809z00_2780;
{ /* ./Ast/alphatize.scm 249 */
BgL_nodez00_bglt BgL_nodez00_2754;
BgL_nodez00_2754 = 
(BgL_nodez00_bglt)(BgL_arg3984z00_1507); 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_method2843z00_2755;
{ /* ./Ast/alphatize.scm 249 */
BgL_objectz00_bglt BgL_objz00_2756;
BgL_objz00_2756 = 
(BgL_objectz00_bglt)(BgL_nodez00_2754); 
{ /* ./Ast/alphatize.scm 249 */
long BgL_objzd2classzd2numz00_2757;
BgL_objzd2classzd2numz00_2757 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2756); 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_arg2017z00_2758;
{ /* ./Ast/alphatize.scm 249 */
int BgL_auxz00_4989;
BgL_auxz00_4989 = 
(int)(((long)1)); 
BgL_arg2017z00_2758 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_4989); } 
{ /* ./Ast/alphatize.scm 249 */
int BgL_offsetz00_2761;
BgL_offsetz00_2761 = 
(int)(BgL_objzd2classzd2numz00_2757); 
{ /* ./Ast/alphatize.scm 249 */
long BgL_offsetz00_2762;
{ /* ./Ast/alphatize.scm 249 */
long BgL_auxz00_4993;
BgL_auxz00_4993 = 
(long)(BgL_offsetz00_2761); 
BgL_offsetz00_2762 = 
(BgL_auxz00_4993-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 249 */
long BgL_modz00_2763;
{ /* ./Ast/alphatize.scm 249 */
int BgL_arg2028z00_2764;
BgL_arg2028z00_2764 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 249 */
long BgL_n2z00_2772;
BgL_n2z00_2772 = 
(long)(BgL_arg2028z00_2764); 
BgL_modz00_2763 = 
(BgL_offsetz00_2762/BgL_n2z00_2772); } } 
{ /* ./Ast/alphatize.scm 249 */
long BgL_restz00_2765;
{ /* ./Ast/alphatize.scm 249 */
int BgL_arg2024z00_2766;
BgL_arg2024z00_2766 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 249 */
long BgL_n2z00_2775;
BgL_n2z00_2775 = 
(long)(BgL_arg2024z00_2766); 
BgL_restz00_2765 = 
(BgL_offsetz00_2762%BgL_n2z00_2775); } } 
{ /* ./Ast/alphatize.scm 249 */

{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_bucketz00_2767;
{ /* ./Ast/alphatize.scm 249 */
int BgL_kz00_2777;
BgL_kz00_2777 = 
(int)(BgL_modz00_2763); 
BgL_bucketz00_2767 = 
VECTOR_REF(BgL_arg2017z00_2758,BgL_kz00_2777); } 
{ /* ./Ast/alphatize.scm 249 */
int BgL_kz00_2779;
BgL_kz00_2779 = 
(int)(BgL_restz00_2765); 
BgL_method2843z00_2755 = 
VECTOR_REF(BgL_bucketz00_2767,BgL_kz00_2779); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_auxz00_5006;
BgL_auxz00_5006 = 
PROCEDURE_ENTRY(BgL_method2843z00_2755)(BgL_method2843z00_2755, 
(obj_t)(BgL_nodez00_2754), BEOA); 
BgL_res4809z00_2780 = 
(BgL_nodez00_bglt)(BgL_auxz00_5006); } } } 
BgL_arg3980z00_1505 = BgL_res4809z00_2780; } } 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_obj1z00_2781;
BgL_obj1z00_2781 = 
(obj_t)(BgL_arg3980z00_1505); 
BgL_head2752z00_1494 = 
MAKE_PAIR(BgL_obj1z00_2781, BNIL); } } 
{ 
obj_t BgL_l2750z00_1495;obj_t BgL_tail2753z00_1496;
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_arg3961z00_1498;
BgL_arg3961z00_1498 = 
CDR(BgL_l2750z00_1492); 
BgL_l2750z00_1495 = BgL_arg3961z00_1498; 
BgL_tail2753z00_1496 = BgL_head2752z00_1494; 
BgL_map2751z00_1497:
{ /* ./Ast/alphatize.scm 249 */
bool_t BgL_test3964z00_1499;
BgL_test3964z00_1499 = 
NULLP(BgL_l2750z00_1495); 
if(BgL_test3964z00_1499)
{ /* ./Ast/alphatize.scm 249 */
BgL_arg3948z00_1486 = BgL_head2752z00_1494; }  else 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_newtail2754z00_1500;
{ /* ./Ast/alphatize.scm 249 */
BgL_nodez00_bglt BgL_arg3971z00_1502;
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_arg3975z00_1504;
BgL_arg3975z00_1504 = 
CAR(BgL_l2750z00_1495); 
{ /* ./Ast/alphatize.scm 249 */
BgL_nodez00_bglt BgL_res4812z00_2812;
{ /* ./Ast/alphatize.scm 249 */
BgL_nodez00_bglt BgL_nodez00_2786;
BgL_nodez00_2786 = 
(BgL_nodez00_bglt)(BgL_arg3975z00_1504); 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_method2843z00_2787;
{ /* ./Ast/alphatize.scm 249 */
BgL_objectz00_bglt BgL_objz00_2788;
BgL_objz00_2788 = 
(BgL_objectz00_bglt)(BgL_nodez00_2786); 
{ /* ./Ast/alphatize.scm 249 */
long BgL_objzd2classzd2numz00_2789;
BgL_objzd2classzd2numz00_2789 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2788); 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_arg2017z00_2790;
{ /* ./Ast/alphatize.scm 249 */
int BgL_auxz00_5020;
BgL_auxz00_5020 = 
(int)(((long)1)); 
BgL_arg2017z00_2790 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5020); } 
{ /* ./Ast/alphatize.scm 249 */
int BgL_offsetz00_2793;
BgL_offsetz00_2793 = 
(int)(BgL_objzd2classzd2numz00_2789); 
{ /* ./Ast/alphatize.scm 249 */
long BgL_offsetz00_2794;
{ /* ./Ast/alphatize.scm 249 */
long BgL_auxz00_5024;
BgL_auxz00_5024 = 
(long)(BgL_offsetz00_2793); 
BgL_offsetz00_2794 = 
(BgL_auxz00_5024-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 249 */
long BgL_modz00_2795;
{ /* ./Ast/alphatize.scm 249 */
int BgL_arg2028z00_2796;
BgL_arg2028z00_2796 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 249 */
long BgL_n2z00_2804;
BgL_n2z00_2804 = 
(long)(BgL_arg2028z00_2796); 
BgL_modz00_2795 = 
(BgL_offsetz00_2794/BgL_n2z00_2804); } } 
{ /* ./Ast/alphatize.scm 249 */
long BgL_restz00_2797;
{ /* ./Ast/alphatize.scm 249 */
int BgL_arg2024z00_2798;
BgL_arg2024z00_2798 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 249 */
long BgL_n2z00_2807;
BgL_n2z00_2807 = 
(long)(BgL_arg2024z00_2798); 
BgL_restz00_2797 = 
(BgL_offsetz00_2794%BgL_n2z00_2807); } } 
{ /* ./Ast/alphatize.scm 249 */

{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_bucketz00_2799;
{ /* ./Ast/alphatize.scm 249 */
int BgL_kz00_2809;
BgL_kz00_2809 = 
(int)(BgL_modz00_2795); 
BgL_bucketz00_2799 = 
VECTOR_REF(BgL_arg2017z00_2790,BgL_kz00_2809); } 
{ /* ./Ast/alphatize.scm 249 */
int BgL_kz00_2811;
BgL_kz00_2811 = 
(int)(BgL_restz00_2797); 
BgL_method2843z00_2787 = 
VECTOR_REF(BgL_bucketz00_2799,BgL_kz00_2811); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_auxz00_5037;
BgL_auxz00_5037 = 
PROCEDURE_ENTRY(BgL_method2843z00_2787)(BgL_method2843z00_2787, 
(obj_t)(BgL_nodez00_2786), BEOA); 
BgL_res4812z00_2812 = 
(BgL_nodez00_bglt)(BgL_auxz00_5037); } } } 
BgL_arg3971z00_1502 = BgL_res4812z00_2812; } } 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_obj1z00_2813;
BgL_obj1z00_2813 = 
(obj_t)(BgL_arg3971z00_1502); 
BgL_newtail2754z00_1500 = 
MAKE_PAIR(BgL_obj1z00_2813, BNIL); } } 
SET_CDR(BgL_tail2753z00_1496, BgL_newtail2754z00_1500); 
{ /* ./Ast/alphatize.scm 249 */
obj_t BgL_arg3967z00_1501;
BgL_arg3967z00_1501 = 
CDR(BgL_l2750z00_1495); 
{ 
obj_t BgL_tail2753z00_5047;obj_t BgL_l2750z00_5046;
BgL_l2750z00_5046 = BgL_arg3967z00_1501; 
BgL_tail2753z00_5047 = BgL_newtail2754z00_1500; 
BgL_tail2753z00_1496 = BgL_tail2753z00_5047; 
BgL_l2750z00_1495 = BgL_l2750z00_5046; 
goto BgL_map2751z00_1497;} } } } } } } } } 
{ /* ./Ast/alphatize.scm 247 */
BgL_externz00_bglt BgL_obj1820z00_2818;
BgL_obj1820z00_2818 = 
(BgL_externz00_bglt)(BgL_nodez00_1477); 
BgL_arg3949z00_1487 = 
(((BgL_externz00_bglt)CREF(BgL_obj1820z00_2818))->BgL_effectz00); } 
BgL_arg3950z00_1488 = 
(((BgL_vrefz00_bglt)CREF(BgL_nodez00_1477))->BgL_czd2formatzd2); 
BgL_arg3951z00_1489 = 
(((BgL_vrefz00_bglt)CREF(BgL_nodez00_1477))->BgL_ftypez00); 
BgL_arg3952z00_1490 = 
(((BgL_vrefz00_bglt)CREF(BgL_nodez00_1477))->BgL_otypez00); 
BgL_arg3953z00_1491 = 
(((BgL_vrefz00_bglt)CREF(BgL_nodez00_1477))->BgL_vtypez00); 
BgL_new2749z00_1481 = 
BGl_makezd2vrefzd2zzast_nodez00(BgL_arg3943z00_1482, BgL_arg3944z00_1483, BgL_arg3945z00_1484, BgL_arg3946z00_1485, BgL_arg3948z00_1486, BgL_arg3949z00_1487, BgL_arg3950z00_1488, BgL_arg3951z00_1489, BgL_arg3952z00_1490, BgL_arg3953z00_1491); } 
{ /* ./Ast/alphatize.scm 247 */

BgL_auxz00_4972 = BgL_new2749z00_1481; } } 
return 
(obj_t)(BgL_auxz00_4972);} } } 
}



/* do-alphatize-vlength2870 */
obj_t BGl_dozd2alphatiza7ezd2vlength2870za7zzast_alphatiza7eza7(obj_t BgL_envz00_3777, obj_t BgL_nodez00_3778)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 238 */
{ 
BgL_vlengthz00_bglt BgL_nodez00_1446;
{ /* ./Ast/alphatize.scm 239 */
BgL_vlengthz00_bglt BgL_auxz00_5057;
BgL_nodez00_1446 = 
(BgL_vlengthz00_bglt)(BgL_nodez00_3778); 
{ /* ./Ast/alphatize.scm 240 */
BgL_vlengthz00_bglt BgL_new2742z00_1450;
{ /* ./Ast/alphatize.scm 240 */
obj_t BgL_arg3889z00_1451;BgL_typez00_bglt BgL_arg3890z00_1452;obj_t BgL_arg3891z00_1453;obj_t BgL_arg3892z00_1454;obj_t BgL_arg3893z00_1455;obj_t BgL_arg3894z00_1456;obj_t BgL_arg3895z00_1457;BgL_typez00_bglt BgL_arg3896z00_1458;
BgL_arg3889z00_1451 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1446)); 
{ /* ./Ast/alphatize.scm 239 */
BgL_nodez00_bglt BgL_obj1561z00_2675;
BgL_obj1561z00_2675 = 
(BgL_nodez00_bglt)(BgL_nodez00_1446); 
BgL_arg3890z00_1452 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2675))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 239 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2676;
BgL_obj1578z00_2676 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1446); 
BgL_arg3891z00_1453 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2676))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 239 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2677;
BgL_obj1581z00_2677 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1446); 
BgL_arg3892z00_1454 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2677))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_l2743z00_1459;
{ /* ./Ast/alphatize.scm 241 */
BgL_externz00_bglt BgL_obj1817z00_2678;
BgL_obj1817z00_2678 = 
(BgL_externz00_bglt)(BgL_nodez00_1446); 
BgL_l2743z00_1459 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2678))->BgL_exprza2za2); } 
{ /* ./Ast/alphatize.scm 241 */
bool_t BgL_test3902z00_1460;
BgL_test3902z00_1460 = 
NULLP(BgL_l2743z00_1459); 
if(BgL_test3902z00_1460)
{ /* ./Ast/alphatize.scm 241 */
BgL_arg3893z00_1455 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_head2745z00_1461;
{ /* ./Ast/alphatize.scm 241 */
BgL_nodez00_bglt BgL_arg3923z00_1472;
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_arg3927z00_1474;
BgL_arg3927z00_1474 = 
CAR(BgL_l2743z00_1459); 
{ /* ./Ast/alphatize.scm 241 */
BgL_nodez00_bglt BgL_res4803z00_2707;
{ /* ./Ast/alphatize.scm 241 */
BgL_nodez00_bglt BgL_nodez00_2681;
BgL_nodez00_2681 = 
(BgL_nodez00_bglt)(BgL_arg3927z00_1474); 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_method2843z00_2682;
{ /* ./Ast/alphatize.scm 241 */
BgL_objectz00_bglt BgL_objz00_2683;
BgL_objz00_2683 = 
(BgL_objectz00_bglt)(BgL_nodez00_2681); 
{ /* ./Ast/alphatize.scm 241 */
long BgL_objzd2classzd2numz00_2684;
BgL_objzd2classzd2numz00_2684 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2683); 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_arg2017z00_2685;
{ /* ./Ast/alphatize.scm 241 */
int BgL_auxz00_5074;
BgL_auxz00_5074 = 
(int)(((long)1)); 
BgL_arg2017z00_2685 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5074); } 
{ /* ./Ast/alphatize.scm 241 */
int BgL_offsetz00_2688;
BgL_offsetz00_2688 = 
(int)(BgL_objzd2classzd2numz00_2684); 
{ /* ./Ast/alphatize.scm 241 */
long BgL_offsetz00_2689;
{ /* ./Ast/alphatize.scm 241 */
long BgL_auxz00_5078;
BgL_auxz00_5078 = 
(long)(BgL_offsetz00_2688); 
BgL_offsetz00_2689 = 
(BgL_auxz00_5078-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 241 */
long BgL_modz00_2690;
{ /* ./Ast/alphatize.scm 241 */
int BgL_arg2028z00_2691;
BgL_arg2028z00_2691 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 241 */
long BgL_n2z00_2699;
BgL_n2z00_2699 = 
(long)(BgL_arg2028z00_2691); 
BgL_modz00_2690 = 
(BgL_offsetz00_2689/BgL_n2z00_2699); } } 
{ /* ./Ast/alphatize.scm 241 */
long BgL_restz00_2692;
{ /* ./Ast/alphatize.scm 241 */
int BgL_arg2024z00_2693;
BgL_arg2024z00_2693 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 241 */
long BgL_n2z00_2702;
BgL_n2z00_2702 = 
(long)(BgL_arg2024z00_2693); 
BgL_restz00_2692 = 
(BgL_offsetz00_2689%BgL_n2z00_2702); } } 
{ /* ./Ast/alphatize.scm 241 */

{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_bucketz00_2694;
{ /* ./Ast/alphatize.scm 241 */
int BgL_kz00_2704;
BgL_kz00_2704 = 
(int)(BgL_modz00_2690); 
BgL_bucketz00_2694 = 
VECTOR_REF(BgL_arg2017z00_2685,BgL_kz00_2704); } 
{ /* ./Ast/alphatize.scm 241 */
int BgL_kz00_2706;
BgL_kz00_2706 = 
(int)(BgL_restz00_2692); 
BgL_method2843z00_2682 = 
VECTOR_REF(BgL_bucketz00_2694,BgL_kz00_2706); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_auxz00_5091;
BgL_auxz00_5091 = 
PROCEDURE_ENTRY(BgL_method2843z00_2682)(BgL_method2843z00_2682, 
(obj_t)(BgL_nodez00_2681), BEOA); 
BgL_res4803z00_2707 = 
(BgL_nodez00_bglt)(BgL_auxz00_5091); } } } 
BgL_arg3923z00_1472 = BgL_res4803z00_2707; } } 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_obj1z00_2708;
BgL_obj1z00_2708 = 
(obj_t)(BgL_arg3923z00_1472); 
BgL_head2745z00_1461 = 
MAKE_PAIR(BgL_obj1z00_2708, BNIL); } } 
{ 
obj_t BgL_l2743z00_1462;obj_t BgL_tail2746z00_1463;
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_arg3904z00_1465;
BgL_arg3904z00_1465 = 
CDR(BgL_l2743z00_1459); 
BgL_l2743z00_1462 = BgL_arg3904z00_1465; 
BgL_tail2746z00_1463 = BgL_head2745z00_1461; 
BgL_map2744z00_1464:
{ /* ./Ast/alphatize.scm 241 */
bool_t BgL_test3907z00_1466;
BgL_test3907z00_1466 = 
NULLP(BgL_l2743z00_1462); 
if(BgL_test3907z00_1466)
{ /* ./Ast/alphatize.scm 241 */
BgL_arg3893z00_1455 = BgL_head2745z00_1461; }  else 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_newtail2747z00_1467;
{ /* ./Ast/alphatize.scm 241 */
BgL_nodez00_bglt BgL_arg3914z00_1469;
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_arg3918z00_1471;
BgL_arg3918z00_1471 = 
CAR(BgL_l2743z00_1462); 
{ /* ./Ast/alphatize.scm 241 */
BgL_nodez00_bglt BgL_res4806z00_2739;
{ /* ./Ast/alphatize.scm 241 */
BgL_nodez00_bglt BgL_nodez00_2713;
BgL_nodez00_2713 = 
(BgL_nodez00_bglt)(BgL_arg3918z00_1471); 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_method2843z00_2714;
{ /* ./Ast/alphatize.scm 241 */
BgL_objectz00_bglt BgL_objz00_2715;
BgL_objz00_2715 = 
(BgL_objectz00_bglt)(BgL_nodez00_2713); 
{ /* ./Ast/alphatize.scm 241 */
long BgL_objzd2classzd2numz00_2716;
BgL_objzd2classzd2numz00_2716 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2715); 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_arg2017z00_2717;
{ /* ./Ast/alphatize.scm 241 */
int BgL_auxz00_5105;
BgL_auxz00_5105 = 
(int)(((long)1)); 
BgL_arg2017z00_2717 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5105); } 
{ /* ./Ast/alphatize.scm 241 */
int BgL_offsetz00_2720;
BgL_offsetz00_2720 = 
(int)(BgL_objzd2classzd2numz00_2716); 
{ /* ./Ast/alphatize.scm 241 */
long BgL_offsetz00_2721;
{ /* ./Ast/alphatize.scm 241 */
long BgL_auxz00_5109;
BgL_auxz00_5109 = 
(long)(BgL_offsetz00_2720); 
BgL_offsetz00_2721 = 
(BgL_auxz00_5109-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 241 */
long BgL_modz00_2722;
{ /* ./Ast/alphatize.scm 241 */
int BgL_arg2028z00_2723;
BgL_arg2028z00_2723 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 241 */
long BgL_n2z00_2731;
BgL_n2z00_2731 = 
(long)(BgL_arg2028z00_2723); 
BgL_modz00_2722 = 
(BgL_offsetz00_2721/BgL_n2z00_2731); } } 
{ /* ./Ast/alphatize.scm 241 */
long BgL_restz00_2724;
{ /* ./Ast/alphatize.scm 241 */
int BgL_arg2024z00_2725;
BgL_arg2024z00_2725 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 241 */
long BgL_n2z00_2734;
BgL_n2z00_2734 = 
(long)(BgL_arg2024z00_2725); 
BgL_restz00_2724 = 
(BgL_offsetz00_2721%BgL_n2z00_2734); } } 
{ /* ./Ast/alphatize.scm 241 */

{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_bucketz00_2726;
{ /* ./Ast/alphatize.scm 241 */
int BgL_kz00_2736;
BgL_kz00_2736 = 
(int)(BgL_modz00_2722); 
BgL_bucketz00_2726 = 
VECTOR_REF(BgL_arg2017z00_2717,BgL_kz00_2736); } 
{ /* ./Ast/alphatize.scm 241 */
int BgL_kz00_2738;
BgL_kz00_2738 = 
(int)(BgL_restz00_2724); 
BgL_method2843z00_2714 = 
VECTOR_REF(BgL_bucketz00_2726,BgL_kz00_2738); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_auxz00_5122;
BgL_auxz00_5122 = 
PROCEDURE_ENTRY(BgL_method2843z00_2714)(BgL_method2843z00_2714, 
(obj_t)(BgL_nodez00_2713), BEOA); 
BgL_res4806z00_2739 = 
(BgL_nodez00_bglt)(BgL_auxz00_5122); } } } 
BgL_arg3914z00_1469 = BgL_res4806z00_2739; } } 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_obj1z00_2740;
BgL_obj1z00_2740 = 
(obj_t)(BgL_arg3914z00_1469); 
BgL_newtail2747z00_1467 = 
MAKE_PAIR(BgL_obj1z00_2740, BNIL); } } 
SET_CDR(BgL_tail2746z00_1463, BgL_newtail2747z00_1467); 
{ /* ./Ast/alphatize.scm 241 */
obj_t BgL_arg3910z00_1468;
BgL_arg3910z00_1468 = 
CDR(BgL_l2743z00_1462); 
{ 
obj_t BgL_tail2746z00_5132;obj_t BgL_l2743z00_5131;
BgL_l2743z00_5131 = BgL_arg3910z00_1468; 
BgL_tail2746z00_5132 = BgL_newtail2747z00_1467; 
BgL_tail2746z00_1463 = BgL_tail2746z00_5132; 
BgL_l2743z00_1462 = BgL_l2743z00_5131; 
goto BgL_map2744z00_1464;} } } } } } } } } 
{ /* ./Ast/alphatize.scm 239 */
BgL_externz00_bglt BgL_obj1820z00_2745;
BgL_obj1820z00_2745 = 
(BgL_externz00_bglt)(BgL_nodez00_1446); 
BgL_arg3894z00_1456 = 
(((BgL_externz00_bglt)CREF(BgL_obj1820z00_2745))->BgL_effectz00); } 
BgL_arg3895z00_1457 = 
(((BgL_vlengthz00_bglt)CREF(BgL_nodez00_1446))->BgL_czd2formatzd2); 
BgL_arg3896z00_1458 = 
(((BgL_vlengthz00_bglt)CREF(BgL_nodez00_1446))->BgL_vtypez00); 
BgL_new2742z00_1450 = 
BGl_makezd2vlengthzd2zzast_nodez00(BgL_arg3889z00_1451, BgL_arg3890z00_1452, BgL_arg3891z00_1453, BgL_arg3892z00_1454, BgL_arg3893z00_1455, BgL_arg3894z00_1456, BgL_arg3895z00_1457, BgL_arg3896z00_1458); } 
{ /* ./Ast/alphatize.scm 239 */

BgL_auxz00_5057 = BgL_new2742z00_1450; } } 
return 
(obj_t)(BgL_auxz00_5057);} } } 
}



/* do-alphatize-new2867 */
obj_t BGl_dozd2alphatiza7ezd2new2867za7zzast_alphatiza7eza7(obj_t BgL_envz00_3779, obj_t BgL_nodez00_3780)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 230 */
{ 
BgL_newz00_bglt BgL_nodez00_1417;
{ /* ./Ast/alphatize.scm 231 */
BgL_newz00_bglt BgL_auxz00_5140;
BgL_nodez00_1417 = 
(BgL_newz00_bglt)(BgL_nodez00_3780); 
{ /* ./Ast/alphatize.scm 232 */
BgL_newz00_bglt BgL_new2735z00_1421;
{ /* ./Ast/alphatize.scm 232 */
obj_t BgL_arg3840z00_1422;BgL_typez00_bglt BgL_arg3841z00_1423;obj_t BgL_arg3842z00_1424;obj_t BgL_arg3843z00_1425;obj_t BgL_arg3844z00_1426;obj_t BgL_arg3845z00_1427;
BgL_arg3840z00_1422 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1417)); 
{ /* ./Ast/alphatize.scm 231 */
BgL_nodez00_bglt BgL_obj1561z00_2604;
BgL_obj1561z00_2604 = 
(BgL_nodez00_bglt)(BgL_nodez00_1417); 
BgL_arg3841z00_1423 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2604))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 231 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2605;
BgL_obj1578z00_2605 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1417); 
BgL_arg3842z00_1424 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2605))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 231 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2606;
BgL_obj1581z00_2606 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1417); 
BgL_arg3843z00_1425 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2606))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_l2736z00_1428;
{ /* ./Ast/alphatize.scm 233 */
BgL_externz00_bglt BgL_obj1817z00_2607;
BgL_obj1817z00_2607 = 
(BgL_externz00_bglt)(BgL_nodez00_1417); 
BgL_l2736z00_1428 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2607))->BgL_exprza2za2); } 
{ /* ./Ast/alphatize.scm 233 */
bool_t BgL_test3851z00_1429;
BgL_test3851z00_1429 = 
NULLP(BgL_l2736z00_1428); 
if(BgL_test3851z00_1429)
{ /* ./Ast/alphatize.scm 233 */
BgL_arg3844z00_1426 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_head2738z00_1430;
{ /* ./Ast/alphatize.scm 233 */
BgL_nodez00_bglt BgL_arg3872z00_1441;
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_arg3876z00_1443;
BgL_arg3876z00_1443 = 
CAR(BgL_l2736z00_1428); 
{ /* ./Ast/alphatize.scm 233 */
BgL_nodez00_bglt BgL_res4797z00_2636;
{ /* ./Ast/alphatize.scm 233 */
BgL_nodez00_bglt BgL_nodez00_2610;
BgL_nodez00_2610 = 
(BgL_nodez00_bglt)(BgL_arg3876z00_1443); 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_method2843z00_2611;
{ /* ./Ast/alphatize.scm 233 */
BgL_objectz00_bglt BgL_objz00_2612;
BgL_objz00_2612 = 
(BgL_objectz00_bglt)(BgL_nodez00_2610); 
{ /* ./Ast/alphatize.scm 233 */
long BgL_objzd2classzd2numz00_2613;
BgL_objzd2classzd2numz00_2613 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2612); 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_arg2017z00_2614;
{ /* ./Ast/alphatize.scm 233 */
int BgL_auxz00_5157;
BgL_auxz00_5157 = 
(int)(((long)1)); 
BgL_arg2017z00_2614 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5157); } 
{ /* ./Ast/alphatize.scm 233 */
int BgL_offsetz00_2617;
BgL_offsetz00_2617 = 
(int)(BgL_objzd2classzd2numz00_2613); 
{ /* ./Ast/alphatize.scm 233 */
long BgL_offsetz00_2618;
{ /* ./Ast/alphatize.scm 233 */
long BgL_auxz00_5161;
BgL_auxz00_5161 = 
(long)(BgL_offsetz00_2617); 
BgL_offsetz00_2618 = 
(BgL_auxz00_5161-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 233 */
long BgL_modz00_2619;
{ /* ./Ast/alphatize.scm 233 */
int BgL_arg2028z00_2620;
BgL_arg2028z00_2620 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 233 */
long BgL_n2z00_2628;
BgL_n2z00_2628 = 
(long)(BgL_arg2028z00_2620); 
BgL_modz00_2619 = 
(BgL_offsetz00_2618/BgL_n2z00_2628); } } 
{ /* ./Ast/alphatize.scm 233 */
long BgL_restz00_2621;
{ /* ./Ast/alphatize.scm 233 */
int BgL_arg2024z00_2622;
BgL_arg2024z00_2622 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 233 */
long BgL_n2z00_2631;
BgL_n2z00_2631 = 
(long)(BgL_arg2024z00_2622); 
BgL_restz00_2621 = 
(BgL_offsetz00_2618%BgL_n2z00_2631); } } 
{ /* ./Ast/alphatize.scm 233 */

{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_bucketz00_2623;
{ /* ./Ast/alphatize.scm 233 */
int BgL_kz00_2633;
BgL_kz00_2633 = 
(int)(BgL_modz00_2619); 
BgL_bucketz00_2623 = 
VECTOR_REF(BgL_arg2017z00_2614,BgL_kz00_2633); } 
{ /* ./Ast/alphatize.scm 233 */
int BgL_kz00_2635;
BgL_kz00_2635 = 
(int)(BgL_restz00_2621); 
BgL_method2843z00_2611 = 
VECTOR_REF(BgL_bucketz00_2623,BgL_kz00_2635); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_auxz00_5174;
BgL_auxz00_5174 = 
PROCEDURE_ENTRY(BgL_method2843z00_2611)(BgL_method2843z00_2611, 
(obj_t)(BgL_nodez00_2610), BEOA); 
BgL_res4797z00_2636 = 
(BgL_nodez00_bglt)(BgL_auxz00_5174); } } } 
BgL_arg3872z00_1441 = BgL_res4797z00_2636; } } 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_obj1z00_2637;
BgL_obj1z00_2637 = 
(obj_t)(BgL_arg3872z00_1441); 
BgL_head2738z00_1430 = 
MAKE_PAIR(BgL_obj1z00_2637, BNIL); } } 
{ 
obj_t BgL_l2736z00_1431;obj_t BgL_tail2739z00_1432;
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_arg3853z00_1434;
BgL_arg3853z00_1434 = 
CDR(BgL_l2736z00_1428); 
BgL_l2736z00_1431 = BgL_arg3853z00_1434; 
BgL_tail2739z00_1432 = BgL_head2738z00_1430; 
BgL_map2737z00_1433:
{ /* ./Ast/alphatize.scm 233 */
bool_t BgL_test3856z00_1435;
BgL_test3856z00_1435 = 
NULLP(BgL_l2736z00_1431); 
if(BgL_test3856z00_1435)
{ /* ./Ast/alphatize.scm 233 */
BgL_arg3844z00_1426 = BgL_head2738z00_1430; }  else 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_newtail2740z00_1436;
{ /* ./Ast/alphatize.scm 233 */
BgL_nodez00_bglt BgL_arg3863z00_1438;
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_arg3867z00_1440;
BgL_arg3867z00_1440 = 
CAR(BgL_l2736z00_1431); 
{ /* ./Ast/alphatize.scm 233 */
BgL_nodez00_bglt BgL_res4800z00_2668;
{ /* ./Ast/alphatize.scm 233 */
BgL_nodez00_bglt BgL_nodez00_2642;
BgL_nodez00_2642 = 
(BgL_nodez00_bglt)(BgL_arg3867z00_1440); 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_method2843z00_2643;
{ /* ./Ast/alphatize.scm 233 */
BgL_objectz00_bglt BgL_objz00_2644;
BgL_objz00_2644 = 
(BgL_objectz00_bglt)(BgL_nodez00_2642); 
{ /* ./Ast/alphatize.scm 233 */
long BgL_objzd2classzd2numz00_2645;
BgL_objzd2classzd2numz00_2645 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2644); 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_arg2017z00_2646;
{ /* ./Ast/alphatize.scm 233 */
int BgL_auxz00_5188;
BgL_auxz00_5188 = 
(int)(((long)1)); 
BgL_arg2017z00_2646 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5188); } 
{ /* ./Ast/alphatize.scm 233 */
int BgL_offsetz00_2649;
BgL_offsetz00_2649 = 
(int)(BgL_objzd2classzd2numz00_2645); 
{ /* ./Ast/alphatize.scm 233 */
long BgL_offsetz00_2650;
{ /* ./Ast/alphatize.scm 233 */
long BgL_auxz00_5192;
BgL_auxz00_5192 = 
(long)(BgL_offsetz00_2649); 
BgL_offsetz00_2650 = 
(BgL_auxz00_5192-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 233 */
long BgL_modz00_2651;
{ /* ./Ast/alphatize.scm 233 */
int BgL_arg2028z00_2652;
BgL_arg2028z00_2652 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 233 */
long BgL_n2z00_2660;
BgL_n2z00_2660 = 
(long)(BgL_arg2028z00_2652); 
BgL_modz00_2651 = 
(BgL_offsetz00_2650/BgL_n2z00_2660); } } 
{ /* ./Ast/alphatize.scm 233 */
long BgL_restz00_2653;
{ /* ./Ast/alphatize.scm 233 */
int BgL_arg2024z00_2654;
BgL_arg2024z00_2654 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 233 */
long BgL_n2z00_2663;
BgL_n2z00_2663 = 
(long)(BgL_arg2024z00_2654); 
BgL_restz00_2653 = 
(BgL_offsetz00_2650%BgL_n2z00_2663); } } 
{ /* ./Ast/alphatize.scm 233 */

{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_bucketz00_2655;
{ /* ./Ast/alphatize.scm 233 */
int BgL_kz00_2665;
BgL_kz00_2665 = 
(int)(BgL_modz00_2651); 
BgL_bucketz00_2655 = 
VECTOR_REF(BgL_arg2017z00_2646,BgL_kz00_2665); } 
{ /* ./Ast/alphatize.scm 233 */
int BgL_kz00_2667;
BgL_kz00_2667 = 
(int)(BgL_restz00_2653); 
BgL_method2843z00_2643 = 
VECTOR_REF(BgL_bucketz00_2655,BgL_kz00_2667); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_auxz00_5205;
BgL_auxz00_5205 = 
PROCEDURE_ENTRY(BgL_method2843z00_2643)(BgL_method2843z00_2643, 
(obj_t)(BgL_nodez00_2642), BEOA); 
BgL_res4800z00_2668 = 
(BgL_nodez00_bglt)(BgL_auxz00_5205); } } } 
BgL_arg3863z00_1438 = BgL_res4800z00_2668; } } 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_obj1z00_2669;
BgL_obj1z00_2669 = 
(obj_t)(BgL_arg3863z00_1438); 
BgL_newtail2740z00_1436 = 
MAKE_PAIR(BgL_obj1z00_2669, BNIL); } } 
SET_CDR(BgL_tail2739z00_1432, BgL_newtail2740z00_1436); 
{ /* ./Ast/alphatize.scm 233 */
obj_t BgL_arg3859z00_1437;
BgL_arg3859z00_1437 = 
CDR(BgL_l2736z00_1431); 
{ 
obj_t BgL_tail2739z00_5215;obj_t BgL_l2736z00_5214;
BgL_l2736z00_5214 = BgL_arg3859z00_1437; 
BgL_tail2739z00_5215 = BgL_newtail2740z00_1436; 
BgL_tail2739z00_1432 = BgL_tail2739z00_5215; 
BgL_l2736z00_1431 = BgL_l2736z00_5214; 
goto BgL_map2737z00_1433;} } } } } } } } } 
{ /* ./Ast/alphatize.scm 231 */
BgL_externz00_bglt BgL_obj1820z00_2674;
BgL_obj1820z00_2674 = 
(BgL_externz00_bglt)(BgL_nodez00_1417); 
BgL_arg3845z00_1427 = 
(((BgL_externz00_bglt)CREF(BgL_obj1820z00_2674))->BgL_effectz00); } 
BgL_new2735z00_1421 = 
BGl_makezd2newzd2zzast_nodez00(BgL_arg3840z00_1422, BgL_arg3841z00_1423, BgL_arg3842z00_1424, BgL_arg3843z00_1425, BgL_arg3844z00_1426, BgL_arg3845z00_1427); } 
{ /* ./Ast/alphatize.scm 231 */

BgL_auxz00_5140 = BgL_new2735z00_1421; } } 
return 
(obj_t)(BgL_auxz00_5140);} } } 
}



/* do-alphatize-setfield2865 */
obj_t BGl_dozd2alphatiza7ezd2setfield2865za7zzast_alphatiza7eza7(obj_t BgL_envz00_3781, obj_t BgL_nodez00_3782)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 222 */
{ 
BgL_setfieldz00_bglt BgL_nodez00_1385;
{ /* ./Ast/alphatize.scm 223 */
BgL_setfieldz00_bglt BgL_auxz00_5221;
BgL_nodez00_1385 = 
(BgL_setfieldz00_bglt)(BgL_nodez00_3782); 
{ /* ./Ast/alphatize.scm 224 */
BgL_setfieldz00_bglt BgL_new2728z00_1389;
{ /* ./Ast/alphatize.scm 224 */
obj_t BgL_arg3784z00_1390;BgL_typez00_bglt BgL_arg3785z00_1391;obj_t BgL_arg3786z00_1392;obj_t BgL_arg3787z00_1393;obj_t BgL_arg3788z00_1394;obj_t BgL_arg3789z00_1395;obj_t BgL_arg3791z00_1396;BgL_typez00_bglt BgL_arg3792z00_1397;BgL_typez00_bglt BgL_arg3793z00_1398;
BgL_arg3784z00_1390 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1385)); 
{ /* ./Ast/alphatize.scm 223 */
BgL_nodez00_bglt BgL_obj1561z00_2530;
BgL_obj1561z00_2530 = 
(BgL_nodez00_bglt)(BgL_nodez00_1385); 
BgL_arg3785z00_1391 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2530))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 223 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2531;
BgL_obj1578z00_2531 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1385); 
BgL_arg3786z00_1392 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2531))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 223 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2532;
BgL_obj1581z00_2532 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1385); 
BgL_arg3787z00_1393 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2532))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_l2729z00_1399;
{ /* ./Ast/alphatize.scm 225 */
BgL_externz00_bglt BgL_obj1817z00_2533;
BgL_obj1817z00_2533 = 
(BgL_externz00_bglt)(BgL_nodez00_1385); 
BgL_l2729z00_1399 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2533))->BgL_exprza2za2); } 
{ /* ./Ast/alphatize.scm 225 */
bool_t BgL_test3799z00_1400;
BgL_test3799z00_1400 = 
NULLP(BgL_l2729z00_1399); 
if(BgL_test3799z00_1400)
{ /* ./Ast/alphatize.scm 225 */
BgL_arg3788z00_1394 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_head2731z00_1401;
{ /* ./Ast/alphatize.scm 225 */
BgL_nodez00_bglt BgL_arg3820z00_1412;
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_arg3824z00_1414;
BgL_arg3824z00_1414 = 
CAR(BgL_l2729z00_1399); 
{ /* ./Ast/alphatize.scm 225 */
BgL_nodez00_bglt BgL_res4791z00_2562;
{ /* ./Ast/alphatize.scm 225 */
BgL_nodez00_bglt BgL_nodez00_2536;
BgL_nodez00_2536 = 
(BgL_nodez00_bglt)(BgL_arg3824z00_1414); 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_method2843z00_2537;
{ /* ./Ast/alphatize.scm 225 */
BgL_objectz00_bglt BgL_objz00_2538;
BgL_objz00_2538 = 
(BgL_objectz00_bglt)(BgL_nodez00_2536); 
{ /* ./Ast/alphatize.scm 225 */
long BgL_objzd2classzd2numz00_2539;
BgL_objzd2classzd2numz00_2539 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2538); 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_arg2017z00_2540;
{ /* ./Ast/alphatize.scm 225 */
int BgL_auxz00_5238;
BgL_auxz00_5238 = 
(int)(((long)1)); 
BgL_arg2017z00_2540 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5238); } 
{ /* ./Ast/alphatize.scm 225 */
int BgL_offsetz00_2543;
BgL_offsetz00_2543 = 
(int)(BgL_objzd2classzd2numz00_2539); 
{ /* ./Ast/alphatize.scm 225 */
long BgL_offsetz00_2544;
{ /* ./Ast/alphatize.scm 225 */
long BgL_auxz00_5242;
BgL_auxz00_5242 = 
(long)(BgL_offsetz00_2543); 
BgL_offsetz00_2544 = 
(BgL_auxz00_5242-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 225 */
long BgL_modz00_2545;
{ /* ./Ast/alphatize.scm 225 */
int BgL_arg2028z00_2546;
BgL_arg2028z00_2546 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 225 */
long BgL_n2z00_2554;
BgL_n2z00_2554 = 
(long)(BgL_arg2028z00_2546); 
BgL_modz00_2545 = 
(BgL_offsetz00_2544/BgL_n2z00_2554); } } 
{ /* ./Ast/alphatize.scm 225 */
long BgL_restz00_2547;
{ /* ./Ast/alphatize.scm 225 */
int BgL_arg2024z00_2548;
BgL_arg2024z00_2548 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 225 */
long BgL_n2z00_2557;
BgL_n2z00_2557 = 
(long)(BgL_arg2024z00_2548); 
BgL_restz00_2547 = 
(BgL_offsetz00_2544%BgL_n2z00_2557); } } 
{ /* ./Ast/alphatize.scm 225 */

{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_bucketz00_2549;
{ /* ./Ast/alphatize.scm 225 */
int BgL_kz00_2559;
BgL_kz00_2559 = 
(int)(BgL_modz00_2545); 
BgL_bucketz00_2549 = 
VECTOR_REF(BgL_arg2017z00_2540,BgL_kz00_2559); } 
{ /* ./Ast/alphatize.scm 225 */
int BgL_kz00_2561;
BgL_kz00_2561 = 
(int)(BgL_restz00_2547); 
BgL_method2843z00_2537 = 
VECTOR_REF(BgL_bucketz00_2549,BgL_kz00_2561); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_auxz00_5255;
BgL_auxz00_5255 = 
PROCEDURE_ENTRY(BgL_method2843z00_2537)(BgL_method2843z00_2537, 
(obj_t)(BgL_nodez00_2536), BEOA); 
BgL_res4791z00_2562 = 
(BgL_nodez00_bglt)(BgL_auxz00_5255); } } } 
BgL_arg3820z00_1412 = BgL_res4791z00_2562; } } 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_obj1z00_2563;
BgL_obj1z00_2563 = 
(obj_t)(BgL_arg3820z00_1412); 
BgL_head2731z00_1401 = 
MAKE_PAIR(BgL_obj1z00_2563, BNIL); } } 
{ 
obj_t BgL_l2729z00_1402;obj_t BgL_tail2732z00_1403;
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_arg3801z00_1405;
BgL_arg3801z00_1405 = 
CDR(BgL_l2729z00_1399); 
BgL_l2729z00_1402 = BgL_arg3801z00_1405; 
BgL_tail2732z00_1403 = BgL_head2731z00_1401; 
BgL_map2730z00_1404:
{ /* ./Ast/alphatize.scm 225 */
bool_t BgL_test3804z00_1406;
BgL_test3804z00_1406 = 
NULLP(BgL_l2729z00_1402); 
if(BgL_test3804z00_1406)
{ /* ./Ast/alphatize.scm 225 */
BgL_arg3788z00_1394 = BgL_head2731z00_1401; }  else 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_newtail2733z00_1407;
{ /* ./Ast/alphatize.scm 225 */
BgL_nodez00_bglt BgL_arg3811z00_1409;
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_arg3815z00_1411;
BgL_arg3815z00_1411 = 
CAR(BgL_l2729z00_1402); 
{ /* ./Ast/alphatize.scm 225 */
BgL_nodez00_bglt BgL_res4794z00_2594;
{ /* ./Ast/alphatize.scm 225 */
BgL_nodez00_bglt BgL_nodez00_2568;
BgL_nodez00_2568 = 
(BgL_nodez00_bglt)(BgL_arg3815z00_1411); 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_method2843z00_2569;
{ /* ./Ast/alphatize.scm 225 */
BgL_objectz00_bglt BgL_objz00_2570;
BgL_objz00_2570 = 
(BgL_objectz00_bglt)(BgL_nodez00_2568); 
{ /* ./Ast/alphatize.scm 225 */
long BgL_objzd2classzd2numz00_2571;
BgL_objzd2classzd2numz00_2571 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2570); 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_arg2017z00_2572;
{ /* ./Ast/alphatize.scm 225 */
int BgL_auxz00_5269;
BgL_auxz00_5269 = 
(int)(((long)1)); 
BgL_arg2017z00_2572 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5269); } 
{ /* ./Ast/alphatize.scm 225 */
int BgL_offsetz00_2575;
BgL_offsetz00_2575 = 
(int)(BgL_objzd2classzd2numz00_2571); 
{ /* ./Ast/alphatize.scm 225 */
long BgL_offsetz00_2576;
{ /* ./Ast/alphatize.scm 225 */
long BgL_auxz00_5273;
BgL_auxz00_5273 = 
(long)(BgL_offsetz00_2575); 
BgL_offsetz00_2576 = 
(BgL_auxz00_5273-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 225 */
long BgL_modz00_2577;
{ /* ./Ast/alphatize.scm 225 */
int BgL_arg2028z00_2578;
BgL_arg2028z00_2578 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 225 */
long BgL_n2z00_2586;
BgL_n2z00_2586 = 
(long)(BgL_arg2028z00_2578); 
BgL_modz00_2577 = 
(BgL_offsetz00_2576/BgL_n2z00_2586); } } 
{ /* ./Ast/alphatize.scm 225 */
long BgL_restz00_2579;
{ /* ./Ast/alphatize.scm 225 */
int BgL_arg2024z00_2580;
BgL_arg2024z00_2580 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 225 */
long BgL_n2z00_2589;
BgL_n2z00_2589 = 
(long)(BgL_arg2024z00_2580); 
BgL_restz00_2579 = 
(BgL_offsetz00_2576%BgL_n2z00_2589); } } 
{ /* ./Ast/alphatize.scm 225 */

{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_bucketz00_2581;
{ /* ./Ast/alphatize.scm 225 */
int BgL_kz00_2591;
BgL_kz00_2591 = 
(int)(BgL_modz00_2577); 
BgL_bucketz00_2581 = 
VECTOR_REF(BgL_arg2017z00_2572,BgL_kz00_2591); } 
{ /* ./Ast/alphatize.scm 225 */
int BgL_kz00_2593;
BgL_kz00_2593 = 
(int)(BgL_restz00_2579); 
BgL_method2843z00_2569 = 
VECTOR_REF(BgL_bucketz00_2581,BgL_kz00_2593); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_auxz00_5286;
BgL_auxz00_5286 = 
PROCEDURE_ENTRY(BgL_method2843z00_2569)(BgL_method2843z00_2569, 
(obj_t)(BgL_nodez00_2568), BEOA); 
BgL_res4794z00_2594 = 
(BgL_nodez00_bglt)(BgL_auxz00_5286); } } } 
BgL_arg3811z00_1409 = BgL_res4794z00_2594; } } 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_obj1z00_2595;
BgL_obj1z00_2595 = 
(obj_t)(BgL_arg3811z00_1409); 
BgL_newtail2733z00_1407 = 
MAKE_PAIR(BgL_obj1z00_2595, BNIL); } } 
SET_CDR(BgL_tail2732z00_1403, BgL_newtail2733z00_1407); 
{ /* ./Ast/alphatize.scm 225 */
obj_t BgL_arg3807z00_1408;
BgL_arg3807z00_1408 = 
CDR(BgL_l2729z00_1402); 
{ 
obj_t BgL_tail2732z00_5296;obj_t BgL_l2729z00_5295;
BgL_l2729z00_5295 = BgL_arg3807z00_1408; 
BgL_tail2732z00_5296 = BgL_newtail2733z00_1407; 
BgL_tail2732z00_1403 = BgL_tail2732z00_5296; 
BgL_l2729z00_1402 = BgL_l2729z00_5295; 
goto BgL_map2730z00_1404;} } } } } } } } } 
{ /* ./Ast/alphatize.scm 223 */
BgL_externz00_bglt BgL_obj1820z00_2600;
BgL_obj1820z00_2600 = 
(BgL_externz00_bglt)(BgL_nodez00_1385); 
BgL_arg3789z00_1395 = 
(((BgL_externz00_bglt)CREF(BgL_obj1820z00_2600))->BgL_effectz00); } 
BgL_arg3791z00_1396 = 
(((BgL_setfieldz00_bglt)CREF(BgL_nodez00_1385))->BgL_fnamez00); 
BgL_arg3792z00_1397 = 
(((BgL_setfieldz00_bglt)CREF(BgL_nodez00_1385))->BgL_ftypez00); 
BgL_arg3793z00_1398 = 
(((BgL_setfieldz00_bglt)CREF(BgL_nodez00_1385))->BgL_otypez00); 
BgL_new2728z00_1389 = 
BGl_makezd2setfieldzd2zzast_nodez00(BgL_arg3784z00_1390, BgL_arg3785z00_1391, BgL_arg3786z00_1392, BgL_arg3787z00_1393, BgL_arg3788z00_1394, BgL_arg3789z00_1395, BgL_arg3791z00_1396, BgL_arg3792z00_1397, BgL_arg3793z00_1398); } 
{ /* ./Ast/alphatize.scm 223 */

BgL_auxz00_5221 = BgL_new2728z00_1389; } } 
return 
(obj_t)(BgL_auxz00_5221);} } } 
}



/* do-alphatize-getfield2863 */
obj_t BGl_dozd2alphatiza7ezd2getfield2863za7zzast_alphatiza7eza7(obj_t BgL_envz00_3783, obj_t BgL_nodez00_3784)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 214 */
{ 
BgL_getfieldz00_bglt BgL_nodez00_1353;
{ /* ./Ast/alphatize.scm 215 */
BgL_getfieldz00_bglt BgL_auxz00_5305;
BgL_nodez00_1353 = 
(BgL_getfieldz00_bglt)(BgL_nodez00_3784); 
{ /* ./Ast/alphatize.scm 216 */
BgL_getfieldz00_bglt BgL_new2721z00_1357;
{ /* ./Ast/alphatize.scm 216 */
obj_t BgL_arg3729z00_1358;BgL_typez00_bglt BgL_arg3730z00_1359;obj_t BgL_arg3731z00_1360;obj_t BgL_arg3732z00_1361;obj_t BgL_arg3733z00_1362;obj_t BgL_arg3734z00_1363;obj_t BgL_arg3735z00_1364;BgL_typez00_bglt BgL_arg3736z00_1365;BgL_typez00_bglt BgL_arg3737z00_1366;
BgL_arg3729z00_1358 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1353)); 
{ /* ./Ast/alphatize.scm 215 */
BgL_nodez00_bglt BgL_obj1561z00_2456;
BgL_obj1561z00_2456 = 
(BgL_nodez00_bglt)(BgL_nodez00_1353); 
BgL_arg3730z00_1359 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2456))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 215 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2457;
BgL_obj1578z00_2457 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1353); 
BgL_arg3731z00_1360 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2457))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 215 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2458;
BgL_obj1581z00_2458 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1353); 
BgL_arg3732z00_1361 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2458))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_l2722z00_1367;
{ /* ./Ast/alphatize.scm 217 */
BgL_externz00_bglt BgL_obj1817z00_2459;
BgL_obj1817z00_2459 = 
(BgL_externz00_bglt)(BgL_nodez00_1353); 
BgL_l2722z00_1367 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2459))->BgL_exprza2za2); } 
{ /* ./Ast/alphatize.scm 217 */
bool_t BgL_test3743z00_1368;
BgL_test3743z00_1368 = 
NULLP(BgL_l2722z00_1367); 
if(BgL_test3743z00_1368)
{ /* ./Ast/alphatize.scm 217 */
BgL_arg3733z00_1362 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_head2724z00_1369;
{ /* ./Ast/alphatize.scm 217 */
BgL_nodez00_bglt BgL_arg3764z00_1380;
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_arg3768z00_1382;
BgL_arg3768z00_1382 = 
CAR(BgL_l2722z00_1367); 
{ /* ./Ast/alphatize.scm 217 */
BgL_nodez00_bglt BgL_res4785z00_2488;
{ /* ./Ast/alphatize.scm 217 */
BgL_nodez00_bglt BgL_nodez00_2462;
BgL_nodez00_2462 = 
(BgL_nodez00_bglt)(BgL_arg3768z00_1382); 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_method2843z00_2463;
{ /* ./Ast/alphatize.scm 217 */
BgL_objectz00_bglt BgL_objz00_2464;
BgL_objz00_2464 = 
(BgL_objectz00_bglt)(BgL_nodez00_2462); 
{ /* ./Ast/alphatize.scm 217 */
long BgL_objzd2classzd2numz00_2465;
BgL_objzd2classzd2numz00_2465 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2464); 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_arg2017z00_2466;
{ /* ./Ast/alphatize.scm 217 */
int BgL_auxz00_5322;
BgL_auxz00_5322 = 
(int)(((long)1)); 
BgL_arg2017z00_2466 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5322); } 
{ /* ./Ast/alphatize.scm 217 */
int BgL_offsetz00_2469;
BgL_offsetz00_2469 = 
(int)(BgL_objzd2classzd2numz00_2465); 
{ /* ./Ast/alphatize.scm 217 */
long BgL_offsetz00_2470;
{ /* ./Ast/alphatize.scm 217 */
long BgL_auxz00_5326;
BgL_auxz00_5326 = 
(long)(BgL_offsetz00_2469); 
BgL_offsetz00_2470 = 
(BgL_auxz00_5326-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 217 */
long BgL_modz00_2471;
{ /* ./Ast/alphatize.scm 217 */
int BgL_arg2028z00_2472;
BgL_arg2028z00_2472 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 217 */
long BgL_n2z00_2480;
BgL_n2z00_2480 = 
(long)(BgL_arg2028z00_2472); 
BgL_modz00_2471 = 
(BgL_offsetz00_2470/BgL_n2z00_2480); } } 
{ /* ./Ast/alphatize.scm 217 */
long BgL_restz00_2473;
{ /* ./Ast/alphatize.scm 217 */
int BgL_arg2024z00_2474;
BgL_arg2024z00_2474 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 217 */
long BgL_n2z00_2483;
BgL_n2z00_2483 = 
(long)(BgL_arg2024z00_2474); 
BgL_restz00_2473 = 
(BgL_offsetz00_2470%BgL_n2z00_2483); } } 
{ /* ./Ast/alphatize.scm 217 */

{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_bucketz00_2475;
{ /* ./Ast/alphatize.scm 217 */
int BgL_kz00_2485;
BgL_kz00_2485 = 
(int)(BgL_modz00_2471); 
BgL_bucketz00_2475 = 
VECTOR_REF(BgL_arg2017z00_2466,BgL_kz00_2485); } 
{ /* ./Ast/alphatize.scm 217 */
int BgL_kz00_2487;
BgL_kz00_2487 = 
(int)(BgL_restz00_2473); 
BgL_method2843z00_2463 = 
VECTOR_REF(BgL_bucketz00_2475,BgL_kz00_2487); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_auxz00_5339;
BgL_auxz00_5339 = 
PROCEDURE_ENTRY(BgL_method2843z00_2463)(BgL_method2843z00_2463, 
(obj_t)(BgL_nodez00_2462), BEOA); 
BgL_res4785z00_2488 = 
(BgL_nodez00_bglt)(BgL_auxz00_5339); } } } 
BgL_arg3764z00_1380 = BgL_res4785z00_2488; } } 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_obj1z00_2489;
BgL_obj1z00_2489 = 
(obj_t)(BgL_arg3764z00_1380); 
BgL_head2724z00_1369 = 
MAKE_PAIR(BgL_obj1z00_2489, BNIL); } } 
{ 
obj_t BgL_l2722z00_1370;obj_t BgL_tail2725z00_1371;
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_arg3745z00_1373;
BgL_arg3745z00_1373 = 
CDR(BgL_l2722z00_1367); 
BgL_l2722z00_1370 = BgL_arg3745z00_1373; 
BgL_tail2725z00_1371 = BgL_head2724z00_1369; 
BgL_map2723z00_1372:
{ /* ./Ast/alphatize.scm 217 */
bool_t BgL_test3748z00_1374;
BgL_test3748z00_1374 = 
NULLP(BgL_l2722z00_1370); 
if(BgL_test3748z00_1374)
{ /* ./Ast/alphatize.scm 217 */
BgL_arg3733z00_1362 = BgL_head2724z00_1369; }  else 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_newtail2726z00_1375;
{ /* ./Ast/alphatize.scm 217 */
BgL_nodez00_bglt BgL_arg3755z00_1377;
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_arg3759z00_1379;
BgL_arg3759z00_1379 = 
CAR(BgL_l2722z00_1370); 
{ /* ./Ast/alphatize.scm 217 */
BgL_nodez00_bglt BgL_res4788z00_2520;
{ /* ./Ast/alphatize.scm 217 */
BgL_nodez00_bglt BgL_nodez00_2494;
BgL_nodez00_2494 = 
(BgL_nodez00_bglt)(BgL_arg3759z00_1379); 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_method2843z00_2495;
{ /* ./Ast/alphatize.scm 217 */
BgL_objectz00_bglt BgL_objz00_2496;
BgL_objz00_2496 = 
(BgL_objectz00_bglt)(BgL_nodez00_2494); 
{ /* ./Ast/alphatize.scm 217 */
long BgL_objzd2classzd2numz00_2497;
BgL_objzd2classzd2numz00_2497 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2496); 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_arg2017z00_2498;
{ /* ./Ast/alphatize.scm 217 */
int BgL_auxz00_5353;
BgL_auxz00_5353 = 
(int)(((long)1)); 
BgL_arg2017z00_2498 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5353); } 
{ /* ./Ast/alphatize.scm 217 */
int BgL_offsetz00_2501;
BgL_offsetz00_2501 = 
(int)(BgL_objzd2classzd2numz00_2497); 
{ /* ./Ast/alphatize.scm 217 */
long BgL_offsetz00_2502;
{ /* ./Ast/alphatize.scm 217 */
long BgL_auxz00_5357;
BgL_auxz00_5357 = 
(long)(BgL_offsetz00_2501); 
BgL_offsetz00_2502 = 
(BgL_auxz00_5357-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 217 */
long BgL_modz00_2503;
{ /* ./Ast/alphatize.scm 217 */
int BgL_arg2028z00_2504;
BgL_arg2028z00_2504 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 217 */
long BgL_n2z00_2512;
BgL_n2z00_2512 = 
(long)(BgL_arg2028z00_2504); 
BgL_modz00_2503 = 
(BgL_offsetz00_2502/BgL_n2z00_2512); } } 
{ /* ./Ast/alphatize.scm 217 */
long BgL_restz00_2505;
{ /* ./Ast/alphatize.scm 217 */
int BgL_arg2024z00_2506;
BgL_arg2024z00_2506 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 217 */
long BgL_n2z00_2515;
BgL_n2z00_2515 = 
(long)(BgL_arg2024z00_2506); 
BgL_restz00_2505 = 
(BgL_offsetz00_2502%BgL_n2z00_2515); } } 
{ /* ./Ast/alphatize.scm 217 */

{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_bucketz00_2507;
{ /* ./Ast/alphatize.scm 217 */
int BgL_kz00_2517;
BgL_kz00_2517 = 
(int)(BgL_modz00_2503); 
BgL_bucketz00_2507 = 
VECTOR_REF(BgL_arg2017z00_2498,BgL_kz00_2517); } 
{ /* ./Ast/alphatize.scm 217 */
int BgL_kz00_2519;
BgL_kz00_2519 = 
(int)(BgL_restz00_2505); 
BgL_method2843z00_2495 = 
VECTOR_REF(BgL_bucketz00_2507,BgL_kz00_2519); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_auxz00_5370;
BgL_auxz00_5370 = 
PROCEDURE_ENTRY(BgL_method2843z00_2495)(BgL_method2843z00_2495, 
(obj_t)(BgL_nodez00_2494), BEOA); 
BgL_res4788z00_2520 = 
(BgL_nodez00_bglt)(BgL_auxz00_5370); } } } 
BgL_arg3755z00_1377 = BgL_res4788z00_2520; } } 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_obj1z00_2521;
BgL_obj1z00_2521 = 
(obj_t)(BgL_arg3755z00_1377); 
BgL_newtail2726z00_1375 = 
MAKE_PAIR(BgL_obj1z00_2521, BNIL); } } 
SET_CDR(BgL_tail2725z00_1371, BgL_newtail2726z00_1375); 
{ /* ./Ast/alphatize.scm 217 */
obj_t BgL_arg3751z00_1376;
BgL_arg3751z00_1376 = 
CDR(BgL_l2722z00_1370); 
{ 
obj_t BgL_tail2725z00_5380;obj_t BgL_l2722z00_5379;
BgL_l2722z00_5379 = BgL_arg3751z00_1376; 
BgL_tail2725z00_5380 = BgL_newtail2726z00_1375; 
BgL_tail2725z00_1371 = BgL_tail2725z00_5380; 
BgL_l2722z00_1370 = BgL_l2722z00_5379; 
goto BgL_map2723z00_1372;} } } } } } } } } 
{ /* ./Ast/alphatize.scm 215 */
BgL_externz00_bglt BgL_obj1820z00_2526;
BgL_obj1820z00_2526 = 
(BgL_externz00_bglt)(BgL_nodez00_1353); 
BgL_arg3734z00_1363 = 
(((BgL_externz00_bglt)CREF(BgL_obj1820z00_2526))->BgL_effectz00); } 
BgL_arg3735z00_1364 = 
(((BgL_getfieldz00_bglt)CREF(BgL_nodez00_1353))->BgL_fnamez00); 
BgL_arg3736z00_1365 = 
(((BgL_getfieldz00_bglt)CREF(BgL_nodez00_1353))->BgL_ftypez00); 
BgL_arg3737z00_1366 = 
(((BgL_getfieldz00_bglt)CREF(BgL_nodez00_1353))->BgL_otypez00); 
BgL_new2721z00_1357 = 
BGl_makezd2getfieldzd2zzast_nodez00(BgL_arg3729z00_1358, BgL_arg3730z00_1359, BgL_arg3731z00_1360, BgL_arg3732z00_1361, BgL_arg3733z00_1362, BgL_arg3734z00_1363, BgL_arg3735z00_1364, BgL_arg3736z00_1365, BgL_arg3737z00_1366); } 
{ /* ./Ast/alphatize.scm 215 */

BgL_auxz00_5305 = BgL_new2721z00_1357; } } 
return 
(obj_t)(BgL_auxz00_5305);} } } 
}



/* do-alphatize-pragma2861 */
obj_t BGl_dozd2alphatiza7ezd2pragma2861za7zzast_alphatiza7eza7(obj_t BgL_envz00_3785, obj_t BgL_nodez00_3786)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 206 */
{ 
BgL_pragmaz00_bglt BgL_nodez00_1323;
{ /* ./Ast/alphatize.scm 207 */
BgL_pragmaz00_bglt BgL_auxz00_5389;
BgL_nodez00_1323 = 
(BgL_pragmaz00_bglt)(BgL_nodez00_3786); 
{ /* ./Ast/alphatize.scm 208 */
BgL_pragmaz00_bglt BgL_new2714z00_1327;
{ /* ./Ast/alphatize.scm 208 */
obj_t BgL_arg3675z00_1328;BgL_typez00_bglt BgL_arg3676z00_1329;obj_t BgL_arg3677z00_1330;obj_t BgL_arg3678z00_1331;obj_t BgL_arg3679z00_1332;obj_t BgL_arg3681z00_1333;obj_t BgL_arg3682z00_1334;
BgL_arg3675z00_1328 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1323)); 
{ /* ./Ast/alphatize.scm 207 */
BgL_nodez00_bglt BgL_obj1561z00_2384;
BgL_obj1561z00_2384 = 
(BgL_nodez00_bglt)(BgL_nodez00_1323); 
BgL_arg3676z00_1329 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2384))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 207 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2385;
BgL_obj1578z00_2385 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1323); 
BgL_arg3677z00_1330 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2385))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 207 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2386;
BgL_obj1581z00_2386 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1323); 
BgL_arg3678z00_1331 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2386))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_l2715z00_1335;
{ /* ./Ast/alphatize.scm 209 */
BgL_externz00_bglt BgL_obj1817z00_2387;
BgL_obj1817z00_2387 = 
(BgL_externz00_bglt)(BgL_nodez00_1323); 
BgL_l2715z00_1335 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2387))->BgL_exprza2za2); } 
{ /* ./Ast/alphatize.scm 209 */
bool_t BgL_test3688z00_1336;
BgL_test3688z00_1336 = 
NULLP(BgL_l2715z00_1335); 
if(BgL_test3688z00_1336)
{ /* ./Ast/alphatize.scm 209 */
BgL_arg3679z00_1332 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_head2717z00_1337;
{ /* ./Ast/alphatize.scm 209 */
BgL_nodez00_bglt BgL_arg3710z00_1348;
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_arg3715z00_1350;
BgL_arg3715z00_1350 = 
CAR(BgL_l2715z00_1335); 
{ /* ./Ast/alphatize.scm 209 */
BgL_nodez00_bglt BgL_res4779z00_2416;
{ /* ./Ast/alphatize.scm 209 */
BgL_nodez00_bglt BgL_nodez00_2390;
BgL_nodez00_2390 = 
(BgL_nodez00_bglt)(BgL_arg3715z00_1350); 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_method2843z00_2391;
{ /* ./Ast/alphatize.scm 209 */
BgL_objectz00_bglt BgL_objz00_2392;
BgL_objz00_2392 = 
(BgL_objectz00_bglt)(BgL_nodez00_2390); 
{ /* ./Ast/alphatize.scm 209 */
long BgL_objzd2classzd2numz00_2393;
BgL_objzd2classzd2numz00_2393 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2392); 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_arg2017z00_2394;
{ /* ./Ast/alphatize.scm 209 */
int BgL_auxz00_5406;
BgL_auxz00_5406 = 
(int)(((long)1)); 
BgL_arg2017z00_2394 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5406); } 
{ /* ./Ast/alphatize.scm 209 */
int BgL_offsetz00_2397;
BgL_offsetz00_2397 = 
(int)(BgL_objzd2classzd2numz00_2393); 
{ /* ./Ast/alphatize.scm 209 */
long BgL_offsetz00_2398;
{ /* ./Ast/alphatize.scm 209 */
long BgL_auxz00_5410;
BgL_auxz00_5410 = 
(long)(BgL_offsetz00_2397); 
BgL_offsetz00_2398 = 
(BgL_auxz00_5410-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 209 */
long BgL_modz00_2399;
{ /* ./Ast/alphatize.scm 209 */
int BgL_arg2028z00_2400;
BgL_arg2028z00_2400 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 209 */
long BgL_n2z00_2408;
BgL_n2z00_2408 = 
(long)(BgL_arg2028z00_2400); 
BgL_modz00_2399 = 
(BgL_offsetz00_2398/BgL_n2z00_2408); } } 
{ /* ./Ast/alphatize.scm 209 */
long BgL_restz00_2401;
{ /* ./Ast/alphatize.scm 209 */
int BgL_arg2024z00_2402;
BgL_arg2024z00_2402 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 209 */
long BgL_n2z00_2411;
BgL_n2z00_2411 = 
(long)(BgL_arg2024z00_2402); 
BgL_restz00_2401 = 
(BgL_offsetz00_2398%BgL_n2z00_2411); } } 
{ /* ./Ast/alphatize.scm 209 */

{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_bucketz00_2403;
{ /* ./Ast/alphatize.scm 209 */
int BgL_kz00_2413;
BgL_kz00_2413 = 
(int)(BgL_modz00_2399); 
BgL_bucketz00_2403 = 
VECTOR_REF(BgL_arg2017z00_2394,BgL_kz00_2413); } 
{ /* ./Ast/alphatize.scm 209 */
int BgL_kz00_2415;
BgL_kz00_2415 = 
(int)(BgL_restz00_2401); 
BgL_method2843z00_2391 = 
VECTOR_REF(BgL_bucketz00_2403,BgL_kz00_2415); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_auxz00_5423;
BgL_auxz00_5423 = 
PROCEDURE_ENTRY(BgL_method2843z00_2391)(BgL_method2843z00_2391, 
(obj_t)(BgL_nodez00_2390), BEOA); 
BgL_res4779z00_2416 = 
(BgL_nodez00_bglt)(BgL_auxz00_5423); } } } 
BgL_arg3710z00_1348 = BgL_res4779z00_2416; } } 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_obj1z00_2417;
BgL_obj1z00_2417 = 
(obj_t)(BgL_arg3710z00_1348); 
BgL_head2717z00_1337 = 
MAKE_PAIR(BgL_obj1z00_2417, BNIL); } } 
{ 
obj_t BgL_l2715z00_1338;obj_t BgL_tail2718z00_1339;
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_arg3690z00_1341;
BgL_arg3690z00_1341 = 
CDR(BgL_l2715z00_1335); 
BgL_l2715z00_1338 = BgL_arg3690z00_1341; 
BgL_tail2718z00_1339 = BgL_head2717z00_1337; 
BgL_map2716z00_1340:
{ /* ./Ast/alphatize.scm 209 */
bool_t BgL_test3693z00_1342;
BgL_test3693z00_1342 = 
NULLP(BgL_l2715z00_1338); 
if(BgL_test3693z00_1342)
{ /* ./Ast/alphatize.scm 209 */
BgL_arg3679z00_1332 = BgL_head2717z00_1337; }  else 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_newtail2719z00_1343;
{ /* ./Ast/alphatize.scm 209 */
BgL_nodez00_bglt BgL_arg3701z00_1345;
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_arg3705z00_1347;
BgL_arg3705z00_1347 = 
CAR(BgL_l2715z00_1338); 
{ /* ./Ast/alphatize.scm 209 */
BgL_nodez00_bglt BgL_res4782z00_2448;
{ /* ./Ast/alphatize.scm 209 */
BgL_nodez00_bglt BgL_nodez00_2422;
BgL_nodez00_2422 = 
(BgL_nodez00_bglt)(BgL_arg3705z00_1347); 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_method2843z00_2423;
{ /* ./Ast/alphatize.scm 209 */
BgL_objectz00_bglt BgL_objz00_2424;
BgL_objz00_2424 = 
(BgL_objectz00_bglt)(BgL_nodez00_2422); 
{ /* ./Ast/alphatize.scm 209 */
long BgL_objzd2classzd2numz00_2425;
BgL_objzd2classzd2numz00_2425 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2424); 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_arg2017z00_2426;
{ /* ./Ast/alphatize.scm 209 */
int BgL_auxz00_5437;
BgL_auxz00_5437 = 
(int)(((long)1)); 
BgL_arg2017z00_2426 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5437); } 
{ /* ./Ast/alphatize.scm 209 */
int BgL_offsetz00_2429;
BgL_offsetz00_2429 = 
(int)(BgL_objzd2classzd2numz00_2425); 
{ /* ./Ast/alphatize.scm 209 */
long BgL_offsetz00_2430;
{ /* ./Ast/alphatize.scm 209 */
long BgL_auxz00_5441;
BgL_auxz00_5441 = 
(long)(BgL_offsetz00_2429); 
BgL_offsetz00_2430 = 
(BgL_auxz00_5441-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 209 */
long BgL_modz00_2431;
{ /* ./Ast/alphatize.scm 209 */
int BgL_arg2028z00_2432;
BgL_arg2028z00_2432 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 209 */
long BgL_n2z00_2440;
BgL_n2z00_2440 = 
(long)(BgL_arg2028z00_2432); 
BgL_modz00_2431 = 
(BgL_offsetz00_2430/BgL_n2z00_2440); } } 
{ /* ./Ast/alphatize.scm 209 */
long BgL_restz00_2433;
{ /* ./Ast/alphatize.scm 209 */
int BgL_arg2024z00_2434;
BgL_arg2024z00_2434 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 209 */
long BgL_n2z00_2443;
BgL_n2z00_2443 = 
(long)(BgL_arg2024z00_2434); 
BgL_restz00_2433 = 
(BgL_offsetz00_2430%BgL_n2z00_2443); } } 
{ /* ./Ast/alphatize.scm 209 */

{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_bucketz00_2435;
{ /* ./Ast/alphatize.scm 209 */
int BgL_kz00_2445;
BgL_kz00_2445 = 
(int)(BgL_modz00_2431); 
BgL_bucketz00_2435 = 
VECTOR_REF(BgL_arg2017z00_2426,BgL_kz00_2445); } 
{ /* ./Ast/alphatize.scm 209 */
int BgL_kz00_2447;
BgL_kz00_2447 = 
(int)(BgL_restz00_2433); 
BgL_method2843z00_2423 = 
VECTOR_REF(BgL_bucketz00_2435,BgL_kz00_2447); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_auxz00_5454;
BgL_auxz00_5454 = 
PROCEDURE_ENTRY(BgL_method2843z00_2423)(BgL_method2843z00_2423, 
(obj_t)(BgL_nodez00_2422), BEOA); 
BgL_res4782z00_2448 = 
(BgL_nodez00_bglt)(BgL_auxz00_5454); } } } 
BgL_arg3701z00_1345 = BgL_res4782z00_2448; } } 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_obj1z00_2449;
BgL_obj1z00_2449 = 
(obj_t)(BgL_arg3701z00_1345); 
BgL_newtail2719z00_1343 = 
MAKE_PAIR(BgL_obj1z00_2449, BNIL); } } 
SET_CDR(BgL_tail2718z00_1339, BgL_newtail2719z00_1343); 
{ /* ./Ast/alphatize.scm 209 */
obj_t BgL_arg3697z00_1344;
BgL_arg3697z00_1344 = 
CDR(BgL_l2715z00_1338); 
{ 
obj_t BgL_tail2718z00_5464;obj_t BgL_l2715z00_5463;
BgL_l2715z00_5463 = BgL_arg3697z00_1344; 
BgL_tail2718z00_5464 = BgL_newtail2719z00_1343; 
BgL_tail2718z00_1339 = BgL_tail2718z00_5464; 
BgL_l2715z00_1338 = BgL_l2715z00_5463; 
goto BgL_map2716z00_1340;} } } } } } } } } 
{ /* ./Ast/alphatize.scm 207 */
BgL_externz00_bglt BgL_obj1820z00_2454;
BgL_obj1820z00_2454 = 
(BgL_externz00_bglt)(BgL_nodez00_1323); 
BgL_arg3681z00_1333 = 
(((BgL_externz00_bglt)CREF(BgL_obj1820z00_2454))->BgL_effectz00); } 
BgL_arg3682z00_1334 = 
(((BgL_pragmaz00_bglt)CREF(BgL_nodez00_1323))->BgL_formatz00); 
BgL_new2714z00_1327 = 
BGl_makezd2pragmazd2zzast_nodez00(BgL_arg3675z00_1328, BgL_arg3676z00_1329, BgL_arg3677z00_1330, BgL_arg3678z00_1331, BgL_arg3679z00_1332, BgL_arg3681z00_1333, BgL_arg3682z00_1334); } 
{ /* ./Ast/alphatize.scm 207 */

BgL_auxz00_5389 = BgL_new2714z00_1327; } } 
return 
(obj_t)(BgL_auxz00_5389);} } } 
}



/* do-alphatize-funcall2859 */
obj_t BGl_dozd2alphatiza7ezd2funcall2859za7zzast_alphatiza7eza7(obj_t BgL_envz00_3787, obj_t BgL_nodez00_3788)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 184 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1274;
BgL_nodez00_1274 = 
(BgL_funcallz00_bglt)(BgL_nodez00_3788); 
{ /* ./Ast/alphatize.scm 185 */
BgL_nodez00_bglt BgL_funz00_1277;obj_t BgL_argsz00_1278;
{ /* ./Ast/alphatize.scm 185 */
BgL_nodez00_bglt BgL_arg3634z00_1304;
BgL_arg3634z00_1304 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1274))->BgL_funz00); 
{ /* ./Ast/alphatize.scm 185 */
BgL_nodez00_bglt BgL_res4770z00_2307;
{ /* ./Ast/alphatize.scm 185 */
obj_t BgL_method2843z00_2282;
{ /* ./Ast/alphatize.scm 185 */
BgL_objectz00_bglt BgL_objz00_2283;
BgL_objz00_2283 = 
(BgL_objectz00_bglt)(BgL_arg3634z00_1304); 
{ /* ./Ast/alphatize.scm 185 */
long BgL_objzd2classzd2numz00_2284;
BgL_objzd2classzd2numz00_2284 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2283); 
{ /* ./Ast/alphatize.scm 185 */
obj_t BgL_arg2017z00_2285;
{ /* ./Ast/alphatize.scm 185 */
int BgL_auxz00_5474;
BgL_auxz00_5474 = 
(int)(((long)1)); 
BgL_arg2017z00_2285 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5474); } 
{ /* ./Ast/alphatize.scm 185 */
int BgL_offsetz00_2288;
BgL_offsetz00_2288 = 
(int)(BgL_objzd2classzd2numz00_2284); 
{ /* ./Ast/alphatize.scm 185 */
long BgL_offsetz00_2289;
{ /* ./Ast/alphatize.scm 185 */
long BgL_auxz00_5478;
BgL_auxz00_5478 = 
(long)(BgL_offsetz00_2288); 
BgL_offsetz00_2289 = 
(BgL_auxz00_5478-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 185 */
long BgL_modz00_2290;
{ /* ./Ast/alphatize.scm 185 */
int BgL_arg2028z00_2291;
BgL_arg2028z00_2291 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 185 */
long BgL_n2z00_2299;
BgL_n2z00_2299 = 
(long)(BgL_arg2028z00_2291); 
BgL_modz00_2290 = 
(BgL_offsetz00_2289/BgL_n2z00_2299); } } 
{ /* ./Ast/alphatize.scm 185 */
long BgL_restz00_2292;
{ /* ./Ast/alphatize.scm 185 */
int BgL_arg2024z00_2293;
BgL_arg2024z00_2293 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 185 */
long BgL_n2z00_2302;
BgL_n2z00_2302 = 
(long)(BgL_arg2024z00_2293); 
BgL_restz00_2292 = 
(BgL_offsetz00_2289%BgL_n2z00_2302); } } 
{ /* ./Ast/alphatize.scm 185 */

{ /* ./Ast/alphatize.scm 185 */
obj_t BgL_bucketz00_2294;
{ /* ./Ast/alphatize.scm 185 */
int BgL_kz00_2304;
BgL_kz00_2304 = 
(int)(BgL_modz00_2290); 
BgL_bucketz00_2294 = 
VECTOR_REF(BgL_arg2017z00_2285,BgL_kz00_2304); } 
{ /* ./Ast/alphatize.scm 185 */
int BgL_kz00_2306;
BgL_kz00_2306 = 
(int)(BgL_restz00_2292); 
BgL_method2843z00_2282 = 
VECTOR_REF(BgL_bucketz00_2294,BgL_kz00_2306); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 185 */
obj_t BgL_auxz00_5491;
BgL_auxz00_5491 = 
PROCEDURE_ENTRY(BgL_method2843z00_2282)(BgL_method2843z00_2282, 
(obj_t)(BgL_arg3634z00_1304), BEOA); 
BgL_res4770z00_2307 = 
(BgL_nodez00_bglt)(BgL_auxz00_5491); } } 
BgL_funz00_1277 = BgL_res4770z00_2307; } } 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_l2704z00_1305;
BgL_l2704z00_1305 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1274))->BgL_argsz00); 
{ /* ./Ast/alphatize.scm 186 */
bool_t BgL_test3637z00_1306;
BgL_test3637z00_1306 = 
NULLP(BgL_l2704z00_1305); 
if(BgL_test3637z00_1306)
{ /* ./Ast/alphatize.scm 186 */
BgL_argsz00_1278 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_head2706z00_1307;
{ /* ./Ast/alphatize.scm 186 */
BgL_nodez00_bglt BgL_arg3659z00_1318;
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_arg3663z00_1320;
BgL_arg3663z00_1320 = 
CAR(BgL_l2704z00_1305); 
{ /* ./Ast/alphatize.scm 186 */
BgL_nodez00_bglt BgL_res4773z00_2337;
{ /* ./Ast/alphatize.scm 186 */
BgL_nodez00_bglt BgL_nodez00_2311;
BgL_nodez00_2311 = 
(BgL_nodez00_bglt)(BgL_arg3663z00_1320); 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_method2843z00_2312;
{ /* ./Ast/alphatize.scm 186 */
BgL_objectz00_bglt BgL_objz00_2313;
BgL_objz00_2313 = 
(BgL_objectz00_bglt)(BgL_nodez00_2311); 
{ /* ./Ast/alphatize.scm 186 */
long BgL_objzd2classzd2numz00_2314;
BgL_objzd2classzd2numz00_2314 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2313); 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_arg2017z00_2315;
{ /* ./Ast/alphatize.scm 186 */
int BgL_auxz00_5503;
BgL_auxz00_5503 = 
(int)(((long)1)); 
BgL_arg2017z00_2315 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5503); } 
{ /* ./Ast/alphatize.scm 186 */
int BgL_offsetz00_2318;
BgL_offsetz00_2318 = 
(int)(BgL_objzd2classzd2numz00_2314); 
{ /* ./Ast/alphatize.scm 186 */
long BgL_offsetz00_2319;
{ /* ./Ast/alphatize.scm 186 */
long BgL_auxz00_5507;
BgL_auxz00_5507 = 
(long)(BgL_offsetz00_2318); 
BgL_offsetz00_2319 = 
(BgL_auxz00_5507-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 186 */
long BgL_modz00_2320;
{ /* ./Ast/alphatize.scm 186 */
int BgL_arg2028z00_2321;
BgL_arg2028z00_2321 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 186 */
long BgL_n2z00_2329;
BgL_n2z00_2329 = 
(long)(BgL_arg2028z00_2321); 
BgL_modz00_2320 = 
(BgL_offsetz00_2319/BgL_n2z00_2329); } } 
{ /* ./Ast/alphatize.scm 186 */
long BgL_restz00_2322;
{ /* ./Ast/alphatize.scm 186 */
int BgL_arg2024z00_2323;
BgL_arg2024z00_2323 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 186 */
long BgL_n2z00_2332;
BgL_n2z00_2332 = 
(long)(BgL_arg2024z00_2323); 
BgL_restz00_2322 = 
(BgL_offsetz00_2319%BgL_n2z00_2332); } } 
{ /* ./Ast/alphatize.scm 186 */

{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_bucketz00_2324;
{ /* ./Ast/alphatize.scm 186 */
int BgL_kz00_2334;
BgL_kz00_2334 = 
(int)(BgL_modz00_2320); 
BgL_bucketz00_2324 = 
VECTOR_REF(BgL_arg2017z00_2315,BgL_kz00_2334); } 
{ /* ./Ast/alphatize.scm 186 */
int BgL_kz00_2336;
BgL_kz00_2336 = 
(int)(BgL_restz00_2322); 
BgL_method2843z00_2312 = 
VECTOR_REF(BgL_bucketz00_2324,BgL_kz00_2336); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_auxz00_5520;
BgL_auxz00_5520 = 
PROCEDURE_ENTRY(BgL_method2843z00_2312)(BgL_method2843z00_2312, 
(obj_t)(BgL_nodez00_2311), BEOA); 
BgL_res4773z00_2337 = 
(BgL_nodez00_bglt)(BgL_auxz00_5520); } } } 
BgL_arg3659z00_1318 = BgL_res4773z00_2337; } } 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_obj1z00_2338;
BgL_obj1z00_2338 = 
(obj_t)(BgL_arg3659z00_1318); 
BgL_head2706z00_1307 = 
MAKE_PAIR(BgL_obj1z00_2338, BNIL); } } 
{ 
obj_t BgL_l2704z00_1308;obj_t BgL_tail2707z00_1309;
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_arg3639z00_1311;
BgL_arg3639z00_1311 = 
CDR(BgL_l2704z00_1305); 
BgL_l2704z00_1308 = BgL_arg3639z00_1311; 
BgL_tail2707z00_1309 = BgL_head2706z00_1307; 
BgL_map2705z00_1310:
{ /* ./Ast/alphatize.scm 186 */
bool_t BgL_test3642z00_1312;
BgL_test3642z00_1312 = 
NULLP(BgL_l2704z00_1308); 
if(BgL_test3642z00_1312)
{ /* ./Ast/alphatize.scm 186 */
BgL_argsz00_1278 = BgL_head2706z00_1307; }  else 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_newtail2708z00_1313;
{ /* ./Ast/alphatize.scm 186 */
BgL_nodez00_bglt BgL_arg3650z00_1315;
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_arg3654z00_1317;
BgL_arg3654z00_1317 = 
CAR(BgL_l2704z00_1308); 
{ /* ./Ast/alphatize.scm 186 */
BgL_nodez00_bglt BgL_res4776z00_2369;
{ /* ./Ast/alphatize.scm 186 */
BgL_nodez00_bglt BgL_nodez00_2343;
BgL_nodez00_2343 = 
(BgL_nodez00_bglt)(BgL_arg3654z00_1317); 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_method2843z00_2344;
{ /* ./Ast/alphatize.scm 186 */
BgL_objectz00_bglt BgL_objz00_2345;
BgL_objz00_2345 = 
(BgL_objectz00_bglt)(BgL_nodez00_2343); 
{ /* ./Ast/alphatize.scm 186 */
long BgL_objzd2classzd2numz00_2346;
BgL_objzd2classzd2numz00_2346 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2345); 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_arg2017z00_2347;
{ /* ./Ast/alphatize.scm 186 */
int BgL_auxz00_5534;
BgL_auxz00_5534 = 
(int)(((long)1)); 
BgL_arg2017z00_2347 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5534); } 
{ /* ./Ast/alphatize.scm 186 */
int BgL_offsetz00_2350;
BgL_offsetz00_2350 = 
(int)(BgL_objzd2classzd2numz00_2346); 
{ /* ./Ast/alphatize.scm 186 */
long BgL_offsetz00_2351;
{ /* ./Ast/alphatize.scm 186 */
long BgL_auxz00_5538;
BgL_auxz00_5538 = 
(long)(BgL_offsetz00_2350); 
BgL_offsetz00_2351 = 
(BgL_auxz00_5538-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 186 */
long BgL_modz00_2352;
{ /* ./Ast/alphatize.scm 186 */
int BgL_arg2028z00_2353;
BgL_arg2028z00_2353 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 186 */
long BgL_n2z00_2361;
BgL_n2z00_2361 = 
(long)(BgL_arg2028z00_2353); 
BgL_modz00_2352 = 
(BgL_offsetz00_2351/BgL_n2z00_2361); } } 
{ /* ./Ast/alphatize.scm 186 */
long BgL_restz00_2354;
{ /* ./Ast/alphatize.scm 186 */
int BgL_arg2024z00_2355;
BgL_arg2024z00_2355 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 186 */
long BgL_n2z00_2364;
BgL_n2z00_2364 = 
(long)(BgL_arg2024z00_2355); 
BgL_restz00_2354 = 
(BgL_offsetz00_2351%BgL_n2z00_2364); } } 
{ /* ./Ast/alphatize.scm 186 */

{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_bucketz00_2356;
{ /* ./Ast/alphatize.scm 186 */
int BgL_kz00_2366;
BgL_kz00_2366 = 
(int)(BgL_modz00_2352); 
BgL_bucketz00_2356 = 
VECTOR_REF(BgL_arg2017z00_2347,BgL_kz00_2366); } 
{ /* ./Ast/alphatize.scm 186 */
int BgL_kz00_2368;
BgL_kz00_2368 = 
(int)(BgL_restz00_2354); 
BgL_method2843z00_2344 = 
VECTOR_REF(BgL_bucketz00_2356,BgL_kz00_2368); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_auxz00_5551;
BgL_auxz00_5551 = 
PROCEDURE_ENTRY(BgL_method2843z00_2344)(BgL_method2843z00_2344, 
(obj_t)(BgL_nodez00_2343), BEOA); 
BgL_res4776z00_2369 = 
(BgL_nodez00_bglt)(BgL_auxz00_5551); } } } 
BgL_arg3650z00_1315 = BgL_res4776z00_2369; } } 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_obj1z00_2370;
BgL_obj1z00_2370 = 
(obj_t)(BgL_arg3650z00_1315); 
BgL_newtail2708z00_1313 = 
MAKE_PAIR(BgL_obj1z00_2370, BNIL); } } 
SET_CDR(BgL_tail2707z00_1309, BgL_newtail2708z00_1313); 
{ /* ./Ast/alphatize.scm 186 */
obj_t BgL_arg3645z00_1314;
BgL_arg3645z00_1314 = 
CDR(BgL_l2704z00_1308); 
{ 
obj_t BgL_tail2707z00_5561;obj_t BgL_l2704z00_5560;
BgL_l2704z00_5560 = BgL_arg3645z00_1314; 
BgL_tail2707z00_5561 = BgL_newtail2708z00_1313; 
BgL_tail2707z00_1309 = BgL_tail2707z00_5561; 
BgL_l2704z00_1308 = BgL_l2704z00_5560; 
goto BgL_map2705z00_1310;} } } } } } } } } 
{ /* ./Ast/alphatize.scm 187 */
bool_t BgL_test3588z00_1279;
{ /* ./Ast/alphatize.scm 187 */
obj_t BgL_obj1660z00_2375;
BgL_obj1660z00_2375 = 
(obj_t)(BgL_funz00_1277); 
BgL_test3588z00_1279 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1660z00_2375, BGl_closurez00zzast_nodez00); } 
if(BgL_test3588z00_1279)
{ /* ./Ast/alphatize.scm 188 */
bool_t BgL_test3589z00_1280;
{ /* ./Ast/alphatize.scm 188 */
BgL_variablez00_bglt BgL_arg3616z00_1295;obj_t BgL_arg3617z00_1296;
{ /* ./Ast/alphatize.scm 188 */
BgL_varz00_bglt BgL_obj1625z00_2376;
BgL_obj1625z00_2376 = 
(BgL_varz00_bglt)(BgL_funz00_1277); 
BgL_arg3616z00_1295 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2376))->BgL_variablez00); } 
BgL_arg3617z00_1296 = 
CDR(BgL_argsz00_1278); 
BgL_test3589z00_1280 = 
BGl_correctzd2arityzd2appzf3zf3zzast_appz00(BgL_arg3616z00_1295, BgL_arg3617z00_1296); } 
if(BgL_test3589z00_1280)
{ /* ./Ast/alphatize.scm 190 */
obj_t BgL_arg3592z00_1282;BgL_varz00_bglt BgL_arg3593z00_1283;obj_t BgL_arg3594z00_1284;
BgL_arg3592z00_1282 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1274)); 
{ /* ./Ast/alphatize.scm 192 */
BgL_varz00_bglt BgL_duplicated2709z00_1285;
BgL_duplicated2709z00_1285 = 
(BgL_varz00_bglt)(BgL_funz00_1277); 
{ /* ./Ast/alphatize.scm 192 */
BgL_varz00_bglt BgL_new2710z00_1286;
{ /* ./Ast/alphatize.scm 192 */
obj_t BgL_arg3598z00_1287;BgL_typez00_bglt BgL_arg3599z00_1288;BgL_variablez00_bglt BgL_arg3600z00_1289;
{ /* ./Ast/alphatize.scm 192 */
BgL_nodez00_bglt BgL_obj1560z00_2378;
BgL_obj1560z00_2378 = 
(BgL_nodez00_bglt)(BgL_duplicated2709z00_1285); 
BgL_arg3598z00_1287 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2378))->BgL_locz00); } 
{ /* ./Ast/alphatize.scm 192 */
BgL_nodez00_bglt BgL_obj1561z00_2379;
BgL_obj1561z00_2379 = 
(BgL_nodez00_bglt)(BgL_duplicated2709z00_1285); 
BgL_arg3599z00_1288 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2379))->BgL_typez00); } 
BgL_arg3600z00_1289 = 
(((BgL_varz00_bglt)CREF(BgL_duplicated2709z00_1285))->BgL_variablez00); 
BgL_new2710z00_1286 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3598z00_1287, BgL_arg3599z00_1288, BgL_arg3600z00_1289); } 
{ /* ./Ast/alphatize.scm 192 */

BgL_arg3593z00_1283 = BgL_new2710z00_1286; } } } 
BgL_arg3594z00_1284 = 
CDR(BgL_argsz00_1278); 
{ /* ./Ast/alphatize.scm 190 */
BgL_nodez00_bglt BgL_auxz00_5580;
BgL_auxz00_5580 = 
BGl_makezd2appzd2nodez00zzast_appz00(BNIL, BgL_arg3592z00_1282, BgL_arg3593z00_1283, BgL_arg3594z00_1284); 
return 
(obj_t)(BgL_auxz00_5580);} }  else 
{ /* ./Ast/alphatize.scm 194 */
obj_t BgL_arg3607z00_1290;obj_t BgL_arg3610z00_1293;
BgL_arg3607z00_1290 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1274)); 
BgL_arg3610z00_1293 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1274)); 
return 
BGl_userzd2errorzf2locationz20zztools_errorz00(BgL_arg3607z00_1290, BGl_string5901z00zzast_alphatiza7eza7, BGl_string5902z00zzast_alphatiza7eza7, BgL_arg3610z00_1293, BNIL);} }  else 
{ /* ./Ast/alphatize.scm 199 */
BgL_funcallz00_bglt BgL_new2712z00_1298;
{ /* ./Ast/alphatize.scm 199 */
obj_t BgL_arg3623z00_1299;BgL_typez00_bglt BgL_arg3624z00_1300;BgL_nodez00_bglt BgL_arg3625z00_1301;obj_t BgL_arg3626z00_1302;obj_t BgL_arg3627z00_1303;
BgL_arg3623z00_1299 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1274)); 
{ /* ./Ast/alphatize.scm 198 */
BgL_nodez00_bglt BgL_obj1561z00_2382;
BgL_obj1561z00_2382 = 
(BgL_nodez00_bglt)(BgL_nodez00_1274); 
BgL_arg3624z00_1300 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2382))->BgL_typez00); } 
BgL_arg3625z00_1301 = BgL_funz00_1277; 
BgL_arg3626z00_1302 = BgL_argsz00_1278; 
BgL_arg3627z00_1303 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1274))->BgL_strengthz00); 
BgL_new2712z00_1298 = 
BGl_makezd2funcallzd2zzast_nodez00(BgL_arg3623z00_1299, BgL_arg3624z00_1300, BgL_arg3625z00_1301, BgL_arg3626z00_1302, BgL_arg3627z00_1303); } 
{ /* ./Ast/alphatize.scm 198 */

return 
(obj_t)(BgL_new2712z00_1298);} } } } } } 
}



/* do-alphatize-app-ly2857 */
obj_t BGl_dozd2alphatiza7ezd2appzd2ly2857z75zzast_alphatiza7eza7(obj_t BgL_envz00_3789, obj_t BgL_nodez00_3790)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 164 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1249;
BgL_nodez00_1249 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_3790); 
{ /* ./Ast/alphatize.scm 165 */
BgL_nodez00_bglt BgL_funz00_1252;BgL_nodez00_bglt BgL_argz00_1253;
{ /* ./Ast/alphatize.scm 165 */
BgL_nodez00_bglt BgL_arg3575z00_1270;
BgL_arg3575z00_1270 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1249))->BgL_funz00); 
{ /* ./Ast/alphatize.scm 165 */
BgL_nodez00_bglt BgL_res4764z00_2246;
{ /* ./Ast/alphatize.scm 165 */
obj_t BgL_method2843z00_2221;
{ /* ./Ast/alphatize.scm 165 */
BgL_objectz00_bglt BgL_objz00_2222;
BgL_objz00_2222 = 
(BgL_objectz00_bglt)(BgL_arg3575z00_1270); 
{ /* ./Ast/alphatize.scm 165 */
long BgL_objzd2classzd2numz00_2223;
BgL_objzd2classzd2numz00_2223 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2222); 
{ /* ./Ast/alphatize.scm 165 */
obj_t BgL_arg2017z00_2224;
{ /* ./Ast/alphatize.scm 165 */
int BgL_auxz00_5599;
BgL_auxz00_5599 = 
(int)(((long)1)); 
BgL_arg2017z00_2224 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5599); } 
{ /* ./Ast/alphatize.scm 165 */
int BgL_offsetz00_2227;
BgL_offsetz00_2227 = 
(int)(BgL_objzd2classzd2numz00_2223); 
{ /* ./Ast/alphatize.scm 165 */
long BgL_offsetz00_2228;
{ /* ./Ast/alphatize.scm 165 */
long BgL_auxz00_5603;
BgL_auxz00_5603 = 
(long)(BgL_offsetz00_2227); 
BgL_offsetz00_2228 = 
(BgL_auxz00_5603-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 165 */
long BgL_modz00_2229;
{ /* ./Ast/alphatize.scm 165 */
int BgL_arg2028z00_2230;
BgL_arg2028z00_2230 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 165 */
long BgL_n2z00_2238;
BgL_n2z00_2238 = 
(long)(BgL_arg2028z00_2230); 
BgL_modz00_2229 = 
(BgL_offsetz00_2228/BgL_n2z00_2238); } } 
{ /* ./Ast/alphatize.scm 165 */
long BgL_restz00_2231;
{ /* ./Ast/alphatize.scm 165 */
int BgL_arg2024z00_2232;
BgL_arg2024z00_2232 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 165 */
long BgL_n2z00_2241;
BgL_n2z00_2241 = 
(long)(BgL_arg2024z00_2232); 
BgL_restz00_2231 = 
(BgL_offsetz00_2228%BgL_n2z00_2241); } } 
{ /* ./Ast/alphatize.scm 165 */

{ /* ./Ast/alphatize.scm 165 */
obj_t BgL_bucketz00_2233;
{ /* ./Ast/alphatize.scm 165 */
int BgL_kz00_2243;
BgL_kz00_2243 = 
(int)(BgL_modz00_2229); 
BgL_bucketz00_2233 = 
VECTOR_REF(BgL_arg2017z00_2224,BgL_kz00_2243); } 
{ /* ./Ast/alphatize.scm 165 */
int BgL_kz00_2245;
BgL_kz00_2245 = 
(int)(BgL_restz00_2231); 
BgL_method2843z00_2221 = 
VECTOR_REF(BgL_bucketz00_2233,BgL_kz00_2245); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 165 */
obj_t BgL_auxz00_5616;
BgL_auxz00_5616 = 
PROCEDURE_ENTRY(BgL_method2843z00_2221)(BgL_method2843z00_2221, 
(obj_t)(BgL_arg3575z00_1270), BEOA); 
BgL_res4764z00_2246 = 
(BgL_nodez00_bglt)(BgL_auxz00_5616); } } 
BgL_funz00_1252 = BgL_res4764z00_2246; } } 
{ /* ./Ast/alphatize.scm 166 */
BgL_nodez00_bglt BgL_arg3579z00_1271;
BgL_arg3579z00_1271 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1249))->BgL_argz00); 
{ /* ./Ast/alphatize.scm 166 */
BgL_nodez00_bglt BgL_res4767z00_2274;
{ /* ./Ast/alphatize.scm 166 */
obj_t BgL_method2843z00_2249;
{ /* ./Ast/alphatize.scm 166 */
BgL_objectz00_bglt BgL_objz00_2250;
BgL_objz00_2250 = 
(BgL_objectz00_bglt)(BgL_arg3579z00_1271); 
{ /* ./Ast/alphatize.scm 166 */
long BgL_objzd2classzd2numz00_2251;
BgL_objzd2classzd2numz00_2251 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2250); 
{ /* ./Ast/alphatize.scm 166 */
obj_t BgL_arg2017z00_2252;
{ /* ./Ast/alphatize.scm 166 */
int BgL_auxz00_5624;
BgL_auxz00_5624 = 
(int)(((long)1)); 
BgL_arg2017z00_2252 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5624); } 
{ /* ./Ast/alphatize.scm 166 */
int BgL_offsetz00_2255;
BgL_offsetz00_2255 = 
(int)(BgL_objzd2classzd2numz00_2251); 
{ /* ./Ast/alphatize.scm 166 */
long BgL_offsetz00_2256;
{ /* ./Ast/alphatize.scm 166 */
long BgL_auxz00_5628;
BgL_auxz00_5628 = 
(long)(BgL_offsetz00_2255); 
BgL_offsetz00_2256 = 
(BgL_auxz00_5628-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 166 */
long BgL_modz00_2257;
{ /* ./Ast/alphatize.scm 166 */
int BgL_arg2028z00_2258;
BgL_arg2028z00_2258 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 166 */
long BgL_n2z00_2266;
BgL_n2z00_2266 = 
(long)(BgL_arg2028z00_2258); 
BgL_modz00_2257 = 
(BgL_offsetz00_2256/BgL_n2z00_2266); } } 
{ /* ./Ast/alphatize.scm 166 */
long BgL_restz00_2259;
{ /* ./Ast/alphatize.scm 166 */
int BgL_arg2024z00_2260;
BgL_arg2024z00_2260 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 166 */
long BgL_n2z00_2269;
BgL_n2z00_2269 = 
(long)(BgL_arg2024z00_2260); 
BgL_restz00_2259 = 
(BgL_offsetz00_2256%BgL_n2z00_2269); } } 
{ /* ./Ast/alphatize.scm 166 */

{ /* ./Ast/alphatize.scm 166 */
obj_t BgL_bucketz00_2261;
{ /* ./Ast/alphatize.scm 166 */
int BgL_kz00_2271;
BgL_kz00_2271 = 
(int)(BgL_modz00_2257); 
BgL_bucketz00_2261 = 
VECTOR_REF(BgL_arg2017z00_2252,BgL_kz00_2271); } 
{ /* ./Ast/alphatize.scm 166 */
int BgL_kz00_2273;
BgL_kz00_2273 = 
(int)(BgL_restz00_2259); 
BgL_method2843z00_2249 = 
VECTOR_REF(BgL_bucketz00_2261,BgL_kz00_2273); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 166 */
obj_t BgL_auxz00_5641;
BgL_auxz00_5641 = 
PROCEDURE_ENTRY(BgL_method2843z00_2249)(BgL_method2843z00_2249, 
(obj_t)(BgL_arg3579z00_1271), BEOA); 
BgL_res4767z00_2274 = 
(BgL_nodez00_bglt)(BgL_auxz00_5641); } } 
BgL_argz00_1253 = BgL_res4767z00_2274; } } 
{ /* ./Ast/alphatize.scm 167 */
bool_t BgL_test3548z00_1254;
{ /* ./Ast/alphatize.scm 167 */
obj_t BgL_obj1660z00_2275;
BgL_obj1660z00_2275 = 
(obj_t)(BgL_funz00_1252); 
BgL_test3548z00_1254 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1660z00_2275, BGl_closurez00zzast_nodez00); } 
if(BgL_test3548z00_1254)
{ /* ./Ast/alphatize.scm 168 */
obj_t BgL_arg3552z00_1256;BgL_varz00_bglt BgL_arg3553z00_1257;obj_t BgL_arg3554z00_1258;
BgL_arg3552z00_1256 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1249)); 
{ /* ./Ast/alphatize.scm 170 */
BgL_varz00_bglt BgL_duplicated2700z00_1259;
BgL_duplicated2700z00_1259 = 
(BgL_varz00_bglt)(BgL_funz00_1252); 
{ /* ./Ast/alphatize.scm 170 */
BgL_varz00_bglt BgL_new2701z00_1260;
{ /* ./Ast/alphatize.scm 170 */
obj_t BgL_arg3558z00_1261;BgL_typez00_bglt BgL_arg3559z00_1262;BgL_variablez00_bglt BgL_arg3560z00_1263;
{ /* ./Ast/alphatize.scm 170 */
BgL_nodez00_bglt BgL_obj1560z00_2276;
BgL_obj1560z00_2276 = 
(BgL_nodez00_bglt)(BgL_duplicated2700z00_1259); 
BgL_arg3558z00_1261 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2276))->BgL_locz00); } 
{ /* ./Ast/alphatize.scm 170 */
BgL_nodez00_bglt BgL_obj1561z00_2277;
BgL_obj1561z00_2277 = 
(BgL_nodez00_bglt)(BgL_duplicated2700z00_1259); 
BgL_arg3559z00_1262 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2277))->BgL_typez00); } 
BgL_arg3560z00_1263 = 
(((BgL_varz00_bglt)CREF(BgL_duplicated2700z00_1259))->BgL_variablez00); 
BgL_new2701z00_1260 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3558z00_1261, BgL_arg3559z00_1262, BgL_arg3560z00_1263); } 
{ /* ./Ast/alphatize.scm 170 */

BgL_arg3553z00_1257 = BgL_new2701z00_1260; } } } 
BgL_arg3554z00_1258 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Ast/alphatize.scm 168 */
BgL_nodez00_bglt BgL_auxz00_5659;
BgL_auxz00_5659 = 
BGl_knownzd2appzd2lyzd2ze3nodez31zzast_applyz00(BNIL, BgL_arg3552z00_1256, 
(BgL_nodez00_bglt)(BgL_arg3553z00_1257), BgL_argz00_1253, BgL_arg3554z00_1258); 
return 
(obj_t)(BgL_auxz00_5659);} }  else 
{ /* ./Ast/alphatize.scm 174 */
BgL_appzd2lyzd2_bglt BgL_new2703z00_1265;
{ /* ./Ast/alphatize.scm 174 */
obj_t BgL_arg3566z00_1266;BgL_typez00_bglt BgL_arg3567z00_1267;BgL_nodez00_bglt BgL_arg3568z00_1268;BgL_nodez00_bglt BgL_arg3569z00_1269;
BgL_arg3566z00_1266 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1249)); 
{ /* ./Ast/alphatize.scm 173 */
BgL_nodez00_bglt BgL_obj1561z00_2279;
BgL_obj1561z00_2279 = 
(BgL_nodez00_bglt)(BgL_nodez00_1249); 
BgL_arg3567z00_1267 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2279))->BgL_typez00); } 
BgL_arg3568z00_1268 = BgL_funz00_1252; 
BgL_arg3569z00_1269 = BgL_argz00_1253; 
BgL_new2703z00_1265 = 
BGl_makezd2appzd2lyz00zzast_nodez00(BgL_arg3566z00_1266, BgL_arg3567z00_1267, BgL_arg3568z00_1268, BgL_arg3569z00_1269); } 
{ /* ./Ast/alphatize.scm 173 */

return 
(obj_t)(BgL_new2703z00_1265);} } } } } } 
}



/* do-alphatize-app2855 */
obj_t BGl_dozd2alphatiza7ezd2app2855za7zzast_alphatiza7eza7(obj_t BgL_envz00_3791, obj_t BgL_nodez00_3792)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 150 */
{ 
BgL_appz00_bglt BgL_nodez00_1212;
{ /* ./Ast/alphatize.scm 153 */
BgL_appz00_bglt BgL_auxz00_5670;
BgL_nodez00_1212 = 
(BgL_appz00_bglt)(BgL_nodez00_3792); 
{ /* ./Ast/alphatize.scm 154 */
BgL_appz00_bglt BgL_new2692z00_1216;
{ /* ./Ast/alphatize.scm 154 */
obj_t BgL_arg3486z00_1217;BgL_typez00_bglt BgL_arg3487z00_1218;obj_t BgL_arg3488z00_1219;obj_t BgL_arg3489z00_1220;obj_t BgL_arg3490z00_1221;obj_t BgL_arg3491z00_1222;
BgL_arg3486z00_1217 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1212)); 
{ /* ./Ast/alphatize.scm 153 */
BgL_nodez00_bglt BgL_obj1561z00_2117;
BgL_obj1561z00_2117 = 
(BgL_nodez00_bglt)(BgL_nodez00_1212); 
BgL_arg3487z00_1218 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2117))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 153 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2118;
BgL_obj1578z00_2118 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1212); 
BgL_arg3488z00_1219 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2118))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 153 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2119;
BgL_obj1581z00_2119 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1212); 
BgL_arg3489z00_1220 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2119))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 155 */
BgL_nodez00_bglt BgL_varz00_1223;
{ /* ./Ast/alphatize.scm 155 */
BgL_varz00_bglt BgL_arg3508z00_1230;
BgL_arg3508z00_1230 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1212))->BgL_funz00); 
{ /* ./Ast/alphatize.scm 155 */
BgL_nodez00_bglt BgL_res4755z00_2147;
{ /* ./Ast/alphatize.scm 155 */
BgL_nodez00_bglt BgL_nodez00_2121;
BgL_nodez00_2121 = 
(BgL_nodez00_bglt)(BgL_arg3508z00_1230); 
{ /* ./Ast/alphatize.scm 155 */
obj_t BgL_method2843z00_2122;
{ /* ./Ast/alphatize.scm 155 */
BgL_objectz00_bglt BgL_objz00_2123;
BgL_objz00_2123 = 
(BgL_objectz00_bglt)(BgL_nodez00_2121); 
{ /* ./Ast/alphatize.scm 155 */
long BgL_objzd2classzd2numz00_2124;
BgL_objzd2classzd2numz00_2124 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2123); 
{ /* ./Ast/alphatize.scm 155 */
obj_t BgL_arg2017z00_2125;
{ /* ./Ast/alphatize.scm 155 */
int BgL_auxz00_5683;
BgL_auxz00_5683 = 
(int)(((long)1)); 
BgL_arg2017z00_2125 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5683); } 
{ /* ./Ast/alphatize.scm 155 */
int BgL_offsetz00_2128;
BgL_offsetz00_2128 = 
(int)(BgL_objzd2classzd2numz00_2124); 
{ /* ./Ast/alphatize.scm 155 */
long BgL_offsetz00_2129;
{ /* ./Ast/alphatize.scm 155 */
long BgL_auxz00_5687;
BgL_auxz00_5687 = 
(long)(BgL_offsetz00_2128); 
BgL_offsetz00_2129 = 
(BgL_auxz00_5687-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 155 */
long BgL_modz00_2130;
{ /* ./Ast/alphatize.scm 155 */
int BgL_arg2028z00_2131;
BgL_arg2028z00_2131 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 155 */
long BgL_n2z00_2139;
BgL_n2z00_2139 = 
(long)(BgL_arg2028z00_2131); 
BgL_modz00_2130 = 
(BgL_offsetz00_2129/BgL_n2z00_2139); } } 
{ /* ./Ast/alphatize.scm 155 */
long BgL_restz00_2132;
{ /* ./Ast/alphatize.scm 155 */
int BgL_arg2024z00_2133;
BgL_arg2024z00_2133 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 155 */
long BgL_n2z00_2142;
BgL_n2z00_2142 = 
(long)(BgL_arg2024z00_2133); 
BgL_restz00_2132 = 
(BgL_offsetz00_2129%BgL_n2z00_2142); } } 
{ /* ./Ast/alphatize.scm 155 */

{ /* ./Ast/alphatize.scm 155 */
obj_t BgL_bucketz00_2134;
{ /* ./Ast/alphatize.scm 155 */
int BgL_kz00_2144;
BgL_kz00_2144 = 
(int)(BgL_modz00_2130); 
BgL_bucketz00_2134 = 
VECTOR_REF(BgL_arg2017z00_2125,BgL_kz00_2144); } 
{ /* ./Ast/alphatize.scm 155 */
int BgL_kz00_2146;
BgL_kz00_2146 = 
(int)(BgL_restz00_2132); 
BgL_method2843z00_2122 = 
VECTOR_REF(BgL_bucketz00_2134,BgL_kz00_2146); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 155 */
obj_t BgL_auxz00_5700;
BgL_auxz00_5700 = 
PROCEDURE_ENTRY(BgL_method2843z00_2122)(BgL_method2843z00_2122, 
(obj_t)(BgL_nodez00_2121), BEOA); 
BgL_res4755z00_2147 = 
(BgL_nodez00_bglt)(BgL_auxz00_5700); } } } 
BgL_varz00_1223 = BgL_res4755z00_2147; } } 
{ /* ./Ast/alphatize.scm 156 */
bool_t BgL_test3497z00_1224;
{ /* ./Ast/alphatize.scm 156 */
obj_t BgL_obj1660z00_2148;
BgL_obj1660z00_2148 = 
(obj_t)(BgL_varz00_1223); 
BgL_test3497z00_1224 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1660z00_2148, BGl_closurez00zzast_nodez00); } 
if(BgL_test3497z00_1224)
{ /* ./Ast/alphatize.scm 157 */
BgL_varz00_bglt BgL_duplicated2693z00_1225;
BgL_duplicated2693z00_1225 = 
(BgL_varz00_bglt)(BgL_varz00_1223); 
{ /* ./Ast/alphatize.scm 157 */
BgL_varz00_bglt BgL_new2694z00_1226;
{ /* ./Ast/alphatize.scm 157 */
obj_t BgL_arg3499z00_1227;BgL_typez00_bglt BgL_arg3500z00_1228;BgL_variablez00_bglt BgL_arg3501z00_1229;
{ /* ./Ast/alphatize.scm 157 */
BgL_nodez00_bglt BgL_obj1560z00_2149;
BgL_obj1560z00_2149 = 
(BgL_nodez00_bglt)(BgL_duplicated2693z00_1225); 
BgL_arg3499z00_1227 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2149))->BgL_locz00); } 
{ /* ./Ast/alphatize.scm 157 */
BgL_nodez00_bglt BgL_obj1561z00_2150;
BgL_obj1561z00_2150 = 
(BgL_nodez00_bglt)(BgL_duplicated2693z00_1225); 
BgL_arg3500z00_1228 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2150))->BgL_typez00); } 
BgL_arg3501z00_1229 = 
(((BgL_varz00_bglt)CREF(BgL_duplicated2693z00_1225))->BgL_variablez00); 
BgL_new2694z00_1226 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3499z00_1227, BgL_arg3500z00_1228, BgL_arg3501z00_1229); } 
{ /* ./Ast/alphatize.scm 157 */

BgL_arg3490z00_1221 = 
(obj_t)(BgL_new2694z00_1226); } } }  else 
{ /* ./Ast/alphatize.scm 156 */
BgL_arg3490z00_1221 = 
(obj_t)(BgL_varz00_1223); } } } 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_l2695z00_1231;
BgL_l2695z00_1231 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1212))->BgL_argsz00); 
{ /* ./Ast/alphatize.scm 159 */
bool_t BgL_test3511z00_1232;
BgL_test3511z00_1232 = 
NULLP(BgL_l2695z00_1231); 
if(BgL_test3511z00_1232)
{ /* ./Ast/alphatize.scm 159 */
BgL_arg3491z00_1222 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_head2697z00_1233;
{ /* ./Ast/alphatize.scm 159 */
BgL_nodez00_bglt BgL_arg3533z00_1244;
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_arg3537z00_1246;
BgL_arg3537z00_1246 = 
CAR(BgL_l2695z00_1231); 
{ /* ./Ast/alphatize.scm 159 */
BgL_nodez00_bglt BgL_res4758z00_2181;
{ /* ./Ast/alphatize.scm 159 */
BgL_nodez00_bglt BgL_nodez00_2155;
BgL_nodez00_2155 = 
(BgL_nodez00_bglt)(BgL_arg3537z00_1246); 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_method2843z00_2156;
{ /* ./Ast/alphatize.scm 159 */
BgL_objectz00_bglt BgL_objz00_2157;
BgL_objz00_2157 = 
(BgL_objectz00_bglt)(BgL_nodez00_2155); 
{ /* ./Ast/alphatize.scm 159 */
long BgL_objzd2classzd2numz00_2158;
BgL_objzd2classzd2numz00_2158 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2157); 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_arg2017z00_2159;
{ /* ./Ast/alphatize.scm 159 */
int BgL_auxz00_5724;
BgL_auxz00_5724 = 
(int)(((long)1)); 
BgL_arg2017z00_2159 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5724); } 
{ /* ./Ast/alphatize.scm 159 */
int BgL_offsetz00_2162;
BgL_offsetz00_2162 = 
(int)(BgL_objzd2classzd2numz00_2158); 
{ /* ./Ast/alphatize.scm 159 */
long BgL_offsetz00_2163;
{ /* ./Ast/alphatize.scm 159 */
long BgL_auxz00_5728;
BgL_auxz00_5728 = 
(long)(BgL_offsetz00_2162); 
BgL_offsetz00_2163 = 
(BgL_auxz00_5728-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 159 */
long BgL_modz00_2164;
{ /* ./Ast/alphatize.scm 159 */
int BgL_arg2028z00_2165;
BgL_arg2028z00_2165 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 159 */
long BgL_n2z00_2173;
BgL_n2z00_2173 = 
(long)(BgL_arg2028z00_2165); 
BgL_modz00_2164 = 
(BgL_offsetz00_2163/BgL_n2z00_2173); } } 
{ /* ./Ast/alphatize.scm 159 */
long BgL_restz00_2166;
{ /* ./Ast/alphatize.scm 159 */
int BgL_arg2024z00_2167;
BgL_arg2024z00_2167 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 159 */
long BgL_n2z00_2176;
BgL_n2z00_2176 = 
(long)(BgL_arg2024z00_2167); 
BgL_restz00_2166 = 
(BgL_offsetz00_2163%BgL_n2z00_2176); } } 
{ /* ./Ast/alphatize.scm 159 */

{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_bucketz00_2168;
{ /* ./Ast/alphatize.scm 159 */
int BgL_kz00_2178;
BgL_kz00_2178 = 
(int)(BgL_modz00_2164); 
BgL_bucketz00_2168 = 
VECTOR_REF(BgL_arg2017z00_2159,BgL_kz00_2178); } 
{ /* ./Ast/alphatize.scm 159 */
int BgL_kz00_2180;
BgL_kz00_2180 = 
(int)(BgL_restz00_2166); 
BgL_method2843z00_2156 = 
VECTOR_REF(BgL_bucketz00_2168,BgL_kz00_2180); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_auxz00_5741;
BgL_auxz00_5741 = 
PROCEDURE_ENTRY(BgL_method2843z00_2156)(BgL_method2843z00_2156, 
(obj_t)(BgL_nodez00_2155), BEOA); 
BgL_res4758z00_2181 = 
(BgL_nodez00_bglt)(BgL_auxz00_5741); } } } 
BgL_arg3533z00_1244 = BgL_res4758z00_2181; } } 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_obj1z00_2182;
BgL_obj1z00_2182 = 
(obj_t)(BgL_arg3533z00_1244); 
BgL_head2697z00_1233 = 
MAKE_PAIR(BgL_obj1z00_2182, BNIL); } } 
{ 
obj_t BgL_l2695z00_1234;obj_t BgL_tail2698z00_1235;
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_arg3513z00_1237;
BgL_arg3513z00_1237 = 
CDR(BgL_l2695z00_1231); 
BgL_l2695z00_1234 = BgL_arg3513z00_1237; 
BgL_tail2698z00_1235 = BgL_head2697z00_1233; 
BgL_map2696z00_1236:
{ /* ./Ast/alphatize.scm 159 */
bool_t BgL_test3516z00_1238;
BgL_test3516z00_1238 = 
NULLP(BgL_l2695z00_1234); 
if(BgL_test3516z00_1238)
{ /* ./Ast/alphatize.scm 159 */
BgL_arg3491z00_1222 = BgL_head2697z00_1233; }  else 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_newtail2699z00_1239;
{ /* ./Ast/alphatize.scm 159 */
BgL_nodez00_bglt BgL_arg3524z00_1241;
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_arg3528z00_1243;
BgL_arg3528z00_1243 = 
CAR(BgL_l2695z00_1234); 
{ /* ./Ast/alphatize.scm 159 */
BgL_nodez00_bglt BgL_res4761z00_2213;
{ /* ./Ast/alphatize.scm 159 */
BgL_nodez00_bglt BgL_nodez00_2187;
BgL_nodez00_2187 = 
(BgL_nodez00_bglt)(BgL_arg3528z00_1243); 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_method2843z00_2188;
{ /* ./Ast/alphatize.scm 159 */
BgL_objectz00_bglt BgL_objz00_2189;
BgL_objz00_2189 = 
(BgL_objectz00_bglt)(BgL_nodez00_2187); 
{ /* ./Ast/alphatize.scm 159 */
long BgL_objzd2classzd2numz00_2190;
BgL_objzd2classzd2numz00_2190 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2189); 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_arg2017z00_2191;
{ /* ./Ast/alphatize.scm 159 */
int BgL_auxz00_5755;
BgL_auxz00_5755 = 
(int)(((long)1)); 
BgL_arg2017z00_2191 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5755); } 
{ /* ./Ast/alphatize.scm 159 */
int BgL_offsetz00_2194;
BgL_offsetz00_2194 = 
(int)(BgL_objzd2classzd2numz00_2190); 
{ /* ./Ast/alphatize.scm 159 */
long BgL_offsetz00_2195;
{ /* ./Ast/alphatize.scm 159 */
long BgL_auxz00_5759;
BgL_auxz00_5759 = 
(long)(BgL_offsetz00_2194); 
BgL_offsetz00_2195 = 
(BgL_auxz00_5759-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 159 */
long BgL_modz00_2196;
{ /* ./Ast/alphatize.scm 159 */
int BgL_arg2028z00_2197;
BgL_arg2028z00_2197 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 159 */
long BgL_n2z00_2205;
BgL_n2z00_2205 = 
(long)(BgL_arg2028z00_2197); 
BgL_modz00_2196 = 
(BgL_offsetz00_2195/BgL_n2z00_2205); } } 
{ /* ./Ast/alphatize.scm 159 */
long BgL_restz00_2198;
{ /* ./Ast/alphatize.scm 159 */
int BgL_arg2024z00_2199;
BgL_arg2024z00_2199 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 159 */
long BgL_n2z00_2208;
BgL_n2z00_2208 = 
(long)(BgL_arg2024z00_2199); 
BgL_restz00_2198 = 
(BgL_offsetz00_2195%BgL_n2z00_2208); } } 
{ /* ./Ast/alphatize.scm 159 */

{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_bucketz00_2200;
{ /* ./Ast/alphatize.scm 159 */
int BgL_kz00_2210;
BgL_kz00_2210 = 
(int)(BgL_modz00_2196); 
BgL_bucketz00_2200 = 
VECTOR_REF(BgL_arg2017z00_2191,BgL_kz00_2210); } 
{ /* ./Ast/alphatize.scm 159 */
int BgL_kz00_2212;
BgL_kz00_2212 = 
(int)(BgL_restz00_2198); 
BgL_method2843z00_2188 = 
VECTOR_REF(BgL_bucketz00_2200,BgL_kz00_2212); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_auxz00_5772;
BgL_auxz00_5772 = 
PROCEDURE_ENTRY(BgL_method2843z00_2188)(BgL_method2843z00_2188, 
(obj_t)(BgL_nodez00_2187), BEOA); 
BgL_res4761z00_2213 = 
(BgL_nodez00_bglt)(BgL_auxz00_5772); } } } 
BgL_arg3524z00_1241 = BgL_res4761z00_2213; } } 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_obj1z00_2214;
BgL_obj1z00_2214 = 
(obj_t)(BgL_arg3524z00_1241); 
BgL_newtail2699z00_1239 = 
MAKE_PAIR(BgL_obj1z00_2214, BNIL); } } 
SET_CDR(BgL_tail2698z00_1235, BgL_newtail2699z00_1239); 
{ /* ./Ast/alphatize.scm 159 */
obj_t BgL_arg3520z00_1240;
BgL_arg3520z00_1240 = 
CDR(BgL_l2695z00_1234); 
{ 
obj_t BgL_tail2698z00_5782;obj_t BgL_l2695z00_5781;
BgL_l2695z00_5781 = BgL_arg3520z00_1240; 
BgL_tail2698z00_5782 = BgL_newtail2699z00_1239; 
BgL_tail2698z00_1235 = BgL_tail2698z00_5782; 
BgL_l2695z00_1234 = BgL_l2695z00_5781; 
goto BgL_map2696z00_1236;} } } } } } } } } 
BgL_new2692z00_1216 = 
BGl_makezd2appzd2zzast_nodez00(BgL_arg3486z00_1217, BgL_arg3487z00_1218, BgL_arg3488z00_1219, BgL_arg3489z00_1220, 
(BgL_varz00_bglt)(BgL_arg3490z00_1221), BgL_arg3491z00_1222); } 
{ /* ./Ast/alphatize.scm 153 */

BgL_auxz00_5670 = BgL_new2692z00_1216; } } 
return 
(obj_t)(BgL_auxz00_5670);} } } 
}



/* do-alphatize-sequence2853 */
obj_t BGl_dozd2alphatiza7ezd2sequence2853za7zzast_alphatiza7eza7(obj_t BgL_envz00_3793, obj_t BgL_nodez00_3794)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 142 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1184;
{ /* ./Ast/alphatize.scm 143 */
BgL_sequencez00_bglt BgL_auxz00_5787;
BgL_nodez00_1184 = 
(BgL_sequencez00_bglt)(BgL_nodez00_3794); 
{ /* ./Ast/alphatize.scm 144 */
BgL_sequencez00_bglt BgL_new2685z00_1188;
{ /* ./Ast/alphatize.scm 144 */
obj_t BgL_arg3438z00_1189;BgL_typez00_bglt BgL_arg3439z00_1190;obj_t BgL_arg3440z00_1191;obj_t BgL_arg3441z00_1192;obj_t BgL_arg3442z00_1193;
BgL_arg3438z00_1189 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1184)); 
{ /* ./Ast/alphatize.scm 143 */
BgL_nodez00_bglt BgL_obj1561z00_2047;
BgL_obj1561z00_2047 = 
(BgL_nodez00_bglt)(BgL_nodez00_1184); 
BgL_arg3439z00_1190 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2047))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 143 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2048;
BgL_obj1578z00_2048 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1184); 
BgL_arg3440z00_1191 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2048))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/alphatize.scm 143 */
BgL_nodezf2effectzf2_bglt BgL_obj1581z00_2049;
BgL_obj1581z00_2049 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1184); 
BgL_arg3441z00_1192 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1581z00_2049))->BgL_keyz00); } 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_l2686z00_1194;
BgL_l2686z00_1194 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1184))->BgL_nodesz00); 
{ /* ./Ast/alphatize.scm 145 */
bool_t BgL_test3448z00_1195;
BgL_test3448z00_1195 = 
NULLP(BgL_l2686z00_1194); 
if(BgL_test3448z00_1195)
{ /* ./Ast/alphatize.scm 145 */
BgL_arg3442z00_1193 = BNIL; }  else 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_head2688z00_1196;
{ /* ./Ast/alphatize.scm 145 */
BgL_nodez00_bglt BgL_arg3470z00_1207;
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_arg3474z00_1209;
BgL_arg3474z00_1209 = 
CAR(BgL_l2686z00_1194); 
{ /* ./Ast/alphatize.scm 145 */
BgL_nodez00_bglt BgL_res4749z00_2079;
{ /* ./Ast/alphatize.scm 145 */
BgL_nodez00_bglt BgL_nodez00_2053;
BgL_nodez00_2053 = 
(BgL_nodez00_bglt)(BgL_arg3474z00_1209); 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_method2843z00_2054;
{ /* ./Ast/alphatize.scm 145 */
BgL_objectz00_bglt BgL_objz00_2055;
BgL_objz00_2055 = 
(BgL_objectz00_bglt)(BgL_nodez00_2053); 
{ /* ./Ast/alphatize.scm 145 */
long BgL_objzd2classzd2numz00_2056;
BgL_objzd2classzd2numz00_2056 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2055); 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_arg2017z00_2057;
{ /* ./Ast/alphatize.scm 145 */
int BgL_auxz00_5803;
BgL_auxz00_5803 = 
(int)(((long)1)); 
BgL_arg2017z00_2057 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5803); } 
{ /* ./Ast/alphatize.scm 145 */
int BgL_offsetz00_2060;
BgL_offsetz00_2060 = 
(int)(BgL_objzd2classzd2numz00_2056); 
{ /* ./Ast/alphatize.scm 145 */
long BgL_offsetz00_2061;
{ /* ./Ast/alphatize.scm 145 */
long BgL_auxz00_5807;
BgL_auxz00_5807 = 
(long)(BgL_offsetz00_2060); 
BgL_offsetz00_2061 = 
(BgL_auxz00_5807-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 145 */
long BgL_modz00_2062;
{ /* ./Ast/alphatize.scm 145 */
int BgL_arg2028z00_2063;
BgL_arg2028z00_2063 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 145 */
long BgL_n2z00_2071;
BgL_n2z00_2071 = 
(long)(BgL_arg2028z00_2063); 
BgL_modz00_2062 = 
(BgL_offsetz00_2061/BgL_n2z00_2071); } } 
{ /* ./Ast/alphatize.scm 145 */
long BgL_restz00_2064;
{ /* ./Ast/alphatize.scm 145 */
int BgL_arg2024z00_2065;
BgL_arg2024z00_2065 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 145 */
long BgL_n2z00_2074;
BgL_n2z00_2074 = 
(long)(BgL_arg2024z00_2065); 
BgL_restz00_2064 = 
(BgL_offsetz00_2061%BgL_n2z00_2074); } } 
{ /* ./Ast/alphatize.scm 145 */

{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_bucketz00_2066;
{ /* ./Ast/alphatize.scm 145 */
int BgL_kz00_2076;
BgL_kz00_2076 = 
(int)(BgL_modz00_2062); 
BgL_bucketz00_2066 = 
VECTOR_REF(BgL_arg2017z00_2057,BgL_kz00_2076); } 
{ /* ./Ast/alphatize.scm 145 */
int BgL_kz00_2078;
BgL_kz00_2078 = 
(int)(BgL_restz00_2064); 
BgL_method2843z00_2054 = 
VECTOR_REF(BgL_bucketz00_2066,BgL_kz00_2078); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_auxz00_5820;
BgL_auxz00_5820 = 
PROCEDURE_ENTRY(BgL_method2843z00_2054)(BgL_method2843z00_2054, 
(obj_t)(BgL_nodez00_2053), BEOA); 
BgL_res4749z00_2079 = 
(BgL_nodez00_bglt)(BgL_auxz00_5820); } } } 
BgL_arg3470z00_1207 = BgL_res4749z00_2079; } } 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_obj1z00_2080;
BgL_obj1z00_2080 = 
(obj_t)(BgL_arg3470z00_1207); 
BgL_head2688z00_1196 = 
MAKE_PAIR(BgL_obj1z00_2080, BNIL); } } 
{ 
obj_t BgL_l2686z00_1197;obj_t BgL_tail2689z00_1198;
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_arg3450z00_1200;
BgL_arg3450z00_1200 = 
CDR(BgL_l2686z00_1194); 
BgL_l2686z00_1197 = BgL_arg3450z00_1200; 
BgL_tail2689z00_1198 = BgL_head2688z00_1196; 
BgL_map2687z00_1199:
{ /* ./Ast/alphatize.scm 145 */
bool_t BgL_test3453z00_1201;
BgL_test3453z00_1201 = 
NULLP(BgL_l2686z00_1197); 
if(BgL_test3453z00_1201)
{ /* ./Ast/alphatize.scm 145 */
BgL_arg3442z00_1193 = BgL_head2688z00_1196; }  else 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_newtail2690z00_1202;
{ /* ./Ast/alphatize.scm 145 */
BgL_nodez00_bglt BgL_arg3460z00_1204;
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_arg3465z00_1206;
BgL_arg3465z00_1206 = 
CAR(BgL_l2686z00_1197); 
{ /* ./Ast/alphatize.scm 145 */
BgL_nodez00_bglt BgL_res4752z00_2111;
{ /* ./Ast/alphatize.scm 145 */
BgL_nodez00_bglt BgL_nodez00_2085;
BgL_nodez00_2085 = 
(BgL_nodez00_bglt)(BgL_arg3465z00_1206); 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_method2843z00_2086;
{ /* ./Ast/alphatize.scm 145 */
BgL_objectz00_bglt BgL_objz00_2087;
BgL_objz00_2087 = 
(BgL_objectz00_bglt)(BgL_nodez00_2085); 
{ /* ./Ast/alphatize.scm 145 */
long BgL_objzd2classzd2numz00_2088;
BgL_objzd2classzd2numz00_2088 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2087); 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_arg2017z00_2089;
{ /* ./Ast/alphatize.scm 145 */
int BgL_auxz00_5834;
BgL_auxz00_5834 = 
(int)(((long)1)); 
BgL_arg2017z00_2089 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5834); } 
{ /* ./Ast/alphatize.scm 145 */
int BgL_offsetz00_2092;
BgL_offsetz00_2092 = 
(int)(BgL_objzd2classzd2numz00_2088); 
{ /* ./Ast/alphatize.scm 145 */
long BgL_offsetz00_2093;
{ /* ./Ast/alphatize.scm 145 */
long BgL_auxz00_5838;
BgL_auxz00_5838 = 
(long)(BgL_offsetz00_2092); 
BgL_offsetz00_2093 = 
(BgL_auxz00_5838-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 145 */
long BgL_modz00_2094;
{ /* ./Ast/alphatize.scm 145 */
int BgL_arg2028z00_2095;
BgL_arg2028z00_2095 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 145 */
long BgL_n2z00_2103;
BgL_n2z00_2103 = 
(long)(BgL_arg2028z00_2095); 
BgL_modz00_2094 = 
(BgL_offsetz00_2093/BgL_n2z00_2103); } } 
{ /* ./Ast/alphatize.scm 145 */
long BgL_restz00_2096;
{ /* ./Ast/alphatize.scm 145 */
int BgL_arg2024z00_2097;
BgL_arg2024z00_2097 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 145 */
long BgL_n2z00_2106;
BgL_n2z00_2106 = 
(long)(BgL_arg2024z00_2097); 
BgL_restz00_2096 = 
(BgL_offsetz00_2093%BgL_n2z00_2106); } } 
{ /* ./Ast/alphatize.scm 145 */

{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_bucketz00_2098;
{ /* ./Ast/alphatize.scm 145 */
int BgL_kz00_2108;
BgL_kz00_2108 = 
(int)(BgL_modz00_2094); 
BgL_bucketz00_2098 = 
VECTOR_REF(BgL_arg2017z00_2089,BgL_kz00_2108); } 
{ /* ./Ast/alphatize.scm 145 */
int BgL_kz00_2110;
BgL_kz00_2110 = 
(int)(BgL_restz00_2096); 
BgL_method2843z00_2086 = 
VECTOR_REF(BgL_bucketz00_2098,BgL_kz00_2110); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_auxz00_5851;
BgL_auxz00_5851 = 
PROCEDURE_ENTRY(BgL_method2843z00_2086)(BgL_method2843z00_2086, 
(obj_t)(BgL_nodez00_2085), BEOA); 
BgL_res4752z00_2111 = 
(BgL_nodez00_bglt)(BgL_auxz00_5851); } } } 
BgL_arg3460z00_1204 = BgL_res4752z00_2111; } } 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_obj1z00_2112;
BgL_obj1z00_2112 = 
(obj_t)(BgL_arg3460z00_1204); 
BgL_newtail2690z00_1202 = 
MAKE_PAIR(BgL_obj1z00_2112, BNIL); } } 
SET_CDR(BgL_tail2689z00_1198, BgL_newtail2690z00_1202); 
{ /* ./Ast/alphatize.scm 145 */
obj_t BgL_arg3456z00_1203;
BgL_arg3456z00_1203 = 
CDR(BgL_l2686z00_1197); 
{ 
obj_t BgL_tail2689z00_5861;obj_t BgL_l2686z00_5860;
BgL_l2686z00_5860 = BgL_arg3456z00_1203; 
BgL_tail2689z00_5861 = BgL_newtail2690z00_1202; 
BgL_tail2689z00_1198 = BgL_tail2689z00_5861; 
BgL_l2686z00_1197 = BgL_l2686z00_5860; 
goto BgL_map2687z00_1199;} } } } } } } } } 
BgL_new2685z00_1188 = 
BGl_makezd2sequencezd2zzast_nodez00(BgL_arg3438z00_1189, BgL_arg3439z00_1190, BgL_arg3440z00_1191, BgL_arg3441z00_1192, BgL_arg3442z00_1193); } 
{ /* ./Ast/alphatize.scm 143 */

BgL_auxz00_5787 = BgL_new2685z00_1188; } } 
return 
(obj_t)(BgL_auxz00_5787);} } } 
}



/* do-alphatize-kwote2851 */
obj_t BGl_dozd2alphatiza7ezd2kwote2851za7zzast_alphatiza7eza7(obj_t BgL_envz00_3795, obj_t BgL_nodez00_3796)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 136 */
{ 
BgL_kwotez00_bglt BgL_nodez00_1174;
{ /* ./Ast/alphatize.scm 137 */
BgL_kwotez00_bglt BgL_auxz00_5865;
BgL_nodez00_1174 = 
(BgL_kwotez00_bglt)(BgL_nodez00_3796); 
{ /* ./Ast/alphatize.scm 137 */
BgL_kwotez00_bglt BgL_new2683z00_1178;
{ /* ./Ast/alphatize.scm 137 */
obj_t BgL_arg3424z00_1179;BgL_typez00_bglt BgL_arg3425z00_1180;obj_t BgL_arg3426z00_1181;
BgL_arg3424z00_1179 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1174)); 
{ /* ./Ast/alphatize.scm 137 */
BgL_nodez00_bglt BgL_obj1561z00_2045;
BgL_obj1561z00_2045 = 
(BgL_nodez00_bglt)(BgL_nodez00_1174); 
BgL_arg3425z00_1180 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2045))->BgL_typez00); } 
BgL_arg3426z00_1181 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1174))->BgL_valuez00); 
BgL_new2683z00_1178 = 
BGl_makezd2kwotezd2zzast_nodez00(BgL_arg3424z00_1179, BgL_arg3425z00_1180, BgL_arg3426z00_1181); } 
{ /* ./Ast/alphatize.scm 137 */

BgL_auxz00_5865 = BgL_new2683z00_1178; } } 
return 
(obj_t)(BgL_auxz00_5865);} } } 
}



/* do-alphatize-closure2849 */
obj_t BGl_dozd2alphatiza7ezd2closure2849za7zzast_alphatiza7eza7(obj_t BgL_envz00_3797, obj_t BgL_nodez00_3798)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 116 */
{ 
BgL_closurez00_bglt BgL_nodez00_1148;
BgL_nodez00_1148 = 
(BgL_closurez00_bglt)(BgL_nodez00_3798); 
{ /* ./Ast/alphatize.scm 117 */
BgL_variablez00_bglt BgL_varz00_1151;
{ /* ./Ast/alphatize.scm 117 */
BgL_varz00_bglt BgL_obj1625z00_2037;
BgL_obj1625z00_2037 = 
(BgL_varz00_bglt)(BgL_nodez00_1148); 
BgL_varz00_1151 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2037))->BgL_variablez00); } 
{ /* ./Ast/alphatize.scm 117 */
obj_t BgL_alphaz00_1152;
BgL_alphaz00_1152 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_1151))->BgL_fastzd2alphazd2); 
{ /* ./Ast/alphatize.scm 118 */

{ /* ./Ast/alphatize.scm 120 */
bool_t BgL_test3380z00_1153;
BgL_test3380z00_1153 = 
(BgL_alphaz00_1152==BUNSPEC); 
if(BgL_test3380z00_1153)
{ /* ./Ast/alphatize.scm 120 */
{ /* ./Ast/alphatize.scm 121 */
obj_t BgL_arg3382z00_1154;obj_t BgL_arg3383z00_1155;
{ /* ./Ast/alphatize.scm 121 */
BgL_nodez00_bglt BgL_obj1560z00_2039;
BgL_obj1560z00_2039 = 
(BgL_nodez00_bglt)(BgL_nodez00_1148); 
BgL_arg3382z00_1154 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2039))->BgL_locz00); } 
BgL_arg3383z00_1155 = 
CNST_TABLE_REF(((long)2)); 
BGl_usezd2variablez12zc0zzast_sexpz00(BgL_varz00_1151, BgL_arg3382z00_1154, BgL_arg3383z00_1155); } 
{ /* ./Ast/alphatize.scm 122 */
BgL_closurez00_bglt BgL_new2679z00_1157;
{ /* ./Ast/alphatize.scm 122 */
obj_t BgL_arg3387z00_1158;BgL_typez00_bglt BgL_arg3388z00_1159;BgL_variablez00_bglt BgL_arg3389z00_1160;
BgL_arg3387z00_1158 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1148)); 
{ /* ./Ast/alphatize.scm 122 */
BgL_nodez00_bglt BgL_obj1561z00_2040;
BgL_obj1561z00_2040 = 
(BgL_nodez00_bglt)(BgL_nodez00_1148); 
BgL_arg3388z00_1159 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2040))->BgL_typez00); } 
{ /* ./Ast/alphatize.scm 122 */
BgL_varz00_bglt BgL_obj1625z00_2041;
BgL_obj1625z00_2041 = 
(BgL_varz00_bglt)(BgL_nodez00_1148); 
BgL_arg3389z00_1160 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2041))->BgL_variablez00); } 
BgL_new2679z00_1157 = 
BGl_makezd2closurezd2zzast_nodez00(BgL_arg3387z00_1158, BgL_arg3388z00_1159, BgL_arg3389z00_1160); } 
{ /* ./Ast/alphatize.scm 122 */

return 
(obj_t)(BgL_new2679z00_1157);} } }  else 
{ /* ./Ast/alphatize.scm 123 */
bool_t BgL_test3394z00_1161;
BgL_test3394z00_1161 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1152, BGl_variablez00zzast_varz00); 
if(BgL_test3394z00_1161)
{ /* ./Ast/alphatize.scm 123 */
{ /* ./Ast/alphatize.scm 124 */
obj_t BgL_arg3396z00_1162;obj_t BgL_arg3397z00_1163;
{ /* ./Ast/alphatize.scm 124 */
BgL_nodez00_bglt BgL_obj1560z00_2043;
BgL_obj1560z00_2043 = 
(BgL_nodez00_bglt)(BgL_nodez00_1148); 
BgL_arg3396z00_1162 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2043))->BgL_locz00); } 
BgL_arg3397z00_1163 = 
CNST_TABLE_REF(((long)2)); 
BGl_usezd2variablez12zc0zzast_sexpz00(
(BgL_variablez00_bglt)(BgL_alphaz00_1152), BgL_arg3396z00_1162, BgL_arg3397z00_1163); } 
{ /* ./Ast/alphatize.scm 126 */
BgL_closurez00_bglt BgL_new2681z00_1165;
{ /* ./Ast/alphatize.scm 126 */
obj_t BgL_arg3401z00_1166;BgL_typez00_bglt BgL_arg3402z00_1167;obj_t BgL_arg3403z00_1168;
BgL_arg3401z00_1166 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1148)); 
{ /* ./Ast/alphatize.scm 125 */
BgL_nodez00_bglt BgL_obj1561z00_2044;
BgL_obj1561z00_2044 = 
(BgL_nodez00_bglt)(BgL_nodez00_1148); 
BgL_arg3402z00_1167 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2044))->BgL_typez00); } 
BgL_arg3403z00_1168 = BgL_alphaz00_1152; 
BgL_new2681z00_1165 = 
BGl_makezd2closurezd2zzast_nodez00(BgL_arg3401z00_1166, BgL_arg3402z00_1167, 
(BgL_variablez00_bglt)(BgL_arg3403z00_1168)); } 
{ /* ./Ast/alphatize.scm 125 */

return 
(obj_t)(BgL_new2681z00_1165);} } }  else 
{ /* ./Ast/alphatize.scm 123 */
{ /* ./Ast/alphatize.scm 129 */
obj_t BgL_arg3410z00_1171;
BgL_arg3410z00_1171 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1148)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string5899z00zzast_alphatiza7eza7, BGl_string5903z00zzast_alphatiza7eza7, BgL_arg3410z00_1171);} } } } } } } } } 
}



/* do-alphatize-var2847 */
obj_t BGl_dozd2alphatiza7ezd2var2847za7zzast_alphatiza7eza7(obj_t BgL_envz00_3799, obj_t BgL_nodez00_3800)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 87 */
{ 
BgL_varz00_bglt BgL_nodez00_1103;
BgL_nodez00_1103 = 
(BgL_varz00_bglt)(BgL_nodez00_3800); 
{ /* ./Ast/alphatize.scm 88 */
BgL_variablez00_bglt BgL_varz00_1106;
BgL_varz00_1106 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1103))->BgL_variablez00); 
{ /* ./Ast/alphatize.scm 88 */
obj_t BgL_alphaz00_1107;
BgL_alphaz00_1107 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_1106))->BgL_fastzd2alphazd2); 
{ /* ./Ast/alphatize.scm 89 */

{ /* ./Ast/alphatize.scm 91 */
bool_t BgL_test3300z00_1108;
BgL_test3300z00_1108 = 
(BgL_alphaz00_1107==BUNSPEC); 
if(BgL_test3300z00_1108)
{ /* ./Ast/alphatize.scm 91 */
{ /* ./Ast/alphatize.scm 92 */
obj_t BgL_arg3302z00_1109;obj_t BgL_arg3303z00_1110;
{ /* ./Ast/alphatize.scm 92 */
BgL_nodez00_bglt BgL_obj1560z00_2020;
BgL_obj1560z00_2020 = 
(BgL_nodez00_bglt)(BgL_nodez00_1103); 
BgL_arg3302z00_1109 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2020))->BgL_locz00); } 
BgL_arg3303z00_1110 = 
CNST_TABLE_REF(((long)2)); 
BGl_usezd2variablez12zc0zzast_sexpz00(BgL_varz00_1106, BgL_arg3302z00_1109, BgL_arg3303z00_1110); } 
{ /* ./Ast/alphatize.scm 93 */
BgL_varz00_bglt BgL_new2670z00_1112;
{ /* ./Ast/alphatize.scm 93 */
obj_t BgL_arg3307z00_1113;BgL_typez00_bglt BgL_arg3308z00_1114;BgL_variablez00_bglt BgL_arg3309z00_1115;
BgL_arg3307z00_1113 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1103)); 
{ /* ./Ast/alphatize.scm 93 */
BgL_nodez00_bglt BgL_obj1561z00_2021;
BgL_obj1561z00_2021 = 
(BgL_nodez00_bglt)(BgL_nodez00_1103); 
BgL_arg3308z00_1114 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2021))->BgL_typez00); } 
BgL_arg3309z00_1115 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1103))->BgL_variablez00); 
BgL_new2670z00_1112 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3307z00_1113, BgL_arg3308z00_1114, BgL_arg3309z00_1115); } 
{ /* ./Ast/alphatize.scm 93 */

return 
(obj_t)(BgL_new2670z00_1112);} } }  else 
{ /* ./Ast/alphatize.scm 94 */
bool_t BgL_test3314z00_1116;
BgL_test3314z00_1116 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1107, BGl_variablez00zzast_varz00); 
if(BgL_test3314z00_1116)
{ /* ./Ast/alphatize.scm 94 */
{ /* ./Ast/alphatize.scm 95 */
obj_t BgL_arg3316z00_1117;obj_t BgL_arg3317z00_1118;
{ /* ./Ast/alphatize.scm 95 */
BgL_nodez00_bglt BgL_obj1560z00_2024;
BgL_obj1560z00_2024 = 
(BgL_nodez00_bglt)(BgL_nodez00_1103); 
BgL_arg3316z00_1117 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2024))->BgL_locz00); } 
BgL_arg3317z00_1118 = 
CNST_TABLE_REF(((long)2)); 
BGl_usezd2variablez12zc0zzast_sexpz00(
(BgL_variablez00_bglt)(BgL_alphaz00_1107), BgL_arg3316z00_1117, BgL_arg3317z00_1118); } 
{ /* ./Ast/alphatize.scm 96 */
bool_t BgL_test3320z00_1119;
{ /* ./Ast/alphatize.scm 96 */
BgL_valuez00_bglt BgL_arg3336z00_1128;
{ /* ./Ast/alphatize.scm 96 */
BgL_variablez00_bglt BgL_obj1100z00_2025;
BgL_obj1100z00_2025 = 
(BgL_variablez00_bglt)(BgL_alphaz00_1107); 
BgL_arg3336z00_1128 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2025))->BgL_valuez00); } 
{ /* ./Ast/alphatize.scm 96 */
obj_t BgL_obj1344z00_2026;
BgL_obj1344z00_2026 = 
(obj_t)(BgL_arg3336z00_1128); 
BgL_test3320z00_1119 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1344z00_2026, BGl_funz00zzast_varz00); } } 
if(BgL_test3320z00_1119)
{ /* ./Ast/alphatize.scm 98 */
obj_t BgL_arg3322z00_1120;BgL_typez00_bglt BgL_arg3323z00_1121;obj_t BgL_arg3324z00_1122;
BgL_arg3322z00_1120 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1103)); 
{ /* ./Ast/alphatize.scm 99 */
BgL_variablez00_bglt BgL_obj1097z00_2027;
BgL_obj1097z00_2027 = 
(BgL_variablez00_bglt)(BgL_alphaz00_1107); 
BgL_arg3323z00_1121 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2027))->BgL_typez00); } 
BgL_arg3324z00_1122 = BgL_alphaz00_1107; 
{ /* ./Ast/alphatize.scm 97 */
BgL_closurez00_bglt BgL_auxz00_5940;
BgL_auxz00_5940 = 
BGl_makezd2closurezd2zzast_nodez00(BgL_arg3322z00_1120, BgL_arg3323z00_1121, 
(BgL_variablez00_bglt)(BgL_arg3324z00_1122)); 
return 
(obj_t)(BgL_auxz00_5940);} }  else 
{ /* ./Ast/alphatize.scm 102 */
BgL_varz00_bglt BgL_new2673z00_1124;
{ /* ./Ast/alphatize.scm 102 */
obj_t BgL_arg3329z00_1125;BgL_typez00_bglt BgL_arg3330z00_1126;obj_t BgL_arg3331z00_1127;
BgL_arg3329z00_1125 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1103)); 
{ /* ./Ast/alphatize.scm 101 */
BgL_nodez00_bglt BgL_obj1561z00_2028;
BgL_obj1561z00_2028 = 
(BgL_nodez00_bglt)(BgL_nodez00_1103); 
BgL_arg3330z00_1126 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2028))->BgL_typez00); } 
BgL_arg3331z00_1127 = BgL_alphaz00_1107; 
BgL_new2673z00_1124 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3329z00_1125, BgL_arg3330z00_1126, 
(BgL_variablez00_bglt)(BgL_arg3331z00_1127)); } 
{ /* ./Ast/alphatize.scm 101 */

return 
(obj_t)(BgL_new2673z00_1124);} } } }  else 
{ /* ./Ast/alphatize.scm 104 */
bool_t BgL_test3339z00_1129;
BgL_test3339z00_1129 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1107, BGl_atomz00zzast_nodez00); 
if(BgL_test3339z00_1129)
{ /* ./Ast/alphatize.scm 104 */
{ /* ./Ast/alphatize.scm 105 */
BgL_atomz00_bglt BgL_duplicated2674z00_1130;
BgL_duplicated2674z00_1130 = 
(BgL_atomz00_bglt)(BgL_alphaz00_1107); 
{ /* ./Ast/alphatize.scm 105 */
BgL_atomz00_bglt BgL_new2675z00_1131;
{ /* ./Ast/alphatize.scm 105 */
obj_t BgL_arg3341z00_1132;BgL_typez00_bglt BgL_arg3342z00_1133;obj_t BgL_arg3343z00_1134;
{ /* ./Ast/alphatize.scm 105 */
BgL_nodez00_bglt BgL_obj1560z00_2030;
BgL_obj1560z00_2030 = 
(BgL_nodez00_bglt)(BgL_duplicated2674z00_1130); 
BgL_arg3341z00_1132 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2030))->BgL_locz00); } 
{ /* ./Ast/alphatize.scm 105 */
BgL_nodez00_bglt BgL_obj1561z00_2031;
BgL_obj1561z00_2031 = 
(BgL_nodez00_bglt)(BgL_duplicated2674z00_1130); 
BgL_arg3342z00_1133 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2031))->BgL_typez00); } 
BgL_arg3343z00_1134 = 
(((BgL_atomz00_bglt)CREF(BgL_duplicated2674z00_1130))->BgL_valuez00); 
BgL_new2675z00_1131 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3341z00_1132, BgL_arg3342z00_1133, BgL_arg3343z00_1134); } 
{ /* ./Ast/alphatize.scm 105 */

return 
(obj_t)(BgL_new2675z00_1131);} } } }  else 
{ /* ./Ast/alphatize.scm 106 */
bool_t BgL_test3348z00_1135;
BgL_test3348z00_1135 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1107, BGl_kwotez00zzast_nodez00); 
if(BgL_test3348z00_1135)
{ /* ./Ast/alphatize.scm 106 */
{ /* ./Ast/alphatize.scm 107 */
BgL_kwotez00_bglt BgL_duplicated2676z00_1136;
BgL_duplicated2676z00_1136 = 
(BgL_kwotez00_bglt)(BgL_alphaz00_1107); 
{ /* ./Ast/alphatize.scm 107 */
BgL_kwotez00_bglt BgL_new2677z00_1137;
{ /* ./Ast/alphatize.scm 107 */
obj_t BgL_arg3350z00_1138;BgL_typez00_bglt BgL_arg3351z00_1139;obj_t BgL_arg3352z00_1140;
{ /* ./Ast/alphatize.scm 107 */
BgL_nodez00_bglt BgL_obj1560z00_2034;
BgL_obj1560z00_2034 = 
(BgL_nodez00_bglt)(BgL_duplicated2676z00_1136); 
BgL_arg3350z00_1138 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2034))->BgL_locz00); } 
{ /* ./Ast/alphatize.scm 107 */
BgL_nodez00_bglt BgL_obj1561z00_2035;
BgL_obj1561z00_2035 = 
(BgL_nodez00_bglt)(BgL_duplicated2676z00_1136); 
BgL_arg3351z00_1139 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2035))->BgL_typez00); } 
BgL_arg3352z00_1140 = 
(((BgL_kwotez00_bglt)CREF(BgL_duplicated2676z00_1136))->BgL_valuez00); 
BgL_new2677z00_1137 = 
BGl_makezd2kwotezd2zzast_nodez00(BgL_arg3350z00_1138, BgL_arg3351z00_1139, BgL_arg3352z00_1140); } 
{ /* ./Ast/alphatize.scm 107 */

return 
(obj_t)(BgL_new2677z00_1137);} } } }  else 
{ /* ./Ast/alphatize.scm 106 */
{ /* ./Ast/alphatize.scm 109 */
obj_t BgL_arg3360z00_1143;
{ /* ./Ast/alphatize.scm 111 */
obj_t BgL_arg3363z00_1144;obj_t BgL_arg3364z00_1145;
BgL_arg3363z00_1144 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1103)); 
BgL_arg3364z00_1145 = 
BGl_shapez00zztools_shapez00(BgL_alphaz00_1107); 
BgL_arg3360z00_1143 = 
MAKE_PAIR(BgL_arg3363z00_1144, BgL_arg3364z00_1145); } 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string5899z00zzast_alphatiza7eza7, BGl_string5904z00zzast_alphatiza7eza7, BgL_arg3360z00_1143);} } } } } } } } } } } 
}



/* do-alphatize-atom2845 */
obj_t BGl_dozd2alphatiza7ezd2atom2845za7zzast_alphatiza7eza7(obj_t BgL_envz00_3801, obj_t BgL_nodez00_3802)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 80 */
{ 
BgL_atomz00_bglt BgL_nodez00_1093;
{ /* ./Ast/alphatize.scm 81 */
BgL_atomz00_bglt BgL_auxz00_5977;
BgL_nodez00_1093 = 
(BgL_atomz00_bglt)(BgL_nodez00_3802); 
{ /* ./Ast/alphatize.scm 82 */
BgL_atomz00_bglt BgL_new2668z00_1097;
{ /* ./Ast/alphatize.scm 82 */
obj_t BgL_arg3287z00_1098;BgL_typez00_bglt BgL_arg3288z00_1099;obj_t BgL_arg3289z00_1100;
BgL_arg3287z00_1098 = 
BGl_getzd2inlinezd2locationz00zzast_alphatiza7eza7(
(obj_t)(BgL_nodez00_1093)); 
{ /* ./Ast/alphatize.scm 81 */
BgL_nodez00_bglt BgL_obj1561z00_2016;
BgL_obj1561z00_2016 = 
(BgL_nodez00_bglt)(BgL_nodez00_1093); 
BgL_arg3288z00_1099 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2016))->BgL_typez00); } 
BgL_arg3289z00_1100 = 
(((BgL_atomz00_bglt)CREF(BgL_nodez00_1093))->BgL_valuez00); 
BgL_new2668z00_1097 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3287z00_1098, BgL_arg3288z00_1099, BgL_arg3289z00_1100); } 
{ /* ./Ast/alphatize.scm 81 */

BgL_auxz00_5977 = BgL_new2668z00_1097; } } 
return 
(obj_t)(BgL_auxz00_5977);} } } 
}



/* do-alphatize */
BgL_nodez00_bglt BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(BgL_nodez00_bglt BgL_nodez00_20)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 75 */
{ /* ./Ast/alphatize.scm 75 */
obj_t BgL_method2843z00_3681;
{ /* ./Ast/alphatize.scm 75 */
BgL_objectz00_bglt BgL_objz00_3682;
BgL_objz00_3682 = 
(BgL_objectz00_bglt)(BgL_nodez00_20); 
{ /* ./Ast/alphatize.scm 75 */
long BgL_objzd2classzd2numz00_3683;
BgL_objzd2classzd2numz00_3683 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3682); 
{ /* ./Ast/alphatize.scm 75 */
obj_t BgL_arg2017z00_3684;
{ /* ./Ast/alphatize.scm 75 */
int BgL_auxz00_5988;
BgL_auxz00_5988 = 
(int)(((long)1)); 
BgL_arg2017z00_3684 = 
PROCEDURE_REF(BGl_dozd2alphatiza7ezd2envza7zzast_alphatiza7eza7, BgL_auxz00_5988); } 
{ /* ./Ast/alphatize.scm 75 */
int BgL_offsetz00_3687;
BgL_offsetz00_3687 = 
(int)(BgL_objzd2classzd2numz00_3683); 
{ /* ./Ast/alphatize.scm 75 */
long BgL_offsetz00_3688;
{ /* ./Ast/alphatize.scm 75 */
long BgL_auxz00_5992;
BgL_auxz00_5992 = 
(long)(BgL_offsetz00_3687); 
BgL_offsetz00_3688 = 
(BgL_auxz00_5992-OBJECT_TYPE); } 
{ /* ./Ast/alphatize.scm 75 */
long BgL_modz00_3689;
{ /* ./Ast/alphatize.scm 75 */
int BgL_arg2028z00_3690;
BgL_arg2028z00_3690 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 75 */
long BgL_n2z00_3698;
BgL_n2z00_3698 = 
(long)(BgL_arg2028z00_3690); 
BgL_modz00_3689 = 
(BgL_offsetz00_3688/BgL_n2z00_3698); } } 
{ /* ./Ast/alphatize.scm 75 */
long BgL_restz00_3691;
{ /* ./Ast/alphatize.scm 75 */
int BgL_arg2024z00_3692;
BgL_arg2024z00_3692 = 
(int)(((long)8)); 
{ /* ./Ast/alphatize.scm 75 */
long BgL_n2z00_3701;
BgL_n2z00_3701 = 
(long)(BgL_arg2024z00_3692); 
BgL_restz00_3691 = 
(BgL_offsetz00_3688%BgL_n2z00_3701); } } 
{ /* ./Ast/alphatize.scm 75 */

{ /* ./Ast/alphatize.scm 75 */
obj_t BgL_bucketz00_3693;
{ /* ./Ast/alphatize.scm 75 */
int BgL_kz00_3703;
BgL_kz00_3703 = 
(int)(BgL_modz00_3689); 
BgL_bucketz00_3693 = 
VECTOR_REF(BgL_arg2017z00_3684,BgL_kz00_3703); } 
{ /* ./Ast/alphatize.scm 75 */
int BgL_kz00_3705;
BgL_kz00_3705 = 
(int)(BgL_restz00_3691); 
BgL_method2843z00_3681 = 
VECTOR_REF(BgL_bucketz00_3693,BgL_kz00_3705); } } } } } } } } } } 
{ /* ./Ast/alphatize.scm 75 */
obj_t BgL_auxz00_6005;
BgL_auxz00_6005 = 
PROCEDURE_ENTRY(BgL_method2843z00_3681)(BgL_method2843z00_3681, 
(obj_t)(BgL_nodez00_20), BEOA); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_6005);} } } 
}



/* _do-alphatize4889 */
obj_t BGl__dozd2alphatiza7e4889z75zzast_alphatiza7eza7(obj_t BgL_envz00_3714, obj_t BgL_nodez00_3715)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 75 */
{ /* ./Ast/alphatize.scm 75 */
BgL_nodez00_bglt BgL_auxz00_6010;
BgL_auxz00_6010 = 
BGl_dozd2alphatiza7ez75zzast_alphatiza7eza7(
(BgL_nodez00_bglt)(BgL_nodez00_3715)); 
return 
(obj_t)(BgL_auxz00_6010);} } 
}



/* do-alphatize-default2841 */
BgL_nodez00_bglt BGl_dozd2alphatiza7ezd2default2841za7zzast_alphatiza7eza7(BgL_nodez00_bglt BgL_nodez00_21)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 14 */
{ /* ./Ast/alphatize.scm 14 */
obj_t BgL_procz00_3706;obj_t BgL_objectz00_3708;
BgL_procz00_3706 = 
CNST_TABLE_REF(((long)3)); 
BgL_objectz00_3708 = 
(obj_t)(BgL_nodez00_21); 
FAILURE(BgL_procz00_3706,BGl_string5905z00zzast_alphatiza7eza7,BgL_objectz00_3708);} } 
}



/* _do-alphatize-default2841 */
obj_t BGl__dozd2alphatiza7ezd2default2841za7zzast_alphatiza7eza7(obj_t BgL_envz00_3803, obj_t BgL_nodez00_3804)
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 14 */
{ /* ./Ast/alphatize.scm 14 */
BgL_nodez00_bglt BgL_auxz00_6017;
BgL_auxz00_6017 = 
BGl_dozd2alphatiza7ezd2default2841za7zzast_alphatiza7eza7(
(BgL_nodez00_bglt)(BgL_nodez00_3804)); 
return 
(obj_t)(BgL_auxz00_6017);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzast_alphatiza7eza7()
{ AN_OBJECT;
{ /* ./Ast/alphatize.scm 14 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "ast_alphatize"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "ast_alphatize"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "ast_alphatize"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "ast_alphatize"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "ast_alphatize"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "ast_alphatize"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "ast_alphatize"); 
BGl_modulezd2initializa7ationz75zzast_localz00(((long)28959), "ast_alphatize"); 
BGl_modulezd2initializa7ationz75zzast_applyz00(((long)53769), "ast_alphatize"); 
return 
BGl_modulezd2initializa7ationz75zzast_appz00(((long)62540), "ast_alphatize");} 
}

