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


BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__usezd2variablez12zc0zzast_sexpz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzast_sexpz00();
BGL_IMPORT obj_t open_input_string(obj_t);
extern bool_t BGl_globalzd2readzd2onlyzf3zf3zzast_varz00(BgL_globalz00_bglt);
extern obj_t BGl_nodez00zzast_nodez00;
extern BgL_nodez00_bglt BGl_letzd2ze3nodez31zzast_letz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2globalzf2modulez20zzast_envz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_usezd2variablez12zc0zzast_sexpz00(BgL_variablez00_bglt, obj_t, obj_t);
extern BgL_atomz00_bglt BGl_makezd2atomzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
extern BgL_failz00_bglt BGl_makezd2failzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt);
BGL_IMPORT char * BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_za2cachezd2nameza2zd2zzast_sexpz00 = BUNSPEC;
static obj_t BGl_za2cachezd2stackza2zd2zzast_sexpz00 = BUNSPEC;
extern obj_t BGl_za2compilerzd2debugza2zd2zzengine_paramz00;
extern obj_t BGl_userzd2errorzf2locationz20zztools_errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t string_to_bstring(char *);
static obj_t BGl__makezd2anonymouszd2namez00zzast_sexpz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2_za2z00zztype_cachez00;
extern obj_t BGl_funz00zzast_varz00;
extern obj_t BGl_za2targetzd2languageza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
extern obj_t BGl_globalz00zzast_varz00;
static obj_t BGl__sexpza2zd2ze3nodez93zzast_sexpz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_liipz00zzast_sexpz00(obj_t);
static obj_t BGl_za2sitesza2z00zzast_sexpz00 = BUNSPEC;
extern BgL_conditionalz00_bglt BGl_makezd2conditionalzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt);
static obj_t BGl__topzd2levelzd2sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t, obj_t);
extern obj_t BGl_dssslzd2findzd2firstzd2formalzd2zztools_dssslz00(obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_zc3anonymousza33772ze3z83zzast_sexpz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_za2cachezd2resza2zd2zzast_sexpz00 = BUNSPEC;
extern BgL_feffectz00_bglt BGl_parsezd2effectzd2zzeffect_feffectz00(obj_t);
extern BgL_nodez00_bglt BGl_pragmazf2typezd2ze3nodezc3zzast_pragmaz00(bool_t, obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_varz00zzast_nodez00;
extern BgL_appz00_bglt BGl_makezd2appzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t);
extern obj_t BGl_za2bdbzd2debugza2zd2zzengine_paramz00;
static obj_t BGl_cnstzd2initzd2zzast_sexpz00();
extern obj_t BGl_atomz00zzast_nodez00;
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_topzd2levelzd2sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t);
BGL_IMPORT obj_t c_substring(obj_t, int, int);
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
extern obj_t BGl_za2unspecza2z00zztype_cachez00;
static obj_t BGl_importedzd2moduleszd2initz00zzast_sexpz00();
extern obj_t BGl_findzd2locationzf2locz20zztools_locationz00(obj_t, obj_t);
static obj_t BGl__sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_currentzd2functionzd2zztools_errorz00();
extern BgL_closurez00_bglt BGl_makezd2closurezd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_za2bnilza2z00zztype_cachez00;
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_locationzd2ze3nodez31zzast_sexpz00(BgL_globalz00_bglt);
extern obj_t BGl_makezd2typedzd2identz00zzast_identz00(obj_t, obj_t);
extern BgL_nodez00_bglt BGl_applicationzd2ze3nodez31zzast_appz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzast_sexpz00();
extern BgL_jumpzd2exzd2itz00_bglt BGl_jumpzd2exitzd2ze3nodeze3zzast_exitz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
extern BgL_sequencez00_bglt BGl_makezd2sequencezd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_prognz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_dssslz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_buildz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_pragmaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_labelsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_letz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_exitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_appz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_applyz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_privatez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzeffect_feffectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__dssslz00(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 *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
extern obj_t BGl_normaliza7ezd2prognz75zztools_prognz00(obj_t);
extern obj_t BGl_epairifyzd2reczd2zztools_miscz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2globalzd2zzast_envz00(obj_t, obj_t);
BGL_IMPORT bool_t bigloo_strncmp(obj_t, obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_sexpza2zd2ze3nodez93zzast_sexpz00(obj_t, obj_t, obj_t, obj_t);
extern BgL_kwotez00_bglt BGl_makezd2kwotezd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
static obj_t BGl__definezd2primopzd2refzd2ze3nodez31zzast_sexpz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t string_to_symbol(char *);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_definezd2primopzd2refzd2ze3nodez31zzast_sexpz00(BgL_globalz00_bglt, BgL_nodez00_bglt);
BGL_IMPORT obj_t string_append(obj_t, obj_t);
static obj_t BGl__definezd2primopzd2ze3nodeze3zzast_sexpz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_definezd2primopzd2ze3nodeze3zzast_sexpz00(BgL_globalz00_bglt);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
static obj_t BGl_lookupz00zzast_sexpz00(obj_t, obj_t);
static obj_t BGl__locationzd2ze3nodez31zzast_sexpz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern BgL_letzd2funzd2_bglt BGl_setzd2exitzd2ze3nodeze3zzast_exitz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_cfunz00zzast_varz00;
extern obj_t BGl_privatezd2ze3nodez31zzast_privatez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__errorzd2sexpzd2ze3nodeze3zzast_sexpz00(obj_t, obj_t, obj_t, obj_t);
extern bool_t BGl_privatezd2sexpzf3z21zzast_privatez00(obj_t);
static obj_t BGl_loopz00zzast_sexpz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_replacez12z12zztools_miscz00(obj_t, obj_t);
extern obj_t BGl_epairifyz00zztools_miscz00(obj_t, obj_t);
extern obj_t BGl_localz00zzast_varz00;
extern BgL_setqz00_bglt BGl_makezd2setqzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt);
BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2anonymouszd2namez00zzast_sexpz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(obj_t, obj_t, obj_t);
extern BgL_varz00_bglt BGl_makezd2varzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
extern BgL_selectz00_bglt BGl_makezd2selectzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt, obj_t, BgL_typez00_bglt);
static obj_t BGl_requirezd2initializa7ationz75zzast_sexpz00 = BUNSPEC;
extern BgL_letzd2funzd2_bglt BGl_labelszd2ze3nodez31zzast_labelsz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2magicza2z00zztype_cachez00;
extern BgL_nodez00_bglt BGl_applycationzd2ze3nodez31zzast_applyz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
extern BgL_typez00_bglt BGl_typeofzd2atomzd2zztype_typeofz00(obj_t);
extern obj_t BGl_parsezd2idzd2zzast_identz00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzast_sexpz00();
extern obj_t BGl_dssslzd2namedzd2constantzf3zf3zztools_dssslz00(obj_t);
extern obj_t BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(obj_t);
static obj_t __cnst[ 38 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_sexpzd2ze3nodezd2envze3zzast_sexpz00, BgL_bgl__sexpza7d2za7e3nodeza731za7za7ast_sexpza7005101z00, BGl__sexpzd2ze3nodez31zzast_sexpz00, 0L, 4 );
DEFINE_STRING( BGl_string5069z00zzast_sexpz00, BgL_bgl_string5069za700za7za7ast_sexpza7005102z00, "> (@ __evmeaning_address foreign) define-primop! define-primop-ref! write cons (quote ()) jump-exit set-exit case failure letrec define begin apply (jvm .net) quote @ app eval not if ::bool test location set! let else labels lambda free-pragma/effect free-pragma exp car pragma/effect pragma value (value apply app set!) ", 321 );
DEFINE_STRING( BGl_string5068z00zzast_sexpz00, BgL_bgl_string5068za700za7za7ast_sexpza7005103z00, "-", 1 );
DEFINE_STRING( BGl_string5067z00zzast_sexpz00, BgL_bgl_string5067za700za7za7ast_sexpza7005104z00, ">", 1 );
DEFINE_STRING( BGl_string5066z00zzast_sexpz00, BgL_bgl_string5066za700za7za7ast_sexpza7005105z00, "./", 2 );
DEFINE_STRING( BGl_string5065z00zzast_sexpz00, BgL_bgl_string5065za700za7za7ast_sexpza7005106z00, ":", 1 );
DEFINE_STRING( BGl_string5064z00zzast_sexpz00, BgL_bgl_string5064za700za7za7ast_sexpza7005107z00, "<", 1 );
DEFINE_STRING( BGl_string5063z00zzast_sexpz00, BgL_bgl_string5063za700za7za7ast_sexpza7005108z00, "anonymous", 9 );
DEFINE_STRING( BGl_string5062z00zzast_sexpz00, BgL_bgl_string5062za700za7za7ast_sexpza7005109z00, "Illegal mutation", 16 );
DEFINE_STRING( BGl_string5061z00zzast_sexpz00, BgL_bgl_string5061za700za7za7ast_sexpza7005110z00, "Illegal empty sequence", 22 );
DEFINE_STRING( BGl_string5060z00zzast_sexpz00, BgL_bgl_string5060za700za7za7ast_sexpza7005111z00, "Illegal formal argument", 23 );
DEFINE_STRING( BGl_string5059z00zzast_sexpz00, BgL_bgl_string5059za700za7za7ast_sexpza7005112z00, "wrong number of argument", 24 );
DEFINE_STRING( BGl_string5058z00zzast_sexpz00, BgL_bgl_string5058za700za7za7ast_sexpza7005113z00, "Illegal `()' expression", 23 );
DEFINE_STRING( BGl_string5057z00zzast_sexpz00, BgL_bgl_string5057za700za7za7ast_sexpza7005114z00, "Illegal atom", 12 );
DEFINE_STRING( BGl_string5056z00zzast_sexpz00, BgL_bgl_string5056za700za7za7ast_sexpza7005115z00, "Java method cannot be used as value", 35 );
DEFINE_STRING( BGl_string5055z00zzast_sexpz00, BgL_bgl_string5055za700za7za7ast_sexpza7005116z00, "Unbound variable", 16 );
DEFINE_STRING( BGl_string5054z00zzast_sexpz00, BgL_bgl_string5054za700za7za7ast_sexpza7005117z00, "Illegal `@' expression", 22 );
DEFINE_STRING( BGl_string5053z00zzast_sexpz00, BgL_bgl_string5053za700za7za7ast_sexpza7005118z00, "Illegal `quote' expression", 26 );
DEFINE_STRING( BGl_string5052z00zzast_sexpz00, BgL_bgl_string5052za700za7za7ast_sexpza7005119z00, "Illegal `if' form", 17 );
DEFINE_STRING( BGl_string5051z00zzast_sexpz00, BgL_bgl_string5051za700za7za7ast_sexpza7005120z00, "illegal `set!' expression", 25 );
DEFINE_STRING( BGl_string5050z00zzast_sexpz00, BgL_bgl_string5050za700za7za7ast_sexpza7005121z00, "Read-only variable", 18 );
DEFINE_STRING( BGl_string5049z00zzast_sexpz00, BgL_bgl_string5049za700za7za7ast_sexpza7005122z00, "Illegal `set!' form", 19 );
DEFINE_STRING( BGl_string5048z00zzast_sexpz00, BgL_bgl_string5048za700za7za7ast_sexpza7005123z00, "illegal `define' expression", 27 );
DEFINE_STRING( BGl_string5047z00zzast_sexpz00, BgL_bgl_string5047za700za7za7ast_sexpza7005124z00, "Illegal `define' form", 21 );
DEFINE_STRING( BGl_string5046z00zzast_sexpz00, BgL_bgl_string5046za700za7za7ast_sexpza7005125z00, "Illegal `failure' form", 22 );
DEFINE_STRING( BGl_string5045z00zzast_sexpz00, BgL_bgl_string5045za700za7za7ast_sexpza7005126z00, "Illegal `case' form", 19 );
DEFINE_STRING( BGl_string5044z00zzast_sexpz00, BgL_bgl_string5044za700za7za7ast_sexpza7005127z00, "Illegal `lambda' form", 21 );
DEFINE_STRING( BGl_string5043z00zzast_sexpz00, BgL_bgl_string5043za700za7za7ast_sexpza7005128z00, "Illegal `free-pragma/effect' form", 33 );
DEFINE_STRING( BGl_string5042z00zzast_sexpz00, BgL_bgl_string5042za700za7za7ast_sexpza7005129z00, "Illegal `pragma/effect' form", 28 );
DEFINE_EXPORT_PROCEDURE( BGl_topzd2levelzd2sexpzd2ze3nodezd2envze3zzast_sexpz00, BgL_bgl__topza7d2levelza7d2sexpza7d2za7e3nodeza731za7za7ast_sexpza7005130z00, BGl__topzd2levelzd2sexpzd2ze3nodez31zzast_sexpz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_sexpza2zd2ze3nodezd2envz41zzast_sexpz00, BgL_bgl__sexpza7a2za7d2za7e3nodeza793za7za7ast_sexpza7005131za7, BGl__sexpza2zd2ze3nodez93zzast_sexpz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_definezd2primopzd2ze3nodezd2envz31zzast_sexpz00, BgL_bgl__defineza7d2primopza7d2za7e3nodeza7e3za7za7ast_sexpza7005132za7, BGl__definezd2primopzd2ze3nodeze3zzast_sexpz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_errorzd2sexpzd2ze3nodezd2envz31zzast_sexpz00, BgL_bgl__errorza7d2sexpza7d2za7e3nodeza7e3za7za7ast_sexpza7005133za7, BGl__errorzd2sexpzd2ze3nodeze3zzast_sexpz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2anonymouszd2namezd2envzd2zzast_sexpz00, BgL_bgl__makeza7d2anonymousza7d2nameza700za7za7ast_sexpza7005134z00, va_generic_entry, BGl__makezd2anonymouszd2namez00zzast_sexpz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_usezd2variablez12zd2envz12zzast_sexpz00, BgL_bgl__useza7d2variableza712za7c0za7za7ast_sexpza7005135z00, BGl__usezd2variablez12zc0zzast_sexpz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_definezd2primopzd2refzd2ze3nodezd2envze3zzast_sexpz00, BgL_bgl__defineza7d2primopza7d2refza7d2za7e3nodeza731za7za7ast_sexpza7005136z00, BGl__definezd2primopzd2refzd2ze3nodez31zzast_sexpz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_locationzd2ze3nodezd2envze3zzast_sexpz00, BgL_bgl__locationza7d2za7e3nodeza731za7za7ast_sexpza7005137z00, BGl__locationzd2ze3nodez31zzast_sexpz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long BgL_checksumz00_2393, char * BgL_fromz00_2394)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzast_sexpz00))
{ 
BGl_requirezd2initializa7ationz75zzast_sexpz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzast_sexpz00(); 
BGl_cnstzd2initzd2zzast_sexpz00(); 
BGl_importedzd2moduleszd2initz00zzast_sexpz00(); 
BGl_toplevelzd2initzd2zzast_sexpz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzast_sexpz00()
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 14 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zz__dssslz00(((long)0), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "ast_sexp"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzast_sexpz00()
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 14 */
{ /* ./Ast/sexp.scm 14 */
obj_t BgL_cportz00_2386;
BgL_cportz00_2386 = 
open_input_string(BGl_string5069z00zzast_sexpz00); 
{ 
long BgL_iz00_2387;
BgL_iz00_2387 = ((long)37); 
BgL_loopz00_2388:
{ /* ./Ast/sexp.scm 14 */
bool_t BgL_test5071z00_2389;
BgL_test5071z00_2389 = 
(BgL_iz00_2387==((long)-1)); 
if(BgL_test5071z00_2389)
{ /* ./Ast/sexp.scm 14 */
return BUNSPEC;}  else 
{ /* ./Ast/sexp.scm 14 */
{ /* ./Ast/sexp.scm 14 */
obj_t BgL_arg5073z00_2390;
{ /* ./Ast/sexp.scm 14 */
obj_t BgL_list5076z00_2391;
BgL_list5076z00_2391 = 
MAKE_PAIR(BgL_cportz00_2386, BNIL); 
BgL_arg5073z00_2390 = 
BGl_readz00zz__readerz00(BgL_list5076z00_2391); } 
{ /* ./Ast/sexp.scm 14 */
int BgL_auxz00_2415;
BgL_auxz00_2415 = 
(int)(BgL_iz00_2387); 
CNST_TABLE_SET(BgL_auxz00_2415, BgL_arg5073z00_2390); } } 
{ /* ./Ast/sexp.scm 14 */
int BgL_auxz00_2392;
{ /* ./Ast/sexp.scm 14 */
long BgL_auxz00_2418;
BgL_auxz00_2418 = 
(BgL_iz00_2387-((long)1)); 
BgL_auxz00_2392 = 
(int)(BgL_auxz00_2418); } 
{ 
long BgL_iz00_2421;
BgL_iz00_2421 = 
(long)(BgL_auxz00_2392); 
BgL_iz00_2387 = BgL_iz00_2421; 
goto BgL_loopz00_2388;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzast_sexpz00()
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 14 */
BGl_za2sitesza2z00zzast_sexpz00 = 
CNST_TABLE_REF(((long)0)); 
BGl_za2cachezd2nameza2zd2zzast_sexpz00 = BFALSE; 
BGl_za2cachezd2stackza2zd2zzast_sexpz00 = BFALSE; 
return ( 
BGl_za2cachezd2resza2zd2zzast_sexpz00 = BFALSE, BUNSPEC) ;} 
}



/* top-level-sexp->node */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_topzd2levelzd2sexpzd2ze3nodez31zzast_sexpz00(obj_t BgL_expz00_15, obj_t BgL_locz00_16)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 57 */
return 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_expz00_15, BNIL, BgL_locz00_16, 
CNST_TABLE_REF(((long)1)));} 
}



/* _top-level-sexp->node */
obj_t BGl__topzd2levelzd2sexpzd2ze3nodez31zzast_sexpz00(obj_t BgL_envz00_2346, obj_t BgL_expz00_2347, obj_t BgL_locz00_2348)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 57 */
{ /* ./Ast/sexp.scm 58 */
BgL_nodez00_bglt BgL_auxz00_2426;
BgL_auxz00_2426 = 
BGl_topzd2levelzd2sexpzd2ze3nodez31zzast_sexpz00(BgL_expz00_2347, BgL_locz00_2348); 
return 
(obj_t)(BgL_auxz00_2426);} } 
}



/* sexp->node */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_sexpzd2ze3nodez31zzast_sexpz00(obj_t BgL_expz00_17, obj_t BgL_stackz00_18, obj_t BgL_locz00_19, obj_t BgL_sitez00_20)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 73 */
BGl_sexpzd2ze3nodez31zzast_sexpz00:
{ 
obj_t BgL_atomz00_708;obj_t BgL_bodyz00_712;obj_t BgL_bodyz00_717;obj_t BgL_argsz00_718;obj_t BgL_varsz00_722;obj_t BgL_bodyz00_723;obj_t BgL_argsz00_724;obj_t BgL_effectz00_728;obj_t BgL_restz00_729;obj_t BgL_effectz00_732;obj_t BgL_restz00_733;
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2718z00_743;
BgL_test2718z00_743 = 
NULLP(BgL_expz00_17); 
if(BgL_test2718z00_743)
{ /* ./Ast/sexp.scm 78 */
return 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5058z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_19);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2720z00_744;
BgL_test2720z00_744 = 
BGl_iszd2azf3z21zz__objectz00(BgL_expz00_17, BGl_nodez00zzast_nodez00); 
if(BgL_test2720z00_744)
{ /* ./Ast/sexp.scm 78 */
return 
(BgL_nodez00_bglt)(BgL_expz00_17);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2722z00_745;
BgL_test2722z00_745 = 
PAIRP(BgL_expz00_17); 
if(BgL_test2722z00_745)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2723z00_746;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2439;obj_t BgL_auxz00_2437;
BgL_auxz00_2439 = 
CNST_TABLE_REF(((long)20)); 
BgL_auxz00_2437 = 
CAR(BgL_expz00_17); 
BgL_test2723z00_746 = 
(BgL_auxz00_2437==BgL_auxz00_2439); } 
if(BgL_test2723z00_746)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2443;
{ /* ./Ast/sexp.scm 149 */
obj_t BgL_locz00_923;
BgL_locz00_923 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
{ 
obj_t BgL_namez00_924;obj_t BgL_modulez00_925;
{ /* ./Ast/sexp.scm 150 */
bool_t BgL_test3134z00_929;
BgL_test3134z00_929 = 
PAIRP(BgL_expz00_17); 
if(BgL_test3134z00_929)
{ /* ./Ast/sexp.scm 150 */
obj_t BgL_cdrzd2515zd2_930;
BgL_cdrzd2515zd2_930 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 150 */
bool_t BgL_test3135z00_931;
{ /* ./Ast/sexp.scm 150 */
obj_t BgL_auxz00_2450;obj_t BgL_auxz00_2448;
BgL_auxz00_2450 = 
CNST_TABLE_REF(((long)20)); 
BgL_auxz00_2448 = 
CAR(BgL_expz00_17); 
BgL_test3135z00_931 = 
(BgL_auxz00_2448==BgL_auxz00_2450); } 
if(BgL_test3135z00_931)
{ /* ./Ast/sexp.scm 150 */
bool_t BgL_test3136z00_932;
BgL_test3136z00_932 = 
PAIRP(BgL_cdrzd2515zd2_930); 
if(BgL_test3136z00_932)
{ /* ./Ast/sexp.scm 150 */
obj_t BgL_carzd2518zd2_933;obj_t BgL_cdrzd2519zd2_934;
BgL_carzd2518zd2_933 = 
CAR(BgL_cdrzd2515zd2_930); 
BgL_cdrzd2519zd2_934 = 
CDR(BgL_cdrzd2515zd2_930); 
{ /* ./Ast/sexp.scm 150 */
bool_t BgL_test3137z00_935;
BgL_test3137z00_935 = 
SYMBOLP(BgL_carzd2518zd2_933); 
if(BgL_test3137z00_935)
{ /* ./Ast/sexp.scm 150 */
bool_t BgL_test3138z00_936;
BgL_test3138z00_936 = 
PAIRP(BgL_cdrzd2519zd2_934); 
if(BgL_test3138z00_936)
{ /* ./Ast/sexp.scm 150 */
obj_t BgL_carzd2524zd2_937;
BgL_carzd2524zd2_937 = 
CAR(BgL_cdrzd2519zd2_934); 
{ /* ./Ast/sexp.scm 150 */
bool_t BgL_test3139z00_938;
BgL_test3139z00_938 = 
SYMBOLP(BgL_carzd2524zd2_937); 
if(BgL_test3139z00_938)
{ /* ./Ast/sexp.scm 150 */
bool_t BgL_test3140z00_939;
{ /* ./Ast/sexp.scm 150 */
obj_t BgL_auxz00_2465;
BgL_auxz00_2465 = 
CDR(BgL_cdrzd2519zd2_934); 
BgL_test3140z00_939 = 
NULLP(BgL_auxz00_2465); } 
if(BgL_test3140z00_939)
{ /* ./Ast/sexp.scm 150 */
BgL_namez00_924 = BgL_carzd2518zd2_933; 
BgL_modulez00_925 = BgL_carzd2524zd2_937; 
{ /* ./Ast/sexp.scm 152 */
obj_t BgL_globalz00_943;
BgL_globalz00_943 = 
BGl_findzd2globalzf2modulez20zzast_envz00(BgL_namez00_924, BgL_modulez00_925); 
{ /* ./Ast/sexp.scm 154 */
bool_t BgL_test3167z00_944;
BgL_test3167z00_944 = 
BGl_iszd2azf3z21zz__objectz00(BgL_globalz00_943, BGl_globalz00zzast_varz00); 
if(BgL_test3167z00_944)
{ /* ./Ast/sexp.scm 156 */
bool_t BgL_test3168z00_945;
{ /* ./Ast/sexp.scm 156 */
obj_t BgL_auxz00_2475;obj_t BgL_auxz00_2472;
BgL_auxz00_2475 = 
CNST_TABLE_REF(((long)18)); 
{ /* ./Ast/sexp.scm 156 */
BgL_globalz00_bglt BgL_obj1168z00_2033;
BgL_obj1168z00_2033 = 
(BgL_globalz00_bglt)(BgL_globalz00_943); 
BgL_auxz00_2472 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1168z00_2033))->BgL_importz00); } 
BgL_test3168z00_945 = 
(BgL_auxz00_2472==BgL_auxz00_2475); } 
if(BgL_test3168z00_945)
{ /* ./Ast/sexp.scm 156 */
{ /* ./Ast/sexp.scm 157 */
obj_t BgL_arg3170z00_946;
{ /* ./Ast/sexp.scm 157 */
obj_t BgL_arg3173z00_947;obj_t BgL_arg3174z00_948;
BgL_arg3173z00_947 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg3174z00_948 = 
MAKE_PAIR(BGl_atomz00zzast_nodez00, BNIL); 
BgL_arg3170z00_946 = 
MAKE_PAIR(BgL_arg3173z00_947, BgL_arg3174z00_948); } 
{ /* ./Ast/sexp.scm 157 */
BgL_nodez00_bglt BgL_auxz00_2482;
BgL_auxz00_2482 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg3170z00_946, BgL_stackz00_18, BgL_locz00_923, BgL_sitez00_20); 
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2482); } } }  else 
{ /* ./Ast/sexp.scm 156 */
BGl_usezd2variablez12zc0zzast_sexpz00(
(BgL_variablez00_bglt)(BgL_globalz00_943), BgL_locz00_923, BgL_sitez00_20); 
{ /* ./Ast/sexp.scm 160 */
bool_t BgL_test3178z00_949;
{ /* ./Ast/sexp.scm 160 */
bool_t BgL_test3192z00_956;
{ /* ./Ast/sexp.scm 160 */
obj_t BgL_auxz00_2487;
BgL_auxz00_2487 = 
CNST_TABLE_REF(((long)19)); 
BgL_test3192z00_956 = 
(BgL_sitez00_20==BgL_auxz00_2487); } 
if(BgL_test3192z00_956)
{ /* ./Ast/sexp.scm 160 */
BgL_test3178z00_949 = ((bool_t)0); }  else 
{ /* ./Ast/sexp.scm 161 */
BgL_valuez00_bglt BgL_arg3194z00_957;
{ /* ./Ast/sexp.scm 161 */
BgL_variablez00_bglt BgL_obj1100z00_2034;
BgL_obj1100z00_2034 = 
(BgL_variablez00_bglt)(BgL_globalz00_943); 
BgL_arg3194z00_957 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2034))->BgL_valuez00); } 
{ /* ./Ast/sexp.scm 161 */
obj_t BgL_obj1344z00_2035;
BgL_obj1344z00_2035 = 
(obj_t)(BgL_arg3194z00_957); 
BgL_test3178z00_949 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1344z00_2035, BGl_funz00zzast_varz00); } } } 
if(BgL_test3178z00_949)
{ /* ./Ast/sexp.scm 162 */
obj_t BgL_arg3180z00_950;BgL_typez00_bglt BgL_arg3181z00_951;obj_t BgL_arg3183z00_952;
BgL_arg3180z00_950 = BgL_locz00_923; 
{ /* ./Ast/sexp.scm 163 */
BgL_variablez00_bglt BgL_obj1097z00_2036;
BgL_obj1097z00_2036 = 
(BgL_variablez00_bglt)(BgL_globalz00_943); 
BgL_arg3181z00_951 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2036))->BgL_typez00); } 
BgL_arg3183z00_952 = BgL_globalz00_943; 
{ /* ./Ast/sexp.scm 162 */
BgL_closurez00_bglt BgL_auxz00_2498;
BgL_auxz00_2498 = 
BGl_makezd2closurezd2zzast_nodez00(BgL_arg3180z00_950, BgL_arg3181z00_951, 
(BgL_variablez00_bglt)(BgL_arg3183z00_952)); 
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2498); } }  else 
{ /* ./Ast/sexp.scm 165 */
obj_t BgL_arg3187z00_953;BgL_typez00_bglt BgL_arg3188z00_954;obj_t BgL_arg3189z00_955;
BgL_arg3187z00_953 = BgL_locz00_923; 
{ /* ./Ast/sexp.scm 166 */
BgL_variablez00_bglt BgL_obj1097z00_2037;
BgL_obj1097z00_2037 = 
(BgL_variablez00_bglt)(BgL_globalz00_943); 
BgL_arg3188z00_954 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2037))->BgL_typez00); } 
BgL_arg3189z00_955 = BgL_globalz00_943; 
{ /* ./Ast/sexp.scm 165 */
BgL_varz00_bglt BgL_auxz00_2504;
BgL_auxz00_2504 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3187z00_953, BgL_arg3188z00_954, 
(BgL_variablez00_bglt)(BgL_arg3189z00_955)); 
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2504); } } } } }  else 
{ /* ./Ast/sexp.scm 154 */
{ /* ./Ast/sexp.scm 155 */
BgL_nodez00_bglt BgL_auxz00_2508;
BgL_auxz00_2508 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5055z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_923); 
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2508); } } } } }  else 
{ /* ./Ast/sexp.scm 150 */
BgL_nodez00_bglt BgL_auxz00_2511;
BgL_tagzd2508zd2_927:
BgL_auxz00_2511 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5054z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_923); 
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2511); } }  else 
{ /* ./Ast/sexp.scm 150 */
BgL_nodez00_bglt BgL_auxz00_2514;
goto BgL_tagzd2508zd2_927;
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2514); } } }  else 
{ /* ./Ast/sexp.scm 150 */
BgL_nodez00_bglt BgL_auxz00_2516;
goto BgL_tagzd2508zd2_927;
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2516); } }  else 
{ /* ./Ast/sexp.scm 150 */
BgL_nodez00_bglt BgL_auxz00_2518;
goto BgL_tagzd2508zd2_927;
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2518); } } }  else 
{ /* ./Ast/sexp.scm 150 */
BgL_nodez00_bglt BgL_auxz00_2520;
goto BgL_tagzd2508zd2_927;
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2520); } }  else 
{ /* ./Ast/sexp.scm 150 */
BgL_nodez00_bglt BgL_auxz00_2522;
goto BgL_tagzd2508zd2_927;
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2522); } } }  else 
{ /* ./Ast/sexp.scm 150 */
BgL_nodez00_bglt BgL_auxz00_2524;
goto BgL_tagzd2508zd2_927;
BgL_auxz00_2443 = 
(obj_t)(BgL_auxz00_2524); } } } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2443);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2725z00_747;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2529;obj_t BgL_auxz00_2527;
BgL_auxz00_2529 = 
CNST_TABLE_REF(((long)21)); 
BgL_auxz00_2527 = 
CAR(BgL_expz00_17); 
BgL_test2725z00_747 = 
(BgL_auxz00_2527==BgL_auxz00_2529); } 
if(BgL_test2725z00_747)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2533;
{ 
obj_t BgL_valuez00_960;
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3209z00_964;
BgL_test3209z00_964 = 
PAIRP(BgL_expz00_17); 
if(BgL_test3209z00_964)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2535zd2_965;
BgL_cdrzd2535zd2_965 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3210z00_966;
BgL_test3210z00_966 = 
PAIRP(BgL_cdrzd2535zd2_965); 
if(BgL_test3210z00_966)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3211z00_967;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2539;
BgL_auxz00_2539 = 
CDR(BgL_cdrzd2535zd2_965); 
BgL_test3211z00_967 = 
NULLP(BgL_auxz00_2539); } 
if(BgL_test3211z00_967)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg3213z00_968;
BgL_arg3213z00_968 = 
CAR(BgL_cdrzd2535zd2_965); 
BgL_valuez00_960 = BgL_arg3213z00_968; 
{ /* ./Ast/sexp.scm 174 */
obj_t BgL_locz00_970;
BgL_locz00_970 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
{ /* ./Ast/sexp.scm 176 */
bool_t BgL_test3226z00_971;
BgL_test3226z00_971 = 
NULLP(BgL_valuez00_960); 
if(BgL_test3226z00_971)
{ /* ./Ast/sexp.scm 176 */
{ /* ./Ast/sexp.scm 177 */
obj_t BgL_arg3228z00_972;obj_t BgL_arg3229z00_973;
BgL_arg3228z00_972 = BgL_locz00_970; 
BgL_arg3229z00_973 = BGl_za2bnilza2z00zztype_cachez00; 
{ /* ./Ast/sexp.scm 177 */
BgL_atomz00_bglt BgL_auxz00_2547;
BgL_auxz00_2547 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3228z00_972, 
(BgL_typez00_bglt)(BgL_arg3229z00_973), BNIL); 
BgL_auxz00_2533 = 
(obj_t)(BgL_auxz00_2547); } } }  else 
{ /* ./Ast/sexp.scm 180 */
bool_t BgL_test3232z00_975;
if(
PAIRP(BgL_valuez00_960))
{ /* ./Ast/sexp.scm 180 */
BgL_test3232z00_975 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 180 */
if(
VECTORP(BgL_valuez00_960))
{ /* ./Ast/sexp.scm 181 */
BgL_test3232z00_975 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 181 */
if(
STRUCTP(BgL_valuez00_960))
{ /* ./Ast/sexp.scm 182 */
BgL_test3232z00_975 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 182 */
if(
SYMBOLP(BgL_valuez00_960))
{ /* ./Ast/sexp.scm 183 */
BgL_test3232z00_975 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 183 */
BgL_test3232z00_975 = 
KEYWORDP(BgL_valuez00_960); } } } } 
if(BgL_test3232z00_975)
{ /* ./Ast/sexp.scm 180 */
{ /* ./Ast/sexp.scm 185 */
obj_t BgL_arg3234z00_976;obj_t BgL_arg3235z00_977;obj_t BgL_arg3236z00_978;
BgL_arg3234z00_976 = BgL_locz00_970; 
BgL_arg3235z00_977 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3236z00_978 = BgL_valuez00_960; 
{ /* ./Ast/sexp.scm 185 */
BgL_kwotez00_bglt BgL_auxz00_2561;
BgL_auxz00_2561 = 
BGl_makezd2kwotezd2zzast_nodez00(BgL_arg3234z00_976, 
(BgL_typez00_bglt)(BgL_arg3235z00_977), BgL_arg3236z00_978); 
BgL_auxz00_2533 = 
(obj_t)(BgL_auxz00_2561); } } }  else 
{ /* ./Ast/sexp.scm 188 */
bool_t BgL_test3238z00_979;
{ /* ./Ast/sexp.scm 188 */
bool_t BgL_test3241z00_980;
BgL_test3241z00_980 = 
INTEGERP(BgL_valuez00_960); 
if(BgL_test3241z00_980)
{ /* ./Ast/sexp.scm 188 */
BgL_test3238z00_979 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 189 */
bool_t BgL_testz00_2567;
if(BgL_test3241z00_980)
{ /* ./Ast/sexp.scm 189 */
BgL_testz00_2567 = ((bool_t)1)
; }  else 
{ /* ./Ast/sexp.scm 189 */
BgL_testz00_2567 = 
REALP(BgL_valuez00_960)
; } 
if(BgL_testz00_2567)
{ /* ./Ast/sexp.scm 189 */
BgL_test3238z00_979 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 189 */
if(
STRINGP(BgL_valuez00_960))
{ /* ./Ast/sexp.scm 190 */
BgL_test3238z00_979 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 190 */
if(
CNSTP(BgL_valuez00_960))
{ /* ./Ast/sexp.scm 191 */
BgL_test3238z00_979 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 191 */
if(
CHARP(BgL_valuez00_960))
{ /* ./Ast/sexp.scm 195 */
BgL_test3238z00_979 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 195 */
BgL_test3238z00_979 = 
BOOLEANP(BgL_valuez00_960); } } } } } } 
if(BgL_test3238z00_979)
{ /* ./Ast/sexp.scm 188 */
{ /* ./Ast/sexp.scm 197 */
BgL_nodez00_bglt BgL_auxz00_2578;
BgL_auxz00_2578 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_valuez00_960, BgL_stackz00_18, BgL_locz00_970, BgL_sitez00_20); 
BgL_auxz00_2533 = 
(obj_t)(BgL_auxz00_2578); } }  else 
{ /* ./Ast/sexp.scm 188 */
{ /* ./Ast/sexp.scm 199 */
BgL_nodez00_bglt BgL_auxz00_2581;
BgL_auxz00_2581 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5053z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_970); 
BgL_auxz00_2533 = 
(obj_t)(BgL_auxz00_2581); } } } } } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2584;
BgL_tagzd2530zd2_962:
BgL_auxz00_2584 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5053z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_19); 
BgL_auxz00_2533 = 
(obj_t)(BgL_auxz00_2584); } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2587;
goto BgL_tagzd2530zd2_962;
BgL_auxz00_2533 = 
(obj_t)(BgL_auxz00_2587); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2589;
goto BgL_tagzd2530zd2_962;
BgL_auxz00_2533 = 
(obj_t)(BgL_auxz00_2589); } } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2533);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2727z00_748;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2594;obj_t BgL_auxz00_2592;
BgL_auxz00_2594 = 
CNST_TABLE_REF(((long)24)); 
BgL_auxz00_2592 = 
CAR(BgL_expz00_17); 
BgL_test2727z00_748 = 
(BgL_auxz00_2592==BgL_auxz00_2594); } 
if(BgL_test2727z00_748)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg2729z00_749;
BgL_arg2729z00_749 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
BgL_sequencez00_bglt BgL_auxz00_2599;
BgL_bodyz00_712 = BgL_arg2729z00_749; 
{ /* ./Ast/sexp.scm 204 */
obj_t BgL_bodyz00_989;
{ /* ./Ast/sexp.scm 204 */
bool_t BgL_test3272z00_996;
BgL_test3272z00_996 = 
NULLP(BgL_bodyz00_712); 
if(BgL_test3272z00_996)
{ /* ./Ast/sexp.scm 205 */
obj_t BgL_list3274z00_997;
BgL_list3274z00_997 = 
MAKE_PAIR(BUNSPEC, BNIL); 
BgL_bodyz00_989 = BgL_list3274z00_997; }  else 
{ /* ./Ast/sexp.scm 204 */
BgL_bodyz00_989 = BgL_bodyz00_712; } } 
{ /* ./Ast/sexp.scm 207 */
obj_t BgL_locz00_990;
BgL_locz00_990 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
{ /* ./Ast/sexp.scm 207 */
obj_t BgL_nodesz00_991;
BgL_nodesz00_991 = 
BGl_sexpza2zd2ze3nodez93zzast_sexpz00(BgL_bodyz00_989, BgL_stackz00_18, BgL_locz00_990, BgL_sitez00_20); 
{ /* ./Ast/sexp.scm 208 */

{ /* ./Ast/sexp.scm 209 */
obj_t BgL_arg3265z00_992;obj_t BgL_arg3266z00_993;obj_t BgL_arg3268z00_995;
BgL_arg3265z00_992 = BgL_locz00_990; 
BgL_arg3266z00_993 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3268z00_995 = BgL_nodesz00_991; 
BgL_auxz00_2599 = 
BGl_makezd2sequencezd2zzast_nodez00(BgL_arg3265z00_992, 
(BgL_typez00_bglt)(BgL_arg3266z00_993), BUNSPEC, 
BINT(((long)-1)), BgL_arg3268z00_995); } } } } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2599);} }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2732z00_750;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2611;obj_t BgL_auxz00_2609;
BgL_auxz00_2611 = 
CNST_TABLE_REF(((long)16)); 
BgL_auxz00_2609 = 
CAR(BgL_expz00_17); 
BgL_test2732z00_750 = 
(BgL_auxz00_2609==BgL_auxz00_2611); } 
if(BgL_test2732z00_750)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2615;
{ 
obj_t BgL_siz00_998;obj_t BgL_alorsz00_999;obj_t BgL_sinonz00_1000;obj_t BgL_siz00_1002;obj_t BgL_alorsz00_1003;
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3277z00_1007;
BgL_test3277z00_1007 = 
PAIRP(BgL_expz00_17); 
if(BgL_test3277z00_1007)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2551zd2_1008;
BgL_cdrzd2551zd2_1008 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3278z00_1009;
BgL_test3278z00_1009 = 
PAIRP(BgL_cdrzd2551zd2_1008); 
if(BgL_test3278z00_1009)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2556zd2_1010;
BgL_cdrzd2556zd2_1010 = 
CDR(BgL_cdrzd2551zd2_1008); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3279z00_1011;
BgL_test3279z00_1011 = 
PAIRP(BgL_cdrzd2556zd2_1010); 
if(BgL_test3279z00_1011)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2561zd2_1012;
BgL_cdrzd2561zd2_1012 = 
CDR(BgL_cdrzd2556zd2_1010); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3280z00_1013;
BgL_test3280z00_1013 = 
PAIRP(BgL_cdrzd2561zd2_1012); 
if(BgL_test3280z00_1013)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3281z00_1014;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2627;
BgL_auxz00_2627 = 
CDR(BgL_cdrzd2561zd2_1012); 
BgL_test3281z00_1014 = 
NULLP(BgL_auxz00_2627); } 
if(BgL_test3281z00_1014)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg3283z00_1015;obj_t BgL_arg3284z00_1016;obj_t BgL_arg3285z00_1017;
BgL_arg3283z00_1015 = 
CAR(BgL_cdrzd2551zd2_1008); 
BgL_arg3284z00_1016 = 
CAR(BgL_cdrzd2556zd2_1010); 
BgL_arg3285z00_1017 = 
CAR(BgL_cdrzd2561zd2_1012); 
BgL_siz00_998 = BgL_arg3283z00_1015; 
BgL_alorsz00_999 = BgL_arg3284z00_1016; 
BgL_sinonz00_1000 = BgL_arg3285z00_1017; 
{ 
obj_t BgL_siz00_1025;
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3319z00_1029;
BgL_test3319z00_1029 = 
PAIRP(BgL_siz00_998); 
if(BgL_test3319z00_1029)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2616zd2_1030;
BgL_cdrzd2616zd2_1030 = 
CDR(BgL_siz00_998); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3320z00_1031;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2639;obj_t BgL_auxz00_2637;
BgL_auxz00_2639 = 
CNST_TABLE_REF(((long)16)); 
BgL_auxz00_2637 = 
CAR(BgL_siz00_998); 
BgL_test3320z00_1031 = 
(BgL_auxz00_2637==BgL_auxz00_2639); } 
if(BgL_test3320z00_1031)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3321z00_1032;
BgL_test3321z00_1032 = 
PAIRP(BgL_cdrzd2616zd2_1030); 
if(BgL_test3321z00_1032)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2619zd2_1033;
BgL_cdrzd2619zd2_1033 = 
CDR(BgL_cdrzd2616zd2_1030); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3322z00_1034;
BgL_test3322z00_1034 = 
PAIRP(BgL_cdrzd2619zd2_1033); 
if(BgL_test3322z00_1034)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2622zd2_1035;
BgL_cdrzd2622zd2_1035 = 
CDR(BgL_cdrzd2619zd2_1033); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3323z00_1036;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2649;
BgL_auxz00_2649 = 
CAR(BgL_cdrzd2619zd2_1033); 
BgL_test3323z00_1036 = 
(BgL_auxz00_2649==BFALSE); } 
if(BgL_test3323z00_1036)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3324z00_1037;
BgL_test3324z00_1037 = 
PAIRP(BgL_cdrzd2622zd2_1035); 
if(BgL_test3324z00_1037)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3325z00_1038;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2655;
BgL_auxz00_2655 = 
CAR(BgL_cdrzd2622zd2_1035); 
BgL_test3325z00_1038 = 
(BgL_auxz00_2655==BTRUE); } 
if(BgL_test3325z00_1038)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3326z00_1039;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2659;
BgL_auxz00_2659 = 
CDR(BgL_cdrzd2622zd2_1035); 
BgL_test3326z00_1039 = 
NULLP(BgL_auxz00_2659); } 
if(BgL_test3326z00_1039)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg3328z00_1040;
BgL_arg3328z00_1040 = 
CAR(BgL_cdrzd2616zd2_1030); 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2664;
BgL_siz00_1025 = BgL_arg3328z00_1040; 
BgL_tagzd2608zd2_1026:
{ /* ./Ast/sexp.scm 218 */
obj_t BgL_arg3388z00_1056;
BgL_arg3388z00_1056 = 
CDR(BgL_expz00_17); 
SET_CAR(BgL_arg3388z00_1056, BgL_siz00_1025); } 
{ /* ./Ast/sexp.scm 219 */
obj_t BgL_arg3392z00_1057;
{ /* ./Ast/sexp.scm 219 */
obj_t BgL_auxz00_2667;
BgL_auxz00_2667 = 
CDR(BgL_expz00_17); 
BgL_arg3392z00_1057 = 
CDR(BgL_auxz00_2667); } 
SET_CAR(BgL_arg3392z00_1057, BgL_sinonz00_1000); } 
{ /* ./Ast/sexp.scm 220 */
obj_t BgL_arg3396z00_1058;
{ /* ./Ast/sexp.scm 220 */
obj_t BgL_auxz00_2671;
{ /* ./Ast/sexp.scm 220 */
obj_t BgL_auxz00_2672;
BgL_auxz00_2672 = 
CDR(BgL_expz00_17); 
BgL_auxz00_2671 = 
CDR(BgL_auxz00_2672); } 
BgL_arg3396z00_1058 = 
CDR(BgL_auxz00_2671); } 
SET_CAR(BgL_arg3396z00_1058, BgL_alorsz00_999); } 
BgL_auxz00_2664 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20); 
BgL_auxz00_2615 = 
(obj_t)(BgL_auxz00_2664); } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_tagzd2609zd2_1027:
{ /* ./Ast/sexp.scm 223 */
bool_t BgL_test3400z00_1059;
{ /* ./Ast/sexp.scm 223 */
bool_t BgL_test3484z00_1103;
BgL_test3484z00_1103 = 
SYMBOLP(BgL_siz00_998); 
if(BgL_test3484z00_1103)
{ /* ./Ast/sexp.scm 223 */
BgL_test3400z00_1059 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 223 */
BgL_test3400z00_1059 = 
BGl_iszd2azf3z21zz__objectz00(BgL_siz00_998, BGl_atomz00zzast_nodez00); } } 
if(BgL_test3400z00_1059)
{ /* ./Ast/sexp.scm 224 */
obj_t BgL_olocz00_1060;
BgL_olocz00_1060 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
{ /* ./Ast/sexp.scm 224 */
obj_t BgL_cdlocz00_1061;
{ /* ./Ast/sexp.scm 225 */
obj_t BgL_arg3430z00_1082;
BgL_arg3430z00_1082 = 
CDR(BgL_expz00_17); 
BgL_cdlocz00_1061 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3430z00_1082, BgL_locz00_19); } 
{ /* ./Ast/sexp.scm 225 */
obj_t BgL_cddlocz00_1062;
{ /* ./Ast/sexp.scm 226 */
obj_t BgL_arg3426z00_1081;
{ /* ./Ast/sexp.scm 226 */
obj_t BgL_auxz00_2686;
BgL_auxz00_2686 = 
CDR(BgL_expz00_17); 
BgL_arg3426z00_1081 = 
CDR(BgL_auxz00_2686); } 
BgL_cddlocz00_1062 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3426z00_1081, BgL_locz00_19); } 
{ /* ./Ast/sexp.scm 226 */
obj_t BgL_cdddlocz00_1063;
{ /* ./Ast/sexp.scm 227 */
obj_t BgL_arg3422z00_1080;
{ /* ./Ast/sexp.scm 227 */
obj_t BgL_auxz00_2690;
{ /* ./Ast/sexp.scm 227 */
obj_t BgL_auxz00_2691;
BgL_auxz00_2691 = 
CDR(BgL_expz00_17); 
BgL_auxz00_2690 = 
CDR(BgL_auxz00_2691); } 
BgL_arg3422z00_1080 = 
CDR(BgL_auxz00_2690); } 
BgL_cdddlocz00_1063 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3422z00_1080, BgL_locz00_19); } 
{ /* ./Ast/sexp.scm 227 */
obj_t BgL_lzd2sizd2_1064;
BgL_lzd2sizd2_1064 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_siz00_998, BgL_cdlocz00_1061); 
{ /* ./Ast/sexp.scm 228 */
obj_t BgL_lzd2alorszd2_1065;
BgL_lzd2alorszd2_1065 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_alorsz00_999, BgL_cddlocz00_1062); 
{ /* ./Ast/sexp.scm 229 */
obj_t BgL_lzd2sinonzd2_1066;
BgL_lzd2sinonzd2_1066 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_sinonz00_1000, BgL_cdddlocz00_1063); 
{ /* ./Ast/sexp.scm 230 */
BgL_nodez00_bglt BgL_siz00_1067;
BgL_siz00_1067 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_siz00_998, BgL_stackz00_18, BgL_lzd2sizd2_1064, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 231 */
BgL_nodez00_bglt BgL_alorsz00_1068;
BgL_alorsz00_1068 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_alorsz00_999, BgL_stackz00_18, BgL_lzd2alorszd2_1065, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 232 */
BgL_nodez00_bglt BgL_sinonz00_1069;
BgL_sinonz00_1069 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_sinonz00_1000, BgL_stackz00_18, BgL_lzd2sinonzd2_1066, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 233 */
obj_t BgL_locz00_1070;
{ /* ./Ast/sexp.scm 234 */
obj_t BgL_locz00_1077;
{ /* ./Ast/sexp.scm 236 */
obj_t BgL_arg3412z00_1079;
BgL_arg3412z00_1079 = 
(((BgL_nodez00_bglt)CREF(BgL_siz00_1067))->BgL_locz00); 
BgL_locz00_1077 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_arg3412z00_1079); } 
{ /* ./Ast/sexp.scm 237 */
bool_t BgL_testz00_2707;
if(
STRUCTP(BgL_locz00_1077))
{ /* ./Ast/sexp.scm 237 */
obj_t BgL_auxz00_2712;obj_t BgL_auxz00_2710;
BgL_auxz00_2712 = 
CNST_TABLE_REF(((long)13)); 
BgL_auxz00_2710 = 
STRUCT_KEY(BgL_locz00_1077); 
BgL_testz00_2707 = 
(BgL_auxz00_2710==BgL_auxz00_2712); }  else 
{ /* ./Ast/sexp.scm 237 */
BgL_testz00_2707 = ((bool_t)0)
; } 
if(BgL_testz00_2707)
{ /* ./Ast/sexp.scm 237 */
BgL_locz00_1070 = BgL_locz00_1077; }  else 
{ /* ./Ast/sexp.scm 237 */
BgL_locz00_1070 = BgL_olocz00_1060; } } } 
{ /* ./Ast/sexp.scm 234 */

{ /* ./Ast/sexp.scm 240 */
obj_t BgL_arg3402z00_1071;obj_t BgL_arg3403z00_1072;BgL_nodez00_bglt BgL_arg3405z00_1074;BgL_nodez00_bglt BgL_arg3406z00_1075;BgL_nodez00_bglt BgL_arg3407z00_1076;
BgL_arg3402z00_1071 = BgL_locz00_1070; 
BgL_arg3403z00_1072 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3405z00_1074 = BgL_siz00_1067; 
BgL_arg3406z00_1075 = BgL_alorsz00_1068; 
BgL_arg3407z00_1076 = BgL_sinonz00_1069; 
{ /* ./Ast/sexp.scm 240 */
BgL_conditionalz00_bglt BgL_auxz00_2715;
BgL_auxz00_2715 = 
BGl_makezd2conditionalzd2zzast_nodez00(BgL_arg3402z00_1071, 
(BgL_typez00_bglt)(BgL_arg3403z00_1072), BUNSPEC, 
BINT(((long)-1)), BgL_arg3405z00_1074, BgL_arg3406z00_1075, BgL_arg3407z00_1076); 
BgL_auxz00_2615 = 
(obj_t)(BgL_auxz00_2715); } } } } } } } } } } } } } }  else 
{ /* ./Ast/sexp.scm 245 */
obj_t BgL_testz00_1083;
{ /* ./Ast/sexp.scm 245 */
obj_t BgL_arg3481z00_1102;
BgL_arg3481z00_1102 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)14)), BEOA); 
BgL_testz00_1083 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3481z00_1102); } 
{ /* ./Ast/sexp.scm 247 */
obj_t BgL_arg3436z00_1084;
{ /* ./Ast/sexp.scm 247 */
obj_t BgL_arg3439z00_1085;obj_t BgL_arg3440z00_1086;
BgL_arg3439z00_1085 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Ast/sexp.scm 247 */
obj_t BgL_arg3443z00_1087;obj_t BgL_arg3444z00_1088;
{ /* ./Ast/sexp.scm 247 */
obj_t BgL_arg3447z00_1089;
{ /* ./Ast/sexp.scm 247 */
obj_t BgL_arg3451z00_1091;obj_t BgL_arg3452z00_1092;
{ /* ./Ast/sexp.scm 247 */
obj_t BgL_list3455z00_1093;
{ /* ./Ast/sexp.scm 247 */
obj_t BgL_arg3457z00_1094;
{ /* ./Ast/sexp.scm 247 */
obj_t BgL_auxz00_2725;
BgL_auxz00_2725 = 
CNST_TABLE_REF(((long)15)); 
BgL_arg3457z00_1094 = 
MAKE_PAIR(BgL_auxz00_2725, BNIL); } 
BgL_list3455z00_1093 = 
MAKE_PAIR(BgL_testz00_1083, BgL_arg3457z00_1094); } 
BgL_arg3451z00_1091 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3455z00_1093); } 
BgL_arg3452z00_1092 = 
MAKE_PAIR(BgL_siz00_998, BNIL); 
BgL_arg3447z00_1089 = 
MAKE_PAIR(BgL_arg3451z00_1091, BgL_arg3452z00_1092); } 
BgL_arg3443z00_1087 = 
MAKE_PAIR(BgL_arg3447z00_1089, BNIL); } 
{ /* ./Ast/sexp.scm 248 */
obj_t BgL_arg3462z00_1095;
{ /* ./Ast/sexp.scm 248 */
obj_t BgL_arg3466z00_1097;
{ /* ./Ast/sexp.scm 248 */
obj_t BgL_arg3469z00_1098;obj_t BgL_arg3470z00_1099;
BgL_arg3469z00_1098 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Ast/sexp.scm 248 */
obj_t BgL_arg3473z00_1100;
{ /* ./Ast/sexp.scm 248 */
obj_t BgL_arg3476z00_1101;
BgL_arg3476z00_1101 = 
MAKE_PAIR(BgL_sinonz00_1000, BNIL); 
BgL_arg3473z00_1100 = 
MAKE_PAIR(BgL_alorsz00_999, BgL_arg3476z00_1101); } 
BgL_arg3470z00_1099 = 
MAKE_PAIR(BgL_testz00_1083, BgL_arg3473z00_1100); } 
BgL_arg3466z00_1097 = 
MAKE_PAIR(BgL_arg3469z00_1098, BgL_arg3470z00_1099); } 
BgL_arg3462z00_1095 = 
BGl_epairifyzd2reczd2zztools_miscz00(BgL_arg3466z00_1097, BgL_expz00_17); } 
BgL_arg3444z00_1088 = 
MAKE_PAIR(BgL_arg3462z00_1095, BNIL); } 
BgL_arg3440z00_1086 = 
MAKE_PAIR(BgL_arg3443z00_1087, BgL_arg3444z00_1088); } 
BgL_arg3436z00_1084 = 
MAKE_PAIR(BgL_arg3439z00_1085, BgL_arg3440z00_1086); } 
BGl_replacez12z12zztools_miscz00(BgL_expz00_17, BgL_arg3436z00_1084); } 
{ /* ./Ast/sexp.scm 250 */
BgL_nodez00_bglt BgL_auxz00_2743;
BgL_auxz00_2743 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20); 
BgL_auxz00_2615 = 
(obj_t)(BgL_auxz00_2743); } } } } }  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2609zd2_1027;} }  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2609zd2_1027;} }  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2609zd2_1027;} } }  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2609zd2_1027;} } }  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2609zd2_1027;} }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3357z00_1047;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2748;obj_t BgL_auxz00_2746;
BgL_auxz00_2748 = 
CNST_TABLE_REF(((long)17)); 
BgL_auxz00_2746 = 
CAR(BgL_siz00_998); 
BgL_test3357z00_1047 = 
(BgL_auxz00_2746==BgL_auxz00_2748); } 
if(BgL_test3357z00_1047)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3358z00_1048;
BgL_test3358z00_1048 = 
PAIRP(BgL_cdrzd2616zd2_1030); 
if(BgL_test3358z00_1048)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3359z00_1049;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2754;
BgL_auxz00_2754 = 
CDR(BgL_cdrzd2616zd2_1030); 
BgL_test3359z00_1049 = 
NULLP(BgL_auxz00_2754); } 
if(BgL_test3359z00_1049)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg3362z00_1050;
BgL_arg3362z00_1050 = 
CAR(BgL_cdrzd2616zd2_1030); 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2759;
{ 
obj_t BgL_siz00_2760;
BgL_siz00_2760 = BgL_arg3362z00_1050; 
BgL_siz00_1025 = BgL_siz00_2760; 
goto BgL_tagzd2608zd2_1026;} 
BgL_auxz00_2615 = 
(obj_t)(BgL_auxz00_2759); } }  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2609zd2_1027;} }  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2609zd2_1027;} }  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2609zd2_1027;} } } }  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2609zd2_1027;} } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2762;
BgL_tagzd2542zd2_1005:
BgL_auxz00_2762 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5052z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_19); 
BgL_auxz00_2615 = 
(obj_t)(BgL_auxz00_2762); } }  else 
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2586zd2_1020;
BgL_cdrzd2586zd2_1020 = 
CDR(BgL_cdrzd2551zd2_1008); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3295z00_1021;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2766;
BgL_auxz00_2766 = 
CDR(BgL_cdrzd2586zd2_1020); 
BgL_test3295z00_1021 = 
NULLP(BgL_auxz00_2766); } 
if(BgL_test3295z00_1021)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg3297z00_1022;obj_t BgL_arg3298z00_1023;
BgL_arg3297z00_1022 = 
CAR(BgL_cdrzd2551zd2_1008); 
BgL_arg3298z00_1023 = 
CAR(BgL_cdrzd2586zd2_1020); 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2772;
BgL_siz00_1002 = BgL_arg3297z00_1022; 
BgL_alorsz00_1003 = BgL_arg3298z00_1023; 
{ /* ./Ast/sexp.scm 252 */
obj_t BgL_arg3488z00_1104;obj_t BgL_arg3489z00_1105;
{ /* ./Ast/sexp.scm 252 */
obj_t BgL_auxz00_2773;
BgL_auxz00_2773 = 
CDR(BgL_expz00_17); 
BgL_arg3488z00_1104 = 
CDR(BgL_auxz00_2773); } 
{ /* ./Ast/sexp.scm 252 */
obj_t BgL_list3493z00_1106;
BgL_list3493z00_1106 = 
MAKE_PAIR(BUNSPEC, BNIL); 
BgL_arg3489z00_1105 = BgL_list3493z00_1106; } 
SET_CDR(BgL_arg3488z00_1104, BgL_arg3489z00_1105); } 
BgL_auxz00_2772 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20); 
BgL_auxz00_2615 = 
(obj_t)(BgL_auxz00_2772); } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2780;
goto BgL_tagzd2542zd2_1005;
BgL_auxz00_2615 = 
(obj_t)(BgL_auxz00_2780); } } } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2782;
goto BgL_tagzd2542zd2_1005;
BgL_auxz00_2615 = 
(obj_t)(BgL_auxz00_2782); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2784;
goto BgL_tagzd2542zd2_1005;
BgL_auxz00_2615 = 
(obj_t)(BgL_auxz00_2784); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2786;
goto BgL_tagzd2542zd2_1005;
BgL_auxz00_2615 = 
(obj_t)(BgL_auxz00_2786); } } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2615);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2734z00_751;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2791;obj_t BgL_auxz00_2789;
BgL_auxz00_2791 = 
CNST_TABLE_REF(((long)12)); 
BgL_auxz00_2789 = 
CAR(BgL_expz00_17); 
BgL_test2734z00_751 = 
(BgL_auxz00_2789==BgL_auxz00_2791); } 
if(BgL_test2734z00_751)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2795;
{ 
obj_t BgL_varz00_1107;obj_t BgL_valz00_1108;
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3497z00_1112;
BgL_test3497z00_1112 = 
PAIRP(BgL_expz00_17); 
if(BgL_test3497z00_1112)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2647zd2_1113;
BgL_cdrzd2647zd2_1113 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3498z00_1114;
BgL_test3498z00_1114 = 
PAIRP(BgL_cdrzd2647zd2_1113); 
if(BgL_test3498z00_1114)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2651zd2_1115;
BgL_cdrzd2651zd2_1115 = 
CDR(BgL_cdrzd2647zd2_1113); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3499z00_1116;
BgL_test3499z00_1116 = 
PAIRP(BgL_cdrzd2651zd2_1115); 
if(BgL_test3499z00_1116)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3500z00_1117;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2804;
BgL_auxz00_2804 = 
CDR(BgL_cdrzd2651zd2_1115); 
BgL_test3500z00_1117 = 
NULLP(BgL_auxz00_2804); } 
if(BgL_test3500z00_1117)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg3502z00_1118;obj_t BgL_arg3503z00_1119;
BgL_arg3502z00_1118 = 
CAR(BgL_cdrzd2647zd2_1113); 
BgL_arg3503z00_1119 = 
CAR(BgL_cdrzd2651zd2_1115); 
BgL_varz00_1107 = BgL_arg3502z00_1118; 
BgL_valz00_1108 = BgL_arg3503z00_1119; 
{ /* ./Ast/sexp.scm 260 */
obj_t BgL_locz00_1121;
BgL_locz00_1121 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
{ /* ./Ast/sexp.scm 260 */
obj_t BgL_cdlocz00_1122;
{ /* ./Ast/sexp.scm 261 */
obj_t BgL_arg3548z00_1138;
BgL_arg3548z00_1138 = 
CDR(BgL_expz00_17); 
BgL_cdlocz00_1122 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3548z00_1138, BgL_locz00_1121); } 
{ /* ./Ast/sexp.scm 261 */
obj_t BgL_cddlocz00_1123;
{ /* ./Ast/sexp.scm 262 */
obj_t BgL_arg3544z00_1137;
{ /* ./Ast/sexp.scm 262 */
obj_t BgL_auxz00_2813;
BgL_auxz00_2813 = 
CDR(BgL_expz00_17); 
BgL_arg3544z00_1137 = 
CDR(BgL_auxz00_2813); } 
BgL_cddlocz00_1123 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3544z00_1137, BgL_locz00_1121); } 
{ /* ./Ast/sexp.scm 262 */
obj_t BgL_valzd2loczd2_1124;
BgL_valzd2loczd2_1124 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_valz00_1108, BgL_cddlocz00_1123); 
{ /* ./Ast/sexp.scm 263 */
BgL_nodez00_bglt BgL_valz00_1125;
BgL_valz00_1125 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_valz00_1108, BgL_stackz00_18, BgL_valzd2loczd2_1124, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 264 */

{ /* ./Ast/sexp.scm 265 */
BgL_nodez00_bglt BgL_astz00_1126;
BgL_astz00_1126 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_varz00_1107, BgL_stackz00_18, BgL_cdlocz00_1122, 
CNST_TABLE_REF(((long)12))); 
{ /* ./Ast/sexp.scm 266 */
bool_t BgL_test3520z00_1127;
{ /* ./Ast/sexp.scm 266 */
obj_t BgL_obj1640z00_2158;
BgL_obj1640z00_2158 = 
(obj_t)(BgL_astz00_1126); 
BgL_test3520z00_1127 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_2158, BGl_varz00zzast_nodez00); } 
if(BgL_test3520z00_1127)
{ /* ./Ast/sexp.scm 268 */
bool_t BgL_test3521z00_1129;
{ /* ./Ast/sexp.scm 268 */
bool_t BgL_test3529z00_1134;
{ /* ./Ast/sexp.scm 268 */
BgL_variablez00_bglt BgL_arg3535z00_1136;
{ /* ./Ast/sexp.scm 268 */
BgL_varz00_bglt BgL_obj1625z00_2159;
BgL_obj1625z00_2159 = 
(BgL_varz00_bglt)(BgL_astz00_1126); 
BgL_arg3535z00_1136 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2159))->BgL_variablez00); } 
{ /* ./Ast/sexp.scm 268 */
obj_t BgL_obj1240z00_2160;
BgL_obj1240z00_2160 = 
(obj_t)(BgL_arg3535z00_1136); 
BgL_test3529z00_1134 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2160, BGl_globalz00zzast_varz00); } } 
if(BgL_test3529z00_1134)
{ /* ./Ast/sexp.scm 269 */
BgL_variablez00_bglt BgL_arg3531z00_1135;
{ /* ./Ast/sexp.scm 269 */
BgL_varz00_bglt BgL_obj1625z00_2161;
BgL_obj1625z00_2161 = 
(BgL_varz00_bglt)(BgL_astz00_1126); 
BgL_arg3531z00_1135 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2161))->BgL_variablez00); } 
BgL_test3521z00_1129 = 
BGl_globalzd2readzd2onlyzf3zf3zzast_varz00(
(BgL_globalz00_bglt)(BgL_arg3531z00_1135)); }  else 
{ /* ./Ast/sexp.scm 268 */
BgL_test3521z00_1129 = ((bool_t)0); } } 
if(BgL_test3521z00_1129)
{ /* ./Ast/sexp.scm 270 */
BgL_nodez00_bglt BgL_auxz00_2835;
BgL_auxz00_2835 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5050z00zzast_sexpz00, BgL_expz00_17, BgL_cdlocz00_1122); 
BgL_auxz00_2795 = 
(obj_t)(BgL_auxz00_2835); }  else 
{ /* ./Ast/sexp.scm 274 */
obj_t BgL_arg3524z00_1130;obj_t BgL_arg3525z00_1131;BgL_nodez00_bglt BgL_arg3526z00_1132;BgL_nodez00_bglt BgL_arg3527z00_1133;
BgL_arg3524z00_1130 = BgL_locz00_1121; 
BgL_arg3525z00_1131 = BGl_za2unspecza2z00zztype_cachez00; 
BgL_arg3526z00_1132 = BgL_astz00_1126; 
BgL_arg3527z00_1133 = BgL_valz00_1125; 
{ /* ./Ast/sexp.scm 273 */
BgL_setqz00_bglt BgL_auxz00_2838;
BgL_auxz00_2838 = 
BGl_makezd2setqzd2zzast_nodez00(BgL_arg3524z00_1130, 
(BgL_typez00_bglt)(BgL_arg3525z00_1131), 
(BgL_varz00_bglt)(BgL_arg3526z00_1132), BgL_arg3527z00_1133); 
BgL_auxz00_2795 = 
(obj_t)(BgL_auxz00_2838); } } }  else 
{ /* ./Ast/sexp.scm 278 */
BgL_nodez00_bglt BgL_auxz00_2843;
BgL_auxz00_2843 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5051z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_1121); 
BgL_auxz00_2795 = 
(obj_t)(BgL_auxz00_2843); } } } } } } } } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2846;
BgL_tagzd2640zd2_1110:
{ /* ./Ast/sexp.scm 282 */
obj_t BgL_arg3554z00_1140;
BgL_arg3554z00_1140 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
BgL_auxz00_2846 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5049z00zzast_sexpz00, BgL_expz00_17, BgL_arg3554z00_1140); } 
BgL_auxz00_2795 = 
(obj_t)(BgL_auxz00_2846); } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2850;
goto BgL_tagzd2640zd2_1110;
BgL_auxz00_2795 = 
(obj_t)(BgL_auxz00_2850); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2852;
goto BgL_tagzd2640zd2_1110;
BgL_auxz00_2795 = 
(obj_t)(BgL_auxz00_2852); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2854;
goto BgL_tagzd2640zd2_1110;
BgL_auxz00_2795 = 
(obj_t)(BgL_auxz00_2854); } } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2795);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2736z00_752;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2859;obj_t BgL_auxz00_2857;
BgL_auxz00_2859 = 
CNST_TABLE_REF(((long)25)); 
BgL_auxz00_2857 = 
CAR(BgL_expz00_17); 
BgL_test2736z00_752 = 
(BgL_auxz00_2857==BgL_auxz00_2859); } 
if(BgL_test2736z00_752)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2863;
{ 
obj_t BgL_varz00_1141;obj_t BgL_valz00_1142;
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3557z00_1146;
BgL_test3557z00_1146 = 
PAIRP(BgL_expz00_17); 
if(BgL_test3557z00_1146)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2665zd2_1147;
BgL_cdrzd2665zd2_1147 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3558z00_1148;
BgL_test3558z00_1148 = 
PAIRP(BgL_cdrzd2665zd2_1147); 
if(BgL_test3558z00_1148)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2669zd2_1149;
BgL_cdrzd2669zd2_1149 = 
CDR(BgL_cdrzd2665zd2_1147); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3559z00_1150;
BgL_test3559z00_1150 = 
PAIRP(BgL_cdrzd2669zd2_1149); 
if(BgL_test3559z00_1150)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3560z00_1151;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2872;
BgL_auxz00_2872 = 
CDR(BgL_cdrzd2669zd2_1149); 
BgL_test3560z00_1151 = 
NULLP(BgL_auxz00_2872); } 
if(BgL_test3560z00_1151)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg3562z00_1152;obj_t BgL_arg3563z00_1153;
BgL_arg3562z00_1152 = 
CAR(BgL_cdrzd2665zd2_1147); 
BgL_arg3563z00_1153 = 
CAR(BgL_cdrzd2669zd2_1149); 
BgL_varz00_1141 = BgL_arg3562z00_1152; 
BgL_valz00_1142 = BgL_arg3563z00_1153; 
{ /* ./Ast/sexp.scm 291 */
obj_t BgL_locz00_1155;
BgL_locz00_1155 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
{ /* ./Ast/sexp.scm 291 */
obj_t BgL_cdlocz00_1156;
{ /* ./Ast/sexp.scm 292 */
obj_t BgL_arg3608z00_1170;
BgL_arg3608z00_1170 = 
CDR(BgL_expz00_17); 
BgL_cdlocz00_1156 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3608z00_1170, BgL_locz00_1155); } 
{ /* ./Ast/sexp.scm 292 */
obj_t BgL_cddlocz00_1157;
{ /* ./Ast/sexp.scm 293 */
obj_t BgL_arg3604z00_1169;
{ /* ./Ast/sexp.scm 293 */
obj_t BgL_auxz00_2881;
BgL_auxz00_2881 = 
CDR(BgL_expz00_17); 
BgL_arg3604z00_1169 = 
CDR(BgL_auxz00_2881); } 
BgL_cddlocz00_1157 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3604z00_1169, BgL_locz00_1155); } 
{ /* ./Ast/sexp.scm 293 */
obj_t BgL_valzd2loczd2_1158;
BgL_valzd2loczd2_1158 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_valz00_1142, BgL_cddlocz00_1157); 
{ /* ./Ast/sexp.scm 294 */
BgL_nodez00_bglt BgL_valz00_1159;
BgL_valz00_1159 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_valz00_1142, BgL_stackz00_18, BgL_valzd2loczd2_1158, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 295 */

{ /* ./Ast/sexp.scm 296 */
BgL_nodez00_bglt BgL_astz00_1160;
BgL_astz00_1160 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_varz00_1141, BgL_stackz00_18, BgL_cdlocz00_1156, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 297 */
bool_t BgL_test3580z00_1161;
{ /* ./Ast/sexp.scm 297 */
bool_t BgL_test3593z00_1167;
{ /* ./Ast/sexp.scm 297 */
obj_t BgL_obj1640z00_2176;
BgL_obj1640z00_2176 = 
(obj_t)(BgL_astz00_1160); 
BgL_test3593z00_1167 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_2176, BGl_varz00zzast_nodez00); } 
if(BgL_test3593z00_1167)
{ /* ./Ast/sexp.scm 297 */
BgL_variablez00_bglt BgL_arg3595z00_1168;
{ /* ./Ast/sexp.scm 297 */
BgL_varz00_bglt BgL_obj1625z00_2177;
BgL_obj1625z00_2177 = 
(BgL_varz00_bglt)(BgL_astz00_1160); 
BgL_arg3595z00_1168 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2177))->BgL_variablez00); } 
{ /* ./Ast/sexp.scm 297 */
obj_t BgL_obj1240z00_2178;
BgL_obj1240z00_2178 = 
(obj_t)(BgL_arg3595z00_1168); 
BgL_test3580z00_1161 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2178, BGl_globalz00zzast_varz00); } }  else 
{ /* ./Ast/sexp.scm 297 */
BgL_test3580z00_1161 = ((bool_t)0); } } 
if(BgL_test3580z00_1161)
{ /* ./Ast/sexp.scm 297 */
{ /* ./Ast/sexp.scm 299 */
BgL_variablez00_bglt BgL_arg3582z00_1162;
{ /* ./Ast/sexp.scm 299 */
BgL_varz00_bglt BgL_obj1625z00_2179;
BgL_obj1625z00_2179 = 
(BgL_varz00_bglt)(BgL_astz00_1160); 
BgL_arg3582z00_1162 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2179))->BgL_variablez00); } 
{ /* ./Ast/sexp.scm 299 */
BgL_globalz00_bglt BgL_obj1185z00_2180;obj_t BgL_val1184z00_2181;
BgL_obj1185z00_2180 = 
(BgL_globalz00_bglt)(BgL_arg3582z00_1162); 
BgL_val1184z00_2181 = 
(obj_t)(BgL_valz00_1159); 
((((BgL_globalz00_bglt)CREF(BgL_obj1185z00_2180))->BgL_srcz00) = ((obj_t)BgL_val1184z00_2181), BUNSPEC); } } 
{ /* ./Ast/sexp.scm 301 */
obj_t BgL_arg3586z00_1163;obj_t BgL_arg3587z00_1164;BgL_nodez00_bglt BgL_arg3589z00_1165;BgL_nodez00_bglt BgL_arg3590z00_1166;
BgL_arg3586z00_1163 = BgL_locz00_1155; 
BgL_arg3587z00_1164 = BGl_za2unspecza2z00zztype_cachez00; 
BgL_arg3589z00_1165 = BgL_astz00_1160; 
BgL_arg3590z00_1166 = BgL_valz00_1159; 
{ /* ./Ast/sexp.scm 300 */
BgL_setqz00_bglt BgL_auxz00_2903;
BgL_auxz00_2903 = 
BGl_makezd2setqzd2zzast_nodez00(BgL_arg3586z00_1163, 
(BgL_typez00_bglt)(BgL_arg3587z00_1164), 
(BgL_varz00_bglt)(BgL_arg3589z00_1165), BgL_arg3590z00_1166); 
BgL_auxz00_2863 = 
(obj_t)(BgL_auxz00_2903); } } }  else 
{ /* ./Ast/sexp.scm 305 */
BgL_nodez00_bglt BgL_auxz00_2908;
BgL_auxz00_2908 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5048z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_1155); 
BgL_auxz00_2863 = 
(obj_t)(BgL_auxz00_2908); } } } } } } } } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2911;
BgL_tagzd2658zd2_1144:
{ /* ./Ast/sexp.scm 309 */
obj_t BgL_arg3614z00_1172;
BgL_arg3614z00_1172 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
BgL_auxz00_2911 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5047z00zzast_sexpz00, BgL_expz00_17, BgL_arg3614z00_1172); } 
BgL_auxz00_2863 = 
(obj_t)(BgL_auxz00_2911); } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2915;
goto BgL_tagzd2658zd2_1144;
BgL_auxz00_2863 = 
(obj_t)(BgL_auxz00_2915); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2917;
goto BgL_tagzd2658zd2_1144;
BgL_auxz00_2863 = 
(obj_t)(BgL_auxz00_2917); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2919;
goto BgL_tagzd2658zd2_1144;
BgL_auxz00_2863 = 
(obj_t)(BgL_auxz00_2919); } } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2863);}  else 
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_carzd2219zd2_753;
BgL_carzd2219zd2_753 = 
CAR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2738z00_754;
BgL_test2738z00_754 = 
PAIRP(BgL_carzd2219zd2_753); 
if(BgL_test2738z00_754)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_carzd2222zd2_755;obj_t BgL_cdrzd2223zd2_756;
BgL_carzd2222zd2_755 = 
CAR(BgL_carzd2219zd2_753); 
BgL_cdrzd2223zd2_756 = 
CDR(BgL_carzd2219zd2_753); 
{ 

{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2739z00_758;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2927;
BgL_auxz00_2927 = 
CNST_TABLE_REF(((long)11)); 
BgL_test2739z00_758 = 
(BgL_carzd2222zd2_755==BgL_auxz00_2927); } 
if(BgL_test2739z00_758)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2931;
BgL_kapzd2224zd2_757:
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2774z00_772;
BgL_test2774z00_772 = 
PAIRP(BgL_cdrzd2223zd2_756); 
if(BgL_test2774z00_772)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2227zd2_773;
BgL_cdrzd2227zd2_773 = 
CDR(BgL_cdrzd2223zd2_756); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2775z00_774;
BgL_test2775z00_774 = 
PAIRP(BgL_cdrzd2227zd2_773); 
if(BgL_test2775z00_774)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2776z00_775;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2937;
BgL_auxz00_2937 = 
CDR(BgL_cdrzd2227zd2_773); 
BgL_test2776z00_775 = 
NULLP(BgL_auxz00_2937); } 
if(BgL_test2776z00_775)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg2778z00_776;obj_t BgL_arg2779z00_777;
BgL_arg2778z00_776 = 
CAR(BgL_cdrzd2227zd2_773); 
BgL_arg2779z00_777 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2943;
BgL_bodyz00_717 = BgL_arg2778z00_776; 
BgL_argsz00_718 = BgL_arg2779z00_777; 
{ /* ./Ast/sexp.scm 314 */
obj_t BgL_letzd2partzd2_1173;
BgL_letzd2partzd2_1173 = 
CAR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 314 */
obj_t BgL_nexpz00_1174;
{ /* ./Ast/sexp.scm 315 */
obj_t BgL_arg3619z00_1175;obj_t BgL_arg3620z00_1176;
BgL_arg3619z00_1175 = 
CAR(BgL_letzd2partzd2_1173); 
{ /* ./Ast/sexp.scm 315 */
obj_t BgL_arg3624z00_1177;obj_t BgL_arg3625z00_1178;
{ /* ./Ast/sexp.scm 315 */
obj_t BgL_auxz00_2946;
BgL_auxz00_2946 = 
CDR(BgL_letzd2partzd2_1173); 
BgL_arg3624z00_1177 = 
CAR(BgL_auxz00_2946); } 
{ /* ./Ast/sexp.scm 315 */
obj_t BgL_arg3629z00_1179;
{ /* ./Ast/sexp.scm 315 */
obj_t BgL_arg3633z00_1181;
BgL_arg3633z00_1181 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_argsz00_718, BNIL); 
BgL_arg3629z00_1179 = 
MAKE_PAIR(BgL_bodyz00_717, BgL_arg3633z00_1181); } 
BgL_arg3625z00_1178 = 
MAKE_PAIR(BgL_arg3629z00_1179, BNIL); } 
BgL_arg3620z00_1176 = 
MAKE_PAIR(BgL_arg3624z00_1177, BgL_arg3625z00_1178); } 
BgL_nexpz00_1174 = 
MAKE_PAIR(BgL_arg3619z00_1175, BgL_arg3620z00_1176); } 
{ /* ./Ast/sexp.scm 315 */

BgL_auxz00_2943 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_nexpz00_1174, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20); } } } 
BgL_auxz00_2931 = 
(obj_t)(BgL_auxz00_2943); } }  else 
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_carzd2254zd2_778;
BgL_carzd2254zd2_778 = 
CAR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2259zd2_779;
BgL_cdrzd2259zd2_779 = 
CDR(BgL_carzd2254zd2_778); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2783z00_780;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_2960;obj_t BgL_auxz00_2958;
BgL_auxz00_2960 = 
CNST_TABLE_REF(((long)8)); 
BgL_auxz00_2958 = 
CAR(BgL_carzd2254zd2_778); 
BgL_test2783z00_780 = 
(BgL_auxz00_2958==BgL_auxz00_2960); } 
if(BgL_test2783z00_780)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg2785z00_781;obj_t BgL_arg2786z00_782;obj_t BgL_arg2787z00_783;
BgL_arg2785z00_781 = 
CAR(BgL_cdrzd2259zd2_779); 
BgL_arg2786z00_782 = 
CDR(BgL_cdrzd2259zd2_779); 
BgL_arg2787z00_783 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2967;
BgL_varsz00_722 = BgL_arg2785z00_781; 
BgL_bodyz00_723 = BgL_arg2786z00_782; 
BgL_argsz00_724 = BgL_arg2787z00_783; 
BgL_tagzd2132zd2_725:
{ /* ./Ast/sexp.scm 325 */
obj_t BgL_locz00_1182;
BgL_locz00_1182 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
{ /* ./Ast/sexp.scm 326 */
obj_t BgL_arg3640z00_1183;
{ /* ./Ast/sexp.scm 326 */
obj_t BgL_arg3643z00_1184;obj_t BgL_arg3644z00_1185;
BgL_arg3643z00_1184 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Ast/sexp.scm 326 */
obj_t BgL_arg3647z00_1186;obj_t BgL_arg3648z00_1187;
BgL_arg3647z00_1186 = 
BGl_loopz00zzast_sexpz00(BgL_expz00_17, BgL_locz00_1182, BgL_varsz00_722, BgL_argsz00_724); 
{ /* ./Ast/sexp.scm 368 */
obj_t BgL_arg3758z00_1236;
{ /* ./Ast/sexp.scm 368 */
obj_t BgL_arg3762z00_1238;obj_t BgL_arg3763z00_1239;
{ /* ./Ast/sexp.scm 368 */
obj_t BgL_arg3768z00_1242;
BgL_arg3768z00_1242 = 
BGl_currentzd2functionzd2zztools_errorz00(); 
BgL_arg3762z00_1238 = 
BGl_shapez00zztools_shapez00(BgL_arg3768z00_1242); } 
BgL_arg3763z00_1239 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyz00_723); 
{ /* ./Ast/sexp.scm 372 */
obj_t BgL_zc3anonymousza33772ze3z83_2349;
{ 
int BgL_auxz00_2976;int BgL_auxz00_2974;
BgL_auxz00_2976 = 
(int)(((long)1)); 
BgL_auxz00_2974 = 
(int)(((long)3)); 
BgL_zc3anonymousza33772ze3z83_2349 = 
make_fx_procedure(BGl_zc3anonymousza33772ze3z83zzast_sexpz00, BgL_auxz00_2974, BgL_auxz00_2976); } 
{ /* ./Ast/sexp.scm 372 */
int BgL_auxz00_2979;
BgL_auxz00_2979 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33772ze3z83_2349, BgL_auxz00_2979, BgL_locz00_1182); } 
BgL_arg3758z00_1236 = 
BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(BgL_arg3762z00_1238, BgL_varsz00_722, BgL_arg3763z00_1239, BgL_zc3anonymousza33772ze3z83_2349, BNIL); } } 
BgL_arg3648z00_1187 = 
MAKE_PAIR(BgL_arg3758z00_1236, BNIL); } 
BgL_arg3644z00_1185 = 
MAKE_PAIR(BgL_arg3647z00_1186, BgL_arg3648z00_1187); } 
BgL_arg3640z00_1183 = 
MAKE_PAIR(BgL_arg3643z00_1184, BgL_arg3644z00_1185); } 
BgL_auxz00_2967 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg3640z00_1183, BgL_stackz00_18, BgL_locz00_1182, BgL_sitez00_20); } } 
BgL_auxz00_2931 = 
(obj_t)(BgL_auxz00_2967); } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2792z00_784;
BgL_test2792z00_784 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2792z00_784)
{ /* ./Ast/sexp.scm 78 */
BgL_tagzd2143zd2_740:
BgL_auxz00_2931 = 
BGl_privatezd2ze3nodez31zzast_privatez00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20)
; }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_2991;
BgL_tagzd2144zd2_741:
{ /* ./Ast/sexp.scm 493 */
obj_t BgL_callerz00_1373;obj_t BgL_locz00_1374;
BgL_callerz00_1373 = 
CAR(BgL_expz00_17); 
BgL_locz00_1374 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
{ /* ./Ast/sexp.scm 495 */
bool_t BgL_test4008z00_1375;
BgL_test4008z00_1375 = 
SYMBOLP(BgL_callerz00_1373); 
if(BgL_test4008z00_1375)
{ /* ./Ast/sexp.scm 497 */
obj_t BgL_pidz00_1376;
BgL_pidz00_1376 = 
BGl_parsezd2idzd2zzast_identz00(BgL_callerz00_1373, BgL_locz00_1374); 
{ /* ./Ast/sexp.scm 497 */
obj_t BgL_idz00_1377;
BgL_idz00_1377 = 
CAR(BgL_pidz00_1376); 
{ /* ./Ast/sexp.scm 498 */
obj_t BgL_typez00_1378;
BgL_typez00_1378 = 
CDR(BgL_pidz00_1376); 
{ /* ./Ast/sexp.scm 499 */

{ /* ./Ast/sexp.scm 500 */
bool_t BgL_test4009z00_1380;
BgL_test4009z00_1380 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_idz00_1377, 
CNST_TABLE_REF(((long)2))); 
if(BgL_test4009z00_1380)
{ /* ./Ast/sexp.scm 500 */
BgL_auxz00_2991 = 
BGl_pragmazf2typezd2ze3nodezc3zzast_pragmaz00(((bool_t)0), BFALSE, 
(BgL_typez00_bglt)(BgL_typez00_1378), BgL_expz00_17, BgL_stackz00_18, BgL_locz00_1374, BgL_sitez00_20)
; }  else 
{ /* ./Ast/sexp.scm 500 */
bool_t BgL_test4011z00_1381;
BgL_test4011z00_1381 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_idz00_1377, 
CNST_TABLE_REF(((long)3))); 
if(BgL_test4011z00_1381)
{ /* ./Ast/sexp.scm 504 */
bool_t BgL_test4012z00_1382;
{ /* ./Ast/sexp.scm 504 */
obj_t BgL_auxz00_3007;
BgL_auxz00_3007 = 
CDR(BgL_expz00_17); 
BgL_test4012z00_1382 = 
PAIRP(BgL_auxz00_3007); } 
if(BgL_test4012z00_1382)
{ /* ./Ast/sexp.scm 508 */
BgL_feffectz00_bglt BgL_arg4014z00_1383;obj_t BgL_arg4015z00_1384;
{ /* ./Ast/sexp.scm 508 */
obj_t BgL_arg4018z00_1385;
{ /* ./Ast/sexp.scm 508 */
obj_t BgL_auxz00_3011;
BgL_auxz00_3011 = 
CDR(BgL_expz00_17); 
BgL_arg4018z00_1385 = 
CAR(BgL_auxz00_3011); } 
BgL_arg4014z00_1383 = 
BGl_parsezd2effectzd2zzeffect_feffectz00(BgL_arg4018z00_1385); } 
{ /* ./Ast/sexp.scm 509 */
obj_t BgL_arg4022z00_1386;obj_t BgL_arg4023z00_1387;
{ /* ./Ast/sexp.scm 509 */
obj_t BgL_arg4026z00_1388;obj_t BgL_arg4027z00_1389;
BgL_arg4026z00_1388 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Ast/sexp.scm 509 */
obj_t BgL_auxz00_3016;
BgL_auxz00_3016 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg4027z00_1389 = 
MAKE_PAIR(BgL_auxz00_3016, BNIL); } 
BgL_arg4022z00_1386 = 
MAKE_PAIR(BgL_arg4026z00_1388, BgL_arg4027z00_1389); } 
{ /* ./Ast/sexp.scm 509 */
obj_t BgL_auxz00_3020;
{ /* ./Ast/sexp.scm 509 */
obj_t BgL_auxz00_3021;
BgL_auxz00_3021 = 
CDR(BgL_expz00_17); 
BgL_auxz00_3020 = 
CDR(BgL_auxz00_3021); } 
BgL_arg4023z00_1387 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3020, BNIL); } 
BgL_arg4015z00_1384 = 
MAKE_PAIR(BgL_arg4022z00_1386, BgL_arg4023z00_1387); } 
BgL_auxz00_2991 = 
BGl_pragmazf2typezd2ze3nodezc3zzast_pragmaz00(((bool_t)0), 
(obj_t)(BgL_arg4014z00_1383), 
(BgL_typez00_bglt)(BgL_typez00_1378), BgL_arg4015z00_1384, BgL_stackz00_18, BgL_locz00_1374, BgL_sitez00_20); }  else 
{ /* ./Ast/sexp.scm 505 */
obj_t BgL_arg4037z00_1393;
BgL_arg4037z00_1393 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_1374); 
BgL_auxz00_2991 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5042z00zzast_sexpz00, BgL_arg4037z00_1393, BgL_locz00_1374); } }  else 
{ /* ./Ast/sexp.scm 500 */
bool_t BgL_test4044z00_1395;
BgL_test4044z00_1395 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_idz00_1377, 
CNST_TABLE_REF(((long)6))); 
if(BgL_test4044z00_1395)
{ /* ./Ast/sexp.scm 500 */
BgL_auxz00_2991 = 
BGl_pragmazf2typezd2ze3nodezc3zzast_pragmaz00(((bool_t)1), BFALSE, 
(BgL_typez00_bglt)(BgL_typez00_1378), BgL_expz00_17, BgL_stackz00_18, BgL_locz00_1374, BgL_sitez00_20)
; }  else 
{ /* ./Ast/sexp.scm 500 */
bool_t BgL_test4046z00_1396;
BgL_test4046z00_1396 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_idz00_1377, 
CNST_TABLE_REF(((long)7))); 
if(BgL_test4046z00_1396)
{ /* ./Ast/sexp.scm 514 */
bool_t BgL_test4047z00_1397;
{ /* ./Ast/sexp.scm 514 */
obj_t BgL_auxz00_3039;
BgL_auxz00_3039 = 
CDR(BgL_expz00_17); 
BgL_test4047z00_1397 = 
PAIRP(BgL_auxz00_3039); } 
if(BgL_test4047z00_1397)
{ /* ./Ast/sexp.scm 518 */
BgL_feffectz00_bglt BgL_arg4049z00_1398;obj_t BgL_arg4050z00_1399;
{ /* ./Ast/sexp.scm 518 */
obj_t BgL_arg4053z00_1400;
{ /* ./Ast/sexp.scm 518 */
obj_t BgL_auxz00_3043;
BgL_auxz00_3043 = 
CDR(BgL_expz00_17); 
BgL_arg4053z00_1400 = 
CAR(BgL_auxz00_3043); } 
BgL_arg4049z00_1398 = 
BGl_parsezd2effectzd2zzeffect_feffectz00(BgL_arg4053z00_1400); } 
{ /* ./Ast/sexp.scm 519 */
obj_t BgL_arg4057z00_1401;obj_t BgL_arg4058z00_1402;
{ /* ./Ast/sexp.scm 519 */
obj_t BgL_arg4061z00_1403;obj_t BgL_arg4062z00_1404;
BgL_arg4061z00_1403 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Ast/sexp.scm 519 */
obj_t BgL_auxz00_3048;
BgL_auxz00_3048 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg4062z00_1404 = 
MAKE_PAIR(BgL_auxz00_3048, BNIL); } 
BgL_arg4057z00_1401 = 
MAKE_PAIR(BgL_arg4061z00_1403, BgL_arg4062z00_1404); } 
{ /* ./Ast/sexp.scm 519 */
obj_t BgL_auxz00_3052;
{ /* ./Ast/sexp.scm 519 */
obj_t BgL_auxz00_3053;
BgL_auxz00_3053 = 
CDR(BgL_expz00_17); 
BgL_auxz00_3052 = 
CDR(BgL_auxz00_3053); } 
BgL_arg4058z00_1402 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3052, BNIL); } 
BgL_arg4050z00_1399 = 
MAKE_PAIR(BgL_arg4057z00_1401, BgL_arg4058z00_1402); } 
BgL_auxz00_2991 = 
BGl_pragmazf2typezd2ze3nodezc3zzast_pragmaz00(((bool_t)1), 
(obj_t)(BgL_arg4049z00_1398), 
(BgL_typez00_bglt)(BgL_typez00_1378), BgL_arg4050z00_1399, BgL_stackz00_18, BgL_locz00_1374, BgL_sitez00_20); }  else 
{ /* ./Ast/sexp.scm 515 */
obj_t BgL_arg4072z00_1408;
BgL_arg4072z00_1408 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_1374); 
BgL_auxz00_2991 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5043z00zzast_sexpz00, BgL_arg4072z00_1408, BgL_locz00_1374); } }  else 
{ /* ./Ast/sexp.scm 500 */
bool_t BgL_test4079z00_1410;
BgL_test4079z00_1410 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_idz00_1377, 
CNST_TABLE_REF(((long)8))); 
if(BgL_test4079z00_1410)
{ 
obj_t BgL_argsz00_1411;obj_t BgL_bodyz00_1412;
{ /* ./Ast/sexp.scm 522 */
bool_t BgL_test4080z00_1416;
BgL_test4080z00_1416 = 
PAIRP(BgL_expz00_17); 
if(BgL_test4080z00_1416)
{ /* ./Ast/sexp.scm 522 */
obj_t BgL_cdrzd2739zd2_1417;
BgL_cdrzd2739zd2_1417 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 522 */
bool_t BgL_test4081z00_1418;
BgL_test4081z00_1418 = 
PAIRP(BgL_cdrzd2739zd2_1417); 
if(BgL_test4081z00_1418)
{ /* ./Ast/sexp.scm 522 */
obj_t BgL_arg4083z00_1419;obj_t BgL_arg4084z00_1420;
BgL_arg4083z00_1419 = 
CAR(BgL_cdrzd2739zd2_1417); 
BgL_arg4084z00_1420 = 
CDR(BgL_cdrzd2739zd2_1417); 
BgL_argsz00_1411 = BgL_arg4083z00_1419; 
BgL_bodyz00_1412 = BgL_arg4084z00_1420; 
{ /* ./Ast/sexp.scm 524 */
obj_t BgL_locz00_1421;
BgL_locz00_1421 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_1374); 
{ /* ./Ast/sexp.scm 524 */
obj_t BgL_funz00_1422;
{ /* ./Ast/sexp.scm 525 */
obj_t BgL_arg4125z00_1436;
BgL_arg4125z00_1436 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)8)), BEOA); 
BgL_funz00_1422 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4125z00_1436); } 
{ /* ./Ast/sexp.scm 525 */
obj_t BgL_tfunz00_1423;
{ /* ./Ast/sexp.scm 526 */
obj_t BgL_arg4121z00_1435;
{ /* ./Ast/sexp.scm 526 */
BgL_typez00_bglt BgL_obj1003z00_2285;
BgL_obj1003z00_2285 = 
(BgL_typez00_bglt)(BgL_typez00_1378); 
BgL_arg4121z00_1435 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_2285))->BgL_idz00); } 
BgL_tfunz00_1423 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_funz00_1422, BgL_arg4121z00_1435); } 
{ /* ./Ast/sexp.scm 526 */

{ /* ./Ast/sexp.scm 528 */
obj_t BgL_arg4094z00_1424;
{ /* ./Ast/sexp.scm 528 */
obj_t BgL_arg4097z00_1425;obj_t BgL_arg4098z00_1426;
BgL_arg4097z00_1425 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Ast/sexp.scm 528 */
obj_t BgL_arg4101z00_1427;obj_t BgL_arg4102z00_1428;
{ /* ./Ast/sexp.scm 528 */
obj_t BgL_arg4105z00_1429;
{ /* ./Ast/sexp.scm 528 */
obj_t BgL_arg4109z00_1431;
{ /* ./Ast/sexp.scm 528 */
obj_t BgL_arg4112z00_1432;
{ /* ./Ast/sexp.scm 528 */
obj_t BgL_arg4115z00_1433;
BgL_arg4115z00_1433 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyz00_1412); 
BgL_arg4112z00_1432 = 
MAKE_PAIR(BgL_arg4115z00_1433, BNIL); } 
BgL_arg4109z00_1431 = 
MAKE_PAIR(BgL_argsz00_1411, BgL_arg4112z00_1432); } 
BgL_arg4105z00_1429 = 
MAKE_PAIR(BgL_tfunz00_1423, BgL_arg4109z00_1431); } 
BgL_arg4101z00_1427 = 
MAKE_PAIR(BgL_arg4105z00_1429, BNIL); } 
BgL_arg4102z00_1428 = 
MAKE_PAIR(BgL_funz00_1422, BNIL); 
BgL_arg4098z00_1426 = 
MAKE_PAIR(BgL_arg4101z00_1427, BgL_arg4102z00_1428); } 
BgL_arg4094z00_1424 = 
MAKE_PAIR(BgL_arg4097z00_1425, BgL_arg4098z00_1426); } 
BgL_auxz00_2991 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg4094z00_1424, BgL_stackz00_18, BgL_locz00_1421, BgL_sitez00_20); } } } } } }  else 
{ /* ./Ast/sexp.scm 522 */
BgL_tagzd2732zd2_1414:
BgL_auxz00_2991 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5044z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_1374)
; } } }  else 
{ /* ./Ast/sexp.scm 522 */
goto BgL_tagzd2732zd2_1414;} } }  else 
{ /* ./Ast/sexp.scm 500 */
BgL_auxz00_2991 = 
BGl_applicationzd2ze3nodez31zzast_appz00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_1374, BgL_sitez00_20)
; } } } } } } } } } }  else 
{ /* ./Ast/sexp.scm 495 */
BgL_auxz00_2991 = 
BGl_applicationzd2ze3nodez31zzast_appz00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_1374, BgL_sitez00_20)
; } } } 
BgL_auxz00_2931 = 
(obj_t)(BgL_auxz00_2991); } } } } } }  else 
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_carzd2302zd2_788;
BgL_carzd2302zd2_788 = 
CAR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2307zd2_789;
BgL_cdrzd2307zd2_789 = 
CDR(BgL_carzd2302zd2_788); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2807z00_790;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3099;obj_t BgL_auxz00_3097;
BgL_auxz00_3099 = 
CNST_TABLE_REF(((long)8)); 
BgL_auxz00_3097 = 
CAR(BgL_carzd2302zd2_788); 
BgL_test2807z00_790 = 
(BgL_auxz00_3097==BgL_auxz00_3099); } 
if(BgL_test2807z00_790)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg2809z00_791;obj_t BgL_arg2810z00_792;obj_t BgL_arg2811z00_793;
BgL_arg2809z00_791 = 
CAR(BgL_cdrzd2307zd2_789); 
BgL_arg2810z00_792 = 
CDR(BgL_cdrzd2307zd2_789); 
BgL_arg2811z00_793 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_3106;
{ 
obj_t BgL_argsz00_3109;obj_t BgL_bodyz00_3108;obj_t BgL_varsz00_3107;
BgL_varsz00_3107 = BgL_arg2809z00_791; 
BgL_bodyz00_3108 = BgL_arg2810z00_792; 
BgL_argsz00_3109 = BgL_arg2811z00_793; 
BgL_argsz00_724 = BgL_argsz00_3109; 
BgL_bodyz00_723 = BgL_bodyz00_3108; 
BgL_varsz00_722 = BgL_varsz00_3107; 
goto BgL_tagzd2132zd2_725;} 
BgL_auxz00_2931 = 
(obj_t)(BgL_auxz00_3106); } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2816z00_794;
BgL_test2816z00_794 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2816z00_794)
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2143zd2_740;}  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_3113;
goto BgL_tagzd2144zd2_741;
BgL_auxz00_2931 = 
(obj_t)(BgL_auxz00_3113); } } } } } } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2829z00_797;
BgL_test2829z00_797 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2829z00_797)
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2143zd2_740;}  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_3117;
goto BgL_tagzd2144zd2_741;
BgL_auxz00_2931 = 
(obj_t)(BgL_auxz00_3117); } } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2931);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2741z00_759;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3120;
BgL_auxz00_3120 = 
CNST_TABLE_REF(((long)26)); 
BgL_test2741z00_759 = 
(BgL_carzd2222zd2_755==BgL_auxz00_3120); } 
if(BgL_test2741z00_759)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3124;
goto BgL_kapzd2224zd2_757;
return 
(BgL_nodez00_bglt)(BgL_auxz00_3124);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2743z00_760;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3126;
BgL_auxz00_3126 = 
CNST_TABLE_REF(((long)9)); 
BgL_test2743z00_760 = 
(BgL_carzd2222zd2_755==BgL_auxz00_3126); } 
if(BgL_test2743z00_760)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3130;
goto BgL_kapzd2224zd2_757;
return 
(BgL_nodez00_bglt)(BgL_auxz00_3130);}  else 
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2391zd2_762;
BgL_cdrzd2391zd2_762 = 
CDR(BgL_carzd2219zd2_753); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2745z00_763;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3135;obj_t BgL_auxz00_3133;
BgL_auxz00_3135 = 
CNST_TABLE_REF(((long)8)); 
BgL_auxz00_3133 = 
CAR(BgL_carzd2219zd2_753); 
BgL_test2745z00_763 = 
(BgL_auxz00_3133==BgL_auxz00_3135); } 
if(BgL_test2745z00_763)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2746z00_764;
BgL_test2746z00_764 = 
PAIRP(BgL_cdrzd2391zd2_762); 
if(BgL_test2746z00_764)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg2748z00_765;obj_t BgL_arg2749z00_766;obj_t BgL_arg2750z00_767;
BgL_arg2748z00_765 = 
CAR(BgL_cdrzd2391zd2_762); 
BgL_arg2749z00_766 = 
CDR(BgL_cdrzd2391zd2_762); 
BgL_arg2750z00_767 = 
CDR(BgL_expz00_17); 
{ 
obj_t BgL_argsz00_3146;obj_t BgL_bodyz00_3145;obj_t BgL_varsz00_3144;
BgL_varsz00_3144 = BgL_arg2748z00_765; 
BgL_bodyz00_3145 = BgL_arg2749z00_766; 
BgL_argsz00_3146 = BgL_arg2750z00_767; 
BgL_argsz00_724 = BgL_argsz00_3146; 
BgL_bodyz00_723 = BgL_bodyz00_3145; 
BgL_varsz00_722 = BgL_varsz00_3144; 
goto BgL_tagzd2132zd2_725;} }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2755z00_768;
BgL_test2755z00_768 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2755z00_768)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3149;
goto BgL_tagzd2143zd2_740;
return 
(BgL_nodez00_bglt)(BgL_auxz00_3149);}  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2144zd2_741;} } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2760z00_769;
BgL_test2760z00_769 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2760z00_769)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3153;
goto BgL_tagzd2143zd2_740;
return 
(BgL_nodez00_bglt)(BgL_auxz00_3153);}  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2144zd2_741;} } } } } } } } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2836z00_799;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3155;
BgL_auxz00_3155 = 
CNST_TABLE_REF(((long)11)); 
BgL_test2836z00_799 = 
(BgL_carzd2219zd2_753==BgL_auxz00_3155); } 
if(BgL_test2836z00_799)
{ /* ./Ast/sexp.scm 78 */
BgL_tagzd2130zd2_720:
return 
BGl_letzd2ze3nodez31zzast_letz00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, 
CNST_TABLE_REF(((long)1)));}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2838z00_800;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3161;
BgL_auxz00_3161 = 
CNST_TABLE_REF(((long)26)); 
BgL_test2838z00_800 = 
(BgL_carzd2219zd2_753==BgL_auxz00_3161); } 
if(BgL_test2838z00_800)
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2130zd2_720;}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2840z00_801;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3167;obj_t BgL_auxz00_3165;
BgL_auxz00_3167 = 
CNST_TABLE_REF(((long)9)); 
BgL_auxz00_3165 = 
CAR(BgL_expz00_17); 
BgL_test2840z00_801 = 
(BgL_auxz00_3165==BgL_auxz00_3167); } 
if(BgL_test2840z00_801)
{ /* ./Ast/sexp.scm 78 */
BgL_letzd2funzd2_bglt BgL_auxz00_3171;
BgL_auxz00_3171 = 
BGl_labelszd2ze3nodez31zzast_labelsz00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, 
CNST_TABLE_REF(((long)1))); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3171);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2842z00_802;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3177;obj_t BgL_auxz00_3175;
BgL_auxz00_3177 = 
CNST_TABLE_REF(((long)8)); 
BgL_auxz00_3175 = 
CAR(BgL_expz00_17); 
BgL_test2842z00_802 = 
(BgL_auxz00_3175==BgL_auxz00_3177); } 
if(BgL_test2842z00_802)
{ /* ./Ast/sexp.scm 78 */
{ 
obj_t BgL_argsz00_1249;obj_t BgL_bodyz00_1250;
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3776z00_1254;
BgL_test3776z00_1254 = 
PAIRP(BgL_expz00_17); 
if(BgL_test3776z00_1254)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2683zd2_1255;
BgL_cdrzd2683zd2_1255 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3777z00_1256;
BgL_test3777z00_1256 = 
PAIRP(BgL_cdrzd2683zd2_1255); 
if(BgL_test3777z00_1256)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg3779z00_1257;obj_t BgL_arg3780z00_1258;
BgL_arg3779z00_1257 = 
CAR(BgL_cdrzd2683zd2_1255); 
BgL_arg3780z00_1258 = 
CDR(BgL_cdrzd2683zd2_1255); 
BgL_argsz00_1249 = BgL_arg3779z00_1257; 
BgL_bodyz00_1250 = BgL_arg3780z00_1258; 
{ /* ./Ast/sexp.scm 380 */
obj_t BgL_locz00_1259;obj_t BgL_funz00_1260;
BgL_locz00_1259 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
BgL_funz00_1260 = 
BGl_makezd2anonymouszd2namez00zzast_sexpz00(BgL_locz00_19, BNIL); 
{ /* ./Ast/sexp.scm 382 */
obj_t BgL_arg3791z00_1261;
{ /* ./Ast/sexp.scm 382 */
obj_t BgL_arg3794z00_1262;obj_t BgL_arg3795z00_1263;
BgL_arg3794z00_1262 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Ast/sexp.scm 382 */
obj_t BgL_arg3798z00_1264;obj_t BgL_arg3799z00_1265;
{ /* ./Ast/sexp.scm 382 */
obj_t BgL_arg3802z00_1266;
{ /* ./Ast/sexp.scm 382 */
obj_t BgL_arg3806z00_1268;
{ /* ./Ast/sexp.scm 382 */
obj_t BgL_arg3809z00_1269;
{ /* ./Ast/sexp.scm 382 */
obj_t BgL_arg3812z00_1270;
BgL_arg3812z00_1270 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyz00_1250); 
BgL_arg3809z00_1269 = 
MAKE_PAIR(BgL_arg3812z00_1270, BNIL); } 
BgL_arg3806z00_1268 = 
MAKE_PAIR(BgL_argsz00_1249, BgL_arg3809z00_1269); } 
BgL_arg3802z00_1266 = 
MAKE_PAIR(BgL_funz00_1260, BgL_arg3806z00_1268); } 
BgL_arg3798z00_1264 = 
MAKE_PAIR(BgL_arg3802z00_1266, BNIL); } 
BgL_arg3799z00_1265 = 
MAKE_PAIR(BgL_funz00_1260, BNIL); 
BgL_arg3795z00_1263 = 
MAKE_PAIR(BgL_arg3798z00_1264, BgL_arg3799z00_1265); } 
BgL_arg3791z00_1261 = 
MAKE_PAIR(BgL_arg3794z00_1262, BgL_arg3795z00_1263); } 
{ 
obj_t BgL_locz00_3200;obj_t BgL_expz00_3199;
BgL_expz00_3199 = BgL_arg3791z00_1261; 
BgL_locz00_3200 = BgL_locz00_1259; 
BgL_locz00_19 = BgL_locz00_3200; 
BgL_expz00_17 = BgL_expz00_3199; 
goto BGl_sexpzd2ze3nodez31zzast_sexpz00;} } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_tagzd2676zd2_1252:
{ /* ./Ast/sexp.scm 387 */
obj_t BgL_arg3822z00_1274;
BgL_arg3822z00_1274 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
return 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5044z00zzast_sexpz00, BgL_expz00_17, BgL_arg3822z00_1274);} } } }  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2676zd2_1252;} } } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2844z00_803;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3205;obj_t BgL_auxz00_3203;
BgL_auxz00_3205 = 
CNST_TABLE_REF(((long)2)); 
BgL_auxz00_3203 = 
CAR(BgL_expz00_17); 
BgL_test2844z00_803 = 
(BgL_auxz00_3203==BgL_auxz00_3205); } 
if(BgL_test2844z00_803)
{ /* ./Ast/sexp.scm 78 */
return 
BGl_pragmazf2typezd2ze3nodezc3zzast_pragmaz00(((bool_t)0), BFALSE, 
(BgL_typez00_bglt)(BGl_za2unspecza2z00zztype_cachez00), BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20);}  else 
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2463zd2_804;
BgL_cdrzd2463zd2_804 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2846z00_805;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3214;obj_t BgL_auxz00_3212;
BgL_auxz00_3214 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_3212 = 
CAR(BgL_expz00_17); 
BgL_test2846z00_805 = 
(BgL_auxz00_3212==BgL_auxz00_3214); } 
if(BgL_test2846z00_805)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2847z00_806;
BgL_test2847z00_806 = 
PAIRP(BgL_cdrzd2463zd2_804); 
if(BgL_test2847z00_806)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg2849z00_807;obj_t BgL_arg2850z00_808;
BgL_arg2849z00_807 = 
CAR(BgL_cdrzd2463zd2_804); 
BgL_arg2850z00_808 = 
CDR(BgL_cdrzd2463zd2_804); 
BgL_effectz00_728 = BgL_arg2849z00_807; 
BgL_restz00_729 = BgL_arg2850z00_808; 
{ /* ./Ast/sexp.scm 396 */
BgL_feffectz00_bglt BgL_arg3827z00_1275;obj_t BgL_arg3828z00_1276;
BgL_arg3827z00_1275 = 
BGl_parsezd2effectzd2zzeffect_feffectz00(BgL_effectz00_728); 
{ /* ./Ast/sexp.scm 397 */
obj_t BgL_arg3832z00_1277;obj_t BgL_arg3833z00_1278;
BgL_arg3832z00_1277 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3833z00_1278 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_restz00_729, BNIL); 
BgL_arg3828z00_1276 = 
MAKE_PAIR(BgL_arg3832z00_1277, BgL_arg3833z00_1278); } 
return 
BGl_pragmazf2typezd2ze3nodezc3zzast_pragmaz00(((bool_t)0), 
(obj_t)(BgL_arg3827z00_1275), 
(BgL_typez00_bglt)(BGl_za2unspecza2z00zztype_cachez00), BgL_arg3828z00_1276, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20);} }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2854z00_809;
BgL_test2854z00_809 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2854z00_809)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3231;
goto BgL_tagzd2143zd2_740;
return 
(BgL_nodez00_bglt)(BgL_auxz00_3231);}  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2144zd2_741;} } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2859z00_810;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3235;obj_t BgL_auxz00_3233;
BgL_auxz00_3235 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_3233 = 
CAR(BgL_expz00_17); 
BgL_test2859z00_810 = 
(BgL_auxz00_3233==BgL_auxz00_3235); } 
if(BgL_test2859z00_810)
{ /* ./Ast/sexp.scm 78 */
return 
BGl_pragmazf2typezd2ze3nodezc3zzast_pragmaz00(((bool_t)1), BFALSE, 
(BgL_typez00_bglt)(BGl_za2unspecza2z00zztype_cachez00), BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2861z00_812;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3243;obj_t BgL_auxz00_3241;
BgL_auxz00_3243 = 
CNST_TABLE_REF(((long)7)); 
BgL_auxz00_3241 = 
CAR(BgL_expz00_17); 
BgL_test2861z00_812 = 
(BgL_auxz00_3241==BgL_auxz00_3243); } 
if(BgL_test2861z00_812)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2862z00_813;
BgL_test2862z00_813 = 
PAIRP(BgL_cdrzd2463zd2_804); 
if(BgL_test2862z00_813)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg2864z00_814;obj_t BgL_arg2865z00_815;
BgL_arg2864z00_814 = 
CAR(BgL_cdrzd2463zd2_804); 
BgL_arg2865z00_815 = 
CDR(BgL_cdrzd2463zd2_804); 
BgL_effectz00_732 = BgL_arg2864z00_814; 
BgL_restz00_733 = BgL_arg2865z00_815; 
{ /* ./Ast/sexp.scm 404 */
BgL_feffectz00_bglt BgL_arg3838z00_1279;obj_t BgL_arg3839z00_1280;
BgL_arg3838z00_1279 = 
BGl_parsezd2effectzd2zzeffect_feffectz00(BgL_effectz00_732); 
{ /* ./Ast/sexp.scm 405 */
obj_t BgL_arg3843z00_1281;obj_t BgL_arg3844z00_1282;
BgL_arg3843z00_1281 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3844z00_1282 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_restz00_733, BNIL); 
BgL_arg3839z00_1280 = 
MAKE_PAIR(BgL_arg3843z00_1281, BgL_arg3844z00_1282); } 
return 
BGl_pragmazf2typezd2ze3nodezc3zzast_pragmaz00(((bool_t)1), 
(obj_t)(BgL_arg3838z00_1279), 
(BgL_typez00_bglt)(BGl_za2unspecza2z00zztype_cachez00), BgL_arg3839z00_1280, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20);} }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2869z00_816;
BgL_test2869z00_816 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2869z00_816)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3260;
goto BgL_tagzd2143zd2_740;
return 
(BgL_nodez00_bglt)(BgL_auxz00_3260);}  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2144zd2_741;} } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2874z00_817;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3264;obj_t BgL_auxz00_3262;
BgL_auxz00_3264 = 
CNST_TABLE_REF(((long)27)); 
BgL_auxz00_3262 = 
CAR(BgL_expz00_17); 
BgL_test2874z00_817 = 
(BgL_auxz00_3262==BgL_auxz00_3264); } 
if(BgL_test2874z00_817)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3268;
{ 
obj_t BgL_procz00_1283;obj_t BgL_msgz00_1284;obj_t BgL_objz00_1285;
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3847z00_1289;
BgL_test3847z00_1289 = 
PAIRP(BgL_expz00_17); 
if(BgL_test3847z00_1289)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2700zd2_1290;
BgL_cdrzd2700zd2_1290 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3848z00_1291;
BgL_test3848z00_1291 = 
PAIRP(BgL_cdrzd2700zd2_1290); 
if(BgL_test3848z00_1291)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2705zd2_1292;
BgL_cdrzd2705zd2_1292 = 
CDR(BgL_cdrzd2700zd2_1290); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3849z00_1293;
BgL_test3849z00_1293 = 
PAIRP(BgL_cdrzd2705zd2_1292); 
if(BgL_test3849z00_1293)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2710zd2_1294;
BgL_cdrzd2710zd2_1294 = 
CDR(BgL_cdrzd2705zd2_1292); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3850z00_1295;
BgL_test3850z00_1295 = 
PAIRP(BgL_cdrzd2710zd2_1294); 
if(BgL_test3850z00_1295)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3851z00_1296;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3280;
BgL_auxz00_3280 = 
CDR(BgL_cdrzd2710zd2_1294); 
BgL_test3851z00_1296 = 
NULLP(BgL_auxz00_3280); } 
if(BgL_test3851z00_1296)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg3853z00_1297;obj_t BgL_arg3855z00_1298;obj_t BgL_arg3856z00_1299;
BgL_arg3853z00_1297 = 
CAR(BgL_cdrzd2700zd2_1290); 
BgL_arg3855z00_1298 = 
CAR(BgL_cdrzd2705zd2_1292); 
BgL_arg3856z00_1299 = 
CAR(BgL_cdrzd2710zd2_1294); 
{ /* ./Ast/sexp.scm 78 */
BgL_failz00_bglt BgL_auxz00_3287;
BgL_procz00_1283 = BgL_arg3853z00_1297; 
BgL_msgz00_1284 = BgL_arg3855z00_1298; 
BgL_objz00_1285 = BgL_arg3856z00_1299; 
{ /* ./Ast/sexp.scm 410 */
obj_t BgL_locz00_1301;
BgL_locz00_1301 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
{ /* ./Ast/sexp.scm 410 */
obj_t BgL_cdlocz00_1302;
{ /* ./Ast/sexp.scm 411 */
obj_t BgL_arg3900z00_1318;
BgL_arg3900z00_1318 = 
CDR(BgL_expz00_17); 
BgL_cdlocz00_1302 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3900z00_1318, BgL_locz00_1301); } 
{ /* ./Ast/sexp.scm 411 */
obj_t BgL_cddlocz00_1303;
{ /* ./Ast/sexp.scm 412 */
obj_t BgL_arg3896z00_1317;
{ /* ./Ast/sexp.scm 412 */
obj_t BgL_auxz00_3291;
BgL_auxz00_3291 = 
CDR(BgL_expz00_17); 
BgL_arg3896z00_1317 = 
CDR(BgL_auxz00_3291); } 
BgL_cddlocz00_1303 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3896z00_1317, BgL_locz00_1301); } 
{ /* ./Ast/sexp.scm 412 */
obj_t BgL_cdddlocz00_1304;
{ /* ./Ast/sexp.scm 413 */
obj_t BgL_arg3892z00_1316;
{ /* ./Ast/sexp.scm 413 */
obj_t BgL_auxz00_3295;
{ /* ./Ast/sexp.scm 413 */
obj_t BgL_auxz00_3296;
BgL_auxz00_3296 = 
CDR(BgL_expz00_17); 
BgL_auxz00_3295 = 
CDR(BgL_auxz00_3296); } 
BgL_arg3892z00_1316 = 
CDR(BgL_auxz00_3295); } 
BgL_cdddlocz00_1304 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3892z00_1316, BgL_locz00_1301); } 
{ /* ./Ast/sexp.scm 413 */
obj_t BgL_loczd2proczd2_1305;
BgL_loczd2proczd2_1305 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_procz00_1283, BgL_cdlocz00_1302); 
{ /* ./Ast/sexp.scm 414 */
obj_t BgL_loczd2msgzd2_1306;
BgL_loczd2msgzd2_1306 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_msgz00_1284, BgL_cddlocz00_1303); 
{ /* ./Ast/sexp.scm 415 */
obj_t BgL_loczd2objzd2_1307;
BgL_loczd2objzd2_1307 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_objz00_1285, BgL_cdddlocz00_1304); 
{ /* ./Ast/sexp.scm 416 */
BgL_nodez00_bglt BgL_procz00_1308;
BgL_procz00_1308 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_procz00_1283, BgL_stackz00_18, BgL_loczd2proczd2_1305, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 417 */
BgL_nodez00_bglt BgL_msgz00_1309;
BgL_msgz00_1309 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_msgz00_1284, BgL_stackz00_18, BgL_loczd2msgzd2_1306, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 418 */
BgL_nodez00_bglt BgL_objz00_1310;
BgL_objz00_1310 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_objz00_1285, BgL_stackz00_18, BgL_loczd2objzd2_1307, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 419 */

{ /* ./Ast/sexp.scm 420 */
obj_t BgL_arg3879z00_1311;obj_t BgL_arg3880z00_1312;BgL_nodez00_bglt BgL_arg3881z00_1313;BgL_nodez00_bglt BgL_arg3882z00_1314;BgL_nodez00_bglt BgL_arg3883z00_1315;
BgL_arg3879z00_1311 = BgL_locz00_1301; 
BgL_arg3880z00_1312 = BGl_za2magicza2z00zztype_cachez00; 
BgL_arg3881z00_1313 = BgL_procz00_1308; 
BgL_arg3882z00_1314 = BgL_msgz00_1309; 
BgL_arg3883z00_1315 = BgL_objz00_1310; 
BgL_auxz00_3287 = 
BGl_makezd2failzd2zzast_nodez00(BgL_arg3879z00_1311, 
(BgL_typez00_bglt)(BgL_arg3880z00_1312), BgL_arg3881z00_1313, BgL_arg3882z00_1314, BgL_arg3883z00_1315); } } } } } } } } } } } } 
BgL_auxz00_3268 = 
(obj_t)(BgL_auxz00_3287); } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_3313;
BgL_tagzd2691zd2_1287:
{ /* ./Ast/sexp.scm 426 */
obj_t BgL_arg3906z00_1320;
BgL_arg3906z00_1320 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
BgL_auxz00_3313 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5046z00zzast_sexpz00, BgL_expz00_17, BgL_arg3906z00_1320); } 
BgL_auxz00_3268 = 
(obj_t)(BgL_auxz00_3313); } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_3317;
goto BgL_tagzd2691zd2_1287;
BgL_auxz00_3268 = 
(obj_t)(BgL_auxz00_3317); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_3319;
goto BgL_tagzd2691zd2_1287;
BgL_auxz00_3268 = 
(obj_t)(BgL_auxz00_3319); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_3321;
goto BgL_tagzd2691zd2_1287;
BgL_auxz00_3268 = 
(obj_t)(BgL_auxz00_3321); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_3323;
goto BgL_tagzd2691zd2_1287;
BgL_auxz00_3268 = 
(obj_t)(BgL_auxz00_3323); } } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3268);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2876z00_818;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3328;obj_t BgL_auxz00_3326;
BgL_auxz00_3328 = 
CNST_TABLE_REF(((long)28)); 
BgL_auxz00_3326 = 
CAR(BgL_expz00_17); 
BgL_test2876z00_818 = 
(BgL_auxz00_3326==BgL_auxz00_3328); } 
if(BgL_test2876z00_818)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3332;
{ 
obj_t BgL_testz00_1321;obj_t BgL_clausesz00_1322;
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3909z00_1326;
BgL_test3909z00_1326 = 
PAIRP(BgL_expz00_17); 
if(BgL_test3909z00_1326)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2724zd2_1327;
BgL_cdrzd2724zd2_1327 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test3910z00_1328;
BgL_test3910z00_1328 = 
PAIRP(BgL_cdrzd2724zd2_1327); 
if(BgL_test3910z00_1328)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_arg3912z00_1329;obj_t BgL_arg3913z00_1330;
BgL_arg3912z00_1329 = 
CAR(BgL_cdrzd2724zd2_1327); 
BgL_arg3913z00_1330 = 
CDR(BgL_cdrzd2724zd2_1327); 
BgL_testz00_1321 = BgL_arg3912z00_1329; 
BgL_clausesz00_1322 = BgL_arg3913z00_1330; 
{ /* ./Ast/sexp.scm 439 */
obj_t BgL_locz00_1331;
BgL_locz00_1331 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
{ /* ./Ast/sexp.scm 439 */
obj_t BgL_cdlocz00_1332;
{ /* ./Ast/sexp.scm 440 */
obj_t BgL_arg3995z00_1370;
BgL_arg3995z00_1370 = 
CDR(BgL_expz00_17); 
BgL_cdlocz00_1332 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3995z00_1370, BgL_locz00_1331); } 
{ /* ./Ast/sexp.scm 440 */
obj_t BgL_cddlocz00_1333;
{ /* ./Ast/sexp.scm 441 */
obj_t BgL_arg3991z00_1369;
BgL_arg3991z00_1369 = 
CDR(BgL_expz00_17); 
BgL_cddlocz00_1333 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg3991z00_1369, BgL_locz00_1331); } 
{ /* ./Ast/sexp.scm 441 */
BgL_nodez00_bglt BgL_testz00_1334;
{ /* ./Ast/sexp.scm 444 */
obj_t BgL_arg3986z00_1367;obj_t BgL_arg3987z00_1368;
BgL_arg3986z00_1367 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_testz00_1321, BgL_cdlocz00_1332); 
BgL_arg3987z00_1368 = 
CNST_TABLE_REF(((long)1)); 
BgL_testz00_1334 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_testz00_1321, BgL_stackz00_18, BgL_arg3986z00_1367, BgL_arg3987z00_1368); } 
{ /* ./Ast/sexp.scm 442 */

{ 
obj_t BgL_clsz00_1335;obj_t BgL_nclausesz00_1336;
BgL_clsz00_1335 = BgL_clausesz00_1322; 
BgL_nclausesz00_1336 = BNIL; 
BgL_loopz00_1337:
{ /* ./Ast/sexp.scm 448 */
bool_t BgL_test3923z00_1338;
BgL_test3923z00_1338 = 
NULLP(BgL_clsz00_1335); 
if(BgL_test3923z00_1338)
{ /* ./Ast/sexp.scm 450 */
obj_t BgL_arg3925z00_1339;obj_t BgL_arg3926z00_1340;BgL_nodez00_bglt BgL_arg3928z00_1342;obj_t BgL_arg3929z00_1343;BgL_typez00_bglt BgL_arg3930z00_1344;
BgL_arg3925z00_1339 = BgL_locz00_1331; 
BgL_arg3926z00_1340 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3928z00_1342 = BgL_testz00_1334; 
BgL_arg3929z00_1343 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_nclausesz00_1336); 
{ /* ./Ast/sexp.scm 453 */
obj_t BgL_arg3934z00_1345;
{ /* ./Ast/sexp.scm 453 */
obj_t BgL_auxz00_3351;
{ /* ./Ast/sexp.scm 453 */
obj_t BgL_auxz00_3352;
BgL_auxz00_3352 = 
CAR(BgL_clausesz00_1322); 
BgL_auxz00_3351 = 
CAR(BgL_auxz00_3352); } 
BgL_arg3934z00_1345 = 
CAR(BgL_auxz00_3351); } 
BgL_arg3930z00_1344 = 
BGl_typeofzd2atomzd2zztype_typeofz00(BgL_arg3934z00_1345); } 
{ /* ./Ast/sexp.scm 449 */
BgL_selectz00_bglt BgL_auxz00_3357;
BgL_auxz00_3357 = 
BGl_makezd2selectzd2zzast_nodez00(BgL_arg3925z00_1339, 
(BgL_typez00_bglt)(BgL_arg3926z00_1340), BUNSPEC, 
BINT(((long)-1)), BgL_arg3928z00_1342, BgL_arg3929z00_1343, BgL_arg3930z00_1344); 
BgL_auxz00_3332 = 
(obj_t)(BgL_auxz00_3357); } }  else 
{ /* ./Ast/sexp.scm 455 */
obj_t BgL_clausez00_1348;
BgL_clausez00_1348 = 
CAR(BgL_clsz00_1335); 
{ /* ./Ast/sexp.scm 455 */
BgL_nodez00_bglt BgL_bodyz00_1349;
{ /* ./Ast/sexp.scm 456 */
obj_t BgL_arg3974z00_1363;obj_t BgL_arg3975z00_1364;obj_t BgL_arg3976z00_1365;
{ /* ./Ast/sexp.scm 456 */
obj_t BgL_arg3979z00_1366;
BgL_arg3979z00_1366 = 
CDR(BgL_clausez00_1348); 
BgL_arg3974z00_1363 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_arg3979z00_1366); } 
BgL_arg3975z00_1364 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_clausez00_1348, BgL_cddlocz00_1333); 
BgL_arg3976z00_1365 = 
CNST_TABLE_REF(((long)1)); 
BgL_bodyz00_1349 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg3974z00_1363, BgL_stackz00_18, BgL_arg3975z00_1364, BgL_arg3976z00_1365); } 
{ /* ./Ast/sexp.scm 456 */
obj_t BgL_nclausez00_1350;
{ /* ./Ast/sexp.scm 460 */
obj_t BgL_arg3970z00_1362;
BgL_arg3970z00_1362 = 
CAR(BgL_clausez00_1348); 
{ /* ./Ast/sexp.scm 460 */
obj_t BgL_auxz00_3369;
BgL_auxz00_3369 = 
(obj_t)(BgL_bodyz00_1349); 
BgL_nclausez00_1350 = 
MAKE_PAIR(BgL_arg3970z00_1362, BgL_auxz00_3369); } } 
{ /* ./Ast/sexp.scm 460 */

{ /* ./Ast/sexp.scm 462 */
bool_t BgL_test3943z00_1351;
{ /* ./Ast/sexp.scm 462 */
bool_t BgL_testz00_3372;
{ /* ./Ast/sexp.scm 462 */
obj_t BgL_auxz00_3375;obj_t BgL_auxz00_3373;
BgL_auxz00_3375 = 
CNST_TABLE_REF(((long)10)); 
BgL_auxz00_3373 = 
CAR(BgL_clausez00_1348); 
BgL_testz00_3372 = 
(BgL_auxz00_3373==BgL_auxz00_3375); } 
if(BgL_testz00_3372)
{ /* ./Ast/sexp.scm 463 */
bool_t BgL_testz00_3378;
{ /* ./Ast/sexp.scm 463 */
obj_t BgL_auxz00_3379;
BgL_auxz00_3379 = 
CDR(BgL_clsz00_1335); 
BgL_testz00_3378 = 
NULLP(BgL_auxz00_3379); } 
if(BgL_testz00_3378)
{ /* ./Ast/sexp.scm 463 */
BgL_test3943z00_1351 = ((bool_t)0); }  else 
{ /* ./Ast/sexp.scm 463 */
BgL_test3943z00_1351 = ((bool_t)1); } }  else 
{ /* ./Ast/sexp.scm 462 */
BgL_test3943z00_1351 = ((bool_t)0); } } 
if(BgL_test3943z00_1351)
{ /* ./Ast/sexp.scm 464 */
obj_t BgL_arg3946z00_1353;
BgL_arg3946z00_1353 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_1331); 
{ /* ./Ast/sexp.scm 464 */
BgL_nodez00_bglt BgL_auxz00_3384;
BgL_auxz00_3384 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5045z00zzast_sexpz00, BgL_arg3946z00_1353, BgL_expz00_17); 
BgL_auxz00_3332 = 
(obj_t)(BgL_auxz00_3384); } }  else 
{ /* ./Ast/sexp.scm 467 */
obj_t BgL_arg3950z00_1354;obj_t BgL_arg3951z00_1355;
BgL_arg3950z00_1354 = 
CDR(BgL_clsz00_1335); 
{ /* ./Ast/sexp.scm 468 */
obj_t BgL_arg3955z00_1356;
BgL_arg3955z00_1356 = 
BGl_epairifyz00zztools_miscz00(BgL_nclausez00_1350, BgL_clausez00_1348); 
BgL_arg3951z00_1355 = 
MAKE_PAIR(BgL_arg3955z00_1356, BgL_nclausesz00_1336); } 
{ 
obj_t BgL_nclausesz00_3391;obj_t BgL_clsz00_3390;
BgL_clsz00_3390 = BgL_arg3950z00_1354; 
BgL_nclausesz00_3391 = BgL_arg3951z00_1355; 
BgL_nclausesz00_1336 = BgL_nclausesz00_3391; 
BgL_clsz00_1335 = BgL_clsz00_3390; 
goto BgL_loopz00_1337;} } } } } } } } } } } } } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_3392;
BgL_tagzd2717zd2_1324:
{ /* ./Ast/sexp.scm 471 */
obj_t BgL_arg4001z00_1372;
BgL_arg4001z00_1372 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expz00_17, BgL_locz00_19); 
BgL_auxz00_3392 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5045z00zzast_sexpz00, BgL_arg4001z00_1372, BgL_expz00_17); } 
BgL_auxz00_3332 = 
(obj_t)(BgL_auxz00_3392); } } }  else 
{ /* ./Ast/sexp.scm 78 */
BgL_nodez00_bglt BgL_auxz00_3396;
goto BgL_tagzd2717zd2_1324;
BgL_auxz00_3332 = 
(obj_t)(BgL_auxz00_3396); } } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3332);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2878z00_819;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3401;obj_t BgL_auxz00_3399;
BgL_auxz00_3401 = 
CNST_TABLE_REF(((long)29)); 
BgL_auxz00_3399 = 
CAR(BgL_expz00_17); 
BgL_test2878z00_819 = 
(BgL_auxz00_3399==BgL_auxz00_3401); } 
if(BgL_test2878z00_819)
{ /* ./Ast/sexp.scm 78 */
BgL_letzd2funzd2_bglt BgL_auxz00_3405;
BgL_auxz00_3405 = 
BGl_setzd2exitzd2ze3nodeze3zzast_exitz00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3405);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2880z00_820;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3410;obj_t BgL_auxz00_3408;
BgL_auxz00_3410 = 
CNST_TABLE_REF(((long)30)); 
BgL_auxz00_3408 = 
CAR(BgL_expz00_17); 
BgL_test2880z00_820 = 
(BgL_auxz00_3408==BgL_auxz00_3410); } 
if(BgL_test2880z00_820)
{ /* ./Ast/sexp.scm 78 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_3414;
BgL_auxz00_3414 = 
BGl_jumpzd2exitzd2ze3nodeze3zzast_exitz00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3414);}  else 
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2501zd2_821;
BgL_cdrzd2501zd2_821 = 
CDR(BgL_expz00_17); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2882z00_822;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3420;obj_t BgL_auxz00_3418;
BgL_auxz00_3420 = 
CNST_TABLE_REF(((long)23)); 
BgL_auxz00_3418 = 
CAR(BgL_expz00_17); 
BgL_test2882z00_822 = 
(BgL_auxz00_3418==BgL_auxz00_3420); } 
if(BgL_test2882z00_822)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2883z00_823;
BgL_test2883z00_823 = 
PAIRP(BgL_cdrzd2501zd2_821); 
if(BgL_test2883z00_823)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_cdrzd2503zd2_824;
BgL_cdrzd2503zd2_824 = 
CDR(BgL_cdrzd2501zd2_821); 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2884z00_825;
BgL_test2884z00_825 = 
PAIRP(BgL_cdrzd2503zd2_824); 
if(BgL_test2884z00_825)
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2885z00_826;
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3429;
BgL_auxz00_3429 = 
CDR(BgL_cdrzd2503zd2_824); 
BgL_test2885z00_826 = 
NULLP(BgL_auxz00_3429); } 
if(BgL_test2885z00_826)
{ /* ./Ast/sexp.scm 78 */
return 
BGl_applycationzd2ze3nodez31zzast_applyz00(BgL_expz00_17, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20);}  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2887z00_827;
BgL_test2887z00_827 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2887z00_827)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3436;
goto BgL_tagzd2143zd2_740;
return 
(BgL_nodez00_bglt)(BgL_auxz00_3436);}  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2144zd2_741;} } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2895z00_829;
BgL_test2895z00_829 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2895z00_829)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3440;
goto BgL_tagzd2143zd2_740;
return 
(BgL_nodez00_bglt)(BgL_auxz00_3440);}  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2144zd2_741;} } } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2901z00_830;
BgL_test2901z00_830 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2901z00_830)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3444;
goto BgL_tagzd2143zd2_740;
return 
(BgL_nodez00_bglt)(BgL_auxz00_3444);}  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2144zd2_741;} } }  else 
{ /* ./Ast/sexp.scm 78 */
bool_t BgL_test2906z00_831;
BgL_test2906z00_831 = 
BGl_privatezd2sexpzf3z21zzast_privatez00(BgL_expz00_17); 
if(BgL_test2906z00_831)
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3448;
goto BgL_tagzd2143zd2_740;
return 
(BgL_nodez00_bglt)(BgL_auxz00_3448);}  else 
{ /* ./Ast/sexp.scm 78 */
goto BgL_tagzd2144zd2_741;} } } } } } } } } } } } } } } } } } } } } } } } }  else 
{ /* ./Ast/sexp.scm 78 */
obj_t BgL_auxz00_3450;
BgL_atomz00_708 = BgL_expz00_17; 
{ /* ./Ast/sexp.scm 88 */
bool_t BgL_test3012z00_866;
BgL_test3012z00_866 = 
SYMBOLP(BgL_atomz00_708); 
if(BgL_test3012z00_866)
{ /* ./Ast/sexp.scm 110 */
bool_t BgL_test3013z00_867;
{ /* ./Ast/sexp.scm 110 */
obj_t BgL_auxz00_3453;
BgL_auxz00_3453 = 
BGl_lookupz00zzast_sexpz00(BgL_atomz00_708, BgL_stackz00_18); 
BgL_test3013z00_867 = 
CBOOL(BgL_auxz00_3453); } 
if(BgL_test3013z00_867)
{ /* ./Ast/sexp.scm 110 */
{ /* ./Ast/sexp.scm 111 */
obj_t BgL_localz00_868;
BgL_localz00_868 = 
BGl_lookupz00zzast_sexpz00(BgL_atomz00_708, BgL_stackz00_18); 
{ /* ./Ast/sexp.scm 111 */
obj_t BgL_varz00_869;
{ /* ./Ast/sexp.scm 112 */
bool_t BgL_test3015z00_870;
{ /* ./Ast/sexp.scm 112 */
bool_t BgL_test3028z00_877;
{ /* ./Ast/sexp.scm 112 */
obj_t BgL_auxz00_3458;
BgL_auxz00_3458 = 
CNST_TABLE_REF(((long)19)); 
BgL_test3028z00_877 = 
(BgL_sitez00_20==BgL_auxz00_3458); } 
if(BgL_test3028z00_877)
{ /* ./Ast/sexp.scm 112 */
BgL_test3015z00_870 = ((bool_t)0); }  else 
{ /* ./Ast/sexp.scm 113 */
BgL_valuez00_bglt BgL_arg3030z00_878;
{ /* ./Ast/sexp.scm 113 */
BgL_variablez00_bglt BgL_obj1100z00_1999;
BgL_obj1100z00_1999 = 
(BgL_variablez00_bglt)(BgL_localz00_868); 
BgL_arg3030z00_878 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1999))->BgL_valuez00); } 
{ /* ./Ast/sexp.scm 113 */
obj_t BgL_obj1344z00_2000;
BgL_obj1344z00_2000 = 
(obj_t)(BgL_arg3030z00_878); 
BgL_test3015z00_870 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1344z00_2000, BGl_funz00zzast_varz00); } } } 
if(BgL_test3015z00_870)
{ /* ./Ast/sexp.scm 115 */
obj_t BgL_arg3017z00_871;BgL_typez00_bglt BgL_arg3018z00_872;obj_t BgL_arg3019z00_873;
BgL_arg3017z00_871 = BgL_locz00_19; 
{ /* ./Ast/sexp.scm 116 */
BgL_variablez00_bglt BgL_obj1097z00_2001;
BgL_obj1097z00_2001 = 
(BgL_variablez00_bglt)(BgL_localz00_868); 
BgL_arg3018z00_872 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2001))->BgL_typez00); } 
BgL_arg3019z00_873 = BgL_localz00_868; 
{ /* ./Ast/sexp.scm 114 */
BgL_closurez00_bglt BgL_auxz00_3469;
BgL_auxz00_3469 = 
BGl_makezd2closurezd2zzast_nodez00(BgL_arg3017z00_871, BgL_arg3018z00_872, 
(BgL_variablez00_bglt)(BgL_arg3019z00_873)); 
BgL_varz00_869 = 
(obj_t)(BgL_auxz00_3469); } }  else 
{ /* ./Ast/sexp.scm 119 */
obj_t BgL_arg3023z00_874;BgL_typez00_bglt BgL_arg3024z00_875;obj_t BgL_arg3025z00_876;
BgL_arg3023z00_874 = BgL_locz00_19; 
{ /* ./Ast/sexp.scm 120 */
BgL_variablez00_bglt BgL_obj1097z00_2002;
BgL_obj1097z00_2002 = 
(BgL_variablez00_bglt)(BgL_localz00_868); 
BgL_arg3024z00_875 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2002))->BgL_typez00); } 
BgL_arg3025z00_876 = BgL_localz00_868; 
{ /* ./Ast/sexp.scm 118 */
BgL_varz00_bglt BgL_auxz00_3475;
BgL_auxz00_3475 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3023z00_874, BgL_arg3024z00_875, 
(BgL_variablez00_bglt)(BgL_arg3025z00_876)); 
BgL_varz00_869 = 
(obj_t)(BgL_auxz00_3475); } } } 
{ /* ./Ast/sexp.scm 112 */

BGl_usezd2variablez12zc0zzast_sexpz00(
(BgL_variablez00_bglt)(BgL_localz00_868), BgL_locz00_19, BgL_sitez00_20); 
BgL_auxz00_3450 = BgL_varz00_869; } } } }  else 
{ /* ./Ast/sexp.scm 110 */
{ /* ./Ast/sexp.scm 125 */
obj_t BgL_globalz00_879;
BgL_globalz00_879 = 
BGl_findzd2globalzd2zzast_envz00(BgL_atomz00_708, BNIL); 
{ /* ./Ast/sexp.scm 127 */
bool_t BgL_test3035z00_880;
BgL_test3035z00_880 = 
BGl_iszd2azf3z21zz__objectz00(BgL_globalz00_879, BGl_globalz00zzast_varz00); 
if(BgL_test3035z00_880)
{ /* ./Ast/sexp.scm 129 */
bool_t BgL_test3036z00_881;
{ /* ./Ast/sexp.scm 129 */
obj_t BgL_auxz00_3487;obj_t BgL_auxz00_3484;
BgL_auxz00_3487 = 
CNST_TABLE_REF(((long)18)); 
{ /* ./Ast/sexp.scm 129 */
BgL_globalz00_bglt BgL_obj1168z00_2004;
BgL_obj1168z00_2004 = 
(BgL_globalz00_bglt)(BgL_globalz00_879); 
BgL_auxz00_3484 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1168z00_2004))->BgL_importz00); } 
BgL_test3036z00_881 = 
(BgL_auxz00_3484==BgL_auxz00_3487); } 
if(BgL_test3036z00_881)
{ /* ./Ast/sexp.scm 129 */
{ /* ./Ast/sexp.scm 130 */
obj_t BgL_arg3038z00_882;
{ /* ./Ast/sexp.scm 130 */
obj_t BgL_arg3041z00_883;obj_t BgL_arg3042z00_884;
BgL_arg3041z00_883 = 
CNST_TABLE_REF(((long)18)); 
{ /* ./Ast/sexp.scm 130 */
obj_t BgL_arg3045z00_885;
{ /* ./Ast/sexp.scm 130 */
obj_t BgL_arg3050z00_887;obj_t BgL_arg3051z00_888;
BgL_arg3050z00_887 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg3051z00_888 = 
MAKE_PAIR(BgL_atomz00_708, BNIL); 
BgL_arg3045z00_885 = 
MAKE_PAIR(BgL_arg3050z00_887, BgL_arg3051z00_888); } 
BgL_arg3042z00_884 = 
MAKE_PAIR(BgL_arg3045z00_885, BNIL); } 
BgL_arg3038z00_882 = 
MAKE_PAIR(BgL_arg3041z00_883, BgL_arg3042z00_884); } 
{ /* ./Ast/sexp.scm 130 */
BgL_nodez00_bglt BgL_auxz00_3497;
BgL_auxz00_3497 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg3038z00_882, BgL_stackz00_18, BgL_locz00_19, BgL_sitez00_20); 
BgL_auxz00_3450 = 
(obj_t)(BgL_auxz00_3497); } } }  else 
{ /* ./Ast/sexp.scm 129 */
BGl_usezd2variablez12zc0zzast_sexpz00(
(BgL_variablez00_bglt)(BgL_globalz00_879), BgL_locz00_19, BgL_sitez00_20); 
{ /* ./Ast/sexp.scm 133 */
bool_t BgL_test3055z00_889;
{ /* ./Ast/sexp.scm 133 */
bool_t BgL_test3080z00_901;
{ /* ./Ast/sexp.scm 133 */
obj_t BgL_auxz00_3502;
BgL_auxz00_3502 = 
CNST_TABLE_REF(((long)19)); 
BgL_test3080z00_901 = 
(BgL_sitez00_20==BgL_auxz00_3502); } 
if(BgL_test3080z00_901)
{ /* ./Ast/sexp.scm 133 */
BgL_test3055z00_889 = ((bool_t)0); }  else 
{ /* ./Ast/sexp.scm 133 */
BgL_valuez00_bglt BgL_arg3082z00_902;
{ /* ./Ast/sexp.scm 133 */
BgL_variablez00_bglt BgL_obj1100z00_2005;
BgL_obj1100z00_2005 = 
(BgL_variablez00_bglt)(BgL_globalz00_879); 
BgL_arg3082z00_902 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2005))->BgL_valuez00); } 
{ /* ./Ast/sexp.scm 133 */
obj_t BgL_obj1344z00_2006;
BgL_obj1344z00_2006 = 
(obj_t)(BgL_arg3082z00_902); 
BgL_test3055z00_889 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1344z00_2006, BGl_funz00zzast_varz00); } } } 
if(BgL_test3055z00_889)
{ /* ./Ast/sexp.scm 134 */
bool_t BgL_test3056z00_890;
{ /* ./Ast/sexp.scm 134 */
bool_t BgL_test3065z00_894;
{ /* ./Ast/sexp.scm 134 */
BgL_valuez00_bglt BgL_arg3071z00_897;
{ /* ./Ast/sexp.scm 134 */
BgL_variablez00_bglt BgL_obj1100z00_2007;
BgL_obj1100z00_2007 = 
(BgL_variablez00_bglt)(BgL_globalz00_879); 
BgL_arg3071z00_897 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2007))->BgL_valuez00); } 
{ /* ./Ast/sexp.scm 134 */
obj_t BgL_obj1489z00_2008;
BgL_obj1489z00_2008 = 
(obj_t)(BgL_arg3071z00_897); 
BgL_test3065z00_894 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1489z00_2008, BGl_cfunz00zzast_varz00); } } 
if(BgL_test3065z00_894)
{ /* ./Ast/sexp.scm 135 */
bool_t BgL_test3066z00_895;
{ /* ./Ast/sexp.scm 135 */
obj_t BgL_auxz00_3516;
BgL_auxz00_3516 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2targetzd2languageza2zd2zzengine_paramz00, 
CNST_TABLE_REF(((long)22))); 
BgL_test3066z00_895 = 
CBOOL(BgL_auxz00_3516); } 
if(BgL_test3066z00_895)
{ /* ./Ast/sexp.scm 135 */
bool_t BgL_testz00_3521;
{ /* ./Ast/sexp.scm 136 */
obj_t BgL_auxz00_3522;
BgL_auxz00_3522 = 
CNST_TABLE_REF(((long)23)); 
BgL_testz00_3521 = 
(BgL_sitez00_20==BgL_auxz00_3522); } 
if(BgL_testz00_3521)
{ /* ./Ast/sexp.scm 135 */
BgL_test3056z00_890 = ((bool_t)0); }  else 
{ /* ./Ast/sexp.scm 135 */
BgL_test3056z00_890 = ((bool_t)1); } }  else 
{ /* ./Ast/sexp.scm 135 */
BgL_test3056z00_890 = ((bool_t)0); } }  else 
{ /* ./Ast/sexp.scm 134 */
BgL_test3056z00_890 = ((bool_t)0); } } 
if(BgL_test3056z00_890)
{ /* ./Ast/sexp.scm 137 */
BgL_nodez00_bglt BgL_auxz00_3526;
BgL_auxz00_3526 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5056z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_19); 
BgL_auxz00_3450 = 
(obj_t)(BgL_auxz00_3526); }  else 
{ /* ./Ast/sexp.scm 140 */
obj_t BgL_arg3059z00_891;BgL_typez00_bglt BgL_arg3061z00_892;obj_t BgL_arg3062z00_893;
BgL_arg3059z00_891 = BgL_locz00_19; 
{ /* ./Ast/sexp.scm 141 */
BgL_variablez00_bglt BgL_obj1097z00_2009;
BgL_obj1097z00_2009 = 
(BgL_variablez00_bglt)(BgL_globalz00_879); 
BgL_arg3061z00_892 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2009))->BgL_typez00); } 
BgL_arg3062z00_893 = BgL_globalz00_879; 
{ /* ./Ast/sexp.scm 139 */
BgL_closurez00_bglt BgL_auxz00_3531;
BgL_auxz00_3531 = 
BGl_makezd2closurezd2zzast_nodez00(BgL_arg3059z00_891, BgL_arg3061z00_892, 
(BgL_variablez00_bglt)(BgL_arg3062z00_893)); 
BgL_auxz00_3450 = 
(obj_t)(BgL_auxz00_3531); } } }  else 
{ /* ./Ast/sexp.scm 144 */
obj_t BgL_arg3075z00_898;BgL_typez00_bglt BgL_arg3076z00_899;obj_t BgL_arg3077z00_900;
BgL_arg3075z00_898 = BgL_locz00_19; 
{ /* ./Ast/sexp.scm 145 */
BgL_variablez00_bglt BgL_obj1097z00_2010;
BgL_obj1097z00_2010 = 
(BgL_variablez00_bglt)(BgL_globalz00_879); 
BgL_arg3076z00_899 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2010))->BgL_typez00); } 
BgL_arg3077z00_900 = BgL_globalz00_879; 
{ /* ./Ast/sexp.scm 143 */
BgL_varz00_bglt BgL_auxz00_3537;
BgL_auxz00_3537 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3075z00_898, BgL_arg3076z00_899, 
(BgL_variablez00_bglt)(BgL_arg3077z00_900)); 
BgL_auxz00_3450 = 
(obj_t)(BgL_auxz00_3537); } } } } }  else 
{ /* ./Ast/sexp.scm 127 */
{ /* ./Ast/sexp.scm 128 */
BgL_nodez00_bglt BgL_auxz00_3541;
BgL_auxz00_3541 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5055z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_19); 
BgL_auxz00_3450 = 
(obj_t)(BgL_auxz00_3541); } } } } } }  else 
{ /* ./Ast/sexp.scm 88 */
{ /* ./Ast/sexp.scm 90 */
bool_t BgL_test3096z00_906;
{ /* ./Ast/sexp.scm 90 */
bool_t BgL_test3130z00_922;
BgL_test3130z00_922 = 
BGl_iszd2azf3z21zz__objectz00(BgL_atomz00_708, BGl_localz00zzast_varz00); 
if(BgL_test3130z00_922)
{ /* ./Ast/sexp.scm 90 */
BgL_test3096z00_906 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 90 */
BgL_test3096z00_906 = 
BGl_iszd2azf3z21zz__objectz00(BgL_atomz00_708, BGl_globalz00zzast_varz00); } } 
if(BgL_test3096z00_906)
{ /* ./Ast/sexp.scm 90 */
BGl_usezd2variablez12zc0zzast_sexpz00(
(BgL_variablez00_bglt)(BgL_atomz00_708), BgL_locz00_19, BgL_sitez00_20); 
{ /* ./Ast/sexp.scm 92 */
bool_t BgL_test3098z00_907;
{ /* ./Ast/sexp.scm 92 */
bool_t BgL_test3111z00_914;
{ /* ./Ast/sexp.scm 92 */
obj_t BgL_auxz00_3550;
BgL_auxz00_3550 = 
CNST_TABLE_REF(((long)19)); 
BgL_test3111z00_914 = 
(BgL_sitez00_20==BgL_auxz00_3550); } 
if(BgL_test3111z00_914)
{ /* ./Ast/sexp.scm 92 */
BgL_test3098z00_907 = ((bool_t)0); }  else 
{ /* ./Ast/sexp.scm 92 */
BgL_valuez00_bglt BgL_arg3113z00_915;
{ /* ./Ast/sexp.scm 92 */
BgL_variablez00_bglt BgL_obj1100z00_2013;
BgL_obj1100z00_2013 = 
(BgL_variablez00_bglt)(BgL_atomz00_708); 
BgL_arg3113z00_915 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2013))->BgL_valuez00); } 
{ /* ./Ast/sexp.scm 92 */
obj_t BgL_obj1344z00_2014;
BgL_obj1344z00_2014 = 
(obj_t)(BgL_arg3113z00_915); 
BgL_test3098z00_907 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1344z00_2014, BGl_funz00zzast_varz00); } } } 
if(BgL_test3098z00_907)
{ /* ./Ast/sexp.scm 94 */
obj_t BgL_arg3100z00_908;BgL_typez00_bglt BgL_arg3101z00_909;obj_t BgL_arg3102z00_910;
BgL_arg3100z00_908 = BgL_locz00_19; 
{ /* ./Ast/sexp.scm 95 */
BgL_variablez00_bglt BgL_obj1097z00_2015;
BgL_obj1097z00_2015 = 
(BgL_variablez00_bglt)(BgL_atomz00_708); 
BgL_arg3101z00_909 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2015))->BgL_typez00); } 
BgL_arg3102z00_910 = BgL_atomz00_708; 
{ /* ./Ast/sexp.scm 93 */
BgL_closurez00_bglt BgL_auxz00_3561;
BgL_auxz00_3561 = 
BGl_makezd2closurezd2zzast_nodez00(BgL_arg3100z00_908, BgL_arg3101z00_909, 
(BgL_variablez00_bglt)(BgL_arg3102z00_910)); 
BgL_auxz00_3450 = 
(obj_t)(BgL_auxz00_3561); } }  else 
{ /* ./Ast/sexp.scm 98 */
obj_t BgL_arg3106z00_911;BgL_typez00_bglt BgL_arg3107z00_912;obj_t BgL_arg3108z00_913;
BgL_arg3106z00_911 = BgL_locz00_19; 
{ /* ./Ast/sexp.scm 99 */
BgL_variablez00_bglt BgL_obj1097z00_2016;
BgL_obj1097z00_2016 = 
(BgL_variablez00_bglt)(BgL_atomz00_708); 
BgL_arg3107z00_912 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2016))->BgL_typez00); } 
BgL_arg3108z00_913 = BgL_atomz00_708; 
{ /* ./Ast/sexp.scm 97 */
BgL_varz00_bglt BgL_auxz00_3567;
BgL_auxz00_3567 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3106z00_911, BgL_arg3107z00_912, 
(BgL_variablez00_bglt)(BgL_arg3108z00_913)); 
BgL_auxz00_3450 = 
(obj_t)(BgL_auxz00_3567); } } } }  else 
{ /* ./Ast/sexp.scm 101 */
bool_t BgL_test3117z00_916;
{ /* ./Ast/sexp.scm 101 */
bool_t BgL_test3125z00_920;
BgL_test3125z00_920 = 
STRUCTP(BgL_atomz00_708); 
if(BgL_test3125z00_920)
{ /* ./Ast/sexp.scm 101 */
BgL_test3117z00_916 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 102 */
bool_t BgL_test3126z00_921;
BgL_test3126z00_921 = 
VECTORP(BgL_atomz00_708); 
if(BgL_test3126z00_921)
{ /* ./Ast/sexp.scm 102 */
BgL_test3117z00_916 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 102 */
BgL_test3117z00_916 = 
BGL_OBJECTP(BgL_atomz00_708); } } } 
if(BgL_test3117z00_916)
{ /* ./Ast/sexp.scm 101 */
{ /* ./Ast/sexp.scm 104 */
BgL_nodez00_bglt BgL_auxz00_3577;
BgL_auxz00_3577 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5057z00zzast_sexpz00, BgL_expz00_17, BgL_locz00_19); 
BgL_auxz00_3450 = 
(obj_t)(BgL_auxz00_3577); } }  else 
{ /* ./Ast/sexp.scm 101 */
{ /* ./Ast/sexp.scm 107 */
obj_t BgL_arg3120z00_917;BgL_typez00_bglt BgL_arg3121z00_918;obj_t BgL_arg3122z00_919;
BgL_arg3120z00_917 = BgL_locz00_19; 
BgL_arg3121z00_918 = 
BGl_typeofzd2atomzd2zztype_typeofz00(BgL_atomz00_708); 
BgL_arg3122z00_919 = BgL_atomz00_708; 
{ /* ./Ast/sexp.scm 106 */
BgL_atomz00_bglt BgL_auxz00_3581;
BgL_auxz00_3581 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3120z00_917, BgL_arg3121z00_918, BgL_arg3122z00_919); 
BgL_auxz00_3450 = 
(obj_t)(BgL_auxz00_3581); } } } } } } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3450);} } } } } } 
}



