/*===========================================================================*/
/*   (Ast/occur.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/occur.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


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

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

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

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

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

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

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

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

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

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

typedef struct BgL_cvarz00_bgl {
   header_t header;
   obj_t widening;
   bool_t BgL_macrozf3zf3;
} *BgL_cvarz00_bglt;

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

typedef struct BgL_feffectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_readz00;
   obj_t BgL_writez00;
} *BgL_feffectz00_bglt;

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

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

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

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

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

typedef struct BgL_kwotez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_kwotez00_bglt;

typedef struct BgL_sequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_nodesz00;
} *BgL_sequencez00_bglt;

typedef struct BgL_appz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_appz00_bglt;

typedef struct BgL_appzd2lyzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_appzd2lyzd2_bglt;

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

typedef struct BgL_externz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_externz00_bglt;

typedef struct BgL_pragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_formatz00;
} *BgL_pragmaz00_bglt;

typedef struct BgL_getfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_getfieldz00_bglt;

typedef struct BgL_setfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_setfieldz00_bglt;

typedef struct BgL_newz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_newz00_bglt;

typedef struct BgL_vallocz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2heapzd2formatz00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_vallocz00_bglt;

typedef struct BgL_vrefz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vrefz00_bglt;

typedef struct BgL_vsetz12z12_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vsetz12z12_bglt;

typedef struct BgL_vlengthz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vlengthz00_bglt;

typedef struct BgL_isaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   struct BgL_typez00_bgl * BgL_classz00;
} *BgL_isaz00_bglt;

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

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

typedef struct BgL_conditionalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   struct BgL_nodez00_bgl * BgL_truez00;
   struct BgL_nodez00_bgl * BgL_falsez00;
} *BgL_conditionalz00_bglt;

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

typedef struct BgL_selectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_selectz00_bglt;

typedef struct BgL_letzd2funzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_localsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_letzd2funzd2_bglt;

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

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

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

typedef struct BgL_makezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_makezd2boxzd2_bglt;

typedef struct BgL_boxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_varz00;
} *BgL_boxzd2refzd2_bglt;

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


static obj_t BGl_occurzd2nodez12zd2conditional2720z12zzast_occurz00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzast_occurz00();
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl__occurzd2nodez12zd2default2700z12zzast_occurz00(obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
extern obj_t BGl_nodez00zzast_nodez00;
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl__occurzd2varzd2zzast_occurz00(obj_t, obj_t);
extern obj_t BGl_scnstz00zzast_varz00;
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_occurzd2nodez12zd2setq2718z12zzast_occurz00(obj_t, obj_t);
static obj_t BGl__occurzd2nodez123495zc0zzast_occurz00(obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2appzd2ly2710zc0zzast_occurz00(obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2select2724z12zzast_occurz00(obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzast_occurz00();
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_occurzd2nodez12zd2letzd2fun2726zc0zzast_occurz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_occurzd2varzd2zzast_occurz00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzast_occurz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_za2globalza2z00zzast_occurz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2app2708z12zzast_occurz00(obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2letzd2var2728zc0zzast_occurz00(obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2setzd2exzd2it2731z12zzast_occurz00(obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzast_occurz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzast_occurz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
static obj_t BGl_occurzd2nodez12zd2sequence2706z12zzast_occurz00(obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2fail2722z12zzast_occurz00(obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2funcall2712z12zzast_occurz00(obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_occurzd2nodez12zd2jumpzd2exzd2it2733z12zzast_occurz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32744ze3z83zzast_occurz00(obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2boxzd2setz122740zd2zzast_occurz00(obj_t, obj_t);
extern obj_t BGl_forzd2eachzd2globalz12z12zzast_envz00(obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
extern obj_t BGl_appz00zzast_nodez00;
static bool_t BGl_occurzd2nodeza2z12z62zzast_occurz00(obj_t);
static obj_t BGl_occurzd2nodez12zc0zzast_occurz00(BgL_nodez00_bglt);
static obj_t BGl_occurzd2nodez12zd2makezd2box2735zc0zzast_occurz00(obj_t, obj_t);
static obj_t BGl__occurzd2nodezd2inz123493z12zzast_occurz00(obj_t, obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2extern2714z12zzast_occurz00(obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2boxzd2ref2737zc0zzast_occurz00(obj_t, obj_t);
static obj_t BGl_occurzd2nodez12zd2cast2716z12zzast_occurz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzast_occurz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_occurzd2nodezd2inz12z12zzast_occurz00(BgL_nodez00_bglt, BgL_globalz00_bglt);
static obj_t BGl_libraryzd2moduleszd2initz00zzast_occurz00();
static obj_t BGl_occurzd2nodez12zd2var2704z12zzast_occurz00(obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 1 ] ;


DEFINE_STATIC_PROCEDURE( BGl_proc3925z00zzast_occurz00, BgL_bgl_za7c3anonymousza7a32744za7e3za783za7za7ast_occurza7003971za7, BGl_zc3anonymousza32744ze3z83zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3926z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2var2704za712za7za7ast_occurza7003972za7, BGl_occurzd2nodez12zd2var2704z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3927z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2sequence2706za712za7za7ast_occurza7003973za7, BGl_occurzd2nodez12zd2sequence2706z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3928z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2app2708za712za7za7ast_occurza7003974za7, BGl_occurzd2nodez12zd2app2708z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3930z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2funcall2712za712za7za7ast_occurza7003975za7, BGl_occurzd2nodez12zd2funcall2712z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3929z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2appza7d2ly2710za7c0za7za7ast_occurza7003976z00, BGl_occurzd2nodez12zd2appzd2ly2710zc0zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3931z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2extern2714za712za7za7ast_occurza7003977za7, BGl_occurzd2nodez12zd2extern2714z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3932z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2cast2716za712za7za7ast_occurza7003978za7, BGl_occurzd2nodez12zd2cast2716z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3933z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2setq2718za712za7za7ast_occurza7003979za7, BGl_occurzd2nodez12zd2setq2718z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3934z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2conditional2720za712za7za7ast_occurza7003980za7, BGl_occurzd2nodez12zd2conditional2720z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3935z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2fail2722za712za7za7ast_occurza7003981za7, BGl_occurzd2nodez12zd2fail2722z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3936z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2select2724za712za7za7ast_occurza7003982za7, BGl_occurzd2nodez12zd2select2724z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3937z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2letza7d2fun2726za7c0za7za7ast_occurza7003983z00, BGl_occurzd2nodez12zd2letzd2fun2726zc0zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3938z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2letza7d2var2728za7c0za7za7ast_occurza7003984z00, BGl_occurzd2nodez12zd2letzd2var2728zc0zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3940z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2jumpza7d2exza7d2it2733za712za7za7ast_occurza7003985za7, BGl_occurzd2nodez12zd2jumpzd2exzd2it2733z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3939z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2setza7d2exza7d2it2731za712za7za7ast_occurza7003986za7, BGl_occurzd2nodez12zd2setzd2exzd2it2731z12zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3941z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2makeza7d2box2735za7c0za7za7ast_occurza7003987z00, BGl_occurzd2nodez12zd2makezd2box2735zc0zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3942z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2boxza7d2ref2737za7c0za7za7ast_occurza7003988z00, BGl_occurzd2nodez12zd2boxzd2ref2737zc0zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3943z00zzast_occurz00, BgL_bgl_occurza7d2nodeza712za7d2boxza7d2setza7122740za7d2za7za7ast_occurza7003989za7, BGl_occurzd2nodez12zd2boxzd2setz122740zd2zzast_occurz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_occurzd2varzd2envz00zzast_occurz00, BgL_bgl__occurza7d2varza7d2za7za7ast_occurza7003990za7, BGl__occurzd2varzd2zzast_occurz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_occurzd2nodez12zd2default2700zd2envzc0zzast_occurz00, BgL_bgl__occurza7d2nodeza712za7d2default2700za712za7za7ast_occurza7003991za7, BGl__occurzd2nodez12zd2default2700z12zzast_occurz00, 0L, 1 );
DEFINE_STRING( BGl_string3944z00zzast_occurz00, BgL_bgl_string3944za700za7za7ast_occurza7003992z00, "done ", 5 );
DEFINE_STATIC_GENERIC( BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_bgl__occurza7d2nodeza7123495za7c0za7za7ast_occurza7003993z00, BGl__occurzd2nodez123495zc0zzast_occurz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_occurzd2nodezd2inz12zd2envzc0zzast_occurz00, BgL_bgl__occurza7d2nodeza7d2inza7123493za712za7za7ast_occurza7003994za7, BGl__occurzd2nodezd2inz123493z12zzast_occurz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzast_occurz00(long BgL_checksumz00_2185, char * BgL_fromz00_2186)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzast_occurz00))
{ 
BGl_requirezd2initializa7ationz75zzast_occurz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzast_occurz00(); 
BGl_cnstzd2initzd2zzast_occurz00(); 
BGl_importedzd2moduleszd2initz00zzast_occurz00(); 
BGl_methodzd2initzd2zzast_occurz00(); 
BGl_toplevelzd2initzd2zzast_occurz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzast_occurz00()
{ AN_OBJECT;
{ /* ./Ast/occur.scm 14 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "ast_occur"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "ast_occur"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzast_occurz00()
{ AN_OBJECT;
{ /* ./Ast/occur.scm 14 */
{ /* ./Ast/occur.scm 14 */
obj_t BgL_cportz00_2176;
BgL_cportz00_2176 = 
open_input_string(BGl_string3944z00zzast_occurz00); 
{ 
long BgL_iz00_2177;
BgL_iz00_2177 = ((long)0); 
BgL_loopz00_2178:
{ /* ./Ast/occur.scm 14 */
bool_t BgL_test3946z00_2179;
BgL_test3946z00_2179 = 
(BgL_iz00_2177==((long)-1)); 
if(BgL_test3946z00_2179)
{ /* ./Ast/occur.scm 14 */
return BUNSPEC;}  else 
{ /* ./Ast/occur.scm 14 */
{ /* ./Ast/occur.scm 14 */
obj_t BgL_arg3948z00_2180;
{ /* ./Ast/occur.scm 14 */
obj_t BgL_list3951z00_2181;
BgL_list3951z00_2181 = 
MAKE_PAIR(BgL_cportz00_2176, BNIL); 
BgL_arg3948z00_2180 = 
BGl_readz00zz__readerz00(BgL_list3951z00_2181); } 
{ /* ./Ast/occur.scm 14 */
int BgL_auxz00_2202;
BgL_auxz00_2202 = 
(int)(BgL_iz00_2177); 
CNST_TABLE_SET(BgL_auxz00_2202, BgL_arg3948z00_2180); } } 
{ /* ./Ast/occur.scm 14 */
int BgL_auxz00_2182;
{ /* ./Ast/occur.scm 14 */
long BgL_auxz00_2205;
BgL_auxz00_2205 = 
(BgL_iz00_2177-((long)1)); 
BgL_auxz00_2182 = 
(int)(BgL_auxz00_2205); } 
{ 
long BgL_iz00_2208;
BgL_iz00_2208 = 
(long)(BgL_auxz00_2182); 
BgL_iz00_2177 = BgL_iz00_2208; 
goto BgL_loopz00_2178;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzast_occurz00()
{ AN_OBJECT;
{ /* ./Ast/occur.scm 14 */
BGl_za2globalza2z00zzast_occurz00 = BUNSPEC; 
return BUNSPEC;} 
}



/* occur-var */
BGL_EXPORTED_DEF obj_t BGl_occurzd2varzd2zzast_occurz00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 27 */
BGl_forzd2eachzd2globalz12z12zzast_envz00(BGl_proc3925z00zzast_occurz00); 
{ 
obj_t BgL_l2662z00_686;
{ /* ./Ast/occur.scm 31 */
bool_t BgL_auxz00_2211;
BgL_l2662z00_686 = BgL_globalsz00_1; 
BgL_forzd2each2663zd2_687:
{ /* ./Ast/occur.scm 31 */
bool_t BgL_test2747z00_688;
BgL_test2747z00_688 = 
PAIRP(BgL_l2662z00_686); 
if(BgL_test2747z00_688)
{ /* ./Ast/occur.scm 31 */
{ /* ./Ast/occur.scm 32 */
obj_t BgL_globalz00_689;
BgL_globalz00_689 = 
CAR(BgL_l2662z00_686); 
{ /* ./Ast/occur.scm 32 */
obj_t BgL_arg2749z00_690;
{ /* ./Ast/occur.scm 32 */
BgL_sfunz00_bglt BgL_obj1370z00_1242;
{ /* ./Ast/occur.scm 32 */
BgL_valuez00_bglt BgL_auxz00_2215;
{ /* ./Ast/occur.scm 32 */
BgL_variablez00_bglt BgL_obj1100z00_1241;
BgL_obj1100z00_1241 = 
(BgL_variablez00_bglt)(BgL_globalz00_689); 
BgL_auxz00_2215 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1241))->BgL_valuez00); } 
BgL_obj1370z00_1242 = 
(BgL_sfunz00_bglt)(BgL_auxz00_2215); } 
BgL_arg2749z00_690 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1242))->BgL_bodyz00); } 
{ /* ./Ast/occur.scm 32 */
BgL_nodez00_bglt BgL_nodez00_1243;BgL_globalz00_bglt BgL_globalz00_1244;
BgL_nodez00_1243 = 
(BgL_nodez00_bglt)(BgL_arg2749z00_690); 
BgL_globalz00_1244 = 
(BgL_globalz00_bglt)(BgL_globalz00_689); 
BGl_za2globalza2z00zzast_occurz00 = 
(obj_t)(BgL_globalz00_1244); 
BGl_occurzd2nodez12zc0zzast_occurz00(BgL_nodez00_1243); } } } 
{ /* ./Ast/occur.scm 31 */
obj_t BgL_arg2757z00_692;
BgL_arg2757z00_692 = 
CDR(BgL_l2662z00_686); 
{ 
obj_t BgL_l2662z00_2225;
BgL_l2662z00_2225 = BgL_arg2757z00_692; 
BgL_l2662z00_686 = BgL_l2662z00_2225; 
goto BgL_forzd2each2663zd2_687;} } }  else 
{ /* ./Ast/occur.scm 31 */
BgL_auxz00_2211 = ((bool_t)1); } } 
return 
BBOOL(BgL_auxz00_2211);} } } 
}



/* _occur-var */
obj_t BGl__occurzd2varzd2zzast_occurz00(obj_t BgL_envz00_2111, obj_t BgL_globalsz00_2112)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 27 */
return 
BGl_occurzd2varzd2zzast_occurz00(BgL_globalsz00_2112);} 
}



/* <anonymous:2744> */
obj_t BGl_zc3anonymousza32744ze3z83zzast_occurz00(obj_t BgL_envz00_2113, obj_t BgL_globalz00_2114)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 29 */
{ 
obj_t BgL_globalz00_683;
BgL_globalz00_683 = BgL_globalz00_2114; 
{ /* ./Ast/occur.scm 29 */
BgL_variablez00_bglt BgL_obj1114z00_1237;long BgL_val1113z00_1238;
BgL_obj1114z00_1237 = 
(BgL_variablez00_bglt)(BgL_globalz00_683); 
BgL_val1113z00_1238 = ((long)0); 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1114z00_1237))->BgL_occurrencez00) = ((long)BgL_val1113z00_1238), BUNSPEC);} } } 
}



