/*===========================================================================*/
/*   (Ast/dump.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/dump.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;


static obj_t BGl_nodezd2ze3sexpzd2isa2806ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_vrefz00zzast_nodez00;
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzast_dumpz00();
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_nodezd2ze3sexpzd2setzd2exzd2it2822ze3zzast_dumpz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_nodezd2ze3sexpzd2boxzd2setz122830z23zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2letzd2var2820z31zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_locationzd2shapezd2zztools_locationz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_pragmaz00zzast_nodez00;
static obj_t BGl_nodezd2ze3sexpzd2funcall2787ze3zzast_dumpz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_nodezd2ze3sexpz31zzast_dumpz00(BgL_nodez00_bglt);
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_nodezd2ze3sexpzd2letzd2fun2818z31zzast_dumpz00(obj_t, obj_t);
extern BgL_typez00_bglt BGl_typeofz00zztype_typeofz00(BgL_nodez00_bglt);
static obj_t BGl_nodezd2ze3sexpzd2cast2808ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_argszd2listzd2ze3argsza2z41zztools_argsz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2var2775ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzast_dumpz00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_nodezd2ze3sexpzd2pragma2789ze3zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzast_dumpz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl__nodezd2ze3sexpzd2default2770ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_getfieldz00zzast_nodez00;
extern obj_t BGl_isaz00zzast_nodez00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2new2795ze3zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2makezd2box2826z31zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2getfield2791ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_makezd2typedzd2identz00zzast_identz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2jumpzd2exzd2it2824ze3zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2vref2799ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzast_dumpz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
static obj_t BGl_nodezd2ze3sexpzd2setq2810ze3zzast_dumpz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzast_dumpz00(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_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_argsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzeffect_effectz00(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_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern bool_t BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_nodez00_bglt);
extern obj_t BGl_za2typezd2shapezf3za2z21zzengine_paramz00;
static obj_t BGl_nodezd2ze3sexpzd2select2816ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_za2accesszd2shapezf3za2z21zzengine_paramz00;
static obj_t BGl_nodezd2ze3sexpzd2default2770ze3zzast_dumpz00(BgL_nodez00_bglt);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
static obj_t BGl_nodezd2ze3sexpzd2atom2773ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_nodezd2ze3sexpzd2vsetz122801zf1zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_newz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
static obj_t BGl_nodezd2ze3sexpzd2boxzd2ref2828z31zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_nodezd2ze3sexpzd2setfield2793ze3zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2kwote2779ze3zzast_dumpz00(obj_t, obj_t);
BGL_IMPORT obj_t create_struct(obj_t, int);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl__nodezd2ze3sexp4765z31zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2sequence2781ze3zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2app2783ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_closurez00zzast_nodez00;
extern obj_t BGl_vlengthz00zzast_nodez00;
static obj_t BGl_nodezd2ze3sexpzd2closure2777ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_setfieldz00zzast_nodez00;
static obj_t BGl_nodezd2ze3sexpzd2appzd2ly2785z31zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzast_dumpz00 = BUNSPEC;
static obj_t BGl_nodezd2ze3sexpzd2conditional2812ze3zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2valloc2804ze3zzast_dumpz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3sexpzd2fail2814ze3zzast_dumpz00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzast_dumpz00();
static obj_t BGl_nodezd2ze3sexpzd2vlength2797ze3zzast_dumpz00(obj_t, obj_t);
extern obj_t BGl_vsetz12z12zzast_nodez00;
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 35 ] ;


DEFINE_EXPORT_GENERIC( BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_bgl__nodeza7d2za7e3sexp4765za731za7za7ast_dumpza7005686z00, BGl__nodezd2ze3sexp4765z31zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5628z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2atom2773za7e3za7za7ast_dumpza7005687za7, BGl_nodezd2ze3sexpzd2atom2773ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5630z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2closure2777za7e3za7za7ast_dumpza7005688za7, BGl_nodezd2ze3sexpzd2closure2777ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5629z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2var2775za7e3za7za7ast_dumpza7005689za7, BGl_nodezd2ze3sexpzd2var2775ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5631z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2kwote2779za7e3za7za7ast_dumpza7005690za7, BGl_nodezd2ze3sexpzd2kwote2779ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5632z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2sequence2781za7e3za7za7ast_dumpza7005691za7, BGl_nodezd2ze3sexpzd2sequence2781ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5633z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2app2783za7e3za7za7ast_dumpza7005692za7, BGl_nodezd2ze3sexpzd2app2783ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5634z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2appza7d2ly2785za731za7za7ast_dumpza7005693z00, BGl_nodezd2ze3sexpzd2appzd2ly2785z31zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5635z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2funcall2787za7e3za7za7ast_dumpza7005694za7, BGl_nodezd2ze3sexpzd2funcall2787ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5636z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2pragma2789za7e3za7za7ast_dumpza7005695za7, BGl_nodezd2ze3sexpzd2pragma2789ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5637z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2getfield2791za7e3za7za7ast_dumpza7005696za7, BGl_nodezd2ze3sexpzd2getfield2791ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5638z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2setfield2793za7e3za7za7ast_dumpza7005697za7, BGl_nodezd2ze3sexpzd2setfield2793ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5640z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2vlength2797za7e3za7za7ast_dumpza7005698za7, BGl_nodezd2ze3sexpzd2vlength2797ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5639z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2new2795za7e3za7za7ast_dumpza7005699za7, BGl_nodezd2ze3sexpzd2new2795ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5641z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2vref2799za7e3za7za7ast_dumpza7005700za7, BGl_nodezd2ze3sexpzd2vref2799ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5642z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2vsetza7122801za7f1za7za7ast_dumpza7005701z00, BGl_nodezd2ze3sexpzd2vsetz122801zf1zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5643z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2valloc2804za7e3za7za7ast_dumpza7005702za7, BGl_nodezd2ze3sexpzd2valloc2804ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5644z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2isa2806za7e3za7za7ast_dumpza7005703za7, BGl_nodezd2ze3sexpzd2isa2806ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5645z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2cast2808za7e3za7za7ast_dumpza7005704za7, BGl_nodezd2ze3sexpzd2cast2808ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5646z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2setq2810za7e3za7za7ast_dumpza7005705za7, BGl_nodezd2ze3sexpzd2setq2810ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5647z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2conditional2812za7e3za7za7ast_dumpza7005706za7, BGl_nodezd2ze3sexpzd2conditional2812ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5648z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2fail2814za7e3za7za7ast_dumpza7005707za7, BGl_nodezd2ze3sexpzd2fail2814ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5650z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2letza7d2fun2818za731za7za7ast_dumpza7005708z00, BGl_nodezd2ze3sexpzd2letzd2fun2818z31zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5649z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2select2816za7e3za7za7ast_dumpza7005709za7, BGl_nodezd2ze3sexpzd2select2816ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5651z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2letza7d2var2820za731za7za7ast_dumpza7005710z00, BGl_nodezd2ze3sexpzd2letzd2var2820z31zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5652z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2setza7d2exza7d2it2822za7e3za7za7ast_dumpza7005711za7, BGl_nodezd2ze3sexpzd2setzd2exzd2it2822ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5653z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2jumpza7d2exza7d2it2824za7e3za7za7ast_dumpza7005712za7, BGl_nodezd2ze3sexpzd2jumpzd2exzd2it2824ze3zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5654z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2makeza7d2box2826za731za7za7ast_dumpza7005713z00, BGl_nodezd2ze3sexpzd2makezd2box2826z31zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5655z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2boxza7d2ref2828za731za7za7ast_dumpza7005714z00, BGl_nodezd2ze3sexpzd2boxzd2ref2828z31zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5656z00zzast_dumpz00, BgL_bgl_nodeza7d2za7e3sexpza7d2boxza7d2setza7122830za723za7za7ast_dumpza7005715za7, BGl_nodezd2ze3sexpzd2boxzd2setz122830z23zzast_dumpz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_nodezd2ze3sexpzd2default2770zd2envz31zzast_dumpz00, BgL_bgl__nodeza7d2za7e3sexpza7d2default2770za7e3za7za7ast_dumpza7005716za7, BGl__nodezd2ze3sexpzd2default2770ze3zzast_dumpz00, 0L, 1 );
DEFINE_STRING( BGl_string5658z00zzast_dumpz00, BgL_bgl_string5658za700za7za7ast_dumpza7005717z00, "node->sexp-default2770 (quote ()) function quote a-tvector begin side-effect: apply funcall funcall-el elight funcall-l light free-pragma pragma getfield setfield new vlength vref vset! vnew isa? cast set! if failure case labels let set-exit jump-exit make-box box-ref box-set! ", 278 );
DEFINE_STRING( BGl_string5657z00zzast_dumpz00, BgL_bgl_string5657za700za7za7ast_dumpza7005718z00, "No method for this object", 25 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzast_dumpz00(long BgL_checksumz00_3836, char * BgL_fromz00_3837)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzast_dumpz00))
{ 
BGl_requirezd2initializa7ationz75zzast_dumpz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzast_dumpz00(); 
BGl_cnstzd2initzd2zzast_dumpz00(); 
BGl_importedzd2moduleszd2initz00zzast_dumpz00(); 
BGl_methodzd2initzd2zzast_dumpz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzast_dumpz00()
{ AN_OBJECT;
{ /* ./Ast/dump.scm 14 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "ast_dump"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "ast_dump"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "ast_dump"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "ast_dump"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzast_dumpz00()
{ AN_OBJECT;
{ /* ./Ast/dump.scm 14 */
{ /* ./Ast/dump.scm 14 */
obj_t BgL_cportz00_3829;
BgL_cportz00_3829 = 
open_input_string(BGl_string5658z00zzast_dumpz00); 
{ 
long BgL_iz00_3830;
BgL_iz00_3830 = ((long)34); 
BgL_loopz00_3831:
{ /* ./Ast/dump.scm 14 */
bool_t BgL_test5660z00_3832;
BgL_test5660z00_3832 = 
(BgL_iz00_3830==((long)-1)); 
if(BgL_test5660z00_3832)
{ /* ./Ast/dump.scm 14 */
return BUNSPEC;}  else 
{ /* ./Ast/dump.scm 14 */
{ /* ./Ast/dump.scm 14 */
obj_t BgL_arg5662z00_3833;
{ /* ./Ast/dump.scm 14 */
obj_t BgL_list5665z00_3834;
BgL_list5665z00_3834 = 
MAKE_PAIR(BgL_cportz00_3829, BNIL); 
BgL_arg5662z00_3833 = 
BGl_readz00zz__readerz00(BgL_list5665z00_3834); } 
{ /* ./Ast/dump.scm 14 */
int BgL_auxz00_3854;
BgL_auxz00_3854 = 
(int)(BgL_iz00_3830); 
CNST_TABLE_SET(BgL_auxz00_3854, BgL_arg5662z00_3833); } } 
{ /* ./Ast/dump.scm 14 */
int BgL_auxz00_3835;
{ /* ./Ast/dump.scm 14 */
long BgL_auxz00_3857;
BgL_auxz00_3857 = 
(BgL_iz00_3830-((long)1)); 
BgL_auxz00_3835 = 
(int)(BgL_auxz00_3857); } 
{ 
long BgL_iz00_3860;
BgL_iz00_3860 = 
(long)(BgL_auxz00_3835); 
BgL_iz00_3830 = BgL_iz00_3860; 
goto BgL_loopz00_3831;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzast_dumpz00()
{ AN_OBJECT;
{ /* ./Ast/dump.scm 14 */
return BUNSPEC;} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzast_dumpz00()
{ AN_OBJECT;
{ /* ./Ast/dump.scm 14 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_nodezd2ze3sexpzd2default2770zd2envz31zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_atomz00zzast_nodez00, BGl_proc5628z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_varz00zzast_nodez00, BGl_proc5629z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_closurez00zzast_nodez00, BGl_proc5630z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_kwotez00zzast_nodez00, BGl_proc5631z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_sequencez00zzast_nodez00, BGl_proc5632z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_appz00zzast_nodez00, BGl_proc5633z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc5634z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_funcallz00zzast_nodez00, BGl_proc5635z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_pragmaz00zzast_nodez00, BGl_proc5636z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_getfieldz00zzast_nodez00, BGl_proc5637z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_setfieldz00zzast_nodez00, BGl_proc5638z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_newz00zzast_nodez00, BGl_proc5639z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_vlengthz00zzast_nodez00, BGl_proc5640z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_vrefz00zzast_nodez00, BGl_proc5641z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_vsetz12z12zzast_nodez00, BGl_proc5642z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_vallocz00zzast_nodez00, BGl_proc5643z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_isaz00zzast_nodez00, BGl_proc5644z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_castz00zzast_nodez00, BGl_proc5645z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_setqz00zzast_nodez00, BGl_proc5646z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_conditionalz00zzast_nodez00, BGl_proc5647z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_failz00zzast_nodez00, BGl_proc5648z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_selectz00zzast_nodez00, BGl_proc5649z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc5650z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc5651z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc5652z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc5653z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc5654z00zzast_dumpz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc5655z00zzast_dumpz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc5656z00zzast_dumpz00);} 
}



/* node->sexp-box-set!2830 */
obj_t BGl_nodezd2ze3sexpzd2boxzd2setz122830z23zzast_dumpz00(obj_t BgL_envz00_3768, obj_t BgL_nodez00_3769)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 295 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1795;
BgL_nodez00_1795 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_3769); 
{ /* ./Ast/dump.scm 296 */
obj_t BgL_arg4605z00_1798;obj_t BgL_arg4606z00_1799;
BgL_arg4605z00_1798 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Ast/dump.scm 296 */
obj_t BgL_arg4609z00_1800;obj_t BgL_arg4610z00_1801;
{ /* ./Ast/dump.scm 296 */
BgL_varz00_bglt BgL_arg4613z00_1802;
BgL_arg4613z00_1802 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1795))->BgL_varz00); 
{ /* ./Ast/dump.scm 296 */
BgL_nodez00_bglt BgL_nodez00_3656;
BgL_nodez00_3656 = 
(BgL_nodez00_bglt)(BgL_arg4613z00_1802); 
{ /* ./Ast/dump.scm 296 */
obj_t BgL_method2771z00_3657;
{ /* ./Ast/dump.scm 296 */
BgL_objectz00_bglt BgL_objz00_3658;
BgL_objz00_3658 = 
(BgL_objectz00_bglt)(BgL_nodez00_3656); 
{ /* ./Ast/dump.scm 296 */
long BgL_objzd2classzd2numz00_3659;
BgL_objzd2classzd2numz00_3659 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3658); 
{ /* ./Ast/dump.scm 296 */
obj_t BgL_arg2017z00_3660;
{ /* ./Ast/dump.scm 296 */
int BgL_auxz00_3897;
BgL_auxz00_3897 = 
(int)(((long)1)); 
BgL_arg2017z00_3660 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_3897); } 
{ /* ./Ast/dump.scm 296 */
int BgL_offsetz00_3663;
BgL_offsetz00_3663 = 
(int)(BgL_objzd2classzd2numz00_3659); 
{ /* ./Ast/dump.scm 296 */
long BgL_offsetz00_3664;
{ /* ./Ast/dump.scm 296 */
long BgL_auxz00_3901;
BgL_auxz00_3901 = 
(long)(BgL_offsetz00_3663); 
BgL_offsetz00_3664 = 
(BgL_auxz00_3901-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 296 */
long BgL_modz00_3665;
{ /* ./Ast/dump.scm 296 */
int BgL_arg2028z00_3666;
BgL_arg2028z00_3666 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 296 */
long BgL_n2z00_3674;
BgL_n2z00_3674 = 
(long)(BgL_arg2028z00_3666); 
BgL_modz00_3665 = 
(BgL_offsetz00_3664/BgL_n2z00_3674); } } 
{ /* ./Ast/dump.scm 296 */
long BgL_restz00_3667;
{ /* ./Ast/dump.scm 296 */
int BgL_arg2024z00_3668;
BgL_arg2024z00_3668 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 296 */
long BgL_n2z00_3677;
BgL_n2z00_3677 = 
(long)(BgL_arg2024z00_3668); 
BgL_restz00_3667 = 
(BgL_offsetz00_3664%BgL_n2z00_3677); } } 
{ /* ./Ast/dump.scm 296 */

{ /* ./Ast/dump.scm 296 */
obj_t BgL_bucketz00_3669;
{ /* ./Ast/dump.scm 296 */
int BgL_kz00_3679;
BgL_kz00_3679 = 
(int)(BgL_modz00_3665); 
BgL_bucketz00_3669 = 
VECTOR_REF(BgL_arg2017z00_3660,BgL_kz00_3679); } 
{ /* ./Ast/dump.scm 296 */
int BgL_kz00_3681;
BgL_kz00_3681 = 
(int)(BgL_restz00_3667); 
BgL_method2771z00_3657 = 
VECTOR_REF(BgL_bucketz00_3669,BgL_kz00_3681); } } } } } } } } } } 
BgL_arg4609z00_1800 = 
PROCEDURE_ENTRY(BgL_method2771z00_3657)(BgL_method2771z00_3657, 
(obj_t)(BgL_nodez00_3656), BEOA); } } } 
{ /* ./Ast/dump.scm 297 */
obj_t BgL_arg4617z00_1803;
{ /* ./Ast/dump.scm 297 */
BgL_nodez00_bglt BgL_arg4621z00_1805;
BgL_arg4621z00_1805 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1795))->BgL_valuez00); 
{ /* ./Ast/dump.scm 297 */
obj_t BgL_method2771z00_3684;
{ /* ./Ast/dump.scm 297 */
BgL_objectz00_bglt BgL_objz00_3685;
BgL_objz00_3685 = 
(BgL_objectz00_bglt)(BgL_arg4621z00_1805); 
{ /* ./Ast/dump.scm 297 */
long BgL_objzd2classzd2numz00_3686;
BgL_objzd2classzd2numz00_3686 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3685); 
{ /* ./Ast/dump.scm 297 */
obj_t BgL_arg2017z00_3687;
{ /* ./Ast/dump.scm 297 */
int BgL_auxz00_3920;
BgL_auxz00_3920 = 
(int)(((long)1)); 
BgL_arg2017z00_3687 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_3920); } 
{ /* ./Ast/dump.scm 297 */
int BgL_offsetz00_3690;
BgL_offsetz00_3690 = 
(int)(BgL_objzd2classzd2numz00_3686); 
{ /* ./Ast/dump.scm 297 */
long BgL_offsetz00_3691;
{ /* ./Ast/dump.scm 297 */
long BgL_auxz00_3924;
BgL_auxz00_3924 = 
(long)(BgL_offsetz00_3690); 
BgL_offsetz00_3691 = 
(BgL_auxz00_3924-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 297 */
long BgL_modz00_3692;
{ /* ./Ast/dump.scm 297 */
int BgL_arg2028z00_3693;
BgL_arg2028z00_3693 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 297 */
long BgL_n2z00_3701;
BgL_n2z00_3701 = 
(long)(BgL_arg2028z00_3693); 
BgL_modz00_3692 = 
(BgL_offsetz00_3691/BgL_n2z00_3701); } } 
{ /* ./Ast/dump.scm 297 */
long BgL_restz00_3694;
{ /* ./Ast/dump.scm 297 */
int BgL_arg2024z00_3695;
BgL_arg2024z00_3695 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 297 */
long BgL_n2z00_3704;
BgL_n2z00_3704 = 
(long)(BgL_arg2024z00_3695); 
BgL_restz00_3694 = 
(BgL_offsetz00_3691%BgL_n2z00_3704); } } 
{ /* ./Ast/dump.scm 297 */

{ /* ./Ast/dump.scm 297 */
obj_t BgL_bucketz00_3696;
{ /* ./Ast/dump.scm 297 */
int BgL_kz00_3706;
BgL_kz00_3706 = 
(int)(BgL_modz00_3692); 
BgL_bucketz00_3696 = 
VECTOR_REF(BgL_arg2017z00_3687,BgL_kz00_3706); } 
{ /* ./Ast/dump.scm 297 */
int BgL_kz00_3708;
BgL_kz00_3708 = 
(int)(BgL_restz00_3694); 
BgL_method2771z00_3684 = 
VECTOR_REF(BgL_bucketz00_3696,BgL_kz00_3708); } } } } } } } } } } 
BgL_arg4617z00_1803 = 
PROCEDURE_ENTRY(BgL_method2771z00_3684)(BgL_method2771z00_3684, 
(obj_t)(BgL_arg4621z00_1805), BEOA); } } 
BgL_arg4610z00_1801 = 
MAKE_PAIR(BgL_arg4617z00_1803, BNIL); } 
BgL_arg4606z00_1799 = 
MAKE_PAIR(BgL_arg4609z00_1800, BgL_arg4610z00_1801); } 
return 
MAKE_PAIR(BgL_arg4605z00_1798, BgL_arg4606z00_1799);} } } 
}



/* node->sexp-box-ref2828 */
obj_t BGl_nodezd2ze3sexpzd2boxzd2ref2828z31zzast_dumpz00(obj_t BgL_envz00_3770, obj_t BgL_nodez00_3771)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 289 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1785;
BgL_nodez00_1785 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_3771); 
{ /* ./Ast/dump.scm 290 */
obj_t BgL_arg4587z00_1788;obj_t BgL_arg4588z00_1789;
BgL_arg4587z00_1788 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Ast/dump.scm 290 */
obj_t BgL_arg4591z00_1790;
{ /* ./Ast/dump.scm 290 */
BgL_varz00_bglt BgL_arg4595z00_1792;
BgL_arg4595z00_1792 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1785))->BgL_varz00); 
{ /* ./Ast/dump.scm 290 */
BgL_nodez00_bglt BgL_nodez00_3629;
BgL_nodez00_3629 = 
(BgL_nodez00_bglt)(BgL_arg4595z00_1792); 
{ /* ./Ast/dump.scm 290 */
obj_t BgL_method2771z00_3630;
{ /* ./Ast/dump.scm 290 */
BgL_objectz00_bglt BgL_objz00_3631;
BgL_objz00_3631 = 
(BgL_objectz00_bglt)(BgL_nodez00_3629); 
{ /* ./Ast/dump.scm 290 */
long BgL_objzd2classzd2numz00_3632;
BgL_objzd2classzd2numz00_3632 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3631); 
{ /* ./Ast/dump.scm 290 */
obj_t BgL_arg2017z00_3633;
{ /* ./Ast/dump.scm 290 */
int BgL_auxz00_3949;
BgL_auxz00_3949 = 
(int)(((long)1)); 
BgL_arg2017z00_3633 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_3949); } 
{ /* ./Ast/dump.scm 290 */
int BgL_offsetz00_3636;
BgL_offsetz00_3636 = 
(int)(BgL_objzd2classzd2numz00_3632); 
{ /* ./Ast/dump.scm 290 */
long BgL_offsetz00_3637;
{ /* ./Ast/dump.scm 290 */
long BgL_auxz00_3953;
BgL_auxz00_3953 = 
(long)(BgL_offsetz00_3636); 
BgL_offsetz00_3637 = 
(BgL_auxz00_3953-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 290 */
long BgL_modz00_3638;
{ /* ./Ast/dump.scm 290 */
int BgL_arg2028z00_3639;
BgL_arg2028z00_3639 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 290 */
long BgL_n2z00_3647;
BgL_n2z00_3647 = 
(long)(BgL_arg2028z00_3639); 
BgL_modz00_3638 = 
(BgL_offsetz00_3637/BgL_n2z00_3647); } } 
{ /* ./Ast/dump.scm 290 */
long BgL_restz00_3640;
{ /* ./Ast/dump.scm 290 */
int BgL_arg2024z00_3641;
BgL_arg2024z00_3641 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 290 */
long BgL_n2z00_3650;
BgL_n2z00_3650 = 
(long)(BgL_arg2024z00_3641); 
BgL_restz00_3640 = 
(BgL_offsetz00_3637%BgL_n2z00_3650); } } 
{ /* ./Ast/dump.scm 290 */

{ /* ./Ast/dump.scm 290 */
obj_t BgL_bucketz00_3642;
{ /* ./Ast/dump.scm 290 */
int BgL_kz00_3652;
BgL_kz00_3652 = 
(int)(BgL_modz00_3638); 
BgL_bucketz00_3642 = 
VECTOR_REF(BgL_arg2017z00_3633,BgL_kz00_3652); } 
{ /* ./Ast/dump.scm 290 */
int BgL_kz00_3654;
BgL_kz00_3654 = 
(int)(BgL_restz00_3640); 
BgL_method2771z00_3630 = 
VECTOR_REF(BgL_bucketz00_3642,BgL_kz00_3654); } } } } } } } } } } 
BgL_arg4591z00_1790 = 
PROCEDURE_ENTRY(BgL_method2771z00_3630)(BgL_method2771z00_3630, 
(obj_t)(BgL_nodez00_3629), BEOA); } } } 
BgL_arg4588z00_1789 = 
MAKE_PAIR(BgL_arg4591z00_1790, BNIL); } 
return 
MAKE_PAIR(BgL_arg4587z00_1788, BgL_arg4588z00_1789);} } } 
}



/* node->sexp-make-box2826 */
obj_t BGl_nodezd2ze3sexpzd2makezd2box2826z31zzast_dumpz00(obj_t BgL_envz00_3772, obj_t BgL_nodez00_3773)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 283 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1775;
BgL_nodez00_1775 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_3773); 
{ /* ./Ast/dump.scm 284 */
obj_t BgL_arg4569z00_1778;obj_t BgL_arg4570z00_1779;
BgL_arg4569z00_1778 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Ast/dump.scm 284 */
obj_t BgL_arg4573z00_1780;
{ /* ./Ast/dump.scm 284 */
BgL_nodez00_bglt BgL_arg4577z00_1782;
BgL_arg4577z00_1782 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1775))->BgL_valuez00); 
{ /* ./Ast/dump.scm 284 */
obj_t BgL_method2771z00_3603;
{ /* ./Ast/dump.scm 284 */
BgL_objectz00_bglt BgL_objz00_3604;
BgL_objz00_3604 = 
(BgL_objectz00_bglt)(BgL_arg4577z00_1782); 
{ /* ./Ast/dump.scm 284 */
long BgL_objzd2classzd2numz00_3605;
BgL_objzd2classzd2numz00_3605 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3604); 
{ /* ./Ast/dump.scm 284 */
obj_t BgL_arg2017z00_3606;
{ /* ./Ast/dump.scm 284 */
int BgL_auxz00_3976;
BgL_auxz00_3976 = 
(int)(((long)1)); 
BgL_arg2017z00_3606 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_3976); } 
{ /* ./Ast/dump.scm 284 */
int BgL_offsetz00_3609;
BgL_offsetz00_3609 = 
(int)(BgL_objzd2classzd2numz00_3605); 
{ /* ./Ast/dump.scm 284 */
long BgL_offsetz00_3610;
{ /* ./Ast/dump.scm 284 */
long BgL_auxz00_3980;
BgL_auxz00_3980 = 
(long)(BgL_offsetz00_3609); 
BgL_offsetz00_3610 = 
(BgL_auxz00_3980-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 284 */
long BgL_modz00_3611;
{ /* ./Ast/dump.scm 284 */
int BgL_arg2028z00_3612;
BgL_arg2028z00_3612 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 284 */
long BgL_n2z00_3620;
BgL_n2z00_3620 = 
(long)(BgL_arg2028z00_3612); 
BgL_modz00_3611 = 
(BgL_offsetz00_3610/BgL_n2z00_3620); } } 
{ /* ./Ast/dump.scm 284 */
long BgL_restz00_3613;
{ /* ./Ast/dump.scm 284 */
int BgL_arg2024z00_3614;
BgL_arg2024z00_3614 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 284 */
long BgL_n2z00_3623;
BgL_n2z00_3623 = 
(long)(BgL_arg2024z00_3614); 
BgL_restz00_3613 = 
(BgL_offsetz00_3610%BgL_n2z00_3623); } } 
{ /* ./Ast/dump.scm 284 */

{ /* ./Ast/dump.scm 284 */
obj_t BgL_bucketz00_3615;
{ /* ./Ast/dump.scm 284 */
int BgL_kz00_3625;
BgL_kz00_3625 = 
(int)(BgL_modz00_3611); 
BgL_bucketz00_3615 = 
VECTOR_REF(BgL_arg2017z00_3606,BgL_kz00_3625); } 
{ /* ./Ast/dump.scm 284 */
int BgL_kz00_3627;
BgL_kz00_3627 = 
(int)(BgL_restz00_3613); 
BgL_method2771z00_3603 = 
VECTOR_REF(BgL_bucketz00_3615,BgL_kz00_3627); } } } } } } } } } } 
BgL_arg4573z00_1780 = 
PROCEDURE_ENTRY(BgL_method2771z00_3603)(BgL_method2771z00_3603, 
(obj_t)(BgL_arg4577z00_1782), BEOA); } } 
BgL_arg4570z00_1779 = 
MAKE_PAIR(BgL_arg4573z00_1780, BNIL); } 
return 
MAKE_PAIR(BgL_arg4569z00_1778, BgL_arg4570z00_1779);} } } 
}



/* node->sexp-jump-ex-it2824 */
obj_t BGl_nodezd2ze3sexpzd2jumpzd2exzd2it2824ze3zzast_dumpz00(obj_t BgL_envz00_3774, obj_t BgL_nodez00_3775)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 276 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1762;
BgL_nodez00_1762 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_3775); 
{ /* ./Ast/dump.scm 277 */
obj_t BgL_arg4543z00_1765;obj_t BgL_arg4544z00_1766;
BgL_arg4543z00_1765 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Ast/dump.scm 277 */
obj_t BgL_arg4547z00_1767;obj_t BgL_arg4548z00_1768;
{ /* ./Ast/dump.scm 277 */
BgL_nodez00_bglt BgL_arg4551z00_1769;
BgL_arg4551z00_1769 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1762))->BgL_exitz00); 
{ /* ./Ast/dump.scm 277 */
obj_t BgL_method2771z00_3549;
{ /* ./Ast/dump.scm 277 */
BgL_objectz00_bglt BgL_objz00_3550;
BgL_objz00_3550 = 
(BgL_objectz00_bglt)(BgL_arg4551z00_1769); 
{ /* ./Ast/dump.scm 277 */
long BgL_objzd2classzd2numz00_3551;
BgL_objzd2classzd2numz00_3551 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3550); 
{ /* ./Ast/dump.scm 277 */
obj_t BgL_arg2017z00_3552;
{ /* ./Ast/dump.scm 277 */
int BgL_auxz00_4003;
BgL_auxz00_4003 = 
(int)(((long)1)); 
BgL_arg2017z00_3552 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4003); } 
{ /* ./Ast/dump.scm 277 */
int BgL_offsetz00_3555;
BgL_offsetz00_3555 = 
(int)(BgL_objzd2classzd2numz00_3551); 
{ /* ./Ast/dump.scm 277 */
long BgL_offsetz00_3556;
{ /* ./Ast/dump.scm 277 */
long BgL_auxz00_4007;
BgL_auxz00_4007 = 
(long)(BgL_offsetz00_3555); 
BgL_offsetz00_3556 = 
(BgL_auxz00_4007-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 277 */
long BgL_modz00_3557;
{ /* ./Ast/dump.scm 277 */
int BgL_arg2028z00_3558;
BgL_arg2028z00_3558 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 277 */
long BgL_n2z00_3566;
BgL_n2z00_3566 = 
(long)(BgL_arg2028z00_3558); 
BgL_modz00_3557 = 
(BgL_offsetz00_3556/BgL_n2z00_3566); } } 
{ /* ./Ast/dump.scm 277 */
long BgL_restz00_3559;
{ /* ./Ast/dump.scm 277 */
int BgL_arg2024z00_3560;
BgL_arg2024z00_3560 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 277 */
long BgL_n2z00_3569;
BgL_n2z00_3569 = 
(long)(BgL_arg2024z00_3560); 
BgL_restz00_3559 = 
(BgL_offsetz00_3556%BgL_n2z00_3569); } } 
{ /* ./Ast/dump.scm 277 */

{ /* ./Ast/dump.scm 277 */
obj_t BgL_bucketz00_3561;
{ /* ./Ast/dump.scm 277 */
int BgL_kz00_3571;
BgL_kz00_3571 = 
(int)(BgL_modz00_3557); 
BgL_bucketz00_3561 = 
VECTOR_REF(BgL_arg2017z00_3552,BgL_kz00_3571); } 
{ /* ./Ast/dump.scm 277 */
int BgL_kz00_3573;
BgL_kz00_3573 = 
(int)(BgL_restz00_3559); 
BgL_method2771z00_3549 = 
VECTOR_REF(BgL_bucketz00_3561,BgL_kz00_3573); } } } } } } } } } } 
BgL_arg4547z00_1767 = 
PROCEDURE_ENTRY(BgL_method2771z00_3549)(BgL_method2771z00_3549, 
(obj_t)(BgL_arg4551z00_1769), BEOA); } } 
{ /* ./Ast/dump.scm 278 */
obj_t BgL_arg4555z00_1770;
{ /* ./Ast/dump.scm 278 */
BgL_nodez00_bglt BgL_arg4559z00_1772;
BgL_arg4559z00_1772 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1762))->BgL_valuez00); 
{ /* ./Ast/dump.scm 278 */
obj_t BgL_method2771z00_3576;
{ /* ./Ast/dump.scm 278 */
BgL_objectz00_bglt BgL_objz00_3577;
BgL_objz00_3577 = 
(BgL_objectz00_bglt)(BgL_arg4559z00_1772); 
{ /* ./Ast/dump.scm 278 */
long BgL_objzd2classzd2numz00_3578;
BgL_objzd2classzd2numz00_3578 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3577); 
{ /* ./Ast/dump.scm 278 */
obj_t BgL_arg2017z00_3579;
{ /* ./Ast/dump.scm 278 */
int BgL_auxz00_4026;
BgL_auxz00_4026 = 
(int)(((long)1)); 
BgL_arg2017z00_3579 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4026); } 
{ /* ./Ast/dump.scm 278 */
int BgL_offsetz00_3582;
BgL_offsetz00_3582 = 
(int)(BgL_objzd2classzd2numz00_3578); 
{ /* ./Ast/dump.scm 278 */
long BgL_offsetz00_3583;
{ /* ./Ast/dump.scm 278 */
long BgL_auxz00_4030;
BgL_auxz00_4030 = 
(long)(BgL_offsetz00_3582); 
BgL_offsetz00_3583 = 
(BgL_auxz00_4030-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 278 */
long BgL_modz00_3584;
{ /* ./Ast/dump.scm 278 */
int BgL_arg2028z00_3585;
BgL_arg2028z00_3585 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 278 */
long BgL_n2z00_3593;
BgL_n2z00_3593 = 
(long)(BgL_arg2028z00_3585); 
BgL_modz00_3584 = 
(BgL_offsetz00_3583/BgL_n2z00_3593); } } 
{ /* ./Ast/dump.scm 278 */
long BgL_restz00_3586;
{ /* ./Ast/dump.scm 278 */
int BgL_arg2024z00_3587;
BgL_arg2024z00_3587 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 278 */
long BgL_n2z00_3596;
BgL_n2z00_3596 = 
(long)(BgL_arg2024z00_3587); 
BgL_restz00_3586 = 
(BgL_offsetz00_3583%BgL_n2z00_3596); } } 
{ /* ./Ast/dump.scm 278 */

{ /* ./Ast/dump.scm 278 */
obj_t BgL_bucketz00_3588;
{ /* ./Ast/dump.scm 278 */
int BgL_kz00_3598;
BgL_kz00_3598 = 
(int)(BgL_modz00_3584); 
BgL_bucketz00_3588 = 
VECTOR_REF(BgL_arg2017z00_3579,BgL_kz00_3598); } 
{ /* ./Ast/dump.scm 278 */
int BgL_kz00_3600;
BgL_kz00_3600 = 
(int)(BgL_restz00_3586); 
BgL_method2771z00_3576 = 
VECTOR_REF(BgL_bucketz00_3588,BgL_kz00_3600); } } } } } } } } } } 
BgL_arg4555z00_1770 = 
PROCEDURE_ENTRY(BgL_method2771z00_3576)(BgL_method2771z00_3576, 
(obj_t)(BgL_arg4559z00_1772), BEOA); } } 
BgL_arg4548z00_1768 = 
MAKE_PAIR(BgL_arg4555z00_1770, BNIL); } 
BgL_arg4544z00_1766 = 
MAKE_PAIR(BgL_arg4547z00_1767, BgL_arg4548z00_1768); } 
return 
MAKE_PAIR(BgL_arg4543z00_1765, BgL_arg4544z00_1766);} } } 
}



/* node->sexp-set-ex-it2822 */
obj_t BGl_nodezd2ze3sexpzd2setzd2exzd2it2822ze3zzast_dumpz00(obj_t BgL_envz00_3776, obj_t BgL_nodez00_3777)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 269 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1749;
BgL_nodez00_1749 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_3777); 
{ /* ./Ast/dump.scm 270 */
obj_t BgL_arg4517z00_1752;obj_t BgL_arg4518z00_1753;
BgL_arg4517z00_1752 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Ast/dump.scm 270 */
obj_t BgL_arg4521z00_1754;obj_t BgL_arg4522z00_1755;
{ /* ./Ast/dump.scm 270 */
BgL_varz00_bglt BgL_arg4525z00_1756;
BgL_arg4525z00_1756 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1749))->BgL_varz00); 
{ /* ./Ast/dump.scm 270 */
BgL_nodez00_bglt BgL_nodez00_3494;
BgL_nodez00_3494 = 
(BgL_nodez00_bglt)(BgL_arg4525z00_1756); 
{ /* ./Ast/dump.scm 270 */
obj_t BgL_method2771z00_3495;
{ /* ./Ast/dump.scm 270 */
BgL_objectz00_bglt BgL_objz00_3496;
BgL_objz00_3496 = 
(BgL_objectz00_bglt)(BgL_nodez00_3494); 
{ /* ./Ast/dump.scm 270 */
long BgL_objzd2classzd2numz00_3497;
BgL_objzd2classzd2numz00_3497 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3496); 
{ /* ./Ast/dump.scm 270 */
obj_t BgL_arg2017z00_3498;
{ /* ./Ast/dump.scm 270 */
int BgL_auxz00_4055;
BgL_auxz00_4055 = 
(int)(((long)1)); 
BgL_arg2017z00_3498 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4055); } 
{ /* ./Ast/dump.scm 270 */
int BgL_offsetz00_3501;
BgL_offsetz00_3501 = 
(int)(BgL_objzd2classzd2numz00_3497); 
{ /* ./Ast/dump.scm 270 */
long BgL_offsetz00_3502;
{ /* ./Ast/dump.scm 270 */
long BgL_auxz00_4059;
BgL_auxz00_4059 = 
(long)(BgL_offsetz00_3501); 
BgL_offsetz00_3502 = 
(BgL_auxz00_4059-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 270 */
long BgL_modz00_3503;
{ /* ./Ast/dump.scm 270 */
int BgL_arg2028z00_3504;
BgL_arg2028z00_3504 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 270 */
long BgL_n2z00_3512;
BgL_n2z00_3512 = 
(long)(BgL_arg2028z00_3504); 
BgL_modz00_3503 = 
(BgL_offsetz00_3502/BgL_n2z00_3512); } } 
{ /* ./Ast/dump.scm 270 */
long BgL_restz00_3505;
{ /* ./Ast/dump.scm 270 */
int BgL_arg2024z00_3506;
BgL_arg2024z00_3506 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 270 */
long BgL_n2z00_3515;
BgL_n2z00_3515 = 
(long)(BgL_arg2024z00_3506); 
BgL_restz00_3505 = 
(BgL_offsetz00_3502%BgL_n2z00_3515); } } 
{ /* ./Ast/dump.scm 270 */

{ /* ./Ast/dump.scm 270 */
obj_t BgL_bucketz00_3507;
{ /* ./Ast/dump.scm 270 */
int BgL_kz00_3517;
BgL_kz00_3517 = 
(int)(BgL_modz00_3503); 
BgL_bucketz00_3507 = 
VECTOR_REF(BgL_arg2017z00_3498,BgL_kz00_3517); } 
{ /* ./Ast/dump.scm 270 */
int BgL_kz00_3519;
BgL_kz00_3519 = 
(int)(BgL_restz00_3505); 
BgL_method2771z00_3495 = 
VECTOR_REF(BgL_bucketz00_3507,BgL_kz00_3519); } } } } } } } } } } 
BgL_arg4521z00_1754 = 
PROCEDURE_ENTRY(BgL_method2771z00_3495)(BgL_method2771z00_3495, 
(obj_t)(BgL_nodez00_3494), BEOA); } } } 
{ /* ./Ast/dump.scm 271 */
obj_t BgL_arg4529z00_1757;
{ /* ./Ast/dump.scm 271 */
BgL_nodez00_bglt BgL_arg4533z00_1759;
BgL_arg4533z00_1759 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1749))->BgL_bodyz00); 
{ /* ./Ast/dump.scm 271 */
obj_t BgL_method2771z00_3522;
{ /* ./Ast/dump.scm 271 */
BgL_objectz00_bglt BgL_objz00_3523;
BgL_objz00_3523 = 
(BgL_objectz00_bglt)(BgL_arg4533z00_1759); 
{ /* ./Ast/dump.scm 271 */
long BgL_objzd2classzd2numz00_3524;
BgL_objzd2classzd2numz00_3524 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3523); 
{ /* ./Ast/dump.scm 271 */
obj_t BgL_arg2017z00_3525;
{ /* ./Ast/dump.scm 271 */
int BgL_auxz00_4078;
BgL_auxz00_4078 = 
(int)(((long)1)); 
BgL_arg2017z00_3525 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4078); } 
{ /* ./Ast/dump.scm 271 */
int BgL_offsetz00_3528;
BgL_offsetz00_3528 = 
(int)(BgL_objzd2classzd2numz00_3524); 
{ /* ./Ast/dump.scm 271 */
long BgL_offsetz00_3529;
{ /* ./Ast/dump.scm 271 */
long BgL_auxz00_4082;
BgL_auxz00_4082 = 
(long)(BgL_offsetz00_3528); 
BgL_offsetz00_3529 = 
(BgL_auxz00_4082-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 271 */
long BgL_modz00_3530;
{ /* ./Ast/dump.scm 271 */
int BgL_arg2028z00_3531;
BgL_arg2028z00_3531 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 271 */
long BgL_n2z00_3539;
BgL_n2z00_3539 = 
(long)(BgL_arg2028z00_3531); 
BgL_modz00_3530 = 
(BgL_offsetz00_3529/BgL_n2z00_3539); } } 
{ /* ./Ast/dump.scm 271 */
long BgL_restz00_3532;
{ /* ./Ast/dump.scm 271 */
int BgL_arg2024z00_3533;
BgL_arg2024z00_3533 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 271 */
long BgL_n2z00_3542;
BgL_n2z00_3542 = 
(long)(BgL_arg2024z00_3533); 
BgL_restz00_3532 = 
(BgL_offsetz00_3529%BgL_n2z00_3542); } } 
{ /* ./Ast/dump.scm 271 */

{ /* ./Ast/dump.scm 271 */
obj_t BgL_bucketz00_3534;
{ /* ./Ast/dump.scm 271 */
int BgL_kz00_3544;
BgL_kz00_3544 = 
(int)(BgL_modz00_3530); 
BgL_bucketz00_3534 = 
VECTOR_REF(BgL_arg2017z00_3525,BgL_kz00_3544); } 
{ /* ./Ast/dump.scm 271 */
int BgL_kz00_3546;
BgL_kz00_3546 = 
(int)(BgL_restz00_3532); 
BgL_method2771z00_3522 = 
VECTOR_REF(BgL_bucketz00_3534,BgL_kz00_3546); } } } } } } } } } } 
BgL_arg4529z00_1757 = 
PROCEDURE_ENTRY(BgL_method2771z00_3522)(BgL_method2771z00_3522, 
(obj_t)(BgL_arg4533z00_1759), BEOA); } } 
BgL_arg4522z00_1755 = 
MAKE_PAIR(BgL_arg4529z00_1757, BNIL); } 
BgL_arg4518z00_1753 = 
MAKE_PAIR(BgL_arg4521z00_1754, BgL_arg4522z00_1755); } 
return 
MAKE_PAIR(BgL_arg4517z00_1752, BgL_arg4518z00_1753);} } } 
}



/* node->sexp-let-var2820 */
obj_t BGl_nodezd2ze3sexpzd2letzd2var2820z31zzast_dumpz00(obj_t BgL_envz00_3778, obj_t BgL_nodez00_3779)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 259 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1717;
BgL_nodez00_1717 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_3779); 
{ /* ./Ast/dump.scm 260 */
obj_t BgL_arg4455z00_1720;obj_t BgL_arg4456z00_1721;
{ /* ./Ast/dump.scm 260 */
BgL_nodez00_bglt BgL_obj1560z00_3425;
BgL_obj1560z00_3425 = 
(BgL_nodez00_bglt)(BgL_nodez00_1717); 
BgL_arg4455z00_1720 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3425))->BgL_locz00); } 
{ /* ./Ast/dump.scm 261 */
obj_t BgL_arg4460z00_1722;obj_t BgL_arg4461z00_1723;
BgL_arg4460z00_1722 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Ast/dump.scm 261 */
obj_t BgL_arg4464z00_1724;obj_t BgL_arg4465z00_1725;
{ /* ./Ast/dump.scm 261 */
obj_t BgL_l2765z00_1726;
BgL_l2765z00_1726 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1717))->BgL_bindingsz00); 
{ /* ./Ast/dump.scm 261 */
bool_t BgL_test4467z00_1727;
BgL_test4467z00_1727 = 
NULLP(BgL_l2765z00_1726); 
if(BgL_test4467z00_1727)
{ /* ./Ast/dump.scm 261 */
BgL_arg4464z00_1724 = BNIL; }  else 
{ /* ./Ast/dump.scm 261 */
obj_t BgL_head2767z00_1728;
BgL_head2767z00_1728 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2765z00_1729;obj_t BgL_tail2768z00_1730;
BgL_l2765z00_1729 = BgL_l2765z00_1726; 
BgL_tail2768z00_1730 = BgL_head2767z00_1728; 
BgL_map2766z00_1731:
{ /* ./Ast/dump.scm 261 */
bool_t BgL_test4469z00_1732;
BgL_test4469z00_1732 = 
NULLP(BgL_l2765z00_1729); 
if(BgL_test4469z00_1732)
{ /* ./Ast/dump.scm 261 */
BgL_arg4464z00_1724 = 
CDR(BgL_head2767z00_1728); }  else 
{ /* ./Ast/dump.scm 262 */
obj_t BgL_newtail2769z00_1733;
{ /* ./Ast/dump.scm 262 */
obj_t BgL_arg4478z00_1735;
{ /* ./Ast/dump.scm 262 */
obj_t BgL_bz00_1737;
BgL_bz00_1737 = 
CAR(BgL_l2765z00_1729); 
{ /* ./Ast/dump.scm 262 */
obj_t BgL_arg4482z00_1738;obj_t BgL_arg4483z00_1739;
{ /* ./Ast/dump.scm 262 */
obj_t BgL_arg4486z00_1740;
BgL_arg4486z00_1740 = 
CAR(BgL_bz00_1737); 
BgL_arg4482z00_1738 = 
BGl_shapez00zztools_shapez00(BgL_arg4486z00_1740); } 
{ /* ./Ast/dump.scm 262 */
obj_t BgL_arg4490z00_1741;
{ /* ./Ast/dump.scm 262 */
obj_t BgL_arg4494z00_1743;
BgL_arg4494z00_1743 = 
CDR(BgL_bz00_1737); 
{ /* ./Ast/dump.scm 262 */
BgL_nodez00_bglt BgL_nodez00_3435;
BgL_nodez00_3435 = 
(BgL_nodez00_bglt)(BgL_arg4494z00_1743); 
{ /* ./Ast/dump.scm 262 */
obj_t BgL_method2771z00_3436;
{ /* ./Ast/dump.scm 262 */
BgL_objectz00_bglt BgL_objz00_3437;
BgL_objz00_3437 = 
(BgL_objectz00_bglt)(BgL_nodez00_3435); 
{ /* ./Ast/dump.scm 262 */
long BgL_objzd2classzd2numz00_3438;
BgL_objzd2classzd2numz00_3438 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3437); 
{ /* ./Ast/dump.scm 262 */
obj_t BgL_arg2017z00_3439;
{ /* ./Ast/dump.scm 262 */
int BgL_auxz00_4119;
BgL_auxz00_4119 = 
(int)(((long)1)); 
BgL_arg2017z00_3439 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4119); } 
{ /* ./Ast/dump.scm 262 */
int BgL_offsetz00_3442;
BgL_offsetz00_3442 = 
(int)(BgL_objzd2classzd2numz00_3438); 
{ /* ./Ast/dump.scm 262 */
long BgL_offsetz00_3443;
{ /* ./Ast/dump.scm 262 */
long BgL_auxz00_4123;
BgL_auxz00_4123 = 
(long)(BgL_offsetz00_3442); 
BgL_offsetz00_3443 = 
(BgL_auxz00_4123-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 262 */
long BgL_modz00_3444;
{ /* ./Ast/dump.scm 262 */
int BgL_arg2028z00_3445;
BgL_arg2028z00_3445 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 262 */
long BgL_n2z00_3453;
BgL_n2z00_3453 = 
(long)(BgL_arg2028z00_3445); 
BgL_modz00_3444 = 
(BgL_offsetz00_3443/BgL_n2z00_3453); } } 
{ /* ./Ast/dump.scm 262 */
long BgL_restz00_3446;
{ /* ./Ast/dump.scm 262 */
int BgL_arg2024z00_3447;
BgL_arg2024z00_3447 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 262 */
long BgL_n2z00_3456;
BgL_n2z00_3456 = 
(long)(BgL_arg2024z00_3447); 
BgL_restz00_3446 = 
(BgL_offsetz00_3443%BgL_n2z00_3456); } } 
{ /* ./Ast/dump.scm 262 */

{ /* ./Ast/dump.scm 262 */
obj_t BgL_bucketz00_3448;
{ /* ./Ast/dump.scm 262 */
int BgL_kz00_3458;
BgL_kz00_3458 = 
(int)(BgL_modz00_3444); 
BgL_bucketz00_3448 = 
VECTOR_REF(BgL_arg2017z00_3439,BgL_kz00_3458); } 
{ /* ./Ast/dump.scm 262 */
int BgL_kz00_3460;
BgL_kz00_3460 = 
(int)(BgL_restz00_3446); 
BgL_method2771z00_3436 = 
VECTOR_REF(BgL_bucketz00_3448,BgL_kz00_3460); } } } } } } } } } } 
BgL_arg4490z00_1741 = 
PROCEDURE_ENTRY(BgL_method2771z00_3436)(BgL_method2771z00_3436, 
(obj_t)(BgL_nodez00_3435), BEOA); } } } 
BgL_arg4483z00_1739 = 
MAKE_PAIR(BgL_arg4490z00_1741, BNIL); } 
BgL_arg4478z00_1735 = 
MAKE_PAIR(BgL_arg4482z00_1738, BgL_arg4483z00_1739); } } 
BgL_newtail2769z00_1733 = 
MAKE_PAIR(BgL_arg4478z00_1735, BNIL); } 
SET_CDR(BgL_tail2768z00_1730, BgL_newtail2769z00_1733); 
{ /* ./Ast/dump.scm 261 */
obj_t BgL_arg4474z00_1734;
BgL_arg4474z00_1734 = 
CDR(BgL_l2765z00_1729); 
{ 
obj_t BgL_tail2768z00_4145;obj_t BgL_l2765z00_4144;
BgL_l2765z00_4144 = BgL_arg4474z00_1734; 
BgL_tail2768z00_4145 = BgL_newtail2769z00_1733; 
BgL_tail2768z00_1730 = BgL_tail2768z00_4145; 
BgL_l2765z00_1729 = BgL_l2765z00_4144; 
goto BgL_map2766z00_1731;} } } } } } } } 
{ /* ./Ast/dump.scm 264 */
obj_t BgL_arg4503z00_1744;
{ /* ./Ast/dump.scm 264 */
BgL_nodez00_bglt BgL_arg4507z00_1746;
BgL_arg4507z00_1746 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1717))->BgL_bodyz00); 
{ /* ./Ast/dump.scm 264 */
obj_t BgL_method2771z00_3468;
{ /* ./Ast/dump.scm 264 */
BgL_objectz00_bglt BgL_objz00_3469;
BgL_objz00_3469 = 
(BgL_objectz00_bglt)(BgL_arg4507z00_1746); 
{ /* ./Ast/dump.scm 264 */
long BgL_objzd2classzd2numz00_3470;
BgL_objzd2classzd2numz00_3470 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3469); 
{ /* ./Ast/dump.scm 264 */
obj_t BgL_arg2017z00_3471;
{ /* ./Ast/dump.scm 264 */
int BgL_auxz00_4149;
BgL_auxz00_4149 = 
(int)(((long)1)); 
BgL_arg2017z00_3471 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4149); } 
{ /* ./Ast/dump.scm 264 */
int BgL_offsetz00_3474;
BgL_offsetz00_3474 = 
(int)(BgL_objzd2classzd2numz00_3470); 
{ /* ./Ast/dump.scm 264 */
long BgL_offsetz00_3475;
{ /* ./Ast/dump.scm 264 */
long BgL_auxz00_4153;
BgL_auxz00_4153 = 
(long)(BgL_offsetz00_3474); 
BgL_offsetz00_3475 = 
(BgL_auxz00_4153-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 264 */
long BgL_modz00_3476;
{ /* ./Ast/dump.scm 264 */
int BgL_arg2028z00_3477;
BgL_arg2028z00_3477 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 264 */
long BgL_n2z00_3485;
BgL_n2z00_3485 = 
(long)(BgL_arg2028z00_3477); 
BgL_modz00_3476 = 
(BgL_offsetz00_3475/BgL_n2z00_3485); } } 
{ /* ./Ast/dump.scm 264 */
long BgL_restz00_3478;
{ /* ./Ast/dump.scm 264 */
int BgL_arg2024z00_3479;
BgL_arg2024z00_3479 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 264 */
long BgL_n2z00_3488;
BgL_n2z00_3488 = 
(long)(BgL_arg2024z00_3479); 
BgL_restz00_3478 = 
(BgL_offsetz00_3475%BgL_n2z00_3488); } } 
{ /* ./Ast/dump.scm 264 */

{ /* ./Ast/dump.scm 264 */
obj_t BgL_bucketz00_3480;
{ /* ./Ast/dump.scm 264 */
int BgL_kz00_3490;
BgL_kz00_3490 = 
(int)(BgL_modz00_3476); 
BgL_bucketz00_3480 = 
VECTOR_REF(BgL_arg2017z00_3471,BgL_kz00_3490); } 
{ /* ./Ast/dump.scm 264 */
int BgL_kz00_3492;
BgL_kz00_3492 = 
(int)(BgL_restz00_3478); 
BgL_method2771z00_3468 = 
VECTOR_REF(BgL_bucketz00_3480,BgL_kz00_3492); } } } } } } } } } } 
BgL_arg4503z00_1744 = 
PROCEDURE_ENTRY(BgL_method2771z00_3468)(BgL_method2771z00_3468, 
(obj_t)(BgL_arg4507z00_1746), BEOA); } } 
BgL_arg4465z00_1725 = 
MAKE_PAIR(BgL_arg4503z00_1744, BNIL); } 
BgL_arg4461z00_1723 = 
MAKE_PAIR(BgL_arg4464z00_1724, BgL_arg4465z00_1725); } 
BgL_arg4456z00_1721 = 
MAKE_PAIR(BgL_arg4460z00_1722, BgL_arg4461z00_1723); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg4455z00_1720, BgL_arg4456z00_1721);} } } 
}



/* node->sexp-let-fun2818 */
obj_t BGl_nodezd2ze3sexpzd2letzd2fun2818z31zzast_dumpz00(obj_t BgL_envz00_3780, obj_t BgL_nodez00_3781)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 243 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1663;
BgL_nodez00_1663 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_3781); 
{ /* ./Ast/dump.scm 244 */
obj_t BgL_arg4347z00_1666;obj_t BgL_arg4348z00_1667;
{ /* ./Ast/dump.scm 244 */
BgL_nodez00_bglt BgL_obj1560z00_3341;
BgL_obj1560z00_3341 = 
(BgL_nodez00_bglt)(BgL_nodez00_1663); 
BgL_arg4347z00_1666 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3341))->BgL_locz00); } 
{ /* ./Ast/dump.scm 245 */
obj_t BgL_arg4352z00_1668;obj_t BgL_arg4353z00_1669;
BgL_arg4352z00_1668 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Ast/dump.scm 245 */
obj_t BgL_arg4357z00_1670;obj_t BgL_arg4358z00_1671;
{ /* ./Ast/dump.scm 245 */
obj_t BgL_l2755z00_1672;
BgL_l2755z00_1672 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1663))->BgL_localsz00); 
{ /* ./Ast/dump.scm 245 */
bool_t BgL_test4360z00_1673;
BgL_test4360z00_1673 = 
NULLP(BgL_l2755z00_1672); 
if(BgL_test4360z00_1673)
{ /* ./Ast/dump.scm 245 */
BgL_arg4357z00_1670 = BNIL; }  else 
{ /* ./Ast/dump.scm 245 */
obj_t BgL_head2757z00_1674;
BgL_head2757z00_1674 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2755z00_1675;obj_t BgL_tail2758z00_1676;
BgL_l2755z00_1675 = BgL_l2755z00_1672; 
BgL_tail2758z00_1676 = BgL_head2757z00_1674; 
BgL_map2756z00_1677:
{ /* ./Ast/dump.scm 245 */
bool_t BgL_test4362z00_1678;
BgL_test4362z00_1678 = 
NULLP(BgL_l2755z00_1675); 
if(BgL_test4362z00_1678)
{ /* ./Ast/dump.scm 245 */
BgL_arg4357z00_1670 = 
CDR(BgL_head2757z00_1674); }  else 
{ /* ./Ast/dump.scm 246 */
obj_t BgL_newtail2759z00_1679;
{ /* ./Ast/dump.scm 246 */
obj_t BgL_arg4370z00_1681;
{ /* ./Ast/dump.scm 246 */
obj_t BgL_funz00_1683;
BgL_funz00_1683 = 
CAR(BgL_l2755z00_1675); 
{ /* ./Ast/dump.scm 246 */
obj_t BgL_arg4374z00_1684;obj_t BgL_arg4375z00_1685;
BgL_arg4374z00_1684 = 
BGl_shapez00zztools_shapez00(BgL_funz00_1683); 
{ /* ./Ast/dump.scm 248 */
obj_t BgL_arg4379z00_1686;obj_t BgL_arg4380z00_1687;
{ /* ./Ast/dump.scm 248 */
obj_t BgL_arg4383z00_1688;long BgL_arg4384z00_1689;
{ /* ./Ast/dump.scm 248 */
obj_t BgL_l2760z00_1690;
{ /* ./Ast/dump.scm 249 */
BgL_sfunz00_bglt BgL_obj1367z00_3350;
{ /* ./Ast/dump.scm 249 */
BgL_valuez00_bglt BgL_auxz00_4186;
{ /* ./Ast/dump.scm 249 */
BgL_variablez00_bglt BgL_obj1100z00_3349;
BgL_obj1100z00_3349 = 
(BgL_variablez00_bglt)(BgL_funz00_1683); 
BgL_auxz00_4186 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3349))->BgL_valuez00); } 
BgL_obj1367z00_3350 = 
(BgL_sfunz00_bglt)(BgL_auxz00_4186); } 
BgL_l2760z00_1690 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_3350))->BgL_argsz00); } 
{ /* ./Ast/dump.scm 248 */
bool_t BgL_test4386z00_1691;
BgL_test4386z00_1691 = 
NULLP(BgL_l2760z00_1690); 
if(BgL_test4386z00_1691)
{ /* ./Ast/dump.scm 248 */
BgL_arg4383z00_1688 = BNIL; }  else 
{ /* ./Ast/dump.scm 248 */
obj_t BgL_head2762z00_1692;
{ /* ./Ast/dump.scm 248 */
obj_t BgL_arg4407z00_1703;
{ /* ./Ast/dump.scm 248 */
obj_t BgL_arg4412z00_1705;
BgL_arg4412z00_1705 = 
CAR(BgL_l2760z00_1690); 
BgL_arg4407z00_1703 = 
BGl_shapez00zztools_shapez00(BgL_arg4412z00_1705); } 
BgL_head2762z00_1692 = 
MAKE_PAIR(BgL_arg4407z00_1703, BNIL); } 
{ 
obj_t BgL_l2760z00_1693;obj_t BgL_tail2763z00_1694;
{ /* ./Ast/dump.scm 248 */
obj_t BgL_arg4388z00_1696;
BgL_arg4388z00_1696 = 
CDR(BgL_l2760z00_1690); 
BgL_l2760z00_1693 = BgL_arg4388z00_1696; 
BgL_tail2763z00_1694 = BgL_head2762z00_1692; 
BgL_map2761z00_1695:
{ /* ./Ast/dump.scm 248 */
bool_t BgL_test4391z00_1697;
BgL_test4391z00_1697 = 
NULLP(BgL_l2760z00_1693); 
if(BgL_test4391z00_1697)
{ /* ./Ast/dump.scm 248 */
BgL_arg4383z00_1688 = BgL_head2762z00_1692; }  else 
{ /* ./Ast/dump.scm 248 */
obj_t BgL_newtail2764z00_1698;
{ /* ./Ast/dump.scm 248 */
obj_t BgL_arg4398z00_1700;
{ /* ./Ast/dump.scm 248 */
obj_t BgL_arg4402z00_1702;
BgL_arg4402z00_1702 = 
CAR(BgL_l2760z00_1693); 
BgL_arg4398z00_1700 = 
BGl_shapez00zztools_shapez00(BgL_arg4402z00_1702); } 
BgL_newtail2764z00_1698 = 
MAKE_PAIR(BgL_arg4398z00_1700, BNIL); } 
SET_CDR(BgL_tail2763z00_1694, BgL_newtail2764z00_1698); 
{ /* ./Ast/dump.scm 248 */
obj_t BgL_arg4394z00_1699;
BgL_arg4394z00_1699 = 
CDR(BgL_l2760z00_1693); 
{ 
obj_t BgL_tail2763z00_4205;obj_t BgL_l2760z00_4204;
BgL_l2760z00_4204 = BgL_arg4394z00_1699; 
BgL_tail2763z00_4205 = BgL_newtail2764z00_1698; 
BgL_tail2763z00_1694 = BgL_tail2763z00_4205; 
BgL_l2760z00_1693 = BgL_l2760z00_4204; 
goto BgL_map2761z00_1695;} } } } } } } } } 
{ /* ./Ast/dump.scm 250 */
BgL_funz00_bglt BgL_obj1301z00_3364;
{ /* ./Ast/dump.scm 250 */
BgL_valuez00_bglt BgL_auxz00_4206;
{ /* ./Ast/dump.scm 250 */
BgL_variablez00_bglt BgL_obj1100z00_3363;
BgL_obj1100z00_3363 = 
(BgL_variablez00_bglt)(BgL_funz00_1683); 
BgL_auxz00_4206 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3363))->BgL_valuez00); } 
BgL_obj1301z00_3364 = 
(BgL_funz00_bglt)(BgL_auxz00_4206); } 
BgL_arg4384z00_1689 = 
(((BgL_funz00_bglt)CREF(BgL_obj1301z00_3364))->BgL_arityz00); } 
BgL_arg4379z00_1686 = 
BGl_argszd2listzd2ze3argsza2z41zztools_argsz00(BgL_arg4383z00_1688, 
BINT(BgL_arg4384z00_1689)); } 
{ /* ./Ast/dump.scm 252 */
obj_t BgL_arg4425z00_1708;
{ /* ./Ast/dump.scm 252 */
obj_t BgL_arg4429z00_1710;
{ /* ./Ast/dump.scm 252 */
BgL_sfunz00_bglt BgL_obj1370z00_3366;
{ /* ./Ast/dump.scm 252 */
BgL_valuez00_bglt BgL_auxz00_4213;
{ /* ./Ast/dump.scm 252 */
BgL_variablez00_bglt BgL_obj1100z00_3365;
BgL_obj1100z00_3365 = 
(BgL_variablez00_bglt)(BgL_funz00_1683); 
BgL_auxz00_4213 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3365))->BgL_valuez00); } 
BgL_obj1370z00_3366 = 
(BgL_sfunz00_bglt)(BgL_auxz00_4213); } 
BgL_arg4429z00_1710 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_3366))->BgL_bodyz00); } 
{ /* ./Ast/dump.scm 251 */
BgL_nodez00_bglt BgL_nodez00_3367;
BgL_nodez00_3367 = 
(BgL_nodez00_bglt)(BgL_arg4429z00_1710); 
{ /* ./Ast/dump.scm 251 */
obj_t BgL_method2771z00_3368;
{ /* ./Ast/dump.scm 251 */
BgL_objectz00_bglt BgL_objz00_3369;
BgL_objz00_3369 = 
(BgL_objectz00_bglt)(BgL_nodez00_3367); 
{ /* ./Ast/dump.scm 251 */
long BgL_objzd2classzd2numz00_3370;
BgL_objzd2classzd2numz00_3370 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3369); 
{ /* ./Ast/dump.scm 251 */
obj_t BgL_arg2017z00_3371;
{ /* ./Ast/dump.scm 251 */
int BgL_auxz00_4221;
BgL_auxz00_4221 = 
(int)(((long)1)); 
BgL_arg2017z00_3371 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4221); } 
{ /* ./Ast/dump.scm 251 */
int BgL_offsetz00_3374;
BgL_offsetz00_3374 = 
(int)(BgL_objzd2classzd2numz00_3370); 
{ /* ./Ast/dump.scm 251 */
long BgL_offsetz00_3375;
{ /* ./Ast/dump.scm 251 */
long BgL_auxz00_4225;
BgL_auxz00_4225 = 
(long)(BgL_offsetz00_3374); 
BgL_offsetz00_3375 = 
(BgL_auxz00_4225-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 251 */
long BgL_modz00_3376;
{ /* ./Ast/dump.scm 251 */
int BgL_arg2028z00_3377;
BgL_arg2028z00_3377 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 251 */
long BgL_n2z00_3385;
BgL_n2z00_3385 = 
(long)(BgL_arg2028z00_3377); 
BgL_modz00_3376 = 
(BgL_offsetz00_3375/BgL_n2z00_3385); } } 
{ /* ./Ast/dump.scm 251 */
long BgL_restz00_3378;
{ /* ./Ast/dump.scm 251 */
int BgL_arg2024z00_3379;
BgL_arg2024z00_3379 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 251 */
long BgL_n2z00_3388;
BgL_n2z00_3388 = 
(long)(BgL_arg2024z00_3379); 
BgL_restz00_3378 = 
(BgL_offsetz00_3375%BgL_n2z00_3388); } } 
{ /* ./Ast/dump.scm 251 */

{ /* ./Ast/dump.scm 251 */
obj_t BgL_bucketz00_3380;
{ /* ./Ast/dump.scm 251 */
int BgL_kz00_3390;
BgL_kz00_3390 = 
(int)(BgL_modz00_3376); 
BgL_bucketz00_3380 = 
VECTOR_REF(BgL_arg2017z00_3371,BgL_kz00_3390); } 
{ /* ./Ast/dump.scm 251 */
int BgL_kz00_3392;
BgL_kz00_3392 = 
(int)(BgL_restz00_3378); 
BgL_method2771z00_3368 = 
VECTOR_REF(BgL_bucketz00_3380,BgL_kz00_3392); } } } } } } } } } } 
BgL_arg4425z00_1708 = 
PROCEDURE_ENTRY(BgL_method2771z00_3368)(BgL_method2771z00_3368, 
(obj_t)(BgL_nodez00_3367), BEOA); } } } 
BgL_arg4380z00_1687 = 
MAKE_PAIR(BgL_arg4425z00_1708, BNIL); } 
BgL_arg4375z00_1685 = 
MAKE_PAIR(BgL_arg4379z00_1686, BgL_arg4380z00_1687); } 
BgL_arg4370z00_1681 = 
MAKE_PAIR(BgL_arg4374z00_1684, BgL_arg4375z00_1685); } } 
BgL_newtail2759z00_1679 = 
MAKE_PAIR(BgL_arg4370z00_1681, BNIL); } 
SET_CDR(BgL_tail2758z00_1676, BgL_newtail2759z00_1679); 
{ /* ./Ast/dump.scm 245 */
obj_t BgL_arg4366z00_1680;
BgL_arg4366z00_1680 = 
CDR(BgL_l2755z00_1675); 
{ 
obj_t BgL_tail2758z00_4248;obj_t BgL_l2755z00_4247;
BgL_l2755z00_4247 = BgL_arg4366z00_1680; 
BgL_tail2758z00_4248 = BgL_newtail2759z00_1679; 
BgL_tail2758z00_1676 = BgL_tail2758z00_4248; 
BgL_l2755z00_1675 = BgL_l2755z00_4247; 
goto BgL_map2756z00_1677;} } } } } } } } 
{ /* ./Ast/dump.scm 254 */
obj_t BgL_arg4441z00_1712;
{ /* ./Ast/dump.scm 254 */
BgL_nodez00_bglt BgL_arg4445z00_1714;
BgL_arg4445z00_1714 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1663))->BgL_bodyz00); 
{ /* ./Ast/dump.scm 254 */
obj_t BgL_method2771z00_3400;
{ /* ./Ast/dump.scm 254 */
BgL_objectz00_bglt BgL_objz00_3401;
BgL_objz00_3401 = 
(BgL_objectz00_bglt)(BgL_arg4445z00_1714); 
{ /* ./Ast/dump.scm 254 */
long BgL_objzd2classzd2numz00_3402;
BgL_objzd2classzd2numz00_3402 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3401); 
{ /* ./Ast/dump.scm 254 */
obj_t BgL_arg2017z00_3403;
{ /* ./Ast/dump.scm 254 */
int BgL_auxz00_4252;
BgL_auxz00_4252 = 
(int)(((long)1)); 
BgL_arg2017z00_3403 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4252); } 
{ /* ./Ast/dump.scm 254 */
int BgL_offsetz00_3406;
BgL_offsetz00_3406 = 
(int)(BgL_objzd2classzd2numz00_3402); 
{ /* ./Ast/dump.scm 254 */
long BgL_offsetz00_3407;
{ /* ./Ast/dump.scm 254 */
long BgL_auxz00_4256;
BgL_auxz00_4256 = 
(long)(BgL_offsetz00_3406); 
BgL_offsetz00_3407 = 
(BgL_auxz00_4256-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 254 */
long BgL_modz00_3408;
{ /* ./Ast/dump.scm 254 */
int BgL_arg2028z00_3409;
BgL_arg2028z00_3409 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 254 */
long BgL_n2z00_3417;
BgL_n2z00_3417 = 
(long)(BgL_arg2028z00_3409); 
BgL_modz00_3408 = 
(BgL_offsetz00_3407/BgL_n2z00_3417); } } 
{ /* ./Ast/dump.scm 254 */
long BgL_restz00_3410;
{ /* ./Ast/dump.scm 254 */
int BgL_arg2024z00_3411;
BgL_arg2024z00_3411 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 254 */
long BgL_n2z00_3420;
BgL_n2z00_3420 = 
(long)(BgL_arg2024z00_3411); 
BgL_restz00_3410 = 
(BgL_offsetz00_3407%BgL_n2z00_3420); } } 
{ /* ./Ast/dump.scm 254 */

{ /* ./Ast/dump.scm 254 */
obj_t BgL_bucketz00_3412;
{ /* ./Ast/dump.scm 254 */
int BgL_kz00_3422;
BgL_kz00_3422 = 
(int)(BgL_modz00_3408); 
BgL_bucketz00_3412 = 
VECTOR_REF(BgL_arg2017z00_3403,BgL_kz00_3422); } 
{ /* ./Ast/dump.scm 254 */
int BgL_kz00_3424;
BgL_kz00_3424 = 
(int)(BgL_restz00_3410); 
BgL_method2771z00_3400 = 
VECTOR_REF(BgL_bucketz00_3412,BgL_kz00_3424); } } } } } } } } } } 
BgL_arg4441z00_1712 = 
PROCEDURE_ENTRY(BgL_method2771z00_3400)(BgL_method2771z00_3400, 
(obj_t)(BgL_arg4445z00_1714), BEOA); } } 
BgL_arg4358z00_1671 = 
MAKE_PAIR(BgL_arg4441z00_1712, BNIL); } 
BgL_arg4353z00_1669 = 
MAKE_PAIR(BgL_arg4357z00_1670, BgL_arg4358z00_1671); } 
BgL_arg4348z00_1667 = 
MAKE_PAIR(BgL_arg4352z00_1668, BgL_arg4353z00_1669); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg4347z00_1666, BgL_arg4348z00_1667);} } } 
}



/* node->sexp-select2816 */
obj_t BGl_nodezd2ze3sexpzd2select2816ze3zzast_dumpz00(obj_t BgL_envz00_3782, obj_t BgL_nodez00_3783)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 233 */
{ 
BgL_selectz00_bglt BgL_nodez00_1632;
BgL_nodez00_1632 = 
(BgL_selectz00_bglt)(BgL_nodez00_3783); 
{ /* ./Ast/dump.scm 234 */
obj_t BgL_arg4289z00_1635;obj_t BgL_arg4290z00_1636;
{ /* ./Ast/dump.scm 234 */
BgL_nodez00_bglt BgL_obj1560z00_3273;
BgL_obj1560z00_3273 = 
(BgL_nodez00_bglt)(BgL_nodez00_1632); 
BgL_arg4289z00_1635 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3273))->BgL_locz00); } 
{ /* ./Ast/dump.scm 235 */
obj_t BgL_arg4294z00_1637;obj_t BgL_arg4295z00_1638;
BgL_arg4294z00_1637 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Ast/dump.scm 235 */
obj_t BgL_arg4298z00_1639;obj_t BgL_arg4299z00_1640;
{ /* ./Ast/dump.scm 235 */
BgL_nodez00_bglt BgL_arg4302z00_1641;
BgL_arg4302z00_1641 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1632))->BgL_testz00); 
{ /* ./Ast/dump.scm 235 */
obj_t BgL_method2771z00_3276;
{ /* ./Ast/dump.scm 235 */
BgL_objectz00_bglt BgL_objz00_3277;
BgL_objz00_3277 = 
(BgL_objectz00_bglt)(BgL_arg4302z00_1641); 
{ /* ./Ast/dump.scm 235 */
long BgL_objzd2classzd2numz00_3278;
BgL_objzd2classzd2numz00_3278 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3277); 
{ /* ./Ast/dump.scm 235 */
obj_t BgL_arg2017z00_3279;
{ /* ./Ast/dump.scm 235 */
int BgL_auxz00_4283;
BgL_auxz00_4283 = 
(int)(((long)1)); 
BgL_arg2017z00_3279 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4283); } 
{ /* ./Ast/dump.scm 235 */
int BgL_offsetz00_3282;
BgL_offsetz00_3282 = 
(int)(BgL_objzd2classzd2numz00_3278); 
{ /* ./Ast/dump.scm 235 */
long BgL_offsetz00_3283;
{ /* ./Ast/dump.scm 235 */
long BgL_auxz00_4287;
BgL_auxz00_4287 = 
(long)(BgL_offsetz00_3282); 
BgL_offsetz00_3283 = 
(BgL_auxz00_4287-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 235 */
long BgL_modz00_3284;
{ /* ./Ast/dump.scm 235 */
int BgL_arg2028z00_3285;
BgL_arg2028z00_3285 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 235 */
long BgL_n2z00_3293;
BgL_n2z00_3293 = 
(long)(BgL_arg2028z00_3285); 
BgL_modz00_3284 = 
(BgL_offsetz00_3283/BgL_n2z00_3293); } } 
{ /* ./Ast/dump.scm 235 */
long BgL_restz00_3286;
{ /* ./Ast/dump.scm 235 */
int BgL_arg2024z00_3287;
BgL_arg2024z00_3287 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 235 */
long BgL_n2z00_3296;
BgL_n2z00_3296 = 
(long)(BgL_arg2024z00_3287); 
BgL_restz00_3286 = 
(BgL_offsetz00_3283%BgL_n2z00_3296); } } 
{ /* ./Ast/dump.scm 235 */

{ /* ./Ast/dump.scm 235 */
obj_t BgL_bucketz00_3288;
{ /* ./Ast/dump.scm 235 */
int BgL_kz00_3298;
BgL_kz00_3298 = 
(int)(BgL_modz00_3284); 
BgL_bucketz00_3288 = 
VECTOR_REF(BgL_arg2017z00_3279,BgL_kz00_3298); } 
{ /* ./Ast/dump.scm 235 */
int BgL_kz00_3300;
BgL_kz00_3300 = 
(int)(BgL_restz00_3286); 
BgL_method2771z00_3276 = 
VECTOR_REF(BgL_bucketz00_3288,BgL_kz00_3300); } } } } } } } } } } 
BgL_arg4298z00_1639 = 
PROCEDURE_ENTRY(BgL_method2771z00_3276)(BgL_method2771z00_3276, 
(obj_t)(BgL_arg4302z00_1641), BEOA); } } 
{ /* ./Ast/dump.scm 236 */
obj_t BgL_arg4306z00_1642;
{ /* ./Ast/dump.scm 236 */
obj_t BgL_l2750z00_1644;
BgL_l2750z00_1644 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1632))->BgL_clausesz00); 
{ /* ./Ast/dump.scm 236 */
bool_t BgL_test4309z00_1645;
BgL_test4309z00_1645 = 
NULLP(BgL_l2750z00_1644); 
if(BgL_test4309z00_1645)
{ /* ./Ast/dump.scm 236 */
BgL_arg4306z00_1642 = BNIL; }  else 
{ /* ./Ast/dump.scm 236 */
obj_t BgL_head2752z00_1646;
BgL_head2752z00_1646 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2750z00_1647;obj_t BgL_tail2753z00_1648;
BgL_l2750z00_1647 = BgL_l2750z00_1644; 
BgL_tail2753z00_1648 = BgL_head2752z00_1646; 
BgL_map2751z00_1649:
{ /* ./Ast/dump.scm 236 */
bool_t BgL_test4311z00_1650;
BgL_test4311z00_1650 = 
NULLP(BgL_l2750z00_1647); 
if(BgL_test4311z00_1650)
{ /* ./Ast/dump.scm 236 */
BgL_arg4306z00_1642 = 
CDR(BgL_head2752z00_1646); }  else 
{ /* ./Ast/dump.scm 237 */
obj_t BgL_newtail2754z00_1651;
{ /* ./Ast/dump.scm 237 */
obj_t BgL_arg4319z00_1653;
{ /* ./Ast/dump.scm 237 */
obj_t BgL_clausez00_1655;
BgL_clausez00_1655 = 
CAR(BgL_l2750z00_1647); 
{ /* ./Ast/dump.scm 237 */
obj_t BgL_arg4323z00_1656;obj_t BgL_arg4324z00_1657;
BgL_arg4323z00_1656 = 
CAR(BgL_clausez00_1655); 
{ /* ./Ast/dump.scm 237 */
obj_t BgL_arg4328z00_1658;
{ /* ./Ast/dump.scm 237 */
obj_t BgL_arg4332z00_1660;
BgL_arg4332z00_1660 = 
CDR(BgL_clausez00_1655); 
{ /* ./Ast/dump.scm 237 */
BgL_nodez00_bglt BgL_nodez00_3310;
BgL_nodez00_3310 = 
(BgL_nodez00_bglt)(BgL_arg4332z00_1660); 
{ /* ./Ast/dump.scm 237 */
obj_t BgL_method2771z00_3311;
{ /* ./Ast/dump.scm 237 */
BgL_objectz00_bglt BgL_objz00_3312;
BgL_objz00_3312 = 
(BgL_objectz00_bglt)(BgL_nodez00_3310); 
{ /* ./Ast/dump.scm 237 */
long BgL_objzd2classzd2numz00_3313;
BgL_objzd2classzd2numz00_3313 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3312); 
{ /* ./Ast/dump.scm 237 */
obj_t BgL_arg2017z00_3314;
{ /* ./Ast/dump.scm 237 */
int BgL_auxz00_4316;
BgL_auxz00_4316 = 
(int)(((long)1)); 
BgL_arg2017z00_3314 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4316); } 
{ /* ./Ast/dump.scm 237 */
int BgL_offsetz00_3317;
BgL_offsetz00_3317 = 
(int)(BgL_objzd2classzd2numz00_3313); 
{ /* ./Ast/dump.scm 237 */
long BgL_offsetz00_3318;
{ /* ./Ast/dump.scm 237 */
long BgL_auxz00_4320;
BgL_auxz00_4320 = 
(long)(BgL_offsetz00_3317); 
BgL_offsetz00_3318 = 
(BgL_auxz00_4320-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 237 */
long BgL_modz00_3319;
{ /* ./Ast/dump.scm 237 */
int BgL_arg2028z00_3320;
BgL_arg2028z00_3320 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 237 */
long BgL_n2z00_3328;
BgL_n2z00_3328 = 
(long)(BgL_arg2028z00_3320); 
BgL_modz00_3319 = 
(BgL_offsetz00_3318/BgL_n2z00_3328); } } 
{ /* ./Ast/dump.scm 237 */
long BgL_restz00_3321;
{ /* ./Ast/dump.scm 237 */
int BgL_arg2024z00_3322;
BgL_arg2024z00_3322 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 237 */
long BgL_n2z00_3331;
BgL_n2z00_3331 = 
(long)(BgL_arg2024z00_3322); 
BgL_restz00_3321 = 
(BgL_offsetz00_3318%BgL_n2z00_3331); } } 
{ /* ./Ast/dump.scm 237 */

{ /* ./Ast/dump.scm 237 */
obj_t BgL_bucketz00_3323;
{ /* ./Ast/dump.scm 237 */
int BgL_kz00_3333;
BgL_kz00_3333 = 
(int)(BgL_modz00_3319); 
BgL_bucketz00_3323 = 
VECTOR_REF(BgL_arg2017z00_3314,BgL_kz00_3333); } 
{ /* ./Ast/dump.scm 237 */
int BgL_kz00_3335;
BgL_kz00_3335 = 
(int)(BgL_restz00_3321); 
BgL_method2771z00_3311 = 
VECTOR_REF(BgL_bucketz00_3323,BgL_kz00_3335); } } } } } } } } } } 
BgL_arg4328z00_1658 = 
PROCEDURE_ENTRY(BgL_method2771z00_3311)(BgL_method2771z00_3311, 
(obj_t)(BgL_nodez00_3310), BEOA); } } } 
BgL_arg4324z00_1657 = 
MAKE_PAIR(BgL_arg4328z00_1658, BNIL); } 
BgL_arg4319z00_1653 = 
MAKE_PAIR(BgL_arg4323z00_1656, BgL_arg4324z00_1657); } } 
BgL_newtail2754z00_1651 = 
MAKE_PAIR(BgL_arg4319z00_1653, BNIL); } 
SET_CDR(BgL_tail2753z00_1648, BgL_newtail2754z00_1651); 
{ /* ./Ast/dump.scm 236 */
obj_t BgL_arg4315z00_1652;
BgL_arg4315z00_1652 = 
CDR(BgL_l2750z00_1647); 
{ 
obj_t BgL_tail2753z00_4342;obj_t BgL_l2750z00_4341;
BgL_l2750z00_4341 = BgL_arg4315z00_1652; 
BgL_tail2753z00_4342 = BgL_newtail2754z00_1651; 
BgL_tail2753z00_1648 = BgL_tail2753z00_4342; 
BgL_l2750z00_1647 = BgL_l2750z00_4341; 
goto BgL_map2751z00_1649;} } } } } } } } 
BgL_arg4299z00_1640 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4306z00_1642, BNIL); } 
BgL_arg4295z00_1638 = 
MAKE_PAIR(BgL_arg4298z00_1639, BgL_arg4299z00_1640); } 
BgL_arg4290z00_1636 = 
MAKE_PAIR(BgL_arg4294z00_1637, BgL_arg4295z00_1638); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg4289z00_1635, BgL_arg4290z00_1636);} } } 
}



/* node->sexp-fail2814 */
obj_t BGl_nodezd2ze3sexpzd2fail2814ze3zzast_dumpz00(obj_t BgL_envz00_3784, obj_t BgL_nodez00_3785)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 224 */
{ 
BgL_failz00_bglt BgL_nodez00_1614;
BgL_nodez00_1614 = 
(BgL_failz00_bglt)(BgL_nodez00_3785); 
{ /* ./Ast/dump.scm 225 */
obj_t BgL_arg4250z00_1617;obj_t BgL_arg4251z00_1618;
{ /* ./Ast/dump.scm 225 */
BgL_nodez00_bglt BgL_obj1560z00_3191;
BgL_obj1560z00_3191 = 
(BgL_nodez00_bglt)(BgL_nodez00_1614); 
BgL_arg4250z00_1617 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3191))->BgL_locz00); } 
{ /* ./Ast/dump.scm 226 */
obj_t BgL_arg4255z00_1619;obj_t BgL_arg4256z00_1620;
BgL_arg4255z00_1619 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Ast/dump.scm 226 */
obj_t BgL_arg4259z00_1621;obj_t BgL_arg4260z00_1622;
{ /* ./Ast/dump.scm 226 */
BgL_nodez00_bglt BgL_arg4263z00_1623;
BgL_arg4263z00_1623 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1614))->BgL_procz00); 
{ /* ./Ast/dump.scm 226 */
obj_t BgL_method2771z00_3194;
{ /* ./Ast/dump.scm 226 */
BgL_objectz00_bglt BgL_objz00_3195;
BgL_objz00_3195 = 
(BgL_objectz00_bglt)(BgL_arg4263z00_1623); 
{ /* ./Ast/dump.scm 226 */
long BgL_objzd2classzd2numz00_3196;
BgL_objzd2classzd2numz00_3196 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3195); 
{ /* ./Ast/dump.scm 226 */
obj_t BgL_arg2017z00_3197;
{ /* ./Ast/dump.scm 226 */
int BgL_auxz00_4354;
BgL_auxz00_4354 = 
(int)(((long)1)); 
BgL_arg2017z00_3197 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4354); } 
{ /* ./Ast/dump.scm 226 */
int BgL_offsetz00_3200;
BgL_offsetz00_3200 = 
(int)(BgL_objzd2classzd2numz00_3196); 
{ /* ./Ast/dump.scm 226 */
long BgL_offsetz00_3201;
{ /* ./Ast/dump.scm 226 */
long BgL_auxz00_4358;
BgL_auxz00_4358 = 
(long)(BgL_offsetz00_3200); 
BgL_offsetz00_3201 = 
(BgL_auxz00_4358-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 226 */
long BgL_modz00_3202;
{ /* ./Ast/dump.scm 226 */
int BgL_arg2028z00_3203;
BgL_arg2028z00_3203 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 226 */
long BgL_n2z00_3211;
BgL_n2z00_3211 = 
(long)(BgL_arg2028z00_3203); 
BgL_modz00_3202 = 
(BgL_offsetz00_3201/BgL_n2z00_3211); } } 
{ /* ./Ast/dump.scm 226 */
long BgL_restz00_3204;
{ /* ./Ast/dump.scm 226 */
int BgL_arg2024z00_3205;
BgL_arg2024z00_3205 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 226 */
long BgL_n2z00_3214;
BgL_n2z00_3214 = 
(long)(BgL_arg2024z00_3205); 
BgL_restz00_3204 = 
(BgL_offsetz00_3201%BgL_n2z00_3214); } } 
{ /* ./Ast/dump.scm 226 */

{ /* ./Ast/dump.scm 226 */
obj_t BgL_bucketz00_3206;
{ /* ./Ast/dump.scm 226 */
int BgL_kz00_3216;
BgL_kz00_3216 = 
(int)(BgL_modz00_3202); 
BgL_bucketz00_3206 = 
VECTOR_REF(BgL_arg2017z00_3197,BgL_kz00_3216); } 
{ /* ./Ast/dump.scm 226 */
int BgL_kz00_3218;
BgL_kz00_3218 = 
(int)(BgL_restz00_3204); 
BgL_method2771z00_3194 = 
VECTOR_REF(BgL_bucketz00_3206,BgL_kz00_3218); } } } } } } } } } } 
BgL_arg4259z00_1621 = 
PROCEDURE_ENTRY(BgL_method2771z00_3194)(BgL_method2771z00_3194, 
(obj_t)(BgL_arg4263z00_1623), BEOA); } } 
{ /* ./Ast/dump.scm 227 */
obj_t BgL_arg4267z00_1624;obj_t BgL_arg4268z00_1625;
{ /* ./Ast/dump.scm 227 */
BgL_nodez00_bglt BgL_arg4271z00_1626;
BgL_arg4271z00_1626 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1614))->BgL_msgz00); 
{ /* ./Ast/dump.scm 227 */
obj_t BgL_method2771z00_3221;
{ /* ./Ast/dump.scm 227 */
BgL_objectz00_bglt BgL_objz00_3222;
BgL_objz00_3222 = 
(BgL_objectz00_bglt)(BgL_arg4271z00_1626); 
{ /* ./Ast/dump.scm 227 */
long BgL_objzd2classzd2numz00_3223;
BgL_objzd2classzd2numz00_3223 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3222); 
{ /* ./Ast/dump.scm 227 */
obj_t BgL_arg2017z00_3224;
{ /* ./Ast/dump.scm 227 */
int BgL_auxz00_4377;
BgL_auxz00_4377 = 
(int)(((long)1)); 
BgL_arg2017z00_3224 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4377); } 
{ /* ./Ast/dump.scm 227 */
int BgL_offsetz00_3227;
BgL_offsetz00_3227 = 
(int)(BgL_objzd2classzd2numz00_3223); 
{ /* ./Ast/dump.scm 227 */
long BgL_offsetz00_3228;
{ /* ./Ast/dump.scm 227 */
long BgL_auxz00_4381;
BgL_auxz00_4381 = 
(long)(BgL_offsetz00_3227); 
BgL_offsetz00_3228 = 
(BgL_auxz00_4381-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 227 */
long BgL_modz00_3229;
{ /* ./Ast/dump.scm 227 */
int BgL_arg2028z00_3230;
BgL_arg2028z00_3230 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 227 */
long BgL_n2z00_3238;
BgL_n2z00_3238 = 
(long)(BgL_arg2028z00_3230); 
BgL_modz00_3229 = 
(BgL_offsetz00_3228/BgL_n2z00_3238); } } 
{ /* ./Ast/dump.scm 227 */
long BgL_restz00_3231;
{ /* ./Ast/dump.scm 227 */
int BgL_arg2024z00_3232;
BgL_arg2024z00_3232 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 227 */
long BgL_n2z00_3241;
BgL_n2z00_3241 = 
(long)(BgL_arg2024z00_3232); 
BgL_restz00_3231 = 
(BgL_offsetz00_3228%BgL_n2z00_3241); } } 
{ /* ./Ast/dump.scm 227 */

{ /* ./Ast/dump.scm 227 */
obj_t BgL_bucketz00_3233;
{ /* ./Ast/dump.scm 227 */
int BgL_kz00_3243;
BgL_kz00_3243 = 
(int)(BgL_modz00_3229); 
BgL_bucketz00_3233 = 
VECTOR_REF(BgL_arg2017z00_3224,BgL_kz00_3243); } 
{ /* ./Ast/dump.scm 227 */
int BgL_kz00_3245;
BgL_kz00_3245 = 
(int)(BgL_restz00_3231); 
BgL_method2771z00_3221 = 
VECTOR_REF(BgL_bucketz00_3233,BgL_kz00_3245); } } } } } } } } } } 
BgL_arg4267z00_1624 = 
PROCEDURE_ENTRY(BgL_method2771z00_3221)(BgL_method2771z00_3221, 
(obj_t)(BgL_arg4271z00_1626), BEOA); } } 
{ /* ./Ast/dump.scm 228 */
obj_t BgL_arg4275z00_1627;
{ /* ./Ast/dump.scm 228 */
BgL_nodez00_bglt BgL_arg4279z00_1629;
BgL_arg4279z00_1629 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1614))->BgL_objz00); 
{ /* ./Ast/dump.scm 228 */
obj_t BgL_method2771z00_3248;
{ /* ./Ast/dump.scm 228 */
BgL_objectz00_bglt BgL_objz00_3249;
BgL_objz00_3249 = 
(BgL_objectz00_bglt)(BgL_arg4279z00_1629); 
{ /* ./Ast/dump.scm 228 */
long BgL_objzd2classzd2numz00_3250;
BgL_objzd2classzd2numz00_3250 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3249); 
{ /* ./Ast/dump.scm 228 */
obj_t BgL_arg2017z00_3251;
{ /* ./Ast/dump.scm 228 */
int BgL_auxz00_4400;
BgL_auxz00_4400 = 
(int)(((long)1)); 
BgL_arg2017z00_3251 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4400); } 
{ /* ./Ast/dump.scm 228 */
int BgL_offsetz00_3254;
BgL_offsetz00_3254 = 
(int)(BgL_objzd2classzd2numz00_3250); 
{ /* ./Ast/dump.scm 228 */
long BgL_offsetz00_3255;
{ /* ./Ast/dump.scm 228 */
long BgL_auxz00_4404;
BgL_auxz00_4404 = 
(long)(BgL_offsetz00_3254); 
BgL_offsetz00_3255 = 
(BgL_auxz00_4404-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 228 */
long BgL_modz00_3256;
{ /* ./Ast/dump.scm 228 */
int BgL_arg2028z00_3257;
BgL_arg2028z00_3257 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 228 */
long BgL_n2z00_3265;
BgL_n2z00_3265 = 
(long)(BgL_arg2028z00_3257); 
BgL_modz00_3256 = 
(BgL_offsetz00_3255/BgL_n2z00_3265); } } 
{ /* ./Ast/dump.scm 228 */
long BgL_restz00_3258;
{ /* ./Ast/dump.scm 228 */
int BgL_arg2024z00_3259;
BgL_arg2024z00_3259 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 228 */
long BgL_n2z00_3268;
BgL_n2z00_3268 = 
(long)(BgL_arg2024z00_3259); 
BgL_restz00_3258 = 
(BgL_offsetz00_3255%BgL_n2z00_3268); } } 
{ /* ./Ast/dump.scm 228 */

{ /* ./Ast/dump.scm 228 */
obj_t BgL_bucketz00_3260;
{ /* ./Ast/dump.scm 228 */
int BgL_kz00_3270;
BgL_kz00_3270 = 
(int)(BgL_modz00_3256); 
BgL_bucketz00_3260 = 
VECTOR_REF(BgL_arg2017z00_3251,BgL_kz00_3270); } 
{ /* ./Ast/dump.scm 228 */
int BgL_kz00_3272;
BgL_kz00_3272 = 
(int)(BgL_restz00_3258); 
BgL_method2771z00_3248 = 
VECTOR_REF(BgL_bucketz00_3260,BgL_kz00_3272); } } } } } } } } } } 
BgL_arg4275z00_1627 = 
PROCEDURE_ENTRY(BgL_method2771z00_3248)(BgL_method2771z00_3248, 
(obj_t)(BgL_arg4279z00_1629), BEOA); } } 
BgL_arg4268z00_1625 = 
MAKE_PAIR(BgL_arg4275z00_1627, BNIL); } 
BgL_arg4260z00_1622 = 
MAKE_PAIR(BgL_arg4267z00_1624, BgL_arg4268z00_1625); } 
BgL_arg4256z00_1620 = 
MAKE_PAIR(BgL_arg4259z00_1621, BgL_arg4260z00_1622); } 
BgL_arg4251z00_1618 = 
MAKE_PAIR(BgL_arg4255z00_1619, BgL_arg4256z00_1620); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg4250z00_1617, BgL_arg4251z00_1618);} } } 
}



/* node->sexp-conditional2812 */
obj_t BGl_nodezd2ze3sexpzd2conditional2812ze3zzast_dumpz00(obj_t BgL_envz00_3786, obj_t BgL_nodez00_3787)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 215 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1596;
BgL_nodez00_1596 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_3787); 
{ /* ./Ast/dump.scm 216 */
obj_t BgL_arg4211z00_1599;obj_t BgL_arg4212z00_1600;
{ /* ./Ast/dump.scm 216 */
BgL_nodez00_bglt BgL_obj1560z00_3109;
BgL_obj1560z00_3109 = 
(BgL_nodez00_bglt)(BgL_nodez00_1596); 
BgL_arg4211z00_1599 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3109))->BgL_locz00); } 
{ /* ./Ast/dump.scm 217 */
obj_t BgL_arg4216z00_1601;obj_t BgL_arg4217z00_1602;
BgL_arg4216z00_1601 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Ast/dump.scm 217 */
obj_t BgL_arg4220z00_1603;obj_t BgL_arg4221z00_1604;
{ /* ./Ast/dump.scm 217 */
BgL_nodez00_bglt BgL_arg4224z00_1605;
BgL_arg4224z00_1605 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1596))->BgL_testz00); 
{ /* ./Ast/dump.scm 217 */
obj_t BgL_method2771z00_3112;
{ /* ./Ast/dump.scm 217 */
BgL_objectz00_bglt BgL_objz00_3113;
BgL_objz00_3113 = 
(BgL_objectz00_bglt)(BgL_arg4224z00_1605); 
{ /* ./Ast/dump.scm 217 */
long BgL_objzd2classzd2numz00_3114;
BgL_objzd2classzd2numz00_3114 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3113); 
{ /* ./Ast/dump.scm 217 */
obj_t BgL_arg2017z00_3115;
{ /* ./Ast/dump.scm 217 */
int BgL_auxz00_4432;
BgL_auxz00_4432 = 
(int)(((long)1)); 
BgL_arg2017z00_3115 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4432); } 
{ /* ./Ast/dump.scm 217 */
int BgL_offsetz00_3118;
BgL_offsetz00_3118 = 
(int)(BgL_objzd2classzd2numz00_3114); 
{ /* ./Ast/dump.scm 217 */
long BgL_offsetz00_3119;
{ /* ./Ast/dump.scm 217 */
long BgL_auxz00_4436;
BgL_auxz00_4436 = 
(long)(BgL_offsetz00_3118); 
BgL_offsetz00_3119 = 
(BgL_auxz00_4436-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 217 */
long BgL_modz00_3120;
{ /* ./Ast/dump.scm 217 */
int BgL_arg2028z00_3121;
BgL_arg2028z00_3121 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 217 */
long BgL_n2z00_3129;
BgL_n2z00_3129 = 
(long)(BgL_arg2028z00_3121); 
BgL_modz00_3120 = 
(BgL_offsetz00_3119/BgL_n2z00_3129); } } 
{ /* ./Ast/dump.scm 217 */
long BgL_restz00_3122;
{ /* ./Ast/dump.scm 217 */
int BgL_arg2024z00_3123;
BgL_arg2024z00_3123 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 217 */
long BgL_n2z00_3132;
BgL_n2z00_3132 = 
(long)(BgL_arg2024z00_3123); 
BgL_restz00_3122 = 
(BgL_offsetz00_3119%BgL_n2z00_3132); } } 
{ /* ./Ast/dump.scm 217 */

{ /* ./Ast/dump.scm 217 */
obj_t BgL_bucketz00_3124;
{ /* ./Ast/dump.scm 217 */
int BgL_kz00_3134;
BgL_kz00_3134 = 
(int)(BgL_modz00_3120); 
BgL_bucketz00_3124 = 
VECTOR_REF(BgL_arg2017z00_3115,BgL_kz00_3134); } 
{ /* ./Ast/dump.scm 217 */
int BgL_kz00_3136;
BgL_kz00_3136 = 
(int)(BgL_restz00_3122); 
BgL_method2771z00_3112 = 
VECTOR_REF(BgL_bucketz00_3124,BgL_kz00_3136); } } } } } } } } } } 
BgL_arg4220z00_1603 = 
PROCEDURE_ENTRY(BgL_method2771z00_3112)(BgL_method2771z00_3112, 
(obj_t)(BgL_arg4224z00_1605), BEOA); } } 
{ /* ./Ast/dump.scm 218 */
obj_t BgL_arg4228z00_1606;obj_t BgL_arg4229z00_1607;
{ /* ./Ast/dump.scm 218 */
BgL_nodez00_bglt BgL_arg4232z00_1608;
BgL_arg4232z00_1608 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1596))->BgL_truez00); 
{ /* ./Ast/dump.scm 218 */
obj_t BgL_method2771z00_3139;
{ /* ./Ast/dump.scm 218 */
BgL_objectz00_bglt BgL_objz00_3140;
BgL_objz00_3140 = 
(BgL_objectz00_bglt)(BgL_arg4232z00_1608); 
{ /* ./Ast/dump.scm 218 */
long BgL_objzd2classzd2numz00_3141;
BgL_objzd2classzd2numz00_3141 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3140); 
{ /* ./Ast/dump.scm 218 */
obj_t BgL_arg2017z00_3142;
{ /* ./Ast/dump.scm 218 */
int BgL_auxz00_4455;
BgL_auxz00_4455 = 
(int)(((long)1)); 
BgL_arg2017z00_3142 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4455); } 
{ /* ./Ast/dump.scm 218 */
int BgL_offsetz00_3145;
BgL_offsetz00_3145 = 
(int)(BgL_objzd2classzd2numz00_3141); 
{ /* ./Ast/dump.scm 218 */
long BgL_offsetz00_3146;
{ /* ./Ast/dump.scm 218 */
long BgL_auxz00_4459;
BgL_auxz00_4459 = 
(long)(BgL_offsetz00_3145); 
BgL_offsetz00_3146 = 
(BgL_auxz00_4459-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 218 */
long BgL_modz00_3147;
{ /* ./Ast/dump.scm 218 */
int BgL_arg2028z00_3148;
BgL_arg2028z00_3148 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 218 */
long BgL_n2z00_3156;
BgL_n2z00_3156 = 
(long)(BgL_arg2028z00_3148); 
BgL_modz00_3147 = 
(BgL_offsetz00_3146/BgL_n2z00_3156); } } 
{ /* ./Ast/dump.scm 218 */
long BgL_restz00_3149;
{ /* ./Ast/dump.scm 218 */
int BgL_arg2024z00_3150;
BgL_arg2024z00_3150 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 218 */
long BgL_n2z00_3159;
BgL_n2z00_3159 = 
(long)(BgL_arg2024z00_3150); 
BgL_restz00_3149 = 
(BgL_offsetz00_3146%BgL_n2z00_3159); } } 
{ /* ./Ast/dump.scm 218 */

{ /* ./Ast/dump.scm 218 */
obj_t BgL_bucketz00_3151;
{ /* ./Ast/dump.scm 218 */
int BgL_kz00_3161;
BgL_kz00_3161 = 
(int)(BgL_modz00_3147); 
BgL_bucketz00_3151 = 
VECTOR_REF(BgL_arg2017z00_3142,BgL_kz00_3161); } 
{ /* ./Ast/dump.scm 218 */
int BgL_kz00_3163;
BgL_kz00_3163 = 
(int)(BgL_restz00_3149); 
BgL_method2771z00_3139 = 
VECTOR_REF(BgL_bucketz00_3151,BgL_kz00_3163); } } } } } } } } } } 
BgL_arg4228z00_1606 = 
PROCEDURE_ENTRY(BgL_method2771z00_3139)(BgL_method2771z00_3139, 
(obj_t)(BgL_arg4232z00_1608), BEOA); } } 
{ /* ./Ast/dump.scm 219 */
obj_t BgL_arg4236z00_1609;
{ /* ./Ast/dump.scm 219 */
BgL_nodez00_bglt BgL_arg4240z00_1611;
BgL_arg4240z00_1611 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1596))->BgL_falsez00); 
{ /* ./Ast/dump.scm 219 */
obj_t BgL_method2771z00_3166;
{ /* ./Ast/dump.scm 219 */
BgL_objectz00_bglt BgL_objz00_3167;
BgL_objz00_3167 = 
(BgL_objectz00_bglt)(BgL_arg4240z00_1611); 
{ /* ./Ast/dump.scm 219 */
long BgL_objzd2classzd2numz00_3168;
BgL_objzd2classzd2numz00_3168 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3167); 
{ /* ./Ast/dump.scm 219 */
obj_t BgL_arg2017z00_3169;
{ /* ./Ast/dump.scm 219 */
int BgL_auxz00_4478;
BgL_auxz00_4478 = 
(int)(((long)1)); 
BgL_arg2017z00_3169 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4478); } 
{ /* ./Ast/dump.scm 219 */
int BgL_offsetz00_3172;
BgL_offsetz00_3172 = 
(int)(BgL_objzd2classzd2numz00_3168); 
{ /* ./Ast/dump.scm 219 */
long BgL_offsetz00_3173;
{ /* ./Ast/dump.scm 219 */
long BgL_auxz00_4482;
BgL_auxz00_4482 = 
(long)(BgL_offsetz00_3172); 
BgL_offsetz00_3173 = 
(BgL_auxz00_4482-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 219 */
long BgL_modz00_3174;
{ /* ./Ast/dump.scm 219 */
int BgL_arg2028z00_3175;
BgL_arg2028z00_3175 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 219 */
long BgL_n2z00_3183;
BgL_n2z00_3183 = 
(long)(BgL_arg2028z00_3175); 
BgL_modz00_3174 = 
(BgL_offsetz00_3173/BgL_n2z00_3183); } } 
{ /* ./Ast/dump.scm 219 */
long BgL_restz00_3176;
{ /* ./Ast/dump.scm 219 */
int BgL_arg2024z00_3177;
BgL_arg2024z00_3177 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 219 */
long BgL_n2z00_3186;
BgL_n2z00_3186 = 
(long)(BgL_arg2024z00_3177); 
BgL_restz00_3176 = 
(BgL_offsetz00_3173%BgL_n2z00_3186); } } 
{ /* ./Ast/dump.scm 219 */

{ /* ./Ast/dump.scm 219 */
obj_t BgL_bucketz00_3178;
{ /* ./Ast/dump.scm 219 */
int BgL_kz00_3188;
BgL_kz00_3188 = 
(int)(BgL_modz00_3174); 
BgL_bucketz00_3178 = 
VECTOR_REF(BgL_arg2017z00_3169,BgL_kz00_3188); } 
{ /* ./Ast/dump.scm 219 */
int BgL_kz00_3190;
BgL_kz00_3190 = 
(int)(BgL_restz00_3176); 
BgL_method2771z00_3166 = 
VECTOR_REF(BgL_bucketz00_3178,BgL_kz00_3190); } } } } } } } } } } 
BgL_arg4236z00_1609 = 
PROCEDURE_ENTRY(BgL_method2771z00_3166)(BgL_method2771z00_3166, 
(obj_t)(BgL_arg4240z00_1611), BEOA); } } 
BgL_arg4229z00_1607 = 
MAKE_PAIR(BgL_arg4236z00_1609, BNIL); } 
BgL_arg4221z00_1604 = 
MAKE_PAIR(BgL_arg4228z00_1606, BgL_arg4229z00_1607); } 
BgL_arg4217z00_1602 = 
MAKE_PAIR(BgL_arg4220z00_1603, BgL_arg4221z00_1604); } 
BgL_arg4212z00_1600 = 
MAKE_PAIR(BgL_arg4216z00_1601, BgL_arg4217z00_1602); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg4211z00_1599, BgL_arg4212z00_1600);} } } 
}



/* node->sexp-setq2810 */
obj_t BGl_nodezd2ze3sexpzd2setq2810ze3zzast_dumpz00(obj_t BgL_envz00_3788, obj_t BgL_nodez00_3789)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 207 */
{ 
BgL_setqz00_bglt BgL_nodez00_1581;
BgL_nodez00_1581 = 
(BgL_setqz00_bglt)(BgL_nodez00_3789); 
{ /* ./Ast/dump.scm 208 */
obj_t BgL_arg4180z00_1584;obj_t BgL_arg4181z00_1585;
{ /* ./Ast/dump.scm 208 */
BgL_nodez00_bglt BgL_obj1560z00_3054;
BgL_obj1560z00_3054 = 
(BgL_nodez00_bglt)(BgL_nodez00_1581); 
BgL_arg4180z00_1584 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3054))->BgL_locz00); } 
{ /* ./Ast/dump.scm 209 */
obj_t BgL_arg4185z00_1586;obj_t BgL_arg4186z00_1587;
BgL_arg4185z00_1586 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Ast/dump.scm 209 */
obj_t BgL_arg4189z00_1588;obj_t BgL_arg4190z00_1589;
{ /* ./Ast/dump.scm 209 */
BgL_varz00_bglt BgL_arg4193z00_1590;
BgL_arg4193z00_1590 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1581))->BgL_varz00); 
{ /* ./Ast/dump.scm 209 */
BgL_nodez00_bglt BgL_nodez00_3056;
BgL_nodez00_3056 = 
(BgL_nodez00_bglt)(BgL_arg4193z00_1590); 
{ /* ./Ast/dump.scm 209 */
obj_t BgL_method2771z00_3057;
{ /* ./Ast/dump.scm 209 */
BgL_objectz00_bglt BgL_objz00_3058;
BgL_objz00_3058 = 
(BgL_objectz00_bglt)(BgL_nodez00_3056); 
{ /* ./Ast/dump.scm 209 */
long BgL_objzd2classzd2numz00_3059;
BgL_objzd2classzd2numz00_3059 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3058); 
{ /* ./Ast/dump.scm 209 */
obj_t BgL_arg2017z00_3060;
{ /* ./Ast/dump.scm 209 */
int BgL_auxz00_4511;
BgL_auxz00_4511 = 
(int)(((long)1)); 
BgL_arg2017z00_3060 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4511); } 
{ /* ./Ast/dump.scm 209 */
int BgL_offsetz00_3063;
BgL_offsetz00_3063 = 
(int)(BgL_objzd2classzd2numz00_3059); 
{ /* ./Ast/dump.scm 209 */
long BgL_offsetz00_3064;
{ /* ./Ast/dump.scm 209 */
long BgL_auxz00_4515;
BgL_auxz00_4515 = 
(long)(BgL_offsetz00_3063); 
BgL_offsetz00_3064 = 
(BgL_auxz00_4515-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 209 */
long BgL_modz00_3065;
{ /* ./Ast/dump.scm 209 */
int BgL_arg2028z00_3066;
BgL_arg2028z00_3066 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 209 */
long BgL_n2z00_3074;
BgL_n2z00_3074 = 
(long)(BgL_arg2028z00_3066); 
BgL_modz00_3065 = 
(BgL_offsetz00_3064/BgL_n2z00_3074); } } 
{ /* ./Ast/dump.scm 209 */
long BgL_restz00_3067;
{ /* ./Ast/dump.scm 209 */
int BgL_arg2024z00_3068;
BgL_arg2024z00_3068 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 209 */
long BgL_n2z00_3077;
BgL_n2z00_3077 = 
(long)(BgL_arg2024z00_3068); 
BgL_restz00_3067 = 
(BgL_offsetz00_3064%BgL_n2z00_3077); } } 
{ /* ./Ast/dump.scm 209 */

{ /* ./Ast/dump.scm 209 */
obj_t BgL_bucketz00_3069;
{ /* ./Ast/dump.scm 209 */
int BgL_kz00_3079;
BgL_kz00_3079 = 
(int)(BgL_modz00_3065); 
BgL_bucketz00_3069 = 
VECTOR_REF(BgL_arg2017z00_3060,BgL_kz00_3079); } 
{ /* ./Ast/dump.scm 209 */
int BgL_kz00_3081;
BgL_kz00_3081 = 
(int)(BgL_restz00_3067); 
BgL_method2771z00_3057 = 
VECTOR_REF(BgL_bucketz00_3069,BgL_kz00_3081); } } } } } } } } } } 
BgL_arg4189z00_1588 = 
PROCEDURE_ENTRY(BgL_method2771z00_3057)(BgL_method2771z00_3057, 
(obj_t)(BgL_nodez00_3056), BEOA); } } } 
{ /* ./Ast/dump.scm 210 */
obj_t BgL_arg4197z00_1591;
{ /* ./Ast/dump.scm 210 */
BgL_nodez00_bglt BgL_arg4201z00_1593;
BgL_arg4201z00_1593 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1581))->BgL_valuez00); 
{ /* ./Ast/dump.scm 210 */
obj_t BgL_method2771z00_3084;
{ /* ./Ast/dump.scm 210 */
BgL_objectz00_bglt BgL_objz00_3085;
BgL_objz00_3085 = 
(BgL_objectz00_bglt)(BgL_arg4201z00_1593); 
{ /* ./Ast/dump.scm 210 */
long BgL_objzd2classzd2numz00_3086;
BgL_objzd2classzd2numz00_3086 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3085); 
{ /* ./Ast/dump.scm 210 */
obj_t BgL_arg2017z00_3087;
{ /* ./Ast/dump.scm 210 */
int BgL_auxz00_4534;
BgL_auxz00_4534 = 
(int)(((long)1)); 
BgL_arg2017z00_3087 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4534); } 
{ /* ./Ast/dump.scm 210 */
int BgL_offsetz00_3090;
BgL_offsetz00_3090 = 
(int)(BgL_objzd2classzd2numz00_3086); 
{ /* ./Ast/dump.scm 210 */
long BgL_offsetz00_3091;
{ /* ./Ast/dump.scm 210 */
long BgL_auxz00_4538;
BgL_auxz00_4538 = 
(long)(BgL_offsetz00_3090); 
BgL_offsetz00_3091 = 
(BgL_auxz00_4538-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 210 */
long BgL_modz00_3092;
{ /* ./Ast/dump.scm 210 */
int BgL_arg2028z00_3093;
BgL_arg2028z00_3093 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 210 */
long BgL_n2z00_3101;
BgL_n2z00_3101 = 
(long)(BgL_arg2028z00_3093); 
BgL_modz00_3092 = 
(BgL_offsetz00_3091/BgL_n2z00_3101); } } 
{ /* ./Ast/dump.scm 210 */
long BgL_restz00_3094;
{ /* ./Ast/dump.scm 210 */
int BgL_arg2024z00_3095;
BgL_arg2024z00_3095 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 210 */
long BgL_n2z00_3104;
BgL_n2z00_3104 = 
(long)(BgL_arg2024z00_3095); 
BgL_restz00_3094 = 
(BgL_offsetz00_3091%BgL_n2z00_3104); } } 
{ /* ./Ast/dump.scm 210 */

{ /* ./Ast/dump.scm 210 */
obj_t BgL_bucketz00_3096;
{ /* ./Ast/dump.scm 210 */
int BgL_kz00_3106;
BgL_kz00_3106 = 
(int)(BgL_modz00_3092); 
BgL_bucketz00_3096 = 
VECTOR_REF(BgL_arg2017z00_3087,BgL_kz00_3106); } 
{ /* ./Ast/dump.scm 210 */
int BgL_kz00_3108;
BgL_kz00_3108 = 
(int)(BgL_restz00_3094); 
BgL_method2771z00_3084 = 
VECTOR_REF(BgL_bucketz00_3096,BgL_kz00_3108); } } } } } } } } } } 
BgL_arg4197z00_1591 = 
PROCEDURE_ENTRY(BgL_method2771z00_3084)(BgL_method2771z00_3084, 
(obj_t)(BgL_arg4201z00_1593), BEOA); } } 
BgL_arg4190z00_1589 = 
MAKE_PAIR(BgL_arg4197z00_1591, BNIL); } 
BgL_arg4186z00_1587 = 
MAKE_PAIR(BgL_arg4189z00_1588, BgL_arg4190z00_1589); } 
BgL_arg4181z00_1585 = 
MAKE_PAIR(BgL_arg4185z00_1586, BgL_arg4186z00_1587); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg4180z00_1584, BgL_arg4181z00_1585);} } } 
}



/* node->sexp-cast2808 */
obj_t BGl_nodezd2ze3sexpzd2cast2808ze3zzast_dumpz00(obj_t BgL_envz00_3790, obj_t BgL_nodez00_3791)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 200 */
{ 
BgL_castz00_bglt BgL_nodez00_1567;
BgL_nodez00_1567 = 
(BgL_castz00_bglt)(BgL_nodez00_3791); 
{ /* ./Ast/dump.scm 202 */
obj_t BgL_arg4154z00_1571;obj_t BgL_arg4155z00_1572;
{ /* ./Ast/dump.scm 202 */
obj_t BgL_arg4158z00_1573;obj_t BgL_arg4159z00_1574;
BgL_arg4158z00_1573 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Ast/dump.scm 202 */
BgL_typez00_bglt BgL_arg4162z00_1575;
{ /* ./Ast/dump.scm 202 */
BgL_nodez00_bglt BgL_obj1561z00_3025;
BgL_obj1561z00_3025 = 
(BgL_nodez00_bglt)(BgL_nodez00_1567); 
BgL_arg4162z00_1575 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_3025))->BgL_typez00); } 
BgL_arg4159z00_1574 = 
(((BgL_typez00_bglt)CREF(BgL_arg4162z00_1575))->BgL_idz00); } 
BgL_arg4154z00_1571 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg4158z00_1573, BgL_arg4159z00_1574); } 
{ /* ./Ast/dump.scm 202 */
obj_t BgL_arg4166z00_1576;
{ /* ./Ast/dump.scm 202 */
BgL_nodez00_bglt BgL_arg4170z00_1578;
BgL_arg4170z00_1578 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1567))->BgL_argz00); 
{ /* ./Ast/dump.scm 202 */
obj_t BgL_method2771z00_3029;
{ /* ./Ast/dump.scm 202 */
BgL_objectz00_bglt BgL_objz00_3030;
BgL_objz00_3030 = 
(BgL_objectz00_bglt)(BgL_arg4170z00_1578); 
{ /* ./Ast/dump.scm 202 */
long BgL_objzd2classzd2numz00_3031;
BgL_objzd2classzd2numz00_3031 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3030); 
{ /* ./Ast/dump.scm 202 */
obj_t BgL_arg2017z00_3032;
{ /* ./Ast/dump.scm 202 */
int BgL_auxz00_4567;
BgL_auxz00_4567 = 
(int)(((long)1)); 
BgL_arg2017z00_3032 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4567); } 
{ /* ./Ast/dump.scm 202 */
int BgL_offsetz00_3035;
BgL_offsetz00_3035 = 
(int)(BgL_objzd2classzd2numz00_3031); 
{ /* ./Ast/dump.scm 202 */
long BgL_offsetz00_3036;
{ /* ./Ast/dump.scm 202 */
long BgL_auxz00_4571;
BgL_auxz00_4571 = 
(long)(BgL_offsetz00_3035); 
BgL_offsetz00_3036 = 
(BgL_auxz00_4571-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 202 */
long BgL_modz00_3037;
{ /* ./Ast/dump.scm 202 */
int BgL_arg2028z00_3038;
BgL_arg2028z00_3038 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 202 */
long BgL_n2z00_3046;
BgL_n2z00_3046 = 
(long)(BgL_arg2028z00_3038); 
BgL_modz00_3037 = 
(BgL_offsetz00_3036/BgL_n2z00_3046); } } 
{ /* ./Ast/dump.scm 202 */
long BgL_restz00_3039;
{ /* ./Ast/dump.scm 202 */
int BgL_arg2024z00_3040;
BgL_arg2024z00_3040 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 202 */
long BgL_n2z00_3049;
BgL_n2z00_3049 = 
(long)(BgL_arg2024z00_3040); 
BgL_restz00_3039 = 
(BgL_offsetz00_3036%BgL_n2z00_3049); } } 
{ /* ./Ast/dump.scm 202 */

{ /* ./Ast/dump.scm 202 */
obj_t BgL_bucketz00_3041;
{ /* ./Ast/dump.scm 202 */
int BgL_kz00_3051;
BgL_kz00_3051 = 
(int)(BgL_modz00_3037); 
BgL_bucketz00_3041 = 
VECTOR_REF(BgL_arg2017z00_3032,BgL_kz00_3051); } 
{ /* ./Ast/dump.scm 202 */
int BgL_kz00_3053;
BgL_kz00_3053 = 
(int)(BgL_restz00_3039); 
BgL_method2771z00_3029 = 
VECTOR_REF(BgL_bucketz00_3041,BgL_kz00_3053); } } } } } } } } } } 
BgL_arg4166z00_1576 = 
PROCEDURE_ENTRY(BgL_method2771z00_3029)(BgL_method2771z00_3029, 
(obj_t)(BgL_arg4170z00_1578), BEOA); } } 
BgL_arg4155z00_1572 = 
MAKE_PAIR(BgL_arg4166z00_1576, BNIL); } 
return 
MAKE_PAIR(BgL_arg4154z00_1571, BgL_arg4155z00_1572);} } } 
}



/* node->sexp-isa2806 */
obj_t BGl_nodezd2ze3sexpzd2isa2806ze3zzast_dumpz00(obj_t BgL_envz00_3792, obj_t BgL_nodez00_3793)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 193 */
{ 
BgL_isaz00_bglt BgL_nodez00_1552;
BgL_nodez00_1552 = 
(BgL_isaz00_bglt)(BgL_nodez00_3793); 
{ /* ./Ast/dump.scm 195 */
obj_t BgL_arg4125z00_1556;obj_t BgL_arg4126z00_1557;
BgL_arg4125z00_1556 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Ast/dump.scm 195 */
obj_t BgL_arg4129z00_1558;obj_t BgL_arg4130z00_1559;
{ /* ./Ast/dump.scm 195 */
BgL_typez00_bglt BgL_arg4133z00_1560;
BgL_arg4133z00_1560 = 
(((BgL_isaz00_bglt)CREF(BgL_nodez00_1552))->BgL_classz00); 
BgL_arg4129z00_1558 = 
(((BgL_typez00_bglt)CREF(BgL_arg4133z00_1560))->BgL_idz00); } 
{ /* ./Ast/dump.scm 195 */
obj_t BgL_arg4137z00_1561;
{ /* ./Ast/dump.scm 195 */
obj_t BgL_arg4141z00_1563;
{ /* ./Ast/dump.scm 195 */
obj_t BgL_auxz00_4593;
{ /* ./Ast/dump.scm 195 */
BgL_externz00_bglt BgL_obj1817z00_2997;
BgL_obj1817z00_2997 = 
(BgL_externz00_bglt)(BgL_nodez00_1552); 
BgL_auxz00_4593 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2997))->BgL_exprza2za2); } 
BgL_arg4141z00_1563 = 
CAR(BgL_auxz00_4593); } 
{ /* ./Ast/dump.scm 195 */
BgL_nodez00_bglt BgL_nodez00_2999;
BgL_nodez00_2999 = 
(BgL_nodez00_bglt)(BgL_arg4141z00_1563); 
{ /* ./Ast/dump.scm 195 */
obj_t BgL_method2771z00_3000;
{ /* ./Ast/dump.scm 195 */
BgL_objectz00_bglt BgL_objz00_3001;
BgL_objz00_3001 = 
(BgL_objectz00_bglt)(BgL_nodez00_2999); 
{ /* ./Ast/dump.scm 195 */
long BgL_objzd2classzd2numz00_3002;
BgL_objzd2classzd2numz00_3002 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3001); 
{ /* ./Ast/dump.scm 195 */
obj_t BgL_arg2017z00_3003;
{ /* ./Ast/dump.scm 195 */
int BgL_auxz00_4600;
BgL_auxz00_4600 = 
(int)(((long)1)); 
BgL_arg2017z00_3003 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4600); } 
{ /* ./Ast/dump.scm 195 */
int BgL_offsetz00_3006;
BgL_offsetz00_3006 = 
(int)(BgL_objzd2classzd2numz00_3002); 
{ /* ./Ast/dump.scm 195 */
long BgL_offsetz00_3007;
{ /* ./Ast/dump.scm 195 */
long BgL_auxz00_4604;
BgL_auxz00_4604 = 
(long)(BgL_offsetz00_3006); 
BgL_offsetz00_3007 = 
(BgL_auxz00_4604-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 195 */
long BgL_modz00_3008;
{ /* ./Ast/dump.scm 195 */
int BgL_arg2028z00_3009;
BgL_arg2028z00_3009 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 195 */
long BgL_n2z00_3017;
BgL_n2z00_3017 = 
(long)(BgL_arg2028z00_3009); 
BgL_modz00_3008 = 
(BgL_offsetz00_3007/BgL_n2z00_3017); } } 
{ /* ./Ast/dump.scm 195 */
long BgL_restz00_3010;
{ /* ./Ast/dump.scm 195 */
int BgL_arg2024z00_3011;
BgL_arg2024z00_3011 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 195 */
long BgL_n2z00_3020;
BgL_n2z00_3020 = 
(long)(BgL_arg2024z00_3011); 
BgL_restz00_3010 = 
(BgL_offsetz00_3007%BgL_n2z00_3020); } } 
{ /* ./Ast/dump.scm 195 */

{ /* ./Ast/dump.scm 195 */
obj_t BgL_bucketz00_3012;
{ /* ./Ast/dump.scm 195 */
int BgL_kz00_3022;
BgL_kz00_3022 = 
(int)(BgL_modz00_3008); 
BgL_bucketz00_3012 = 
VECTOR_REF(BgL_arg2017z00_3003,BgL_kz00_3022); } 
{ /* ./Ast/dump.scm 195 */
int BgL_kz00_3024;
BgL_kz00_3024 = 
(int)(BgL_restz00_3010); 
BgL_method2771z00_3000 = 
VECTOR_REF(BgL_bucketz00_3012,BgL_kz00_3024); } } } } } } } } } } 
BgL_arg4137z00_1561 = 
PROCEDURE_ENTRY(BgL_method2771z00_3000)(BgL_method2771z00_3000, 
(obj_t)(BgL_nodez00_2999), BEOA); } } } 
BgL_arg4130z00_1559 = 
MAKE_PAIR(BgL_arg4137z00_1561, BNIL); } 
BgL_arg4126z00_1557 = 
MAKE_PAIR(BgL_arg4129z00_1558, BgL_arg4130z00_1559); } 
return 
MAKE_PAIR(BgL_arg4125z00_1556, BgL_arg4126z00_1557);} } } 
}



/* node->sexp-valloc2804 */
obj_t BGl_nodezd2ze3sexpzd2valloc2804ze3zzast_dumpz00(obj_t BgL_envz00_3794, obj_t BgL_nodez00_3795)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 186 */
{ 
BgL_vallocz00_bglt BgL_nodez00_1526;
BgL_nodez00_1526 = 
(BgL_vallocz00_bglt)(BgL_nodez00_3795); 
{ /* ./Ast/dump.scm 188 */
obj_t BgL_arg4081z00_1530;obj_t BgL_arg4082z00_1531;
BgL_arg4081z00_1530 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Ast/dump.scm 188 */
obj_t BgL_arg4085z00_1532;
{ /* ./Ast/dump.scm 188 */
obj_t BgL_l2741z00_1534;
{ /* ./Ast/dump.scm 188 */
BgL_externz00_bglt BgL_obj1817z00_2930;
BgL_obj1817z00_2930 = 
(BgL_externz00_bglt)(BgL_nodez00_1526); 
BgL_l2741z00_1534 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2930))->BgL_exprza2za2); } 
{ /* ./Ast/dump.scm 188 */
bool_t BgL_test4088z00_1535;
BgL_test4088z00_1535 = 
NULLP(BgL_l2741z00_1534); 
if(BgL_test4088z00_1535)
{ /* ./Ast/dump.scm 188 */
BgL_arg4085z00_1532 = BNIL; }  else 
{ /* ./Ast/dump.scm 188 */
obj_t BgL_head2743z00_1536;
{ /* ./Ast/dump.scm 188 */
obj_t BgL_arg4109z00_1547;
{ /* ./Ast/dump.scm 188 */
obj_t BgL_arg4113z00_1549;
BgL_arg4113z00_1549 = 
CAR(BgL_l2741z00_1534); 
{ /* ./Ast/dump.scm 188 */
BgL_nodez00_bglt BgL_nodez00_2933;
BgL_nodez00_2933 = 
(BgL_nodez00_bglt)(BgL_arg4113z00_1549); 
{ /* ./Ast/dump.scm 188 */
obj_t BgL_method2771z00_2934;
{ /* ./Ast/dump.scm 188 */
BgL_objectz00_bglt BgL_objz00_2935;
BgL_objz00_2935 = 
(BgL_objectz00_bglt)(BgL_nodez00_2933); 
{ /* ./Ast/dump.scm 188 */
long BgL_objzd2classzd2numz00_2936;
BgL_objzd2classzd2numz00_2936 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2935); 
{ /* ./Ast/dump.scm 188 */
obj_t BgL_arg2017z00_2937;
{ /* ./Ast/dump.scm 188 */
int BgL_auxz00_4633;
BgL_auxz00_4633 = 
(int)(((long)1)); 
BgL_arg2017z00_2937 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4633); } 
{ /* ./Ast/dump.scm 188 */
int BgL_offsetz00_2940;
BgL_offsetz00_2940 = 
(int)(BgL_objzd2classzd2numz00_2936); 
{ /* ./Ast/dump.scm 188 */
long BgL_offsetz00_2941;
{ /* ./Ast/dump.scm 188 */
long BgL_auxz00_4637;
BgL_auxz00_4637 = 
(long)(BgL_offsetz00_2940); 
BgL_offsetz00_2941 = 
(BgL_auxz00_4637-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 188 */
long BgL_modz00_2942;
{ /* ./Ast/dump.scm 188 */
int BgL_arg2028z00_2943;
BgL_arg2028z00_2943 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 188 */
long BgL_n2z00_2951;
BgL_n2z00_2951 = 
(long)(BgL_arg2028z00_2943); 
BgL_modz00_2942 = 
(BgL_offsetz00_2941/BgL_n2z00_2951); } } 
{ /* ./Ast/dump.scm 188 */
long BgL_restz00_2944;
{ /* ./Ast/dump.scm 188 */
int BgL_arg2024z00_2945;
BgL_arg2024z00_2945 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 188 */
long BgL_n2z00_2954;
BgL_n2z00_2954 = 
(long)(BgL_arg2024z00_2945); 
BgL_restz00_2944 = 
(BgL_offsetz00_2941%BgL_n2z00_2954); } } 
{ /* ./Ast/dump.scm 188 */

{ /* ./Ast/dump.scm 188 */
obj_t BgL_bucketz00_2946;
{ /* ./Ast/dump.scm 188 */
int BgL_kz00_2956;
BgL_kz00_2956 = 
(int)(BgL_modz00_2942); 
BgL_bucketz00_2946 = 
VECTOR_REF(BgL_arg2017z00_2937,BgL_kz00_2956); } 
{ /* ./Ast/dump.scm 188 */
int BgL_kz00_2958;
BgL_kz00_2958 = 
(int)(BgL_restz00_2944); 
BgL_method2771z00_2934 = 
VECTOR_REF(BgL_bucketz00_2946,BgL_kz00_2958); } } } } } } } } } } 
BgL_arg4109z00_1547 = 
PROCEDURE_ENTRY(BgL_method2771z00_2934)(BgL_method2771z00_2934, 
(obj_t)(BgL_nodez00_2933), BEOA); } } } 
BgL_head2743z00_1536 = 
MAKE_PAIR(BgL_arg4109z00_1547, BNIL); } 
{ 
obj_t BgL_l2741z00_1537;obj_t BgL_tail2744z00_1538;
{ /* ./Ast/dump.scm 188 */
obj_t BgL_arg4090z00_1540;
BgL_arg4090z00_1540 = 
CDR(BgL_l2741z00_1534); 
BgL_l2741z00_1537 = BgL_arg4090z00_1540; 
BgL_tail2744z00_1538 = BgL_head2743z00_1536; 
BgL_map2742z00_1539:
{ /* ./Ast/dump.scm 188 */
bool_t BgL_test4093z00_1541;
BgL_test4093z00_1541 = 
NULLP(BgL_l2741z00_1537); 
if(BgL_test4093z00_1541)
{ /* ./Ast/dump.scm 188 */
BgL_arg4085z00_1532 = BgL_head2743z00_1536; }  else 
{ /* ./Ast/dump.scm 188 */
obj_t BgL_newtail2745z00_1542;
{ /* ./Ast/dump.scm 188 */
obj_t BgL_arg4100z00_1544;
{ /* ./Ast/dump.scm 188 */
obj_t BgL_arg4104z00_1546;
BgL_arg4104z00_1546 = 
CAR(BgL_l2741z00_1537); 
{ /* ./Ast/dump.scm 188 */
BgL_nodez00_bglt BgL_nodez00_2964;
BgL_nodez00_2964 = 
(BgL_nodez00_bglt)(BgL_arg4104z00_1546); 
{ /* ./Ast/dump.scm 188 */
obj_t BgL_method2771z00_2965;
{ /* ./Ast/dump.scm 188 */
BgL_objectz00_bglt BgL_objz00_2966;
BgL_objz00_2966 = 
(BgL_objectz00_bglt)(BgL_nodez00_2964); 
{ /* ./Ast/dump.scm 188 */
long BgL_objzd2classzd2numz00_2967;
BgL_objzd2classzd2numz00_2967 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2966); 
{ /* ./Ast/dump.scm 188 */
obj_t BgL_arg2017z00_2968;
{ /* ./Ast/dump.scm 188 */
int BgL_auxz00_4661;
BgL_auxz00_4661 = 
(int)(((long)1)); 
BgL_arg2017z00_2968 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4661); } 
{ /* ./Ast/dump.scm 188 */
int BgL_offsetz00_2971;
BgL_offsetz00_2971 = 
(int)(BgL_objzd2classzd2numz00_2967); 
{ /* ./Ast/dump.scm 188 */
long BgL_offsetz00_2972;
{ /* ./Ast/dump.scm 188 */
long BgL_auxz00_4665;
BgL_auxz00_4665 = 
(long)(BgL_offsetz00_2971); 
BgL_offsetz00_2972 = 
(BgL_auxz00_4665-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 188 */
long BgL_modz00_2973;
{ /* ./Ast/dump.scm 188 */
int BgL_arg2028z00_2974;
BgL_arg2028z00_2974 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 188 */
long BgL_n2z00_2982;
BgL_n2z00_2982 = 
(long)(BgL_arg2028z00_2974); 
BgL_modz00_2973 = 
(BgL_offsetz00_2972/BgL_n2z00_2982); } } 
{ /* ./Ast/dump.scm 188 */
long BgL_restz00_2975;
{ /* ./Ast/dump.scm 188 */
int BgL_arg2024z00_2976;
BgL_arg2024z00_2976 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 188 */
long BgL_n2z00_2985;
BgL_n2z00_2985 = 
(long)(BgL_arg2024z00_2976); 
BgL_restz00_2975 = 
(BgL_offsetz00_2972%BgL_n2z00_2985); } } 
{ /* ./Ast/dump.scm 188 */

{ /* ./Ast/dump.scm 188 */
obj_t BgL_bucketz00_2977;
{ /* ./Ast/dump.scm 188 */
int BgL_kz00_2987;
BgL_kz00_2987 = 
(int)(BgL_modz00_2973); 
BgL_bucketz00_2977 = 
VECTOR_REF(BgL_arg2017z00_2968,BgL_kz00_2987); } 
{ /* ./Ast/dump.scm 188 */
int BgL_kz00_2989;
BgL_kz00_2989 = 
(int)(BgL_restz00_2975); 
BgL_method2771z00_2965 = 
VECTOR_REF(BgL_bucketz00_2977,BgL_kz00_2989); } } } } } } } } } } 
BgL_arg4100z00_1544 = 
PROCEDURE_ENTRY(BgL_method2771z00_2965)(BgL_method2771z00_2965, 
(obj_t)(BgL_nodez00_2964), BEOA); } } } 
BgL_newtail2745z00_1542 = 
MAKE_PAIR(BgL_arg4100z00_1544, BNIL); } 
SET_CDR(BgL_tail2744z00_1538, BgL_newtail2745z00_1542); 
{ /* ./Ast/dump.scm 188 */
obj_t BgL_arg4096z00_1543;
BgL_arg4096z00_1543 = 
CDR(BgL_l2741z00_1537); 
{ 
obj_t BgL_tail2744z00_4685;obj_t BgL_l2741z00_4684;
BgL_l2741z00_4684 = BgL_arg4096z00_1543; 
BgL_tail2744z00_4685 = BgL_newtail2745z00_1542; 
BgL_tail2744z00_1538 = BgL_tail2744z00_4685; 
BgL_l2741z00_1537 = BgL_l2741z00_4684; 
goto BgL_map2742z00_1539;} } } } } } } } } 
BgL_arg4082z00_1531 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4085z00_1532, BNIL); } 
return 
MAKE_PAIR(BgL_arg4081z00_1530, BgL_arg4082z00_1531);} } } 
}



/* node->sexp-vset!2801 */
obj_t BGl_nodezd2ze3sexpzd2vsetz122801zf1zzast_dumpz00(obj_t BgL_envz00_3796, obj_t BgL_nodez00_3797)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 176 */
{ 
BgL_vsetz12z12_bglt BgL_nodez00_1471;
BgL_nodez00_1471 = 
(BgL_vsetz12z12_bglt)(BgL_nodez00_3797); 
if(
CBOOL(BGl_za2typezd2shapezf3za2z21zzengine_paramz00))
{ /* ./Ast/dump.scm 180 */
obj_t BgL_arg3978z00_1475;obj_t BgL_arg3979z00_1476;
BgL_arg3978z00_1475 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Ast/dump.scm 179 */
obj_t BgL_arg3982z00_1477;obj_t BgL_arg3983z00_1478;
{ /* ./Ast/dump.scm 179 */
obj_t BgL_v2728z00_1479;
{ 
int BgL_auxz00_4692;
BgL_auxz00_4692 = 
(int)(((long)2)); 
BgL_v2728z00_1479 = 
create_vector(BgL_auxz00_4692); } 
{ /* ./Ast/dump.scm 179 */
obj_t BgL_arg3987z00_1481;
{ /* ./Ast/dump.scm 179 */
BgL_typez00_bglt BgL_arg3990z00_1482;
BgL_arg3990z00_1482 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_nodez00_1471))->BgL_ftypez00); 
BgL_arg3987z00_1481 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg3990z00_1482)); } 
{ /* ./Ast/dump.scm 179 */
int BgL_kz00_2795;
BgL_kz00_2795 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v2728z00_1479,BgL_kz00_2795,BgL_arg3987z00_1481); } } 
{ /* ./Ast/dump.scm 179 */
obj_t BgL_arg3995z00_1484;
{ /* ./Ast/dump.scm 179 */
BgL_typez00_bglt BgL_arg3998z00_1485;
BgL_arg3998z00_1485 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_nodez00_1471)); 
BgL_arg3995z00_1484 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg3998z00_1485)); } 
{ /* ./Ast/dump.scm 179 */
int BgL_kz00_2798;
BgL_kz00_2798 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v2728z00_1479,BgL_kz00_2798,BgL_arg3995z00_1484); } } 
BgL_arg3982z00_1477 = BgL_v2728z00_1479; } 
{ /* ./Ast/dump.scm 180 */
obj_t BgL_arg4003z00_1486;
{ /* ./Ast/dump.scm 180 */
obj_t BgL_l2729z00_1488;
{ /* ./Ast/dump.scm 180 */
BgL_externz00_bglt BgL_obj1817z00_2800;
BgL_obj1817z00_2800 = 
(BgL_externz00_bglt)(BgL_nodez00_1471); 
BgL_l2729z00_1488 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2800))->BgL_exprza2za2); } 
{ /* ./Ast/dump.scm 180 */
bool_t BgL_test4006z00_1489;
BgL_test4006z00_1489 = 
NULLP(BgL_l2729z00_1488); 
if(BgL_test4006z00_1489)
{ /* ./Ast/dump.scm 180 */
BgL_arg4003z00_1486 = BNIL; }  else 
{ /* ./Ast/dump.scm 180 */
obj_t BgL_head2731z00_1490;
{ /* ./Ast/dump.scm 180 */
obj_t BgL_arg4027z00_1501;
{ /* ./Ast/dump.scm 180 */
obj_t BgL_arg4031z00_1503;
BgL_arg4031z00_1503 = 
CAR(BgL_l2729z00_1488); 
{ /* ./Ast/dump.scm 180 */
BgL_nodez00_bglt BgL_nodez00_2803;
BgL_nodez00_2803 = 
(BgL_nodez00_bglt)(BgL_arg4031z00_1503); 
{ /* ./Ast/dump.scm 180 */
obj_t BgL_method2771z00_2804;
{ /* ./Ast/dump.scm 180 */
BgL_objectz00_bglt BgL_objz00_2805;
BgL_objz00_2805 = 
(BgL_objectz00_bglt)(BgL_nodez00_2803); 
{ /* ./Ast/dump.scm 180 */
long BgL_objzd2classzd2numz00_2806;
BgL_objzd2classzd2numz00_2806 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2805); 
{ /* ./Ast/dump.scm 180 */
obj_t BgL_arg2017z00_2807;
{ /* ./Ast/dump.scm 180 */
int BgL_auxz00_4714;
BgL_auxz00_4714 = 
(int)(((long)1)); 
BgL_arg2017z00_2807 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4714); } 
{ /* ./Ast/dump.scm 180 */
int BgL_offsetz00_2810;
BgL_offsetz00_2810 = 
(int)(BgL_objzd2classzd2numz00_2806); 
{ /* ./Ast/dump.scm 180 */
long BgL_offsetz00_2811;
{ /* ./Ast/dump.scm 180 */
long BgL_auxz00_4718;
BgL_auxz00_4718 = 
(long)(BgL_offsetz00_2810); 
BgL_offsetz00_2811 = 
(BgL_auxz00_4718-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 180 */
long BgL_modz00_2812;
{ /* ./Ast/dump.scm 180 */
int BgL_arg2028z00_2813;
BgL_arg2028z00_2813 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 180 */
long BgL_n2z00_2821;
BgL_n2z00_2821 = 
(long)(BgL_arg2028z00_2813); 
BgL_modz00_2812 = 
(BgL_offsetz00_2811/BgL_n2z00_2821); } } 
{ /* ./Ast/dump.scm 180 */
long BgL_restz00_2814;
{ /* ./Ast/dump.scm 180 */
int BgL_arg2024z00_2815;
BgL_arg2024z00_2815 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 180 */
long BgL_n2z00_2824;
BgL_n2z00_2824 = 
(long)(BgL_arg2024z00_2815); 
BgL_restz00_2814 = 
(BgL_offsetz00_2811%BgL_n2z00_2824); } } 
{ /* ./Ast/dump.scm 180 */

{ /* ./Ast/dump.scm 180 */
obj_t BgL_bucketz00_2816;
{ /* ./Ast/dump.scm 180 */
int BgL_kz00_2826;
BgL_kz00_2826 = 
(int)(BgL_modz00_2812); 
BgL_bucketz00_2816 = 
VECTOR_REF(BgL_arg2017z00_2807,BgL_kz00_2826); } 
{ /* ./Ast/dump.scm 180 */
int BgL_kz00_2828;
BgL_kz00_2828 = 
(int)(BgL_restz00_2814); 
BgL_method2771z00_2804 = 
VECTOR_REF(BgL_bucketz00_2816,BgL_kz00_2828); } } } } } } } } } } 
BgL_arg4027z00_1501 = 
PROCEDURE_ENTRY(BgL_method2771z00_2804)(BgL_method2771z00_2804, 
(obj_t)(BgL_nodez00_2803), BEOA); } } } 
BgL_head2731z00_1490 = 
MAKE_PAIR(BgL_arg4027z00_1501, BNIL); } 
{ 
obj_t BgL_l2729z00_1491;obj_t BgL_tail2732z00_1492;
{ /* ./Ast/dump.scm 180 */
obj_t BgL_arg4008z00_1494;
BgL_arg4008z00_1494 = 
CDR(BgL_l2729z00_1488); 
BgL_l2729z00_1491 = BgL_arg4008z00_1494; 
BgL_tail2732z00_1492 = BgL_head2731z00_1490; 
BgL_map2730z00_1493:
{ /* ./Ast/dump.scm 180 */
bool_t BgL_test4011z00_1495;
BgL_test4011z00_1495 = 
NULLP(BgL_l2729z00_1491); 
if(BgL_test4011z00_1495)
{ /* ./Ast/dump.scm 180 */
BgL_arg4003z00_1486 = BgL_head2731z00_1490; }  else 
{ /* ./Ast/dump.scm 180 */
obj_t BgL_newtail2733z00_1496;
{ /* ./Ast/dump.scm 180 */
obj_t BgL_arg4018z00_1498;
{ /* ./Ast/dump.scm 180 */
obj_t BgL_arg4022z00_1500;
BgL_arg4022z00_1500 = 
CAR(BgL_l2729z00_1491); 
{ /* ./Ast/dump.scm 180 */
BgL_nodez00_bglt BgL_nodez00_2834;
BgL_nodez00_2834 = 
(BgL_nodez00_bglt)(BgL_arg4022z00_1500); 
{ /* ./Ast/dump.scm 180 */
obj_t BgL_method2771z00_2835;
{ /* ./Ast/dump.scm 180 */
BgL_objectz00_bglt BgL_objz00_2836;
BgL_objz00_2836 = 
(BgL_objectz00_bglt)(BgL_nodez00_2834); 
{ /* ./Ast/dump.scm 180 */
long BgL_objzd2classzd2numz00_2837;
BgL_objzd2classzd2numz00_2837 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2836); 
{ /* ./Ast/dump.scm 180 */
obj_t BgL_arg2017z00_2838;
{ /* ./Ast/dump.scm 180 */
int BgL_auxz00_4742;
BgL_auxz00_4742 = 
(int)(((long)1)); 
BgL_arg2017z00_2838 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4742); } 
{ /* ./Ast/dump.scm 180 */
int BgL_offsetz00_2841;
BgL_offsetz00_2841 = 
(int)(BgL_objzd2classzd2numz00_2837); 
{ /* ./Ast/dump.scm 180 */
long BgL_offsetz00_2842;
{ /* ./Ast/dump.scm 180 */
long BgL_auxz00_4746;
BgL_auxz00_4746 = 
(long)(BgL_offsetz00_2841); 
BgL_offsetz00_2842 = 
(BgL_auxz00_4746-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 180 */
long BgL_modz00_2843;
{ /* ./Ast/dump.scm 180 */
int BgL_arg2028z00_2844;
BgL_arg2028z00_2844 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 180 */
long BgL_n2z00_2852;
BgL_n2z00_2852 = 
(long)(BgL_arg2028z00_2844); 
BgL_modz00_2843 = 
(BgL_offsetz00_2842/BgL_n2z00_2852); } } 
{ /* ./Ast/dump.scm 180 */
long BgL_restz00_2845;
{ /* ./Ast/dump.scm 180 */
int BgL_arg2024z00_2846;
BgL_arg2024z00_2846 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 180 */
long BgL_n2z00_2855;
BgL_n2z00_2855 = 
(long)(BgL_arg2024z00_2846); 
BgL_restz00_2845 = 
(BgL_offsetz00_2842%BgL_n2z00_2855); } } 
{ /* ./Ast/dump.scm 180 */

{ /* ./Ast/dump.scm 180 */
obj_t BgL_bucketz00_2847;
{ /* ./Ast/dump.scm 180 */
int BgL_kz00_2857;
BgL_kz00_2857 = 
(int)(BgL_modz00_2843); 
BgL_bucketz00_2847 = 
VECTOR_REF(BgL_arg2017z00_2838,BgL_kz00_2857); } 
{ /* ./Ast/dump.scm 180 */
int BgL_kz00_2859;
BgL_kz00_2859 = 
(int)(BgL_restz00_2845); 
BgL_method2771z00_2835 = 
VECTOR_REF(BgL_bucketz00_2847,BgL_kz00_2859); } } } } } } } } } } 
BgL_arg4018z00_1498 = 
PROCEDURE_ENTRY(BgL_method2771z00_2835)(BgL_method2771z00_2835, 
(obj_t)(BgL_nodez00_2834), BEOA); } } } 
BgL_newtail2733z00_1496 = 
MAKE_PAIR(BgL_arg4018z00_1498, BNIL); } 
SET_CDR(BgL_tail2732z00_1492, BgL_newtail2733z00_1496); 
{ /* ./Ast/dump.scm 180 */
obj_t BgL_arg4014z00_1497;
BgL_arg4014z00_1497 = 
CDR(BgL_l2729z00_1491); 
{ 
obj_t BgL_tail2732z00_4766;obj_t BgL_l2729z00_4765;
BgL_l2729z00_4765 = BgL_arg4014z00_1497; 
BgL_tail2732z00_4766 = BgL_newtail2733z00_1496; 
BgL_tail2732z00_1492 = BgL_tail2732z00_4766; 
BgL_l2729z00_1491 = BgL_l2729z00_4765; 
goto BgL_map2730z00_1493;} } } } } } } } } 
BgL_arg3983z00_1478 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4003z00_1486, BNIL); } 
BgL_arg3979z00_1476 = 
MAKE_PAIR(BgL_arg3982z00_1477, BgL_arg3983z00_1478); } 
return 
MAKE_PAIR(BgL_arg3978z00_1475, BgL_arg3979z00_1476);}  else 
{ /* ./Ast/dump.scm 181 */
obj_t BgL_arg4037z00_1504;obj_t BgL_arg4038z00_1505;
BgL_arg4037z00_1504 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Ast/dump.scm 181 */
obj_t BgL_arg4041z00_1506;
{ /* ./Ast/dump.scm 181 */
obj_t BgL_l2734z00_1508;
{ /* ./Ast/dump.scm 181 */
BgL_externz00_bglt BgL_obj1817z00_2865;
BgL_obj1817z00_2865 = 
(BgL_externz00_bglt)(BgL_nodez00_1471); 
BgL_l2734z00_1508 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2865))->BgL_exprza2za2); } 
{ /* ./Ast/dump.scm 181 */
bool_t BgL_test4044z00_1509;
BgL_test4044z00_1509 = 
NULLP(BgL_l2734z00_1508); 
if(BgL_test4044z00_1509)
{ /* ./Ast/dump.scm 181 */
BgL_arg4041z00_1506 = BNIL; }  else 
{ /* ./Ast/dump.scm 181 */
obj_t BgL_head2736z00_1510;
{ /* ./Ast/dump.scm 181 */
obj_t BgL_arg4065z00_1521;
{ /* ./Ast/dump.scm 181 */
obj_t BgL_arg4069z00_1523;
BgL_arg4069z00_1523 = 
CAR(BgL_l2734z00_1508); 
{ /* ./Ast/dump.scm 181 */
BgL_nodez00_bglt BgL_nodez00_2868;
BgL_nodez00_2868 = 
(BgL_nodez00_bglt)(BgL_arg4069z00_1523); 
{ /* ./Ast/dump.scm 181 */
obj_t BgL_method2771z00_2869;
{ /* ./Ast/dump.scm 181 */
BgL_objectz00_bglt BgL_objz00_2870;
BgL_objz00_2870 = 
(BgL_objectz00_bglt)(BgL_nodez00_2868); 
{ /* ./Ast/dump.scm 181 */
long BgL_objzd2classzd2numz00_2871;
BgL_objzd2classzd2numz00_2871 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2870); 
{ /* ./Ast/dump.scm 181 */
obj_t BgL_arg2017z00_2872;
{ /* ./Ast/dump.scm 181 */
int BgL_auxz00_4779;
BgL_auxz00_4779 = 
(int)(((long)1)); 
BgL_arg2017z00_2872 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4779); } 
{ /* ./Ast/dump.scm 181 */
int BgL_offsetz00_2875;
BgL_offsetz00_2875 = 
(int)(BgL_objzd2classzd2numz00_2871); 
{ /* ./Ast/dump.scm 181 */
long BgL_offsetz00_2876;
{ /* ./Ast/dump.scm 181 */
long BgL_auxz00_4783;
BgL_auxz00_4783 = 
(long)(BgL_offsetz00_2875); 
BgL_offsetz00_2876 = 
(BgL_auxz00_4783-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 181 */
long BgL_modz00_2877;
{ /* ./Ast/dump.scm 181 */
int BgL_arg2028z00_2878;
BgL_arg2028z00_2878 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 181 */
long BgL_n2z00_2886;
BgL_n2z00_2886 = 
(long)(BgL_arg2028z00_2878); 
BgL_modz00_2877 = 
(BgL_offsetz00_2876/BgL_n2z00_2886); } } 
{ /* ./Ast/dump.scm 181 */
long BgL_restz00_2879;
{ /* ./Ast/dump.scm 181 */
int BgL_arg2024z00_2880;
BgL_arg2024z00_2880 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 181 */
long BgL_n2z00_2889;
BgL_n2z00_2889 = 
(long)(BgL_arg2024z00_2880); 
BgL_restz00_2879 = 
(BgL_offsetz00_2876%BgL_n2z00_2889); } } 
{ /* ./Ast/dump.scm 181 */

{ /* ./Ast/dump.scm 181 */
obj_t BgL_bucketz00_2881;
{ /* ./Ast/dump.scm 181 */
int BgL_kz00_2891;
BgL_kz00_2891 = 
(int)(BgL_modz00_2877); 
BgL_bucketz00_2881 = 
VECTOR_REF(BgL_arg2017z00_2872,BgL_kz00_2891); } 
{ /* ./Ast/dump.scm 181 */
int BgL_kz00_2893;
BgL_kz00_2893 = 
(int)(BgL_restz00_2879); 
BgL_method2771z00_2869 = 
VECTOR_REF(BgL_bucketz00_2881,BgL_kz00_2893); } } } } } } } } } } 
BgL_arg4065z00_1521 = 
PROCEDURE_ENTRY(BgL_method2771z00_2869)(BgL_method2771z00_2869, 
(obj_t)(BgL_nodez00_2868), BEOA); } } } 
BgL_head2736z00_1510 = 
MAKE_PAIR(BgL_arg4065z00_1521, BNIL); } 
{ 
obj_t BgL_l2734z00_1511;obj_t BgL_tail2737z00_1512;
{ /* ./Ast/dump.scm 181 */
obj_t BgL_arg4046z00_1514;
BgL_arg4046z00_1514 = 
CDR(BgL_l2734z00_1508); 
BgL_l2734z00_1511 = BgL_arg4046z00_1514; 
BgL_tail2737z00_1512 = BgL_head2736z00_1510; 
BgL_map2735z00_1513:
{ /* ./Ast/dump.scm 181 */
bool_t BgL_test4049z00_1515;
BgL_test4049z00_1515 = 
NULLP(BgL_l2734z00_1511); 
if(BgL_test4049z00_1515)
{ /* ./Ast/dump.scm 181 */
BgL_arg4041z00_1506 = BgL_head2736z00_1510; }  else 
{ /* ./Ast/dump.scm 181 */
obj_t BgL_newtail2738z00_1516;
{ /* ./Ast/dump.scm 181 */
obj_t BgL_arg4056z00_1518;
{ /* ./Ast/dump.scm 181 */
obj_t BgL_arg4060z00_1520;
BgL_arg4060z00_1520 = 
CAR(BgL_l2734z00_1511); 
{ /* ./Ast/dump.scm 181 */
BgL_nodez00_bglt BgL_nodez00_2899;
BgL_nodez00_2899 = 
(BgL_nodez00_bglt)(BgL_arg4060z00_1520); 
{ /* ./Ast/dump.scm 181 */
obj_t BgL_method2771z00_2900;
{ /* ./Ast/dump.scm 181 */
BgL_objectz00_bglt BgL_objz00_2901;
BgL_objz00_2901 = 
(BgL_objectz00_bglt)(BgL_nodez00_2899); 
{ /* ./Ast/dump.scm 181 */
long BgL_objzd2classzd2numz00_2902;
BgL_objzd2classzd2numz00_2902 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2901); 
{ /* ./Ast/dump.scm 181 */
obj_t BgL_arg2017z00_2903;
{ /* ./Ast/dump.scm 181 */
int BgL_auxz00_4807;
BgL_auxz00_4807 = 
(int)(((long)1)); 
BgL_arg2017z00_2903 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4807); } 
{ /* ./Ast/dump.scm 181 */
int BgL_offsetz00_2906;
BgL_offsetz00_2906 = 
(int)(BgL_objzd2classzd2numz00_2902); 
{ /* ./Ast/dump.scm 181 */
long BgL_offsetz00_2907;
{ /* ./Ast/dump.scm 181 */
long BgL_auxz00_4811;
BgL_auxz00_4811 = 
(long)(BgL_offsetz00_2906); 
BgL_offsetz00_2907 = 
(BgL_auxz00_4811-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 181 */
long BgL_modz00_2908;
{ /* ./Ast/dump.scm 181 */
int BgL_arg2028z00_2909;
BgL_arg2028z00_2909 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 181 */
long BgL_n2z00_2917;
BgL_n2z00_2917 = 
(long)(BgL_arg2028z00_2909); 
BgL_modz00_2908 = 
(BgL_offsetz00_2907/BgL_n2z00_2917); } } 
{ /* ./Ast/dump.scm 181 */
long BgL_restz00_2910;
{ /* ./Ast/dump.scm 181 */
int BgL_arg2024z00_2911;
BgL_arg2024z00_2911 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 181 */
long BgL_n2z00_2920;
BgL_n2z00_2920 = 
(long)(BgL_arg2024z00_2911); 
BgL_restz00_2910 = 
(BgL_offsetz00_2907%BgL_n2z00_2920); } } 
{ /* ./Ast/dump.scm 181 */

{ /* ./Ast/dump.scm 181 */
obj_t BgL_bucketz00_2912;
{ /* ./Ast/dump.scm 181 */
int BgL_kz00_2922;
BgL_kz00_2922 = 
(int)(BgL_modz00_2908); 
BgL_bucketz00_2912 = 
VECTOR_REF(BgL_arg2017z00_2903,BgL_kz00_2922); } 
{ /* ./Ast/dump.scm 181 */
int BgL_kz00_2924;
BgL_kz00_2924 = 
(int)(BgL_restz00_2910); 
BgL_method2771z00_2900 = 
VECTOR_REF(BgL_bucketz00_2912,BgL_kz00_2924); } } } } } } } } } } 
BgL_arg4056z00_1518 = 
PROCEDURE_ENTRY(BgL_method2771z00_2900)(BgL_method2771z00_2900, 
(obj_t)(BgL_nodez00_2899), BEOA); } } } 
BgL_newtail2738z00_1516 = 
MAKE_PAIR(BgL_arg4056z00_1518, BNIL); } 
SET_CDR(BgL_tail2737z00_1512, BgL_newtail2738z00_1516); 
{ /* ./Ast/dump.scm 181 */
obj_t BgL_arg4052z00_1517;
BgL_arg4052z00_1517 = 
CDR(BgL_l2734z00_1511); 
{ 
obj_t BgL_tail2737z00_4831;obj_t BgL_l2734z00_4830;
BgL_l2734z00_4830 = BgL_arg4052z00_1517; 
BgL_tail2737z00_4831 = BgL_newtail2738z00_1516; 
BgL_tail2737z00_1512 = BgL_tail2737z00_4831; 
BgL_l2734z00_1511 = BgL_l2734z00_4830; 
goto BgL_map2735z00_1513;} } } } } } } } } 
BgL_arg4038z00_1505 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4041z00_1506, BNIL); } 
return 
MAKE_PAIR(BgL_arg4037z00_1504, BgL_arg4038z00_1505);} } } 
}



/* node->sexp-vref2799 */
obj_t BGl_nodezd2ze3sexpzd2vref2799ze3zzast_dumpz00(obj_t BgL_envz00_3798, obj_t BgL_nodez00_3799)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 166 */
{ 
BgL_vrefz00_bglt BgL_nodez00_1416;
BgL_nodez00_1416 = 
(BgL_vrefz00_bglt)(BgL_nodez00_3799); 
if(
CBOOL(BGl_za2typezd2shapezf3za2z21zzengine_paramz00))
{ /* ./Ast/dump.scm 170 */
obj_t BgL_arg3872z00_1420;obj_t BgL_arg3873z00_1421;
BgL_arg3872z00_1420 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Ast/dump.scm 169 */
obj_t BgL_arg3876z00_1422;obj_t BgL_arg3877z00_1423;
{ /* ./Ast/dump.scm 169 */
obj_t BgL_v2715z00_1424;
{ 
int BgL_auxz00_4838;
BgL_auxz00_4838 = 
(int)(((long)2)); 
BgL_v2715z00_1424 = 
create_vector(BgL_auxz00_4838); } 
{ /* ./Ast/dump.scm 169 */
obj_t BgL_arg3881z00_1426;
{ /* ./Ast/dump.scm 169 */
BgL_typez00_bglt BgL_arg3885z00_1427;
BgL_arg3885z00_1427 = 
(((BgL_vrefz00_bglt)CREF(BgL_nodez00_1416))->BgL_ftypez00); 
BgL_arg3881z00_1426 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg3885z00_1427)); } 
{ /* ./Ast/dump.scm 169 */
int BgL_kz00_2658;
BgL_kz00_2658 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v2715z00_1424,BgL_kz00_2658,BgL_arg3881z00_1426); } } 
{ /* ./Ast/dump.scm 169 */
obj_t BgL_arg3890z00_1429;
{ /* ./Ast/dump.scm 169 */
BgL_typez00_bglt BgL_arg3893z00_1430;
BgL_arg3893z00_1430 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_nodez00_1416)); 
BgL_arg3890z00_1429 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg3893z00_1430)); } 
{ /* ./Ast/dump.scm 169 */
int BgL_kz00_2661;
BgL_kz00_2661 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v2715z00_1424,BgL_kz00_2661,BgL_arg3890z00_1429); } } 
BgL_arg3876z00_1422 = BgL_v2715z00_1424; } 
{ /* ./Ast/dump.scm 170 */
obj_t BgL_arg3898z00_1431;
{ /* ./Ast/dump.scm 170 */
obj_t BgL_l2716z00_1433;
{ /* ./Ast/dump.scm 170 */
BgL_externz00_bglt BgL_obj1817z00_2663;
BgL_obj1817z00_2663 = 
(BgL_externz00_bglt)(BgL_nodez00_1416); 
BgL_l2716z00_1433 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2663))->BgL_exprza2za2); } 
{ /* ./Ast/dump.scm 170 */
bool_t BgL_test3901z00_1434;
BgL_test3901z00_1434 = 
NULLP(BgL_l2716z00_1433); 
if(BgL_test3901z00_1434)
{ /* ./Ast/dump.scm 170 */
BgL_arg3898z00_1431 = BNIL; }  else 
{ /* ./Ast/dump.scm 170 */
obj_t BgL_head2718z00_1435;
{ /* ./Ast/dump.scm 170 */
obj_t BgL_arg3922z00_1446;
{ /* ./Ast/dump.scm 170 */
obj_t BgL_arg3926z00_1448;
BgL_arg3926z00_1448 = 
CAR(BgL_l2716z00_1433); 
{ /* ./Ast/dump.scm 170 */
BgL_nodez00_bglt BgL_nodez00_2666;
BgL_nodez00_2666 = 
(BgL_nodez00_bglt)(BgL_arg3926z00_1448); 
{ /* ./Ast/dump.scm 170 */
obj_t BgL_method2771z00_2667;
{ /* ./Ast/dump.scm 170 */
BgL_objectz00_bglt BgL_objz00_2668;
BgL_objz00_2668 = 
(BgL_objectz00_bglt)(BgL_nodez00_2666); 
{ /* ./Ast/dump.scm 170 */
long BgL_objzd2classzd2numz00_2669;
BgL_objzd2classzd2numz00_2669 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2668); 
{ /* ./Ast/dump.scm 170 */
obj_t BgL_arg2017z00_2670;
{ /* ./Ast/dump.scm 170 */
int BgL_auxz00_4860;
BgL_auxz00_4860 = 
(int)(((long)1)); 
BgL_arg2017z00_2670 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4860); } 
{ /* ./Ast/dump.scm 170 */
int BgL_offsetz00_2673;
BgL_offsetz00_2673 = 
(int)(BgL_objzd2classzd2numz00_2669); 
{ /* ./Ast/dump.scm 170 */
long BgL_offsetz00_2674;
{ /* ./Ast/dump.scm 170 */
long BgL_auxz00_4864;
BgL_auxz00_4864 = 
(long)(BgL_offsetz00_2673); 
BgL_offsetz00_2674 = 
(BgL_auxz00_4864-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 170 */
long BgL_modz00_2675;
{ /* ./Ast/dump.scm 170 */
int BgL_arg2028z00_2676;
BgL_arg2028z00_2676 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 170 */
long BgL_n2z00_2684;
BgL_n2z00_2684 = 
(long)(BgL_arg2028z00_2676); 
BgL_modz00_2675 = 
(BgL_offsetz00_2674/BgL_n2z00_2684); } } 
{ /* ./Ast/dump.scm 170 */
long BgL_restz00_2677;
{ /* ./Ast/dump.scm 170 */
int BgL_arg2024z00_2678;
BgL_arg2024z00_2678 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 170 */
long BgL_n2z00_2687;
BgL_n2z00_2687 = 
(long)(BgL_arg2024z00_2678); 
BgL_restz00_2677 = 
(BgL_offsetz00_2674%BgL_n2z00_2687); } } 
{ /* ./Ast/dump.scm 170 */

{ /* ./Ast/dump.scm 170 */
obj_t BgL_bucketz00_2679;
{ /* ./Ast/dump.scm 170 */
int BgL_kz00_2689;
BgL_kz00_2689 = 
(int)(BgL_modz00_2675); 
BgL_bucketz00_2679 = 
VECTOR_REF(BgL_arg2017z00_2670,BgL_kz00_2689); } 
{ /* ./Ast/dump.scm 170 */
int BgL_kz00_2691;
BgL_kz00_2691 = 
(int)(BgL_restz00_2677); 
BgL_method2771z00_2667 = 
VECTOR_REF(BgL_bucketz00_2679,BgL_kz00_2691); } } } } } } } } } } 
BgL_arg3922z00_1446 = 
PROCEDURE_ENTRY(BgL_method2771z00_2667)(BgL_method2771z00_2667, 
(obj_t)(BgL_nodez00_2666), BEOA); } } } 
BgL_head2718z00_1435 = 
MAKE_PAIR(BgL_arg3922z00_1446, BNIL); } 
{ 
obj_t BgL_l2716z00_1436;obj_t BgL_tail2719z00_1437;
{ /* ./Ast/dump.scm 170 */
obj_t BgL_arg3903z00_1439;
BgL_arg3903z00_1439 = 
CDR(BgL_l2716z00_1433); 
BgL_l2716z00_1436 = BgL_arg3903z00_1439; 
BgL_tail2719z00_1437 = BgL_head2718z00_1435; 
BgL_map2717z00_1438:
{ /* ./Ast/dump.scm 170 */
bool_t BgL_test3906z00_1440;
BgL_test3906z00_1440 = 
NULLP(BgL_l2716z00_1436); 
if(BgL_test3906z00_1440)
{ /* ./Ast/dump.scm 170 */
BgL_arg3898z00_1431 = BgL_head2718z00_1435; }  else 
{ /* ./Ast/dump.scm 170 */
obj_t BgL_newtail2720z00_1441;
{ /* ./Ast/dump.scm 170 */
obj_t BgL_arg3913z00_1443;
{ /* ./Ast/dump.scm 170 */
obj_t BgL_arg3917z00_1445;
BgL_arg3917z00_1445 = 
CAR(BgL_l2716z00_1436); 
{ /* ./Ast/dump.scm 170 */
BgL_nodez00_bglt BgL_nodez00_2697;
BgL_nodez00_2697 = 
(BgL_nodez00_bglt)(BgL_arg3917z00_1445); 
{ /* ./Ast/dump.scm 170 */
obj_t BgL_method2771z00_2698;
{ /* ./Ast/dump.scm 170 */
BgL_objectz00_bglt BgL_objz00_2699;
BgL_objz00_2699 = 
(BgL_objectz00_bglt)(BgL_nodez00_2697); 
{ /* ./Ast/dump.scm 170 */
long BgL_objzd2classzd2numz00_2700;
BgL_objzd2classzd2numz00_2700 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2699); 
{ /* ./Ast/dump.scm 170 */
obj_t BgL_arg2017z00_2701;
{ /* ./Ast/dump.scm 170 */
int BgL_auxz00_4888;
BgL_auxz00_4888 = 
(int)(((long)1)); 
BgL_arg2017z00_2701 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4888); } 
{ /* ./Ast/dump.scm 170 */
int BgL_offsetz00_2704;
BgL_offsetz00_2704 = 
(int)(BgL_objzd2classzd2numz00_2700); 
{ /* ./Ast/dump.scm 170 */
long BgL_offsetz00_2705;
{ /* ./Ast/dump.scm 170 */
long BgL_auxz00_4892;
BgL_auxz00_4892 = 
(long)(BgL_offsetz00_2704); 
BgL_offsetz00_2705 = 
(BgL_auxz00_4892-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 170 */
long BgL_modz00_2706;
{ /* ./Ast/dump.scm 170 */
int BgL_arg2028z00_2707;
BgL_arg2028z00_2707 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 170 */
long BgL_n2z00_2715;
BgL_n2z00_2715 = 
(long)(BgL_arg2028z00_2707); 
BgL_modz00_2706 = 
(BgL_offsetz00_2705/BgL_n2z00_2715); } } 
{ /* ./Ast/dump.scm 170 */
long BgL_restz00_2708;
{ /* ./Ast/dump.scm 170 */
int BgL_arg2024z00_2709;
BgL_arg2024z00_2709 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 170 */
long BgL_n2z00_2718;
BgL_n2z00_2718 = 
(long)(BgL_arg2024z00_2709); 
BgL_restz00_2708 = 
(BgL_offsetz00_2705%BgL_n2z00_2718); } } 
{ /* ./Ast/dump.scm 170 */

{ /* ./Ast/dump.scm 170 */
obj_t BgL_bucketz00_2710;
{ /* ./Ast/dump.scm 170 */
int BgL_kz00_2720;
BgL_kz00_2720 = 
(int)(BgL_modz00_2706); 
BgL_bucketz00_2710 = 
VECTOR_REF(BgL_arg2017z00_2701,BgL_kz00_2720); } 
{ /* ./Ast/dump.scm 170 */
int BgL_kz00_2722;
BgL_kz00_2722 = 
(int)(BgL_restz00_2708); 
BgL_method2771z00_2698 = 
VECTOR_REF(BgL_bucketz00_2710,BgL_kz00_2722); } } } } } } } } } } 
BgL_arg3913z00_1443 = 
PROCEDURE_ENTRY(BgL_method2771z00_2698)(BgL_method2771z00_2698, 
(obj_t)(BgL_nodez00_2697), BEOA); } } } 
BgL_newtail2720z00_1441 = 
MAKE_PAIR(BgL_arg3913z00_1443, BNIL); } 
SET_CDR(BgL_tail2719z00_1437, BgL_newtail2720z00_1441); 
{ /* ./Ast/dump.scm 170 */
obj_t BgL_arg3909z00_1442;
BgL_arg3909z00_1442 = 
CDR(BgL_l2716z00_1436); 
{ 
obj_t BgL_tail2719z00_4912;obj_t BgL_l2716z00_4911;
BgL_l2716z00_4911 = BgL_arg3909z00_1442; 
BgL_tail2719z00_4912 = BgL_newtail2720z00_1441; 
BgL_tail2719z00_1437 = BgL_tail2719z00_4912; 
BgL_l2716z00_1436 = BgL_l2716z00_4911; 
goto BgL_map2717z00_1438;} } } } } } } } } 
BgL_arg3877z00_1423 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3898z00_1431, BNIL); } 
BgL_arg3873z00_1421 = 
MAKE_PAIR(BgL_arg3876z00_1422, BgL_arg3877z00_1423); } 
return 
MAKE_PAIR(BgL_arg3872z00_1420, BgL_arg3873z00_1421);}  else 
{ /* ./Ast/dump.scm 171 */
obj_t BgL_arg3932z00_1449;obj_t BgL_arg3933z00_1450;
BgL_arg3932z00_1449 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Ast/dump.scm 171 */
obj_t BgL_arg3937z00_1451;
{ /* ./Ast/dump.scm 171 */
obj_t BgL_l2721z00_1453;
{ /* ./Ast/dump.scm 171 */
BgL_externz00_bglt BgL_obj1817z00_2728;
BgL_obj1817z00_2728 = 
(BgL_externz00_bglt)(BgL_nodez00_1416); 
BgL_l2721z00_1453 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2728))->BgL_exprza2za2); } 
{ /* ./Ast/dump.scm 171 */
bool_t BgL_test3940z00_1454;
BgL_test3940z00_1454 = 
NULLP(BgL_l2721z00_1453); 
if(BgL_test3940z00_1454)
{ /* ./Ast/dump.scm 171 */
BgL_arg3937z00_1451 = BNIL; }  else 
{ /* ./Ast/dump.scm 171 */
obj_t BgL_head2723z00_1455;
{ /* ./Ast/dump.scm 171 */
obj_t BgL_arg3962z00_1466;
{ /* ./Ast/dump.scm 171 */
obj_t BgL_arg3966z00_1468;
BgL_arg3966z00_1468 = 
CAR(BgL_l2721z00_1453); 
{ /* ./Ast/dump.scm 171 */
BgL_nodez00_bglt BgL_nodez00_2731;
BgL_nodez00_2731 = 
(BgL_nodez00_bglt)(BgL_arg3966z00_1468); 
{ /* ./Ast/dump.scm 171 */
obj_t BgL_method2771z00_2732;
{ /* ./Ast/dump.scm 171 */
BgL_objectz00_bglt BgL_objz00_2733;
BgL_objz00_2733 = 
(BgL_objectz00_bglt)(BgL_nodez00_2731); 
{ /* ./Ast/dump.scm 171 */
long BgL_objzd2classzd2numz00_2734;
BgL_objzd2classzd2numz00_2734 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2733); 
{ /* ./Ast/dump.scm 171 */
obj_t BgL_arg2017z00_2735;
{ /* ./Ast/dump.scm 171 */
int BgL_auxz00_4925;
BgL_auxz00_4925 = 
(int)(((long)1)); 
BgL_arg2017z00_2735 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4925); } 
{ /* ./Ast/dump.scm 171 */
int BgL_offsetz00_2738;
BgL_offsetz00_2738 = 
(int)(BgL_objzd2classzd2numz00_2734); 
{ /* ./Ast/dump.scm 171 */
long BgL_offsetz00_2739;
{ /* ./Ast/dump.scm 171 */
long BgL_auxz00_4929;
BgL_auxz00_4929 = 
(long)(BgL_offsetz00_2738); 
BgL_offsetz00_2739 = 
(BgL_auxz00_4929-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 171 */
long BgL_modz00_2740;
{ /* ./Ast/dump.scm 171 */
int BgL_arg2028z00_2741;
BgL_arg2028z00_2741 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 171 */
long BgL_n2z00_2749;
BgL_n2z00_2749 = 
(long)(BgL_arg2028z00_2741); 
BgL_modz00_2740 = 
(BgL_offsetz00_2739/BgL_n2z00_2749); } } 
{ /* ./Ast/dump.scm 171 */
long BgL_restz00_2742;
{ /* ./Ast/dump.scm 171 */
int BgL_arg2024z00_2743;
BgL_arg2024z00_2743 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 171 */
long BgL_n2z00_2752;
BgL_n2z00_2752 = 
(long)(BgL_arg2024z00_2743); 
BgL_restz00_2742 = 
(BgL_offsetz00_2739%BgL_n2z00_2752); } } 
{ /* ./Ast/dump.scm 171 */

{ /* ./Ast/dump.scm 171 */
obj_t BgL_bucketz00_2744;
{ /* ./Ast/dump.scm 171 */
int BgL_kz00_2754;
BgL_kz00_2754 = 
(int)(BgL_modz00_2740); 
BgL_bucketz00_2744 = 
VECTOR_REF(BgL_arg2017z00_2735,BgL_kz00_2754); } 
{ /* ./Ast/dump.scm 171 */
int BgL_kz00_2756;
BgL_kz00_2756 = 
(int)(BgL_restz00_2742); 
BgL_method2771z00_2732 = 
VECTOR_REF(BgL_bucketz00_2744,BgL_kz00_2756); } } } } } } } } } } 
BgL_arg3962z00_1466 = 
PROCEDURE_ENTRY(BgL_method2771z00_2732)(BgL_method2771z00_2732, 
(obj_t)(BgL_nodez00_2731), BEOA); } } } 
BgL_head2723z00_1455 = 
MAKE_PAIR(BgL_arg3962z00_1466, BNIL); } 
{ 
obj_t BgL_l2721z00_1456;obj_t BgL_tail2724z00_1457;
{ /* ./Ast/dump.scm 171 */
obj_t BgL_arg3943z00_1459;
BgL_arg3943z00_1459 = 
CDR(BgL_l2721z00_1453); 
BgL_l2721z00_1456 = BgL_arg3943z00_1459; 
BgL_tail2724z00_1457 = BgL_head2723z00_1455; 
BgL_map2722z00_1458:
{ /* ./Ast/dump.scm 171 */
bool_t BgL_test3946z00_1460;
BgL_test3946z00_1460 = 
NULLP(BgL_l2721z00_1456); 
if(BgL_test3946z00_1460)
{ /* ./Ast/dump.scm 171 */
BgL_arg3937z00_1451 = BgL_head2723z00_1455; }  else 
{ /* ./Ast/dump.scm 171 */
obj_t BgL_newtail2725z00_1461;
{ /* ./Ast/dump.scm 171 */
obj_t BgL_arg3953z00_1463;
{ /* ./Ast/dump.scm 171 */
obj_t BgL_arg3957z00_1465;
BgL_arg3957z00_1465 = 
CAR(BgL_l2721z00_1456); 
{ /* ./Ast/dump.scm 171 */
BgL_nodez00_bglt BgL_nodez00_2762;
BgL_nodez00_2762 = 
(BgL_nodez00_bglt)(BgL_arg3957z00_1465); 
{ /* ./Ast/dump.scm 171 */
obj_t BgL_method2771z00_2763;
{ /* ./Ast/dump.scm 171 */
BgL_objectz00_bglt BgL_objz00_2764;
BgL_objz00_2764 = 
(BgL_objectz00_bglt)(BgL_nodez00_2762); 
{ /* ./Ast/dump.scm 171 */
long BgL_objzd2classzd2numz00_2765;
BgL_objzd2classzd2numz00_2765 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2764); 
{ /* ./Ast/dump.scm 171 */
obj_t BgL_arg2017z00_2766;
{ /* ./Ast/dump.scm 171 */
int BgL_auxz00_4953;
BgL_auxz00_4953 = 
(int)(((long)1)); 
BgL_arg2017z00_2766 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4953); } 
{ /* ./Ast/dump.scm 171 */
int BgL_offsetz00_2769;
BgL_offsetz00_2769 = 
(int)(BgL_objzd2classzd2numz00_2765); 
{ /* ./Ast/dump.scm 171 */
long BgL_offsetz00_2770;
{ /* ./Ast/dump.scm 171 */
long BgL_auxz00_4957;
BgL_auxz00_4957 = 
(long)(BgL_offsetz00_2769); 
BgL_offsetz00_2770 = 
(BgL_auxz00_4957-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 171 */
long BgL_modz00_2771;
{ /* ./Ast/dump.scm 171 */
int BgL_arg2028z00_2772;
BgL_arg2028z00_2772 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 171 */
long BgL_n2z00_2780;
BgL_n2z00_2780 = 
(long)(BgL_arg2028z00_2772); 
BgL_modz00_2771 = 
(BgL_offsetz00_2770/BgL_n2z00_2780); } } 
{ /* ./Ast/dump.scm 171 */
long BgL_restz00_2773;
{ /* ./Ast/dump.scm 171 */
int BgL_arg2024z00_2774;
BgL_arg2024z00_2774 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 171 */
long BgL_n2z00_2783;
BgL_n2z00_2783 = 
(long)(BgL_arg2024z00_2774); 
BgL_restz00_2773 = 
(BgL_offsetz00_2770%BgL_n2z00_2783); } } 
{ /* ./Ast/dump.scm 171 */

{ /* ./Ast/dump.scm 171 */
obj_t BgL_bucketz00_2775;
{ /* ./Ast/dump.scm 171 */
int BgL_kz00_2785;
BgL_kz00_2785 = 
(int)(BgL_modz00_2771); 
BgL_bucketz00_2775 = 
VECTOR_REF(BgL_arg2017z00_2766,BgL_kz00_2785); } 
{ /* ./Ast/dump.scm 171 */
int BgL_kz00_2787;
BgL_kz00_2787 = 
(int)(BgL_restz00_2773); 
BgL_method2771z00_2763 = 
VECTOR_REF(BgL_bucketz00_2775,BgL_kz00_2787); } } } } } } } } } } 
BgL_arg3953z00_1463 = 
PROCEDURE_ENTRY(BgL_method2771z00_2763)(BgL_method2771z00_2763, 
(obj_t)(BgL_nodez00_2762), BEOA); } } } 
BgL_newtail2725z00_1461 = 
MAKE_PAIR(BgL_arg3953z00_1463, BNIL); } 
SET_CDR(BgL_tail2724z00_1457, BgL_newtail2725z00_1461); 
{ /* ./Ast/dump.scm 171 */
obj_t BgL_arg3949z00_1462;
BgL_arg3949z00_1462 = 
CDR(BgL_l2721z00_1456); 
{ 
obj_t BgL_tail2724z00_4977;obj_t BgL_l2721z00_4976;
BgL_l2721z00_4976 = BgL_arg3949z00_1462; 
BgL_tail2724z00_4977 = BgL_newtail2725z00_1461; 
BgL_tail2724z00_1457 = BgL_tail2724z00_4977; 
BgL_l2721z00_1456 = BgL_l2721z00_4976; 
goto BgL_map2722z00_1458;} } } } } } } } } 
BgL_arg3933z00_1450 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3937z00_1451, BNIL); } 
return 
MAKE_PAIR(BgL_arg3932z00_1449, BgL_arg3933z00_1450);} } } 
}



/* node->sexp-vlength2797 */
obj_t BGl_nodezd2ze3sexpzd2vlength2797ze3zzast_dumpz00(obj_t BgL_envz00_3800, obj_t BgL_nodez00_3801)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 159 */
{ 
BgL_vlengthz00_bglt BgL_nodez00_1404;
BgL_nodez00_1404 = 
(BgL_vlengthz00_bglt)(BgL_nodez00_3801); 
{ /* ./Ast/dump.scm 161 */
obj_t BgL_arg3851z00_1408;obj_t BgL_arg3852z00_1409;
BgL_arg3851z00_1408 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Ast/dump.scm 161 */
obj_t BgL_arg3855z00_1410;
{ /* ./Ast/dump.scm 161 */
obj_t BgL_arg3859z00_1412;
{ /* ./Ast/dump.scm 161 */
obj_t BgL_auxz00_4982;
{ /* ./Ast/dump.scm 161 */
BgL_externz00_bglt BgL_obj1817z00_2628;
BgL_obj1817z00_2628 = 
(BgL_externz00_bglt)(BgL_nodez00_1404); 
BgL_auxz00_4982 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2628))->BgL_exprza2za2); } 
BgL_arg3859z00_1412 = 
CAR(BgL_auxz00_4982); } 
{ /* ./Ast/dump.scm 161 */
BgL_nodez00_bglt BgL_nodez00_2630;
BgL_nodez00_2630 = 
(BgL_nodez00_bglt)(BgL_arg3859z00_1412); 
{ /* ./Ast/dump.scm 161 */
obj_t BgL_method2771z00_2631;
{ /* ./Ast/dump.scm 161 */
BgL_objectz00_bglt BgL_objz00_2632;
BgL_objz00_2632 = 
(BgL_objectz00_bglt)(BgL_nodez00_2630); 
{ /* ./Ast/dump.scm 161 */
long BgL_objzd2classzd2numz00_2633;
BgL_objzd2classzd2numz00_2633 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2632); 
{ /* ./Ast/dump.scm 161 */
obj_t BgL_arg2017z00_2634;
{ /* ./Ast/dump.scm 161 */
int BgL_auxz00_4989;
BgL_auxz00_4989 = 
(int)(((long)1)); 
BgL_arg2017z00_2634 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_4989); } 
{ /* ./Ast/dump.scm 161 */
int BgL_offsetz00_2637;
BgL_offsetz00_2637 = 
(int)(BgL_objzd2classzd2numz00_2633); 
{ /* ./Ast/dump.scm 161 */
long BgL_offsetz00_2638;
{ /* ./Ast/dump.scm 161 */
long BgL_auxz00_4993;
BgL_auxz00_4993 = 
(long)(BgL_offsetz00_2637); 
BgL_offsetz00_2638 = 
(BgL_auxz00_4993-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 161 */
long BgL_modz00_2639;
{ /* ./Ast/dump.scm 161 */
int BgL_arg2028z00_2640;
BgL_arg2028z00_2640 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 161 */
long BgL_n2z00_2648;
BgL_n2z00_2648 = 
(long)(BgL_arg2028z00_2640); 
BgL_modz00_2639 = 
(BgL_offsetz00_2638/BgL_n2z00_2648); } } 
{ /* ./Ast/dump.scm 161 */
long BgL_restz00_2641;
{ /* ./Ast/dump.scm 161 */
int BgL_arg2024z00_2642;
BgL_arg2024z00_2642 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 161 */
long BgL_n2z00_2651;
BgL_n2z00_2651 = 
(long)(BgL_arg2024z00_2642); 
BgL_restz00_2641 = 
(BgL_offsetz00_2638%BgL_n2z00_2651); } } 
{ /* ./Ast/dump.scm 161 */

{ /* ./Ast/dump.scm 161 */
obj_t BgL_bucketz00_2643;
{ /* ./Ast/dump.scm 161 */
int BgL_kz00_2653;
BgL_kz00_2653 = 
(int)(BgL_modz00_2639); 
BgL_bucketz00_2643 = 
VECTOR_REF(BgL_arg2017z00_2634,BgL_kz00_2653); } 
{ /* ./Ast/dump.scm 161 */
int BgL_kz00_2655;
BgL_kz00_2655 = 
(int)(BgL_restz00_2641); 
BgL_method2771z00_2631 = 
VECTOR_REF(BgL_bucketz00_2643,BgL_kz00_2655); } } } } } } } } } } 
BgL_arg3855z00_1410 = 
PROCEDURE_ENTRY(BgL_method2771z00_2631)(BgL_method2771z00_2631, 
(obj_t)(BgL_nodez00_2630), BEOA); } } } 
BgL_arg3852z00_1409 = 
MAKE_PAIR(BgL_arg3855z00_1410, BNIL); } 
return 
MAKE_PAIR(BgL_arg3851z00_1408, BgL_arg3852z00_1409);} } } 
}



/* node->sexp-new2795 */
obj_t BGl_nodezd2ze3sexpzd2new2795ze3zzast_dumpz00(obj_t BgL_envz00_3802, obj_t BgL_nodez00_3803)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 152 */
{ 
BgL_newz00_bglt BgL_nodez00_1375;
BgL_nodez00_1375 = 
(BgL_newz00_bglt)(BgL_nodez00_3803); 
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg3799z00_1379;obj_t BgL_arg3800z00_1380;
BgL_arg3799z00_1379 = 
CNST_TABLE_REF(((long)17)); 
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg3803z00_1381;obj_t BgL_arg3804z00_1382;
{ /* ./Ast/dump.scm 154 */
BgL_typez00_bglt BgL_arg3807z00_1383;
{ /* ./Ast/dump.scm 154 */
BgL_nodez00_bglt BgL_obj1561z00_2561;
BgL_obj1561z00_2561 = 
(BgL_nodez00_bglt)(BgL_nodez00_1375); 
BgL_arg3807z00_1383 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2561))->BgL_typez00); } 
BgL_arg3803z00_1381 = 
(((BgL_typez00_bglt)CREF(BgL_arg3807z00_1383))->BgL_idz00); } 
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg3811z00_1384;
{ /* ./Ast/dump.scm 154 */
obj_t BgL_l2706z00_1386;
{ /* ./Ast/dump.scm 154 */
BgL_externz00_bglt BgL_obj1817z00_2563;
BgL_obj1817z00_2563 = 
(BgL_externz00_bglt)(BgL_nodez00_1375); 
BgL_l2706z00_1386 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2563))->BgL_exprza2za2); } 
{ /* ./Ast/dump.scm 154 */
bool_t BgL_test3814z00_1387;
BgL_test3814z00_1387 = 
NULLP(BgL_l2706z00_1386); 
if(BgL_test3814z00_1387)
{ /* ./Ast/dump.scm 154 */
BgL_arg3811z00_1384 = BNIL; }  else 
{ /* ./Ast/dump.scm 154 */
obj_t BgL_head2708z00_1388;
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg3835z00_1399;
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg3839z00_1401;
BgL_arg3839z00_1401 = 
CAR(BgL_l2706z00_1386); 
{ /* ./Ast/dump.scm 154 */
BgL_nodez00_bglt BgL_nodez00_2566;
BgL_nodez00_2566 = 
(BgL_nodez00_bglt)(BgL_arg3839z00_1401); 
{ /* ./Ast/dump.scm 154 */
obj_t BgL_method2771z00_2567;
{ /* ./Ast/dump.scm 154 */
BgL_objectz00_bglt BgL_objz00_2568;
BgL_objz00_2568 = 
(BgL_objectz00_bglt)(BgL_nodez00_2566); 
{ /* ./Ast/dump.scm 154 */
long BgL_objzd2classzd2numz00_2569;
BgL_objzd2classzd2numz00_2569 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2568); 
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg2017z00_2570;
{ /* ./Ast/dump.scm 154 */
int BgL_auxz00_5024;
BgL_auxz00_5024 = 
(int)(((long)1)); 
BgL_arg2017z00_2570 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5024); } 
{ /* ./Ast/dump.scm 154 */
int BgL_offsetz00_2573;
BgL_offsetz00_2573 = 
(int)(BgL_objzd2classzd2numz00_2569); 
{ /* ./Ast/dump.scm 154 */
long BgL_offsetz00_2574;
{ /* ./Ast/dump.scm 154 */
long BgL_auxz00_5028;
BgL_auxz00_5028 = 
(long)(BgL_offsetz00_2573); 
BgL_offsetz00_2574 = 
(BgL_auxz00_5028-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 154 */
long BgL_modz00_2575;
{ /* ./Ast/dump.scm 154 */
int BgL_arg2028z00_2576;
BgL_arg2028z00_2576 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 154 */
long BgL_n2z00_2584;
BgL_n2z00_2584 = 
(long)(BgL_arg2028z00_2576); 
BgL_modz00_2575 = 
(BgL_offsetz00_2574/BgL_n2z00_2584); } } 
{ /* ./Ast/dump.scm 154 */
long BgL_restz00_2577;
{ /* ./Ast/dump.scm 154 */
int BgL_arg2024z00_2578;
BgL_arg2024z00_2578 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 154 */
long BgL_n2z00_2587;
BgL_n2z00_2587 = 
(long)(BgL_arg2024z00_2578); 
BgL_restz00_2577 = 
(BgL_offsetz00_2574%BgL_n2z00_2587); } } 
{ /* ./Ast/dump.scm 154 */

{ /* ./Ast/dump.scm 154 */
obj_t BgL_bucketz00_2579;
{ /* ./Ast/dump.scm 154 */
int BgL_kz00_2589;
BgL_kz00_2589 = 
(int)(BgL_modz00_2575); 
BgL_bucketz00_2579 = 
VECTOR_REF(BgL_arg2017z00_2570,BgL_kz00_2589); } 
{ /* ./Ast/dump.scm 154 */
int BgL_kz00_2591;
BgL_kz00_2591 = 
(int)(BgL_restz00_2577); 
BgL_method2771z00_2567 = 
VECTOR_REF(BgL_bucketz00_2579,BgL_kz00_2591); } } } } } } } } } } 
BgL_arg3835z00_1399 = 
PROCEDURE_ENTRY(BgL_method2771z00_2567)(BgL_method2771z00_2567, 
(obj_t)(BgL_nodez00_2566), BEOA); } } } 
BgL_head2708z00_1388 = 
MAKE_PAIR(BgL_arg3835z00_1399, BNIL); } 
{ 
obj_t BgL_l2706z00_1389;obj_t BgL_tail2709z00_1390;
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg3816z00_1392;
BgL_arg3816z00_1392 = 
CDR(BgL_l2706z00_1386); 
BgL_l2706z00_1389 = BgL_arg3816z00_1392; 
BgL_tail2709z00_1390 = BgL_head2708z00_1388; 
BgL_map2707z00_1391:
{ /* ./Ast/dump.scm 154 */
bool_t BgL_test3819z00_1393;
BgL_test3819z00_1393 = 
NULLP(BgL_l2706z00_1389); 
if(BgL_test3819z00_1393)
{ /* ./Ast/dump.scm 154 */
BgL_arg3811z00_1384 = BgL_head2708z00_1388; }  else 
{ /* ./Ast/dump.scm 154 */
obj_t BgL_newtail2710z00_1394;
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg3826z00_1396;
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg3830z00_1398;
BgL_arg3830z00_1398 = 
CAR(BgL_l2706z00_1389); 
{ /* ./Ast/dump.scm 154 */
BgL_nodez00_bglt BgL_nodez00_2597;
BgL_nodez00_2597 = 
(BgL_nodez00_bglt)(BgL_arg3830z00_1398); 
{ /* ./Ast/dump.scm 154 */
obj_t BgL_method2771z00_2598;
{ /* ./Ast/dump.scm 154 */
BgL_objectz00_bglt BgL_objz00_2599;
BgL_objz00_2599 = 
(BgL_objectz00_bglt)(BgL_nodez00_2597); 
{ /* ./Ast/dump.scm 154 */
long BgL_objzd2classzd2numz00_2600;
BgL_objzd2classzd2numz00_2600 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2599); 
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg2017z00_2601;
{ /* ./Ast/dump.scm 154 */
int BgL_auxz00_5052;
BgL_auxz00_5052 = 
(int)(((long)1)); 
BgL_arg2017z00_2601 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5052); } 
{ /* ./Ast/dump.scm 154 */
int BgL_offsetz00_2604;
BgL_offsetz00_2604 = 
(int)(BgL_objzd2classzd2numz00_2600); 
{ /* ./Ast/dump.scm 154 */
long BgL_offsetz00_2605;
{ /* ./Ast/dump.scm 154 */
long BgL_auxz00_5056;
BgL_auxz00_5056 = 
(long)(BgL_offsetz00_2604); 
BgL_offsetz00_2605 = 
(BgL_auxz00_5056-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 154 */
long BgL_modz00_2606;
{ /* ./Ast/dump.scm 154 */
int BgL_arg2028z00_2607;
BgL_arg2028z00_2607 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 154 */
long BgL_n2z00_2615;
BgL_n2z00_2615 = 
(long)(BgL_arg2028z00_2607); 
BgL_modz00_2606 = 
(BgL_offsetz00_2605/BgL_n2z00_2615); } } 
{ /* ./Ast/dump.scm 154 */
long BgL_restz00_2608;
{ /* ./Ast/dump.scm 154 */
int BgL_arg2024z00_2609;
BgL_arg2024z00_2609 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 154 */
long BgL_n2z00_2618;
BgL_n2z00_2618 = 
(long)(BgL_arg2024z00_2609); 
BgL_restz00_2608 = 
(BgL_offsetz00_2605%BgL_n2z00_2618); } } 
{ /* ./Ast/dump.scm 154 */

{ /* ./Ast/dump.scm 154 */
obj_t BgL_bucketz00_2610;
{ /* ./Ast/dump.scm 154 */
int BgL_kz00_2620;
BgL_kz00_2620 = 
(int)(BgL_modz00_2606); 
BgL_bucketz00_2610 = 
VECTOR_REF(BgL_arg2017z00_2601,BgL_kz00_2620); } 
{ /* ./Ast/dump.scm 154 */
int BgL_kz00_2622;
BgL_kz00_2622 = 
(int)(BgL_restz00_2608); 
BgL_method2771z00_2598 = 
VECTOR_REF(BgL_bucketz00_2610,BgL_kz00_2622); } } } } } } } } } } 
BgL_arg3826z00_1396 = 
PROCEDURE_ENTRY(BgL_method2771z00_2598)(BgL_method2771z00_2598, 
(obj_t)(BgL_nodez00_2597), BEOA); } } } 
BgL_newtail2710z00_1394 = 
MAKE_PAIR(BgL_arg3826z00_1396, BNIL); } 
SET_CDR(BgL_tail2709z00_1390, BgL_newtail2710z00_1394); 
{ /* ./Ast/dump.scm 154 */
obj_t BgL_arg3822z00_1395;
BgL_arg3822z00_1395 = 
CDR(BgL_l2706z00_1389); 
{ 
obj_t BgL_tail2709z00_5076;obj_t BgL_l2706z00_5075;
BgL_l2706z00_5075 = BgL_arg3822z00_1395; 
BgL_tail2709z00_5076 = BgL_newtail2710z00_1394; 
BgL_tail2709z00_1390 = BgL_tail2709z00_5076; 
BgL_l2706z00_1389 = BgL_l2706z00_5075; 
goto BgL_map2707z00_1391;} } } } } } } } } 
BgL_arg3804z00_1382 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3811z00_1384, BNIL); } 
BgL_arg3800z00_1380 = 
MAKE_PAIR(BgL_arg3803z00_1381, BgL_arg3804z00_1382); } 
return 
MAKE_PAIR(BgL_arg3799z00_1379, BgL_arg3800z00_1380);} } } 
}



/* node->sexp-setfield2793 */
obj_t BGl_nodezd2ze3sexpzd2setfield2793ze3zzast_dumpz00(obj_t BgL_envz00_3804, obj_t BgL_nodez00_3805)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 144 */
{ 
BgL_setfieldz00_bglt BgL_nodez00_1339;
BgL_nodez00_1339 = 
(BgL_setfieldz00_bglt)(BgL_nodez00_3805); 
{ /* ./Ast/dump.scm 146 */
obj_t BgL_arg3730z00_1343;obj_t BgL_arg3731z00_1344;
BgL_arg3730z00_1343 = 
CNST_TABLE_REF(((long)18)); 
{ /* ./Ast/dump.scm 146 */
obj_t BgL_arg3734z00_1345;obj_t BgL_arg3735z00_1346;
{ /* ./Ast/dump.scm 146 */
obj_t BgL_arg3738z00_1347;obj_t BgL_arg3739z00_1348;
BgL_arg3738z00_1347 = 
(((BgL_setfieldz00_bglt)CREF(BgL_nodez00_1339))->BgL_fnamez00); 
{ /* ./Ast/dump.scm 146 */
obj_t BgL_arg3743z00_1349;
{ /* ./Ast/dump.scm 146 */
BgL_typez00_bglt BgL_arg3747z00_1351;
BgL_arg3747z00_1351 = 
(((BgL_setfieldz00_bglt)CREF(BgL_nodez00_1339))->BgL_ftypez00); 
BgL_arg3743z00_1349 = 
(((BgL_typez00_bglt)CREF(BgL_arg3747z00_1351))->BgL_idz00); } 
BgL_arg3739z00_1348 = 
MAKE_PAIR(BgL_arg3743z00_1349, BNIL); } 
BgL_arg3734z00_1345 = 
MAKE_PAIR(BgL_arg3738z00_1347, BgL_arg3739z00_1348); } 
{ /* ./Ast/dump.scm 147 */
obj_t BgL_arg3751z00_1352;obj_t BgL_arg3752z00_1353;
{ /* ./Ast/dump.scm 147 */
BgL_typez00_bglt BgL_arg3755z00_1354;
BgL_arg3755z00_1354 = 
(((BgL_setfieldz00_bglt)CREF(BgL_nodez00_1339))->BgL_otypez00); 
BgL_arg3751z00_1352 = 
(((BgL_typez00_bglt)CREF(BgL_arg3755z00_1354))->BgL_idz00); } 
{ /* ./Ast/dump.scm 147 */
obj_t BgL_arg3759z00_1355;
{ /* ./Ast/dump.scm 147 */
obj_t BgL_l2699z00_1357;
{ /* ./Ast/dump.scm 147 */
BgL_externz00_bglt BgL_obj1817z00_2496;
BgL_obj1817z00_2496 = 
(BgL_externz00_bglt)(BgL_nodez00_1339); 
BgL_l2699z00_1357 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2496))->BgL_exprza2za2); } 
{ /* ./Ast/dump.scm 147 */
bool_t BgL_test3762z00_1358;
BgL_test3762z00_1358 = 
NULLP(BgL_l2699z00_1357); 
if(BgL_test3762z00_1358)
{ /* ./Ast/dump.scm 147 */
BgL_arg3759z00_1355 = BNIL; }  else 
{ /* ./Ast/dump.scm 147 */
obj_t BgL_head2701z00_1359;
{ /* ./Ast/dump.scm 147 */
obj_t BgL_arg3783z00_1370;
{ /* ./Ast/dump.scm 147 */
obj_t BgL_arg3787z00_1372;
BgL_arg3787z00_1372 = 
CAR(BgL_l2699z00_1357); 
{ /* ./Ast/dump.scm 147 */
BgL_nodez00_bglt BgL_nodez00_2499;
BgL_nodez00_2499 = 
(BgL_nodez00_bglt)(BgL_arg3787z00_1372); 
{ /* ./Ast/dump.scm 147 */
obj_t BgL_method2771z00_2500;
{ /* ./Ast/dump.scm 147 */
BgL_objectz00_bglt BgL_objz00_2501;
BgL_objz00_2501 = 
(BgL_objectz00_bglt)(BgL_nodez00_2499); 
{ /* ./Ast/dump.scm 147 */
long BgL_objzd2classzd2numz00_2502;
BgL_objzd2classzd2numz00_2502 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2501); 
{ /* ./Ast/dump.scm 147 */
obj_t BgL_arg2017z00_2503;
{ /* ./Ast/dump.scm 147 */
int BgL_auxz00_5097;
BgL_auxz00_5097 = 
(int)(((long)1)); 
BgL_arg2017z00_2503 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5097); } 
{ /* ./Ast/dump.scm 147 */
int BgL_offsetz00_2506;
BgL_offsetz00_2506 = 
(int)(BgL_objzd2classzd2numz00_2502); 
{ /* ./Ast/dump.scm 147 */
long BgL_offsetz00_2507;
{ /* ./Ast/dump.scm 147 */
long BgL_auxz00_5101;
BgL_auxz00_5101 = 
(long)(BgL_offsetz00_2506); 
BgL_offsetz00_2507 = 
(BgL_auxz00_5101-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 147 */
long BgL_modz00_2508;
{ /* ./Ast/dump.scm 147 */
int BgL_arg2028z00_2509;
BgL_arg2028z00_2509 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 147 */
long BgL_n2z00_2517;
BgL_n2z00_2517 = 
(long)(BgL_arg2028z00_2509); 
BgL_modz00_2508 = 
(BgL_offsetz00_2507/BgL_n2z00_2517); } } 
{ /* ./Ast/dump.scm 147 */
long BgL_restz00_2510;
{ /* ./Ast/dump.scm 147 */
int BgL_arg2024z00_2511;
BgL_arg2024z00_2511 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 147 */
long BgL_n2z00_2520;
BgL_n2z00_2520 = 
(long)(BgL_arg2024z00_2511); 
BgL_restz00_2510 = 
(BgL_offsetz00_2507%BgL_n2z00_2520); } } 
{ /* ./Ast/dump.scm 147 */

{ /* ./Ast/dump.scm 147 */
obj_t BgL_bucketz00_2512;
{ /* ./Ast/dump.scm 147 */
int BgL_kz00_2522;
BgL_kz00_2522 = 
(int)(BgL_modz00_2508); 
BgL_bucketz00_2512 = 
VECTOR_REF(BgL_arg2017z00_2503,BgL_kz00_2522); } 
{ /* ./Ast/dump.scm 147 */
int BgL_kz00_2524;
BgL_kz00_2524 = 
(int)(BgL_restz00_2510); 
BgL_method2771z00_2500 = 
VECTOR_REF(BgL_bucketz00_2512,BgL_kz00_2524); } } } } } } } } } } 
BgL_arg3783z00_1370 = 
PROCEDURE_ENTRY(BgL_method2771z00_2500)(BgL_method2771z00_2500, 
(obj_t)(BgL_nodez00_2499), BEOA); } } } 
BgL_head2701z00_1359 = 
MAKE_PAIR(BgL_arg3783z00_1370, BNIL); } 
{ 
obj_t BgL_l2699z00_1360;obj_t BgL_tail2702z00_1361;
{ /* ./Ast/dump.scm 147 */
obj_t BgL_arg3764z00_1363;
BgL_arg3764z00_1363 = 
CDR(BgL_l2699z00_1357); 
BgL_l2699z00_1360 = BgL_arg3764z00_1363; 
BgL_tail2702z00_1361 = BgL_head2701z00_1359; 
BgL_map2700z00_1362:
{ /* ./Ast/dump.scm 147 */
bool_t BgL_test3767z00_1364;
BgL_test3767z00_1364 = 
NULLP(BgL_l2699z00_1360); 
if(BgL_test3767z00_1364)
{ /* ./Ast/dump.scm 147 */
BgL_arg3759z00_1355 = BgL_head2701z00_1359; }  else 
{ /* ./Ast/dump.scm 147 */
obj_t BgL_newtail2703z00_1365;
{ /* ./Ast/dump.scm 147 */
obj_t BgL_arg3774z00_1367;
{ /* ./Ast/dump.scm 147 */
obj_t BgL_arg3778z00_1369;
BgL_arg3778z00_1369 = 
CAR(BgL_l2699z00_1360); 
{ /* ./Ast/dump.scm 147 */
BgL_nodez00_bglt BgL_nodez00_2530;
BgL_nodez00_2530 = 
(BgL_nodez00_bglt)(BgL_arg3778z00_1369); 
{ /* ./Ast/dump.scm 147 */
obj_t BgL_method2771z00_2531;
{ /* ./Ast/dump.scm 147 */
BgL_objectz00_bglt BgL_objz00_2532;
BgL_objz00_2532 = 
(BgL_objectz00_bglt)(BgL_nodez00_2530); 
{ /* ./Ast/dump.scm 147 */
long BgL_objzd2classzd2numz00_2533;
BgL_objzd2classzd2numz00_2533 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2532); 
{ /* ./Ast/dump.scm 147 */
obj_t BgL_arg2017z00_2534;
{ /* ./Ast/dump.scm 147 */
int BgL_auxz00_5125;
BgL_auxz00_5125 = 
(int)(((long)1)); 
BgL_arg2017z00_2534 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5125); } 
{ /* ./Ast/dump.scm 147 */
int BgL_offsetz00_2537;
BgL_offsetz00_2537 = 
(int)(BgL_objzd2classzd2numz00_2533); 
{ /* ./Ast/dump.scm 147 */
long BgL_offsetz00_2538;
{ /* ./Ast/dump.scm 147 */
long BgL_auxz00_5129;
BgL_auxz00_5129 = 
(long)(BgL_offsetz00_2537); 
BgL_offsetz00_2538 = 
(BgL_auxz00_5129-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 147 */
long BgL_modz00_2539;
{ /* ./Ast/dump.scm 147 */
int BgL_arg2028z00_2540;
BgL_arg2028z00_2540 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 147 */
long BgL_n2z00_2548;
BgL_n2z00_2548 = 
(long)(BgL_arg2028z00_2540); 
BgL_modz00_2539 = 
(BgL_offsetz00_2538/BgL_n2z00_2548); } } 
{ /* ./Ast/dump.scm 147 */
long BgL_restz00_2541;
{ /* ./Ast/dump.scm 147 */
int BgL_arg2024z00_2542;
BgL_arg2024z00_2542 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 147 */
long BgL_n2z00_2551;
BgL_n2z00_2551 = 
(long)(BgL_arg2024z00_2542); 
BgL_restz00_2541 = 
(BgL_offsetz00_2538%BgL_n2z00_2551); } } 
{ /* ./Ast/dump.scm 147 */

{ /* ./Ast/dump.scm 147 */
obj_t BgL_bucketz00_2543;
{ /* ./Ast/dump.scm 147 */
int BgL_kz00_2553;
BgL_kz00_2553 = 
(int)(BgL_modz00_2539); 
BgL_bucketz00_2543 = 
VECTOR_REF(BgL_arg2017z00_2534,BgL_kz00_2553); } 
{ /* ./Ast/dump.scm 147 */
int BgL_kz00_2555;
BgL_kz00_2555 = 
(int)(BgL_restz00_2541); 
BgL_method2771z00_2531 = 
VECTOR_REF(BgL_bucketz00_2543,BgL_kz00_2555); } } } } } } } } } } 
BgL_arg3774z00_1367 = 
PROCEDURE_ENTRY(BgL_method2771z00_2531)(BgL_method2771z00_2531, 
(obj_t)(BgL_nodez00_2530), BEOA); } } } 
BgL_newtail2703z00_1365 = 
MAKE_PAIR(BgL_arg3774z00_1367, BNIL); } 
SET_CDR(BgL_tail2702z00_1361, BgL_newtail2703z00_1365); 
{ /* ./Ast/dump.scm 147 */
obj_t BgL_arg3770z00_1366;
BgL_arg3770z00_1366 = 
CDR(BgL_l2699z00_1360); 
{ 
obj_t BgL_tail2702z00_5149;obj_t BgL_l2699z00_5148;
BgL_l2699z00_5148 = BgL_arg3770z00_1366; 
BgL_tail2702z00_5149 = BgL_newtail2703z00_1365; 
BgL_tail2702z00_1361 = BgL_tail2702z00_5149; 
BgL_l2699z00_1360 = BgL_l2699z00_5148; 
goto BgL_map2700z00_1362;} } } } } } } } } 
BgL_arg3752z00_1353 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3759z00_1355, BNIL); } 
BgL_arg3735z00_1346 = 
MAKE_PAIR(BgL_arg3751z00_1352, BgL_arg3752z00_1353); } 
BgL_arg3731z00_1344 = 
MAKE_PAIR(BgL_arg3734z00_1345, BgL_arg3735z00_1346); } 
return 
MAKE_PAIR(BgL_arg3730z00_1343, BgL_arg3731z00_1344);} } } 
}



/* node->sexp-getfield2791 */
obj_t BGl_nodezd2ze3sexpzd2getfield2791ze3zzast_dumpz00(obj_t BgL_envz00_3806, obj_t BgL_nodez00_3807)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 136 */
{ 
BgL_getfieldz00_bglt BgL_nodez00_1317;
BgL_nodez00_1317 = 
(BgL_getfieldz00_bglt)(BgL_nodez00_3807); 
{ /* ./Ast/dump.scm 138 */
obj_t BgL_arg3682z00_1321;obj_t BgL_arg3683z00_1322;
BgL_arg3682z00_1321 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./Ast/dump.scm 138 */
obj_t BgL_arg3686z00_1323;obj_t BgL_arg3687z00_1324;
{ /* ./Ast/dump.scm 138 */
obj_t BgL_arg3690z00_1325;obj_t BgL_arg3691z00_1326;
BgL_arg3690z00_1325 = 
(((BgL_getfieldz00_bglt)CREF(BgL_nodez00_1317))->BgL_fnamez00); 
{ /* ./Ast/dump.scm 138 */
obj_t BgL_arg3695z00_1327;
{ /* ./Ast/dump.scm 138 */
BgL_typez00_bglt BgL_arg3700z00_1329;
BgL_arg3700z00_1329 = 
(((BgL_getfieldz00_bglt)CREF(BgL_nodez00_1317))->BgL_ftypez00); 
BgL_arg3695z00_1327 = 
(((BgL_typez00_bglt)CREF(BgL_arg3700z00_1329))->BgL_idz00); } 
BgL_arg3691z00_1326 = 
MAKE_PAIR(BgL_arg3695z00_1327, BNIL); } 
BgL_arg3686z00_1323 = 
MAKE_PAIR(BgL_arg3690z00_1325, BgL_arg3691z00_1326); } 
{ /* ./Ast/dump.scm 139 */
obj_t BgL_arg3704z00_1330;obj_t BgL_arg3705z00_1331;
{ /* ./Ast/dump.scm 139 */
BgL_typez00_bglt BgL_arg3708z00_1332;
BgL_arg3708z00_1332 = 
(((BgL_getfieldz00_bglt)CREF(BgL_nodez00_1317))->BgL_otypez00); 
BgL_arg3704z00_1330 = 
(((BgL_typez00_bglt)CREF(BgL_arg3708z00_1332))->BgL_idz00); } 
{ /* ./Ast/dump.scm 139 */
obj_t BgL_arg3712z00_1333;
{ /* ./Ast/dump.scm 139 */
obj_t BgL_arg3717z00_1335;
{ /* ./Ast/dump.scm 139 */
obj_t BgL_auxz00_5163;
{ /* ./Ast/dump.scm 139 */
BgL_externz00_bglt BgL_obj1817z00_2463;
BgL_obj1817z00_2463 = 
(BgL_externz00_bglt)(BgL_nodez00_1317); 
BgL_auxz00_5163 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2463))->BgL_exprza2za2); } 
BgL_arg3717z00_1335 = 
CAR(BgL_auxz00_5163); } 
{ /* ./Ast/dump.scm 139 */
BgL_nodez00_bglt BgL_nodez00_2465;
BgL_nodez00_2465 = 
(BgL_nodez00_bglt)(BgL_arg3717z00_1335); 
{ /* ./Ast/dump.scm 139 */
obj_t BgL_method2771z00_2466;
{ /* ./Ast/dump.scm 139 */
BgL_objectz00_bglt BgL_objz00_2467;
BgL_objz00_2467 = 
(BgL_objectz00_bglt)(BgL_nodez00_2465); 
{ /* ./Ast/dump.scm 139 */
long BgL_objzd2classzd2numz00_2468;
BgL_objzd2classzd2numz00_2468 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2467); 
{ /* ./Ast/dump.scm 139 */
obj_t BgL_arg2017z00_2469;
{ /* ./Ast/dump.scm 139 */
int BgL_auxz00_5170;
BgL_auxz00_5170 = 
(int)(((long)1)); 
BgL_arg2017z00_2469 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5170); } 
{ /* ./Ast/dump.scm 139 */
int BgL_offsetz00_2472;
BgL_offsetz00_2472 = 
(int)(BgL_objzd2classzd2numz00_2468); 
{ /* ./Ast/dump.scm 139 */
long BgL_offsetz00_2473;
{ /* ./Ast/dump.scm 139 */
long BgL_auxz00_5174;
BgL_auxz00_5174 = 
(long)(BgL_offsetz00_2472); 
BgL_offsetz00_2473 = 
(BgL_auxz00_5174-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 139 */
long BgL_modz00_2474;
{ /* ./Ast/dump.scm 139 */
int BgL_arg2028z00_2475;
BgL_arg2028z00_2475 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 139 */
long BgL_n2z00_2483;
BgL_n2z00_2483 = 
(long)(BgL_arg2028z00_2475); 
BgL_modz00_2474 = 
(BgL_offsetz00_2473/BgL_n2z00_2483); } } 
{ /* ./Ast/dump.scm 139 */
long BgL_restz00_2476;
{ /* ./Ast/dump.scm 139 */
int BgL_arg2024z00_2477;
BgL_arg2024z00_2477 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 139 */
long BgL_n2z00_2486;
BgL_n2z00_2486 = 
(long)(BgL_arg2024z00_2477); 
BgL_restz00_2476 = 
(BgL_offsetz00_2473%BgL_n2z00_2486); } } 
{ /* ./Ast/dump.scm 139 */

{ /* ./Ast/dump.scm 139 */
obj_t BgL_bucketz00_2478;
{ /* ./Ast/dump.scm 139 */
int BgL_kz00_2488;
BgL_kz00_2488 = 
(int)(BgL_modz00_2474); 
BgL_bucketz00_2478 = 
VECTOR_REF(BgL_arg2017z00_2469,BgL_kz00_2488); } 
{ /* ./Ast/dump.scm 139 */
int BgL_kz00_2490;
BgL_kz00_2490 = 
(int)(BgL_restz00_2476); 
BgL_method2771z00_2466 = 
VECTOR_REF(BgL_bucketz00_2478,BgL_kz00_2490); } } } } } } } } } } 
BgL_arg3712z00_1333 = 
PROCEDURE_ENTRY(BgL_method2771z00_2466)(BgL_method2771z00_2466, 
(obj_t)(BgL_nodez00_2465), BEOA); } } } 
BgL_arg3705z00_1331 = 
MAKE_PAIR(BgL_arg3712z00_1333, BNIL); } 
BgL_arg3687z00_1324 = 
MAKE_PAIR(BgL_arg3704z00_1330, BgL_arg3705z00_1331); } 
BgL_arg3683z00_1322 = 
MAKE_PAIR(BgL_arg3686z00_1323, BgL_arg3687z00_1324); } 
return 
MAKE_PAIR(BgL_arg3682z00_1321, BgL_arg3683z00_1322);} } } 
}



/* node->sexp-pragma2789 */
obj_t BGl_nodezd2ze3sexpzd2pragma2789ze3zzast_dumpz00(obj_t BgL_envz00_3808, obj_t BgL_nodez00_3809)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 122 */
{ 
BgL_pragmaz00_bglt BgL_nodez00_1284;
BgL_nodez00_1284 = 
(BgL_pragmaz00_bglt)(BgL_nodez00_3809); 
{ /* ./Ast/dump.scm 123 */
obj_t BgL_arg3619z00_1287;obj_t BgL_arg3620z00_1288;
{ /* ./Ast/dump.scm 123 */
BgL_nodez00_bglt BgL_obj1560z00_2389;
BgL_obj1560z00_2389 = 
(BgL_nodez00_bglt)(BgL_nodez00_1284); 
BgL_arg3619z00_1287 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2389))->BgL_locz00); } 
{ /* ./Ast/dump.scm 124 */
obj_t BgL_pz00_1289;
{ /* ./Ast/dump.scm 124 */
bool_t BgL_testz00_5197;
{ /* ./Ast/dump.scm 124 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_2390;
BgL_obj1578z00_2390 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1284); 
{ /* ./Ast/dump.scm 124 */
obj_t BgL_auxz00_5199;
BgL_auxz00_5199 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_2390))->BgL_sidezd2effectzf3z21); 
BgL_testz00_5197 = 
CBOOL(BgL_auxz00_5199); } } 
if(BgL_testz00_5197)
{ /* ./Ast/dump.scm 124 */
BgL_pz00_1289 = 
CNST_TABLE_REF(((long)20)); }  else 
{ /* ./Ast/dump.scm 124 */
BgL_pz00_1289 = 
CNST_TABLE_REF(((long)21)); } } 
{ /* ./Ast/dump.scm 127 */
obj_t BgL_arg3624z00_1290;obj_t BgL_arg3625z00_1291;
if(
CBOOL(BGl_za2typezd2shapezf3za2z21zzengine_paramz00))
{ /* ./Ast/dump.scm 128 */
obj_t BgL_arg3628z00_1292;
{ /* ./Ast/dump.scm 128 */
BgL_typez00_bglt BgL_arg3631z00_1293;
BgL_arg3631z00_1293 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_nodez00_1284)); 
BgL_arg3628z00_1292 = 
(((BgL_typez00_bglt)CREF(BgL_arg3631z00_1293))->BgL_idz00); } 
BgL_arg3624z00_1290 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_pz00_1289, BgL_arg3628z00_1292); }  else 
{ /* ./Ast/dump.scm 127 */
BgL_arg3624z00_1290 = BgL_pz00_1289; } 
{ /* ./Ast/dump.scm 130 */
obj_t BgL_arg3635z00_1294;obj_t BgL_arg3636z00_1295;
BgL_arg3635z00_1294 = 
(((BgL_pragmaz00_bglt)CREF(BgL_nodez00_1284))->BgL_formatz00); 
{ /* ./Ast/dump.scm 131 */
obj_t BgL_arg3640z00_1296;
{ /* ./Ast/dump.scm 131 */
obj_t BgL_l2690z00_1298;
{ /* ./Ast/dump.scm 131 */
BgL_externz00_bglt BgL_obj1817z00_2393;
BgL_obj1817z00_2393 = 
(BgL_externz00_bglt)(BgL_nodez00_1284); 
BgL_l2690z00_1298 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2393))->BgL_exprza2za2); } 
{ /* ./Ast/dump.scm 131 */
bool_t BgL_test3643z00_1299;
BgL_test3643z00_1299 = 
NULLP(BgL_l2690z00_1298); 
if(BgL_test3643z00_1299)
{ /* ./Ast/dump.scm 131 */
BgL_arg3640z00_1296 = BNIL; }  else 
{ /* ./Ast/dump.scm 131 */
obj_t BgL_head2692z00_1300;
{ /* ./Ast/dump.scm 131 */
obj_t BgL_arg3664z00_1311;
{ /* ./Ast/dump.scm 131 */
obj_t BgL_arg3668z00_1313;
BgL_arg3668z00_1313 = 
CAR(BgL_l2690z00_1298); 
{ /* ./Ast/dump.scm 131 */
BgL_nodez00_bglt BgL_nodez00_2396;
BgL_nodez00_2396 = 
(BgL_nodez00_bglt)(BgL_arg3668z00_1313); 
{ /* ./Ast/dump.scm 131 */
obj_t BgL_method2771z00_2397;
{ /* ./Ast/dump.scm 131 */
BgL_objectz00_bglt BgL_objz00_2398;
BgL_objz00_2398 = 
(BgL_objectz00_bglt)(BgL_nodez00_2396); 
{ /* ./Ast/dump.scm 131 */
long BgL_objzd2classzd2numz00_2399;
BgL_objzd2classzd2numz00_2399 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2398); 
{ /* ./Ast/dump.scm 131 */
obj_t BgL_arg2017z00_2400;
{ /* ./Ast/dump.scm 131 */
int BgL_auxz00_5219;
BgL_auxz00_5219 = 
(int)(((long)1)); 
BgL_arg2017z00_2400 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5219); } 
{ /* ./Ast/dump.scm 131 */
int BgL_offsetz00_2403;
BgL_offsetz00_2403 = 
(int)(BgL_objzd2classzd2numz00_2399); 
{ /* ./Ast/dump.scm 131 */
long BgL_offsetz00_2404;
{ /* ./Ast/dump.scm 131 */
long BgL_auxz00_5223;
BgL_auxz00_5223 = 
(long)(BgL_offsetz00_2403); 
BgL_offsetz00_2404 = 
(BgL_auxz00_5223-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 131 */
long BgL_modz00_2405;
{ /* ./Ast/dump.scm 131 */
int BgL_arg2028z00_2406;
BgL_arg2028z00_2406 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 131 */
long BgL_n2z00_2414;
BgL_n2z00_2414 = 
(long)(BgL_arg2028z00_2406); 
BgL_modz00_2405 = 
(BgL_offsetz00_2404/BgL_n2z00_2414); } } 
{ /* ./Ast/dump.scm 131 */
long BgL_restz00_2407;
{ /* ./Ast/dump.scm 131 */
int BgL_arg2024z00_2408;
BgL_arg2024z00_2408 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 131 */
long BgL_n2z00_2417;
BgL_n2z00_2417 = 
(long)(BgL_arg2024z00_2408); 
BgL_restz00_2407 = 
(BgL_offsetz00_2404%BgL_n2z00_2417); } } 
{ /* ./Ast/dump.scm 131 */

{ /* ./Ast/dump.scm 131 */
obj_t BgL_bucketz00_2409;
{ /* ./Ast/dump.scm 131 */
int BgL_kz00_2419;
BgL_kz00_2419 = 
(int)(BgL_modz00_2405); 
BgL_bucketz00_2409 = 
VECTOR_REF(BgL_arg2017z00_2400,BgL_kz00_2419); } 
{ /* ./Ast/dump.scm 131 */
int BgL_kz00_2421;
BgL_kz00_2421 = 
(int)(BgL_restz00_2407); 
BgL_method2771z00_2397 = 
VECTOR_REF(BgL_bucketz00_2409,BgL_kz00_2421); } } } } } } } } } } 
BgL_arg3664z00_1311 = 
PROCEDURE_ENTRY(BgL_method2771z00_2397)(BgL_method2771z00_2397, 
(obj_t)(BgL_nodez00_2396), BEOA); } } } 
BgL_head2692z00_1300 = 
MAKE_PAIR(BgL_arg3664z00_1311, BNIL); } 
{ 
obj_t BgL_l2690z00_1301;obj_t BgL_tail2693z00_1302;
{ /* ./Ast/dump.scm 131 */
obj_t BgL_arg3645z00_1304;
BgL_arg3645z00_1304 = 
CDR(BgL_l2690z00_1298); 
BgL_l2690z00_1301 = BgL_arg3645z00_1304; 
BgL_tail2693z00_1302 = BgL_head2692z00_1300; 
BgL_map2691z00_1303:
{ /* ./Ast/dump.scm 131 */
bool_t BgL_test3648z00_1305;
BgL_test3648z00_1305 = 
NULLP(BgL_l2690z00_1301); 
if(BgL_test3648z00_1305)
{ /* ./Ast/dump.scm 131 */
BgL_arg3640z00_1296 = BgL_head2692z00_1300; }  else 
{ /* ./Ast/dump.scm 131 */
obj_t BgL_newtail2694z00_1306;
{ /* ./Ast/dump.scm 131 */
obj_t BgL_arg3655z00_1308;
{ /* ./Ast/dump.scm 131 */
obj_t BgL_arg3659z00_1310;
BgL_arg3659z00_1310 = 
CAR(BgL_l2690z00_1301); 
{ /* ./Ast/dump.scm 131 */
BgL_nodez00_bglt BgL_nodez00_2427;
BgL_nodez00_2427 = 
(BgL_nodez00_bglt)(BgL_arg3659z00_1310); 
{ /* ./Ast/dump.scm 131 */
obj_t BgL_method2771z00_2428;
{ /* ./Ast/dump.scm 131 */
BgL_objectz00_bglt BgL_objz00_2429;
BgL_objz00_2429 = 
(BgL_objectz00_bglt)(BgL_nodez00_2427); 
{ /* ./Ast/dump.scm 131 */
long BgL_objzd2classzd2numz00_2430;
BgL_objzd2classzd2numz00_2430 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2429); 
{ /* ./Ast/dump.scm 131 */
obj_t BgL_arg2017z00_2431;
{ /* ./Ast/dump.scm 131 */
int BgL_auxz00_5247;
BgL_auxz00_5247 = 
(int)(((long)1)); 
BgL_arg2017z00_2431 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5247); } 
{ /* ./Ast/dump.scm 131 */
int BgL_offsetz00_2434;
BgL_offsetz00_2434 = 
(int)(BgL_objzd2classzd2numz00_2430); 
{ /* ./Ast/dump.scm 131 */
long BgL_offsetz00_2435;
{ /* ./Ast/dump.scm 131 */
long BgL_auxz00_5251;
BgL_auxz00_5251 = 
(long)(BgL_offsetz00_2434); 
BgL_offsetz00_2435 = 
(BgL_auxz00_5251-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 131 */
long BgL_modz00_2436;
{ /* ./Ast/dump.scm 131 */
int BgL_arg2028z00_2437;
BgL_arg2028z00_2437 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 131 */
long BgL_n2z00_2445;
BgL_n2z00_2445 = 
(long)(BgL_arg2028z00_2437); 
BgL_modz00_2436 = 
(BgL_offsetz00_2435/BgL_n2z00_2445); } } 
{ /* ./Ast/dump.scm 131 */
long BgL_restz00_2438;
{ /* ./Ast/dump.scm 131 */
int BgL_arg2024z00_2439;
BgL_arg2024z00_2439 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 131 */
long BgL_n2z00_2448;
BgL_n2z00_2448 = 
(long)(BgL_arg2024z00_2439); 
BgL_restz00_2438 = 
(BgL_offsetz00_2435%BgL_n2z00_2448); } } 
{ /* ./Ast/dump.scm 131 */

{ /* ./Ast/dump.scm 131 */
obj_t BgL_bucketz00_2440;
{ /* ./Ast/dump.scm 131 */
int BgL_kz00_2450;
BgL_kz00_2450 = 
(int)(BgL_modz00_2436); 
BgL_bucketz00_2440 = 
VECTOR_REF(BgL_arg2017z00_2431,BgL_kz00_2450); } 
{ /* ./Ast/dump.scm 131 */
int BgL_kz00_2452;
BgL_kz00_2452 = 
(int)(BgL_restz00_2438); 
BgL_method2771z00_2428 = 
VECTOR_REF(BgL_bucketz00_2440,BgL_kz00_2452); } } } } } } } } } } 
BgL_arg3655z00_1308 = 
PROCEDURE_ENTRY(BgL_method2771z00_2428)(BgL_method2771z00_2428, 
(obj_t)(BgL_nodez00_2427), BEOA); } } } 
BgL_newtail2694z00_1306 = 
MAKE_PAIR(BgL_arg3655z00_1308, BNIL); } 
SET_CDR(BgL_tail2693z00_1302, BgL_newtail2694z00_1306); 
{ /* ./Ast/dump.scm 131 */
obj_t BgL_arg3651z00_1307;
BgL_arg3651z00_1307 = 
CDR(BgL_l2690z00_1301); 
{ 
obj_t BgL_tail2693z00_5271;obj_t BgL_l2690z00_5270;
BgL_l2690z00_5270 = BgL_arg3651z00_1307; 
BgL_tail2693z00_5271 = BgL_newtail2694z00_1306; 
BgL_tail2693z00_1302 = BgL_tail2693z00_5271; 
BgL_l2690z00_1301 = BgL_l2690z00_5270; 
goto BgL_map2691z00_1303;} } } } } } } } } 
BgL_arg3636z00_1295 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3640z00_1296, BNIL); } 
BgL_arg3625z00_1291 = 
MAKE_PAIR(BgL_arg3635z00_1294, BgL_arg3636z00_1295); } 
BgL_arg3620z00_1288 = 
MAKE_PAIR(BgL_arg3624z00_1290, BgL_arg3625z00_1291); } } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg3619z00_1287, BgL_arg3620z00_1288);} } } 
}



/* node->sexp-funcall2787 */
obj_t BGl_nodezd2ze3sexpzd2funcall2787ze3zzast_dumpz00(obj_t BgL_envz00_3810, obj_t BgL_nodez00_3811)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 107 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1251;
BgL_nodez00_1251 = 
(BgL_funcallz00_bglt)(BgL_nodez00_3811); 
{ /* ./Ast/dump.scm 108 */
obj_t BgL_arg3556z00_1254;obj_t BgL_arg3557z00_1255;
{ /* ./Ast/dump.scm 108 */
BgL_nodez00_bglt BgL_obj1560z00_2295;
BgL_obj1560z00_2295 = 
(BgL_nodez00_bglt)(BgL_nodez00_1251); 
BgL_arg3556z00_1254 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2295))->BgL_locz00); } 
{ /* ./Ast/dump.scm 109 */
obj_t BgL_arg3561z00_1256;obj_t BgL_arg3562z00_1257;
{ /* ./Ast/dump.scm 109 */
obj_t BgL_casezd2valuezd2_1258;
BgL_casezd2valuezd2_1258 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1251))->BgL_strengthz00); 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1258, 
CNST_TABLE_REF(((long)22))))
{ /* ./Ast/dump.scm 109 */
BgL_arg3561z00_1256 = 
CNST_TABLE_REF(((long)23)); }  else 
{ /* ./Ast/dump.scm 109 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1258, 
CNST_TABLE_REF(((long)24))))
{ /* ./Ast/dump.scm 109 */
BgL_arg3561z00_1256 = 
CNST_TABLE_REF(((long)25)); }  else 
{ /* ./Ast/dump.scm 109 */
BgL_arg3561z00_1256 = 
CNST_TABLE_REF(((long)26)); } } } 
{ /* ./Ast/dump.scm 116 */
obj_t BgL_arg3570z00_1261;obj_t BgL_arg3571z00_1262;
{ /* ./Ast/dump.scm 116 */
BgL_nodez00_bglt BgL_arg3574z00_1263;
BgL_arg3574z00_1263 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1251))->BgL_funz00); 
{ /* ./Ast/dump.scm 116 */
obj_t BgL_method2771z00_2299;
{ /* ./Ast/dump.scm 116 */
BgL_objectz00_bglt BgL_objz00_2300;
BgL_objz00_2300 = 
(BgL_objectz00_bglt)(BgL_arg3574z00_1263); 
{ /* ./Ast/dump.scm 116 */
long BgL_objzd2classzd2numz00_2301;
BgL_objzd2classzd2numz00_2301 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2300); 
{ /* ./Ast/dump.scm 116 */
obj_t BgL_arg2017z00_2302;
{ /* ./Ast/dump.scm 116 */
int BgL_auxz00_5292;
BgL_auxz00_5292 = 
(int)(((long)1)); 
BgL_arg2017z00_2302 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5292); } 
{ /* ./Ast/dump.scm 116 */
int BgL_offsetz00_2305;
BgL_offsetz00_2305 = 
(int)(BgL_objzd2classzd2numz00_2301); 
{ /* ./Ast/dump.scm 116 */
long BgL_offsetz00_2306;
{ /* ./Ast/dump.scm 116 */
long BgL_auxz00_5296;
BgL_auxz00_5296 = 
(long)(BgL_offsetz00_2305); 
BgL_offsetz00_2306 = 
(BgL_auxz00_5296-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 116 */
long BgL_modz00_2307;
{ /* ./Ast/dump.scm 116 */
int BgL_arg2028z00_2308;
BgL_arg2028z00_2308 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 116 */
long BgL_n2z00_2316;
BgL_n2z00_2316 = 
(long)(BgL_arg2028z00_2308); 
BgL_modz00_2307 = 
(BgL_offsetz00_2306/BgL_n2z00_2316); } } 
{ /* ./Ast/dump.scm 116 */
long BgL_restz00_2309;
{ /* ./Ast/dump.scm 116 */
int BgL_arg2024z00_2310;
BgL_arg2024z00_2310 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 116 */
long BgL_n2z00_2319;
BgL_n2z00_2319 = 
(long)(BgL_arg2024z00_2310); 
BgL_restz00_2309 = 
(BgL_offsetz00_2306%BgL_n2z00_2319); } } 
{ /* ./Ast/dump.scm 116 */

{ /* ./Ast/dump.scm 116 */
obj_t BgL_bucketz00_2311;
{ /* ./Ast/dump.scm 116 */
int BgL_kz00_2321;
BgL_kz00_2321 = 
(int)(BgL_modz00_2307); 
BgL_bucketz00_2311 = 
VECTOR_REF(BgL_arg2017z00_2302,BgL_kz00_2321); } 
{ /* ./Ast/dump.scm 116 */
int BgL_kz00_2323;
BgL_kz00_2323 = 
(int)(BgL_restz00_2309); 
BgL_method2771z00_2299 = 
VECTOR_REF(BgL_bucketz00_2311,BgL_kz00_2323); } } } } } } } } } } 
BgL_arg3570z00_1261 = 
PROCEDURE_ENTRY(BgL_method2771z00_2299)(BgL_method2771z00_2299, 
(obj_t)(BgL_arg3574z00_1263), BEOA); } } 
{ /* ./Ast/dump.scm 117 */
obj_t BgL_arg3578z00_1264;
{ /* ./Ast/dump.scm 117 */
obj_t BgL_l2685z00_1266;
BgL_l2685z00_1266 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1251))->BgL_argsz00); 
{ /* ./Ast/dump.scm 117 */
bool_t BgL_test3581z00_1267;
BgL_test3581z00_1267 = 
NULLP(BgL_l2685z00_1266); 
if(BgL_test3581z00_1267)
{ /* ./Ast/dump.scm 117 */
BgL_arg3578z00_1264 = BNIL; }  else 
{ /* ./Ast/dump.scm 117 */
obj_t BgL_head2687z00_1268;
{ /* ./Ast/dump.scm 117 */
obj_t BgL_arg3602z00_1279;
{ /* ./Ast/dump.scm 117 */
obj_t BgL_arg3607z00_1281;
BgL_arg3607z00_1281 = 
CAR(BgL_l2685z00_1266); 
{ /* ./Ast/dump.scm 117 */
BgL_nodez00_bglt BgL_nodez00_2327;
BgL_nodez00_2327 = 
(BgL_nodez00_bglt)(BgL_arg3607z00_1281); 
{ /* ./Ast/dump.scm 117 */
obj_t BgL_method2771z00_2328;
{ /* ./Ast/dump.scm 117 */
BgL_objectz00_bglt BgL_objz00_2329;
BgL_objz00_2329 = 
(BgL_objectz00_bglt)(BgL_nodez00_2327); 
{ /* ./Ast/dump.scm 117 */
long BgL_objzd2classzd2numz00_2330;
BgL_objzd2classzd2numz00_2330 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2329); 
{ /* ./Ast/dump.scm 117 */
obj_t BgL_arg2017z00_2331;
{ /* ./Ast/dump.scm 117 */
int BgL_auxz00_5319;
BgL_auxz00_5319 = 
(int)(((long)1)); 
BgL_arg2017z00_2331 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5319); } 
{ /* ./Ast/dump.scm 117 */
int BgL_offsetz00_2334;
BgL_offsetz00_2334 = 
(int)(BgL_objzd2classzd2numz00_2330); 
{ /* ./Ast/dump.scm 117 */
long BgL_offsetz00_2335;
{ /* ./Ast/dump.scm 117 */
long BgL_auxz00_5323;
BgL_auxz00_5323 = 
(long)(BgL_offsetz00_2334); 
BgL_offsetz00_2335 = 
(BgL_auxz00_5323-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 117 */
long BgL_modz00_2336;
{ /* ./Ast/dump.scm 117 */
int BgL_arg2028z00_2337;
BgL_arg2028z00_2337 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 117 */
long BgL_n2z00_2345;
BgL_n2z00_2345 = 
(long)(BgL_arg2028z00_2337); 
BgL_modz00_2336 = 
(BgL_offsetz00_2335/BgL_n2z00_2345); } } 
{ /* ./Ast/dump.scm 117 */
long BgL_restz00_2338;
{ /* ./Ast/dump.scm 117 */
int BgL_arg2024z00_2339;
BgL_arg2024z00_2339 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 117 */
long BgL_n2z00_2348;
BgL_n2z00_2348 = 
(long)(BgL_arg2024z00_2339); 
BgL_restz00_2338 = 
(BgL_offsetz00_2335%BgL_n2z00_2348); } } 
{ /* ./Ast/dump.scm 117 */

{ /* ./Ast/dump.scm 117 */
obj_t BgL_bucketz00_2340;
{ /* ./Ast/dump.scm 117 */
int BgL_kz00_2350;
BgL_kz00_2350 = 
(int)(BgL_modz00_2336); 
BgL_bucketz00_2340 = 
VECTOR_REF(BgL_arg2017z00_2331,BgL_kz00_2350); } 
{ /* ./Ast/dump.scm 117 */
int BgL_kz00_2352;
BgL_kz00_2352 = 
(int)(BgL_restz00_2338); 
BgL_method2771z00_2328 = 
VECTOR_REF(BgL_bucketz00_2340,BgL_kz00_2352); } } } } } } } } } } 
BgL_arg3602z00_1279 = 
PROCEDURE_ENTRY(BgL_method2771z00_2328)(BgL_method2771z00_2328, 
(obj_t)(BgL_nodez00_2327), BEOA); } } } 
BgL_head2687z00_1268 = 
MAKE_PAIR(BgL_arg3602z00_1279, BNIL); } 
{ 
obj_t BgL_l2685z00_1269;obj_t BgL_tail2688z00_1270;
{ /* ./Ast/dump.scm 117 */
obj_t BgL_arg3583z00_1272;
BgL_arg3583z00_1272 = 
CDR(BgL_l2685z00_1266); 
BgL_l2685z00_1269 = BgL_arg3583z00_1272; 
BgL_tail2688z00_1270 = BgL_head2687z00_1268; 
BgL_map2686z00_1271:
{ /* ./Ast/dump.scm 117 */
bool_t BgL_test3586z00_1273;
BgL_test3586z00_1273 = 
NULLP(BgL_l2685z00_1269); 
if(BgL_test3586z00_1273)
{ /* ./Ast/dump.scm 117 */
BgL_arg3578z00_1264 = BgL_head2687z00_1268; }  else 
{ /* ./Ast/dump.scm 117 */
obj_t BgL_newtail2689z00_1274;
{ /* ./Ast/dump.scm 117 */
obj_t BgL_arg3593z00_1276;
{ /* ./Ast/dump.scm 117 */
obj_t BgL_arg3597z00_1278;
BgL_arg3597z00_1278 = 
CAR(BgL_l2685z00_1269); 
{ /* ./Ast/dump.scm 117 */
BgL_nodez00_bglt BgL_nodez00_2358;
BgL_nodez00_2358 = 
(BgL_nodez00_bglt)(BgL_arg3597z00_1278); 
{ /* ./Ast/dump.scm 117 */
obj_t BgL_method2771z00_2359;
{ /* ./Ast/dump.scm 117 */
BgL_objectz00_bglt BgL_objz00_2360;
BgL_objz00_2360 = 
(BgL_objectz00_bglt)(BgL_nodez00_2358); 
{ /* ./Ast/dump.scm 117 */
long BgL_objzd2classzd2numz00_2361;
BgL_objzd2classzd2numz00_2361 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2360); 
{ /* ./Ast/dump.scm 117 */
obj_t BgL_arg2017z00_2362;
{ /* ./Ast/dump.scm 117 */
int BgL_auxz00_5347;
BgL_auxz00_5347 = 
(int)(((long)1)); 
BgL_arg2017z00_2362 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5347); } 
{ /* ./Ast/dump.scm 117 */
int BgL_offsetz00_2365;
BgL_offsetz00_2365 = 
(int)(BgL_objzd2classzd2numz00_2361); 
{ /* ./Ast/dump.scm 117 */
long BgL_offsetz00_2366;
{ /* ./Ast/dump.scm 117 */
long BgL_auxz00_5351;
BgL_auxz00_5351 = 
(long)(BgL_offsetz00_2365); 
BgL_offsetz00_2366 = 
(BgL_auxz00_5351-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 117 */
long BgL_modz00_2367;
{ /* ./Ast/dump.scm 117 */
int BgL_arg2028z00_2368;
BgL_arg2028z00_2368 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 117 */
long BgL_n2z00_2376;
BgL_n2z00_2376 = 
(long)(BgL_arg2028z00_2368); 
BgL_modz00_2367 = 
(BgL_offsetz00_2366/BgL_n2z00_2376); } } 
{ /* ./Ast/dump.scm 117 */
long BgL_restz00_2369;
{ /* ./Ast/dump.scm 117 */
int BgL_arg2024z00_2370;
BgL_arg2024z00_2370 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 117 */
long BgL_n2z00_2379;
BgL_n2z00_2379 = 
(long)(BgL_arg2024z00_2370); 
BgL_restz00_2369 = 
(BgL_offsetz00_2366%BgL_n2z00_2379); } } 
{ /* ./Ast/dump.scm 117 */

{ /* ./Ast/dump.scm 117 */
obj_t BgL_bucketz00_2371;
{ /* ./Ast/dump.scm 117 */
int BgL_kz00_2381;
BgL_kz00_2381 = 
(int)(BgL_modz00_2367); 
BgL_bucketz00_2371 = 
VECTOR_REF(BgL_arg2017z00_2362,BgL_kz00_2381); } 
{ /* ./Ast/dump.scm 117 */
int BgL_kz00_2383;
BgL_kz00_2383 = 
(int)(BgL_restz00_2369); 
BgL_method2771z00_2359 = 
VECTOR_REF(BgL_bucketz00_2371,BgL_kz00_2383); } } } } } } } } } } 
BgL_arg3593z00_1276 = 
PROCEDURE_ENTRY(BgL_method2771z00_2359)(BgL_method2771z00_2359, 
(obj_t)(BgL_nodez00_2358), BEOA); } } } 
BgL_newtail2689z00_1274 = 
MAKE_PAIR(BgL_arg3593z00_1276, BNIL); } 
SET_CDR(BgL_tail2688z00_1270, BgL_newtail2689z00_1274); 
{ /* ./Ast/dump.scm 117 */
obj_t BgL_arg3589z00_1275;
BgL_arg3589z00_1275 = 
CDR(BgL_l2685z00_1269); 
{ 
obj_t BgL_tail2688z00_5371;obj_t BgL_l2685z00_5370;
BgL_l2685z00_5370 = BgL_arg3589z00_1275; 
BgL_tail2688z00_5371 = BgL_newtail2689z00_1274; 
BgL_tail2688z00_1270 = BgL_tail2688z00_5371; 
BgL_l2685z00_1269 = BgL_l2685z00_5370; 
goto BgL_map2686z00_1271;} } } } } } } } } 
BgL_arg3571z00_1262 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3578z00_1264, BNIL); } 
BgL_arg3562z00_1257 = 
MAKE_PAIR(BgL_arg3570z00_1261, BgL_arg3571z00_1262); } 
BgL_arg3557z00_1255 = 
MAKE_PAIR(BgL_arg3561z00_1256, BgL_arg3562z00_1257); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg3556z00_1254, BgL_arg3557z00_1255);} } } 
}



/* node->sexp-app-ly2785 */
obj_t BGl_nodezd2ze3sexpzd2appzd2ly2785z31zzast_dumpz00(obj_t BgL_envz00_3812, obj_t BgL_nodez00_3813)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 99 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1236;
BgL_nodez00_1236 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_3813); 
{ /* ./Ast/dump.scm 100 */
obj_t BgL_arg3525z00_1239;obj_t BgL_arg3526z00_1240;
{ /* ./Ast/dump.scm 100 */
BgL_nodez00_bglt BgL_obj1560z00_2240;
BgL_obj1560z00_2240 = 
(BgL_nodez00_bglt)(BgL_nodez00_1236); 
BgL_arg3525z00_1239 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2240))->BgL_locz00); } 
{ /* ./Ast/dump.scm 101 */
obj_t BgL_arg3530z00_1241;obj_t BgL_arg3531z00_1242;
BgL_arg3530z00_1241 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Ast/dump.scm 101 */
obj_t BgL_arg3534z00_1243;obj_t BgL_arg3535z00_1244;
{ /* ./Ast/dump.scm 101 */
BgL_nodez00_bglt BgL_arg3538z00_1245;
BgL_arg3538z00_1245 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1236))->BgL_funz00); 
{ /* ./Ast/dump.scm 101 */
obj_t BgL_method2771z00_2243;
{ /* ./Ast/dump.scm 101 */
BgL_objectz00_bglt BgL_objz00_2244;
BgL_objz00_2244 = 
(BgL_objectz00_bglt)(BgL_arg3538z00_1245); 
{ /* ./Ast/dump.scm 101 */
long BgL_objzd2classzd2numz00_2245;
BgL_objzd2classzd2numz00_2245 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2244); 
{ /* ./Ast/dump.scm 101 */
obj_t BgL_arg2017z00_2246;
{ /* ./Ast/dump.scm 101 */
int BgL_auxz00_5383;
BgL_auxz00_5383 = 
(int)(((long)1)); 
BgL_arg2017z00_2246 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5383); } 
{ /* ./Ast/dump.scm 101 */
int BgL_offsetz00_2249;
BgL_offsetz00_2249 = 
(int)(BgL_objzd2classzd2numz00_2245); 
{ /* ./Ast/dump.scm 101 */
long BgL_offsetz00_2250;
{ /* ./Ast/dump.scm 101 */
long BgL_auxz00_5387;
BgL_auxz00_5387 = 
(long)(BgL_offsetz00_2249); 
BgL_offsetz00_2250 = 
(BgL_auxz00_5387-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 101 */
long BgL_modz00_2251;
{ /* ./Ast/dump.scm 101 */
int BgL_arg2028z00_2252;
BgL_arg2028z00_2252 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 101 */
long BgL_n2z00_2260;
BgL_n2z00_2260 = 
(long)(BgL_arg2028z00_2252); 
BgL_modz00_2251 = 
(BgL_offsetz00_2250/BgL_n2z00_2260); } } 
{ /* ./Ast/dump.scm 101 */
long BgL_restz00_2253;
{ /* ./Ast/dump.scm 101 */
int BgL_arg2024z00_2254;
BgL_arg2024z00_2254 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 101 */
long BgL_n2z00_2263;
BgL_n2z00_2263 = 
(long)(BgL_arg2024z00_2254); 
BgL_restz00_2253 = 
(BgL_offsetz00_2250%BgL_n2z00_2263); } } 
{ /* ./Ast/dump.scm 101 */

{ /* ./Ast/dump.scm 101 */
obj_t BgL_bucketz00_2255;
{ /* ./Ast/dump.scm 101 */
int BgL_kz00_2265;
BgL_kz00_2265 = 
(int)(BgL_modz00_2251); 
BgL_bucketz00_2255 = 
VECTOR_REF(BgL_arg2017z00_2246,BgL_kz00_2265); } 
{ /* ./Ast/dump.scm 101 */
int BgL_kz00_2267;
BgL_kz00_2267 = 
(int)(BgL_restz00_2253); 
BgL_method2771z00_2243 = 
VECTOR_REF(BgL_bucketz00_2255,BgL_kz00_2267); } } } } } } } } } } 
BgL_arg3534z00_1243 = 
PROCEDURE_ENTRY(BgL_method2771z00_2243)(BgL_method2771z00_2243, 
(obj_t)(BgL_arg3538z00_1245), BEOA); } } 
{ /* ./Ast/dump.scm 102 */
obj_t BgL_arg3542z00_1246;
{ /* ./Ast/dump.scm 102 */
BgL_nodez00_bglt BgL_arg3546z00_1248;
BgL_arg3546z00_1248 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1236))->BgL_argz00); 
{ /* ./Ast/dump.scm 102 */
obj_t BgL_method2771z00_2270;
{ /* ./Ast/dump.scm 102 */
BgL_objectz00_bglt BgL_objz00_2271;
BgL_objz00_2271 = 
(BgL_objectz00_bglt)(BgL_arg3546z00_1248); 
{ /* ./Ast/dump.scm 102 */
long BgL_objzd2classzd2numz00_2272;
BgL_objzd2classzd2numz00_2272 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2271); 
{ /* ./Ast/dump.scm 102 */
obj_t BgL_arg2017z00_2273;
{ /* ./Ast/dump.scm 102 */
int BgL_auxz00_5406;
BgL_auxz00_5406 = 
(int)(((long)1)); 
BgL_arg2017z00_2273 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5406); } 
{ /* ./Ast/dump.scm 102 */
int BgL_offsetz00_2276;
BgL_offsetz00_2276 = 
(int)(BgL_objzd2classzd2numz00_2272); 
{ /* ./Ast/dump.scm 102 */
long BgL_offsetz00_2277;
{ /* ./Ast/dump.scm 102 */
long BgL_auxz00_5410;
BgL_auxz00_5410 = 
(long)(BgL_offsetz00_2276); 
BgL_offsetz00_2277 = 
(BgL_auxz00_5410-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 102 */
long BgL_modz00_2278;
{ /* ./Ast/dump.scm 102 */
int BgL_arg2028z00_2279;
BgL_arg2028z00_2279 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 102 */
long BgL_n2z00_2287;
BgL_n2z00_2287 = 
(long)(BgL_arg2028z00_2279); 
BgL_modz00_2278 = 
(BgL_offsetz00_2277/BgL_n2z00_2287); } } 
{ /* ./Ast/dump.scm 102 */
long BgL_restz00_2280;
{ /* ./Ast/dump.scm 102 */
int BgL_arg2024z00_2281;
BgL_arg2024z00_2281 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 102 */
long BgL_n2z00_2290;
BgL_n2z00_2290 = 
(long)(BgL_arg2024z00_2281); 
BgL_restz00_2280 = 
(BgL_offsetz00_2277%BgL_n2z00_2290); } } 
{ /* ./Ast/dump.scm 102 */

{ /* ./Ast/dump.scm 102 */
obj_t BgL_bucketz00_2282;
{ /* ./Ast/dump.scm 102 */
int BgL_kz00_2292;
BgL_kz00_2292 = 
(int)(BgL_modz00_2278); 
BgL_bucketz00_2282 = 
VECTOR_REF(BgL_arg2017z00_2273,BgL_kz00_2292); } 
{ /* ./Ast/dump.scm 102 */
int BgL_kz00_2294;
BgL_kz00_2294 = 
(int)(BgL_restz00_2280); 
BgL_method2771z00_2270 = 
VECTOR_REF(BgL_bucketz00_2282,BgL_kz00_2294); } } } } } } } } } } 
BgL_arg3542z00_1246 = 
PROCEDURE_ENTRY(BgL_method2771z00_2270)(BgL_method2771z00_2270, 
(obj_t)(BgL_arg3546z00_1248), BEOA); } } 
BgL_arg3535z00_1244 = 
MAKE_PAIR(BgL_arg3542z00_1246, BNIL); } 
BgL_arg3531z00_1242 = 
MAKE_PAIR(BgL_arg3534z00_1243, BgL_arg3535z00_1244); } 
BgL_arg3526z00_1240 = 
MAKE_PAIR(BgL_arg3530z00_1241, BgL_arg3531z00_1242); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg3525z00_1239, BgL_arg3526z00_1240);} } } 
}



/* node->sexp-app2783 */
obj_t BGl_nodezd2ze3sexpzd2app2783ze3zzast_dumpz00(obj_t BgL_envz00_3814, obj_t BgL_nodez00_3815)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 75 */
{ 
BgL_appz00_bglt BgL_nodez00_1143;
BgL_nodez00_1143 = 
(BgL_appz00_bglt)(BgL_nodez00_3815); 
{ /* ./Ast/dump.scm 76 */
obj_t BgL_arg3331z00_1146;obj_t BgL_arg3332z00_1147;
{ /* ./Ast/dump.scm 76 */
BgL_nodez00_bglt BgL_obj1560z00_1940;
BgL_obj1560z00_1940 = 
(BgL_nodez00_bglt)(BgL_nodez00_1143); 
BgL_arg3331z00_1146 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1940))->BgL_locz00); } 
if(
CBOOL(BGl_za2typezd2shapezf3za2z21zzengine_paramz00))
{ /* ./Ast/dump.scm 78 */
{ /* ./Ast/dump.scm 79 */
obj_t BgL_arg3336z00_1148;obj_t BgL_arg3337z00_1149;
{ /* ./Ast/dump.scm 79 */
BgL_varz00_bglt BgL_arg3340z00_1150;
BgL_arg3340z00_1150 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1143))->BgL_funz00); 
{ /* ./Ast/dump.scm 79 */
BgL_nodez00_bglt BgL_nodez00_1942;
BgL_nodez00_1942 = 
(BgL_nodez00_bglt)(BgL_arg3340z00_1150); 
{ /* ./Ast/dump.scm 79 */
obj_t BgL_method2771z00_1943;
{ /* ./Ast/dump.scm 79 */
BgL_objectz00_bglt BgL_objz00_1944;
BgL_objz00_1944 = 
(BgL_objectz00_bglt)(BgL_nodez00_1942); 
{ /* ./Ast/dump.scm 79 */
long BgL_objzd2classzd2numz00_1945;
BgL_objzd2classzd2numz00_1945 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1944); 
{ /* ./Ast/dump.scm 79 */
obj_t BgL_arg2017z00_1946;
{ /* ./Ast/dump.scm 79 */
int BgL_auxz00_5439;
BgL_auxz00_5439 = 
(int)(((long)1)); 
BgL_arg2017z00_1946 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5439); } 
{ /* ./Ast/dump.scm 79 */
int BgL_offsetz00_1949;
BgL_offsetz00_1949 = 
(int)(BgL_objzd2classzd2numz00_1945); 
{ /* ./Ast/dump.scm 79 */
long BgL_offsetz00_1950;
{ /* ./Ast/dump.scm 79 */
long BgL_auxz00_5443;
BgL_auxz00_5443 = 
(long)(BgL_offsetz00_1949); 
BgL_offsetz00_1950 = 
(BgL_auxz00_5443-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 79 */
long BgL_modz00_1951;
{ /* ./Ast/dump.scm 79 */
int BgL_arg2028z00_1952;
BgL_arg2028z00_1952 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 79 */
long BgL_n2z00_1960;
BgL_n2z00_1960 = 
(long)(BgL_arg2028z00_1952); 
BgL_modz00_1951 = 
(BgL_offsetz00_1950/BgL_n2z00_1960); } } 
{ /* ./Ast/dump.scm 79 */
long BgL_restz00_1953;
{ /* ./Ast/dump.scm 79 */
int BgL_arg2024z00_1954;
BgL_arg2024z00_1954 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 79 */
long BgL_n2z00_1963;
BgL_n2z00_1963 = 
(long)(BgL_arg2024z00_1954); 
BgL_restz00_1953 = 
(BgL_offsetz00_1950%BgL_n2z00_1963); } } 
{ /* ./Ast/dump.scm 79 */

{ /* ./Ast/dump.scm 79 */
obj_t BgL_bucketz00_1955;
{ /* ./Ast/dump.scm 79 */
int BgL_kz00_1965;
BgL_kz00_1965 = 
(int)(BgL_modz00_1951); 
BgL_bucketz00_1955 = 
VECTOR_REF(BgL_arg2017z00_1946,BgL_kz00_1965); } 
{ /* ./Ast/dump.scm 79 */
int BgL_kz00_1967;
BgL_kz00_1967 = 
(int)(BgL_restz00_1953); 
BgL_method2771z00_1943 = 
VECTOR_REF(BgL_bucketz00_1955,BgL_kz00_1967); } } } } } } } } } } 
BgL_arg3336z00_1148 = 
PROCEDURE_ENTRY(BgL_method2771z00_1943)(BgL_method2771z00_1943, 
(obj_t)(BgL_nodez00_1942), BEOA); } } } 
{ /* ./Ast/dump.scm 80 */
obj_t BgL_arg3344z00_1151;obj_t BgL_arg3345z00_1152;
if(
CBOOL(BGl_za2accesszd2shapezf3za2z21zzengine_paramz00))
{ /* ./Ast/dump.scm 82 */
obj_t BgL_arg3348z00_1153;
{ /* ./Ast/dump.scm 82 */
obj_t BgL_v2667z00_1155;
{ 
int BgL_auxz00_5461;
BgL_auxz00_5461 = 
(int)(((long)2)); 
BgL_v2667z00_1155 = 
create_vector(BgL_auxz00_5461); } 
{ /* ./Ast/dump.scm 82 */
bool_t BgL_arg3355z00_1157;
BgL_arg3355z00_1157 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_nodez00_1143)); 
{ /* ./Ast/dump.scm 82 */
int BgL_kz00_1969;obj_t BgL_objz00_1970;
BgL_kz00_1969 = 
(int)(((long)1)); 
BgL_objz00_1970 = 
BBOOL(BgL_arg3355z00_1157); 
VECTOR_SET(BgL_v2667z00_1155,BgL_kz00_1969,BgL_objz00_1970); } } 
{ /* ./Ast/dump.scm 82 */
int BgL_kz00_1972;obj_t BgL_objz00_1973;
BgL_kz00_1972 = 
(int)(((long)0)); 
BgL_objz00_1973 = 
CNST_TABLE_REF(((long)28)); 
VECTOR_SET(BgL_v2667z00_1155,BgL_kz00_1972,BgL_objz00_1973); } 
BgL_arg3348z00_1153 = BgL_v2667z00_1155; } 
{ /* ./Ast/dump.scm 81 */
obj_t BgL_list3350z00_1154;
BgL_list3350z00_1154 = 
MAKE_PAIR(BgL_arg3348z00_1153, BNIL); 
BgL_arg3344z00_1151 = BgL_list3350z00_1154; } }  else 
{ /* ./Ast/dump.scm 80 */
BgL_arg3344z00_1151 = BNIL; } 
{ /* ./Ast/dump.scm 84 */
obj_t BgL_arg3362z00_1158;obj_t BgL_arg3363z00_1159;
{ /* ./Ast/dump.scm 84 */
obj_t BgL_v2668z00_1160;
{ 
int BgL_auxz00_5473;
BgL_auxz00_5473 = 
(int)(((long)2)); 
BgL_v2668z00_1160 = 
create_vector(BgL_auxz00_5473); } 
{ /* ./Ast/dump.scm 84 */
obj_t BgL_arg3367z00_1162;
{ /* ./Ast/dump.scm 86 */
BgL_typez00_bglt BgL_arg3370z00_1163;
{ /* ./Ast/dump.scm 86 */
BgL_variablez00_bglt BgL_arg3373z00_1164;
{ /* ./Ast/dump.scm 86 */
BgL_varz00_bglt BgL_arg3376z00_1165;
BgL_arg3376z00_1165 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1143))->BgL_funz00); 
BgL_arg3373z00_1164 = 
(((BgL_varz00_bglt)CREF(BgL_arg3376z00_1165))->BgL_variablez00); } 
BgL_arg3370z00_1163 = 
(((BgL_variablez00_bglt)CREF(BgL_arg3373z00_1164))->BgL_typez00); } 
BgL_arg3367z00_1162 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg3370z00_1163)); } 
{ /* ./Ast/dump.scm 84 */
int BgL_kz00_1980;
BgL_kz00_1980 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v2668z00_1160,BgL_kz00_1980,BgL_arg3367z00_1162); } } 
{ /* ./Ast/dump.scm 84 */
obj_t BgL_arg3381z00_1167;
{ /* ./Ast/dump.scm 84 */
BgL_typez00_bglt BgL_arg3384z00_1168;
BgL_arg3384z00_1168 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_nodez00_1143)); 
BgL_arg3381z00_1167 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg3384z00_1168)); } 
{ /* ./Ast/dump.scm 84 */
int BgL_kz00_1983;
BgL_kz00_1983 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v2668z00_1160,BgL_kz00_1983,BgL_arg3381z00_1167); } } 
BgL_arg3362z00_1158 = BgL_v2668z00_1160; } 
{ /* ./Ast/dump.scm 87 */
obj_t BgL_arg3389z00_1169;
{ /* ./Ast/dump.scm 87 */
obj_t BgL_l2669z00_1171;
BgL_l2669z00_1171 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1143))->BgL_argsz00); 
{ /* ./Ast/dump.scm 87 */
bool_t BgL_test3392z00_1172;
BgL_test3392z00_1172 = 
NULLP(BgL_l2669z00_1171); 
if(BgL_test3392z00_1172)
{ /* ./Ast/dump.scm 87 */
BgL_arg3389z00_1169 = BNIL; }  else 
{ /* ./Ast/dump.scm 87 */
obj_t BgL_head2671z00_1173;
{ /* ./Ast/dump.scm 87 */
obj_t BgL_arg3413z00_1184;
{ /* ./Ast/dump.scm 87 */
obj_t BgL_arg3417z00_1186;
BgL_arg3417z00_1186 = 
CAR(BgL_l2669z00_1171); 
{ /* ./Ast/dump.scm 87 */
BgL_nodez00_bglt BgL_nodez00_1988;
BgL_nodez00_1988 = 
(BgL_nodez00_bglt)(BgL_arg3417z00_1186); 
{ /* ./Ast/dump.scm 87 */
obj_t BgL_method2771z00_1989;
{ /* ./Ast/dump.scm 87 */
BgL_objectz00_bglt BgL_objz00_1990;
BgL_objz00_1990 = 
(BgL_objectz00_bglt)(BgL_nodez00_1988); 
{ /* ./Ast/dump.scm 87 */
long BgL_objzd2classzd2numz00_1991;
BgL_objzd2classzd2numz00_1991 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1990); 
{ /* ./Ast/dump.scm 87 */
obj_t BgL_arg2017z00_1992;
{ /* ./Ast/dump.scm 87 */
int BgL_auxz00_5496;
BgL_auxz00_5496 = 
(int)(((long)1)); 
BgL_arg2017z00_1992 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5496); } 
{ /* ./Ast/dump.scm 87 */
int BgL_offsetz00_1995;
BgL_offsetz00_1995 = 
(int)(BgL_objzd2classzd2numz00_1991); 
{ /* ./Ast/dump.scm 87 */
long BgL_offsetz00_1996;
{ /* ./Ast/dump.scm 87 */
long BgL_auxz00_5500;
BgL_auxz00_5500 = 
(long)(BgL_offsetz00_1995); 
BgL_offsetz00_1996 = 
(BgL_auxz00_5500-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 87 */
long BgL_modz00_1997;
{ /* ./Ast/dump.scm 87 */
int BgL_arg2028z00_1998;
BgL_arg2028z00_1998 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 87 */
long BgL_n2z00_2006;
BgL_n2z00_2006 = 
(long)(BgL_arg2028z00_1998); 
BgL_modz00_1997 = 
(BgL_offsetz00_1996/BgL_n2z00_2006); } } 
{ /* ./Ast/dump.scm 87 */
long BgL_restz00_1999;
{ /* ./Ast/dump.scm 87 */
int BgL_arg2024z00_2000;
BgL_arg2024z00_2000 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 87 */
long BgL_n2z00_2009;
BgL_n2z00_2009 = 
(long)(BgL_arg2024z00_2000); 
BgL_restz00_1999 = 
(BgL_offsetz00_1996%BgL_n2z00_2009); } } 
{ /* ./Ast/dump.scm 87 */

{ /* ./Ast/dump.scm 87 */
obj_t BgL_bucketz00_2001;
{ /* ./Ast/dump.scm 87 */
int BgL_kz00_2011;
BgL_kz00_2011 = 
(int)(BgL_modz00_1997); 
BgL_bucketz00_2001 = 
VECTOR_REF(BgL_arg2017z00_1992,BgL_kz00_2011); } 
{ /* ./Ast/dump.scm 87 */
int BgL_kz00_2013;
BgL_kz00_2013 = 
(int)(BgL_restz00_1999); 
BgL_method2771z00_1989 = 
VECTOR_REF(BgL_bucketz00_2001,BgL_kz00_2013); } } } } } } } } } } 
BgL_arg3413z00_1184 = 
PROCEDURE_ENTRY(BgL_method2771z00_1989)(BgL_method2771z00_1989, 
(obj_t)(BgL_nodez00_1988), BEOA); } } } 
BgL_head2671z00_1173 = 
MAKE_PAIR(BgL_arg3413z00_1184, BNIL); } 
{ 
obj_t BgL_l2669z00_1174;obj_t BgL_tail2672z00_1175;
{ /* ./Ast/dump.scm 87 */
obj_t BgL_arg3394z00_1177;
BgL_arg3394z00_1177 = 
CDR(BgL_l2669z00_1171); 
BgL_l2669z00_1174 = BgL_arg3394z00_1177; 
BgL_tail2672z00_1175 = BgL_head2671z00_1173; 
BgL_map2670z00_1176:
{ /* ./Ast/dump.scm 87 */
bool_t BgL_test3397z00_1178;
BgL_test3397z00_1178 = 
NULLP(BgL_l2669z00_1174); 
if(BgL_test3397z00_1178)
{ /* ./Ast/dump.scm 87 */
BgL_arg3389z00_1169 = BgL_head2671z00_1173; }  else 
{ /* ./Ast/dump.scm 87 */
obj_t BgL_newtail2673z00_1179;
{ /* ./Ast/dump.scm 87 */
obj_t BgL_arg3404z00_1181;
{ /* ./Ast/dump.scm 87 */
obj_t BgL_arg3408z00_1183;
BgL_arg3408z00_1183 = 
CAR(BgL_l2669z00_1174); 
{ /* ./Ast/dump.scm 87 */
BgL_nodez00_bglt BgL_nodez00_2019;
BgL_nodez00_2019 = 
(BgL_nodez00_bglt)(BgL_arg3408z00_1183); 
{ /* ./Ast/dump.scm 87 */
obj_t BgL_method2771z00_2020;
{ /* ./Ast/dump.scm 87 */
BgL_objectz00_bglt BgL_objz00_2021;
BgL_objz00_2021 = 
(BgL_objectz00_bglt)(BgL_nodez00_2019); 
{ /* ./Ast/dump.scm 87 */
long BgL_objzd2classzd2numz00_2022;
BgL_objzd2classzd2numz00_2022 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2021); 
{ /* ./Ast/dump.scm 87 */
obj_t BgL_arg2017z00_2023;
{ /* ./Ast/dump.scm 87 */
int BgL_auxz00_5524;
BgL_auxz00_5524 = 
(int)(((long)1)); 
BgL_arg2017z00_2023 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5524); } 
{ /* ./Ast/dump.scm 87 */
int BgL_offsetz00_2026;
BgL_offsetz00_2026 = 
(int)(BgL_objzd2classzd2numz00_2022); 
{ /* ./Ast/dump.scm 87 */
long BgL_offsetz00_2027;
{ /* ./Ast/dump.scm 87 */
long BgL_auxz00_5528;
BgL_auxz00_5528 = 
(long)(BgL_offsetz00_2026); 
BgL_offsetz00_2027 = 
(BgL_auxz00_5528-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 87 */
long BgL_modz00_2028;
{ /* ./Ast/dump.scm 87 */
int BgL_arg2028z00_2029;
BgL_arg2028z00_2029 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 87 */
long BgL_n2z00_2037;
BgL_n2z00_2037 = 
(long)(BgL_arg2028z00_2029); 
BgL_modz00_2028 = 
(BgL_offsetz00_2027/BgL_n2z00_2037); } } 
{ /* ./Ast/dump.scm 87 */
long BgL_restz00_2030;
{ /* ./Ast/dump.scm 87 */
int BgL_arg2024z00_2031;
BgL_arg2024z00_2031 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 87 */
long BgL_n2z00_2040;
BgL_n2z00_2040 = 
(long)(BgL_arg2024z00_2031); 
BgL_restz00_2030 = 
(BgL_offsetz00_2027%BgL_n2z00_2040); } } 
{ /* ./Ast/dump.scm 87 */

{ /* ./Ast/dump.scm 87 */
obj_t BgL_bucketz00_2032;
{ /* ./Ast/dump.scm 87 */
int BgL_kz00_2042;
BgL_kz00_2042 = 
(int)(BgL_modz00_2028); 
BgL_bucketz00_2032 = 
VECTOR_REF(BgL_arg2017z00_2023,BgL_kz00_2042); } 
{ /* ./Ast/dump.scm 87 */
int BgL_kz00_2044;
BgL_kz00_2044 = 
(int)(BgL_restz00_2030); 
BgL_method2771z00_2020 = 
VECTOR_REF(BgL_bucketz00_2032,BgL_kz00_2044); } } } } } } } } } } 
BgL_arg3404z00_1181 = 
PROCEDURE_ENTRY(BgL_method2771z00_2020)(BgL_method2771z00_2020, 
(obj_t)(BgL_nodez00_2019), BEOA); } } } 
BgL_newtail2673z00_1179 = 
MAKE_PAIR(BgL_arg3404z00_1181, BNIL); } 
SET_CDR(BgL_tail2672z00_1175, BgL_newtail2673z00_1179); 
{ /* ./Ast/dump.scm 87 */
obj_t BgL_arg3400z00_1180;
BgL_arg3400z00_1180 = 
CDR(BgL_l2669z00_1174); 
{ 
obj_t BgL_tail2672z00_5548;obj_t BgL_l2669z00_5547;
BgL_l2669z00_5547 = BgL_arg3400z00_1180; 
BgL_tail2672z00_5548 = BgL_newtail2673z00_1179; 
BgL_tail2672z00_1175 = BgL_tail2672z00_5548; 
BgL_l2669z00_1174 = BgL_l2669z00_5547; 
goto BgL_map2670z00_1176;} } } } } } } } } 
BgL_arg3363z00_1159 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3389z00_1169, BNIL); } 
BgL_arg3345z00_1152 = 
MAKE_PAIR(BgL_arg3362z00_1158, BgL_arg3363z00_1159); } 
BgL_arg3337z00_1149 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3344z00_1151, BgL_arg3345z00_1152); } 
BgL_arg3332z00_1147 = 
MAKE_PAIR(BgL_arg3336z00_1148, BgL_arg3337z00_1149); } }  else 
{ /* ./Ast/dump.scm 78 */
if(
CBOOL(BGl_za2accesszd2shapezf3za2z21zzengine_paramz00))
{ /* ./Ast/dump.scm 88 */
{ /* ./Ast/dump.scm 89 */
obj_t BgL_arg3423z00_1187;obj_t BgL_arg3424z00_1188;
{ /* ./Ast/dump.scm 89 */
BgL_varz00_bglt BgL_arg3427z00_1189;
BgL_arg3427z00_1189 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1143))->BgL_funz00); 
{ /* ./Ast/dump.scm 89 */
BgL_nodez00_bglt BgL_nodez00_2051;
BgL_nodez00_2051 = 
(BgL_nodez00_bglt)(BgL_arg3427z00_1189); 
{ /* ./Ast/dump.scm 89 */
obj_t BgL_method2771z00_2052;
{ /* ./Ast/dump.scm 89 */
BgL_objectz00_bglt BgL_objz00_2053;
BgL_objz00_2053 = 
(BgL_objectz00_bglt)(BgL_nodez00_2051); 
{ /* ./Ast/dump.scm 89 */
long BgL_objzd2classzd2numz00_2054;
BgL_objzd2classzd2numz00_2054 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2053); 
{ /* ./Ast/dump.scm 89 */
obj_t BgL_arg2017z00_2055;
{ /* ./Ast/dump.scm 89 */
int BgL_auxz00_5559;
BgL_auxz00_5559 = 
(int)(((long)1)); 
BgL_arg2017z00_2055 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5559); } 
{ /* ./Ast/dump.scm 89 */
int BgL_offsetz00_2058;
BgL_offsetz00_2058 = 
(int)(BgL_objzd2classzd2numz00_2054); 
{ /* ./Ast/dump.scm 89 */
long BgL_offsetz00_2059;
{ /* ./Ast/dump.scm 89 */
long BgL_auxz00_5563;
BgL_auxz00_5563 = 
(long)(BgL_offsetz00_2058); 
BgL_offsetz00_2059 = 
(BgL_auxz00_5563-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 89 */
long BgL_modz00_2060;
{ /* ./Ast/dump.scm 89 */
int BgL_arg2028z00_2061;
BgL_arg2028z00_2061 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 89 */
long BgL_n2z00_2069;
BgL_n2z00_2069 = 
(long)(BgL_arg2028z00_2061); 
BgL_modz00_2060 = 
(BgL_offsetz00_2059/BgL_n2z00_2069); } } 
{ /* ./Ast/dump.scm 89 */
long BgL_restz00_2062;
{ /* ./Ast/dump.scm 89 */
int BgL_arg2024z00_2063;
BgL_arg2024z00_2063 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 89 */
long BgL_n2z00_2072;
BgL_n2z00_2072 = 
(long)(BgL_arg2024z00_2063); 
BgL_restz00_2062 = 
(BgL_offsetz00_2059%BgL_n2z00_2072); } } 
{ /* ./Ast/dump.scm 89 */

{ /* ./Ast/dump.scm 89 */
obj_t BgL_bucketz00_2064;
{ /* ./Ast/dump.scm 89 */
int BgL_kz00_2074;
BgL_kz00_2074 = 
(int)(BgL_modz00_2060); 
BgL_bucketz00_2064 = 
VECTOR_REF(BgL_arg2017z00_2055,BgL_kz00_2074); } 
{ /* ./Ast/dump.scm 89 */
int BgL_kz00_2076;
BgL_kz00_2076 = 
(int)(BgL_restz00_2062); 
BgL_method2771z00_2052 = 
VECTOR_REF(BgL_bucketz00_2064,BgL_kz00_2076); } } } } } } } } } } 
BgL_arg3423z00_1187 = 
PROCEDURE_ENTRY(BgL_method2771z00_2052)(BgL_method2771z00_2052, 
(obj_t)(BgL_nodez00_2051), BEOA); } } } 
{ /* ./Ast/dump.scm 90 */
obj_t BgL_arg3431z00_1190;obj_t BgL_arg3432z00_1191;
{ /* ./Ast/dump.scm 90 */
obj_t BgL_v2674z00_1192;
{ 
int BgL_auxz00_5579;
BgL_auxz00_5579 = 
(int)(((long)2)); 
BgL_v2674z00_1192 = 
create_vector(BgL_auxz00_5579); } 
{ /* ./Ast/dump.scm 90 */
bool_t BgL_arg3437z00_1194;
BgL_arg3437z00_1194 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_nodez00_1143)); 
{ /* ./Ast/dump.scm 90 */
int BgL_kz00_2078;obj_t BgL_objz00_2079;
BgL_kz00_2078 = 
(int)(((long)1)); 
BgL_objz00_2079 = 
BBOOL(BgL_arg3437z00_1194); 
VECTOR_SET(BgL_v2674z00_1192,BgL_kz00_2078,BgL_objz00_2079); } } 
{ /* ./Ast/dump.scm 90 */
int BgL_kz00_2081;obj_t BgL_objz00_2082;
BgL_kz00_2081 = 
(int)(((long)0)); 
BgL_objz00_2082 = 
CNST_TABLE_REF(((long)28)); 
VECTOR_SET(BgL_v2674z00_1192,BgL_kz00_2081,BgL_objz00_2082); } 
BgL_arg3431z00_1190 = BgL_v2674z00_1192; } 
{ /* ./Ast/dump.scm 91 */
obj_t BgL_arg3443z00_1195;
{ /* ./Ast/dump.scm 91 */
obj_t BgL_l2675z00_1197;
BgL_l2675z00_1197 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1143))->BgL_argsz00); 
{ /* ./Ast/dump.scm 91 */
bool_t BgL_test3446z00_1198;
BgL_test3446z00_1198 = 
NULLP(BgL_l2675z00_1197); 
if(BgL_test3446z00_1198)
{ /* ./Ast/dump.scm 91 */
BgL_arg3443z00_1195 = BNIL; }  else 
{ /* ./Ast/dump.scm 91 */
obj_t BgL_head2677z00_1199;
{ /* ./Ast/dump.scm 91 */
obj_t BgL_arg3467z00_1210;
{ /* ./Ast/dump.scm 91 */
obj_t BgL_arg3471z00_1212;
BgL_arg3471z00_1212 = 
CAR(BgL_l2675z00_1197); 
{ /* ./Ast/dump.scm 91 */
BgL_nodez00_bglt BgL_nodez00_2086;
BgL_nodez00_2086 = 
(BgL_nodez00_bglt)(BgL_arg3471z00_1212); 
{ /* ./Ast/dump.scm 91 */
obj_t BgL_method2771z00_2087;
{ /* ./Ast/dump.scm 91 */
BgL_objectz00_bglt BgL_objz00_2088;
BgL_objz00_2088 = 
(BgL_objectz00_bglt)(BgL_nodez00_2086); 
{ /* ./Ast/dump.scm 91 */
long BgL_objzd2classzd2numz00_2089;
BgL_objzd2classzd2numz00_2089 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2088); 
{ /* ./Ast/dump.scm 91 */
obj_t BgL_arg2017z00_2090;
{ /* ./Ast/dump.scm 91 */
int BgL_auxz00_5597;
BgL_auxz00_5597 = 
(int)(((long)1)); 
BgL_arg2017z00_2090 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5597); } 
{ /* ./Ast/dump.scm 91 */
int BgL_offsetz00_2093;
BgL_offsetz00_2093 = 
(int)(BgL_objzd2classzd2numz00_2089); 
{ /* ./Ast/dump.scm 91 */
long BgL_offsetz00_2094;
{ /* ./Ast/dump.scm 91 */
long BgL_auxz00_5601;
BgL_auxz00_5601 = 
(long)(BgL_offsetz00_2093); 
BgL_offsetz00_2094 = 
(BgL_auxz00_5601-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 91 */
long BgL_modz00_2095;
{ /* ./Ast/dump.scm 91 */
int BgL_arg2028z00_2096;
BgL_arg2028z00_2096 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 91 */
long BgL_n2z00_2104;
BgL_n2z00_2104 = 
(long)(BgL_arg2028z00_2096); 
BgL_modz00_2095 = 
(BgL_offsetz00_2094/BgL_n2z00_2104); } } 
{ /* ./Ast/dump.scm 91 */
long BgL_restz00_2097;
{ /* ./Ast/dump.scm 91 */
int BgL_arg2024z00_2098;
BgL_arg2024z00_2098 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 91 */
long BgL_n2z00_2107;
BgL_n2z00_2107 = 
(long)(BgL_arg2024z00_2098); 
BgL_restz00_2097 = 
(BgL_offsetz00_2094%BgL_n2z00_2107); } } 
{ /* ./Ast/dump.scm 91 */

{ /* ./Ast/dump.scm 91 */
obj_t BgL_bucketz00_2099;
{ /* ./Ast/dump.scm 91 */
int BgL_kz00_2109;
BgL_kz00_2109 = 
(int)(BgL_modz00_2095); 
BgL_bucketz00_2099 = 
VECTOR_REF(BgL_arg2017z00_2090,BgL_kz00_2109); } 
{ /* ./Ast/dump.scm 91 */
int BgL_kz00_2111;
BgL_kz00_2111 = 
(int)(BgL_restz00_2097); 
BgL_method2771z00_2087 = 
VECTOR_REF(BgL_bucketz00_2099,BgL_kz00_2111); } } } } } } } } } } 
BgL_arg3467z00_1210 = 
PROCEDURE_ENTRY(BgL_method2771z00_2087)(BgL_method2771z00_2087, 
(obj_t)(BgL_nodez00_2086), BEOA); } } } 
BgL_head2677z00_1199 = 
MAKE_PAIR(BgL_arg3467z00_1210, BNIL); } 
{ 
obj_t BgL_l2675z00_1200;obj_t BgL_tail2678z00_1201;
{ /* ./Ast/dump.scm 91 */
obj_t BgL_arg3448z00_1203;
BgL_arg3448z00_1203 = 
CDR(BgL_l2675z00_1197); 
BgL_l2675z00_1200 = BgL_arg3448z00_1203; 
BgL_tail2678z00_1201 = BgL_head2677z00_1199; 
BgL_map2676z00_1202:
{ /* ./Ast/dump.scm 91 */
bool_t BgL_test3451z00_1204;
BgL_test3451z00_1204 = 
NULLP(BgL_l2675z00_1200); 
if(BgL_test3451z00_1204)
{ /* ./Ast/dump.scm 91 */
BgL_arg3443z00_1195 = BgL_head2677z00_1199; }  else 
{ /* ./Ast/dump.scm 91 */
obj_t BgL_newtail2679z00_1205;
{ /* ./Ast/dump.scm 91 */
obj_t BgL_arg3458z00_1207;
{ /* ./Ast/dump.scm 91 */
obj_t BgL_arg3462z00_1209;
BgL_arg3462z00_1209 = 
CAR(BgL_l2675z00_1200); 
{ /* ./Ast/dump.scm 91 */
BgL_nodez00_bglt BgL_nodez00_2117;
BgL_nodez00_2117 = 
(BgL_nodez00_bglt)(BgL_arg3462z00_1209); 
{ /* ./Ast/dump.scm 91 */
obj_t BgL_method2771z00_2118;
{ /* ./Ast/dump.scm 91 */
BgL_objectz00_bglt BgL_objz00_2119;
BgL_objz00_2119 = 
(BgL_objectz00_bglt)(BgL_nodez00_2117); 
{ /* ./Ast/dump.scm 91 */
long BgL_objzd2classzd2numz00_2120;
BgL_objzd2classzd2numz00_2120 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2119); 
{ /* ./Ast/dump.scm 91 */
obj_t BgL_arg2017z00_2121;
{ /* ./Ast/dump.scm 91 */
int BgL_auxz00_5625;
BgL_auxz00_5625 = 
(int)(((long)1)); 
BgL_arg2017z00_2121 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5625); } 
{ /* ./Ast/dump.scm 91 */
int BgL_offsetz00_2124;
BgL_offsetz00_2124 = 
(int)(BgL_objzd2classzd2numz00_2120); 
{ /* ./Ast/dump.scm 91 */
long BgL_offsetz00_2125;
{ /* ./Ast/dump.scm 91 */
long BgL_auxz00_5629;
BgL_auxz00_5629 = 
(long)(BgL_offsetz00_2124); 
BgL_offsetz00_2125 = 
(BgL_auxz00_5629-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 91 */
long BgL_modz00_2126;
{ /* ./Ast/dump.scm 91 */
int BgL_arg2028z00_2127;
BgL_arg2028z00_2127 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 91 */
long BgL_n2z00_2135;
BgL_n2z00_2135 = 
(long)(BgL_arg2028z00_2127); 
BgL_modz00_2126 = 
(BgL_offsetz00_2125/BgL_n2z00_2135); } } 
{ /* ./Ast/dump.scm 91 */
long BgL_restz00_2128;
{ /* ./Ast/dump.scm 91 */
int BgL_arg2024z00_2129;
BgL_arg2024z00_2129 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 91 */
long BgL_n2z00_2138;
BgL_n2z00_2138 = 
(long)(BgL_arg2024z00_2129); 
BgL_restz00_2128 = 
(BgL_offsetz00_2125%BgL_n2z00_2138); } } 
{ /* ./Ast/dump.scm 91 */

{ /* ./Ast/dump.scm 91 */
obj_t BgL_bucketz00_2130;
{ /* ./Ast/dump.scm 91 */
int BgL_kz00_2140;
BgL_kz00_2140 = 
(int)(BgL_modz00_2126); 
BgL_bucketz00_2130 = 
VECTOR_REF(BgL_arg2017z00_2121,BgL_kz00_2140); } 
{ /* ./Ast/dump.scm 91 */
int BgL_kz00_2142;
BgL_kz00_2142 = 
(int)(BgL_restz00_2128); 
BgL_method2771z00_2118 = 
VECTOR_REF(BgL_bucketz00_2130,BgL_kz00_2142); } } } } } } } } } } 
BgL_arg3458z00_1207 = 
PROCEDURE_ENTRY(BgL_method2771z00_2118)(BgL_method2771z00_2118, 
(obj_t)(BgL_nodez00_2117), BEOA); } } } 
BgL_newtail2679z00_1205 = 
MAKE_PAIR(BgL_arg3458z00_1207, BNIL); } 
SET_CDR(BgL_tail2678z00_1201, BgL_newtail2679z00_1205); 
{ /* ./Ast/dump.scm 91 */
obj_t BgL_arg3454z00_1206;
BgL_arg3454z00_1206 = 
CDR(BgL_l2675z00_1200); 
{ 
obj_t BgL_tail2678z00_5649;obj_t BgL_l2675z00_5648;
BgL_l2675z00_5648 = BgL_arg3454z00_1206; 
BgL_tail2678z00_5649 = BgL_newtail2679z00_1205; 
BgL_tail2678z00_1201 = BgL_tail2678z00_5649; 
BgL_l2675z00_1200 = BgL_l2675z00_5648; 
goto BgL_map2676z00_1202;} } } } } } } } } 
BgL_arg3432z00_1191 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3443z00_1195, BNIL); } 
BgL_arg3424z00_1188 = 
MAKE_PAIR(BgL_arg3431z00_1190, BgL_arg3432z00_1191); } 
BgL_arg3332z00_1147 = 
MAKE_PAIR(BgL_arg3423z00_1187, BgL_arg3424z00_1188); } }  else 
{ /* ./Ast/dump.scm 88 */
{ /* ./Ast/dump.scm 93 */
obj_t BgL_arg3477z00_1213;obj_t BgL_arg3478z00_1214;
{ /* ./Ast/dump.scm 93 */
BgL_varz00_bglt BgL_arg3481z00_1215;
BgL_arg3481z00_1215 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1143))->BgL_funz00); 
{ /* ./Ast/dump.scm 93 */
BgL_nodez00_bglt BgL_nodez00_2149;
BgL_nodez00_2149 = 
(BgL_nodez00_bglt)(BgL_arg3481z00_1215); 
{ /* ./Ast/dump.scm 93 */
obj_t BgL_method2771z00_2150;
{ /* ./Ast/dump.scm 93 */
BgL_objectz00_bglt BgL_objz00_2151;
BgL_objz00_2151 = 
(BgL_objectz00_bglt)(BgL_nodez00_2149); 
{ /* ./Ast/dump.scm 93 */
long BgL_objzd2classzd2numz00_2152;
BgL_objzd2classzd2numz00_2152 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2151); 
{ /* ./Ast/dump.scm 93 */
obj_t BgL_arg2017z00_2153;
{ /* ./Ast/dump.scm 93 */
int BgL_auxz00_5657;
BgL_auxz00_5657 = 
(int)(((long)1)); 
BgL_arg2017z00_2153 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5657); } 
{ /* ./Ast/dump.scm 93 */
int BgL_offsetz00_2156;
BgL_offsetz00_2156 = 
(int)(BgL_objzd2classzd2numz00_2152); 
{ /* ./Ast/dump.scm 93 */
long BgL_offsetz00_2157;
{ /* ./Ast/dump.scm 93 */
long BgL_auxz00_5661;
BgL_auxz00_5661 = 
(long)(BgL_offsetz00_2156); 
BgL_offsetz00_2157 = 
(BgL_auxz00_5661-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 93 */
long BgL_modz00_2158;
{ /* ./Ast/dump.scm 93 */
int BgL_arg2028z00_2159;
BgL_arg2028z00_2159 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 93 */
long BgL_n2z00_2167;
BgL_n2z00_2167 = 
(long)(BgL_arg2028z00_2159); 
BgL_modz00_2158 = 
(BgL_offsetz00_2157/BgL_n2z00_2167); } } 
{ /* ./Ast/dump.scm 93 */
long BgL_restz00_2160;
{ /* ./Ast/dump.scm 93 */
int BgL_arg2024z00_2161;
BgL_arg2024z00_2161 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 93 */
long BgL_n2z00_2170;
BgL_n2z00_2170 = 
(long)(BgL_arg2024z00_2161); 
BgL_restz00_2160 = 
(BgL_offsetz00_2157%BgL_n2z00_2170); } } 
{ /* ./Ast/dump.scm 93 */

{ /* ./Ast/dump.scm 93 */
obj_t BgL_bucketz00_2162;
{ /* ./Ast/dump.scm 93 */
int BgL_kz00_2172;
BgL_kz00_2172 = 
(int)(BgL_modz00_2158); 
BgL_bucketz00_2162 = 
VECTOR_REF(BgL_arg2017z00_2153,BgL_kz00_2172); } 
{ /* ./Ast/dump.scm 93 */
int BgL_kz00_2174;
BgL_kz00_2174 = 
(int)(BgL_restz00_2160); 
BgL_method2771z00_2150 = 
VECTOR_REF(BgL_bucketz00_2162,BgL_kz00_2174); } } } } } } } } } } 
BgL_arg3477z00_1213 = 
PROCEDURE_ENTRY(BgL_method2771z00_2150)(BgL_method2771z00_2150, 
(obj_t)(BgL_nodez00_2149), BEOA); } } } 
{ /* ./Ast/dump.scm 94 */
obj_t BgL_arg3485z00_1216;
{ /* ./Ast/dump.scm 94 */
obj_t BgL_l2680z00_1218;
BgL_l2680z00_1218 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1143))->BgL_argsz00); 
{ /* ./Ast/dump.scm 94 */
bool_t BgL_test3488z00_1219;
BgL_test3488z00_1219 = 
NULLP(BgL_l2680z00_1218); 
if(BgL_test3488z00_1219)
{ /* ./Ast/dump.scm 94 */
BgL_arg3485z00_1216 = BNIL; }  else 
{ /* ./Ast/dump.scm 94 */
obj_t BgL_head2682z00_1220;
{ /* ./Ast/dump.scm 94 */
obj_t BgL_arg3509z00_1231;
{ /* ./Ast/dump.scm 94 */
obj_t BgL_arg3513z00_1233;
BgL_arg3513z00_1233 = 
CAR(BgL_l2680z00_1218); 
{ /* ./Ast/dump.scm 94 */
BgL_nodez00_bglt BgL_nodez00_2178;
BgL_nodez00_2178 = 
(BgL_nodez00_bglt)(BgL_arg3513z00_1233); 
{ /* ./Ast/dump.scm 94 */
obj_t BgL_method2771z00_2179;
{ /* ./Ast/dump.scm 94 */
BgL_objectz00_bglt BgL_objz00_2180;
BgL_objz00_2180 = 
(BgL_objectz00_bglt)(BgL_nodez00_2178); 
{ /* ./Ast/dump.scm 94 */
long BgL_objzd2classzd2numz00_2181;
BgL_objzd2classzd2numz00_2181 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2180); 
{ /* ./Ast/dump.scm 94 */
obj_t BgL_arg2017z00_2182;
{ /* ./Ast/dump.scm 94 */
int BgL_auxz00_5684;
BgL_auxz00_5684 = 
(int)(((long)1)); 
BgL_arg2017z00_2182 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5684); } 
{ /* ./Ast/dump.scm 94 */
int BgL_offsetz00_2185;
BgL_offsetz00_2185 = 
(int)(BgL_objzd2classzd2numz00_2181); 
{ /* ./Ast/dump.scm 94 */
long BgL_offsetz00_2186;
{ /* ./Ast/dump.scm 94 */
long BgL_auxz00_5688;
BgL_auxz00_5688 = 
(long)(BgL_offsetz00_2185); 
BgL_offsetz00_2186 = 
(BgL_auxz00_5688-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 94 */
long BgL_modz00_2187;
{ /* ./Ast/dump.scm 94 */
int BgL_arg2028z00_2188;
BgL_arg2028z00_2188 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 94 */
long BgL_n2z00_2196;
BgL_n2z00_2196 = 
(long)(BgL_arg2028z00_2188); 
BgL_modz00_2187 = 
(BgL_offsetz00_2186/BgL_n2z00_2196); } } 
{ /* ./Ast/dump.scm 94 */
long BgL_restz00_2189;
{ /* ./Ast/dump.scm 94 */
int BgL_arg2024z00_2190;
BgL_arg2024z00_2190 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 94 */
long BgL_n2z00_2199;
BgL_n2z00_2199 = 
(long)(BgL_arg2024z00_2190); 
BgL_restz00_2189 = 
(BgL_offsetz00_2186%BgL_n2z00_2199); } } 
{ /* ./Ast/dump.scm 94 */

{ /* ./Ast/dump.scm 94 */
obj_t BgL_bucketz00_2191;
{ /* ./Ast/dump.scm 94 */
int BgL_kz00_2201;
BgL_kz00_2201 = 
(int)(BgL_modz00_2187); 
BgL_bucketz00_2191 = 
VECTOR_REF(BgL_arg2017z00_2182,BgL_kz00_2201); } 
{ /* ./Ast/dump.scm 94 */
int BgL_kz00_2203;
BgL_kz00_2203 = 
(int)(BgL_restz00_2189); 
BgL_method2771z00_2179 = 
VECTOR_REF(BgL_bucketz00_2191,BgL_kz00_2203); } } } } } } } } } } 
BgL_arg3509z00_1231 = 
PROCEDURE_ENTRY(BgL_method2771z00_2179)(BgL_method2771z00_2179, 
(obj_t)(BgL_nodez00_2178), BEOA); } } } 
BgL_head2682z00_1220 = 
MAKE_PAIR(BgL_arg3509z00_1231, BNIL); } 
{ 
obj_t BgL_l2680z00_1221;obj_t BgL_tail2683z00_1222;
{ /* ./Ast/dump.scm 94 */
obj_t BgL_arg3490z00_1224;
BgL_arg3490z00_1224 = 
CDR(BgL_l2680z00_1218); 
BgL_l2680z00_1221 = BgL_arg3490z00_1224; 
BgL_tail2683z00_1222 = BgL_head2682z00_1220; 
BgL_map2681z00_1223:
{ /* ./Ast/dump.scm 94 */
bool_t BgL_test3493z00_1225;
BgL_test3493z00_1225 = 
NULLP(BgL_l2680z00_1221); 
if(BgL_test3493z00_1225)
{ /* ./Ast/dump.scm 94 */
BgL_arg3485z00_1216 = BgL_head2682z00_1220; }  else 
{ /* ./Ast/dump.scm 94 */
obj_t BgL_newtail2684z00_1226;
{ /* ./Ast/dump.scm 94 */
obj_t BgL_arg3500z00_1228;
{ /* ./Ast/dump.scm 94 */
obj_t BgL_arg3504z00_1230;
BgL_arg3504z00_1230 = 
CAR(BgL_l2680z00_1221); 
{ /* ./Ast/dump.scm 94 */
BgL_nodez00_bglt BgL_nodez00_2209;
BgL_nodez00_2209 = 
(BgL_nodez00_bglt)(BgL_arg3504z00_1230); 
{ /* ./Ast/dump.scm 94 */
obj_t BgL_method2771z00_2210;
{ /* ./Ast/dump.scm 94 */
BgL_objectz00_bglt BgL_objz00_2211;
BgL_objz00_2211 = 
(BgL_objectz00_bglt)(BgL_nodez00_2209); 
{ /* ./Ast/dump.scm 94 */
long BgL_objzd2classzd2numz00_2212;
BgL_objzd2classzd2numz00_2212 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2211); 
{ /* ./Ast/dump.scm 94 */
obj_t BgL_arg2017z00_2213;
{ /* ./Ast/dump.scm 94 */
int BgL_auxz00_5712;
BgL_auxz00_5712 = 
(int)(((long)1)); 
BgL_arg2017z00_2213 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5712); } 
{ /* ./Ast/dump.scm 94 */
int BgL_offsetz00_2216;
BgL_offsetz00_2216 = 
(int)(BgL_objzd2classzd2numz00_2212); 
{ /* ./Ast/dump.scm 94 */
long BgL_offsetz00_2217;
{ /* ./Ast/dump.scm 94 */
long BgL_auxz00_5716;
BgL_auxz00_5716 = 
(long)(BgL_offsetz00_2216); 
BgL_offsetz00_2217 = 
(BgL_auxz00_5716-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 94 */
long BgL_modz00_2218;
{ /* ./Ast/dump.scm 94 */
int BgL_arg2028z00_2219;
BgL_arg2028z00_2219 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 94 */
long BgL_n2z00_2227;
BgL_n2z00_2227 = 
(long)(BgL_arg2028z00_2219); 
BgL_modz00_2218 = 
(BgL_offsetz00_2217/BgL_n2z00_2227); } } 
{ /* ./Ast/dump.scm 94 */
long BgL_restz00_2220;
{ /* ./Ast/dump.scm 94 */
int BgL_arg2024z00_2221;
BgL_arg2024z00_2221 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 94 */
long BgL_n2z00_2230;
BgL_n2z00_2230 = 
(long)(BgL_arg2024z00_2221); 
BgL_restz00_2220 = 
(BgL_offsetz00_2217%BgL_n2z00_2230); } } 
{ /* ./Ast/dump.scm 94 */

{ /* ./Ast/dump.scm 94 */
obj_t BgL_bucketz00_2222;
{ /* ./Ast/dump.scm 94 */
int BgL_kz00_2232;
BgL_kz00_2232 = 
(int)(BgL_modz00_2218); 
BgL_bucketz00_2222 = 
VECTOR_REF(BgL_arg2017z00_2213,BgL_kz00_2232); } 
{ /* ./Ast/dump.scm 94 */
int BgL_kz00_2234;
BgL_kz00_2234 = 
(int)(BgL_restz00_2220); 
BgL_method2771z00_2210 = 
VECTOR_REF(BgL_bucketz00_2222,BgL_kz00_2234); } } } } } } } } } } 
BgL_arg3500z00_1228 = 
PROCEDURE_ENTRY(BgL_method2771z00_2210)(BgL_method2771z00_2210, 
(obj_t)(BgL_nodez00_2209), BEOA); } } } 
BgL_newtail2684z00_1226 = 
MAKE_PAIR(BgL_arg3500z00_1228, BNIL); } 
SET_CDR(BgL_tail2683z00_1222, BgL_newtail2684z00_1226); 
{ /* ./Ast/dump.scm 94 */
obj_t BgL_arg3496z00_1227;
BgL_arg3496z00_1227 = 
CDR(BgL_l2680z00_1221); 
{ 
obj_t BgL_tail2683z00_5736;obj_t BgL_l2680z00_5735;
BgL_l2680z00_5735 = BgL_arg3496z00_1227; 
BgL_tail2683z00_5736 = BgL_newtail2684z00_1226; 
BgL_tail2683z00_1222 = BgL_tail2683z00_5736; 
BgL_l2680z00_1221 = BgL_l2680z00_5735; 
goto BgL_map2681z00_1223;} } } } } } } } } 
BgL_arg3478z00_1214 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3485z00_1216, BNIL); } 
BgL_arg3332z00_1147 = 
MAKE_PAIR(BgL_arg3477z00_1213, BgL_arg3478z00_1214); } } } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg3331z00_1146, BgL_arg3332z00_1147);} } } 
}



/* node->sexp-sequence2781 */
obj_t BGl_nodezd2ze3sexpzd2sequence2781ze3zzast_dumpz00(obj_t BgL_envz00_3816, obj_t BgL_nodez00_3817)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 67 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1116;
BgL_nodez00_1116 = 
(BgL_sequencez00_bglt)(BgL_nodez00_3817); 
{ /* ./Ast/dump.scm 68 */
obj_t BgL_arg3281z00_1119;obj_t BgL_arg3282z00_1120;
{ /* ./Ast/dump.scm 68 */
BgL_nodez00_bglt BgL_obj1560z00_1874;
BgL_obj1560z00_1874 = 
(BgL_nodez00_bglt)(BgL_nodez00_1116); 
BgL_arg3281z00_1119 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1874))->BgL_locz00); } 
{ /* ./Ast/dump.scm 69 */
obj_t BgL_arg3286z00_1121;obj_t BgL_arg3287z00_1122;
BgL_arg3286z00_1121 = 
CNST_TABLE_REF(((long)29)); 
{ /* ./Ast/dump.scm 70 */
obj_t BgL_arg3290z00_1123;
{ /* ./Ast/dump.scm 70 */
obj_t BgL_l2662z00_1125;
BgL_l2662z00_1125 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1116))->BgL_nodesz00); 
{ /* ./Ast/dump.scm 70 */
bool_t BgL_test3293z00_1126;
BgL_test3293z00_1126 = 
NULLP(BgL_l2662z00_1125); 
if(BgL_test3293z00_1126)
{ /* ./Ast/dump.scm 70 */
BgL_arg3290z00_1123 = BNIL; }  else 
{ /* ./Ast/dump.scm 70 */
obj_t BgL_head2664z00_1127;
{ /* ./Ast/dump.scm 70 */
obj_t BgL_arg3314z00_1138;
{ /* ./Ast/dump.scm 70 */
obj_t BgL_arg3319z00_1140;
BgL_arg3319z00_1140 = 
CAR(BgL_l2662z00_1125); 
{ /* ./Ast/dump.scm 70 */
BgL_nodez00_bglt BgL_nodez00_1878;
BgL_nodez00_1878 = 
(BgL_nodez00_bglt)(BgL_arg3319z00_1140); 
{ /* ./Ast/dump.scm 70 */
obj_t BgL_method2771z00_1879;
{ /* ./Ast/dump.scm 70 */
BgL_objectz00_bglt BgL_objz00_1880;
BgL_objz00_1880 = 
(BgL_objectz00_bglt)(BgL_nodez00_1878); 
{ /* ./Ast/dump.scm 70 */
long BgL_objzd2classzd2numz00_1881;
BgL_objzd2classzd2numz00_1881 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1880); 
{ /* ./Ast/dump.scm 70 */
obj_t BgL_arg2017z00_1882;
{ /* ./Ast/dump.scm 70 */
int BgL_auxz00_5751;
BgL_auxz00_5751 = 
(int)(((long)1)); 
BgL_arg2017z00_1882 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5751); } 
{ /* ./Ast/dump.scm 70 */
int BgL_offsetz00_1885;
BgL_offsetz00_1885 = 
(int)(BgL_objzd2classzd2numz00_1881); 
{ /* ./Ast/dump.scm 70 */
long BgL_offsetz00_1886;
{ /* ./Ast/dump.scm 70 */
long BgL_auxz00_5755;
BgL_auxz00_5755 = 
(long)(BgL_offsetz00_1885); 
BgL_offsetz00_1886 = 
(BgL_auxz00_5755-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 70 */
long BgL_modz00_1887;
{ /* ./Ast/dump.scm 70 */
int BgL_arg2028z00_1888;
BgL_arg2028z00_1888 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 70 */
long BgL_n2z00_1896;
BgL_n2z00_1896 = 
(long)(BgL_arg2028z00_1888); 
BgL_modz00_1887 = 
(BgL_offsetz00_1886/BgL_n2z00_1896); } } 
{ /* ./Ast/dump.scm 70 */
long BgL_restz00_1889;
{ /* ./Ast/dump.scm 70 */
int BgL_arg2024z00_1890;
BgL_arg2024z00_1890 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 70 */
long BgL_n2z00_1899;
BgL_n2z00_1899 = 
(long)(BgL_arg2024z00_1890); 
BgL_restz00_1889 = 
(BgL_offsetz00_1886%BgL_n2z00_1899); } } 
{ /* ./Ast/dump.scm 70 */

{ /* ./Ast/dump.scm 70 */
obj_t BgL_bucketz00_1891;
{ /* ./Ast/dump.scm 70 */
int BgL_kz00_1901;
BgL_kz00_1901 = 
(int)(BgL_modz00_1887); 
BgL_bucketz00_1891 = 
VECTOR_REF(BgL_arg2017z00_1882,BgL_kz00_1901); } 
{ /* ./Ast/dump.scm 70 */
int BgL_kz00_1903;
BgL_kz00_1903 = 
(int)(BgL_restz00_1889); 
BgL_method2771z00_1879 = 
VECTOR_REF(BgL_bucketz00_1891,BgL_kz00_1903); } } } } } } } } } } 
BgL_arg3314z00_1138 = 
PROCEDURE_ENTRY(BgL_method2771z00_1879)(BgL_method2771z00_1879, 
(obj_t)(BgL_nodez00_1878), BEOA); } } } 
BgL_head2664z00_1127 = 
MAKE_PAIR(BgL_arg3314z00_1138, BNIL); } 
{ 
obj_t BgL_l2662z00_1128;obj_t BgL_tail2665z00_1129;
{ /* ./Ast/dump.scm 70 */
obj_t BgL_arg3295z00_1131;
BgL_arg3295z00_1131 = 
CDR(BgL_l2662z00_1125); 
BgL_l2662z00_1128 = BgL_arg3295z00_1131; 
BgL_tail2665z00_1129 = BgL_head2664z00_1127; 
BgL_map2663z00_1130:
{ /* ./Ast/dump.scm 70 */
bool_t BgL_test3298z00_1132;
BgL_test3298z00_1132 = 
NULLP(BgL_l2662z00_1128); 
if(BgL_test3298z00_1132)
{ /* ./Ast/dump.scm 70 */
BgL_arg3290z00_1123 = BgL_head2664z00_1127; }  else 
{ /* ./Ast/dump.scm 70 */
obj_t BgL_newtail2666z00_1133;
{ /* ./Ast/dump.scm 70 */
obj_t BgL_arg3305z00_1135;
{ /* ./Ast/dump.scm 70 */
obj_t BgL_arg3309z00_1137;
BgL_arg3309z00_1137 = 
CAR(BgL_l2662z00_1128); 
{ /* ./Ast/dump.scm 70 */
BgL_nodez00_bglt BgL_nodez00_1909;
BgL_nodez00_1909 = 
(BgL_nodez00_bglt)(BgL_arg3309z00_1137); 
{ /* ./Ast/dump.scm 70 */
obj_t BgL_method2771z00_1910;
{ /* ./Ast/dump.scm 70 */
BgL_objectz00_bglt BgL_objz00_1911;
BgL_objz00_1911 = 
(BgL_objectz00_bglt)(BgL_nodez00_1909); 
{ /* ./Ast/dump.scm 70 */
long BgL_objzd2classzd2numz00_1912;
BgL_objzd2classzd2numz00_1912 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1911); 
{ /* ./Ast/dump.scm 70 */
obj_t BgL_arg2017z00_1913;
{ /* ./Ast/dump.scm 70 */
int BgL_auxz00_5779;
BgL_auxz00_5779 = 
(int)(((long)1)); 
BgL_arg2017z00_1913 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5779); } 
{ /* ./Ast/dump.scm 70 */
int BgL_offsetz00_1916;
BgL_offsetz00_1916 = 
(int)(BgL_objzd2classzd2numz00_1912); 
{ /* ./Ast/dump.scm 70 */
long BgL_offsetz00_1917;
{ /* ./Ast/dump.scm 70 */
long BgL_auxz00_5783;
BgL_auxz00_5783 = 
(long)(BgL_offsetz00_1916); 
BgL_offsetz00_1917 = 
(BgL_auxz00_5783-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 70 */
long BgL_modz00_1918;
{ /* ./Ast/dump.scm 70 */
int BgL_arg2028z00_1919;
BgL_arg2028z00_1919 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 70 */
long BgL_n2z00_1927;
BgL_n2z00_1927 = 
(long)(BgL_arg2028z00_1919); 
BgL_modz00_1918 = 
(BgL_offsetz00_1917/BgL_n2z00_1927); } } 
{ /* ./Ast/dump.scm 70 */
long BgL_restz00_1920;
{ /* ./Ast/dump.scm 70 */
int BgL_arg2024z00_1921;
BgL_arg2024z00_1921 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 70 */
long BgL_n2z00_1930;
BgL_n2z00_1930 = 
(long)(BgL_arg2024z00_1921); 
BgL_restz00_1920 = 
(BgL_offsetz00_1917%BgL_n2z00_1930); } } 
{ /* ./Ast/dump.scm 70 */

{ /* ./Ast/dump.scm 70 */
obj_t BgL_bucketz00_1922;
{ /* ./Ast/dump.scm 70 */
int BgL_kz00_1932;
BgL_kz00_1932 = 
(int)(BgL_modz00_1918); 
BgL_bucketz00_1922 = 
VECTOR_REF(BgL_arg2017z00_1913,BgL_kz00_1932); } 
{ /* ./Ast/dump.scm 70 */
int BgL_kz00_1934;
BgL_kz00_1934 = 
(int)(BgL_restz00_1920); 
BgL_method2771z00_1910 = 
VECTOR_REF(BgL_bucketz00_1922,BgL_kz00_1934); } } } } } } } } } } 
BgL_arg3305z00_1135 = 
PROCEDURE_ENTRY(BgL_method2771z00_1910)(BgL_method2771z00_1910, 
(obj_t)(BgL_nodez00_1909), BEOA); } } } 
BgL_newtail2666z00_1133 = 
MAKE_PAIR(BgL_arg3305z00_1135, BNIL); } 
SET_CDR(BgL_tail2665z00_1129, BgL_newtail2666z00_1133); 
{ /* ./Ast/dump.scm 70 */
obj_t BgL_arg3301z00_1134;
BgL_arg3301z00_1134 = 
CDR(BgL_l2662z00_1128); 
{ 
obj_t BgL_tail2665z00_5803;obj_t BgL_l2662z00_5802;
BgL_l2662z00_5802 = BgL_arg3301z00_1134; 
BgL_tail2665z00_5803 = BgL_newtail2666z00_1133; 
BgL_tail2665z00_1129 = BgL_tail2665z00_5803; 
BgL_l2662z00_1128 = BgL_l2662z00_5802; 
goto BgL_map2663z00_1130;} } } } } } } } } 
BgL_arg3287z00_1122 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3290z00_1123, BNIL); } 
BgL_arg3282z00_1120 = 
MAKE_PAIR(BgL_arg3286z00_1121, BgL_arg3287z00_1122); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg3281z00_1119, BgL_arg3282z00_1120);} } } 
}



/* node->sexp-kwote2779 */
obj_t BGl_nodezd2ze3sexpzd2kwote2779ze3zzast_dumpz00(obj_t BgL_envz00_3818, obj_t BgL_nodez00_3819)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 56 */
{ 
BgL_kwotez00_bglt BgL_nodez00_1098;
BgL_nodez00_1098 = 
(BgL_kwotez00_bglt)(BgL_nodez00_3819); 
{ /* ./Ast/dump.scm 57 */
obj_t BgL_arg3243z00_1101;obj_t BgL_arg3245z00_1102;
{ /* ./Ast/dump.scm 57 */
BgL_nodez00_bglt BgL_obj1560z00_1846;
BgL_obj1560z00_1846 = 
(BgL_nodez00_bglt)(BgL_nodez00_1098); 
BgL_arg3243z00_1101 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1846))->BgL_locz00); } 
{ /* ./Ast/dump.scm 58 */
obj_t BgL_valuez00_1103;
BgL_valuez00_1103 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1098))->BgL_valuez00); 
{ /* ./Ast/dump.scm 59 */
bool_t BgL_test3248z00_1104;
if(
STRUCTP(BgL_valuez00_1103))
{ /* ./Ast/dump.scm 59 */
obj_t BgL_auxz00_5815;obj_t BgL_auxz00_5813;
BgL_auxz00_5815 = 
CNST_TABLE_REF(((long)30)); 
BgL_auxz00_5813 = 
STRUCT_KEY(BgL_valuez00_1103); 
BgL_test3248z00_1104 = 
(BgL_auxz00_5813==BgL_auxz00_5815); }  else 
{ /* ./Ast/dump.scm 59 */
BgL_test3248z00_1104 = ((bool_t)0); } 
if(BgL_test3248z00_1104)
{ /* ./Ast/dump.scm 61 */
obj_t BgL_arg3250z00_1105;obj_t BgL_arg3251z00_1106;
BgL_arg3250z00_1105 = 
CNST_TABLE_REF(((long)31)); 
{ /* ./Ast/dump.scm 60 */
obj_t BgL_arg3254z00_1107;
{ /* ./Ast/dump.scm 60 */
obj_t BgL_arg3259z00_1109;obj_t BgL_arg3260z00_1110;
{ /* ./Ast/dump.scm 60 */
obj_t BgL_arg3263z00_1111;
{ /* ./Ast/dump.scm 60 */
int BgL_auxz00_5820;
BgL_auxz00_5820 = 
(int)(((long)0)); 
BgL_arg3263z00_1111 = 
STRUCT_REF(BgL_valuez00_1103, BgL_auxz00_5820); } 
BgL_arg3259z00_1109 = 
BGl_shapez00zztools_shapez00(BgL_arg3263z00_1111); } 
{ /* ./Ast/dump.scm 61 */
int BgL_auxz00_5824;
BgL_auxz00_5824 = 
(int)(((long)1)); 
BgL_arg3260z00_1110 = 
STRUCT_REF(BgL_valuez00_1103, BgL_auxz00_5824); } 
{ /* ./Ast/dump.scm 60 */
obj_t BgL_newz00_1863;
{ /* ./Ast/dump.scm 60 */
int BgL_auxz00_5829;obj_t BgL_auxz00_5827;
BgL_auxz00_5829 = 
(int)(((long)2)); 
BgL_auxz00_5827 = 
CNST_TABLE_REF(((long)30)); 
BgL_newz00_1863 = 
create_struct(BgL_auxz00_5827, BgL_auxz00_5829); } 
{ /* ./Ast/dump.scm 60 */
int BgL_kz00_1867;
BgL_kz00_1867 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_1863, BgL_kz00_1867, BgL_arg3260z00_1110); } 
{ /* ./Ast/dump.scm 60 */
int BgL_kz00_1872;
BgL_kz00_1872 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1863, BgL_kz00_1872, BgL_arg3259z00_1109); } 
BgL_arg3254z00_1107 = BgL_newz00_1863; } } 
BgL_arg3251z00_1106 = 
MAKE_PAIR(BgL_arg3254z00_1107, BNIL); } 
BgL_arg3245z00_1102 = 
MAKE_PAIR(BgL_arg3250z00_1105, BgL_arg3251z00_1106); }  else 
{ /* ./Ast/dump.scm 62 */
obj_t BgL_arg3268z00_1112;obj_t BgL_arg3269z00_1113;
BgL_arg3268z00_1112 = 
CNST_TABLE_REF(((long)31)); 
BgL_arg3269z00_1113 = 
MAKE_PAIR(BgL_valuez00_1103, BNIL); 
BgL_arg3245z00_1102 = 
MAKE_PAIR(BgL_arg3268z00_1112, BgL_arg3269z00_1113); } } } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg3243z00_1101, BgL_arg3245z00_1102);} } } 
}



/* node->sexp-closure2777 */
obj_t BGl_nodezd2ze3sexpzd2closure2777ze3zzast_dumpz00(obj_t BgL_envz00_3820, obj_t BgL_nodez00_3821)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 49 */
{ 
BgL_closurez00_bglt BgL_nodez00_1086;
BgL_nodez00_1086 = 
(BgL_closurez00_bglt)(BgL_nodez00_3821); 
{ /* ./Ast/dump.scm 50 */
obj_t BgL_arg3220z00_1089;obj_t BgL_arg3221z00_1090;
{ /* ./Ast/dump.scm 50 */
BgL_nodez00_bglt BgL_obj1560z00_1844;
BgL_obj1560z00_1844 = 
(BgL_nodez00_bglt)(BgL_nodez00_1086); 
BgL_arg3220z00_1089 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1844))->BgL_locz00); } 
{ /* ./Ast/dump.scm 51 */
obj_t BgL_arg3225z00_1091;obj_t BgL_arg3226z00_1092;
BgL_arg3225z00_1091 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./Ast/dump.scm 51 */
obj_t BgL_arg3229z00_1093;
{ /* ./Ast/dump.scm 51 */
BgL_variablez00_bglt BgL_arg3233z00_1095;
{ /* ./Ast/dump.scm 51 */
BgL_varz00_bglt BgL_obj1625z00_1845;
BgL_obj1625z00_1845 = 
(BgL_varz00_bglt)(BgL_nodez00_1086); 
BgL_arg3233z00_1095 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1845))->BgL_variablez00); } 
BgL_arg3229z00_1093 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg3233z00_1095)); } 
BgL_arg3226z00_1092 = 
MAKE_PAIR(BgL_arg3229z00_1093, BNIL); } 
BgL_arg3221z00_1090 = 
MAKE_PAIR(BgL_arg3225z00_1091, BgL_arg3226z00_1092); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg3220z00_1089, BgL_arg3221z00_1090);} } } 
}



/* node->sexp-var2775 */
obj_t BGl_nodezd2ze3sexpzd2var2775ze3zzast_dumpz00(obj_t BgL_envz00_3822, obj_t BgL_nodez00_3823)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 43 */
{ 
BgL_varz00_bglt BgL_nodez00_1078;
BgL_nodez00_1078 = 
(BgL_varz00_bglt)(BgL_nodez00_3823); 
{ /* ./Ast/dump.scm 44 */
obj_t BgL_arg3204z00_1081;obj_t BgL_arg3205z00_1082;
{ /* ./Ast/dump.scm 44 */
BgL_nodez00_bglt BgL_obj1560z00_1842;
BgL_obj1560z00_1842 = 
(BgL_nodez00_bglt)(BgL_nodez00_1078); 
BgL_arg3204z00_1081 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1842))->BgL_locz00); } 
{ /* ./Ast/dump.scm 44 */
BgL_variablez00_bglt BgL_arg3210z00_1083;
BgL_arg3210z00_1083 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1078))->BgL_variablez00); 
BgL_arg3205z00_1082 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg3210z00_1083)); } 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg3204z00_1081, BgL_arg3205z00_1082);} } } 
}



/* node->sexp-atom2773 */
obj_t BGl_nodezd2ze3sexpzd2atom2773ze3zzast_dumpz00(obj_t BgL_envz00_3824, obj_t BgL_nodez00_3825)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 35 */
{ 
BgL_atomz00_bglt BgL_nodez00_1067;
BgL_nodez00_1067 = 
(BgL_atomz00_bglt)(BgL_nodez00_3825); 
{ /* ./Ast/dump.scm 36 */
bool_t BgL_test3180z00_1070;
{ /* ./Ast/dump.scm 36 */
obj_t BgL_auxz00_5861;
BgL_auxz00_5861 = 
(((BgL_atomz00_bglt)CREF(BgL_nodez00_1067))->BgL_valuez00); 
BgL_test3180z00_1070 = 
NULLP(BgL_auxz00_5861); } 
if(BgL_test3180z00_1070)
{ /* ./Ast/dump.scm 37 */
obj_t BgL_arg3183z00_1071;obj_t BgL_arg3184z00_1072;
{ /* ./Ast/dump.scm 37 */
BgL_nodez00_bglt BgL_obj1560z00_1839;
BgL_obj1560z00_1839 = 
(BgL_nodez00_bglt)(BgL_nodez00_1067); 
BgL_arg3183z00_1071 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1839))->BgL_locz00); } 
BgL_arg3184z00_1072 = 
CNST_TABLE_REF(((long)33)); 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg3183z00_1071, BgL_arg3184z00_1072);}  else 
{ /* ./Ast/dump.scm 38 */
obj_t BgL_arg3188z00_1073;obj_t BgL_arg3189z00_1074;
{ /* ./Ast/dump.scm 38 */
BgL_nodez00_bglt BgL_obj1560z00_1840;
BgL_obj1560z00_1840 = 
(BgL_nodez00_bglt)(BgL_nodez00_1067); 
BgL_arg3188z00_1073 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1840))->BgL_locz00); } 
BgL_arg3189z00_1074 = 
(((BgL_atomz00_bglt)CREF(BgL_nodez00_1067))->BgL_valuez00); 
return 
BGl_locationzd2shapezd2zztools_locationz00(BgL_arg3188z00_1073, BgL_arg3189z00_1074);} } } } 
}



/* node->sexp */
BGL_EXPORTED_DEF obj_t BGl_nodezd2ze3sexpz31zzast_dumpz00(BgL_nodez00_bglt BgL_nodez00_11)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 30 */
{ /* ./Ast/dump.scm 30 */
obj_t BgL_method2771z00_3709;
{ /* ./Ast/dump.scm 30 */
BgL_objectz00_bglt BgL_objz00_3710;
BgL_objz00_3710 = 
(BgL_objectz00_bglt)(BgL_nodez00_11); 
{ /* ./Ast/dump.scm 30 */
long BgL_objzd2classzd2numz00_3711;
BgL_objzd2classzd2numz00_3711 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3710); 
{ /* ./Ast/dump.scm 30 */
obj_t BgL_arg2017z00_3712;
{ /* ./Ast/dump.scm 30 */
int BgL_auxz00_5876;
BgL_auxz00_5876 = 
(int)(((long)1)); 
BgL_arg2017z00_3712 = 
PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BgL_auxz00_5876); } 
{ /* ./Ast/dump.scm 30 */
int BgL_offsetz00_3715;
BgL_offsetz00_3715 = 
(int)(BgL_objzd2classzd2numz00_3711); 
{ /* ./Ast/dump.scm 30 */
long BgL_offsetz00_3716;
{ /* ./Ast/dump.scm 30 */
long BgL_auxz00_5880;
BgL_auxz00_5880 = 
(long)(BgL_offsetz00_3715); 
BgL_offsetz00_3716 = 
(BgL_auxz00_5880-OBJECT_TYPE); } 
{ /* ./Ast/dump.scm 30 */
long BgL_modz00_3717;
{ /* ./Ast/dump.scm 30 */
int BgL_arg2028z00_3718;
BgL_arg2028z00_3718 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 30 */
long BgL_n2z00_3726;
BgL_n2z00_3726 = 
(long)(BgL_arg2028z00_3718); 
BgL_modz00_3717 = 
(BgL_offsetz00_3716/BgL_n2z00_3726); } } 
{ /* ./Ast/dump.scm 30 */
long BgL_restz00_3719;
{ /* ./Ast/dump.scm 30 */
int BgL_arg2024z00_3720;
BgL_arg2024z00_3720 = 
(int)(((long)8)); 
{ /* ./Ast/dump.scm 30 */
long BgL_n2z00_3729;
BgL_n2z00_3729 = 
(long)(BgL_arg2024z00_3720); 
BgL_restz00_3719 = 
(BgL_offsetz00_3716%BgL_n2z00_3729); } } 
{ /* ./Ast/dump.scm 30 */

{ /* ./Ast/dump.scm 30 */
obj_t BgL_bucketz00_3721;
{ /* ./Ast/dump.scm 30 */
int BgL_kz00_3731;
BgL_kz00_3731 = 
(int)(BgL_modz00_3717); 
BgL_bucketz00_3721 = 
VECTOR_REF(BgL_arg2017z00_3712,BgL_kz00_3731); } 
{ /* ./Ast/dump.scm 30 */
int BgL_kz00_3733;
BgL_kz00_3733 = 
(int)(BgL_restz00_3719); 
BgL_method2771z00_3709 = 
VECTOR_REF(BgL_bucketz00_3721,BgL_kz00_3733); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2771z00_3709)(BgL_method2771z00_3709, 
(obj_t)(BgL_nodez00_11), BEOA);} } 
}



/* _node->sexp4765 */
obj_t BGl__nodezd2ze3sexp4765z31zzast_dumpz00(obj_t BgL_envz00_3738, obj_t BgL_nodez00_3739)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 30 */
return 
BGl_nodezd2ze3sexpz31zzast_dumpz00(
(BgL_nodez00_bglt)(BgL_nodez00_3739));} 
}



/* node->sexp-default2770 */
obj_t BGl_nodezd2ze3sexpzd2default2770ze3zzast_dumpz00(BgL_nodez00_bglt BgL_nodez00_12)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 14 */
{ /* ./Ast/dump.scm 14 */
obj_t BgL_procz00_3734;obj_t BgL_objectz00_3736;
BgL_procz00_3734 = 
CNST_TABLE_REF(((long)34)); 
BgL_objectz00_3736 = 
(obj_t)(BgL_nodez00_12); 
FAILURE(BgL_procz00_3734,BGl_string5657z00zzast_dumpz00,BgL_objectz00_3736);} } 
}



/* _node->sexp-default2770 */
obj_t BGl__nodezd2ze3sexpzd2default2770ze3zzast_dumpz00(obj_t BgL_envz00_3826, obj_t BgL_nodez00_3827)
{ AN_OBJECT;
{ /* ./Ast/dump.scm 14 */
return 
BGl_nodezd2ze3sexpzd2default2770ze3zzast_dumpz00(
(BgL_nodez00_bglt)(BgL_nodez00_3827));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzast_dumpz00()
{ AN_OBJECT;
{ /* ./Ast/dump.scm 14 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "ast_dump"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "ast_dump"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "ast_dump"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "ast_dump"); 
BGl_modulezd2initializa7ationz75zztools_argsz00(((long)42726), "ast_dump"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "ast_dump"); 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "ast_dump"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "ast_dump"); 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "ast_dump"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "ast_dump"); 
return 
BGl_modulezd2initializa7ationz75zzeffect_effectz00(((long)14017), "ast_dump");} 
}