/* liip */
obj_t BGl_liipz00zzast_sexpz00(obj_t BgL_argsz00_1226)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 341 */
{ /* ./Ast/sexp.scm 342 */
bool_t BgL_test3736z00_1228;
BgL_test3736z00_1228 = 
NULLP(BgL_argsz00_1226); 
if(BgL_test3736z00_1228)
{ /* ./Ast/sexp.scm 342 */
return 
CNST_TABLE_REF(((long)31));}  else 
{ /* ./Ast/sexp.scm 345 */
obj_t BgL_arg3738z00_1229;obj_t BgL_arg3739z00_1230;
BgL_arg3738z00_1229 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./Ast/sexp.scm 344 */
obj_t BgL_arg3742z00_1231;obj_t BgL_arg3743z00_1232;
BgL_arg3742z00_1231 = 
CAR(BgL_argsz00_1226); 
{ /* ./Ast/sexp.scm 345 */
obj_t BgL_arg3747z00_1233;
{ /* ./Ast/sexp.scm 345 */
obj_t BgL_arg3751z00_1235;
BgL_arg3751z00_1235 = 
CDR(BgL_argsz00_1226); 
BgL_arg3747z00_1233 = 
BGl_liipz00zzast_sexpz00(BgL_arg3751z00_1235); } 
BgL_arg3743z00_1232 = 
MAKE_PAIR(BgL_arg3747z00_1233, BNIL); } 
BgL_arg3739z00_1230 = 
MAKE_PAIR(BgL_arg3742z00_1231, BgL_arg3743z00_1232); } 
return 
MAKE_PAIR(BgL_arg3738z00_1229, BgL_arg3739z00_1230);} } } 
}