/* occur-node-in! */
BGL_EXPORTED_DEF obj_t BGl_occurzd2nodezd2inz12z12zzast_occurz00(BgL_nodez00_bglt BgL_nodez00_2, BgL_globalz00_bglt BgL_globalz00_3)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 38 */
BGl_za2globalza2z00zzast_occurz00 = 
(obj_t)(BgL_globalz00_3); 
{ /* ./Ast/occur.scm 40 */
obj_t BgL_method2702z00_1247;
{ /* ./Ast/occur.scm 40 */
BgL_objectz00_bglt BgL_objz00_1248;
BgL_objz00_1248 = 
(BgL_objectz00_bglt)(BgL_nodez00_2); 
{ /* ./Ast/occur.scm 40 */
long BgL_objzd2classzd2numz00_1249;
BgL_objzd2classzd2numz00_1249 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1248); 
{ /* ./Ast/occur.scm 40 */
obj_t BgL_arg2017z00_1250;
{ /* ./Ast/occur.scm 40 */
int BgL_auxz00_2233;
BgL_auxz00_2233 = 
(int)(((long)1)); 
BgL_arg2017z00_1250 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2233); } 
{ /* ./Ast/occur.scm 40 */
int BgL_offsetz00_1253;
BgL_offsetz00_1253 = 
(int)(BgL_objzd2classzd2numz00_1249); 
{ /* ./Ast/occur.scm 40 */
long BgL_offsetz00_1254;
{ /* ./Ast/occur.scm 40 */
long BgL_auxz00_2237;
BgL_auxz00_2237 = 
(long)(BgL_offsetz00_1253); 
BgL_offsetz00_1254 = 
(BgL_auxz00_2237-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 40 */
long BgL_modz00_1255;
{ /* ./Ast/occur.scm 40 */
int BgL_arg2028z00_1256;
BgL_arg2028z00_1256 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 40 */
long BgL_n2z00_1264;
BgL_n2z00_1264 = 
(long)(BgL_arg2028z00_1256); 
BgL_modz00_1255 = 
(BgL_offsetz00_1254/BgL_n2z00_1264); } } 
{ /* ./Ast/occur.scm 40 */
long BgL_restz00_1257;
{ /* ./Ast/occur.scm 40 */
int BgL_arg2024z00_1258;
BgL_arg2024z00_1258 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 40 */
long BgL_n2z00_1267;
BgL_n2z00_1267 = 
(long)(BgL_arg2024z00_1258); 
BgL_restz00_1257 = 
(BgL_offsetz00_1254%BgL_n2z00_1267); } } 
{ /* ./Ast/occur.scm 40 */

{ /* ./Ast/occur.scm 40 */
obj_t BgL_bucketz00_1259;
{ /* ./Ast/occur.scm 40 */
int BgL_kz00_1269;
BgL_kz00_1269 = 
(int)(BgL_modz00_1255); 
BgL_bucketz00_1259 = 
VECTOR_REF(BgL_arg2017z00_1250,BgL_kz00_1269); } 
{ /* ./Ast/occur.scm 40 */
int BgL_kz00_1271;
BgL_kz00_1271 = 
(int)(BgL_restz00_1257); 
BgL_method2702z00_1247 = 
VECTOR_REF(BgL_bucketz00_1259,BgL_kz00_1271); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1247)(BgL_method2702z00_1247, 
(obj_t)(BgL_nodez00_2), BEOA);} } 
}



/* _occur-node-in!3493 */
obj_t BGl__occurzd2nodezd2inz123493z12zzast_occurz00(obj_t BgL_envz00_2115, obj_t BgL_nodez00_2116, obj_t BgL_globalz00_2117)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 38 */
return 
BGl_occurzd2nodezd2inz12z12zzast_occurz00(
(BgL_nodez00_bglt)(BgL_nodez00_2116), 
(BgL_globalz00_bglt)(BgL_globalz00_2117));} 
}



/* occur-node*! */
bool_t BGl_occurzd2nodeza2z12z62zzast_occurz00(obj_t BgL_nodeza2za2_24)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 209 */
{ 
obj_t BgL_l2698z00_693;
BgL_l2698z00_693 = BgL_nodeza2za2_24; 
BgL_forzd2each2699zd2_694:
{ /* ./Ast/occur.scm 210 */
bool_t BgL_test2763z00_695;
BgL_test2763z00_695 = 
PAIRP(BgL_l2698z00_693); 
if(BgL_test2763z00_695)
{ /* ./Ast/occur.scm 210 */
{ /* ./Ast/occur.scm 210 */
obj_t BgL_arg2765z00_696;
BgL_arg2765z00_696 = 
CAR(BgL_l2698z00_693); 
{ /* ./Ast/occur.scm 210 */
BgL_nodez00_bglt BgL_nodez00_1274;
BgL_nodez00_1274 = 
(BgL_nodez00_bglt)(BgL_arg2765z00_696); 
{ /* ./Ast/occur.scm 210 */
obj_t BgL_method2702z00_1275;
{ /* ./Ast/occur.scm 210 */
BgL_objectz00_bglt BgL_objz00_1276;
BgL_objz00_1276 = 
(BgL_objectz00_bglt)(BgL_nodez00_1274); 
{ /* ./Ast/occur.scm 210 */
long BgL_objzd2classzd2numz00_1277;
BgL_objzd2classzd2numz00_1277 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1276); 
{ /* ./Ast/occur.scm 210 */
obj_t BgL_arg2017z00_1278;
{ /* ./Ast/occur.scm 210 */
int BgL_auxz00_2262;
BgL_auxz00_2262 = 
(int)(((long)1)); 
BgL_arg2017z00_1278 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2262); } 
{ /* ./Ast/occur.scm 210 */
int BgL_offsetz00_1281;
BgL_offsetz00_1281 = 
(int)(BgL_objzd2classzd2numz00_1277); 
{ /* ./Ast/occur.scm 210 */
long BgL_offsetz00_1282;
{ /* ./Ast/occur.scm 210 */
long BgL_auxz00_2266;
BgL_auxz00_2266 = 
(long)(BgL_offsetz00_1281); 
BgL_offsetz00_1282 = 
(BgL_auxz00_2266-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 210 */
long BgL_modz00_1283;
{ /* ./Ast/occur.scm 210 */
int BgL_arg2028z00_1284;
BgL_arg2028z00_1284 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 210 */
long BgL_n2z00_1292;
BgL_n2z00_1292 = 
(long)(BgL_arg2028z00_1284); 
BgL_modz00_1283 = 
(BgL_offsetz00_1282/BgL_n2z00_1292); } } 
{ /* ./Ast/occur.scm 210 */
long BgL_restz00_1285;
{ /* ./Ast/occur.scm 210 */
int BgL_arg2024z00_1286;
BgL_arg2024z00_1286 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 210 */
long BgL_n2z00_1295;
BgL_n2z00_1295 = 
(long)(BgL_arg2024z00_1286); 
BgL_restz00_1285 = 
(BgL_offsetz00_1282%BgL_n2z00_1295); } } 
{ /* ./Ast/occur.scm 210 */

{ /* ./Ast/occur.scm 210 */
obj_t BgL_bucketz00_1287;
{ /* ./Ast/occur.scm 210 */
int BgL_kz00_1297;
BgL_kz00_1297 = 
(int)(BgL_modz00_1283); 
BgL_bucketz00_1287 = 
VECTOR_REF(BgL_arg2017z00_1278,BgL_kz00_1297); } 
{ /* ./Ast/occur.scm 210 */
int BgL_kz00_1299;
BgL_kz00_1299 = 
(int)(BgL_restz00_1285); 
BgL_method2702z00_1275 = 
VECTOR_REF(BgL_bucketz00_1287,BgL_kz00_1299); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1275)(BgL_method2702z00_1275, 
(obj_t)(BgL_nodez00_1274), BEOA); } } } 
{ /* ./Ast/occur.scm 210 */
obj_t BgL_arg2769z00_697;
BgL_arg2769z00_697 = 
CDR(BgL_l2698z00_693); 
{ 
obj_t BgL_l2698z00_2283;
BgL_l2698z00_2283 = BgL_arg2769z00_697; 
BgL_l2698z00_693 = BgL_l2698z00_2283; 
goto BgL_forzd2each2699zd2_694;} } }  else 
{ /* ./Ast/occur.scm 210 */
return ((bool_t)1);} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzast_occurz00()
{ AN_OBJECT;
{ /* ./Ast/occur.scm 14 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_occurzd2nodez12zd2default2700zd2envzc0zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_varz00zzast_nodez00, BGl_proc3926z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_sequencez00zzast_nodez00, BGl_proc3927z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_appz00zzast_nodez00, BGl_proc3928z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc3929z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_funcallz00zzast_nodez00, BGl_proc3930z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_externz00zzast_nodez00, BGl_proc3931z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_castz00zzast_nodez00, BGl_proc3932z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_setqz00zzast_nodez00, BGl_proc3933z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_conditionalz00zzast_nodez00, BGl_proc3934z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_failz00zzast_nodez00, BGl_proc3935z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_selectz00zzast_nodez00, BGl_proc3936z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc3937z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc3938z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc3939z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc3940z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc3941z00zzast_occurz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc3942z00zzast_occurz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc3943z00zzast_occurz00);} 
}



/* occur-node!-box-set!2740 */
obj_t BGl_occurzd2nodez12zd2boxzd2setz122740zd2zzast_occurz00(obj_t BgL_envz00_2138, obj_t BgL_nodez00_2139)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 201 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1228;
BgL_nodez00_1228 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2139); 
{ /* ./Ast/occur.scm 203 */
BgL_varz00_bglt BgL_arg3410z00_1232;
BgL_arg3410z00_1232 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1228))->BgL_varz00); 
{ /* ./Ast/occur.scm 203 */
BgL_nodez00_bglt BgL_nodez00_2032;
BgL_nodez00_2032 = 
(BgL_nodez00_bglt)(BgL_arg3410z00_1232); 
{ /* ./Ast/occur.scm 203 */
obj_t BgL_method2702z00_2033;
{ /* ./Ast/occur.scm 203 */
BgL_objectz00_bglt BgL_objz00_2034;
BgL_objz00_2034 = 
(BgL_objectz00_bglt)(BgL_nodez00_2032); 
{ /* ./Ast/occur.scm 203 */
long BgL_objzd2classzd2numz00_2035;
BgL_objzd2classzd2numz00_2035 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2034); 
{ /* ./Ast/occur.scm 203 */
obj_t BgL_arg2017z00_2036;
{ /* ./Ast/occur.scm 203 */
int BgL_auxz00_2307;
BgL_auxz00_2307 = 
(int)(((long)1)); 
BgL_arg2017z00_2036 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2307); } 
{ /* ./Ast/occur.scm 203 */
int BgL_offsetz00_2039;
BgL_offsetz00_2039 = 
(int)(BgL_objzd2classzd2numz00_2035); 
{ /* ./Ast/occur.scm 203 */
long BgL_offsetz00_2040;
{ /* ./Ast/occur.scm 203 */
long BgL_auxz00_2311;
BgL_auxz00_2311 = 
(long)(BgL_offsetz00_2039); 
BgL_offsetz00_2040 = 
(BgL_auxz00_2311-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 203 */
long BgL_modz00_2041;
{ /* ./Ast/occur.scm 203 */
int BgL_arg2028z00_2042;
BgL_arg2028z00_2042 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 203 */
long BgL_n2z00_2050;
BgL_n2z00_2050 = 
(long)(BgL_arg2028z00_2042); 
BgL_modz00_2041 = 
(BgL_offsetz00_2040/BgL_n2z00_2050); } } 
{ /* ./Ast/occur.scm 203 */
long BgL_restz00_2043;
{ /* ./Ast/occur.scm 203 */
int BgL_arg2024z00_2044;
BgL_arg2024z00_2044 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 203 */
long BgL_n2z00_2053;
BgL_n2z00_2053 = 
(long)(BgL_arg2024z00_2044); 
BgL_restz00_2043 = 
(BgL_offsetz00_2040%BgL_n2z00_2053); } } 
{ /* ./Ast/occur.scm 203 */

{ /* ./Ast/occur.scm 203 */
obj_t BgL_bucketz00_2045;
{ /* ./Ast/occur.scm 203 */
int BgL_kz00_2055;
BgL_kz00_2055 = 
(int)(BgL_modz00_2041); 
BgL_bucketz00_2045 = 
VECTOR_REF(BgL_arg2017z00_2036,BgL_kz00_2055); } 
{ /* ./Ast/occur.scm 203 */
int BgL_kz00_2057;
BgL_kz00_2057 = 
(int)(BgL_restz00_2043); 
BgL_method2702z00_2033 = 
VECTOR_REF(BgL_bucketz00_2045,BgL_kz00_2057); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_2033)(BgL_method2702z00_2033, 
(obj_t)(BgL_nodez00_2032), BEOA); } } } 
{ /* ./Ast/occur.scm 204 */
BgL_nodez00_bglt BgL_arg3414z00_1233;
BgL_arg3414z00_1233 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1228))->BgL_valuez00); 
{ /* ./Ast/occur.scm 204 */
obj_t BgL_method2702z00_2060;
{ /* ./Ast/occur.scm 204 */
BgL_objectz00_bglt BgL_objz00_2061;
BgL_objz00_2061 = 
(BgL_objectz00_bglt)(BgL_arg3414z00_1233); 
{ /* ./Ast/occur.scm 204 */
long BgL_objzd2classzd2numz00_2062;
BgL_objzd2classzd2numz00_2062 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2061); 
{ /* ./Ast/occur.scm 204 */
obj_t BgL_arg2017z00_2063;
{ /* ./Ast/occur.scm 204 */
int BgL_auxz00_2330;
BgL_auxz00_2330 = 
(int)(((long)1)); 
BgL_arg2017z00_2063 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2330); } 
{ /* ./Ast/occur.scm 204 */
int BgL_offsetz00_2066;
BgL_offsetz00_2066 = 
(int)(BgL_objzd2classzd2numz00_2062); 
{ /* ./Ast/occur.scm 204 */
long BgL_offsetz00_2067;
{ /* ./Ast/occur.scm 204 */
long BgL_auxz00_2334;
BgL_auxz00_2334 = 
(long)(BgL_offsetz00_2066); 
BgL_offsetz00_2067 = 
(BgL_auxz00_2334-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 204 */
long BgL_modz00_2068;
{ /* ./Ast/occur.scm 204 */
int BgL_arg2028z00_2069;
BgL_arg2028z00_2069 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 204 */
long BgL_n2z00_2077;
BgL_n2z00_2077 = 
(long)(BgL_arg2028z00_2069); 
BgL_modz00_2068 = 
(BgL_offsetz00_2067/BgL_n2z00_2077); } } 
{ /* ./Ast/occur.scm 204 */
long BgL_restz00_2070;
{ /* ./Ast/occur.scm 204 */
int BgL_arg2024z00_2071;
BgL_arg2024z00_2071 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 204 */
long BgL_n2z00_2080;
BgL_n2z00_2080 = 
(long)(BgL_arg2024z00_2071); 
BgL_restz00_2070 = 
(BgL_offsetz00_2067%BgL_n2z00_2080); } } 
{ /* ./Ast/occur.scm 204 */

{ /* ./Ast/occur.scm 204 */
obj_t BgL_bucketz00_2072;
{ /* ./Ast/occur.scm 204 */
int BgL_kz00_2082;
BgL_kz00_2082 = 
(int)(BgL_modz00_2068); 
BgL_bucketz00_2072 = 
VECTOR_REF(BgL_arg2017z00_2063,BgL_kz00_2082); } 
{ /* ./Ast/occur.scm 204 */
int BgL_kz00_2084;
BgL_kz00_2084 = 
(int)(BgL_restz00_2070); 
BgL_method2702z00_2060 = 
VECTOR_REF(BgL_bucketz00_2072,BgL_kz00_2084); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_2060)(BgL_method2702z00_2060, 
(obj_t)(BgL_arg3414z00_1233), BEOA);} } } } 
}



/* occur-node!-box-ref2737 */
obj_t BGl_occurzd2nodez12zd2boxzd2ref2737zc0zzast_occurz00(obj_t BgL_envz00_2140, obj_t BgL_nodez00_2141)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 195 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1222;
BgL_nodez00_1222 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2141); 
{ /* ./Ast/occur.scm 196 */
BgL_varz00_bglt BgL_arg3400z00_2003;
BgL_arg3400z00_2003 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1222))->BgL_varz00); 
{ /* ./Ast/occur.scm 196 */
BgL_nodez00_bglt BgL_nodez00_2005;
BgL_nodez00_2005 = 
(BgL_nodez00_bglt)(BgL_arg3400z00_2003); 
{ /* ./Ast/occur.scm 196 */
obj_t BgL_method2702z00_2006;
{ /* ./Ast/occur.scm 196 */
BgL_objectz00_bglt BgL_objz00_2007;
BgL_objz00_2007 = 
(BgL_objectz00_bglt)(BgL_nodez00_2005); 
{ /* ./Ast/occur.scm 196 */
long BgL_objzd2classzd2numz00_2008;
BgL_objzd2classzd2numz00_2008 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2007); 
{ /* ./Ast/occur.scm 196 */
obj_t BgL_arg2017z00_2009;
{ /* ./Ast/occur.scm 196 */
int BgL_auxz00_2355;
BgL_auxz00_2355 = 
(int)(((long)1)); 
BgL_arg2017z00_2009 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2355); } 
{ /* ./Ast/occur.scm 196 */
int BgL_offsetz00_2012;
BgL_offsetz00_2012 = 
(int)(BgL_objzd2classzd2numz00_2008); 
{ /* ./Ast/occur.scm 196 */
long BgL_offsetz00_2013;
{ /* ./Ast/occur.scm 196 */
long BgL_auxz00_2359;
BgL_auxz00_2359 = 
(long)(BgL_offsetz00_2012); 
BgL_offsetz00_2013 = 
(BgL_auxz00_2359-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 196 */
long BgL_modz00_2014;
{ /* ./Ast/occur.scm 196 */
int BgL_arg2028z00_2015;
BgL_arg2028z00_2015 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 196 */
long BgL_n2z00_2023;
BgL_n2z00_2023 = 
(long)(BgL_arg2028z00_2015); 
BgL_modz00_2014 = 
(BgL_offsetz00_2013/BgL_n2z00_2023); } } 
{ /* ./Ast/occur.scm 196 */
long BgL_restz00_2016;
{ /* ./Ast/occur.scm 196 */
int BgL_arg2024z00_2017;
BgL_arg2024z00_2017 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 196 */
long BgL_n2z00_2026;
BgL_n2z00_2026 = 
(long)(BgL_arg2024z00_2017); 
BgL_restz00_2016 = 
(BgL_offsetz00_2013%BgL_n2z00_2026); } } 
{ /* ./Ast/occur.scm 196 */

{ /* ./Ast/occur.scm 196 */
obj_t BgL_bucketz00_2018;
{ /* ./Ast/occur.scm 196 */
int BgL_kz00_2028;
BgL_kz00_2028 = 
(int)(BgL_modz00_2014); 
BgL_bucketz00_2018 = 
VECTOR_REF(BgL_arg2017z00_2009,BgL_kz00_2028); } 
{ /* ./Ast/occur.scm 196 */
int BgL_kz00_2030;
BgL_kz00_2030 = 
(int)(BgL_restz00_2016); 
BgL_method2702z00_2006 = 
VECTOR_REF(BgL_bucketz00_2018,BgL_kz00_2030); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_2006)(BgL_method2702z00_2006, 
(obj_t)(BgL_nodez00_2005), BEOA);} } } } } 
}



/* occur-node!-make-box2735 */
obj_t BGl_occurzd2nodez12zd2makezd2box2735zc0zzast_occurz00(obj_t BgL_envz00_2142, obj_t BgL_nodez00_2143)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 189 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1216;
BgL_nodez00_1216 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2143); 
{ /* ./Ast/occur.scm 190 */
BgL_nodez00_bglt BgL_arg3390z00_1975;
BgL_arg3390z00_1975 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1216))->BgL_valuez00); 
{ /* ./Ast/occur.scm 190 */
obj_t BgL_method2702z00_1978;
{ /* ./Ast/occur.scm 190 */
BgL_objectz00_bglt BgL_objz00_1979;
BgL_objz00_1979 = 
(BgL_objectz00_bglt)(BgL_arg3390z00_1975); 
{ /* ./Ast/occur.scm 190 */
long BgL_objzd2classzd2numz00_1980;
BgL_objzd2classzd2numz00_1980 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1979); 
{ /* ./Ast/occur.scm 190 */
obj_t BgL_arg2017z00_1981;
{ /* ./Ast/occur.scm 190 */
int BgL_auxz00_2379;
BgL_auxz00_2379 = 
(int)(((long)1)); 
BgL_arg2017z00_1981 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2379); } 
{ /* ./Ast/occur.scm 190 */
int BgL_offsetz00_1984;
BgL_offsetz00_1984 = 
(int)(BgL_objzd2classzd2numz00_1980); 
{ /* ./Ast/occur.scm 190 */
long BgL_offsetz00_1985;
{ /* ./Ast/occur.scm 190 */
long BgL_auxz00_2383;
BgL_auxz00_2383 = 
(long)(BgL_offsetz00_1984); 
BgL_offsetz00_1985 = 
(BgL_auxz00_2383-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 190 */
long BgL_modz00_1986;
{ /* ./Ast/occur.scm 190 */
int BgL_arg2028z00_1987;
BgL_arg2028z00_1987 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 190 */
long BgL_n2z00_1995;
BgL_n2z00_1995 = 
(long)(BgL_arg2028z00_1987); 
BgL_modz00_1986 = 
(BgL_offsetz00_1985/BgL_n2z00_1995); } } 
{ /* ./Ast/occur.scm 190 */
long BgL_restz00_1988;
{ /* ./Ast/occur.scm 190 */
int BgL_arg2024z00_1989;
BgL_arg2024z00_1989 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 190 */
long BgL_n2z00_1998;
BgL_n2z00_1998 = 
(long)(BgL_arg2024z00_1989); 
BgL_restz00_1988 = 
(BgL_offsetz00_1985%BgL_n2z00_1998); } } 
{ /* ./Ast/occur.scm 190 */

{ /* ./Ast/occur.scm 190 */
obj_t BgL_bucketz00_1990;
{ /* ./Ast/occur.scm 190 */
int BgL_kz00_2000;
BgL_kz00_2000 = 
(int)(BgL_modz00_1986); 
BgL_bucketz00_1990 = 
VECTOR_REF(BgL_arg2017z00_1981,BgL_kz00_2000); } 
{ /* ./Ast/occur.scm 190 */
int BgL_kz00_2002;
BgL_kz00_2002 = 
(int)(BgL_restz00_1988); 
BgL_method2702z00_1978 = 
VECTOR_REF(BgL_bucketz00_1990,BgL_kz00_2002); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1978)(BgL_method2702z00_1978, 
(obj_t)(BgL_arg3390z00_1975), BEOA);} } } } 
}



/* occur-node!-jump-ex-it2733 */
obj_t BGl_occurzd2nodez12zd2jumpzd2exzd2it2733z12zzast_occurz00(obj_t BgL_envz00_2144, obj_t BgL_nodez00_2145)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 181 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1208;
BgL_nodez00_1208 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2145); 
{ /* ./Ast/occur.scm 183 */
BgL_nodez00_bglt BgL_arg3376z00_1212;
BgL_arg3376z00_1212 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1208))->BgL_exitz00); 
{ /* ./Ast/occur.scm 183 */
obj_t BgL_method2702z00_1923;
{ /* ./Ast/occur.scm 183 */
BgL_objectz00_bglt BgL_objz00_1924;
BgL_objz00_1924 = 
(BgL_objectz00_bglt)(BgL_arg3376z00_1212); 
{ /* ./Ast/occur.scm 183 */
long BgL_objzd2classzd2numz00_1925;
BgL_objzd2classzd2numz00_1925 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1924); 
{ /* ./Ast/occur.scm 183 */
obj_t BgL_arg2017z00_1926;
{ /* ./Ast/occur.scm 183 */
int BgL_auxz00_2403;
BgL_auxz00_2403 = 
(int)(((long)1)); 
BgL_arg2017z00_1926 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2403); } 
{ /* ./Ast/occur.scm 183 */
int BgL_offsetz00_1929;
BgL_offsetz00_1929 = 
(int)(BgL_objzd2classzd2numz00_1925); 
{ /* ./Ast/occur.scm 183 */
long BgL_offsetz00_1930;
{ /* ./Ast/occur.scm 183 */
long BgL_auxz00_2407;
BgL_auxz00_2407 = 
(long)(BgL_offsetz00_1929); 
BgL_offsetz00_1930 = 
(BgL_auxz00_2407-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 183 */
long BgL_modz00_1931;
{ /* ./Ast/occur.scm 183 */
int BgL_arg2028z00_1932;
BgL_arg2028z00_1932 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 183 */
long BgL_n2z00_1940;
BgL_n2z00_1940 = 
(long)(BgL_arg2028z00_1932); 
BgL_modz00_1931 = 
(BgL_offsetz00_1930/BgL_n2z00_1940); } } 
{ /* ./Ast/occur.scm 183 */
long BgL_restz00_1933;
{ /* ./Ast/occur.scm 183 */
int BgL_arg2024z00_1934;
BgL_arg2024z00_1934 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 183 */
long BgL_n2z00_1943;
BgL_n2z00_1943 = 
(long)(BgL_arg2024z00_1934); 
BgL_restz00_1933 = 
(BgL_offsetz00_1930%BgL_n2z00_1943); } } 
{ /* ./Ast/occur.scm 183 */

{ /* ./Ast/occur.scm 183 */
obj_t BgL_bucketz00_1935;
{ /* ./Ast/occur.scm 183 */
int BgL_kz00_1945;
BgL_kz00_1945 = 
(int)(BgL_modz00_1931); 
BgL_bucketz00_1935 = 
VECTOR_REF(BgL_arg2017z00_1926,BgL_kz00_1945); } 
{ /* ./Ast/occur.scm 183 */
int BgL_kz00_1947;
BgL_kz00_1947 = 
(int)(BgL_restz00_1933); 
BgL_method2702z00_1923 = 
VECTOR_REF(BgL_bucketz00_1935,BgL_kz00_1947); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1923)(BgL_method2702z00_1923, 
(obj_t)(BgL_arg3376z00_1212), BEOA); } } 
{ /* ./Ast/occur.scm 184 */
BgL_nodez00_bglt BgL_arg3380z00_1213;
BgL_arg3380z00_1213 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1208))->BgL_valuez00); 
{ /* ./Ast/occur.scm 184 */
obj_t BgL_method2702z00_1950;
{ /* ./Ast/occur.scm 184 */
BgL_objectz00_bglt BgL_objz00_1951;
BgL_objz00_1951 = 
(BgL_objectz00_bglt)(BgL_arg3380z00_1213); 
{ /* ./Ast/occur.scm 184 */
long BgL_objzd2classzd2numz00_1952;
BgL_objzd2classzd2numz00_1952 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1951); 
{ /* ./Ast/occur.scm 184 */
obj_t BgL_arg2017z00_1953;
{ /* ./Ast/occur.scm 184 */
int BgL_auxz00_2426;
BgL_auxz00_2426 = 
(int)(((long)1)); 
BgL_arg2017z00_1953 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2426); } 
{ /* ./Ast/occur.scm 184 */
int BgL_offsetz00_1956;
BgL_offsetz00_1956 = 
(int)(BgL_objzd2classzd2numz00_1952); 
{ /* ./Ast/occur.scm 184 */
long BgL_offsetz00_1957;
{ /* ./Ast/occur.scm 184 */
long BgL_auxz00_2430;
BgL_auxz00_2430 = 
(long)(BgL_offsetz00_1956); 
BgL_offsetz00_1957 = 
(BgL_auxz00_2430-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 184 */
long BgL_modz00_1958;
{ /* ./Ast/occur.scm 184 */
int BgL_arg2028z00_1959;
BgL_arg2028z00_1959 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 184 */
long BgL_n2z00_1967;
BgL_n2z00_1967 = 
(long)(BgL_arg2028z00_1959); 
BgL_modz00_1958 = 
(BgL_offsetz00_1957/BgL_n2z00_1967); } } 
{ /* ./Ast/occur.scm 184 */
long BgL_restz00_1960;
{ /* ./Ast/occur.scm 184 */
int BgL_arg2024z00_1961;
BgL_arg2024z00_1961 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 184 */
long BgL_n2z00_1970;
BgL_n2z00_1970 = 
(long)(BgL_arg2024z00_1961); 
BgL_restz00_1960 = 
(BgL_offsetz00_1957%BgL_n2z00_1970); } } 
{ /* ./Ast/occur.scm 184 */

{ /* ./Ast/occur.scm 184 */
obj_t BgL_bucketz00_1962;
{ /* ./Ast/occur.scm 184 */
int BgL_kz00_1972;
BgL_kz00_1972 = 
(int)(BgL_modz00_1958); 
BgL_bucketz00_1962 = 
VECTOR_REF(BgL_arg2017z00_1953,BgL_kz00_1972); } 
{ /* ./Ast/occur.scm 184 */
int BgL_kz00_1974;
BgL_kz00_1974 = 
(int)(BgL_restz00_1960); 
BgL_method2702z00_1950 = 
VECTOR_REF(BgL_bucketz00_1962,BgL_kz00_1974); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1950)(BgL_method2702z00_1950, 
(obj_t)(BgL_arg3380z00_1213), BEOA);} } } } 
}



/* occur-node!-set-ex-it2731 */
obj_t BGl_occurzd2nodez12zd2setzd2exzd2it2731z12zzast_occurz00(obj_t BgL_envz00_2146, obj_t BgL_nodez00_2147)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 173 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1198;
BgL_nodez00_1198 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2147); 
{ /* ./Ast/occur.scm 175 */
BgL_variablez00_bglt BgL_arg3357z00_1202;
{ /* ./Ast/occur.scm 175 */
BgL_varz00_bglt BgL_arg3362z00_1204;
BgL_arg3362z00_1204 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1198))->BgL_varz00); 
BgL_arg3357z00_1202 = 
(((BgL_varz00_bglt)CREF(BgL_arg3362z00_1204))->BgL_variablez00); } 
{ /* ./Ast/occur.scm 175 */
BgL_variablez00_bglt BgL_obj1114z00_1892;long BgL_val1113z00_1893;
BgL_obj1114z00_1892 = BgL_arg3357z00_1202; 
BgL_val1113z00_1893 = ((long)0); 
((((BgL_variablez00_bglt)CREF(BgL_obj1114z00_1892))->BgL_occurrencez00) = ((long)BgL_val1113z00_1893), BUNSPEC); } } 
{ /* ./Ast/occur.scm 176 */
BgL_nodez00_bglt BgL_arg3366z00_1205;
BgL_arg3366z00_1205 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1198))->BgL_bodyz00); 
{ /* ./Ast/occur.scm 176 */
obj_t BgL_method2702z00_1896;
{ /* ./Ast/occur.scm 176 */
BgL_objectz00_bglt BgL_objz00_1897;
BgL_objz00_1897 = 
(BgL_objectz00_bglt)(BgL_arg3366z00_1205); 
{ /* ./Ast/occur.scm 176 */
long BgL_objzd2classzd2numz00_1898;
BgL_objzd2classzd2numz00_1898 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1897); 
{ /* ./Ast/occur.scm 176 */
obj_t BgL_arg2017z00_1899;
{ /* ./Ast/occur.scm 176 */
int BgL_auxz00_2453;
BgL_auxz00_2453 = 
(int)(((long)1)); 
BgL_arg2017z00_1899 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2453); } 
{ /* ./Ast/occur.scm 176 */
int BgL_offsetz00_1902;
BgL_offsetz00_1902 = 
(int)(BgL_objzd2classzd2numz00_1898); 
{ /* ./Ast/occur.scm 176 */
long BgL_offsetz00_1903;
{ /* ./Ast/occur.scm 176 */
long BgL_auxz00_2457;
BgL_auxz00_2457 = 
(long)(BgL_offsetz00_1902); 
BgL_offsetz00_1903 = 
(BgL_auxz00_2457-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 176 */
long BgL_modz00_1904;
{ /* ./Ast/occur.scm 176 */
int BgL_arg2028z00_1905;
BgL_arg2028z00_1905 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 176 */
long BgL_n2z00_1913;
BgL_n2z00_1913 = 
(long)(BgL_arg2028z00_1905); 
BgL_modz00_1904 = 
(BgL_offsetz00_1903/BgL_n2z00_1913); } } 
{ /* ./Ast/occur.scm 176 */
long BgL_restz00_1906;
{ /* ./Ast/occur.scm 176 */
int BgL_arg2024z00_1907;
BgL_arg2024z00_1907 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 176 */
long BgL_n2z00_1916;
BgL_n2z00_1916 = 
(long)(BgL_arg2024z00_1907); 
BgL_restz00_1906 = 
(BgL_offsetz00_1903%BgL_n2z00_1916); } } 
{ /* ./Ast/occur.scm 176 */

{ /* ./Ast/occur.scm 176 */
obj_t BgL_bucketz00_1908;
{ /* ./Ast/occur.scm 176 */
int BgL_kz00_1918;
BgL_kz00_1918 = 
(int)(BgL_modz00_1904); 
BgL_bucketz00_1908 = 
VECTOR_REF(BgL_arg2017z00_1899,BgL_kz00_1918); } 
{ /* ./Ast/occur.scm 176 */
int BgL_kz00_1920;
BgL_kz00_1920 = 
(int)(BgL_restz00_1906); 
BgL_method2702z00_1896 = 
VECTOR_REF(BgL_bucketz00_1908,BgL_kz00_1920); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1896)(BgL_method2702z00_1896, 
(obj_t)(BgL_arg3366z00_1205), BEOA);} } } } 
}



/* occur-node!-let-var2728 */
obj_t BGl_occurzd2nodez12zd2letzd2var2728zc0zzast_occurz00(obj_t BgL_envz00_2148, obj_t BgL_nodez00_2149)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 162 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1182;
BgL_nodez00_1182 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2149); 
{ 
obj_t BgL_l2690z00_1186;
{ /* ./Ast/occur.scm 164 */
obj_t BgL_arg3327z00_1188;
BgL_arg3327z00_1188 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1182))->BgL_bindingsz00); 
BgL_l2690z00_1186 = BgL_arg3327z00_1188; 
BgL_forzd2each2691zd2_1187:
{ /* ./Ast/occur.scm 164 */
bool_t BgL_test3330z00_1189;
BgL_test3330z00_1189 = 
PAIRP(BgL_l2690z00_1186); 
if(BgL_test3330z00_1189)
{ /* ./Ast/occur.scm 164 */
{ /* ./Ast/occur.scm 165 */
obj_t BgL_bindingz00_1190;
BgL_bindingz00_1190 = 
CAR(BgL_l2690z00_1186); 
{ /* ./Ast/occur.scm 165 */
obj_t BgL_arg3332z00_1191;
BgL_arg3332z00_1191 = 
CAR(BgL_bindingz00_1190); 
{ /* ./Ast/occur.scm 165 */
BgL_variablez00_bglt BgL_obj1114z00_1833;long BgL_val1113z00_1834;
BgL_obj1114z00_1833 = 
(BgL_variablez00_bglt)(BgL_arg3332z00_1191); 
BgL_val1113z00_1834 = ((long)0); 
((((BgL_variablez00_bglt)CREF(BgL_obj1114z00_1833))->BgL_occurrencez00) = ((long)BgL_val1113z00_1834), BUNSPEC); } } 
{ /* ./Ast/occur.scm 166 */
obj_t BgL_arg3337z00_1193;
BgL_arg3337z00_1193 = 
CDR(BgL_bindingz00_1190); 
{ /* ./Ast/occur.scm 166 */
BgL_nodez00_bglt BgL_nodez00_1836;
BgL_nodez00_1836 = 
(BgL_nodez00_bglt)(BgL_arg3337z00_1193); 
{ /* ./Ast/occur.scm 166 */
obj_t BgL_method2702z00_1837;
{ /* ./Ast/occur.scm 166 */
BgL_objectz00_bglt BgL_objz00_1838;
BgL_objz00_1838 = 
(BgL_objectz00_bglt)(BgL_nodez00_1836); 
{ /* ./Ast/occur.scm 166 */
long BgL_objzd2classzd2numz00_1839;
BgL_objzd2classzd2numz00_1839 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1838); 
{ /* ./Ast/occur.scm 166 */
obj_t BgL_arg2017z00_1840;
{ /* ./Ast/occur.scm 166 */
int BgL_auxz00_2485;
BgL_auxz00_2485 = 
(int)(((long)1)); 
BgL_arg2017z00_1840 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2485); } 
{ /* ./Ast/occur.scm 166 */
int BgL_offsetz00_1843;
BgL_offsetz00_1843 = 
(int)(BgL_objzd2classzd2numz00_1839); 
{ /* ./Ast/occur.scm 166 */
long BgL_offsetz00_1844;
{ /* ./Ast/occur.scm 166 */
long BgL_auxz00_2489;
BgL_auxz00_2489 = 
(long)(BgL_offsetz00_1843); 
BgL_offsetz00_1844 = 
(BgL_auxz00_2489-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 166 */
long BgL_modz00_1845;
{ /* ./Ast/occur.scm 166 */
int BgL_arg2028z00_1846;
BgL_arg2028z00_1846 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 166 */
long BgL_n2z00_1854;
BgL_n2z00_1854 = 
(long)(BgL_arg2028z00_1846); 
BgL_modz00_1845 = 
(BgL_offsetz00_1844/BgL_n2z00_1854); } } 
{ /* ./Ast/occur.scm 166 */
long BgL_restz00_1847;
{ /* ./Ast/occur.scm 166 */
int BgL_arg2024z00_1848;
BgL_arg2024z00_1848 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 166 */
long BgL_n2z00_1857;
BgL_n2z00_1857 = 
(long)(BgL_arg2024z00_1848); 
BgL_restz00_1847 = 
(BgL_offsetz00_1844%BgL_n2z00_1857); } } 
{ /* ./Ast/occur.scm 166 */

{ /* ./Ast/occur.scm 166 */
obj_t BgL_bucketz00_1849;
{ /* ./Ast/occur.scm 166 */
int BgL_kz00_1859;
BgL_kz00_1859 = 
(int)(BgL_modz00_1845); 
BgL_bucketz00_1849 = 
VECTOR_REF(BgL_arg2017z00_1840,BgL_kz00_1859); } 
{ /* ./Ast/occur.scm 166 */
int BgL_kz00_1861;
BgL_kz00_1861 = 
(int)(BgL_restz00_1847); 
BgL_method2702z00_1837 = 
VECTOR_REF(BgL_bucketz00_1849,BgL_kz00_1861); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1837)(BgL_method2702z00_1837, 
(obj_t)(BgL_nodez00_1836), BEOA); } } } } 
{ /* ./Ast/occur.scm 164 */
obj_t BgL_arg3342z00_1194;
BgL_arg3342z00_1194 = 
CDR(BgL_l2690z00_1186); 
{ 
obj_t BgL_l2690z00_2506;
BgL_l2690z00_2506 = BgL_arg3342z00_1194; 
BgL_l2690z00_1186 = BgL_l2690z00_2506; 
goto BgL_forzd2each2691zd2_1187;} } }  else 
{ /* ./Ast/occur.scm 164 */((bool_t)1); } } } } 
{ /* ./Ast/occur.scm 168 */
BgL_nodez00_bglt BgL_arg3347z00_1195;
BgL_arg3347z00_1195 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1182))->BgL_bodyz00); 
{ /* ./Ast/occur.scm 168 */
obj_t BgL_method2702z00_1865;
{ /* ./Ast/occur.scm 168 */
BgL_objectz00_bglt BgL_objz00_1866;
BgL_objz00_1866 = 
(BgL_objectz00_bglt)(BgL_arg3347z00_1195); 
{ /* ./Ast/occur.scm 168 */
long BgL_objzd2classzd2numz00_1867;
BgL_objzd2classzd2numz00_1867 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1866); 
{ /* ./Ast/occur.scm 168 */
obj_t BgL_arg2017z00_1868;
{ /* ./Ast/occur.scm 168 */
int BgL_auxz00_2510;
BgL_auxz00_2510 = 
(int)(((long)1)); 
BgL_arg2017z00_1868 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2510); } 
{ /* ./Ast/occur.scm 168 */
int BgL_offsetz00_1871;
BgL_offsetz00_1871 = 
(int)(BgL_objzd2classzd2numz00_1867); 
{ /* ./Ast/occur.scm 168 */
long BgL_offsetz00_1872;
{ /* ./Ast/occur.scm 168 */
long BgL_auxz00_2514;
BgL_auxz00_2514 = 
(long)(BgL_offsetz00_1871); 
BgL_offsetz00_1872 = 
(BgL_auxz00_2514-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 168 */
long BgL_modz00_1873;
{ /* ./Ast/occur.scm 168 */
int BgL_arg2028z00_1874;
BgL_arg2028z00_1874 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 168 */
long BgL_n2z00_1882;
BgL_n2z00_1882 = 
(long)(BgL_arg2028z00_1874); 
BgL_modz00_1873 = 
(BgL_offsetz00_1872/BgL_n2z00_1882); } } 
{ /* ./Ast/occur.scm 168 */
long BgL_restz00_1875;
{ /* ./Ast/occur.scm 168 */
int BgL_arg2024z00_1876;
BgL_arg2024z00_1876 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 168 */
long BgL_n2z00_1885;
BgL_n2z00_1885 = 
(long)(BgL_arg2024z00_1876); 
BgL_restz00_1875 = 
(BgL_offsetz00_1872%BgL_n2z00_1885); } } 
{ /* ./Ast/occur.scm 168 */

{ /* ./Ast/occur.scm 168 */
obj_t BgL_bucketz00_1877;
{ /* ./Ast/occur.scm 168 */
int BgL_kz00_1887;
BgL_kz00_1887 = 
(int)(BgL_modz00_1873); 
BgL_bucketz00_1877 = 
VECTOR_REF(BgL_arg2017z00_1868,BgL_kz00_1887); } 
{ /* ./Ast/occur.scm 168 */
int BgL_kz00_1889;
BgL_kz00_1889 = 
(int)(BgL_restz00_1875); 
BgL_method2702z00_1865 = 
VECTOR_REF(BgL_bucketz00_1877,BgL_kz00_1889); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1865)(BgL_method2702z00_1865, 
(obj_t)(BgL_arg3347z00_1195), BEOA);} } } } 
}



/* occur-node!-let-fun2726 */
obj_t BGl_occurzd2nodez12zd2letzd2fun2726zc0zzast_occurz00(obj_t BgL_envz00_2150, obj_t BgL_nodez00_2151)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 145 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1153;
BgL_nodez00_1153 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2151); 
{ 
obj_t BgL_l2682z00_1157;
{ /* ./Ast/occur.scm 147 */
obj_t BgL_arg3270z00_1159;
BgL_arg3270z00_1159 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1153))->BgL_localsz00); 
BgL_l2682z00_1157 = BgL_arg3270z00_1159; 
BgL_forzd2each2683zd2_1158:
{ /* ./Ast/occur.scm 147 */
bool_t BgL_test3273z00_1160;
BgL_test3273z00_1160 = 
PAIRP(BgL_l2682z00_1157); 
if(BgL_test3273z00_1160)
{ /* ./Ast/occur.scm 147 */
{ /* ./Ast/occur.scm 148 */
obj_t BgL_localz00_1161;
BgL_localz00_1161 = 
CAR(BgL_l2682z00_1157); 
{ /* ./Ast/occur.scm 148 */
BgL_variablez00_bglt BgL_obj1114z00_1757;long BgL_val1113z00_1758;
BgL_obj1114z00_1757 = 
(BgL_variablez00_bglt)(BgL_localz00_1161); 
BgL_val1113z00_1758 = ((long)0); 
((((BgL_variablez00_bglt)CREF(BgL_obj1114z00_1757))->BgL_occurrencez00) = ((long)BgL_val1113z00_1758), BUNSPEC); } 
{ 
obj_t BgL_l2684z00_1162;
{ /* ./Ast/occur.scm 150 */
obj_t BgL_arg3276z00_1164;
{ /* ./Ast/occur.scm 150 */
BgL_sfunz00_bglt BgL_obj1367z00_1760;
{ /* ./Ast/occur.scm 150 */
BgL_valuez00_bglt BgL_auxz00_2537;
{ /* ./Ast/occur.scm 150 */
BgL_variablez00_bglt BgL_obj1100z00_1759;
BgL_obj1100z00_1759 = 
(BgL_variablez00_bglt)(BgL_localz00_1161); 
BgL_auxz00_2537 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1759))->BgL_valuez00); } 
BgL_obj1367z00_1760 = 
(BgL_sfunz00_bglt)(BgL_auxz00_2537); } 
BgL_arg3276z00_1164 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1760))->BgL_argsz00); } 
BgL_l2684z00_1162 = BgL_arg3276z00_1164; 
BgL_forzd2each2685zd2_1163:
{ /* ./Ast/occur.scm 149 */
bool_t BgL_test3282z00_1166;
BgL_test3282z00_1166 = 
PAIRP(BgL_l2684z00_1162); 
if(BgL_test3282z00_1166)
{ /* ./Ast/occur.scm 149 */
{ /* ./Ast/occur.scm 149 */
obj_t BgL_az00_1167;
BgL_az00_1167 = 
CAR(BgL_l2684z00_1162); 
{ /* ./Ast/occur.scm 149 */
BgL_variablez00_bglt BgL_obj1114z00_1763;long BgL_val1113z00_1764;
BgL_obj1114z00_1763 = 
(BgL_variablez00_bglt)(BgL_az00_1167); 
BgL_val1113z00_1764 = ((long)1); 
((((BgL_variablez00_bglt)CREF(BgL_obj1114z00_1763))->BgL_occurrencez00) = ((long)BgL_val1113z00_1764), BUNSPEC); } } 
{ /* ./Ast/occur.scm 149 */
obj_t BgL_arg3286z00_1168;
BgL_arg3286z00_1168 = 
CDR(BgL_l2684z00_1162); 
{ 
obj_t BgL_l2684z00_2548;
BgL_l2684z00_2548 = BgL_arg3286z00_1168; 
BgL_l2684z00_1162 = BgL_l2684z00_2548; 
goto BgL_forzd2each2685zd2_1163;} } }  else 
{ /* ./Ast/occur.scm 149 */((bool_t)1); } } } } } 
{ /* ./Ast/occur.scm 147 */
obj_t BgL_arg3292z00_1169;
BgL_arg3292z00_1169 = 
CDR(BgL_l2682z00_1157); 
{ 
obj_t BgL_l2682z00_2550;
BgL_l2682z00_2550 = BgL_arg3292z00_1169; 
BgL_l2682z00_1157 = BgL_l2682z00_2550; 
goto BgL_forzd2each2683zd2_1158;} } }  else 
{ /* ./Ast/occur.scm 147 */((bool_t)1); } } } } 
{ 
obj_t BgL_l2686z00_1170;
{ /* ./Ast/occur.scm 152 */
obj_t BgL_arg3297z00_1172;
BgL_arg3297z00_1172 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1153))->BgL_localsz00); 
BgL_l2686z00_1170 = BgL_arg3297z00_1172; 
BgL_forzd2each2687zd2_1171:
{ /* ./Ast/occur.scm 152 */
bool_t BgL_test3300z00_1173;
BgL_test3300z00_1173 = 
PAIRP(BgL_l2686z00_1170); 
if(BgL_test3300z00_1173)
{ /* ./Ast/occur.scm 152 */
{ /* ./Ast/occur.scm 153 */
obj_t BgL_localz00_1174;
BgL_localz00_1174 = 
CAR(BgL_l2686z00_1170); 
{ /* ./Ast/occur.scm 153 */
long BgL_oldz00_1175;
{ /* ./Ast/occur.scm 153 */
BgL_variablez00_bglt BgL_obj1112z00_1770;
BgL_obj1112z00_1770 = 
(BgL_variablez00_bglt)(BgL_localz00_1174); 
BgL_oldz00_1175 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1112z00_1770))->BgL_occurrencez00); } 
{ /* ./Ast/occur.scm 154 */
obj_t BgL_arg3302z00_1176;
{ /* ./Ast/occur.scm 154 */
BgL_sfunz00_bglt BgL_obj1370z00_1772;
{ /* ./Ast/occur.scm 154 */
BgL_valuez00_bglt BgL_auxz00_2557;
{ /* ./Ast/occur.scm 154 */
BgL_variablez00_bglt BgL_obj1100z00_1771;
BgL_obj1100z00_1771 = 
(BgL_variablez00_bglt)(BgL_localz00_1174); 
BgL_auxz00_2557 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1771))->BgL_valuez00); } 
BgL_obj1370z00_1772 = 
(BgL_sfunz00_bglt)(BgL_auxz00_2557); } 
BgL_arg3302z00_1176 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1772))->BgL_bodyz00); } 
{ /* ./Ast/occur.scm 154 */
BgL_nodez00_bglt BgL_nodez00_1773;
BgL_nodez00_1773 = 
(BgL_nodez00_bglt)(BgL_arg3302z00_1176); 
{ /* ./Ast/occur.scm 154 */
obj_t BgL_method2702z00_1774;
{ /* ./Ast/occur.scm 154 */
BgL_objectz00_bglt BgL_objz00_1775;
BgL_objz00_1775 = 
(BgL_objectz00_bglt)(BgL_nodez00_1773); 
{ /* ./Ast/occur.scm 154 */
long BgL_objzd2classzd2numz00_1776;
BgL_objzd2classzd2numz00_1776 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1775); 
{ /* ./Ast/occur.scm 154 */
obj_t BgL_arg2017z00_1777;
{ /* ./Ast/occur.scm 154 */
int BgL_auxz00_2565;
BgL_auxz00_2565 = 
(int)(((long)1)); 
BgL_arg2017z00_1777 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2565); } 
{ /* ./Ast/occur.scm 154 */
int BgL_offsetz00_1780;
BgL_offsetz00_1780 = 
(int)(BgL_objzd2classzd2numz00_1776); 
{ /* ./Ast/occur.scm 154 */
long BgL_offsetz00_1781;
{ /* ./Ast/occur.scm 154 */
long BgL_auxz00_2569;
BgL_auxz00_2569 = 
(long)(BgL_offsetz00_1780); 
BgL_offsetz00_1781 = 
(BgL_auxz00_2569-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 154 */
long BgL_modz00_1782;
{ /* ./Ast/occur.scm 154 */
int BgL_arg2028z00_1783;
BgL_arg2028z00_1783 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 154 */
long BgL_n2z00_1791;
BgL_n2z00_1791 = 
(long)(BgL_arg2028z00_1783); 
BgL_modz00_1782 = 
(BgL_offsetz00_1781/BgL_n2z00_1791); } } 
{ /* ./Ast/occur.scm 154 */
long BgL_restz00_1784;
{ /* ./Ast/occur.scm 154 */
int BgL_arg2024z00_1785;
BgL_arg2024z00_1785 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 154 */
long BgL_n2z00_1794;
BgL_n2z00_1794 = 
(long)(BgL_arg2024z00_1785); 
BgL_restz00_1784 = 
(BgL_offsetz00_1781%BgL_n2z00_1794); } } 
{ /* ./Ast/occur.scm 154 */

{ /* ./Ast/occur.scm 154 */
obj_t BgL_bucketz00_1786;
{ /* ./Ast/occur.scm 154 */
int BgL_kz00_1796;
BgL_kz00_1796 = 
(int)(BgL_modz00_1782); 
BgL_bucketz00_1786 = 
VECTOR_REF(BgL_arg2017z00_1777,BgL_kz00_1796); } 
{ /* ./Ast/occur.scm 154 */
int BgL_kz00_1798;
BgL_kz00_1798 = 
(int)(BgL_restz00_1784); 
BgL_method2702z00_1774 = 
VECTOR_REF(BgL_bucketz00_1786,BgL_kz00_1798); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1774)(BgL_method2702z00_1774, 
(obj_t)(BgL_nodez00_1773), BEOA); } } } 
{ /* ./Ast/occur.scm 155 */
BgL_variablez00_bglt BgL_obj1114z00_1799;long BgL_val1113z00_1800;
BgL_obj1114z00_1799 = 
(BgL_variablez00_bglt)(BgL_localz00_1174); 
BgL_val1113z00_1800 = BgL_oldz00_1175; 
((((BgL_variablez00_bglt)CREF(BgL_obj1114z00_1799))->BgL_occurrencez00) = ((long)BgL_val1113z00_1800), BUNSPEC); } } } 
{ /* ./Ast/occur.scm 152 */
obj_t BgL_arg3312z00_1178;
BgL_arg3312z00_1178 = 
CDR(BgL_l2686z00_1170); 
{ 
obj_t BgL_l2686z00_2588;
BgL_l2686z00_2588 = BgL_arg3312z00_1178; 
BgL_l2686z00_1170 = BgL_l2686z00_2588; 
goto BgL_forzd2each2687zd2_1171;} } }  else 
{ /* ./Ast/occur.scm 152 */((bool_t)1); } } } } 
{ /* ./Ast/occur.scm 157 */
BgL_nodez00_bglt BgL_arg3317z00_1179;
BgL_arg3317z00_1179 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1153))->BgL_bodyz00); 
{ /* ./Ast/occur.scm 157 */
obj_t BgL_method2702z00_1804;
{ /* ./Ast/occur.scm 157 */
BgL_objectz00_bglt BgL_objz00_1805;
BgL_objz00_1805 = 
(BgL_objectz00_bglt)(BgL_arg3317z00_1179); 
{ /* ./Ast/occur.scm 157 */
long BgL_objzd2classzd2numz00_1806;
BgL_objzd2classzd2numz00_1806 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1805); 
{ /* ./Ast/occur.scm 157 */
obj_t BgL_arg2017z00_1807;
{ /* ./Ast/occur.scm 157 */
int BgL_auxz00_2592;
BgL_auxz00_2592 = 
(int)(((long)1)); 
BgL_arg2017z00_1807 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2592); } 
{ /* ./Ast/occur.scm 157 */
int BgL_offsetz00_1810;
BgL_offsetz00_1810 = 
(int)(BgL_objzd2classzd2numz00_1806); 
{ /* ./Ast/occur.scm 157 */
long BgL_offsetz00_1811;
{ /* ./Ast/occur.scm 157 */
long BgL_auxz00_2596;
BgL_auxz00_2596 = 
(long)(BgL_offsetz00_1810); 
BgL_offsetz00_1811 = 
(BgL_auxz00_2596-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 157 */
long BgL_modz00_1812;
{ /* ./Ast/occur.scm 157 */
int BgL_arg2028z00_1813;
BgL_arg2028z00_1813 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 157 */
long BgL_n2z00_1821;
BgL_n2z00_1821 = 
(long)(BgL_arg2028z00_1813); 
BgL_modz00_1812 = 
(BgL_offsetz00_1811/BgL_n2z00_1821); } } 
{ /* ./Ast/occur.scm 157 */
long BgL_restz00_1814;
{ /* ./Ast/occur.scm 157 */
int BgL_arg2024z00_1815;
BgL_arg2024z00_1815 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 157 */
long BgL_n2z00_1824;
BgL_n2z00_1824 = 
(long)(BgL_arg2024z00_1815); 
BgL_restz00_1814 = 
(BgL_offsetz00_1811%BgL_n2z00_1824); } } 
{ /* ./Ast/occur.scm 157 */

{ /* ./Ast/occur.scm 157 */
obj_t BgL_bucketz00_1816;
{ /* ./Ast/occur.scm 157 */
int BgL_kz00_1826;
BgL_kz00_1826 = 
(int)(BgL_modz00_1812); 
BgL_bucketz00_1816 = 
VECTOR_REF(BgL_arg2017z00_1807,BgL_kz00_1826); } 
{ /* ./Ast/occur.scm 157 */
int BgL_kz00_1828;
BgL_kz00_1828 = 
(int)(BgL_restz00_1814); 
BgL_method2702z00_1804 = 
VECTOR_REF(BgL_bucketz00_1816,BgL_kz00_1828); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1804)(BgL_method2702z00_1804, 
(obj_t)(BgL_arg3317z00_1179), BEOA);} } } } 
}



/* occur-node!-select2724 */
obj_t BGl_occurzd2nodez12zd2select2724z12zzast_occurz00(obj_t BgL_envz00_2152, obj_t BgL_nodez00_2153)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 135 */
{ 
BgL_selectz00_bglt BgL_nodez00_1139;
{ /* ./Ast/occur.scm 136 */
bool_t BgL_auxz00_2613;
BgL_nodez00_1139 = 
(BgL_selectz00_bglt)(BgL_nodez00_2153); 
{ /* ./Ast/occur.scm 137 */
BgL_nodez00_bglt BgL_arg3245z00_1143;
BgL_arg3245z00_1143 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1139))->BgL_testz00); 
{ /* ./Ast/occur.scm 137 */
obj_t BgL_method2702z00_1698;
{ /* ./Ast/occur.scm 137 */
BgL_objectz00_bglt BgL_objz00_1699;
BgL_objz00_1699 = 
(BgL_objectz00_bglt)(BgL_arg3245z00_1143); 
{ /* ./Ast/occur.scm 137 */
long BgL_objzd2classzd2numz00_1700;
BgL_objzd2classzd2numz00_1700 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1699); 
{ /* ./Ast/occur.scm 137 */
obj_t BgL_arg2017z00_1701;
{ /* ./Ast/occur.scm 137 */
int BgL_auxz00_2617;
BgL_auxz00_2617 = 
(int)(((long)1)); 
BgL_arg2017z00_1701 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2617); } 
{ /* ./Ast/occur.scm 137 */
int BgL_offsetz00_1704;
BgL_offsetz00_1704 = 
(int)(BgL_objzd2classzd2numz00_1700); 
{ /* ./Ast/occur.scm 137 */
long BgL_offsetz00_1705;
{ /* ./Ast/occur.scm 137 */
long BgL_auxz00_2621;
BgL_auxz00_2621 = 
(long)(BgL_offsetz00_1704); 
BgL_offsetz00_1705 = 
(BgL_auxz00_2621-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 137 */
long BgL_modz00_1706;
{ /* ./Ast/occur.scm 137 */
int BgL_arg2028z00_1707;
BgL_arg2028z00_1707 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 137 */
long BgL_n2z00_1715;
BgL_n2z00_1715 = 
(long)(BgL_arg2028z00_1707); 
BgL_modz00_1706 = 
(BgL_offsetz00_1705/BgL_n2z00_1715); } } 
{ /* ./Ast/occur.scm 137 */
long BgL_restz00_1708;
{ /* ./Ast/occur.scm 137 */
int BgL_arg2024z00_1709;
BgL_arg2024z00_1709 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 137 */
long BgL_n2z00_1718;
BgL_n2z00_1718 = 
(long)(BgL_arg2024z00_1709); 
BgL_restz00_1708 = 
(BgL_offsetz00_1705%BgL_n2z00_1718); } } 
{ /* ./Ast/occur.scm 137 */

{ /* ./Ast/occur.scm 137 */
obj_t BgL_bucketz00_1710;
{ /* ./Ast/occur.scm 137 */
int BgL_kz00_1720;
BgL_kz00_1720 = 
(int)(BgL_modz00_1706); 
BgL_bucketz00_1710 = 
VECTOR_REF(BgL_arg2017z00_1701,BgL_kz00_1720); } 
{ /* ./Ast/occur.scm 137 */
int BgL_kz00_1722;
BgL_kz00_1722 = 
(int)(BgL_restz00_1708); 
BgL_method2702z00_1698 = 
VECTOR_REF(BgL_bucketz00_1710,BgL_kz00_1722); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1698)(BgL_method2702z00_1698, 
(obj_t)(BgL_arg3245z00_1143), BEOA); } } 
{ 
obj_t BgL_l2678z00_1144;
{ /* ./Ast/occur.scm 138 */
obj_t BgL_arg3249z00_1146;
BgL_arg3249z00_1146 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1139))->BgL_clausesz00); 
BgL_l2678z00_1144 = BgL_arg3249z00_1146; 
BgL_forzd2each2679zd2_1145:
{ /* ./Ast/occur.scm 138 */
bool_t BgL_test3252z00_1147;
BgL_test3252z00_1147 = 
PAIRP(BgL_l2678z00_1144); 
if(BgL_test3252z00_1147)
{ /* ./Ast/occur.scm 138 */
{ /* ./Ast/occur.scm 139 */
obj_t BgL_clausez00_1148;
BgL_clausez00_1148 = 
CAR(BgL_l2678z00_1144); 
{ /* ./Ast/occur.scm 139 */
obj_t BgL_arg3254z00_1149;
BgL_arg3254z00_1149 = 
CDR(BgL_clausez00_1148); 
{ /* ./Ast/occur.scm 139 */
BgL_nodez00_bglt BgL_nodez00_1727;
BgL_nodez00_1727 = 
(BgL_nodez00_bglt)(BgL_arg3254z00_1149); 
{ /* ./Ast/occur.scm 139 */
obj_t BgL_method2702z00_1728;
{ /* ./Ast/occur.scm 139 */
BgL_objectz00_bglt BgL_objz00_1729;
BgL_objz00_1729 = 
(BgL_objectz00_bglt)(BgL_nodez00_1727); 
{ /* ./Ast/occur.scm 139 */
long BgL_objzd2classzd2numz00_1730;
BgL_objzd2classzd2numz00_1730 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1729); 
{ /* ./Ast/occur.scm 139 */
obj_t BgL_arg2017z00_1731;
{ /* ./Ast/occur.scm 139 */
int BgL_auxz00_2645;
BgL_auxz00_2645 = 
(int)(((long)1)); 
BgL_arg2017z00_1731 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2645); } 
{ /* ./Ast/occur.scm 139 */
int BgL_offsetz00_1734;
BgL_offsetz00_1734 = 
(int)(BgL_objzd2classzd2numz00_1730); 
{ /* ./Ast/occur.scm 139 */
long BgL_offsetz00_1735;
{ /* ./Ast/occur.scm 139 */
long BgL_auxz00_2649;
BgL_auxz00_2649 = 
(long)(BgL_offsetz00_1734); 
BgL_offsetz00_1735 = 
(BgL_auxz00_2649-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 139 */
long BgL_modz00_1736;
{ /* ./Ast/occur.scm 139 */
int BgL_arg2028z00_1737;
BgL_arg2028z00_1737 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 139 */
long BgL_n2z00_1745;
BgL_n2z00_1745 = 
(long)(BgL_arg2028z00_1737); 
BgL_modz00_1736 = 
(BgL_offsetz00_1735/BgL_n2z00_1745); } } 
{ /* ./Ast/occur.scm 139 */
long BgL_restz00_1738;
{ /* ./Ast/occur.scm 139 */
int BgL_arg2024z00_1739;
BgL_arg2024z00_1739 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 139 */
long BgL_n2z00_1748;
BgL_n2z00_1748 = 
(long)(BgL_arg2024z00_1739); 
BgL_restz00_1738 = 
(BgL_offsetz00_1735%BgL_n2z00_1748); } } 
{ /* ./Ast/occur.scm 139 */

{ /* ./Ast/occur.scm 139 */
obj_t BgL_bucketz00_1740;
{ /* ./Ast/occur.scm 139 */
int BgL_kz00_1750;
BgL_kz00_1750 = 
(int)(BgL_modz00_1736); 
BgL_bucketz00_1740 = 
VECTOR_REF(BgL_arg2017z00_1731,BgL_kz00_1750); } 
{ /* ./Ast/occur.scm 139 */
int BgL_kz00_1752;
BgL_kz00_1752 = 
(int)(BgL_restz00_1738); 
BgL_method2702z00_1728 = 
VECTOR_REF(BgL_bucketz00_1740,BgL_kz00_1752); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1728)(BgL_method2702z00_1728, 
(obj_t)(BgL_nodez00_1727), BEOA); } } } } 
{ /* ./Ast/occur.scm 138 */
obj_t BgL_arg3259z00_1150;
BgL_arg3259z00_1150 = 
CDR(BgL_l2678z00_1144); 
{ 
obj_t BgL_l2678z00_2666;
BgL_l2678z00_2666 = BgL_arg3259z00_1150; 
BgL_l2678z00_1144 = BgL_l2678z00_2666; 
goto BgL_forzd2each2679zd2_1145;} } }  else 
{ /* ./Ast/occur.scm 138 */
BgL_auxz00_2613 = ((bool_t)1); } } } } 
return 
BBOOL(BgL_auxz00_2613);} } } 
}



/* occur-node!-fail2722 */
obj_t BGl_occurzd2nodez12zd2fail2722z12zzast_occurz00(obj_t BgL_envz00_2154, obj_t BgL_nodez00_2155)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 126 */
{ 
BgL_failz00_bglt BgL_nodez00_1130;
BgL_nodez00_1130 = 
(BgL_failz00_bglt)(BgL_nodez00_2155); 
{ /* ./Ast/occur.scm 128 */
BgL_nodez00_bglt BgL_arg3227z00_1134;
BgL_arg3227z00_1134 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1130))->BgL_procz00); 
{ /* ./Ast/occur.scm 128 */
obj_t BgL_method2702z00_1617;
{ /* ./Ast/occur.scm 128 */
BgL_objectz00_bglt BgL_objz00_1618;
BgL_objz00_1618 = 
(BgL_objectz00_bglt)(BgL_arg3227z00_1134); 
{ /* ./Ast/occur.scm 128 */
long BgL_objzd2classzd2numz00_1619;
BgL_objzd2classzd2numz00_1619 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1618); 
{ /* ./Ast/occur.scm 128 */
obj_t BgL_arg2017z00_1620;
{ /* ./Ast/occur.scm 128 */
int BgL_auxz00_2672;
BgL_auxz00_2672 = 
(int)(((long)1)); 
BgL_arg2017z00_1620 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2672); } 
{ /* ./Ast/occur.scm 128 */
int BgL_offsetz00_1623;
BgL_offsetz00_1623 = 
(int)(BgL_objzd2classzd2numz00_1619); 
{ /* ./Ast/occur.scm 128 */
long BgL_offsetz00_1624;
{ /* ./Ast/occur.scm 128 */
long BgL_auxz00_2676;
BgL_auxz00_2676 = 
(long)(BgL_offsetz00_1623); 
BgL_offsetz00_1624 = 
(BgL_auxz00_2676-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 128 */
long BgL_modz00_1625;
{ /* ./Ast/occur.scm 128 */
int BgL_arg2028z00_1626;
BgL_arg2028z00_1626 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 128 */
long BgL_n2z00_1634;
BgL_n2z00_1634 = 
(long)(BgL_arg2028z00_1626); 
BgL_modz00_1625 = 
(BgL_offsetz00_1624/BgL_n2z00_1634); } } 
{ /* ./Ast/occur.scm 128 */
long BgL_restz00_1627;
{ /* ./Ast/occur.scm 128 */
int BgL_arg2024z00_1628;
BgL_arg2024z00_1628 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 128 */
long BgL_n2z00_1637;
BgL_n2z00_1637 = 
(long)(BgL_arg2024z00_1628); 
BgL_restz00_1627 = 
(BgL_offsetz00_1624%BgL_n2z00_1637); } } 
{ /* ./Ast/occur.scm 128 */

{ /* ./Ast/occur.scm 128 */
obj_t BgL_bucketz00_1629;
{ /* ./Ast/occur.scm 128 */
int BgL_kz00_1639;
BgL_kz00_1639 = 
(int)(BgL_modz00_1625); 
BgL_bucketz00_1629 = 
VECTOR_REF(BgL_arg2017z00_1620,BgL_kz00_1639); } 
{ /* ./Ast/occur.scm 128 */
int BgL_kz00_1641;
BgL_kz00_1641 = 
(int)(BgL_restz00_1627); 
BgL_method2702z00_1617 = 
VECTOR_REF(BgL_bucketz00_1629,BgL_kz00_1641); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1617)(BgL_method2702z00_1617, 
(obj_t)(BgL_arg3227z00_1134), BEOA); } } 
{ /* ./Ast/occur.scm 129 */
BgL_nodez00_bglt BgL_arg3231z00_1135;
BgL_arg3231z00_1135 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1130))->BgL_msgz00); 
{ /* ./Ast/occur.scm 129 */
obj_t BgL_method2702z00_1644;
{ /* ./Ast/occur.scm 129 */
BgL_objectz00_bglt BgL_objz00_1645;
BgL_objz00_1645 = 
(BgL_objectz00_bglt)(BgL_arg3231z00_1135); 
{ /* ./Ast/occur.scm 129 */
long BgL_objzd2classzd2numz00_1646;
BgL_objzd2classzd2numz00_1646 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1645); 
{ /* ./Ast/occur.scm 129 */
obj_t BgL_arg2017z00_1647;
{ /* ./Ast/occur.scm 129 */
int BgL_auxz00_2695;
BgL_auxz00_2695 = 
(int)(((long)1)); 
BgL_arg2017z00_1647 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2695); } 
{ /* ./Ast/occur.scm 129 */
int BgL_offsetz00_1650;
BgL_offsetz00_1650 = 
(int)(BgL_objzd2classzd2numz00_1646); 
{ /* ./Ast/occur.scm 129 */
long BgL_offsetz00_1651;
{ /* ./Ast/occur.scm 129 */
long BgL_auxz00_2699;
BgL_auxz00_2699 = 
(long)(BgL_offsetz00_1650); 
BgL_offsetz00_1651 = 
(BgL_auxz00_2699-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 129 */
long BgL_modz00_1652;
{ /* ./Ast/occur.scm 129 */
int BgL_arg2028z00_1653;
BgL_arg2028z00_1653 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 129 */
long BgL_n2z00_1661;
BgL_n2z00_1661 = 
(long)(BgL_arg2028z00_1653); 
BgL_modz00_1652 = 
(BgL_offsetz00_1651/BgL_n2z00_1661); } } 
{ /* ./Ast/occur.scm 129 */
long BgL_restz00_1654;
{ /* ./Ast/occur.scm 129 */
int BgL_arg2024z00_1655;
BgL_arg2024z00_1655 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 129 */
long BgL_n2z00_1664;
BgL_n2z00_1664 = 
(long)(BgL_arg2024z00_1655); 
BgL_restz00_1654 = 
(BgL_offsetz00_1651%BgL_n2z00_1664); } } 
{ /* ./Ast/occur.scm 129 */

{ /* ./Ast/occur.scm 129 */
obj_t BgL_bucketz00_1656;
{ /* ./Ast/occur.scm 129 */
int BgL_kz00_1666;
BgL_kz00_1666 = 
(int)(BgL_modz00_1652); 
BgL_bucketz00_1656 = 
VECTOR_REF(BgL_arg2017z00_1647,BgL_kz00_1666); } 
{ /* ./Ast/occur.scm 129 */
int BgL_kz00_1668;
BgL_kz00_1668 = 
(int)(BgL_restz00_1654); 
BgL_method2702z00_1644 = 
VECTOR_REF(BgL_bucketz00_1656,BgL_kz00_1668); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1644)(BgL_method2702z00_1644, 
(obj_t)(BgL_arg3231z00_1135), BEOA); } } 
{ /* ./Ast/occur.scm 130 */
BgL_nodez00_bglt BgL_arg3235z00_1136;
BgL_arg3235z00_1136 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1130))->BgL_objz00); 
{ /* ./Ast/occur.scm 130 */
obj_t BgL_method2702z00_1671;
{ /* ./Ast/occur.scm 130 */
BgL_objectz00_bglt BgL_objz00_1672;
BgL_objz00_1672 = 
(BgL_objectz00_bglt)(BgL_arg3235z00_1136); 
{ /* ./Ast/occur.scm 130 */
long BgL_objzd2classzd2numz00_1673;
BgL_objzd2classzd2numz00_1673 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1672); 
{ /* ./Ast/occur.scm 130 */
obj_t BgL_arg2017z00_1674;
{ /* ./Ast/occur.scm 130 */
int BgL_auxz00_2718;
BgL_auxz00_2718 = 
(int)(((long)1)); 
BgL_arg2017z00_1674 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2718); } 
{ /* ./Ast/occur.scm 130 */
int BgL_offsetz00_1677;
BgL_offsetz00_1677 = 
(int)(BgL_objzd2classzd2numz00_1673); 
{ /* ./Ast/occur.scm 130 */
long BgL_offsetz00_1678;
{ /* ./Ast/occur.scm 130 */
long BgL_auxz00_2722;
BgL_auxz00_2722 = 
(long)(BgL_offsetz00_1677); 
BgL_offsetz00_1678 = 
(BgL_auxz00_2722-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 130 */
long BgL_modz00_1679;
{ /* ./Ast/occur.scm 130 */
int BgL_arg2028z00_1680;
BgL_arg2028z00_1680 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 130 */
long BgL_n2z00_1688;
BgL_n2z00_1688 = 
(long)(BgL_arg2028z00_1680); 
BgL_modz00_1679 = 
(BgL_offsetz00_1678/BgL_n2z00_1688); } } 
{ /* ./Ast/occur.scm 130 */
long BgL_restz00_1681;
{ /* ./Ast/occur.scm 130 */
int BgL_arg2024z00_1682;
BgL_arg2024z00_1682 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 130 */
long BgL_n2z00_1691;
BgL_n2z00_1691 = 
(long)(BgL_arg2024z00_1682); 
BgL_restz00_1681 = 
(BgL_offsetz00_1678%BgL_n2z00_1691); } } 
{ /* ./Ast/occur.scm 130 */

{ /* ./Ast/occur.scm 130 */
obj_t BgL_bucketz00_1683;
{ /* ./Ast/occur.scm 130 */
int BgL_kz00_1693;
BgL_kz00_1693 = 
(int)(BgL_modz00_1679); 
BgL_bucketz00_1683 = 
VECTOR_REF(BgL_arg2017z00_1674,BgL_kz00_1693); } 
{ /* ./Ast/occur.scm 130 */
int BgL_kz00_1695;
BgL_kz00_1695 = 
(int)(BgL_restz00_1681); 
BgL_method2702z00_1671 = 
VECTOR_REF(BgL_bucketz00_1683,BgL_kz00_1695); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1671)(BgL_method2702z00_1671, 
(obj_t)(BgL_arg3235z00_1136), BEOA);} } } } 
}



/* occur-node!-conditional2720 */
obj_t BGl_occurzd2nodez12zd2conditional2720z12zzast_occurz00(obj_t BgL_envz00_2156, obj_t BgL_nodez00_2157)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 117 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1121;
BgL_nodez00_1121 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2157); 
{ /* ./Ast/occur.scm 119 */
BgL_nodez00_bglt BgL_arg3208z00_1125;
BgL_arg3208z00_1125 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1121))->BgL_testz00); 
{ /* ./Ast/occur.scm 119 */
obj_t BgL_method2702z00_1536;
{ /* ./Ast/occur.scm 119 */
BgL_objectz00_bglt BgL_objz00_1537;
BgL_objz00_1537 = 
(BgL_objectz00_bglt)(BgL_arg3208z00_1125); 
{ /* ./Ast/occur.scm 119 */
long BgL_objzd2classzd2numz00_1538;
BgL_objzd2classzd2numz00_1538 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1537); 
{ /* ./Ast/occur.scm 119 */
obj_t BgL_arg2017z00_1539;
{ /* ./Ast/occur.scm 119 */
int BgL_auxz00_2742;
BgL_auxz00_2742 = 
(int)(((long)1)); 
BgL_arg2017z00_1539 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2742); } 
{ /* ./Ast/occur.scm 119 */
int BgL_offsetz00_1542;
BgL_offsetz00_1542 = 
(int)(BgL_objzd2classzd2numz00_1538); 
{ /* ./Ast/occur.scm 119 */
long BgL_offsetz00_1543;
{ /* ./Ast/occur.scm 119 */
long BgL_auxz00_2746;
BgL_auxz00_2746 = 
(long)(BgL_offsetz00_1542); 
BgL_offsetz00_1543 = 
(BgL_auxz00_2746-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 119 */
long BgL_modz00_1544;
{ /* ./Ast/occur.scm 119 */
int BgL_arg2028z00_1545;
BgL_arg2028z00_1545 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 119 */
long BgL_n2z00_1553;
BgL_n2z00_1553 = 
(long)(BgL_arg2028z00_1545); 
BgL_modz00_1544 = 
(BgL_offsetz00_1543/BgL_n2z00_1553); } } 
{ /* ./Ast/occur.scm 119 */
long BgL_restz00_1546;
{ /* ./Ast/occur.scm 119 */
int BgL_arg2024z00_1547;
BgL_arg2024z00_1547 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 119 */
long BgL_n2z00_1556;
BgL_n2z00_1556 = 
(long)(BgL_arg2024z00_1547); 
BgL_restz00_1546 = 
(BgL_offsetz00_1543%BgL_n2z00_1556); } } 
{ /* ./Ast/occur.scm 119 */

{ /* ./Ast/occur.scm 119 */
obj_t BgL_bucketz00_1548;
{ /* ./Ast/occur.scm 119 */
int BgL_kz00_1558;
BgL_kz00_1558 = 
(int)(BgL_modz00_1544); 
BgL_bucketz00_1548 = 
VECTOR_REF(BgL_arg2017z00_1539,BgL_kz00_1558); } 
{ /* ./Ast/occur.scm 119 */
int BgL_kz00_1560;
BgL_kz00_1560 = 
(int)(BgL_restz00_1546); 
BgL_method2702z00_1536 = 
VECTOR_REF(BgL_bucketz00_1548,BgL_kz00_1560); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1536)(BgL_method2702z00_1536, 
(obj_t)(BgL_arg3208z00_1125), BEOA); } } 
{ /* ./Ast/occur.scm 120 */
BgL_nodez00_bglt BgL_arg3213z00_1126;
BgL_arg3213z00_1126 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1121))->BgL_truez00); 
{ /* ./Ast/occur.scm 120 */
obj_t BgL_method2702z00_1563;
{ /* ./Ast/occur.scm 120 */
BgL_objectz00_bglt BgL_objz00_1564;
BgL_objz00_1564 = 
(BgL_objectz00_bglt)(BgL_arg3213z00_1126); 
{ /* ./Ast/occur.scm 120 */
long BgL_objzd2classzd2numz00_1565;
BgL_objzd2classzd2numz00_1565 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1564); 
{ /* ./Ast/occur.scm 120 */
obj_t BgL_arg2017z00_1566;
{ /* ./Ast/occur.scm 120 */
int BgL_auxz00_2765;
BgL_auxz00_2765 = 
(int)(((long)1)); 
BgL_arg2017z00_1566 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2765); } 
{ /* ./Ast/occur.scm 120 */
int BgL_offsetz00_1569;
BgL_offsetz00_1569 = 
(int)(BgL_objzd2classzd2numz00_1565); 
{ /* ./Ast/occur.scm 120 */
long BgL_offsetz00_1570;
{ /* ./Ast/occur.scm 120 */
long BgL_auxz00_2769;
BgL_auxz00_2769 = 
(long)(BgL_offsetz00_1569); 
BgL_offsetz00_1570 = 
(BgL_auxz00_2769-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 120 */
long BgL_modz00_1571;
{ /* ./Ast/occur.scm 120 */
int BgL_arg2028z00_1572;
BgL_arg2028z00_1572 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 120 */
long BgL_n2z00_1580;
BgL_n2z00_1580 = 
(long)(BgL_arg2028z00_1572); 
BgL_modz00_1571 = 
(BgL_offsetz00_1570/BgL_n2z00_1580); } } 
{ /* ./Ast/occur.scm 120 */
long BgL_restz00_1573;
{ /* ./Ast/occur.scm 120 */
int BgL_arg2024z00_1574;
BgL_arg2024z00_1574 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 120 */
long BgL_n2z00_1583;
BgL_n2z00_1583 = 
(long)(BgL_arg2024z00_1574); 
BgL_restz00_1573 = 
(BgL_offsetz00_1570%BgL_n2z00_1583); } } 
{ /* ./Ast/occur.scm 120 */

{ /* ./Ast/occur.scm 120 */
obj_t BgL_bucketz00_1575;
{ /* ./Ast/occur.scm 120 */
int BgL_kz00_1585;
BgL_kz00_1585 = 
(int)(BgL_modz00_1571); 
BgL_bucketz00_1575 = 
VECTOR_REF(BgL_arg2017z00_1566,BgL_kz00_1585); } 
{ /* ./Ast/occur.scm 120 */
int BgL_kz00_1587;
BgL_kz00_1587 = 
(int)(BgL_restz00_1573); 
BgL_method2702z00_1563 = 
VECTOR_REF(BgL_bucketz00_1575,BgL_kz00_1587); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1563)(BgL_method2702z00_1563, 
(obj_t)(BgL_arg3213z00_1126), BEOA); } } 
{ /* ./Ast/occur.scm 121 */
BgL_nodez00_bglt BgL_arg3217z00_1127;
BgL_arg3217z00_1127 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1121))->BgL_falsez00); 
{ /* ./Ast/occur.scm 121 */
obj_t BgL_method2702z00_1590;
{ /* ./Ast/occur.scm 121 */
BgL_objectz00_bglt BgL_objz00_1591;
BgL_objz00_1591 = 
(BgL_objectz00_bglt)(BgL_arg3217z00_1127); 
{ /* ./Ast/occur.scm 121 */
long BgL_objzd2classzd2numz00_1592;
BgL_objzd2classzd2numz00_1592 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1591); 
{ /* ./Ast/occur.scm 121 */
obj_t BgL_arg2017z00_1593;
{ /* ./Ast/occur.scm 121 */
int BgL_auxz00_2788;
BgL_auxz00_2788 = 
(int)(((long)1)); 
BgL_arg2017z00_1593 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2788); } 
{ /* ./Ast/occur.scm 121 */
int BgL_offsetz00_1596;
BgL_offsetz00_1596 = 
(int)(BgL_objzd2classzd2numz00_1592); 
{ /* ./Ast/occur.scm 121 */
long BgL_offsetz00_1597;
{ /* ./Ast/occur.scm 121 */
long BgL_auxz00_2792;
BgL_auxz00_2792 = 
(long)(BgL_offsetz00_1596); 
BgL_offsetz00_1597 = 
(BgL_auxz00_2792-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 121 */
long BgL_modz00_1598;
{ /* ./Ast/occur.scm 121 */
int BgL_arg2028z00_1599;
BgL_arg2028z00_1599 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 121 */
long BgL_n2z00_1607;
BgL_n2z00_1607 = 
(long)(BgL_arg2028z00_1599); 
BgL_modz00_1598 = 
(BgL_offsetz00_1597/BgL_n2z00_1607); } } 
{ /* ./Ast/occur.scm 121 */
long BgL_restz00_1600;
{ /* ./Ast/occur.scm 121 */
int BgL_arg2024z00_1601;
BgL_arg2024z00_1601 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 121 */
long BgL_n2z00_1610;
BgL_n2z00_1610 = 
(long)(BgL_arg2024z00_1601); 
BgL_restz00_1600 = 
(BgL_offsetz00_1597%BgL_n2z00_1610); } } 
{ /* ./Ast/occur.scm 121 */

{ /* ./Ast/occur.scm 121 */
obj_t BgL_bucketz00_1602;
{ /* ./Ast/occur.scm 121 */
int BgL_kz00_1612;
BgL_kz00_1612 = 
(int)(BgL_modz00_1598); 
BgL_bucketz00_1602 = 
VECTOR_REF(BgL_arg2017z00_1593,BgL_kz00_1612); } 
{ /* ./Ast/occur.scm 121 */
int BgL_kz00_1614;
BgL_kz00_1614 = 
(int)(BgL_restz00_1600); 
BgL_method2702z00_1590 = 
VECTOR_REF(BgL_bucketz00_1602,BgL_kz00_1614); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1590)(BgL_method2702z00_1590, 
(obj_t)(BgL_arg3217z00_1127), BEOA);} } } } 
}



/* occur-node!-setq2718 */
obj_t BGl_occurzd2nodez12zd2setq2718z12zzast_occurz00(obj_t BgL_envz00_2158, obj_t BgL_nodez00_2159)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 109 */
{ 
BgL_setqz00_bglt BgL_nodez00_1113;
BgL_nodez00_1113 = 
(BgL_setqz00_bglt)(BgL_nodez00_2159); 
{ /* ./Ast/occur.scm 111 */
BgL_varz00_bglt BgL_arg3194z00_1117;
BgL_arg3194z00_1117 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1113))->BgL_varz00); 
{ /* ./Ast/occur.scm 111 */
BgL_nodez00_bglt BgL_nodez00_1481;
BgL_nodez00_1481 = 
(BgL_nodez00_bglt)(BgL_arg3194z00_1117); 
{ /* ./Ast/occur.scm 111 */
obj_t BgL_method2702z00_1482;
{ /* ./Ast/occur.scm 111 */
BgL_objectz00_bglt BgL_objz00_1483;
BgL_objz00_1483 = 
(BgL_objectz00_bglt)(BgL_nodez00_1481); 
{ /* ./Ast/occur.scm 111 */
long BgL_objzd2classzd2numz00_1484;
BgL_objzd2classzd2numz00_1484 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1483); 
{ /* ./Ast/occur.scm 111 */
obj_t BgL_arg2017z00_1485;
{ /* ./Ast/occur.scm 111 */
int BgL_auxz00_2813;
BgL_auxz00_2813 = 
(int)(((long)1)); 
BgL_arg2017z00_1485 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2813); } 
{ /* ./Ast/occur.scm 111 */
int BgL_offsetz00_1488;
BgL_offsetz00_1488 = 
(int)(BgL_objzd2classzd2numz00_1484); 
{ /* ./Ast/occur.scm 111 */
long BgL_offsetz00_1489;
{ /* ./Ast/occur.scm 111 */
long BgL_auxz00_2817;
BgL_auxz00_2817 = 
(long)(BgL_offsetz00_1488); 
BgL_offsetz00_1489 = 
(BgL_auxz00_2817-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 111 */
long BgL_modz00_1490;
{ /* ./Ast/occur.scm 111 */
int BgL_arg2028z00_1491;
BgL_arg2028z00_1491 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 111 */
long BgL_n2z00_1499;
BgL_n2z00_1499 = 
(long)(BgL_arg2028z00_1491); 
BgL_modz00_1490 = 
(BgL_offsetz00_1489/BgL_n2z00_1499); } } 
{ /* ./Ast/occur.scm 111 */
long BgL_restz00_1492;
{ /* ./Ast/occur.scm 111 */
int BgL_arg2024z00_1493;
BgL_arg2024z00_1493 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 111 */
long BgL_n2z00_1502;
BgL_n2z00_1502 = 
(long)(BgL_arg2024z00_1493); 
BgL_restz00_1492 = 
(BgL_offsetz00_1489%BgL_n2z00_1502); } } 
{ /* ./Ast/occur.scm 111 */

{ /* ./Ast/occur.scm 111 */
obj_t BgL_bucketz00_1494;
{ /* ./Ast/occur.scm 111 */
int BgL_kz00_1504;
BgL_kz00_1504 = 
(int)(BgL_modz00_1490); 
BgL_bucketz00_1494 = 
VECTOR_REF(BgL_arg2017z00_1485,BgL_kz00_1504); } 
{ /* ./Ast/occur.scm 111 */
int BgL_kz00_1506;
BgL_kz00_1506 = 
(int)(BgL_restz00_1492); 
BgL_method2702z00_1482 = 
VECTOR_REF(BgL_bucketz00_1494,BgL_kz00_1506); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1482)(BgL_method2702z00_1482, 
(obj_t)(BgL_nodez00_1481), BEOA); } } } 
{ /* ./Ast/occur.scm 112 */
BgL_nodez00_bglt BgL_arg3198z00_1118;
BgL_arg3198z00_1118 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1113))->BgL_valuez00); 
{ /* ./Ast/occur.scm 112 */
obj_t BgL_method2702z00_1509;
{ /* ./Ast/occur.scm 112 */
BgL_objectz00_bglt BgL_objz00_1510;
BgL_objz00_1510 = 
(BgL_objectz00_bglt)(BgL_arg3198z00_1118); 
{ /* ./Ast/occur.scm 112 */
long BgL_objzd2classzd2numz00_1511;
BgL_objzd2classzd2numz00_1511 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1510); 
{ /* ./Ast/occur.scm 112 */
obj_t BgL_arg2017z00_1512;
{ /* ./Ast/occur.scm 112 */
int BgL_auxz00_2836;
BgL_auxz00_2836 = 
(int)(((long)1)); 
BgL_arg2017z00_1512 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2836); } 
{ /* ./Ast/occur.scm 112 */
int BgL_offsetz00_1515;
BgL_offsetz00_1515 = 
(int)(BgL_objzd2classzd2numz00_1511); 
{ /* ./Ast/occur.scm 112 */
long BgL_offsetz00_1516;
{ /* ./Ast/occur.scm 112 */
long BgL_auxz00_2840;
BgL_auxz00_2840 = 
(long)(BgL_offsetz00_1515); 
BgL_offsetz00_1516 = 
(BgL_auxz00_2840-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 112 */
long BgL_modz00_1517;
{ /* ./Ast/occur.scm 112 */
int BgL_arg2028z00_1518;
BgL_arg2028z00_1518 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 112 */
long BgL_n2z00_1526;
BgL_n2z00_1526 = 
(long)(BgL_arg2028z00_1518); 
BgL_modz00_1517 = 
(BgL_offsetz00_1516/BgL_n2z00_1526); } } 
{ /* ./Ast/occur.scm 112 */
long BgL_restz00_1519;
{ /* ./Ast/occur.scm 112 */
int BgL_arg2024z00_1520;
BgL_arg2024z00_1520 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 112 */
long BgL_n2z00_1529;
BgL_n2z00_1529 = 
(long)(BgL_arg2024z00_1520); 
BgL_restz00_1519 = 
(BgL_offsetz00_1516%BgL_n2z00_1529); } } 
{ /* ./Ast/occur.scm 112 */

{ /* ./Ast/occur.scm 112 */
obj_t BgL_bucketz00_1521;
{ /* ./Ast/occur.scm 112 */
int BgL_kz00_1531;
BgL_kz00_1531 = 
(int)(BgL_modz00_1517); 
BgL_bucketz00_1521 = 
VECTOR_REF(BgL_arg2017z00_1512,BgL_kz00_1531); } 
{ /* ./Ast/occur.scm 112 */
int BgL_kz00_1533;
BgL_kz00_1533 = 
(int)(BgL_restz00_1519); 
BgL_method2702z00_1509 = 
VECTOR_REF(BgL_bucketz00_1521,BgL_kz00_1533); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1509)(BgL_method2702z00_1509, 
(obj_t)(BgL_arg3198z00_1118), BEOA);} } } } 
}



/* occur-node!-cast2716 */
obj_t BGl_occurzd2nodez12zd2cast2716z12zzast_occurz00(obj_t BgL_envz00_2160, obj_t BgL_nodez00_2161)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 103 */
{ 
BgL_castz00_bglt BgL_nodez00_1107;
BgL_nodez00_1107 = 
(BgL_castz00_bglt)(BgL_nodez00_2161); 
{ /* ./Ast/occur.scm 104 */
BgL_nodez00_bglt BgL_arg3184z00_1452;
BgL_arg3184z00_1452 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1107))->BgL_argz00); 
{ /* ./Ast/occur.scm 104 */
obj_t BgL_method2702z00_1455;
{ /* ./Ast/occur.scm 104 */
BgL_objectz00_bglt BgL_objz00_1456;
BgL_objz00_1456 = 
(BgL_objectz00_bglt)(BgL_arg3184z00_1452); 
{ /* ./Ast/occur.scm 104 */
long BgL_objzd2classzd2numz00_1457;
BgL_objzd2classzd2numz00_1457 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1456); 
{ /* ./Ast/occur.scm 104 */
obj_t BgL_arg2017z00_1458;
{ /* ./Ast/occur.scm 104 */
int BgL_auxz00_2860;
BgL_auxz00_2860 = 
(int)(((long)1)); 
BgL_arg2017z00_1458 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2860); } 
{ /* ./Ast/occur.scm 104 */
int BgL_offsetz00_1461;
BgL_offsetz00_1461 = 
(int)(BgL_objzd2classzd2numz00_1457); 
{ /* ./Ast/occur.scm 104 */
long BgL_offsetz00_1462;
{ /* ./Ast/occur.scm 104 */
long BgL_auxz00_2864;
BgL_auxz00_2864 = 
(long)(BgL_offsetz00_1461); 
BgL_offsetz00_1462 = 
(BgL_auxz00_2864-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 104 */
long BgL_modz00_1463;
{ /* ./Ast/occur.scm 104 */
int BgL_arg2028z00_1464;
BgL_arg2028z00_1464 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 104 */
long BgL_n2z00_1472;
BgL_n2z00_1472 = 
(long)(BgL_arg2028z00_1464); 
BgL_modz00_1463 = 
(BgL_offsetz00_1462/BgL_n2z00_1472); } } 
{ /* ./Ast/occur.scm 104 */
long BgL_restz00_1465;
{ /* ./Ast/occur.scm 104 */
int BgL_arg2024z00_1466;
BgL_arg2024z00_1466 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 104 */
long BgL_n2z00_1475;
BgL_n2z00_1475 = 
(long)(BgL_arg2024z00_1466); 
BgL_restz00_1465 = 
(BgL_offsetz00_1462%BgL_n2z00_1475); } } 
{ /* ./Ast/occur.scm 104 */

{ /* ./Ast/occur.scm 104 */
obj_t BgL_bucketz00_1467;
{ /* ./Ast/occur.scm 104 */
int BgL_kz00_1477;
BgL_kz00_1477 = 
(int)(BgL_modz00_1463); 
BgL_bucketz00_1467 = 
VECTOR_REF(BgL_arg2017z00_1458,BgL_kz00_1477); } 
{ /* ./Ast/occur.scm 104 */
int BgL_kz00_1479;
BgL_kz00_1479 = 
(int)(BgL_restz00_1465); 
BgL_method2702z00_1455 = 
VECTOR_REF(BgL_bucketz00_1467,BgL_kz00_1479); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1455)(BgL_method2702z00_1455, 
(obj_t)(BgL_arg3184z00_1452), BEOA);} } } } 
}



/* occur-node!-extern2714 */
obj_t BGl_occurzd2nodez12zd2extern2714z12zzast_occurz00(obj_t BgL_envz00_2162, obj_t BgL_nodez00_2163)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 97 */
{ 
BgL_externz00_bglt BgL_nodez00_1101;
{ /* ./Ast/occur.scm 98 */
bool_t BgL_auxz00_2881;
BgL_nodez00_1101 = 
(BgL_externz00_bglt)(BgL_nodez00_2163); 
{ /* ./Ast/occur.scm 98 */
obj_t BgL_arg3174z00_1450;
BgL_arg3174z00_1450 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1101))->BgL_exprza2za2); 
BgL_auxz00_2881 = 
BGl_occurzd2nodeza2z12z62zzast_occurz00(BgL_arg3174z00_1450); } 
return 
BBOOL(BgL_auxz00_2881);} } } 
}



/* occur-node!-funcall2712 */
obj_t BGl_occurzd2nodez12zd2funcall2712z12zzast_occurz00(obj_t BgL_envz00_2164, obj_t BgL_nodez00_2165)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 89 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1093;
{ /* ./Ast/occur.scm 90 */
bool_t BgL_auxz00_2886;
BgL_nodez00_1093 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2165); 
{ /* ./Ast/occur.scm 91 */
BgL_nodez00_bglt BgL_arg3160z00_1097;
BgL_arg3160z00_1097 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1093))->BgL_funz00); 
{ /* ./Ast/occur.scm 91 */
obj_t BgL_method2702z00_1424;
{ /* ./Ast/occur.scm 91 */
BgL_objectz00_bglt BgL_objz00_1425;
BgL_objz00_1425 = 
(BgL_objectz00_bglt)(BgL_arg3160z00_1097); 
{ /* ./Ast/occur.scm 91 */
long BgL_objzd2classzd2numz00_1426;
BgL_objzd2classzd2numz00_1426 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1425); 
{ /* ./Ast/occur.scm 91 */
obj_t BgL_arg2017z00_1427;
{ /* ./Ast/occur.scm 91 */
int BgL_auxz00_2890;
BgL_auxz00_2890 = 
(int)(((long)1)); 
BgL_arg2017z00_1427 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2890); } 
{ /* ./Ast/occur.scm 91 */
int BgL_offsetz00_1430;
BgL_offsetz00_1430 = 
(int)(BgL_objzd2classzd2numz00_1426); 
{ /* ./Ast/occur.scm 91 */
long BgL_offsetz00_1431;
{ /* ./Ast/occur.scm 91 */
long BgL_auxz00_2894;
BgL_auxz00_2894 = 
(long)(BgL_offsetz00_1430); 
BgL_offsetz00_1431 = 
(BgL_auxz00_2894-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 91 */
long BgL_modz00_1432;
{ /* ./Ast/occur.scm 91 */
int BgL_arg2028z00_1433;
BgL_arg2028z00_1433 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 91 */
long BgL_n2z00_1441;
BgL_n2z00_1441 = 
(long)(BgL_arg2028z00_1433); 
BgL_modz00_1432 = 
(BgL_offsetz00_1431/BgL_n2z00_1441); } } 
{ /* ./Ast/occur.scm 91 */
long BgL_restz00_1434;
{ /* ./Ast/occur.scm 91 */
int BgL_arg2024z00_1435;
BgL_arg2024z00_1435 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 91 */
long BgL_n2z00_1444;
BgL_n2z00_1444 = 
(long)(BgL_arg2024z00_1435); 
BgL_restz00_1434 = 
(BgL_offsetz00_1431%BgL_n2z00_1444); } } 
{ /* ./Ast/occur.scm 91 */

{ /* ./Ast/occur.scm 91 */
obj_t BgL_bucketz00_1436;
{ /* ./Ast/occur.scm 91 */
int BgL_kz00_1446;
BgL_kz00_1446 = 
(int)(BgL_modz00_1432); 
BgL_bucketz00_1436 = 
VECTOR_REF(BgL_arg2017z00_1427,BgL_kz00_1446); } 
{ /* ./Ast/occur.scm 91 */
int BgL_kz00_1448;
BgL_kz00_1448 = 
(int)(BgL_restz00_1434); 
BgL_method2702z00_1424 = 
VECTOR_REF(BgL_bucketz00_1436,BgL_kz00_1448); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1424)(BgL_method2702z00_1424, 
(obj_t)(BgL_arg3160z00_1097), BEOA); } } 
{ /* ./Ast/occur.scm 92 */
obj_t BgL_arg3164z00_1098;
BgL_arg3164z00_1098 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1093))->BgL_argsz00); 
BgL_auxz00_2886 = 
BGl_occurzd2nodeza2z12z62zzast_occurz00(BgL_arg3164z00_1098); } 
return 
BBOOL(BgL_auxz00_2886);} } } 
}



/* occur-node!-app-ly2710 */
obj_t BGl_occurzd2nodez12zd2appzd2ly2710zc0zzast_occurz00(obj_t BgL_envz00_2166, obj_t BgL_nodez00_2167)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 81 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1085;
BgL_nodez00_1085 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2167); 
{ /* ./Ast/occur.scm 83 */
BgL_nodez00_bglt BgL_arg3146z00_1089;
BgL_arg3146z00_1089 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1085))->BgL_funz00); 
{ /* ./Ast/occur.scm 83 */
obj_t BgL_method2702z00_1370;
{ /* ./Ast/occur.scm 83 */
BgL_objectz00_bglt BgL_objz00_1371;
BgL_objz00_1371 = 
(BgL_objectz00_bglt)(BgL_arg3146z00_1089); 
{ /* ./Ast/occur.scm 83 */
long BgL_objzd2classzd2numz00_1372;
BgL_objzd2classzd2numz00_1372 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1371); 
{ /* ./Ast/occur.scm 83 */
obj_t BgL_arg2017z00_1373;
{ /* ./Ast/occur.scm 83 */
int BgL_auxz00_2917;
BgL_auxz00_2917 = 
(int)(((long)1)); 
BgL_arg2017z00_1373 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2917); } 
{ /* ./Ast/occur.scm 83 */
int BgL_offsetz00_1376;
BgL_offsetz00_1376 = 
(int)(BgL_objzd2classzd2numz00_1372); 
{ /* ./Ast/occur.scm 83 */
long BgL_offsetz00_1377;
{ /* ./Ast/occur.scm 83 */
long BgL_auxz00_2921;
BgL_auxz00_2921 = 
(long)(BgL_offsetz00_1376); 
BgL_offsetz00_1377 = 
(BgL_auxz00_2921-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 83 */
long BgL_modz00_1378;
{ /* ./Ast/occur.scm 83 */
int BgL_arg2028z00_1379;
BgL_arg2028z00_1379 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 83 */
long BgL_n2z00_1387;
BgL_n2z00_1387 = 
(long)(BgL_arg2028z00_1379); 
BgL_modz00_1378 = 
(BgL_offsetz00_1377/BgL_n2z00_1387); } } 
{ /* ./Ast/occur.scm 83 */
long BgL_restz00_1380;
{ /* ./Ast/occur.scm 83 */
int BgL_arg2024z00_1381;
BgL_arg2024z00_1381 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 83 */
long BgL_n2z00_1390;
BgL_n2z00_1390 = 
(long)(BgL_arg2024z00_1381); 
BgL_restz00_1380 = 
(BgL_offsetz00_1377%BgL_n2z00_1390); } } 
{ /* ./Ast/occur.scm 83 */

{ /* ./Ast/occur.scm 83 */
obj_t BgL_bucketz00_1382;
{ /* ./Ast/occur.scm 83 */
int BgL_kz00_1392;
BgL_kz00_1392 = 
(int)(BgL_modz00_1378); 
BgL_bucketz00_1382 = 
VECTOR_REF(BgL_arg2017z00_1373,BgL_kz00_1392); } 
{ /* ./Ast/occur.scm 83 */
int BgL_kz00_1394;
BgL_kz00_1394 = 
(int)(BgL_restz00_1380); 
BgL_method2702z00_1370 = 
VECTOR_REF(BgL_bucketz00_1382,BgL_kz00_1394); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1370)(BgL_method2702z00_1370, 
(obj_t)(BgL_arg3146z00_1089), BEOA); } } 
{ /* ./Ast/occur.scm 84 */
BgL_nodez00_bglt BgL_arg3150z00_1090;
BgL_arg3150z00_1090 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1085))->BgL_argz00); 
{ /* ./Ast/occur.scm 84 */
obj_t BgL_method2702z00_1397;
{ /* ./Ast/occur.scm 84 */
BgL_objectz00_bglt BgL_objz00_1398;
BgL_objz00_1398 = 
(BgL_objectz00_bglt)(BgL_arg3150z00_1090); 
{ /* ./Ast/occur.scm 84 */
long BgL_objzd2classzd2numz00_1399;
BgL_objzd2classzd2numz00_1399 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1398); 
{ /* ./Ast/occur.scm 84 */
obj_t BgL_arg2017z00_1400;
{ /* ./Ast/occur.scm 84 */
int BgL_auxz00_2940;
BgL_auxz00_2940 = 
(int)(((long)1)); 
BgL_arg2017z00_1400 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2940); } 
{ /* ./Ast/occur.scm 84 */
int BgL_offsetz00_1403;
BgL_offsetz00_1403 = 
(int)(BgL_objzd2classzd2numz00_1399); 
{ /* ./Ast/occur.scm 84 */
long BgL_offsetz00_1404;
{ /* ./Ast/occur.scm 84 */
long BgL_auxz00_2944;
BgL_auxz00_2944 = 
(long)(BgL_offsetz00_1403); 
BgL_offsetz00_1404 = 
(BgL_auxz00_2944-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 84 */
long BgL_modz00_1405;
{ /* ./Ast/occur.scm 84 */
int BgL_arg2028z00_1406;
BgL_arg2028z00_1406 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 84 */
long BgL_n2z00_1414;
BgL_n2z00_1414 = 
(long)(BgL_arg2028z00_1406); 
BgL_modz00_1405 = 
(BgL_offsetz00_1404/BgL_n2z00_1414); } } 
{ /* ./Ast/occur.scm 84 */
long BgL_restz00_1407;
{ /* ./Ast/occur.scm 84 */
int BgL_arg2024z00_1408;
BgL_arg2024z00_1408 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 84 */
long BgL_n2z00_1417;
BgL_n2z00_1417 = 
(long)(BgL_arg2024z00_1408); 
BgL_restz00_1407 = 
(BgL_offsetz00_1404%BgL_n2z00_1417); } } 
{ /* ./Ast/occur.scm 84 */

{ /* ./Ast/occur.scm 84 */
obj_t BgL_bucketz00_1409;
{ /* ./Ast/occur.scm 84 */
int BgL_kz00_1419;
BgL_kz00_1419 = 
(int)(BgL_modz00_1405); 
BgL_bucketz00_1409 = 
VECTOR_REF(BgL_arg2017z00_1400,BgL_kz00_1419); } 
{ /* ./Ast/occur.scm 84 */
int BgL_kz00_1421;
BgL_kz00_1421 = 
(int)(BgL_restz00_1407); 
BgL_method2702z00_1397 = 
VECTOR_REF(BgL_bucketz00_1409,BgL_kz00_1421); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_1397)(BgL_method2702z00_1397, 
(obj_t)(BgL_arg3150z00_1090), BEOA);} } } } 
}



/* occur-node!-app2708 */
obj_t BGl_occurzd2nodez12zd2app2708z12zzast_occurz00(obj_t BgL_envz00_2168, obj_t BgL_nodez00_2169)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 73 */
{ 
BgL_appz00_bglt BgL_nodez00_1077;
{ /* ./Ast/occur.scm 74 */
bool_t BgL_auxz00_2961;
BgL_nodez00_1077 = 
(BgL_appz00_bglt)(BgL_nodez00_2169); 
{ /* ./Ast/occur.scm 75 */
BgL_varz00_bglt BgL_arg3132z00_1081;
BgL_arg3132z00_1081 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1077))->BgL_funz00); 
{ /* ./Ast/occur.scm 75 */
BgL_nodez00_bglt BgL_nodez00_1341;
BgL_nodez00_1341 = 
(BgL_nodez00_bglt)(BgL_arg3132z00_1081); 
{ /* ./Ast/occur.scm 75 */
obj_t BgL_method2702z00_1342;
{ /* ./Ast/occur.scm 75 */
BgL_objectz00_bglt BgL_objz00_1343;
BgL_objz00_1343 = 
(BgL_objectz00_bglt)(BgL_nodez00_1341); 
{ /* ./Ast/occur.scm 75 */
long BgL_objzd2classzd2numz00_1344;
BgL_objzd2classzd2numz00_1344 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1343); 
{ /* ./Ast/occur.scm 75 */
obj_t BgL_arg2017z00_1345;
{ /* ./Ast/occur.scm 75 */
int BgL_auxz00_2966;
BgL_auxz00_2966 = 
(int)(((long)1)); 
BgL_arg2017z00_1345 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_2966); } 
{ /* ./Ast/occur.scm 75 */
int BgL_offsetz00_1348;
BgL_offsetz00_1348 = 
(int)(BgL_objzd2classzd2numz00_1344); 
{ /* ./Ast/occur.scm 75 */
long BgL_offsetz00_1349;
{ /* ./Ast/occur.scm 75 */
long BgL_auxz00_2970;
BgL_auxz00_2970 = 
(long)(BgL_offsetz00_1348); 
BgL_offsetz00_1349 = 
(BgL_auxz00_2970-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 75 */
long BgL_modz00_1350;
{ /* ./Ast/occur.scm 75 */
int BgL_arg2028z00_1351;
BgL_arg2028z00_1351 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 75 */
long BgL_n2z00_1359;
BgL_n2z00_1359 = 
(long)(BgL_arg2028z00_1351); 
BgL_modz00_1350 = 
(BgL_offsetz00_1349/BgL_n2z00_1359); } } 
{ /* ./Ast/occur.scm 75 */
long BgL_restz00_1352;
{ /* ./Ast/occur.scm 75 */
int BgL_arg2024z00_1353;
BgL_arg2024z00_1353 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 75 */
long BgL_n2z00_1362;
BgL_n2z00_1362 = 
(long)(BgL_arg2024z00_1353); 
BgL_restz00_1352 = 
(BgL_offsetz00_1349%BgL_n2z00_1362); } } 
{ /* ./Ast/occur.scm 75 */

{ /* ./Ast/occur.scm 75 */
obj_t BgL_bucketz00_1354;
{ /* ./Ast/occur.scm 75 */
int BgL_kz00_1364;
BgL_kz00_1364 = 
(int)(BgL_modz00_1350); 
BgL_bucketz00_1354 = 
VECTOR_REF(BgL_arg2017z00_1345,BgL_kz00_1364); } 
{ /* ./Ast/occur.scm 75 */
int BgL_kz00_1366;
BgL_kz00_1366 = 
(int)(BgL_restz00_1352); 
BgL_method2702z00_1342 = 
VECTOR_REF(BgL_bucketz00_1354,BgL_kz00_1366); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1342)(BgL_method2702z00_1342, 
(obj_t)(BgL_nodez00_1341), BEOA); } } } 
{ /* ./Ast/occur.scm 76 */
obj_t BgL_arg3136z00_1082;
BgL_arg3136z00_1082 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1077))->BgL_argsz00); 
BgL_auxz00_2961 = 
BGl_occurzd2nodeza2z12z62zzast_occurz00(BgL_arg3136z00_1082); } 
return 
BBOOL(BgL_auxz00_2961);} } } 
}



/* occur-node!-sequence2706 */
obj_t BGl_occurzd2nodez12zd2sequence2706z12zzast_occurz00(obj_t BgL_envz00_2170, obj_t BgL_nodez00_2171)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 67 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1071;
{ /* ./Ast/occur.scm 68 */
bool_t BgL_auxz00_2990;
BgL_nodez00_1071 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2171); 
{ /* ./Ast/occur.scm 68 */
obj_t BgL_arg3122z00_1338;
BgL_arg3122z00_1338 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1071))->BgL_nodesz00); 
BgL_auxz00_2990 = 
BGl_occurzd2nodeza2z12z62zzast_occurz00(BgL_arg3122z00_1338); } 
return 
BBOOL(BgL_auxz00_2990);} } } 
}



/* occur-node!-var2704 */
obj_t BGl_occurzd2nodez12zd2var2704z12zzast_occurz00(obj_t BgL_envz00_2172, obj_t BgL_nodez00_2173)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 56 */
{ 
BgL_varz00_bglt BgL_nodez00_1056;
BgL_nodez00_1056 = 
(BgL_varz00_bglt)(BgL_nodez00_2173); 
{ /* ./Ast/occur.scm 57 */
BgL_variablez00_bglt BgL_vz00_1059;
BgL_vz00_1059 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1056))->BgL_variablez00); 
{ /* ./Ast/occur.scm 58 */
BgL_valuez00_bglt BgL_valuez00_1060;
BgL_valuez00_1060 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1059))->BgL_valuez00); 
{ /* ./Ast/occur.scm 59 */
bool_t BgL_test3091z00_1061;
{ /* ./Ast/occur.scm 59 */
bool_t BgL_test3097z00_1063;
{ /* ./Ast/occur.scm 59 */
obj_t BgL_obj1519z00_1303;
BgL_obj1519z00_1303 = 
(obj_t)(BgL_valuez00_1060); 
BgL_test3097z00_1063 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1519z00_1303, BGl_scnstz00zzast_varz00); } 
if(BgL_test3097z00_1063)
{ /* ./Ast/occur.scm 59 */
obj_t BgL_arg3099z00_1064;
{ /* ./Ast/occur.scm 59 */
BgL_scnstz00_bglt BgL_obj1500z00_1304;
BgL_obj1500z00_1304 = 
(BgL_scnstz00_bglt)(BgL_valuez00_1060); 
BgL_arg3099z00_1064 = 
(((BgL_scnstz00_bglt)CREF(BgL_obj1500z00_1304))->BgL_nodez00); } 
BgL_test3091z00_1061 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg3099z00_1064, BGl_nodez00zzast_nodez00); }  else 
{ /* ./Ast/occur.scm 59 */
BgL_test3091z00_1061 = ((bool_t)0); } } 
if(BgL_test3091z00_1061)
{ /* ./Ast/occur.scm 60 */
obj_t BgL_arg3094z00_1062;
{ /* ./Ast/occur.scm 60 */
BgL_scnstz00_bglt BgL_obj1500z00_1306;
BgL_obj1500z00_1306 = 
(BgL_scnstz00_bglt)(BgL_valuez00_1060); 
BgL_arg3094z00_1062 = 
(((BgL_scnstz00_bglt)CREF(BgL_obj1500z00_1306))->BgL_nodez00); } 
{ /* ./Ast/occur.scm 60 */
BgL_nodez00_bglt BgL_nodez00_1307;
BgL_nodez00_1307 = 
(BgL_nodez00_bglt)(BgL_arg3094z00_1062); 
{ /* ./Ast/occur.scm 60 */
obj_t BgL_method2702z00_1308;
{ /* ./Ast/occur.scm 60 */
BgL_objectz00_bglt BgL_objz00_1309;
BgL_objz00_1309 = 
(BgL_objectz00_bglt)(BgL_nodez00_1307); 
{ /* ./Ast/occur.scm 60 */
long BgL_objzd2classzd2numz00_1310;
BgL_objzd2classzd2numz00_1310 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1309); 
{ /* ./Ast/occur.scm 60 */
obj_t BgL_arg2017z00_1311;
{ /* ./Ast/occur.scm 60 */
int BgL_auxz00_3009;
BgL_auxz00_3009 = 
(int)(((long)1)); 
BgL_arg2017z00_1311 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_3009); } 
{ /* ./Ast/occur.scm 60 */
int BgL_offsetz00_1314;
BgL_offsetz00_1314 = 
(int)(BgL_objzd2classzd2numz00_1310); 
{ /* ./Ast/occur.scm 60 */
long BgL_offsetz00_1315;
{ /* ./Ast/occur.scm 60 */
long BgL_auxz00_3013;
BgL_auxz00_3013 = 
(long)(BgL_offsetz00_1314); 
BgL_offsetz00_1315 = 
(BgL_auxz00_3013-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 60 */
long BgL_modz00_1316;
{ /* ./Ast/occur.scm 60 */
int BgL_arg2028z00_1317;
BgL_arg2028z00_1317 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 60 */
long BgL_n2z00_1325;
BgL_n2z00_1325 = 
(long)(BgL_arg2028z00_1317); 
BgL_modz00_1316 = 
(BgL_offsetz00_1315/BgL_n2z00_1325); } } 
{ /* ./Ast/occur.scm 60 */
long BgL_restz00_1318;
{ /* ./Ast/occur.scm 60 */
int BgL_arg2024z00_1319;
BgL_arg2024z00_1319 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 60 */
long BgL_n2z00_1328;
BgL_n2z00_1328 = 
(long)(BgL_arg2024z00_1319); 
BgL_restz00_1318 = 
(BgL_offsetz00_1315%BgL_n2z00_1328); } } 
{ /* ./Ast/occur.scm 60 */

{ /* ./Ast/occur.scm 60 */
obj_t BgL_bucketz00_1320;
{ /* ./Ast/occur.scm 60 */
int BgL_kz00_1330;
BgL_kz00_1330 = 
(int)(BgL_modz00_1316); 
BgL_bucketz00_1320 = 
VECTOR_REF(BgL_arg2017z00_1311,BgL_kz00_1330); } 
{ /* ./Ast/occur.scm 60 */
int BgL_kz00_1332;
BgL_kz00_1332 = 
(int)(BgL_restz00_1318); 
BgL_method2702z00_1308 = 
VECTOR_REF(BgL_bucketz00_1320,BgL_kz00_1332); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2702z00_1308)(BgL_method2702z00_1308, 
(obj_t)(BgL_nodez00_1307), BEOA); } } }  else 
{ /* ./Ast/occur.scm 59 */BFALSE; } } } 
{ /* ./Ast/occur.scm 61 */
bool_t BgL_test3104z00_1065;
{ /* ./Ast/occur.scm 61 */
obj_t BgL_auxz00_3029;
BgL_auxz00_3029 = 
(obj_t)(BgL_vz00_1059); 
BgL_test3104z00_1065 = 
(BgL_auxz00_3029==BGl_za2globalza2z00zzast_occurz00); } 
if(BgL_test3104z00_1065)
{ /* ./Ast/occur.scm 61 */
return BFALSE;}  else 
{ /* ./Ast/occur.scm 62 */
long BgL_arg3106z00_1066;
{ /* ./Ast/occur.scm 62 */
long BgL_auxz00_3033;
BgL_auxz00_3033 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1059))->BgL_occurrencez00); 
BgL_arg3106z00_1066 = 
(BgL_auxz00_3033+((long)1)); } 
{ /* ./Ast/occur.scm 62 */
BgL_variablez00_bglt BgL_obj1114z00_1336;long BgL_val1113z00_1337;
BgL_obj1114z00_1336 = BgL_vz00_1059; 
BgL_val1113z00_1337 = BgL_arg3106z00_1066; 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1114z00_1336))->BgL_occurrencez00) = ((long)BgL_val1113z00_1337), BUNSPEC);} } } } } } 
}



/* occur-node! */
obj_t BGl_occurzd2nodez12zc0zzast_occurz00(BgL_nodez00_bglt BgL_nodez00_4)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 50 */
{ /* ./Ast/occur.scm 50 */
obj_t BgL_method2702z00_2085;
{ /* ./Ast/occur.scm 50 */
BgL_objectz00_bglt BgL_objz00_2086;
BgL_objz00_2086 = 
(BgL_objectz00_bglt)(BgL_nodez00_4); 
{ /* ./Ast/occur.scm 50 */
long BgL_objzd2classzd2numz00_2087;
BgL_objzd2classzd2numz00_2087 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2086); 
{ /* ./Ast/occur.scm 50 */
obj_t BgL_arg2017z00_2088;
{ /* ./Ast/occur.scm 50 */
int BgL_auxz00_3040;
BgL_auxz00_3040 = 
(int)(((long)1)); 
BgL_arg2017z00_2088 = 
PROCEDURE_REF(BGl_occurzd2nodez12zd2envz12zzast_occurz00, BgL_auxz00_3040); } 
{ /* ./Ast/occur.scm 50 */
int BgL_offsetz00_2091;
BgL_offsetz00_2091 = 
(int)(BgL_objzd2classzd2numz00_2087); 
{ /* ./Ast/occur.scm 50 */
long BgL_offsetz00_2092;
{ /* ./Ast/occur.scm 50 */
long BgL_auxz00_3044;
BgL_auxz00_3044 = 
(long)(BgL_offsetz00_2091); 
BgL_offsetz00_2092 = 
(BgL_auxz00_3044-OBJECT_TYPE); } 
{ /* ./Ast/occur.scm 50 */
long BgL_modz00_2093;
{ /* ./Ast/occur.scm 50 */
int BgL_arg2028z00_2094;
BgL_arg2028z00_2094 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 50 */
long BgL_n2z00_2102;
BgL_n2z00_2102 = 
(long)(BgL_arg2028z00_2094); 
BgL_modz00_2093 = 
(BgL_offsetz00_2092/BgL_n2z00_2102); } } 
{ /* ./Ast/occur.scm 50 */
long BgL_restz00_2095;
{ /* ./Ast/occur.scm 50 */
int BgL_arg2024z00_2096;
BgL_arg2024z00_2096 = 
(int)(((long)8)); 
{ /* ./Ast/occur.scm 50 */
long BgL_n2z00_2105;
BgL_n2z00_2105 = 
(long)(BgL_arg2024z00_2096); 
BgL_restz00_2095 = 
(BgL_offsetz00_2092%BgL_n2z00_2105); } } 
{ /* ./Ast/occur.scm 50 */

{ /* ./Ast/occur.scm 50 */
obj_t BgL_bucketz00_2097;
{ /* ./Ast/occur.scm 50 */
int BgL_kz00_2107;
BgL_kz00_2107 = 
(int)(BgL_modz00_2093); 
BgL_bucketz00_2097 = 
VECTOR_REF(BgL_arg2017z00_2088,BgL_kz00_2107); } 
{ /* ./Ast/occur.scm 50 */
int BgL_kz00_2109;
BgL_kz00_2109 = 
(int)(BgL_restz00_2095); 
BgL_method2702z00_2085 = 
VECTOR_REF(BgL_bucketz00_2097,BgL_kz00_2109); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2702z00_2085)(BgL_method2702z00_2085, 
(obj_t)(BgL_nodez00_4), BEOA);} } 
}



/* _occur-node!3495 */
obj_t BGl__occurzd2nodez123495zc0zzast_occurz00(obj_t BgL_envz00_2118, obj_t BgL_nodez00_2119)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 50 */
return 
BGl_occurzd2nodez12zc0zzast_occurz00(
(BgL_nodez00_bglt)(BgL_nodez00_2119));} 
}



/* _occur-node!-default2700 */
obj_t BGl__occurzd2nodez12zd2default2700z12zzast_occurz00(obj_t BgL_envz00_2174, obj_t BgL_nodez00_2175)
{ AN_OBJECT;
{ /* ./Ast/occur.scm 14 */
{ /* ./Ast/occur.scm 51 */
obj_t BgL_res3960z00_2184;
BgL_res3960z00_2184 = 
CNST_TABLE_REF(((long)0)); 
return BgL_res3960z00_2184;} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzast_occurz00()
{ AN_OBJECT;
{ /* ./Ast/occur.scm 14 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "ast_occur"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "ast_occur"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "ast_occur"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "ast_occur"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "ast_occur"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "ast_occur"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "ast_occur"); 
return 
BGl_modulezd2initializa7ationz75zzast_localz00(((long)28959), "ast_occur");} 
}