/* loop */
obj_t BGl_loopz00zzast_sexpz00(obj_t BgL_expz00_2384, obj_t BgL_locz00_2383, obj_t BgL_varsz00_1188, obj_t BgL_argsz00_1189)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 326 */
BGl_loopz00zzast_sexpz00:
{ /* ./Ast/sexp.scm 329 */
bool_t BgL_test3651z00_1191;
BgL_test3651z00_1191 = 
NULLP(BgL_varsz00_1188); 
if(BgL_test3651z00_1191)
{ /* ./Ast/sexp.scm 329 */
{ /* ./Ast/sexp.scm 330 */
bool_t BgL_test3652z00_1192;
BgL_test3652z00_1192 = 
NULLP(BgL_argsz00_1189); 
if(BgL_test3652z00_1192)
{ /* ./Ast/sexp.scm 330 */
return BNIL;}  else 
{ /* ./Ast/sexp.scm 334 */
obj_t BgL_arg3654z00_1193;
{ /* ./Ast/sexp.scm 334 */
obj_t BgL_arg3659z00_1196;
BgL_arg3659z00_1196 = 
BGl_currentzd2functionzd2zztools_errorz00(); 
BgL_arg3654z00_1193 = 
BGl_shapez00zztools_shapez00(BgL_arg3659z00_1196); } 
return 
BGl_userzd2errorzf2locationz20zztools_errorz00(BgL_locz00_2383, BgL_arg3654z00_1193, BGl_string5059z00zzast_sexpz00, BgL_expz00_2384, BNIL);} } }  else 
{ /* ./Ast/sexp.scm 337 */
bool_t BgL_test3663z00_1197;
BgL_test3663z00_1197 = 
PAIRP(BgL_varsz00_1188); 
if(BgL_test3663z00_1197)
{ /* ./Ast/sexp.scm 346 */
bool_t BgL_test3664z00_1198;
{ /* ./Ast/sexp.scm 346 */
obj_t BgL_arg3718z00_1220;
BgL_arg3718z00_1220 = 
CAR(BgL_varsz00_1188); 
{ /* ./Ast/sexp.scm 346 */
obj_t BgL_auxz00_3605;
BgL_auxz00_3605 = 
BGl_dssslzd2namedzd2constantzf3zf3zztools_dssslz00(BgL_arg3718z00_1220); 
BgL_test3664z00_1198 = 
CBOOL(BgL_auxz00_3605); } } 
if(BgL_test3664z00_1198)
{ /* ./Ast/sexp.scm 346 */
{ /* ./Ast/sexp.scm 347 */
obj_t BgL_argz00_1199;
{ /* ./Ast/sexp.scm 348 */
obj_t BgL_arg3668z00_1200;
BgL_arg3668z00_1200 = 
CDR(BgL_varsz00_1188); 
BgL_argz00_1199 = 
BGl_dssslzd2findzd2firstzd2formalzd2zztools_dssslz00(BgL_arg3668z00_1200); } 
if(
CBOOL(BgL_argz00_1199))
{ 
obj_t BgL_varsz00_3613;
BgL_varsz00_3613 = BgL_argz00_1199; 
BgL_varsz00_1188 = BgL_varsz00_3613; 
goto BGl_loopz00zzast_sexpz00;}  else 
{ 
obj_t BgL_varsz00_3614;
BgL_varsz00_3614 = BNIL; 
BgL_varsz00_1188 = BgL_varsz00_3614; 
goto BGl_loopz00zzast_sexpz00;} } }  else 
{ /* ./Ast/sexp.scm 352 */
bool_t BgL_test3671z00_1201;
{ /* ./Ast/sexp.scm 352 */
obj_t BgL_auxz00_3615;
BgL_auxz00_3615 = 
CAR(BgL_varsz00_1188); 
BgL_test3671z00_1201 = 
SYMBOLP(BgL_auxz00_3615); } 
if(BgL_test3671z00_1201)
{ /* ./Ast/sexp.scm 358 */
bool_t BgL_test3672z00_1202;
BgL_test3672z00_1202 = 
NULLP(BgL_argsz00_1189); 
if(BgL_test3672z00_1202)
{ /* ./Ast/sexp.scm 358 */
{ /* ./Ast/sexp.scm 361 */
obj_t BgL_arg3674z00_1203;
{ /* ./Ast/sexp.scm 361 */
obj_t BgL_arg3679z00_1206;
BgL_arg3679z00_1206 = 
BGl_currentzd2functionzd2zztools_errorz00(); 
BgL_arg3674z00_1203 = 
BGl_shapez00zztools_shapez00(BgL_arg3679z00_1206); } 
return 
BGl_userzd2errorzf2locationz20zztools_errorz00(BgL_locz00_2383, BgL_arg3674z00_1203, BGl_string5059z00zzast_sexpz00, BgL_expz00_2384, BNIL);} }  else 
{ /* ./Ast/sexp.scm 358 */
{ /* ./Ast/sexp.scm 365 */
obj_t BgL_arg3683z00_1207;obj_t BgL_arg3684z00_1208;
{ /* ./Ast/sexp.scm 365 */
obj_t BgL_arg3687z00_1209;obj_t BgL_arg3688z00_1210;
BgL_arg3687z00_1209 = 
CAR(BgL_varsz00_1188); 
BgL_arg3688z00_1210 = 
CAR(BgL_argsz00_1189); 
{ /* ./Ast/sexp.scm 365 */
obj_t BgL_list3690z00_1211;
{ /* ./Ast/sexp.scm 365 */
obj_t BgL_arg3692z00_1212;
BgL_arg3692z00_1212 = 
MAKE_PAIR(BgL_arg3688z00_1210, BNIL); 
BgL_list3690z00_1211 = 
MAKE_PAIR(BgL_arg3687z00_1209, BgL_arg3692z00_1212); } 
BgL_arg3683z00_1207 = BgL_list3690z00_1211; } } 
{ /* ./Ast/sexp.scm 366 */
obj_t BgL_arg3698z00_1213;obj_t BgL_arg3699z00_1214;
BgL_arg3698z00_1213 = 
CDR(BgL_varsz00_1188); 
BgL_arg3699z00_1214 = 
CDR(BgL_argsz00_1189); 
BgL_arg3684z00_1208 = 
BGl_loopz00zzast_sexpz00(BgL_expz00_2384, BgL_locz00_2383, BgL_arg3698z00_1213, BgL_arg3699z00_1214); } 
return 
MAKE_PAIR(BgL_arg3683z00_1207, BgL_arg3684z00_1208);} } }  else 
{ /* ./Ast/sexp.scm 352 */
{ /* ./Ast/sexp.scm 355 */
obj_t BgL_arg3705z00_1215;
{ /* ./Ast/sexp.scm 355 */
obj_t BgL_arg3710z00_1218;
BgL_arg3710z00_1218 = 
BGl_currentzd2functionzd2zztools_errorz00(); 
BgL_arg3705z00_1215 = 
BGl_shapez00zztools_shapez00(BgL_arg3710z00_1218); } 
return 
BGl_userzd2errorzf2locationz20zztools_errorz00(BgL_locz00_2383, BgL_arg3705z00_1215, BGl_string5060z00zzast_sexpz00, BgL_expz00_2384, BNIL);} } } }  else 
{ /* ./Ast/sexp.scm 337 */
{ /* ./Ast/sexp.scm 341 */
obj_t BgL_arg3722z00_1221;
{ /* ./Ast/sexp.scm 341 */
obj_t BgL_arg3728z00_1223;
BgL_arg3728z00_1223 = 
BGl_liipz00zzast_sexpz00(BgL_argsz00_1189); 
{ /* ./Ast/sexp.scm 339 */
obj_t BgL_list3730z00_1224;
{ /* ./Ast/sexp.scm 339 */
obj_t BgL_arg3732z00_1225;
BgL_arg3732z00_1225 = 
MAKE_PAIR(BgL_arg3728z00_1223, BNIL); 
BgL_list3730z00_1224 = 
MAKE_PAIR(BgL_varsz00_1188, BgL_arg3732z00_1225); } 
BgL_arg3722z00_1221 = BgL_list3730z00_1224; } } 
{ /* ./Ast/sexp.scm 338 */
obj_t BgL_list3724z00_1222;
BgL_list3724z00_1222 = 
MAKE_PAIR(BgL_arg3722z00_1221, BNIL); 
return BgL_list3724z00_1222;} } } } } } 
}



/* _sexp->node */
obj_t BGl__sexpzd2ze3nodez31zzast_sexpz00(obj_t BgL_envz00_2350, obj_t BgL_expz00_2351, obj_t BgL_stackz00_2352, obj_t BgL_locz00_2353, obj_t BgL_sitez00_2354)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 73 */
{ /* ./Ast/sexp.scm 74 */
BgL_nodez00_bglt BgL_auxz00_3639;
BgL_auxz00_3639 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_expz00_2351, BgL_stackz00_2352, BgL_locz00_2353, BgL_sitez00_2354); 
return 
(obj_t)(BgL_auxz00_3639);} } 
}



/* <anonymous:3772> */
obj_t BGl_zc3anonymousza33772ze3z83zzast_sexpz00(obj_t BgL_envz00_2355, obj_t BgL_objz00_2357, obj_t BgL_procz00_2358, obj_t BgL_msgz00_2359)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 371 */
{ /* ./Ast/sexp.scm 372 */
obj_t BgL_locz00_2356;
{ /* ./Ast/sexp.scm 372 */
int BgL_auxz00_3642;
BgL_auxz00_3642 = 
(int)(((long)0)); 
BgL_locz00_2356 = 
PROCEDURE_REF(BgL_envz00_2355, BgL_auxz00_3642); } 
{ 
obj_t BgL_objz00_1243;obj_t BgL_procz00_1244;obj_t BgL_msgz00_1245;
BgL_objz00_1243 = BgL_objz00_2357; 
BgL_procz00_1244 = BgL_procz00_2358; 
BgL_msgz00_1245 = BgL_msgz00_2359; 
return 
BGl_userzd2errorzf2locationz20zztools_errorz00(BgL_locz00_2356, BgL_objz00_1243, BgL_procz00_1244, BgL_msgz00_1245, BNIL);} } } 
}



/* sexp*->node */
BGL_EXPORTED_DEF obj_t BGl_sexpza2zd2ze3nodez93zzast_sexpz00(obj_t BgL_expza2za2_21, obj_t BgL_stackz00_22, obj_t BgL_locz00_23, obj_t BgL_sitez00_24)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 544 */
{ 
obj_t BgL_expsz00_1437;obj_t BgL_resz00_1438;obj_t BgL_locz00_1439;
BgL_expsz00_1437 = BgL_expza2za2_21; 
BgL_resz00_1438 = BNIL; 
BgL_locz00_1439 = BgL_locz00_23; 
BgL_loopz00_1440:
{ /* ./Ast/sexp.scm 549 */
bool_t BgL_test4144z00_1441;
BgL_test4144z00_1441 = 
NULLP(BgL_expsz00_1437); 
if(BgL_test4144z00_1441)
{ /* ./Ast/sexp.scm 549 */
{ /* ./Ast/sexp.scm 550 */
BgL_nodez00_bglt BgL_auxz00_3648;
BgL_auxz00_3648 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5061z00zzast_sexpz00, BgL_expsz00_1437, BgL_locz00_1439); 
return 
(obj_t)(BgL_auxz00_3648);} }  else 
{ /* ./Ast/sexp.scm 551 */
bool_t BgL_test4146z00_1442;
{ /* ./Ast/sexp.scm 551 */
obj_t BgL_auxz00_3651;
BgL_auxz00_3651 = 
CDR(BgL_expsz00_1437); 
BgL_test4146z00_1442 = 
NULLP(BgL_auxz00_3651); } 
if(BgL_test4146z00_1442)
{ /* ./Ast/sexp.scm 551 */
{ /* ./Ast/sexp.scm 552 */
obj_t BgL_locz00_1443;obj_t BgL_nsitez00_1444;
{ /* ./Ast/sexp.scm 552 */
obj_t BgL_arg4158z00_1448;obj_t BgL_arg4159z00_1449;
BgL_arg4158z00_1448 = 
CAR(BgL_expsz00_1437); 
BgL_arg4159z00_1449 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expsz00_1437, BgL_locz00_1439); 
BgL_locz00_1443 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg4158z00_1448, BgL_arg4159z00_1449); } 
{ /* ./Ast/sexp.scm 554 */
bool_t BgL_testz00_3658;
{ /* ./Ast/sexp.scm 554 */
obj_t BgL_auxz00_3659;
BgL_auxz00_3659 = 
CNST_TABLE_REF(((long)19)); 
BgL_testz00_3658 = 
(BgL_sitez00_24==BgL_auxz00_3659); } 
if(BgL_testz00_3658)
{ /* ./Ast/sexp.scm 554 */
BgL_nsitez00_1444 = 
CNST_TABLE_REF(((long)1)); }  else 
{ /* ./Ast/sexp.scm 554 */
BgL_nsitez00_1444 = BgL_sitez00_24; } } 
{ /* ./Ast/sexp.scm 555 */
obj_t BgL_arg4148z00_1445;
{ /* ./Ast/sexp.scm 555 */
BgL_nodez00_bglt BgL_arg4151z00_1446;
{ /* ./Ast/sexp.scm 555 */
obj_t BgL_arg4154z00_1447;
BgL_arg4154z00_1447 = 
CAR(BgL_expsz00_1437); 
BgL_arg4151z00_1446 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg4154z00_1447, BgL_stackz00_22, BgL_locz00_1443, BgL_nsitez00_1444); } 
{ /* ./Ast/sexp.scm 555 */
obj_t BgL_auxz00_3665;
BgL_auxz00_3665 = 
(obj_t)(BgL_arg4151z00_1446); 
BgL_arg4148z00_1445 = 
MAKE_PAIR(BgL_auxz00_3665, BgL_resz00_1438); } } 
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg4148z00_1445);} } }  else 
{ /* ./Ast/sexp.scm 551 */
{ /* ./Ast/sexp.scm 557 */
obj_t BgL_locz00_1451;
{ /* ./Ast/sexp.scm 557 */
obj_t BgL_arg4179z00_1457;obj_t BgL_arg4180z00_1458;
BgL_arg4179z00_1457 = 
CAR(BgL_expsz00_1437); 
BgL_arg4180z00_1458 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_expsz00_1437, BgL_locz00_1439); 
BgL_locz00_1451 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_arg4179z00_1457, BgL_arg4180z00_1458); } 
{ /* ./Ast/sexp.scm 559 */
obj_t BgL_arg4166z00_1452;obj_t BgL_arg4167z00_1453;
BgL_arg4166z00_1452 = 
CDR(BgL_expsz00_1437); 
{ /* ./Ast/sexp.scm 560 */
BgL_nodez00_bglt BgL_arg4171z00_1454;
{ /* ./Ast/sexp.scm 560 */
obj_t BgL_arg4174z00_1455;obj_t BgL_arg4175z00_1456;
BgL_arg4174z00_1455 = 
CAR(BgL_expsz00_1437); 
BgL_arg4175z00_1456 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg4171z00_1454 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg4174z00_1455, BgL_stackz00_22, BgL_locz00_1451, BgL_arg4175z00_1456); } 
{ /* ./Ast/sexp.scm 560 */
obj_t BgL_auxz00_3676;
BgL_auxz00_3676 = 
(obj_t)(BgL_arg4171z00_1454); 
BgL_arg4167z00_1453 = 
MAKE_PAIR(BgL_auxz00_3676, BgL_resz00_1438); } } 
{ 
obj_t BgL_locz00_3681;obj_t BgL_resz00_3680;obj_t BgL_expsz00_3679;
BgL_expsz00_3679 = BgL_arg4166z00_1452; 
BgL_resz00_3680 = BgL_arg4167z00_1453; 
BgL_locz00_3681 = BgL_locz00_1451; 
BgL_locz00_1439 = BgL_locz00_3681; 
BgL_resz00_1438 = BgL_resz00_3680; 
BgL_expsz00_1437 = BgL_expsz00_3679; 
goto BgL_loopz00_1440;} } } } } } } } 
}



/* _sexp*->node */
obj_t BGl__sexpza2zd2ze3nodez93zzast_sexpz00(obj_t BgL_envz00_2360, obj_t BgL_expza2za2_2361, obj_t BgL_stackz00_2362, obj_t BgL_locz00_2363, obj_t BgL_sitez00_2364)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 544 */
return 
BGl_sexpza2zd2ze3nodez93zzast_sexpz00(BgL_expza2za2_2361, BgL_stackz00_2362, BgL_locz00_2363, BgL_sitez00_2364);} 
}



/* lookup */
obj_t BGl_lookupz00zzast_sexpz00(obj_t BgL_namez00_25, obj_t BgL_stackz00_26)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 573 */
{ /* ./Ast/sexp.scm 574 */
bool_t BgL_test4189z00_1460;
{ /* ./Ast/sexp.scm 574 */
bool_t BgL_test4207z00_1468;
BgL_test4207z00_1468 = 
(BgL_namez00_25==BGl_za2cachezd2nameza2zd2zzast_sexpz00); 
if(BgL_test4207z00_1468)
{ /* ./Ast/sexp.scm 574 */
BgL_test4189z00_1460 = 
(BgL_stackz00_26==BGl_za2cachezd2stackza2zd2zzast_sexpz00); }  else 
{ /* ./Ast/sexp.scm 574 */
BgL_test4189z00_1460 = ((bool_t)0); } } 
if(BgL_test4189z00_1460)
{ /* ./Ast/sexp.scm 574 */
return BGl_za2cachezd2resza2zd2zzast_sexpz00;}  else 
{ /* ./Ast/sexp.scm 574 */
BGl_za2cachezd2nameza2zd2zzast_sexpz00 = BgL_namez00_25; 
BGl_za2cachezd2stackza2zd2zzast_sexpz00 = BgL_stackz00_26; 
{ 
obj_t BgL_stackz00_1461;
BgL_stackz00_1461 = BgL_stackz00_26; 
BgL_loopz00_1462:
{ /* ./Ast/sexp.scm 582 */
bool_t BgL_test4191z00_1463;
BgL_test4191z00_1463 = 
NULLP(BgL_stackz00_1461); 
if(BgL_test4191z00_1463)
{ /* ./Ast/sexp.scm 582 */
BGl_za2cachezd2resza2zd2zzast_sexpz00 = BFALSE; 
return BFALSE;}  else 
{ /* ./Ast/sexp.scm 585 */
bool_t BgL_test4192z00_1464;
{ /* ./Ast/sexp.scm 585 */
obj_t BgL_auxz00_3689;
{ /* ./Ast/sexp.scm 585 */
BgL_variablez00_bglt BgL_obj1093z00_2296;
{ /* ./Ast/sexp.scm 585 */
obj_t BgL_auxz00_3690;
BgL_auxz00_3690 = 
CAR(BgL_stackz00_1461); 
BgL_obj1093z00_2296 = 
(BgL_variablez00_bglt)(BgL_auxz00_3690); } 
BgL_auxz00_3689 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_2296))->BgL_idz00); } 
BgL_test4192z00_1464 = 
(BgL_auxz00_3689==BgL_namez00_25); } 
if(BgL_test4192z00_1464)
{ /* ./Ast/sexp.scm 585 */
BGl_za2cachezd2resza2zd2zzast_sexpz00 = 
CAR(BgL_stackz00_1461); 
return 
CAR(BgL_stackz00_1461);}  else 
{ /* ./Ast/sexp.scm 585 */
{ /* ./Ast/sexp.scm 589 */
obj_t BgL_arg4196z00_1465;
BgL_arg4196z00_1465 = 
CDR(BgL_stackz00_1461); 
{ 
obj_t BgL_stackz00_3699;
BgL_stackz00_3699 = BgL_arg4196z00_1465; 
BgL_stackz00_1461 = BgL_stackz00_3699; 
goto BgL_loopz00_1462;} } } } } } } } } 
}



/* use-variable! */
BGL_EXPORTED_DEF obj_t BGl_usezd2variablez12zc0zzast_sexpz00(BgL_variablez00_bglt BgL_varz00_27, obj_t BgL_locz00_28, obj_t BgL_sitez00_29)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 594 */
{ /* ./Ast/sexp.scm 596 */
bool_t BgL_test4210z00_1469;
{ /* ./Ast/sexp.scm 596 */
obj_t BgL_auxz00_3700;
BgL_auxz00_3700 = 
CNST_TABLE_REF(((long)12)); 
BgL_test4210z00_1469 = 
(BgL_sitez00_29==BgL_auxz00_3700); } 
if(BgL_test4210z00_1469)
{ /* ./Ast/sexp.scm 597 */
BgL_variablez00_bglt BgL_obj1105z00_2300;obj_t BgL_val1104z00_2301;
BgL_obj1105z00_2300 = BgL_varz00_27; 
BgL_val1104z00_2301 = 
CNST_TABLE_REF(((long)33)); 
((((BgL_variablez00_bglt)CREF(BgL_obj1105z00_2300))->BgL_accessz00) = ((obj_t)BgL_val1104z00_2301), BUNSPEC); }  else 
{ /* ./Ast/sexp.scm 596 */BFALSE; } } 
{ /* ./Ast/sexp.scm 598 */
BgL_valuez00_bglt BgL_valz00_1470;
BgL_valz00_1470 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_27))->BgL_valuez00); 
{ /* ./Ast/sexp.scm 599 */
bool_t BgL_test4213z00_1471;
{ /* ./Ast/sexp.scm 599 */
bool_t BgL_test4219z00_1474;
{ /* ./Ast/sexp.scm 599 */
obj_t BgL_auxz00_3707;
BgL_auxz00_3707 = 
CNST_TABLE_REF(((long)12)); 
BgL_test4219z00_1474 = 
(BgL_sitez00_29==BgL_auxz00_3707); } 
if(BgL_test4219z00_1474)
{ /* ./Ast/sexp.scm 599 */
obj_t BgL_obj1344z00_2303;
BgL_obj1344z00_2303 = 
(obj_t)(BgL_valz00_1470); 
BgL_test4213z00_1471 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1344z00_2303, BGl_funz00zzast_varz00); }  else 
{ /* ./Ast/sexp.scm 599 */
BgL_test4213z00_1471 = ((bool_t)0); } } 
if(BgL_test4213z00_1471)
{ /* ./Ast/sexp.scm 600 */
obj_t BgL_arg4216z00_1473;
BgL_arg4216z00_1473 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_varz00_27)); 
{ /* ./Ast/sexp.scm 600 */
BgL_nodez00_bglt BgL_auxz00_3716;
BgL_auxz00_3716 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BGl_string5062z00zzast_sexpz00, BgL_arg4216z00_1473, BgL_locz00_28); 
return 
(obj_t)(BgL_auxz00_3716);} }  else 
{ /* ./Ast/sexp.scm 599 */
return BFALSE;} } } } 
}



/* _use-variable! */
obj_t BGl__usezd2variablez12zc0zzast_sexpz00(obj_t BgL_envz00_2365, obj_t BgL_varz00_2366, obj_t BgL_locz00_2367, obj_t BgL_sitez00_2368)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 594 */
return 
BGl_usezd2variablez12zc0zzast_sexpz00(
(BgL_variablez00_bglt)(BgL_varz00_2366), BgL_locz00_2367, BgL_sitez00_2368);} 
}



/* error-sexp->node */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(obj_t BgL_msgz00_30, obj_t BgL_expz00_31, obj_t BgL_locz00_32)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 605 */
{ /* ./Ast/sexp.scm 607 */
obj_t BgL_arg4224z00_1475;BgL_nodez00_bglt BgL_arg4225z00_1476;
{ /* ./Ast/sexp.scm 607 */
obj_t BgL_arg4230z00_1478;
BgL_arg4230z00_1478 = 
BGl_currentzd2functionzd2zztools_errorz00(); 
BgL_arg4224z00_1475 = 
BGl_shapez00zztools_shapez00(BgL_arg4230z00_1478); } 
BgL_arg4225z00_1476 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(
CNST_TABLE_REF(((long)31)), BNIL, BgL_locz00_32, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 606 */
obj_t BgL_list4227z00_1477;
{ /* ./Ast/sexp.scm 606 */
obj_t BgL_auxz00_3726;
BgL_auxz00_3726 = 
(obj_t)(BgL_arg4225z00_1476); 
BgL_list4227z00_1477 = 
MAKE_PAIR(BgL_auxz00_3726, BNIL); } 
{ /* ./Ast/sexp.scm 606 */
obj_t BgL_auxz00_3729;
BgL_auxz00_3729 = 
BGl_userzd2errorzf2locationz20zztools_errorz00(BgL_locz00_32, BgL_arg4224z00_1475, BgL_msgz00_30, BgL_expz00_31, BgL_list4227z00_1477); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3729);} } } } 
}



/* _error-sexp->node */
obj_t BGl__errorzd2sexpzd2ze3nodeze3zzast_sexpz00(obj_t BgL_envz00_2369, obj_t BgL_msgz00_2370, obj_t BgL_expz00_2371, obj_t BgL_locz00_2372)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 605 */
{ /* ./Ast/sexp.scm 607 */
BgL_nodez00_bglt BgL_auxz00_3732;
BgL_auxz00_3732 = 
BGl_errorzd2sexpzd2ze3nodeze3zzast_sexpz00(BgL_msgz00_2370, BgL_expz00_2371, BgL_locz00_2372); 
return 
(obj_t)(BgL_auxz00_3732);} } 
}



/* define-primop-ref->node */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_definezd2primopzd2refzd2ze3nodez31zzast_sexpz00(BgL_globalz00_bglt BgL_globalz00_33, BgL_nodez00_bglt BgL_refz00_34)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 615 */
{ /* ./Ast/sexp.scm 616 */
BgL_nodez00_bglt BgL_funz00_1479;
BgL_funz00_1479 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(
CNST_TABLE_REF(((long)34)), BNIL, BFALSE, 
CNST_TABLE_REF(((long)19))); 
{ /* ./Ast/sexp.scm 617 */
bool_t BgL_test4234z00_1480;
{ /* ./Ast/sexp.scm 617 */
obj_t BgL_obj1640z00_2304;
BgL_obj1640z00_2304 = 
(obj_t)(BgL_funz00_1479); 
BgL_test4234z00_1480 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_2304, BGl_varz00zzast_nodez00); } 
if(BgL_test4234z00_1480)
{ /* ./Ast/sexp.scm 619 */
obj_t BgL_arg4236z00_1481;BgL_nodez00_bglt BgL_arg4238z00_1483;obj_t BgL_arg4239z00_1484;
BgL_arg4236z00_1481 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg4238z00_1483 = BgL_funz00_1479; 
{ /* ./Ast/sexp.scm 620 */
BgL_nodez00_bglt BgL_arg4242z00_1485;
{ /* ./Ast/sexp.scm 620 */
obj_t BgL_arg4250z00_1488;obj_t BgL_arg4252z00_1490;
{ /* ./Ast/sexp.scm 620 */
obj_t BgL_arg4255z00_1491;obj_t BgL_arg4256z00_1492;
BgL_arg4255z00_1491 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Ast/sexp.scm 620 */
obj_t BgL_arg4259z00_1493;
{ /* ./Ast/sexp.scm 620 */
BgL_variablez00_bglt BgL_obj1093z00_2305;
BgL_obj1093z00_2305 = 
(BgL_variablez00_bglt)(BgL_globalz00_33); 
BgL_arg4259z00_1493 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_2305))->BgL_idz00); } 
BgL_arg4256z00_1492 = 
MAKE_PAIR(BgL_arg4259z00_1493, BNIL); } 
BgL_arg4250z00_1488 = 
MAKE_PAIR(BgL_arg4255z00_1491, BgL_arg4256z00_1492); } 
BgL_arg4252z00_1490 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg4242z00_1485 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg4250z00_1488, BNIL, BFALSE, BgL_arg4252z00_1490); } 
{ /* ./Ast/sexp.scm 620 */
obj_t BgL_list4244z00_1486;
{ /* ./Ast/sexp.scm 620 */
obj_t BgL_arg4246z00_1487;
{ /* ./Ast/sexp.scm 620 */
obj_t BgL_auxz00_3748;
BgL_auxz00_3748 = 
(obj_t)(BgL_refz00_34); 
BgL_arg4246z00_1487 = 
MAKE_PAIR(BgL_auxz00_3748, BNIL); } 
{ /* ./Ast/sexp.scm 620 */
obj_t BgL_auxz00_3751;
BgL_auxz00_3751 = 
(obj_t)(BgL_arg4242z00_1485); 
BgL_list4244z00_1486 = 
MAKE_PAIR(BgL_auxz00_3751, BgL_arg4246z00_1487); } } 
BgL_arg4239z00_1484 = BgL_list4244z00_1486; } } 
{ /* ./Ast/sexp.scm 618 */
BgL_appz00_bglt BgL_auxz00_3754;
BgL_auxz00_3754 = 
BGl_makezd2appzd2zzast_nodez00(BFALSE, 
(BgL_typez00_bglt)(BgL_arg4236z00_1481), BUNSPEC, 
BINT(((long)-1)), 
(BgL_varz00_bglt)(BgL_arg4238z00_1483), BgL_arg4239z00_1484); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3754);} }  else 
{ /* ./Ast/sexp.scm 617 */
return BgL_funz00_1479;} } } } 
}



/* _define-primop-ref->node */
obj_t BGl__definezd2primopzd2refzd2ze3nodez31zzast_sexpz00(obj_t BgL_envz00_2373, obj_t BgL_globalz00_2374, obj_t BgL_refz00_2375)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 615 */
{ /* ./Ast/sexp.scm 616 */
BgL_nodez00_bglt BgL_auxz00_3760;
BgL_auxz00_3760 = 
BGl_definezd2primopzd2refzd2ze3nodez31zzast_sexpz00(
(BgL_globalz00_bglt)(BgL_globalz00_2374), 
(BgL_nodez00_bglt)(BgL_refz00_2375)); 
return 
(obj_t)(BgL_auxz00_3760);} } 
}



/* define-primop->node */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_definezd2primopzd2ze3nodeze3zzast_sexpz00(BgL_globalz00_bglt BgL_globalz00_35)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 630 */
BGl_usezd2variablez12zc0zzast_sexpz00(
(BgL_variablez00_bglt)(BgL_globalz00_35), BFALSE, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 632 */
BgL_nodez00_bglt BgL_funz00_1495;
BgL_funz00_1495 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(
CNST_TABLE_REF(((long)35)), BNIL, BFALSE, 
CNST_TABLE_REF(((long)19))); 
{ /* ./Ast/sexp.scm 633 */
bool_t BgL_test4266z00_1496;
{ /* ./Ast/sexp.scm 633 */
obj_t BgL_obj1640z00_2308;
BgL_obj1640z00_2308 = 
(obj_t)(BgL_funz00_1495); 
BgL_test4266z00_1496 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_2308, BGl_varz00zzast_nodez00); } 
if(BgL_test4266z00_1496)
{ /* ./Ast/sexp.scm 635 */
obj_t BgL_arg4268z00_1497;BgL_nodez00_bglt BgL_arg4270z00_1499;obj_t BgL_arg4271z00_1500;
BgL_arg4268z00_1497 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg4270z00_1499 = BgL_funz00_1495; 
{ /* ./Ast/sexp.scm 636 */
BgL_nodez00_bglt BgL_arg4274z00_1501;BgL_nodez00_bglt BgL_arg4275z00_1502;
{ /* ./Ast/sexp.scm 636 */
obj_t BgL_arg4283z00_1505;obj_t BgL_arg4285z00_1507;
{ /* ./Ast/sexp.scm 636 */
obj_t BgL_arg4288z00_1508;obj_t BgL_arg4289z00_1509;
BgL_arg4288z00_1508 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Ast/sexp.scm 636 */
obj_t BgL_arg4292z00_1510;
{ /* ./Ast/sexp.scm 636 */
BgL_variablez00_bglt BgL_obj1093z00_2309;
BgL_obj1093z00_2309 = 
(BgL_variablez00_bglt)(BgL_globalz00_35); 
BgL_arg4292z00_1510 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_2309))->BgL_idz00); } 
BgL_arg4289z00_1509 = 
MAKE_PAIR(BgL_arg4292z00_1510, BNIL); } 
BgL_arg4283z00_1505 = 
MAKE_PAIR(BgL_arg4288z00_1508, BgL_arg4289z00_1509); } 
BgL_arg4285z00_1507 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg4274z00_1501 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg4283z00_1505, BNIL, BFALSE, BgL_arg4285z00_1507); } 
BgL_arg4275z00_1502 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(
(obj_t)(BgL_globalz00_35), BNIL, BFALSE, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 636 */
obj_t BgL_list4277z00_1503;
{ /* ./Ast/sexp.scm 636 */
obj_t BgL_arg4279z00_1504;
{ /* ./Ast/sexp.scm 636 */
obj_t BgL_auxz00_3784;
BgL_auxz00_3784 = 
(obj_t)(BgL_arg4275z00_1502); 
BgL_arg4279z00_1504 = 
MAKE_PAIR(BgL_auxz00_3784, BNIL); } 
{ /* ./Ast/sexp.scm 636 */
obj_t BgL_auxz00_3787;
BgL_auxz00_3787 = 
(obj_t)(BgL_arg4274z00_1501); 
BgL_list4277z00_1503 = 
MAKE_PAIR(BgL_auxz00_3787, BgL_arg4279z00_1504); } } 
BgL_arg4271z00_1500 = BgL_list4277z00_1503; } } 
{ /* ./Ast/sexp.scm 634 */
BgL_appz00_bglt BgL_auxz00_3790;
BgL_auxz00_3790 = 
BGl_makezd2appzd2zzast_nodez00(BFALSE, 
(BgL_typez00_bglt)(BgL_arg4268z00_1497), BUNSPEC, 
BINT(((long)-1)), 
(BgL_varz00_bglt)(BgL_arg4270z00_1499), BgL_arg4271z00_1500); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3790);} }  else 
{ /* ./Ast/sexp.scm 633 */
return BgL_funz00_1495;} } } } 
}



/* _define-primop->node */
obj_t BGl__definezd2primopzd2ze3nodeze3zzast_sexpz00(obj_t BgL_envz00_2376, obj_t BgL_globalz00_2377)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 630 */
{ /* ./Ast/sexp.scm 631 */
BgL_nodez00_bglt BgL_auxz00_3796;
BgL_auxz00_3796 = 
BGl_definezd2primopzd2ze3nodeze3zzast_sexpz00(
(BgL_globalz00_bglt)(BgL_globalz00_2377)); 
return 
(obj_t)(BgL_auxz00_3796);} } 
}



/* location->node */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_locationzd2ze3nodez31zzast_sexpz00(BgL_globalz00_bglt BgL_globalz00_36)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 649 */
BGl_usezd2variablez12zc0zzast_sexpz00(
(BgL_variablez00_bglt)(BgL_globalz00_36), BFALSE, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 651 */
BgL_nodez00_bglt BgL_funz00_1512;
BgL_funz00_1512 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(
CNST_TABLE_REF(((long)36)), BNIL, BFALSE, 
CNST_TABLE_REF(((long)19))); 
{ /* ./Ast/sexp.scm 655 */
bool_t BgL_test4300z00_1513;
{ /* ./Ast/sexp.scm 655 */
obj_t BgL_obj1640z00_2312;
BgL_obj1640z00_2312 = 
(obj_t)(BgL_funz00_1512); 
BgL_test4300z00_1513 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_2312, BGl_varz00zzast_nodez00); } 
if(BgL_test4300z00_1513)
{ /* ./Ast/sexp.scm 657 */
obj_t BgL_arg4302z00_1514;BgL_nodez00_bglt BgL_arg4304z00_1516;obj_t BgL_arg4305z00_1517;
BgL_arg4302z00_1514 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg4304z00_1516 = BgL_funz00_1512; 
{ /* ./Ast/sexp.scm 658 */
BgL_nodez00_bglt BgL_arg4309z00_1518;
BgL_arg4309z00_1518 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(
(obj_t)(BgL_globalz00_36), BNIL, BFALSE, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Ast/sexp.scm 658 */
obj_t BgL_list4311z00_1519;
{ /* ./Ast/sexp.scm 658 */
obj_t BgL_auxz00_3812;
BgL_auxz00_3812 = 
(obj_t)(BgL_arg4309z00_1518); 
BgL_list4311z00_1519 = 
MAKE_PAIR(BgL_auxz00_3812, BNIL); } 
BgL_arg4305z00_1517 = BgL_list4311z00_1519; } } 
{ /* ./Ast/sexp.scm 656 */
BgL_appz00_bglt BgL_auxz00_3815;
BgL_auxz00_3815 = 
BGl_makezd2appzd2zzast_nodez00(BFALSE, 
(BgL_typez00_bglt)(BgL_arg4302z00_1514), BUNSPEC, 
BINT(((long)-1)), 
(BgL_varz00_bglt)(BgL_arg4304z00_1516), BgL_arg4305z00_1517); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3815);} }  else 
{ /* ./Ast/sexp.scm 655 */
return BgL_funz00_1512;} } } } 
}



/* _location->node */
obj_t BGl__locationzd2ze3nodez31zzast_sexpz00(obj_t BgL_envz00_2378, obj_t BgL_globalz00_2379)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 649 */
{ /* ./Ast/sexp.scm 650 */
BgL_nodez00_bglt BgL_auxz00_3821;
BgL_auxz00_3821 = 
BGl_locationzd2ze3nodez31zzast_sexpz00(
(BgL_globalz00_bglt)(BgL_globalz00_2379)); 
return 
(obj_t)(BgL_auxz00_3821);} } 
}



/* make-anonymous-name */
BGL_EXPORTED_DEF obj_t BGl_makezd2anonymouszd2namez00zzast_sexpz00(obj_t BgL_locz00_37, obj_t BgL_prefz00_38)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 664 */
{ /* ./Ast/sexp.scm 665 */
obj_t BgL_prefz00_1520;
{ /* ./Ast/sexp.scm 665 */
bool_t BgL_testz00_3825;
if(
PAIRP(BgL_prefz00_38))
{ /* ./Ast/sexp.scm 665 */
obj_t BgL_auxz00_3828;
BgL_auxz00_3828 = 
CAR(BgL_prefz00_38); 
BgL_testz00_3825 = 
STRINGP(BgL_auxz00_3828); }  else 
{ /* ./Ast/sexp.scm 665 */
BgL_testz00_3825 = ((bool_t)0)
; } 
if(BgL_testz00_3825)
{ /* ./Ast/sexp.scm 665 */
BgL_prefz00_1520 = 
CAR(BgL_prefz00_38); }  else 
{ /* ./Ast/sexp.scm 665 */
BgL_prefz00_1520 = BGl_string5063z00zzast_sexpz00; } } 
{ /* ./Ast/sexp.scm 668 */
bool_t BgL_test4316z00_1521;
if(
STRUCTP(BgL_locz00_37))
{ /* ./Ast/sexp.scm 668 */
obj_t BgL_auxz00_3836;obj_t BgL_auxz00_3834;
BgL_auxz00_3836 = 
CNST_TABLE_REF(((long)13)); 
BgL_auxz00_3834 = 
STRUCT_KEY(BgL_locz00_37); 
BgL_test4316z00_1521 = 
(BgL_auxz00_3834==BgL_auxz00_3836); }  else 
{ /* ./Ast/sexp.scm 668 */
BgL_test4316z00_1521 = ((bool_t)0); } 
if(BgL_test4316z00_1521)
{ /* ./Ast/sexp.scm 669 */
obj_t BgL_filez00_1522;obj_t BgL_linez00_1523;obj_t BgL_basez00_1524;
{ /* ./Ast/sexp.scm 669 */
int BgL_auxz00_3840;
BgL_auxz00_3840 = 
(int)(((long)0)); 
BgL_filez00_1522 = 
STRUCT_REF(BgL_locz00_37, BgL_auxz00_3840); } 
{ /* ./Ast/sexp.scm 670 */
int BgL_auxz00_3843;
BgL_auxz00_3843 = 
(int)(((long)2)); 
BgL_linez00_1523 = 
STRUCT_REF(BgL_locz00_37, BgL_auxz00_3843); } 
{ /* ./Ast/sexp.scm 671 */
obj_t BgL_arg4363z00_1544;
{ /* ./Ast/sexp.scm 671 */
obj_t BgL_arg4366z00_1545;
BgL_arg4366z00_1545 = 
string_append_3(BGl_string5064z00zzast_sexpz00, BgL_prefz00_1520, BGl_string5065z00zzast_sexpz00); 
BgL_arg4363z00_1544 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BgL_arg4366z00_1545, BEOA); } 
BgL_basez00_1524 = 
SYMBOL_TO_STRING(BgL_arg4363z00_1544); } 
{ /* ./Ast/sexp.scm 673 */
bool_t BgL_test4317z00_1525;
{ /* ./Ast/sexp.scm 673 */
bool_t BgL_test4357z00_1543;
{ /* ./Ast/sexp.scm 673 */
long BgL_n1z00_2333;
BgL_n1z00_2333 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test4357z00_1543 = 
(BgL_n1z00_2333>=((long)1)); } 
if(BgL_test4357z00_1543)
{ /* ./Ast/sexp.scm 673 */
BgL_test4317z00_1525 = ((bool_t)1); }  else 
{ /* ./Ast/sexp.scm 673 */
long BgL_n1z00_2335;
BgL_n1z00_2335 = 
(long)CINT(BGl_za2compilerzd2debugza2zd2zzengine_paramz00); 
BgL_test4317z00_1525 = 
(BgL_n1z00_2335>=((long)1)); } } 
if(BgL_test4317z00_1525)
{ /* ./Ast/sexp.scm 673 */
{ /* ./Ast/sexp.scm 674 */
obj_t BgL_filez00_1526;
{ /* ./Ast/sexp.scm 674 */
bool_t BgL_test4346z00_1539;
{ /* ./Ast/sexp.scm 674 */
int BgL_lenz00_2339;
BgL_lenz00_2339 = 
(int)(((long)2)); 
BgL_test4346z00_1539 = 
bigloo_strncmp(BgL_filez00_1522, BGl_string5066z00zzast_sexpz00, BgL_lenz00_2339); } 
if(BgL_test4346z00_1539)
{ /* ./Ast/sexp.scm 675 */
int BgL_arg4349z00_1541;
BgL_arg4349z00_1541 = 
STRING_LENGTH(BgL_filez00_1522); 
{ /* ./Ast/sexp.scm 675 */
int BgL_startz00_2342;
BgL_startz00_2342 = 
(int)(((long)2)); 
BgL_filez00_1526 = 
c_substring(BgL_filez00_1522, BgL_startz00_2342, BgL_arg4349z00_1541); } }  else 
{ /* ./Ast/sexp.scm 674 */
BgL_filez00_1526 = BgL_filez00_1522; } } 
{ /* ./Ast/sexp.scm 678 */
obj_t BgL_arg4319z00_1527;
{ /* ./Ast/sexp.scm 678 */
char * BgL_arg4324z00_1530;
BgL_arg4324z00_1530 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_linez00_1523, BNIL); 
{ /* ./Ast/sexp.scm 678 */
obj_t BgL_list4327z00_1532;
{ /* ./Ast/sexp.scm 678 */
obj_t BgL_arg4329z00_1533;
{ /* ./Ast/sexp.scm 678 */
obj_t BgL_arg4332z00_1534;
{ /* ./Ast/sexp.scm 678 */
obj_t BgL_arg4335z00_1535;
{ /* ./Ast/sexp.scm 678 */
obj_t BgL_arg4338z00_1536;
{ /* ./Ast/sexp.scm 678 */
obj_t BgL_arg4341z00_1537;
BgL_arg4341z00_1537 = 
MAKE_PAIR(BGl_string5067z00zzast_sexpz00, BNIL); 
{ /* ./Ast/sexp.scm 678 */
obj_t BgL_auxz00_3864;
BgL_auxz00_3864 = 
string_to_bstring(BgL_arg4324z00_1530); 
BgL_arg4338z00_1536 = 
MAKE_PAIR(BgL_auxz00_3864, BgL_arg4341z00_1537); } } 
BgL_arg4335z00_1535 = 
MAKE_PAIR(BGl_string5065z00zzast_sexpz00, BgL_arg4338z00_1536); } 
BgL_arg4332z00_1534 = 
MAKE_PAIR(BgL_filez00_1526, BgL_arg4335z00_1535); } 
BgL_arg4329z00_1533 = 
MAKE_PAIR(BGl_string5065z00zzast_sexpz00, BgL_arg4332z00_1534); } 
BgL_list4327z00_1532 = 
MAKE_PAIR(BgL_basez00_1524, BgL_arg4329z00_1533); } 
BgL_arg4319z00_1527 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list4327z00_1532); } } 
{ /* ./Ast/sexp.scm 677 */
char * BgL_auxz00_3872;
BgL_auxz00_3872 = 
BSTRING_TO_STRING(BgL_arg4319z00_1527); 
return 
string_to_symbol(BgL_auxz00_3872);} } } }  else 
{ /* ./Ast/sexp.scm 673 */
{ /* ./Ast/sexp.scm 682 */
obj_t BgL_arg4354z00_1542;
BgL_arg4354z00_1542 = 
string_append(BgL_basez00_1524, BGl_string5067z00zzast_sexpz00); 
{ /* ./Ast/sexp.scm 682 */
char * BgL_auxz00_3876;
BgL_auxz00_3876 = 
BSTRING_TO_STRING(BgL_arg4354z00_1542); 
return 
string_to_symbol(BgL_auxz00_3876);} } } } }  else 
{ /* ./Ast/sexp.scm 683 */
obj_t BgL_arg4370z00_1546;obj_t BgL_arg4371z00_1547;
{ /* ./Ast/sexp.scm 683 */
obj_t BgL_arg4379z00_1550;
BgL_arg4379z00_1550 = 
string_append_3(BGl_string5064z00zzast_sexpz00, BgL_prefz00_1520, BGl_string5068z00zzast_sexpz00); 
BgL_arg4370z00_1546 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BgL_arg4379z00_1550, BEOA); } 
BgL_arg4371z00_1547 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Ast/sexp.scm 683 */
obj_t BgL_list4373z00_1548;
{ /* ./Ast/sexp.scm 683 */
obj_t BgL_arg4375z00_1549;
BgL_arg4375z00_1549 = 
MAKE_PAIR(BgL_arg4371z00_1547, BNIL); 
BgL_list4373z00_1548 = 
MAKE_PAIR(BgL_arg4370z00_1546, BgL_arg4375z00_1549); } 
return 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list4373z00_1548);} } } } } 
}



/* _make-anonymous-name */
obj_t BGl__makezd2anonymouszd2namez00zzast_sexpz00(obj_t BgL_envz00_2380, obj_t BgL_locz00_2381, obj_t BgL_prefz00_2382)
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 664 */
return 
BGl_makezd2anonymouszd2namez00zzast_sexpz00(BgL_locz00_2381, BgL_prefz00_2382);} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzast_sexpz00()
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 14 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzast_sexpz00()
{ AN_OBJECT;
{ /* ./Ast/sexp.scm 14 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zztools_prognz00(((long)55569), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zztools_dssslz00(((long)55629), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zztype_envz00(((long)25186), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_buildz00(((long)17453), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_pragmaz00(((long)26082), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_labelsz00(((long)41178), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_letz00(((long)39305), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_exitz00(((long)8828), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_appz00(((long)62540), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_applyz00(((long)53769), "ast_sexp"); 
BGl_modulezd2initializa7ationz75zzast_privatez00(((long)8704), "ast_sexp"); 
return 
BGl_modulezd2initializa7ationz75zzeffect_feffectz00(((long)51512), "ast_sexp");} 
}

