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

typedef struct BgL_ccompz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_producerz00;
   obj_t BgL_consumerz00;
   obj_t BgL_finaliza7erza7;
} *BgL_ccompz00_bglt;


extern obj_t BGl_idzd2ofzd2idz00zzast_identz00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzast_findzd2gdefszd2();
static obj_t BGl_zc3anonymousza32803ze3z83zzast_findzd2gdefszd2(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl__tozd2bezd2definez124044z12zzast_findzd2gdefszd2(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32808ze3z83zzast_findzd2gdefszd2(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__checkzd2tozd2bezd2definezd2zzast_findzd2gdefszd2(obj_t);
static obj_t BGl_zc3anonymousza32809ze3z83zzast_findzd2gdefszd2(obj_t, obj_t, obj_t, obj_t);
static bool_t BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern long BGl_arityz00zztools_argsz00(obj_t);
extern obj_t BGl_dssslzd2defaultedzd2formalzf3zf3zztools_dssslz00(obj_t);
extern obj_t BGl_dssslzd2defaultzd2formalz00zztools_dssslz00(obj_t);
static obj_t BGl_za2gdefszd2listza2zd2zzast_findzd2gdefszd2 = BUNSPEC;
static obj_t BGl_bindzd2globalzd2defz12z12zzast_findzd2gdefszd2(obj_t, obj_t);
extern obj_t BGl_za2moduleza2z00zzmodule_modulez00;
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
BGL_IMPORT obj_t BGl_putpropz12z12zz__r4_symbols_6_4z00(obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2locationzd2zztools_locationz00(obj_t);
static obj_t BGl_findzd21zd2mutationsz12z12zzast_findzd2gdefszd2(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzast_findzd2gdefszd2();
static obj_t BGl_za2allzd2definedzd2idza2z00zzast_findzd2gdefszd2 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_findzd2globalzd2defsz00zzast_findzd2gdefszd2(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzast_findzd2gdefszd2();
static obj_t BGl_toplevelzd2initzd2zzast_findzd2gdefszd2();
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzast_findzd2gdefszd2(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_modulezd2initializa7ationz75zzast_identz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_dssslz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_argsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
extern obj_t BGl_userzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_rempropz12z12zz__r4_symbols_6_4z00(obj_t, obj_t);
static obj_t BGl_pushzd2argszd2zzast_findzd2gdefszd2(obj_t, obj_t, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_tozd2bezd2definez12z12zzast_findzd2gdefszd2(BgL_globalz00_bglt);
static obj_t BGl_defszd2ze3listz31zzast_findzd2gdefszd2();
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_za2tozd2bezd2defineza2z00zzast_findzd2gdefszd2 = BUNSPEC;
BGL_IMPORT obj_t BGl_getpropz00zz__r4_symbols_6_4z00(obj_t, obj_t);
static obj_t BGl_loopz00zzast_findzd2gdefszd2(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t create_struct(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_checkzd2tozd2bezd2definezd2zzast_findzd2gdefszd2();
static obj_t BGl_definezd2globalzd2zzast_findzd2gdefszd2(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzast_findzd2gdefszd2 = BUNSPEC;
static obj_t BGl__findzd2globalzd2defsz00zzast_findzd2gdefszd2(obj_t, obj_t);
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
extern obj_t BGl_parsezd2idzd2zzast_identz00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzast_findzd2gdefszd2();
static obj_t BGl_za2gdefzd2keyza2zd2zzast_findzd2gdefszd2 = BUNSPEC;
extern obj_t BGl_dssslzd2namedzd2constantzf3zf3zztools_dssslz00(obj_t);
static obj_t __cnst[ 25 ] ;


DEFINE_STATIC_PROCEDURE( BGl_proc4110z00zzast_findzd2gdefszd2, BgL_bgl_za7c3anonymousza7a32803za7e3za783za7za7ast_findza7d2gdefsza7d24155z00, BGl_zc3anonymousza32803ze3z83zzast_findzd2gdefszd2, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4109z00zzast_findzd2gdefszd2, BgL_bgl_defineza7d2globalza7d2za7za7ast_findza7d2gdefsza7d24156z00, BGl_definezd2globalzd2zzast_findzd2gdefszd2, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4111z00zzast_findzd2gdefszd2, BgL_bgl_za7c3anonymousza7a32809za7e3za783za7za7ast_findza7d2gdefsza7d24157z00, BGl_zc3anonymousza32809ze3z83zzast_findzd2gdefszd2, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4112z00zzast_findzd2gdefszd2, BgL_bgl_za7c3anonymousza7a32808za7e3za783za7za7ast_findza7d2gdefsza7d24158z00, BGl_zc3anonymousza32808ze3z83zzast_findzd2gdefszd2, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2globalzd2defszd2envzd2zzast_findzd2gdefszd2, BgL_bgl__findza7d2globalza7d2defsza700za7za7ast_findza7d2gdefsza7d24159za7, BGl__findzd2globalzd2defsz00zzast_findzd2gdefszd2, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_tozd2bezd2definez12zd2envzc0zzast_findzd2gdefszd2, BgL_bgl__toza7d2beza7d2defineza7124044za712za7za7ast_findza7d2gdefsza7d24160z00, BGl__tozd2bezd2definez124044z12zzast_findzd2gdefszd2, 0L, 1 );
DEFINE_STRING( BGl_string4123z00zzast_findzd2gdefszd2, BgL_bgl_string4123za700za7za7ast_findza7d2gdefsza7d24161za7, "if case apply bind-exit labels letrec let set! assert quote lambda free-pragma pragma write @ nothing done define-method define-generic define-inline define begin read def find-gdefs ", 183 );
DEFINE_STRING( BGl_string4122z00zzast_findzd2gdefszd2, BgL_bgl_string4122za700za7za7ast_findza7d2gdefsza7d24162za7, "and `.' notation", 16 );
DEFINE_STRING( BGl_string4121z00zzast_findzd2gdefszd2, BgL_bgl_string4121za700za7za7ast_findza7d2gdefsza7d24163za7, "Can't use both DSSSL named constant", 35 );
DEFINE_STRING( BGl_string4120z00zzast_findzd2gdefszd2, BgL_bgl_string4120za700za7za7ast_findza7d2gdefsza7d24164za7, "symbol expected", 15 );
DEFINE_STRING( BGl_string4119z00zzast_findzd2gdefszd2, BgL_bgl_string4119za700za7za7ast_findza7d2gdefsza7d24165za7, "symbol or named constant expected", 33 );
DEFINE_STRING( BGl_string4118z00zzast_findzd2gdefszd2, BgL_bgl_string4118za700za7za7ast_findza7d2gdefsza7d24166za7, "Illegal formal parameter", 24 );
DEFINE_STRING( BGl_string4117z00zzast_findzd2gdefszd2, BgL_bgl_string4117za700za7za7ast_findza7d2gdefsza7d24167za7, "Illegal `define-generic' form", 29 );
DEFINE_STRING( BGl_string4116z00zzast_findzd2gdefszd2, BgL_bgl_string4116za700za7za7ast_findza7d2gdefsza7d24168za7, "Illegal `define-inline' form", 28 );
DEFINE_STRING( BGl_string4115z00zzast_findzd2gdefszd2, BgL_bgl_string4115za700za7za7ast_findza7d2gdefsza7d24169za7, "Illegal `lambda' form", 21 );
DEFINE_STRING( BGl_string4114z00zzast_findzd2gdefszd2, BgL_bgl_string4114za700za7za7ast_findza7d2gdefsza7d24170za7, "lambda", 6 );
DEFINE_STRING( BGl_string4113z00zzast_findzd2gdefszd2, BgL_bgl_string4113za700za7za7ast_findza7d2gdefsza7d24171za7, "Illegal duplicated definition", 29 );
DEFINE_STRING( BGl_string4108z00zzast_findzd2gdefszd2, BgL_bgl_string4108za700za7za7ast_findza7d2gdefsza7d24172za7, "Can't find global definition", 28 );
DEFINE_EXPORT_PROCEDURE( BGl_checkzd2tozd2bezd2definezd2envz00zzast_findzd2gdefszd2, BgL_bgl__checkza7d2toza7d2beza7d2defineza7d2za7za7ast_findza7d2gdefsza7d24173z00, BGl__checkzd2tozd2bezd2definezd2zzast_findzd2gdefszd2, 0L, 0 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzast_findzd2gdefszd2(long BgL_checksumz00_2057, char * BgL_fromz00_2058)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzast_findzd2gdefszd2))
{ 
BGl_requirezd2initializa7ationz75zzast_findzd2gdefszd2 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzast_findzd2gdefszd2(); 
BGl_cnstzd2initzd2zzast_findzd2gdefszd2(); 
BGl_importedzd2moduleszd2initz00zzast_findzd2gdefszd2(); 
BGl_toplevelzd2initzd2zzast_findzd2gdefszd2(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzast_findzd2gdefszd2()
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 23 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "ast_find-gdefs"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzast_findzd2gdefszd2()
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 23 */
{ /* ./Ast/find-gdefs.scm 23 */
obj_t BgL_cportz00_2034;
BgL_cportz00_2034 = 
open_input_string(BGl_string4123z00zzast_findzd2gdefszd2); 
{ 
long BgL_iz00_2035;
BgL_iz00_2035 = ((long)24); 
BgL_loopz00_2036:
{ /* ./Ast/find-gdefs.scm 23 */
bool_t BgL_test4125z00_2037;
BgL_test4125z00_2037 = 
(BgL_iz00_2035==((long)-1)); 
if(BgL_test4125z00_2037)
{ /* ./Ast/find-gdefs.scm 23 */
return BUNSPEC;}  else 
{ /* ./Ast/find-gdefs.scm 23 */
{ /* ./Ast/find-gdefs.scm 23 */
obj_t BgL_arg4127z00_2038;
{ /* ./Ast/find-gdefs.scm 23 */
obj_t BgL_list4130z00_2039;
BgL_list4130z00_2039 = 
MAKE_PAIR(BgL_cportz00_2034, BNIL); 
BgL_arg4127z00_2038 = 
BGl_readz00zz__readerz00(BgL_list4130z00_2039); } 
{ /* ./Ast/find-gdefs.scm 23 */
int BgL_auxz00_2075;
BgL_auxz00_2075 = 
(int)(BgL_iz00_2035); 
CNST_TABLE_SET(BgL_auxz00_2075, BgL_arg4127z00_2038); } } 
{ /* ./Ast/find-gdefs.scm 23 */
int BgL_auxz00_2040;
{ /* ./Ast/find-gdefs.scm 23 */
long BgL_auxz00_2078;
BgL_auxz00_2078 = 
(BgL_iz00_2035-((long)1)); 
BgL_auxz00_2040 = 
(int)(BgL_auxz00_2078); } 
{ 
long BgL_iz00_2081;
BgL_iz00_2081 = 
(long)(BgL_auxz00_2040); 
BgL_iz00_2035 = BgL_iz00_2081; 
goto BgL_loopz00_2036;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzast_findzd2gdefszd2()
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 23 */
BGl_za2tozd2bezd2defineza2z00zzast_findzd2gdefszd2 = BNIL; 
BGl_za2gdefzd2keyza2zd2zzast_findzd2gdefszd2 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)0)), BEOA); 
BGl_za2gdefszd2listza2zd2zzast_findzd2gdefszd2 = BNIL; 
return ( 
BGl_za2allzd2definedzd2idza2z00zzast_findzd2gdefszd2 = BNIL, BUNSPEC) ;} 
}



/* to-be-define! */
BGL_EXPORTED_DEF obj_t BGl_tozd2bezd2definez12z12zzast_findzd2gdefszd2(BgL_globalz00_bglt BgL_globalz00_15)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 53 */
{ /* ./Ast/find-gdefs.scm 54 */
obj_t BgL_auxz00_2086;
BgL_auxz00_2086 = 
(obj_t)(BgL_globalz00_15); 
return ( 
BGl_za2tozd2bezd2defineza2z00zzast_findzd2gdefszd2 = 
MAKE_PAIR(BgL_auxz00_2086, BGl_za2tozd2bezd2defineza2z00zzast_findzd2gdefszd2), BUNSPEC) ;} } 
}



/* _to-be-define!4044 */
obj_t BGl__tozd2bezd2definez124044z12zzast_findzd2gdefszd2(obj_t BgL_envz00_2006, obj_t BgL_globalz00_2007)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 53 */
return 
BGl_tozd2bezd2definez12z12zzast_findzd2gdefszd2(
(BgL_globalz00_bglt)(BgL_globalz00_2007));} 
}



/* check-to-be-define */
BGL_EXPORTED_DEF obj_t BGl_checkzd2tozd2bezd2definezd2zzast_findzd2gdefszd2()
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 62 */
{ 
obj_t BgL_l2682z00_704;
BgL_l2682z00_704 = BGl_za2tozd2bezd2defineza2z00zzast_findzd2gdefszd2; 
BgL_forzd2each2683zd2_705:
{ /* ./Ast/find-gdefs.scm 63 */
bool_t BgL_test2737z00_706;
BgL_test2737z00_706 = 
PAIRP(BgL_l2682z00_704); 
if(BgL_test2737z00_706)
{ /* ./Ast/find-gdefs.scm 63 */
{ /* ./Ast/find-gdefs.scm 64 */
obj_t BgL_globalz00_707;
BgL_globalz00_707 = 
CAR(BgL_l2682z00_704); 
{ /* ./Ast/find-gdefs.scm 64 */
obj_t BgL_defz00_708;
{ /* ./Ast/find-gdefs.scm 64 */
obj_t BgL_auxz00_2094;
{ /* ./Ast/find-gdefs.scm 64 */
BgL_variablez00_bglt BgL_obj1093z00_1626;
BgL_obj1093z00_1626 = 
(BgL_variablez00_bglt)(BgL_globalz00_707); 
BgL_auxz00_2094 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1626))->BgL_idz00); } 
BgL_defz00_708 = 
BGl_getpropz00zz__r4_symbols_6_4z00(BgL_auxz00_2094, BGl_za2gdefzd2keyza2zd2zzast_findzd2gdefszd2); } 
{ /* ./Ast/find-gdefs.scm 65 */
bool_t BgL_test2738z00_709;
if(
STRUCTP(BgL_defz00_708))
{ /* ./Ast/find-gdefs.scm 65 */
obj_t BgL_auxz00_2102;obj_t BgL_auxz00_2100;
BgL_auxz00_2102 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2100 = 
STRUCT_KEY(BgL_defz00_708); 
BgL_test2738z00_709 = 
(BgL_auxz00_2100==BgL_auxz00_2102); }  else 
{ /* ./Ast/find-gdefs.scm 65 */
BgL_test2738z00_709 = ((bool_t)0); } 
if(BgL_test2738z00_709)
{ /* ./Ast/find-gdefs.scm 65 */BFALSE; }  else 
{ /* ./Ast/find-gdefs.scm 66 */
obj_t BgL_arg2740z00_710;obj_t BgL_arg2742z00_712;
BgL_arg2740z00_710 = 
BGl_shapez00zztools_shapez00(BgL_globalz00_707); 
{ /* ./Ast/find-gdefs.scm 68 */
obj_t BgL_arg2749z00_715;
{ /* ./Ast/find-gdefs.scm 68 */
BgL_globalz00_bglt BgL_obj1183z00_1634;
BgL_obj1183z00_1634 = 
(BgL_globalz00_bglt)(BgL_globalz00_707); 
BgL_arg2749z00_715 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1183z00_1634))->BgL_srcz00); } 
BgL_arg2742z00_712 = 
BGl_shapez00zztools_shapez00(BgL_arg2749z00_715); } 
{ /* ./Ast/find-gdefs.scm 66 */
obj_t BgL_list2745z00_714;
BgL_list2745z00_714 = 
MAKE_PAIR(BNIL, BNIL); 
BGl_userzd2errorzd2zztools_errorz00(BgL_arg2740z00_710, BGl_string4108z00zzast_findzd2gdefszd2, BgL_arg2742z00_712, BgL_list2745z00_714); } } } } } 
{ /* ./Ast/find-gdefs.scm 63 */
obj_t BgL_arg2759z00_717;
BgL_arg2759z00_717 = 
CDR(BgL_l2682z00_704); 
{ 
obj_t BgL_l2682z00_2113;
BgL_l2682z00_2113 = BgL_arg2759z00_717; 
BgL_l2682z00_704 = BgL_l2682z00_2113; 
goto BgL_forzd2each2683zd2_705;} } }  else 
{ /* ./Ast/find-gdefs.scm 63 */((bool_t)1); } } } 
{ 
obj_t BgL_l2684z00_718;
BgL_l2684z00_718 = BGl_za2allzd2definedzd2idza2z00zzast_findzd2gdefszd2; 
BgL_forzd2each2685zd2_719:
{ /* ./Ast/find-gdefs.scm 72 */
bool_t BgL_test2764z00_720;
BgL_test2764z00_720 = 
PAIRP(BgL_l2684z00_718); 
if(BgL_test2764z00_720)
{ /* ./Ast/find-gdefs.scm 72 */
{ /* ./Ast/find-gdefs.scm 72 */
obj_t BgL_idz00_721;
BgL_idz00_721 = 
CAR(BgL_l2684z00_718); 
BGl_rempropz12z12zz__r4_symbols_6_4z00(BgL_idz00_721, BGl_za2gdefzd2keyza2zd2zzast_findzd2gdefszd2); } 
{ /* ./Ast/find-gdefs.scm 72 */
obj_t BgL_arg2768z00_722;
BgL_arg2768z00_722 = 
CDR(BgL_l2684z00_718); 
{ 
obj_t BgL_l2684z00_2119;
BgL_l2684z00_2119 = BgL_arg2768z00_722; 
BgL_l2684z00_718 = BgL_l2684z00_2119; 
goto BgL_forzd2each2685zd2_719;} } }  else 
{ /* ./Ast/find-gdefs.scm 72 */((bool_t)1); } } } 
BGl_za2allzd2definedzd2idza2z00zzast_findzd2gdefszd2 = BNIL; 
return ( 
BGl_za2tozd2bezd2defineza2z00zzast_findzd2gdefszd2 = BNIL, BUNSPEC) ;} 
}



/* _check-to-be-define */
obj_t BGl__checkzd2tozd2bezd2definezd2zzast_findzd2gdefszd2(obj_t BgL_envz00_2008)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 62 */
return 
BGl_checkzd2tozd2bezd2definezd2zzast_findzd2gdefszd2();} 
}



/* bind-global-def! */
obj_t BGl_bindzd2globalzd2defz12z12zzast_findzd2gdefszd2(obj_t BgL_idz00_17, obj_t BgL_arityz00_18)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 101 */
{ /* ./Ast/find-gdefs.scm 102 */
obj_t BgL_defz00_723;
{ /* ./Ast/find-gdefs.scm 102 */
obj_t BgL_accessz00_1640;
BgL_accessz00_1640 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Ast/find-gdefs.scm 102 */
obj_t BgL_newz00_1642;
{ /* ./Ast/find-gdefs.scm 102 */
int BgL_auxz00_2124;obj_t BgL_auxz00_2122;
BgL_auxz00_2124 = 
(int)(((long)3)); 
BgL_auxz00_2122 = 
CNST_TABLE_REF(((long)1)); 
BgL_newz00_1642 = 
create_struct(BgL_auxz00_2122, BgL_auxz00_2124); } 
{ /* ./Ast/find-gdefs.scm 102 */
int BgL_kz00_1646;
BgL_kz00_1646 = 
(int)(((long)2)); 
STRUCT_SET(BgL_newz00_1642, BgL_kz00_1646, BgL_arityz00_18); } 
{ /* ./Ast/find-gdefs.scm 102 */
int BgL_kz00_1651;
BgL_kz00_1651 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_1642, BgL_kz00_1651, BgL_accessz00_1640); } 
{ /* ./Ast/find-gdefs.scm 102 */
int BgL_kz00_1656;
BgL_kz00_1656 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1642, BgL_kz00_1656, BgL_idz00_17); } 
BgL_defz00_723 = BgL_newz00_1642; } } 
BGl_za2gdefszd2listza2zd2zzast_findzd2gdefszd2 = 
MAKE_PAIR(BgL_defz00_723, BGl_za2gdefszd2listza2zd2zzast_findzd2gdefszd2); 
BGl_za2allzd2definedzd2idza2z00zzast_findzd2gdefszd2 = 
MAKE_PAIR(BgL_idz00_17, BGl_za2allzd2definedzd2idza2z00zzast_findzd2gdefszd2); 
return 
BGl_putpropz12z12zz__r4_symbols_6_4z00(BgL_idz00_17, BGl_za2gdefzd2keyza2zd2zzast_findzd2gdefszd2, BgL_defz00_723);} } 
}



/* defs->list */
obj_t BGl_defszd2ze3listz31zzast_findzd2gdefszd2()
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 113 */
{ 
obj_t BgL_defsz00_724;obj_t BgL_resz00_725;
BgL_defsz00_724 = BGl_za2gdefszd2listza2zd2zzast_findzd2gdefszd2; 
BgL_resz00_725 = BNIL; 
BgL_loopz00_726:
{ /* ./Ast/find-gdefs.scm 116 */
bool_t BgL_test2778z00_727;
BgL_test2778z00_727 = 
NULLP(BgL_defsz00_724); 
if(BgL_test2778z00_727)
{ /* ./Ast/find-gdefs.scm 116 */
BGl_za2gdefszd2listza2zd2zzast_findzd2gdefszd2 = BNIL; 
return BgL_resz00_725;}  else 
{ /* ./Ast/find-gdefs.scm 120 */
obj_t BgL_defz00_728;
BgL_defz00_728 = 
CAR(BgL_defsz00_724); 
{ /* ./Ast/find-gdefs.scm 121 */
obj_t BgL_arg2780z00_729;obj_t BgL_arg2781z00_730;
BgL_arg2780z00_729 = 
CDR(BgL_defsz00_724); 
{ /* ./Ast/find-gdefs.scm 122 */
obj_t BgL_arg2785z00_731;
{ /* ./Ast/find-gdefs.scm 122 */
obj_t BgL_arg2788z00_732;obj_t BgL_arg2789z00_733;
{ /* ./Ast/find-gdefs.scm 122 */
int BgL_auxz00_2140;
BgL_auxz00_2140 = 
(int)(((long)0)); 
BgL_arg2788z00_732 = 
STRUCT_REF(BgL_defz00_728, BgL_auxz00_2140); } 
{ /* ./Ast/find-gdefs.scm 122 */
obj_t BgL_arg2793z00_734;obj_t BgL_arg2794z00_735;
{ /* ./Ast/find-gdefs.scm 122 */
int BgL_auxz00_2143;
BgL_auxz00_2143 = 
(int)(((long)1)); 
BgL_arg2793z00_734 = 
STRUCT_REF(BgL_defz00_728, BgL_auxz00_2143); } 
{ /* ./Ast/find-gdefs.scm 123 */
int BgL_auxz00_2146;
BgL_auxz00_2146 = 
(int)(((long)2)); 
BgL_arg2794z00_735 = 
STRUCT_REF(BgL_defz00_728, BgL_auxz00_2146); } 
BgL_arg2789z00_733 = 
MAKE_PAIR(BgL_arg2793z00_734, BgL_arg2794z00_735); } 
BgL_arg2785z00_731 = 
MAKE_PAIR(BgL_arg2788z00_732, BgL_arg2789z00_733); } 
BgL_arg2781z00_730 = 
MAKE_PAIR(BgL_arg2785z00_731, BgL_resz00_725); } 
{ 
obj_t BgL_resz00_2153;obj_t BgL_defsz00_2152;
BgL_defsz00_2152 = BgL_arg2780z00_729; 
BgL_resz00_2153 = BgL_arg2781z00_730; 
BgL_resz00_725 = BgL_resz00_2153; 
BgL_defsz00_724 = BgL_defsz00_2152; 
goto BgL_loopz00_726;} } } } } } 
}



/* find-global-defs */
BGL_EXPORTED_DEF obj_t BGl_findzd2globalzd2defsz00zzast_findzd2gdefszd2(obj_t BgL_sexpza2za2_19)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 138 */
BGl_za2gdefszd2listza2zd2zzast_findzd2gdefszd2 = BNIL; 
{ /* ./Ast/find-gdefs.scm 179 */
obj_t BgL_res4139z00_2044;
BgL_res4139z00_2044 = 
BGl_loopz00zzast_findzd2gdefszd2(BGl_proc4109z00zzast_findzd2gdefszd2, BGl_proc4110z00zzast_findzd2gdefszd2, BgL_sexpza2za2_19); BgL_res4139z00_2044; } 
{ /* ./Ast/find-gdefs.scm 183 */
obj_t BgL_res4140z00_2048;
BgL_res4140z00_2048 = 
BGl_loopz00zzast_findzd2gdefszd2(BGl_proc4112z00zzast_findzd2gdefszd2, BGl_proc4111z00zzast_findzd2gdefszd2, BgL_sexpza2za2_19); BgL_res4140z00_2048; } 
return 
BGl_defszd2ze3listz31zzast_findzd2gdefszd2();} 
}



/* loop */
obj_t BGl_loopz00zzast_findzd2gdefszd2(obj_t BgL_actionzd2definezd2_2032, obj_t BgL_actionzd2bodyzd2_2031, obj_t BgL_sexpza2za2_763)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 154 */
BGl_loopz00zzast_findzd2gdefszd2:
{ /* ./Ast/find-gdefs.scm 155 */
bool_t BgL_test2821z00_765;
BgL_test2821z00_765 = 
PAIRP(BgL_sexpza2za2_763); 
if(BgL_test2821z00_765)
{ /* ./Ast/find-gdefs.scm 157 */
obj_t BgL_sexpz00_766;
BgL_sexpz00_766 = 
CAR(BgL_sexpza2za2_763); 
{ 
obj_t BgL_varz00_769;obj_t BgL_argsz00_770;obj_t BgL_expz00_771;obj_t BgL_varz00_777;obj_t BgL_expz00_778;
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2822z00_782;
BgL_test2822z00_782 = 
PAIRP(BgL_sexpz00_766); 
if(BgL_test2822z00_782)
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2823z00_783;
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_auxz00_2164;obj_t BgL_auxz00_2162;
BgL_auxz00_2164 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2162 = 
CAR(BgL_sexpz00_766); 
BgL_test2823z00_783 = 
(BgL_auxz00_2162==BgL_auxz00_2164); } 
if(BgL_test2823z00_783)
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_arg2825z00_784;
BgL_arg2825z00_784 = 
CDR(BgL_sexpz00_766); 
BGl_loopz00zzast_findzd2gdefszd2(BgL_actionzd2definezd2_2032, BgL_actionzd2bodyzd2_2031, BgL_arg2825z00_784); 
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_arg2933z00_1679;
BgL_arg2933z00_1679 = 
CDR(BgL_sexpza2za2_763); 
{ 
obj_t BgL_sexpza2za2_2171;
BgL_sexpza2za2_2171 = BgL_arg2933z00_1679; 
BgL_sexpza2za2_763 = BgL_sexpza2za2_2171; 
goto BGl_loopz00zzast_findzd2gdefszd2;} } }  else 
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_cdrzd2146zd2_785;
BgL_cdrzd2146zd2_785 = 
CDR(BgL_sexpz00_766); 
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2828z00_786;
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_auxz00_2175;obj_t BgL_auxz00_2173;
BgL_auxz00_2175 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2173 = 
CAR(BgL_sexpz00_766); 
BgL_test2828z00_786 = 
(BgL_auxz00_2173==BgL_auxz00_2175); } 
if(BgL_test2828z00_786)
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2829z00_787;
BgL_test2829z00_787 = 
PAIRP(BgL_cdrzd2146zd2_785); 
if(BgL_test2829z00_787)
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_carzd2150zd2_788;
BgL_carzd2150zd2_788 = 
CAR(BgL_cdrzd2146zd2_785); 
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2830z00_789;
BgL_test2830z00_789 = 
PAIRP(BgL_carzd2150zd2_788); 
if(BgL_test2830z00_789)
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_arg2832z00_790;obj_t BgL_arg2833z00_791;obj_t BgL_arg2834z00_792;
BgL_arg2832z00_790 = 
CAR(BgL_carzd2150zd2_788); 
BgL_arg2833z00_791 = 
CDR(BgL_carzd2150zd2_788); 
BgL_arg2834z00_792 = 
CDR(BgL_cdrzd2146zd2_785); 
BgL_varz00_769 = BgL_arg2832z00_790; 
BgL_argsz00_770 = BgL_arg2833z00_791; 
BgL_expz00_771 = BgL_arg2834z00_792; 
BgL_tagzd2122zd2_772:
{ /* ./Ast/find-gdefs.scm 165 */
long BgL_arg2937z00_831;
BgL_arg2937z00_831 = 
BGl_arityz00zztools_argsz00(BgL_argsz00_770); 
PROCEDURE_ENTRY(BgL_actionzd2definezd2_2032)(BgL_actionzd2definezd2_2032, BgL_varz00_769, 
BINT(BgL_arg2937z00_831), BgL_sexpz00_766, BEOA); } 
PROCEDURE_ENTRY(BgL_actionzd2bodyzd2_2031)(BgL_actionzd2bodyzd2_2031, BgL_argsz00_770, BgL_expz00_771, BgL_sexpz00_766, BEOA); 
{ /* ./Ast/find-gdefs.scm 167 */
obj_t BgL_arg2942z00_832;
BgL_arg2942z00_832 = 
CDR(BgL_sexpza2za2_763); 
{ 
obj_t BgL_sexpza2za2_2194;
BgL_sexpza2za2_2194 = BgL_arg2942z00_832; 
BgL_sexpza2za2_763 = BgL_sexpza2za2_2194; 
goto BGl_loopz00zzast_findzd2gdefszd2;} } }  else 
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_arg2840z00_794;obj_t BgL_arg2841z00_795;
BgL_arg2840z00_794 = 
CAR(BgL_cdrzd2146zd2_785); 
BgL_arg2841z00_795 = 
CDR(BgL_cdrzd2146zd2_785); 
BgL_varz00_777 = BgL_arg2840z00_794; 
BgL_expz00_778 = BgL_arg2841z00_795; 
PROCEDURE_ENTRY(BgL_actionzd2definezd2_2032)(BgL_actionzd2definezd2_2032, BgL_varz00_777, BFALSE, BgL_sexpz00_766, BEOA); 
PROCEDURE_ENTRY(BgL_actionzd2bodyzd2_2031)(BgL_actionzd2bodyzd2_2031, BNIL, BgL_expz00_778, BgL_sexpz00_766, BEOA); 
{ /* ./Ast/find-gdefs.scm 174 */
obj_t BgL_arg2953z00_834;
BgL_arg2953z00_834 = 
CDR(BgL_sexpza2za2_763); 
{ 
obj_t BgL_sexpza2za2_2202;
BgL_sexpza2za2_2202 = BgL_arg2953z00_834; 
BgL_sexpza2za2_763 = BgL_sexpza2za2_2202; 
goto BGl_loopz00zzast_findzd2gdefszd2;} } } } }  else 
{ /* ./Ast/find-gdefs.scm 158 */
BgL_tagzd2125zd2_780:
{ /* ./Ast/find-gdefs.scm 176 */
obj_t BgL_arg2959z00_836;
{ /* ./Ast/find-gdefs.scm 176 */
obj_t BgL_list2962z00_837;
BgL_list2962z00_837 = 
MAKE_PAIR(BgL_sexpz00_766, BNIL); 
BgL_arg2959z00_836 = BgL_list2962z00_837; } 
PROCEDURE_ENTRY(BgL_actionzd2bodyzd2_2031)(BgL_actionzd2bodyzd2_2031, BNIL, BgL_arg2959z00_836, BgL_sexpz00_766, BEOA); } 
{ /* ./Ast/find-gdefs.scm 177 */
obj_t BgL_arg2965z00_838;
BgL_arg2965z00_838 = 
CDR(BgL_sexpza2za2_763); 
{ 
obj_t BgL_sexpza2za2_2207;
BgL_sexpza2za2_2207 = BgL_arg2965z00_838; 
BgL_sexpza2za2_763 = BgL_sexpza2za2_2207; 
goto BGl_loopz00zzast_findzd2gdefszd2;} } } }  else 
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2850z00_797;
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_auxz00_2210;obj_t BgL_auxz00_2208;
BgL_auxz00_2210 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2208 = 
CAR(BgL_sexpz00_766); 
BgL_test2850z00_797 = 
(BgL_auxz00_2208==BgL_auxz00_2210); } 
if(BgL_test2850z00_797)
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2851z00_798;
BgL_test2851z00_798 = 
PAIRP(BgL_cdrzd2146zd2_785); 
if(BgL_test2851z00_798)
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_carzd2219zd2_799;
BgL_carzd2219zd2_799 = 
CAR(BgL_cdrzd2146zd2_785); 
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2852z00_800;
BgL_test2852z00_800 = 
PAIRP(BgL_carzd2219zd2_799); 
if(BgL_test2852z00_800)
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_arg2854z00_801;obj_t BgL_arg2855z00_802;obj_t BgL_arg2856z00_803;
BgL_arg2854z00_801 = 
CAR(BgL_carzd2219zd2_799); 
BgL_arg2855z00_802 = 
CDR(BgL_carzd2219zd2_799); 
BgL_arg2856z00_803 = 
CDR(BgL_cdrzd2146zd2_785); 
{ 
obj_t BgL_expz00_2224;obj_t BgL_argsz00_2223;obj_t BgL_varz00_2222;
BgL_varz00_2222 = BgL_arg2854z00_801; 
BgL_argsz00_2223 = BgL_arg2855z00_802; 
BgL_expz00_2224 = BgL_arg2856z00_803; 
BgL_expz00_771 = BgL_expz00_2224; 
BgL_argsz00_770 = BgL_argsz00_2223; 
BgL_varz00_769 = BgL_varz00_2222; 
goto BgL_tagzd2122zd2_772;} }  else 
{ /* ./Ast/find-gdefs.scm 158 */
goto BgL_tagzd2125zd2_780;} } }  else 
{ /* ./Ast/find-gdefs.scm 158 */
goto BgL_tagzd2125zd2_780;} }  else 
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_cdrzd2258zd2_804;
BgL_cdrzd2258zd2_804 = 
CDR(BgL_sexpz00_766); 
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2866z00_805;
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_auxz00_2228;obj_t BgL_auxz00_2226;
BgL_auxz00_2228 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_2226 = 
CAR(BgL_sexpz00_766); 
BgL_test2866z00_805 = 
(BgL_auxz00_2226==BgL_auxz00_2228); } 
if(BgL_test2866z00_805)
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2867z00_806;
BgL_test2867z00_806 = 
PAIRP(BgL_cdrzd2258zd2_804); 
if(BgL_test2867z00_806)
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_carzd2262zd2_807;
BgL_carzd2262zd2_807 = 
CAR(BgL_cdrzd2258zd2_804); 
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2868z00_808;
BgL_test2868z00_808 = 
PAIRP(BgL_carzd2262zd2_807); 
if(BgL_test2868z00_808)
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_arg2870z00_809;obj_t BgL_arg2871z00_810;obj_t BgL_arg2872z00_811;
BgL_arg2870z00_809 = 
CAR(BgL_carzd2262zd2_807); 
BgL_arg2871z00_810 = 
CDR(BgL_carzd2262zd2_807); 
BgL_arg2872z00_811 = 
CDR(BgL_cdrzd2258zd2_804); 
{ 
obj_t BgL_expz00_2242;obj_t BgL_argsz00_2241;obj_t BgL_varz00_2240;
BgL_varz00_2240 = BgL_arg2870z00_809; 
BgL_argsz00_2241 = BgL_arg2871z00_810; 
BgL_expz00_2242 = BgL_arg2872z00_811; 
BgL_expz00_771 = BgL_expz00_2242; 
BgL_argsz00_770 = BgL_argsz00_2241; 
BgL_varz00_769 = BgL_varz00_2240; 
goto BgL_tagzd2122zd2_772;} }  else 
{ /* ./Ast/find-gdefs.scm 158 */
goto BgL_tagzd2125zd2_780;} } }  else 
{ /* ./Ast/find-gdefs.scm 158 */
goto BgL_tagzd2125zd2_780;} }  else 
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2882z00_813;
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_auxz00_2245;obj_t BgL_auxz00_2243;
BgL_auxz00_2245 = 
CNST_TABLE_REF(((long)7)); 
BgL_auxz00_2243 = 
CAR(BgL_sexpz00_766); 
BgL_test2882z00_813 = 
(BgL_auxz00_2243==BgL_auxz00_2245); } 
if(BgL_test2882z00_813)
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2883z00_814;
BgL_test2883z00_814 = 
PAIRP(BgL_cdrzd2258zd2_804); 
if(BgL_test2883z00_814)
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_carzd2302zd2_815;
BgL_carzd2302zd2_815 = 
CAR(BgL_cdrzd2258zd2_804); 
{ /* ./Ast/find-gdefs.scm 158 */
bool_t BgL_test2884z00_816;
BgL_test2884z00_816 = 
PAIRP(BgL_carzd2302zd2_815); 
if(BgL_test2884z00_816)
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_arg2887z00_818;obj_t BgL_arg2888z00_819;
BgL_arg2887z00_818 = 
CDR(BgL_carzd2302zd2_815); 
BgL_arg2888z00_819 = 
CDR(BgL_cdrzd2258zd2_804); 
PROCEDURE_ENTRY(BgL_actionzd2bodyzd2_2031)(BgL_actionzd2bodyzd2_2031, BgL_arg2887z00_818, BgL_arg2888z00_819, BgL_sexpz00_766, BEOA); 
{ /* ./Ast/find-gdefs.scm 158 */
obj_t BgL_arg2947z00_1719;
BgL_arg2947z00_1719 = 
CDR(BgL_sexpza2za2_763); 
{ 
obj_t BgL_sexpza2za2_2259;
BgL_sexpza2za2_2259 = BgL_arg2947z00_1719; 
BgL_sexpza2za2_763 = BgL_sexpza2za2_2259; 
goto BGl_loopz00zzast_findzd2gdefszd2;} } }  else 
{ /* ./Ast/find-gdefs.scm 158 */
goto BgL_tagzd2125zd2_780;} } }  else 
{ /* ./Ast/find-gdefs.scm 158 */
goto BgL_tagzd2125zd2_780;} }  else 
{ /* ./Ast/find-gdefs.scm 158 */
goto BgL_tagzd2125zd2_780;} } } } } } } }  else 
{ /* ./Ast/find-gdefs.scm 158 */
goto BgL_tagzd2125zd2_780;} } } }  else 
{ /* ./Ast/find-gdefs.scm 155 */
return 
CNST_TABLE_REF(((long)8));} } } 
}



/* _find-global-defs */
obj_t BGl__findzd2globalzd2defsz00zzast_findzd2gdefszd2(obj_t BgL_envz00_2013, obj_t BgL_sexpza2za2_2014)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 138 */
return 
BGl_findzd2globalzd2defsz00zzast_findzd2gdefszd2(BgL_sexpza2za2_2014);} 
}



/* <anonymous:2809> */
obj_t BGl_zc3anonymousza32809ze3z83zzast_findzd2gdefszd2(obj_t BgL_envz00_2015, obj_t BgL_argsz00_2016, obj_t BgL_expz00_2017, obj_t BgL_defz00_2018)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 186 */
{ 
obj_t BgL_argsz00_750;obj_t BgL_expz00_751;obj_t BgL_defz00_752;
{ /* ./Ast/find-gdefs.scm 187 */
bool_t BgL_auxz00_2262;
BgL_argsz00_750 = BgL_argsz00_2016; 
BgL_expz00_751 = BgL_expz00_2017; 
BgL_defz00_752 = BgL_defz00_2018; 
{ /* ./Ast/find-gdefs.scm 187 */
obj_t BgL_arg2811z00_1670;
{ /* ./Ast/find-gdefs.scm 187 */
obj_t BgL_arg2815z00_1672;
BgL_arg2815z00_1672 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_defz00_752); 
BgL_arg2811z00_1670 = 
BGl_pushzd2argszd2zzast_findzd2gdefszd2(BgL_argsz00_750, BNIL, BgL_arg2815z00_1672); } 
BgL_auxz00_2262 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_expz00_751, BgL_arg2811z00_1670); } 
return 
BBOOL(BgL_auxz00_2262);} } } 
}



/* <anonymous:2808> */
obj_t BGl_zc3anonymousza32808ze3z83zzast_findzd2gdefszd2(obj_t BgL_envz00_2019, obj_t BgL_xz00_2020, obj_t BgL_yz00_2021, obj_t BgL_expz00_2022)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 184 */
{ /* ./Ast/find-gdefs.scm 185 */
obj_t BgL_res4141z00_2052;
BgL_res4141z00_2052 = 
CNST_TABLE_REF(((long)9)); 
return BgL_res4141z00_2052;} } 
}



/* <anonymous:2803> */
obj_t BGl_zc3anonymousza32803ze3z83zzast_findzd2gdefszd2(obj_t BgL_envz00_2023, obj_t BgL_argsz00_2024, obj_t BgL_expz00_2025, obj_t BgL_defz00_2026)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 181 */
{ /* ./Ast/find-gdefs.scm 181 */
obj_t BgL_res4142z00_2056;
BgL_res4142z00_2056 = 
CNST_TABLE_REF(((long)9)); 
return BgL_res4142z00_2056;} } 
}



/* define-global */
obj_t BGl_definezd2globalzd2zzast_findzd2gdefszd2(obj_t BgL_envz00_2027, obj_t BgL_varz00_2028, obj_t BgL_arityz00_2029, obj_t BgL_expz00_2030)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 151 */
{ 
obj_t BgL_varz00_839;obj_t BgL_arityz00_840;obj_t BgL_expz00_841;
BgL_varz00_839 = BgL_varz00_2028; 
BgL_arityz00_840 = BgL_arityz00_2029; 
BgL_expz00_841 = BgL_expz00_2030; 
{ 
obj_t BgL_prezd2idzd2_843;
{ /* ./Ast/find-gdefs.scm 151 */
bool_t BgL_test2971z00_847;
BgL_test2971z00_847 = 
PAIRP(BgL_varz00_839); 
if(BgL_test2971z00_847)
{ /* ./Ast/find-gdefs.scm 151 */
obj_t BgL_cdrzd2109zd2_848;
BgL_cdrzd2109zd2_848 = 
CDR(BgL_varz00_839); 
{ /* ./Ast/find-gdefs.scm 151 */
bool_t BgL_test2972z00_849;
{ /* ./Ast/find-gdefs.scm 151 */
obj_t BgL_auxz00_2274;obj_t BgL_auxz00_2272;
BgL_auxz00_2274 = 
CNST_TABLE_REF(((long)10)); 
BgL_auxz00_2272 = 
CAR(BgL_varz00_839); 
BgL_test2972z00_849 = 
(BgL_auxz00_2272==BgL_auxz00_2274); } 
if(BgL_test2972z00_849)
{ /* ./Ast/find-gdefs.scm 151 */
bool_t BgL_test2973z00_850;
BgL_test2973z00_850 = 
PAIRP(BgL_cdrzd2109zd2_848); 
if(BgL_test2973z00_850)
{ /* ./Ast/find-gdefs.scm 151 */
obj_t BgL_cdrzd2112zd2_851;
BgL_cdrzd2112zd2_851 = 
CDR(BgL_cdrzd2109zd2_848); 
{ /* ./Ast/find-gdefs.scm 151 */
bool_t BgL_test2974z00_852;
BgL_test2974z00_852 = 
PAIRP(BgL_cdrzd2112zd2_851); 
if(BgL_test2974z00_852)
{ /* ./Ast/find-gdefs.scm 151 */
bool_t BgL_test2975z00_853;
{ /* ./Ast/find-gdefs.scm 151 */
obj_t BgL_auxz00_2283;
BgL_auxz00_2283 = 
CDR(BgL_cdrzd2112zd2_851); 
BgL_test2975z00_853 = 
NULLP(BgL_auxz00_2283); } 
if(BgL_test2975z00_853)
{ /* ./Ast/find-gdefs.scm 151 */
obj_t BgL_arg2977z00_854;
BgL_arg2977z00_854 = 
CAR(BgL_cdrzd2109zd2_848); 
BgL_prezd2idzd2_843 = BgL_arg2977z00_854; 
BgL_tagzd2101zd2_844:
{ /* ./Ast/find-gdefs.scm 145 */
obj_t BgL_idz00_858;
{ /* ./Ast/find-gdefs.scm 145 */
obj_t BgL_arg3007z00_862;
BgL_arg3007z00_862 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_expz00_841); 
BgL_idz00_858 = 
BGl_idzd2ofzd2idz00zzast_identz00(BgL_prezd2idzd2_843, BgL_arg3007z00_862); } 
{ /* ./Ast/find-gdefs.scm 145 */
obj_t BgL_oldzd2defzd2_859;
BgL_oldzd2defzd2_859 = 
BGl_getpropz00zz__r4_symbols_6_4z00(BgL_idz00_858, BGl_za2gdefzd2keyza2zd2zzast_findzd2gdefszd2); 
{ /* ./Ast/find-gdefs.scm 146 */

{ /* ./Ast/find-gdefs.scm 147 */
bool_t BgL_test2999z00_860;
if(
STRUCTP(BgL_oldzd2defzd2_859))
{ /* ./Ast/find-gdefs.scm 147 */
obj_t BgL_auxz00_2295;obj_t BgL_auxz00_2293;
BgL_auxz00_2295 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2293 = 
STRUCT_KEY(BgL_oldzd2defzd2_859); 
BgL_test2999z00_860 = 
(BgL_auxz00_2293==BgL_auxz00_2295); }  else 
{ /* ./Ast/find-gdefs.scm 147 */
BgL_test2999z00_860 = ((bool_t)0); } 
if(BgL_test2999z00_860)
{ /* ./Ast/find-gdefs.scm 148 */
obj_t BgL_list3001z00_861;
BgL_list3001z00_861 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BgL_varz00_839, BGl_string4113z00zzast_findzd2gdefszd2, BgL_expz00_841, BgL_list3001z00_861);}  else 
{ /* ./Ast/find-gdefs.scm 147 */
return 
BGl_bindzd2globalzd2defz12z12zzast_findzd2gdefszd2(BgL_idz00_858, BgL_arityz00_840);} } } } } }  else 
{ 
obj_t BgL_prezd2idzd2_2302;
BgL_prezd2idzd2_2302 = BgL_varz00_839; 
BgL_prezd2idzd2_843 = BgL_prezd2idzd2_2302; 
goto BgL_tagzd2101zd2_844;} }  else 
{ 
obj_t BgL_prezd2idzd2_2303;
BgL_prezd2idzd2_2303 = BgL_varz00_839; 
BgL_prezd2idzd2_843 = BgL_prezd2idzd2_2303; 
goto BgL_tagzd2101zd2_844;} } }  else 
{ 
obj_t BgL_prezd2idzd2_2304;
BgL_prezd2idzd2_2304 = BgL_varz00_839; 
BgL_prezd2idzd2_843 = BgL_prezd2idzd2_2304; 
goto BgL_tagzd2101zd2_844;} }  else 
{ 
obj_t BgL_prezd2idzd2_2305;
BgL_prezd2idzd2_2305 = BgL_varz00_839; 
BgL_prezd2idzd2_843 = BgL_prezd2idzd2_2305; 
goto BgL_tagzd2101zd2_844;} } }  else 
{ 
obj_t BgL_prezd2idzd2_2306;
BgL_prezd2idzd2_2306 = BgL_varz00_839; 
BgL_prezd2idzd2_843 = BgL_prezd2idzd2_2306; 
goto BgL_tagzd2101zd2_844;} } } } } 
}



/* find-mutations! */
bool_t BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(obj_t BgL_expza2za2_20, obj_t BgL_stackz00_21)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 194 */
{ 
obj_t BgL_l2686z00_865;
BgL_l2686z00_865 = BgL_expza2za2_20; 
BgL_forzd2each2687zd2_866:
{ /* ./Ast/find-gdefs.scm 195 */
bool_t BgL_test3012z00_867;
BgL_test3012z00_867 = 
PAIRP(BgL_l2686z00_865); 
if(BgL_test3012z00_867)
{ /* ./Ast/find-gdefs.scm 195 */
{ /* ./Ast/find-gdefs.scm 195 */
obj_t BgL_expz00_868;
BgL_expz00_868 = 
CAR(BgL_l2686z00_865); 
BGl_findzd21zd2mutationsz12z12zzast_findzd2gdefszd2(BgL_expz00_868, BgL_stackz00_21); } 
{ /* ./Ast/find-gdefs.scm 195 */
obj_t BgL_arg3016z00_869;
BgL_arg3016z00_869 = 
CDR(BgL_l2686z00_865); 
{ 
obj_t BgL_l2686z00_2312;
BgL_l2686z00_2312 = BgL_arg3016z00_869; 
BgL_l2686z00_865 = BgL_l2686z00_2312; 
goto BgL_forzd2each2687zd2_866;} } }  else 
{ /* ./Ast/find-gdefs.scm 195 */
return ((bool_t)1);} } } } 
}



/* find-1-mutations! */
obj_t BGl_findzd21zd2mutationsz12z12zzast_findzd2gdefszd2(obj_t BgL_expz00_22, obj_t BgL_stackz00_23)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 200 */
BGl_findzd21zd2mutationsz12z12zzast_findzd2gdefszd2:
{ 
obj_t BgL_valz00_905;obj_t BgL_clausesz00_906;obj_t BgL_bindingsz00_893;obj_t BgL_bodyz00_894;obj_t BgL_bindingsz00_890;obj_t BgL_bodyz00_891;obj_t BgL_bindingsz00_887;obj_t BgL_bodyz00_888;obj_t BgL_idz00_883;obj_t BgL_modulez00_884;obj_t BgL_valz00_885;obj_t BgL_idz00_880;obj_t BgL_valz00_881;
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3020z00_924;
BgL_test3020z00_924 = 
PAIRP(BgL_expz00_22); 
if(BgL_test3020z00_924)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd2405zd2_925;
BgL_cdrzd2405zd2_925 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3021z00_926;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2318;obj_t BgL_auxz00_2316;
BgL_auxz00_2318 = 
CNST_TABLE_REF(((long)15)); 
BgL_auxz00_2316 = 
CAR(BgL_expz00_22); 
BgL_test3021z00_926 = 
(BgL_auxz00_2316==BgL_auxz00_2318); } 
if(BgL_test3021z00_926)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3022z00_927;
BgL_test3022z00_927 = 
PAIRP(BgL_cdrzd2405zd2_925); 
if(BgL_test3022z00_927)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3023z00_928;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2324;
BgL_auxz00_2324 = 
CDR(BgL_cdrzd2405zd2_925); 
BgL_test3023z00_928 = 
NULLP(BgL_auxz00_2324); } 
if(BgL_test3023z00_928)
{ /* ./Ast/find-gdefs.scm 201 */
return 
CNST_TABLE_REF(((long)8));}  else 
{ /* ./Ast/find-gdefs.scm 201 */
BgL_tagzd2373zd2_922:
{ /* ./Ast/find-gdefs.scm 292 */
obj_t BgL_callerz00_1172;obj_t BgL_locz00_1173;
BgL_callerz00_1172 = 
CAR(BgL_expz00_22); 
BgL_locz00_1173 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 294 */
bool_t BgL_test3602z00_1174;
BgL_test3602z00_1174 = 
SYMBOLP(BgL_callerz00_1172); 
if(BgL_test3602z00_1174)
{ /* ./Ast/find-gdefs.scm 296 */
obj_t BgL_pidz00_1175;
BgL_pidz00_1175 = 
BGl_parsezd2idzd2zzast_identz00(BgL_callerz00_1172, BgL_locz00_1173); 
{ /* ./Ast/find-gdefs.scm 296 */
obj_t BgL_idz00_1176;
BgL_idz00_1176 = 
CAR(BgL_pidz00_1175); 
{ /* ./Ast/find-gdefs.scm 298 */

{ /* ./Ast/find-gdefs.scm 299 */
bool_t BgL_test3603z00_1179;
BgL_test3603z00_1179 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_idz00_1176, 
CNST_TABLE_REF(((long)12))); 
if(BgL_test3603z00_1179)
{ /* ./Ast/find-gdefs.scm 299 */
return 
CNST_TABLE_REF(((long)8));}  else 
{ /* ./Ast/find-gdefs.scm 299 */
bool_t BgL_test3604z00_1180;
BgL_test3604z00_1180 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_idz00_1176, 
CNST_TABLE_REF(((long)13))); 
if(BgL_test3604z00_1180)
{ /* ./Ast/find-gdefs.scm 299 */
return 
CNST_TABLE_REF(((long)8));}  else 
{ /* ./Ast/find-gdefs.scm 299 */
bool_t BgL_test3605z00_1181;
BgL_test3605z00_1181 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_idz00_1176, 
CNST_TABLE_REF(((long)14))); 
if(BgL_test3605z00_1181)
{ 

{ /* ./Ast/find-gdefs.scm 305 */
bool_t BgL_test3606z00_1187;
BgL_test3606z00_1187 = 
PAIRP(BgL_expz00_22); 
if(BgL_test3606z00_1187)
{ /* ./Ast/find-gdefs.scm 305 */
obj_t BgL_cdrzd23196zd2_1188;
BgL_cdrzd23196zd2_1188 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 305 */
bool_t BgL_test3607z00_1189;
BgL_test3607z00_1189 = 
PAIRP(BgL_cdrzd23196zd2_1188); 
if(BgL_test3607z00_1189)
{ /* ./Ast/find-gdefs.scm 305 */
obj_t BgL_arg3609z00_1190;obj_t BgL_arg3610z00_1191;
BgL_arg3609z00_1190 = 
CAR(BgL_cdrzd23196zd2_1188); 
BgL_arg3610z00_1191 = 
CDR(BgL_cdrzd23196zd2_1188); 
{ /* ./Ast/find-gdefs.scm 305 */
obj_t BgL_arg3620z00_1992;
BgL_arg3620z00_1992 = 
BGl_pushzd2argszd2zzast_findzd2gdefszd2(BgL_arg3609z00_1190, BgL_stackz00_23, BgL_locz00_1173); 
{ /* ./Ast/find-gdefs.scm 305 */
bool_t BgL_auxz00_2354;
BgL_auxz00_2354 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3610z00_1191, BgL_arg3620z00_1992); 
return 
BBOOL(BgL_auxz00_2354);} } }  else 
{ /* ./Ast/find-gdefs.scm 305 */
BgL_tagzd23189zd2_1185:
{ /* ./Ast/find-gdefs.scm 309 */
obj_t BgL_list3624z00_1193;
BgL_list3624z00_1193 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string4114z00zzast_findzd2gdefszd2, BGl_string4115z00zzast_findzd2gdefszd2, BgL_expz00_22, BgL_list3624z00_1193);} } } }  else 
{ /* ./Ast/find-gdefs.scm 305 */
goto BgL_tagzd23189zd2_1185;} } }  else 
{ /* ./Ast/find-gdefs.scm 314 */
bool_t BgL_auxz00_2359;
BgL_auxz00_2359 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_expz00_22, BgL_stackz00_23); 
return 
BBOOL(BgL_auxz00_2359);} } } } } } }  else 
{ /* ./Ast/find-gdefs.scm 315 */
bool_t BgL_auxz00_2362;
BgL_auxz00_2362 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_expz00_22, BgL_stackz00_23); 
return 
BBOOL(BgL_auxz00_2362);} } } } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3032z00_931;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2367;obj_t BgL_auxz00_2365;
BgL_auxz00_2367 = 
CNST_TABLE_REF(((long)12)); 
BgL_auxz00_2365 = 
CAR(BgL_expz00_22); 
BgL_test3032z00_931 = 
(BgL_auxz00_2365==BgL_auxz00_2367); } 
if(BgL_test3032z00_931)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3033z00_932;
BgL_test3033z00_932 = 
PAIRP(BgL_cdrzd2405zd2_925); 
if(BgL_test3033z00_932)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3034z00_933;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2373;
BgL_auxz00_2373 = 
CDR(BgL_cdrzd2405zd2_925); 
BgL_test3034z00_933 = 
NULLP(BgL_auxz00_2373); } 
if(BgL_test3034z00_933)
{ /* ./Ast/find-gdefs.scm 201 */
return 
CNST_TABLE_REF(((long)8));}  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd21089zd2_935;
BgL_cdrzd21089zd2_935 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3043z00_936;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2381;obj_t BgL_auxz00_2379;
BgL_auxz00_2381 = 
CNST_TABLE_REF(((long)13)); 
BgL_auxz00_2379 = 
CAR(BgL_expz00_22); 
BgL_test3043z00_936 = 
(BgL_auxz00_2379==BgL_auxz00_2381); } 
if(BgL_test3043z00_936)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3044z00_937;
BgL_test3044z00_937 = 
PAIRP(BgL_cdrzd21089zd2_935); 
if(BgL_test3044z00_937)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3045z00_938;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2387;
BgL_auxz00_2387 = 
CDR(BgL_cdrzd21089zd2_935); 
BgL_test3045z00_938 = 
NULLP(BgL_auxz00_2387); } 
if(BgL_test3045z00_938)
{ /* ./Ast/find-gdefs.scm 201 */
return 
CNST_TABLE_REF(((long)8));}  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3054z00_941;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2394;obj_t BgL_auxz00_2392;
BgL_auxz00_2394 = 
CNST_TABLE_REF(((long)16)); 
BgL_auxz00_2392 = 
CAR(BgL_expz00_22); 
BgL_test3054z00_941 = 
(BgL_auxz00_2392==BgL_auxz00_2394); } 
if(BgL_test3054z00_941)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3055z00_942;
BgL_test3055z00_942 = 
PAIRP(BgL_cdrzd21089zd2_935); 
if(BgL_test3055z00_942)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd21401zd2_943;
BgL_cdrzd21401zd2_943 = 
CDR(BgL_cdrzd21089zd2_935); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3056z00_944;
BgL_test3056z00_944 = 
PAIRP(BgL_cdrzd21401zd2_943); 
if(BgL_test3056z00_944)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3059z00_946;
BgL_arg3059z00_946 = 
CDR(BgL_cdrzd21401zd2_943); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2404;
BgL_auxz00_2404 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3059z00_946, BgL_stackz00_23); 
return 
BBOOL(BgL_auxz00_2404);} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3068z00_947;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2409;obj_t BgL_auxz00_2407;
BgL_auxz00_2409 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2407 = 
CAR(BgL_expz00_22); 
BgL_test3068z00_947 = 
(BgL_auxz00_2407==BgL_auxz00_2409); } 
if(BgL_test3068z00_947)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3070z00_948;
BgL_arg3070z00_948 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2414;
BgL_auxz00_2414 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3070z00_948, BgL_stackz00_23); 
return 
BBOOL(BgL_auxz00_2414);} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd21699zd2_949;
BgL_cdrzd21699zd2_949 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3073z00_950;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2420;obj_t BgL_auxz00_2418;
BgL_auxz00_2420 = 
CNST_TABLE_REF(((long)17)); 
BgL_auxz00_2418 = 
CAR(BgL_expz00_22); 
BgL_test3073z00_950 = 
(BgL_auxz00_2418==BgL_auxz00_2420); } 
if(BgL_test3073z00_950)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3074z00_951;
BgL_test3074z00_951 = 
PAIRP(BgL_cdrzd21699zd2_949); 
if(BgL_test3074z00_951)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_carzd21702zd2_952;
BgL_carzd21702zd2_952 = 
CAR(BgL_cdrzd21699zd2_949); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3075z00_953;
BgL_test3075z00_953 = 
SYMBOLP(BgL_carzd21702zd2_952); 
if(BgL_test3075z00_953)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3077z00_954;
BgL_arg3077z00_954 = 
CDR(BgL_cdrzd21699zd2_949); 
BgL_idz00_880 = BgL_carzd21702zd2_952; 
BgL_valz00_881 = BgL_arg3077z00_954; 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_valz00_881, BgL_stackz00_23); 
{ /* ./Ast/find-gdefs.scm 216 */
bool_t BgL_test3379z00_1075;
{ /* ./Ast/find-gdefs.scm 216 */
obj_t BgL_auxz00_2431;
BgL_auxz00_2431 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_880, BgL_stackz00_23); 
BgL_test3379z00_1075 = 
CBOOL(BgL_auxz00_2431); } 
if(BgL_test3379z00_1075)
{ /* ./Ast/find-gdefs.scm 216 */
return BFALSE;}  else 
{ /* ./Ast/find-gdefs.scm 217 */
obj_t BgL_defz00_1076;
BgL_defz00_1076 = 
BGl_getpropz00zz__r4_symbols_6_4z00(BgL_idz00_880, BGl_za2gdefzd2keyza2zd2zzast_findzd2gdefszd2); 
{ /* ./Ast/find-gdefs.scm 218 */
bool_t BgL_test3380z00_1077;
if(
STRUCTP(BgL_defz00_1076))
{ /* ./Ast/find-gdefs.scm 218 */
obj_t BgL_auxz00_2440;obj_t BgL_auxz00_2438;
BgL_auxz00_2440 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2438 = 
STRUCT_KEY(BgL_defz00_1076); 
BgL_test3380z00_1077 = 
(BgL_auxz00_2438==BgL_auxz00_2440); }  else 
{ /* ./Ast/find-gdefs.scm 218 */
BgL_test3380z00_1077 = ((bool_t)0); } 
if(BgL_test3380z00_1077)
{ /* ./Ast/find-gdefs.scm 219 */
obj_t BgL_vz00_1901;
BgL_vz00_1901 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Ast/find-gdefs.scm 219 */
int BgL_kz00_1903;
BgL_kz00_1903 = 
(int)(((long)1)); 
return 
STRUCT_SET(BgL_defz00_1076, BgL_kz00_1903, BgL_vz00_1901);} }  else 
{ /* ./Ast/find-gdefs.scm 218 */
return BFALSE;} } } } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_carzd21727zd2_956;
BgL_carzd21727zd2_956 = 
CAR(BgL_cdrzd21699zd2_949); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3080z00_957;
BgL_test3080z00_957 = 
PAIRP(BgL_carzd21727zd2_956); 
if(BgL_test3080z00_957)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd21732zd2_958;
BgL_cdrzd21732zd2_958 = 
CDR(BgL_carzd21727zd2_956); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3081z00_959;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2453;obj_t BgL_auxz00_2451;
BgL_auxz00_2453 = 
CNST_TABLE_REF(((long)10)); 
BgL_auxz00_2451 = 
CAR(BgL_carzd21727zd2_956); 
BgL_test3081z00_959 = 
(BgL_auxz00_2451==BgL_auxz00_2453); } 
if(BgL_test3081z00_959)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3082z00_960;
BgL_test3082z00_960 = 
PAIRP(BgL_cdrzd21732zd2_958); 
if(BgL_test3082z00_960)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_carzd21735zd2_961;obj_t BgL_cdrzd21736zd2_962;
BgL_carzd21735zd2_961 = 
CAR(BgL_cdrzd21732zd2_958); 
BgL_cdrzd21736zd2_962 = 
CDR(BgL_cdrzd21732zd2_958); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3083z00_963;
BgL_test3083z00_963 = 
SYMBOLP(BgL_carzd21735zd2_961); 
if(BgL_test3083z00_963)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3084z00_964;
BgL_test3084z00_964 = 
PAIRP(BgL_cdrzd21736zd2_962); 
if(BgL_test3084z00_964)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_carzd21741zd2_965;
BgL_carzd21741zd2_965 = 
CAR(BgL_cdrzd21736zd2_962); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3085z00_966;
BgL_test3085z00_966 = 
SYMBOLP(BgL_carzd21741zd2_965); 
if(BgL_test3085z00_966)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3086z00_967;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2468;
BgL_auxz00_2468 = 
CDR(BgL_cdrzd21736zd2_962); 
BgL_test3086z00_967 = 
NULLP(BgL_auxz00_2468); } 
if(BgL_test3086z00_967)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3088z00_968;
BgL_arg3088z00_968 = 
CDR(BgL_cdrzd21699zd2_949); 
BgL_idz00_883 = BgL_carzd21735zd2_961; 
BgL_modulez00_884 = BgL_carzd21741zd2_965; 
BgL_valz00_885 = BgL_arg3088z00_968; 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_valz00_885, BgL_stackz00_23); 
{ /* ./Ast/find-gdefs.scm 222 */
bool_t BgL_test3386z00_1078;
BgL_test3386z00_1078 = 
(BgL_modulez00_884==BGl_za2moduleza2z00zzmodule_modulez00); 
if(BgL_test3386z00_1078)
{ /* ./Ast/find-gdefs.scm 223 */
obj_t BgL_defz00_1079;
BgL_defz00_1079 = 
BGl_getpropz00zz__r4_symbols_6_4z00(BgL_idz00_883, BGl_za2gdefzd2keyza2zd2zzast_findzd2gdefszd2); 
{ /* ./Ast/find-gdefs.scm 224 */
bool_t BgL_test3387z00_1080;
if(
STRUCTP(BgL_defz00_1079))
{ /* ./Ast/find-gdefs.scm 224 */
obj_t BgL_auxz00_2481;obj_t BgL_auxz00_2479;
BgL_auxz00_2481 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2479 = 
STRUCT_KEY(BgL_defz00_1079); 
BgL_test3387z00_1080 = 
(BgL_auxz00_2479==BgL_auxz00_2481); }  else 
{ /* ./Ast/find-gdefs.scm 224 */
BgL_test3387z00_1080 = ((bool_t)0); } 
if(BgL_test3387z00_1080)
{ /* ./Ast/find-gdefs.scm 225 */
obj_t BgL_vz00_1914;
BgL_vz00_1914 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Ast/find-gdefs.scm 225 */
int BgL_kz00_1916;
BgL_kz00_1916 = 
(int)(((long)1)); 
return 
STRUCT_SET(BgL_defz00_1079, BgL_kz00_1916, BgL_vz00_1914);} }  else 
{ /* ./Ast/find-gdefs.scm 224 */
return BFALSE;} } }  else 
{ /* ./Ast/find-gdefs.scm 222 */
return BFALSE;} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} } } } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3123z00_973;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2490;obj_t BgL_auxz00_2488;
BgL_auxz00_2490 = 
CNST_TABLE_REF(((long)18)); 
BgL_auxz00_2488 = 
CAR(BgL_expz00_22); 
BgL_test3123z00_973 = 
(BgL_auxz00_2488==BgL_auxz00_2490); } 
if(BgL_test3123z00_973)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3124z00_974;
BgL_test3124z00_974 = 
PAIRP(BgL_cdrzd21699zd2_949); 
if(BgL_test3124z00_974)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3126z00_975;obj_t BgL_arg3128z00_976;
BgL_arg3126z00_975 = 
CAR(BgL_cdrzd21699zd2_949); 
BgL_arg3128z00_976 = 
CDR(BgL_cdrzd21699zd2_949); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2498;
BgL_bindingsz00_887 = BgL_arg3126z00_975; 
BgL_bodyz00_888 = BgL_arg3128z00_976; 
{ /* ./Ast/find-gdefs.scm 227 */
obj_t BgL_newzd2stackzd2_1081;
{ 
obj_t BgL_stackz00_1088;obj_t BgL_bindingsz00_1089;
BgL_stackz00_1088 = BgL_stackz00_23; 
BgL_bindingsz00_1089 = BgL_bindingsz00_887; 
BgL_loopz00_1090:
{ /* ./Ast/find-gdefs.scm 230 */
bool_t BgL_test3406z00_1091;
BgL_test3406z00_1091 = 
NULLP(BgL_bindingsz00_1089); 
if(BgL_test3406z00_1091)
{ /* ./Ast/find-gdefs.scm 230 */
BgL_newzd2stackzd2_1081 = BgL_stackz00_1088; }  else 
{ /* ./Ast/find-gdefs.scm 232 */
bool_t BgL_test3407z00_1092;
{ /* ./Ast/find-gdefs.scm 232 */
obj_t BgL_auxz00_2501;
BgL_auxz00_2501 = 
CAR(BgL_bindingsz00_1089); 
BgL_test3407z00_1092 = 
PAIRP(BgL_auxz00_2501); } 
if(BgL_test3407z00_1092)
{ /* ./Ast/find-gdefs.scm 232 */
{ /* ./Ast/find-gdefs.scm 238 */
obj_t BgL_arg3409z00_1093;obj_t BgL_arg3410z00_1094;
{ /* ./Ast/find-gdefs.scm 238 */
obj_t BgL_arg3413z00_1095;
{ /* ./Ast/find-gdefs.scm 238 */
obj_t BgL_arg3416z00_1096;obj_t BgL_arg3417z00_1097;
{ /* ./Ast/find-gdefs.scm 238 */
obj_t BgL_auxz00_2505;
BgL_auxz00_2505 = 
CAR(BgL_bindingsz00_1089); 
BgL_arg3416z00_1096 = 
CAR(BgL_auxz00_2505); } 
BgL_arg3417z00_1097 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_expz00_22); 
BgL_arg3413z00_1095 = 
BGl_idzd2ofzd2idz00zzast_identz00(BgL_arg3416z00_1096, BgL_arg3417z00_1097); } 
BgL_arg3409z00_1093 = 
MAKE_PAIR(BgL_arg3413z00_1095, BgL_stackz00_1088); } 
BgL_arg3410z00_1094 = 
CDR(BgL_bindingsz00_1089); 
{ 
obj_t BgL_bindingsz00_2513;obj_t BgL_stackz00_2512;
BgL_stackz00_2512 = BgL_arg3409z00_1093; 
BgL_bindingsz00_2513 = BgL_arg3410z00_1094; 
BgL_bindingsz00_1089 = BgL_bindingsz00_2513; 
BgL_stackz00_1088 = BgL_stackz00_2512; 
goto BgL_loopz00_1090;} } }  else 
{ /* ./Ast/find-gdefs.scm 232 */
{ /* ./Ast/find-gdefs.scm 233 */
obj_t BgL_arg3426z00_1099;obj_t BgL_arg3427z00_1100;
{ /* ./Ast/find-gdefs.scm 233 */
obj_t BgL_arg3430z00_1101;
{ /* ./Ast/find-gdefs.scm 233 */
obj_t BgL_arg3433z00_1102;obj_t BgL_arg3434z00_1103;
BgL_arg3433z00_1102 = 
CAR(BgL_bindingsz00_1089); 
BgL_arg3434z00_1103 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_expz00_22); 
BgL_arg3430z00_1101 = 
BGl_idzd2ofzd2idz00zzast_identz00(BgL_arg3433z00_1102, BgL_arg3434z00_1103); } 
BgL_arg3426z00_1099 = 
MAKE_PAIR(BgL_arg3430z00_1101, BgL_stackz00_1088); } 
BgL_arg3427z00_1100 = 
CDR(BgL_bindingsz00_1089); 
{ 
obj_t BgL_bindingsz00_2520;obj_t BgL_stackz00_2519;
BgL_stackz00_2519 = BgL_arg3426z00_1099; 
BgL_bindingsz00_2520 = BgL_arg3427z00_1100; 
BgL_bindingsz00_1089 = BgL_bindingsz00_2520; 
BgL_stackz00_1088 = BgL_stackz00_2519; 
goto BgL_loopz00_1090;} } } } } } 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_bodyz00_888, BgL_newzd2stackzd2_1081); 
{ 
obj_t BgL_l2688z00_1082;
BgL_l2688z00_1082 = BgL_bindingsz00_887; 
BgL_forzd2each2689zd2_1083:
{ /* ./Ast/find-gdefs.scm 243 */
bool_t BgL_test3394z00_1084;
BgL_test3394z00_1084 = 
PAIRP(BgL_l2688z00_1082); 
if(BgL_test3394z00_1084)
{ /* ./Ast/find-gdefs.scm 243 */
{ /* ./Ast/find-gdefs.scm 243 */
obj_t BgL_bz00_1085;
BgL_bz00_1085 = 
CAR(BgL_l2688z00_1082); 
{ /* ./Ast/find-gdefs.scm 243 */
obj_t BgL_arg3396z00_1086;
BgL_arg3396z00_1086 = 
CDR(BgL_bz00_1085); 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3396z00_1086, BgL_stackz00_23); } } 
{ /* ./Ast/find-gdefs.scm 243 */
obj_t BgL_arg3401z00_1087;
BgL_arg3401z00_1087 = 
CDR(BgL_l2688z00_1082); 
{ 
obj_t BgL_l2688z00_2528;
BgL_l2688z00_2528 = BgL_arg3401z00_1087; 
BgL_l2688z00_1082 = BgL_l2688z00_2528; 
goto BgL_forzd2each2689zd2_1083;} } }  else 
{ /* ./Ast/find-gdefs.scm 243 */
BgL_auxz00_2498 = ((bool_t)1); } } } } 
return 
BBOOL(BgL_auxz00_2498);} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd22623zd2_977;
BgL_cdrzd22623zd2_977 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3134z00_978;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2533;obj_t BgL_auxz00_2531;
BgL_auxz00_2533 = 
CNST_TABLE_REF(((long)19)); 
BgL_auxz00_2531 = 
CAR(BgL_expz00_22); 
BgL_test3134z00_978 = 
(BgL_auxz00_2531==BgL_auxz00_2533); } 
if(BgL_test3134z00_978)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3135z00_979;
BgL_test3135z00_979 = 
PAIRP(BgL_cdrzd22623zd2_977); 
if(BgL_test3135z00_979)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3137z00_980;obj_t BgL_arg3138z00_981;
BgL_arg3137z00_980 = 
CAR(BgL_cdrzd22623zd2_977); 
BgL_arg3138z00_981 = 
CDR(BgL_cdrzd22623zd2_977); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2541;
BgL_bindingsz00_890 = BgL_arg3137z00_980; 
BgL_bodyz00_891 = BgL_arg3138z00_981; 
{ /* ./Ast/find-gdefs.scm 245 */
obj_t BgL_newzd2stackzd2_1105;
{ 
obj_t BgL_stackz00_1112;obj_t BgL_bindingsz00_1113;
BgL_stackz00_1112 = BgL_stackz00_23; 
BgL_bindingsz00_1113 = BgL_bindingsz00_890; 
BgL_loopz00_1114:
{ /* ./Ast/find-gdefs.scm 248 */
bool_t BgL_test3458z00_1115;
BgL_test3458z00_1115 = 
NULLP(BgL_bindingsz00_1113); 
if(BgL_test3458z00_1115)
{ /* ./Ast/find-gdefs.scm 248 */
BgL_newzd2stackzd2_1105 = BgL_stackz00_1112; }  else 
{ /* ./Ast/find-gdefs.scm 250 */
bool_t BgL_test3459z00_1116;
{ /* ./Ast/find-gdefs.scm 250 */
obj_t BgL_auxz00_2544;
BgL_auxz00_2544 = 
CAR(BgL_bindingsz00_1113); 
BgL_test3459z00_1116 = 
PAIRP(BgL_auxz00_2544); } 
if(BgL_test3459z00_1116)
{ /* ./Ast/find-gdefs.scm 250 */
{ /* ./Ast/find-gdefs.scm 256 */
obj_t BgL_arg3461z00_1117;obj_t BgL_arg3462z00_1118;
{ /* ./Ast/find-gdefs.scm 256 */
obj_t BgL_arg3465z00_1119;
{ /* ./Ast/find-gdefs.scm 256 */
obj_t BgL_arg3468z00_1120;obj_t BgL_arg3469z00_1121;
{ /* ./Ast/find-gdefs.scm 256 */
obj_t BgL_auxz00_2548;
BgL_auxz00_2548 = 
CAR(BgL_bindingsz00_1113); 
BgL_arg3468z00_1120 = 
CAR(BgL_auxz00_2548); } 
BgL_arg3469z00_1121 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_expz00_22); 
BgL_arg3465z00_1119 = 
BGl_idzd2ofzd2idz00zzast_identz00(BgL_arg3468z00_1120, BgL_arg3469z00_1121); } 
BgL_arg3461z00_1117 = 
MAKE_PAIR(BgL_arg3465z00_1119, BgL_stackz00_1112); } 
BgL_arg3462z00_1118 = 
CDR(BgL_bindingsz00_1113); 
{ 
obj_t BgL_bindingsz00_2556;obj_t BgL_stackz00_2555;
BgL_stackz00_2555 = BgL_arg3461z00_1117; 
BgL_bindingsz00_2556 = BgL_arg3462z00_1118; 
BgL_bindingsz00_1113 = BgL_bindingsz00_2556; 
BgL_stackz00_1112 = BgL_stackz00_2555; 
goto BgL_loopz00_1114;} } }  else 
{ /* ./Ast/find-gdefs.scm 250 */
{ /* ./Ast/find-gdefs.scm 251 */
obj_t BgL_arg3478z00_1123;obj_t BgL_arg3479z00_1124;
{ /* ./Ast/find-gdefs.scm 251 */
obj_t BgL_arg3482z00_1125;
{ /* ./Ast/find-gdefs.scm 251 */
obj_t BgL_arg3485z00_1126;obj_t BgL_arg3486z00_1127;
BgL_arg3485z00_1126 = 
CAR(BgL_bindingsz00_1113); 
BgL_arg3486z00_1127 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_expz00_22); 
BgL_arg3482z00_1125 = 
BGl_idzd2ofzd2idz00zzast_identz00(BgL_arg3485z00_1126, BgL_arg3486z00_1127); } 
BgL_arg3478z00_1123 = 
MAKE_PAIR(BgL_arg3482z00_1125, BgL_stackz00_1112); } 
BgL_arg3479z00_1124 = 
CDR(BgL_bindingsz00_1113); 
{ 
obj_t BgL_bindingsz00_2563;obj_t BgL_stackz00_2562;
BgL_stackz00_2562 = BgL_arg3478z00_1123; 
BgL_bindingsz00_2563 = BgL_arg3479z00_1124; 
BgL_bindingsz00_1113 = BgL_bindingsz00_2563; 
BgL_stackz00_1112 = BgL_stackz00_2562; 
goto BgL_loopz00_1114;} } } } } } 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_bodyz00_891, BgL_newzd2stackzd2_1105); 
{ 
obj_t BgL_l2690z00_1106;
BgL_l2690z00_1106 = BgL_bindingsz00_890; 
BgL_forzd2each2691zd2_1107:
{ /* ./Ast/find-gdefs.scm 261 */
bool_t BgL_test3446z00_1108;
BgL_test3446z00_1108 = 
PAIRP(BgL_l2690z00_1106); 
if(BgL_test3446z00_1108)
{ /* ./Ast/find-gdefs.scm 261 */
{ /* ./Ast/find-gdefs.scm 261 */
obj_t BgL_bz00_1109;
BgL_bz00_1109 = 
CAR(BgL_l2690z00_1106); 
{ /* ./Ast/find-gdefs.scm 261 */
obj_t BgL_arg3448z00_1110;
BgL_arg3448z00_1110 = 
CDR(BgL_bz00_1109); 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3448z00_1110, BgL_newzd2stackzd2_1105); } } 
{ /* ./Ast/find-gdefs.scm 261 */
obj_t BgL_arg3453z00_1111;
BgL_arg3453z00_1111 = 
CDR(BgL_l2690z00_1106); 
{ 
obj_t BgL_l2690z00_2571;
BgL_l2690z00_2571 = BgL_arg3453z00_1111; 
BgL_l2690z00_1106 = BgL_l2690z00_2571; 
goto BgL_forzd2each2691zd2_1107;} } }  else 
{ /* ./Ast/find-gdefs.scm 261 */
BgL_auxz00_2541 = ((bool_t)1); } } } } 
return 
BBOOL(BgL_auxz00_2541);} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3144z00_983;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2575;obj_t BgL_auxz00_2573;
BgL_auxz00_2575 = 
CNST_TABLE_REF(((long)20)); 
BgL_auxz00_2573 = 
CAR(BgL_expz00_22); 
BgL_test3144z00_983 = 
(BgL_auxz00_2573==BgL_auxz00_2575); } 
if(BgL_test3144z00_983)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3145z00_984;
BgL_test3145z00_984 = 
PAIRP(BgL_cdrzd22623zd2_977); 
if(BgL_test3145z00_984)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3147z00_985;obj_t BgL_arg3148z00_986;
BgL_arg3147z00_985 = 
CAR(BgL_cdrzd22623zd2_977); 
BgL_arg3148z00_986 = 
CDR(BgL_cdrzd22623zd2_977); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2583;
BgL_bindingsz00_893 = BgL_arg3147z00_985; 
BgL_bodyz00_894 = BgL_arg3148z00_986; 
{ /* ./Ast/find-gdefs.scm 264 */
obj_t BgL_locz00_1129;
BgL_locz00_1129 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 264 */
obj_t BgL_newzd2stackzd2_1130;
{ /* ./Ast/find-gdefs.scm 265 */
obj_t BgL_arg3517z00_1139;
{ /* ./Ast/find-gdefs.scm 265 */
bool_t BgL_test3519z00_1141;
BgL_test3519z00_1141 = 
NULLP(BgL_bindingsz00_893); 
if(BgL_test3519z00_1141)
{ /* ./Ast/find-gdefs.scm 265 */
BgL_arg3517z00_1139 = BNIL; }  else 
{ /* ./Ast/find-gdefs.scm 265 */
obj_t BgL_head2694z00_1142;
{ /* ./Ast/find-gdefs.scm 265 */
obj_t BgL_arg3541z00_1153;
{ /* ./Ast/find-gdefs.scm 265 */
obj_t BgL_auxz00_2587;
BgL_auxz00_2587 = 
CAR(BgL_bindingsz00_893); 
BgL_arg3541z00_1153 = 
CAR(BgL_auxz00_2587); } 
BgL_head2694z00_1142 = 
MAKE_PAIR(BgL_arg3541z00_1153, BNIL); } 
{ 
obj_t BgL_l2692z00_1143;obj_t BgL_tail2695z00_1144;
{ /* ./Ast/find-gdefs.scm 265 */
obj_t BgL_arg3521z00_1146;
BgL_arg3521z00_1146 = 
CDR(BgL_bindingsz00_893); 
BgL_l2692z00_1143 = BgL_arg3521z00_1146; 
BgL_tail2695z00_1144 = BgL_head2694z00_1142; 
BgL_map2693z00_1145:
{ /* ./Ast/find-gdefs.scm 265 */
bool_t BgL_test3524z00_1147;
BgL_test3524z00_1147 = 
NULLP(BgL_l2692z00_1143); 
if(BgL_test3524z00_1147)
{ /* ./Ast/find-gdefs.scm 265 */
BgL_arg3517z00_1139 = BgL_head2694z00_1142; }  else 
{ /* ./Ast/find-gdefs.scm 265 */
obj_t BgL_newtail2696z00_1148;
{ /* ./Ast/find-gdefs.scm 265 */
obj_t BgL_arg3531z00_1150;
{ /* ./Ast/find-gdefs.scm 265 */
obj_t BgL_auxz00_2594;
BgL_auxz00_2594 = 
CAR(BgL_l2692z00_1143); 
BgL_arg3531z00_1150 = 
CAR(BgL_auxz00_2594); } 
BgL_newtail2696z00_1148 = 
MAKE_PAIR(BgL_arg3531z00_1150, BNIL); } 
SET_CDR(BgL_tail2695z00_1144, BgL_newtail2696z00_1148); 
{ /* ./Ast/find-gdefs.scm 265 */
obj_t BgL_arg3527z00_1149;
BgL_arg3527z00_1149 = 
CDR(BgL_l2692z00_1143); 
{ 
obj_t BgL_tail2695z00_2601;obj_t BgL_l2692z00_2600;
BgL_l2692z00_2600 = BgL_arg3527z00_1149; 
BgL_tail2695z00_2601 = BgL_newtail2696z00_1148; 
BgL_tail2695z00_1144 = BgL_tail2695z00_2601; 
BgL_l2692z00_1143 = BgL_l2692z00_2600; 
goto BgL_map2693z00_1145;} } } } } } } } 
BgL_newzd2stackzd2_1130 = 
BGl_pushzd2argszd2zzast_findzd2gdefszd2(BgL_arg3517z00_1139, BgL_stackz00_23, BgL_locz00_1129); } 
{ /* ./Ast/find-gdefs.scm 265 */

BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_bodyz00_894, BgL_newzd2stackzd2_1130); 
{ 
obj_t BgL_l2697z00_1131;
BgL_l2697z00_1131 = BgL_bindingsz00_893; 
BgL_forzd2each2698zd2_1132:
{ /* ./Ast/find-gdefs.scm 267 */
bool_t BgL_test3498z00_1133;
BgL_test3498z00_1133 = 
PAIRP(BgL_l2697z00_1131); 
if(BgL_test3498z00_1133)
{ /* ./Ast/find-gdefs.scm 267 */
{ /* ./Ast/find-gdefs.scm 268 */
obj_t BgL_bz00_1134;
BgL_bz00_1134 = 
CAR(BgL_l2697z00_1131); 
{ /* ./Ast/find-gdefs.scm 268 */
obj_t BgL_arg3500z00_1135;obj_t BgL_arg3501z00_1136;
{ /* ./Ast/find-gdefs.scm 268 */
obj_t BgL_auxz00_2607;
BgL_auxz00_2607 = 
CDR(BgL_bz00_1134); 
BgL_arg3500z00_1135 = 
CDR(BgL_auxz00_2607); } 
{ /* ./Ast/find-gdefs.scm 269 */
obj_t BgL_arg3506z00_1137;
{ /* ./Ast/find-gdefs.scm 269 */
obj_t BgL_auxz00_2610;
BgL_auxz00_2610 = 
CDR(BgL_bz00_1134); 
BgL_arg3506z00_1137 = 
CAR(BgL_auxz00_2610); } 
BgL_arg3501z00_1136 = 
BGl_pushzd2argszd2zzast_findzd2gdefszd2(BgL_arg3506z00_1137, BgL_newzd2stackzd2_1130, BgL_locz00_1129); } 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3500z00_1135, BgL_arg3501z00_1136); } } 
{ /* ./Ast/find-gdefs.scm 267 */
obj_t BgL_arg3511z00_1138;
BgL_arg3511z00_1138 = 
CDR(BgL_l2697z00_1131); 
{ 
obj_t BgL_l2697z00_2616;
BgL_l2697z00_2616 = BgL_arg3511z00_1138; 
BgL_l2697z00_1131 = BgL_l2697z00_2616; 
goto BgL_forzd2each2698zd2_1132;} } }  else 
{ /* ./Ast/find-gdefs.scm 267 */
BgL_auxz00_2583 = ((bool_t)1); } } } } } } 
return 
BBOOL(BgL_auxz00_2583);} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd22789zd2_987;
BgL_cdrzd22789zd2_987 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3154z00_988;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2621;obj_t BgL_auxz00_2619;
BgL_auxz00_2621 = 
CNST_TABLE_REF(((long)14)); 
BgL_auxz00_2619 = 
CAR(BgL_expz00_22); 
BgL_test3154z00_988 = 
(BgL_auxz00_2619==BgL_auxz00_2621); } 
if(BgL_test3154z00_988)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3155z00_989;
BgL_test3155z00_989 = 
PAIRP(BgL_cdrzd22789zd2_987); 
if(BgL_test3155z00_989)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3157z00_990;obj_t BgL_arg3158z00_991;
BgL_arg3157z00_990 = 
CAR(BgL_cdrzd22789zd2_987); 
BgL_arg3158z00_991 = 
CDR(BgL_cdrzd22789zd2_987); 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3552z00_1821;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3556z00_1822;
BgL_arg3556z00_1822 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_expz00_22); 
BgL_arg3552z00_1821 = 
BGl_pushzd2argszd2zzast_findzd2gdefszd2(BgL_arg3157z00_990, BgL_stackz00_23, BgL_arg3556z00_1822); } 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2631;
BgL_auxz00_2631 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3158z00_991, BgL_arg3552z00_1821); 
return 
BBOOL(BgL_auxz00_2631);} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3164z00_993;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2636;obj_t BgL_auxz00_2634;
BgL_auxz00_2636 = 
CNST_TABLE_REF(((long)21)); 
BgL_auxz00_2634 = 
CAR(BgL_expz00_22); 
BgL_test3164z00_993 = 
(BgL_auxz00_2634==BgL_auxz00_2636); } 
if(BgL_test3164z00_993)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3165z00_994;
BgL_test3165z00_994 = 
PAIRP(BgL_cdrzd22789zd2_987); 
if(BgL_test3165z00_994)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3167z00_995;obj_t BgL_arg3168z00_996;
BgL_arg3167z00_995 = 
CAR(BgL_cdrzd22789zd2_987); 
BgL_arg3168z00_996 = 
CDR(BgL_cdrzd22789zd2_987); 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3560z00_1830;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3563z00_1831;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3566z00_1832;
BgL_arg3566z00_1832 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_expz00_22); 
BgL_arg3563z00_1831 = 
BGl_idzd2ofzd2idz00zzast_identz00(BgL_arg3167z00_995, BgL_arg3566z00_1832); } 
BgL_arg3560z00_1830 = 
MAKE_PAIR(BgL_arg3563z00_1831, BgL_stackz00_23); } 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2647;
BgL_auxz00_2647 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3168z00_996, BgL_arg3560z00_1830); 
return 
BBOOL(BgL_auxz00_2647);} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd22912zd2_997;
BgL_cdrzd22912zd2_997 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3174z00_998;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2653;obj_t BgL_auxz00_2651;
BgL_auxz00_2653 = 
CNST_TABLE_REF(((long)22)); 
BgL_auxz00_2651 = 
CAR(BgL_expz00_22); 
BgL_test3174z00_998 = 
(BgL_auxz00_2651==BgL_auxz00_2653); } 
if(BgL_test3174z00_998)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3175z00_999;
BgL_test3175z00_999 = 
PAIRP(BgL_cdrzd22912zd2_997); 
if(BgL_test3175z00_999)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd22916zd2_1000;
BgL_cdrzd22916zd2_1000 = 
CDR(BgL_cdrzd22912zd2_997); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3176z00_1001;
BgL_test3176z00_1001 = 
PAIRP(BgL_cdrzd22916zd2_1000); 
if(BgL_test3176z00_1001)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3177z00_1002;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2662;
BgL_auxz00_2662 = 
CDR(BgL_cdrzd22916zd2_1000); 
BgL_test3177z00_1002 = 
NULLP(BgL_auxz00_2662); } 
if(BgL_test3177z00_1002)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3179z00_1003;obj_t BgL_arg3180z00_1004;
BgL_arg3179z00_1003 = 
CAR(BgL_cdrzd22912zd2_997); 
BgL_arg3180z00_1004 = 
CAR(BgL_cdrzd22916zd2_1000); 
BGl_findzd21zd2mutationsz12z12zzast_findzd2gdefszd2(BgL_arg3179z00_1003, BgL_stackz00_23); 
{ 
obj_t BgL_expz00_2669;
BgL_expz00_2669 = BgL_arg3180z00_1004; 
BgL_expz00_22 = BgL_expz00_2669; 
goto BGl_findzd21zd2mutationsz12z12zzast_findzd2gdefszd2;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3194z00_1007;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2672;obj_t BgL_auxz00_2670;
BgL_auxz00_2672 = 
CNST_TABLE_REF(((long)23)); 
BgL_auxz00_2670 = 
CAR(BgL_expz00_22); 
BgL_test3194z00_1007 = 
(BgL_auxz00_2670==BgL_auxz00_2672); } 
if(BgL_test3194z00_1007)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3195z00_1008;
BgL_test3195z00_1008 = 
PAIRP(BgL_cdrzd22912zd2_997); 
if(BgL_test3195z00_1008)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd23024zd2_1009;
BgL_cdrzd23024zd2_1009 = 
CDR(BgL_cdrzd22912zd2_997); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3196z00_1010;
BgL_test3196z00_1010 = 
PAIRP(BgL_cdrzd23024zd2_1009); 
if(BgL_test3196z00_1010)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3197z00_1011;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2681;
BgL_auxz00_2681 = 
CDR(BgL_cdrzd23024zd2_1009); 
BgL_test3197z00_1011 = 
NULLP(BgL_auxz00_2681); } 
if(BgL_test3197z00_1011)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3199z00_1012;obj_t BgL_arg3201z00_1013;
BgL_arg3199z00_1012 = 
CAR(BgL_cdrzd22912zd2_997); 
BgL_arg3201z00_1013 = 
CAR(BgL_cdrzd23024zd2_1009); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2687;
BgL_valz00_905 = BgL_arg3199z00_1012; 
BgL_clausesz00_906 = BgL_arg3201z00_1013; 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_valz00_905, BgL_stackz00_23); 
{ 
obj_t BgL_l2699z00_1161;
BgL_l2699z00_1161 = BgL_clausesz00_906; 
BgL_forzd2each2700zd2_1162:
{ /* ./Ast/find-gdefs.scm 280 */
bool_t BgL_test3573z00_1163;
BgL_test3573z00_1163 = 
PAIRP(BgL_l2699z00_1161); 
if(BgL_test3573z00_1163)
{ /* ./Ast/find-gdefs.scm 280 */
{ /* ./Ast/find-gdefs.scm 280 */
obj_t BgL_cz00_1164;
BgL_cz00_1164 = 
CAR(BgL_l2699z00_1161); 
{ /* ./Ast/find-gdefs.scm 280 */
obj_t BgL_arg3575z00_1165;
BgL_arg3575z00_1165 = 
CDR(BgL_cz00_1164); 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3575z00_1165, BgL_stackz00_23); } } 
{ /* ./Ast/find-gdefs.scm 280 */
obj_t BgL_arg3580z00_1166;
BgL_arg3580z00_1166 = 
CDR(BgL_l2699z00_1161); 
{ 
obj_t BgL_l2699z00_2695;
BgL_l2699z00_2695 = BgL_arg3580z00_1166; 
BgL_l2699z00_1161 = BgL_l2699z00_2695; 
goto BgL_forzd2each2700zd2_1162;} } }  else 
{ /* ./Ast/find-gdefs.scm 280 */
BgL_auxz00_2687 = ((bool_t)1); } } } 
return 
BBOOL(BgL_auxz00_2687);} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3215z00_1015;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2699;obj_t BgL_auxz00_2697;
BgL_auxz00_2699 = 
CNST_TABLE_REF(((long)24)); 
BgL_auxz00_2697 = 
CAR(BgL_expz00_22); 
BgL_test3215z00_1015 = 
(BgL_auxz00_2697==BgL_auxz00_2699); } 
if(BgL_test3215z00_1015)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3217z00_1016;
BgL_arg3217z00_1016 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2704;
BgL_auxz00_2704 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3217z00_1016, BgL_stackz00_23); 
return 
BBOOL(BgL_auxz00_2704);} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd23112zd2_1017;
BgL_cdrzd23112zd2_1017 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3220z00_1018;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2710;obj_t BgL_auxz00_2708;
BgL_auxz00_2710 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2708 = 
CAR(BgL_expz00_22); 
BgL_test3220z00_1018 = 
(BgL_auxz00_2708==BgL_auxz00_2710); } 
if(BgL_test3220z00_1018)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3221z00_1019;
BgL_test3221z00_1019 = 
PAIRP(BgL_cdrzd23112zd2_1017); 
if(BgL_test3221z00_1019)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3223z00_1020;obj_t BgL_arg3224z00_1021;
BgL_arg3223z00_1020 = 
CAR(BgL_cdrzd23112zd2_1017); 
BgL_arg3224z00_1021 = 
CDR(BgL_cdrzd23112zd2_1017); 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3586z00_1863;
BgL_arg3586z00_1863 = 
MAKE_PAIR(BgL_arg3223z00_1020, BgL_stackz00_23); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2719;
BgL_auxz00_2719 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3224z00_1021, BgL_arg3586z00_1863); 
return 
BBOOL(BgL_auxz00_2719);} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3230z00_1023;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2724;obj_t BgL_auxz00_2722;
BgL_auxz00_2724 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2722 = 
CAR(BgL_expz00_22); 
BgL_test3230z00_1023 = 
(BgL_auxz00_2722==BgL_auxz00_2724); } 
if(BgL_test3230z00_1023)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3231z00_1024;
BgL_test3231z00_1024 = 
PAIRP(BgL_cdrzd23112zd2_1017); 
if(BgL_test3231z00_1024)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3233z00_1025;obj_t BgL_arg3234z00_1026;
BgL_arg3233z00_1025 = 
CAR(BgL_cdrzd23112zd2_1017); 
BgL_arg3234z00_1026 = 
CDR(BgL_cdrzd23112zd2_1017); 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_list3590z00_1871;
BgL_list3590z00_1871 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BgL_arg3233z00_1025, BGl_string4116z00zzast_findzd2gdefszd2, BgL_arg3234z00_1026, BgL_list3590z00_1871);} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_cdrzd23161zd2_1027;
BgL_cdrzd23161zd2_1027 = 
CDR(BgL_expz00_22); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3240z00_1028;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2737;obj_t BgL_auxz00_2735;
BgL_auxz00_2737 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_2735 = 
CAR(BgL_expz00_22); 
BgL_test3240z00_1028 = 
(BgL_auxz00_2735==BgL_auxz00_2737); } 
if(BgL_test3240z00_1028)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3241z00_1029;
BgL_test3241z00_1029 = 
PAIRP(BgL_cdrzd23161zd2_1027); 
if(BgL_test3241z00_1029)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3243z00_1030;obj_t BgL_arg3245z00_1031;
BgL_arg3243z00_1030 = 
CAR(BgL_cdrzd23161zd2_1027); 
BgL_arg3245z00_1031 = 
CDR(BgL_cdrzd23161zd2_1027); 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_list3593z00_1879;
BgL_list3593z00_1879 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BgL_arg3243z00_1030, BGl_string4117z00zzast_findzd2gdefszd2, BgL_arg3245z00_1031, BgL_list3593z00_1879);} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3251z00_1033;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_auxz00_2749;obj_t BgL_auxz00_2747;
BgL_auxz00_2749 = 
CNST_TABLE_REF(((long)7)); 
BgL_auxz00_2747 = 
CAR(BgL_expz00_22); 
BgL_test3251z00_1033 = 
(BgL_auxz00_2747==BgL_auxz00_2749); } 
if(BgL_test3251z00_1033)
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3252z00_1034;
BgL_test3252z00_1034 = 
PAIRP(BgL_cdrzd23161zd2_1027); 
if(BgL_test3252z00_1034)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_carzd23180zd2_1035;
BgL_carzd23180zd2_1035 = 
CAR(BgL_cdrzd23161zd2_1027); 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_test3253z00_1036;
BgL_test3253z00_1036 = 
PAIRP(BgL_carzd23180zd2_1035); 
if(BgL_test3253z00_1036)
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3255z00_1037;obj_t BgL_arg3257z00_1038;
BgL_arg3255z00_1037 = 
CDR(BgL_carzd23180zd2_1035); 
BgL_arg3257z00_1038 = 
CDR(BgL_cdrzd23161zd2_1027); 
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3596z00_1889;
{ /* ./Ast/find-gdefs.scm 201 */
obj_t BgL_arg3599z00_1890;
BgL_arg3599z00_1890 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_expz00_22); 
BgL_arg3596z00_1889 = 
BGl_pushzd2argszd2zzast_findzd2gdefszd2(BgL_arg3255z00_1037, BgL_stackz00_23, BgL_arg3599z00_1890); } 
{ /* ./Ast/find-gdefs.scm 201 */
bool_t BgL_auxz00_2762;
BgL_auxz00_2762 = 
BGl_findzd2mutationsz12zc0zzast_findzd2gdefszd2(BgL_arg3257z00_1038, BgL_arg3596z00_1889); 
return 
BBOOL(BgL_auxz00_2762);} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} }  else 
{ /* ./Ast/find-gdefs.scm 201 */
goto BgL_tagzd2373zd2_922;} } } } } } } } } } } } } } } } } } } } } } } } } } }  else 
{ /* ./Ast/find-gdefs.scm 201 */
return 
CNST_TABLE_REF(((long)8));} } } } 
}



/* push-args */
obj_t BGl_pushzd2argszd2zzast_findzd2gdefszd2(obj_t BgL_exprz00_24, obj_t BgL_listz00_25, obj_t BgL_locz00_26)
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 323 */
{ 
obj_t BgL_exprz00_1194;obj_t BgL_listz00_1195;bool_t BgL_dssslz00_1196;
BgL_exprz00_1194 = BgL_exprz00_24; 
BgL_listz00_1195 = BgL_listz00_25; 
BgL_dssslz00_1196 = ((bool_t)0); 
BgL_loopz00_1197:
{ /* ./Ast/find-gdefs.scm 328 */
bool_t BgL_test3638z00_1198;
BgL_test3638z00_1198 = 
NULLP(BgL_exprz00_1194); 
if(BgL_test3638z00_1198)
{ /* ./Ast/find-gdefs.scm 328 */
return BgL_listz00_1195;}  else 
{ /* ./Ast/find-gdefs.scm 330 */
bool_t BgL_test3639z00_1199;
BgL_test3639z00_1199 = 
PAIRP(BgL_exprz00_1194); 
if(BgL_test3639z00_1199)
{ /* ./Ast/find-gdefs.scm 340 */
bool_t BgL_test3640z00_1200;
{ /* ./Ast/find-gdefs.scm 340 */
obj_t BgL_auxz00_2770;
BgL_auxz00_2770 = 
CAR(BgL_exprz00_1194); 
BgL_test3640z00_1200 = 
SYMBOLP(BgL_auxz00_2770); } 
if(BgL_test3640z00_1200)
{ /* ./Ast/find-gdefs.scm 340 */
{ /* ./Ast/find-gdefs.scm 358 */
obj_t BgL_arg3642z00_1201;obj_t BgL_arg3643z00_1202;
BgL_arg3642z00_1201 = 
CDR(BgL_exprz00_1194); 
{ /* ./Ast/find-gdefs.scm 359 */
obj_t BgL_arg3647z00_1203;
{ /* ./Ast/find-gdefs.scm 359 */
obj_t BgL_arg3650z00_1204;
BgL_arg3650z00_1204 = 
CAR(BgL_exprz00_1194); 
BgL_arg3647z00_1203 = 
BGl_idzd2ofzd2idz00zzast_identz00(BgL_arg3650z00_1204, BgL_locz00_26); } 
BgL_arg3643z00_1202 = 
MAKE_PAIR(BgL_arg3647z00_1203, BgL_listz00_1195); } 
{ 
obj_t BgL_listz00_2779;obj_t BgL_exprz00_2778;
BgL_exprz00_2778 = BgL_arg3642z00_1201; 
BgL_listz00_2779 = BgL_arg3643z00_1202; 
BgL_listz00_1195 = BgL_listz00_2779; 
BgL_exprz00_1194 = BgL_exprz00_2778; 
goto BgL_loopz00_1197;} } }  else 
{ /* ./Ast/find-gdefs.scm 340 */
{ /* ./Ast/find-gdefs.scm 342 */
bool_t BgL_test3653z00_1205;
{ /* ./Ast/find-gdefs.scm 342 */
obj_t BgL_arg3683z00_1216;
BgL_arg3683z00_1216 = 
CAR(BgL_exprz00_1194); 
{ /* ./Ast/find-gdefs.scm 342 */
obj_t BgL_auxz00_2781;
BgL_auxz00_2781 = 
BGl_dssslzd2namedzd2constantzf3zf3zztools_dssslz00(BgL_arg3683z00_1216); 
BgL_test3653z00_1205 = 
CBOOL(BgL_auxz00_2781); } } 
if(BgL_test3653z00_1205)
{ /* ./Ast/find-gdefs.scm 342 */
{ /* ./Ast/find-gdefs.scm 343 */
obj_t BgL_arg3655z00_1206;
BgL_arg3655z00_1206 = 
CDR(BgL_exprz00_1194); 
{ 
bool_t BgL_dssslz00_2787;obj_t BgL_exprz00_2786;
BgL_exprz00_2786 = BgL_arg3655z00_1206; 
BgL_dssslz00_2787 = ((bool_t)1); 
BgL_dssslz00_1196 = BgL_dssslz00_2787; 
BgL_exprz00_1194 = BgL_exprz00_2786; 
goto BgL_loopz00_1197;} } }  else 
{ /* ./Ast/find-gdefs.scm 342 */
if(BgL_dssslz00_1196)
{ /* ./Ast/find-gdefs.scm 348 */
bool_t BgL_test3658z00_1207;
{ /* ./Ast/find-gdefs.scm 348 */
obj_t BgL_arg3677z00_1214;
BgL_arg3677z00_1214 = 
CAR(BgL_exprz00_1194); 
{ /* ./Ast/find-gdefs.scm 348 */
obj_t BgL_auxz00_2790;
BgL_auxz00_2790 = 
BGl_dssslzd2defaultedzd2formalzf3zf3zztools_dssslz00(BgL_arg3677z00_1214); 
BgL_test3658z00_1207 = 
CBOOL(BgL_auxz00_2790); } } 
if(BgL_test3658z00_1207)
{ /* ./Ast/find-gdefs.scm 348 */
{ /* ./Ast/find-gdefs.scm 349 */
obj_t BgL_arg3660z00_1208;obj_t BgL_arg3661z00_1209;
BgL_arg3660z00_1208 = 
CDR(BgL_exprz00_1194); 
{ /* ./Ast/find-gdefs.scm 350 */
obj_t BgL_arg3665z00_1210;
{ /* ./Ast/find-gdefs.scm 350 */
obj_t BgL_arg3668z00_1211;
{ /* ./Ast/find-gdefs.scm 350 */
obj_t BgL_arg3671z00_1212;
BgL_arg3671z00_1212 = 
CAR(BgL_exprz00_1194); 
BgL_arg3668z00_1211 = 
BGl_dssslzd2defaultzd2formalz00zztools_dssslz00(BgL_arg3671z00_1212); } 
BgL_arg3665z00_1210 = 
BGl_idzd2ofzd2idz00zzast_identz00(BgL_arg3668z00_1211, BgL_locz00_26); } 
BgL_arg3661z00_1209 = 
MAKE_PAIR(BgL_arg3665z00_1210, BgL_listz00_1195); } 
{ 
bool_t BgL_dssslz00_2801;obj_t BgL_listz00_2800;obj_t BgL_exprz00_2799;
BgL_exprz00_2799 = BgL_arg3660z00_1208; 
BgL_listz00_2800 = BgL_arg3661z00_1209; 
BgL_dssslz00_2801 = ((bool_t)1); 
BgL_dssslz00_1196 = BgL_dssslz00_2801; 
BgL_listz00_1195 = BgL_listz00_2800; 
BgL_exprz00_1194 = BgL_exprz00_2799; 
goto BgL_loopz00_1197;} } }  else 
{ /* ./Ast/find-gdefs.scm 348 */
return 
BGl_userzd2errorzd2zztools_errorz00(BgL_exprz00_1194, BGl_string4118z00zzast_findzd2gdefszd2, BGl_string4119z00zzast_findzd2gdefszd2, BNIL);} }  else 
{ /* ./Ast/find-gdefs.scm 344 */
return 
BGl_userzd2errorzd2zztools_errorz00(BgL_exprz00_1194, BGl_string4118z00zzast_findzd2gdefszd2, BGl_string4120z00zzast_findzd2gdefszd2, BNIL);} } } } }  else 
{ /* ./Ast/find-gdefs.scm 330 */
if(BgL_dssslz00_1196)
{ /* ./Ast/find-gdefs.scm 332 */
return 
BGl_userzd2errorzd2zztools_errorz00(BgL_exprz00_1194, BGl_string4121z00zzast_findzd2gdefszd2, BGl_string4122z00zzast_findzd2gdefszd2, BNIL);}  else 
{ /* ./Ast/find-gdefs.scm 336 */
bool_t BgL_test3692z00_1219;
BgL_test3692z00_1219 = 
SYMBOLP(BgL_exprz00_1194); 
if(BgL_test3692z00_1219)
{ /* ./Ast/find-gdefs.scm 336 */
{ /* ./Ast/find-gdefs.scm 339 */
obj_t BgL_arg3694z00_1220;
BgL_arg3694z00_1220 = 
BGl_idzd2ofzd2idz00zzast_identz00(BgL_exprz00_1194, BgL_locz00_26); 
return 
MAKE_PAIR(BgL_arg3694z00_1220, BgL_listz00_1195);} }  else 
{ /* ./Ast/find-gdefs.scm 336 */
return 
BGl_userzd2errorzd2zztools_errorz00(BgL_exprz00_1194, BGl_string4118z00zzast_findzd2gdefszd2, BGl_string4120z00zzast_findzd2gdefszd2, BNIL);} } } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzast_findzd2gdefszd2()
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 23 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzast_findzd2gdefszd2()
{ AN_OBJECT;
{ /* ./Ast/find-gdefs.scm 23 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zztools_dssslz00(((long)55629), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zztools_argsz00(((long)42726), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "ast_find-gdefs"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "ast_find-gdefs"); 
return 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "ast_find-gdefs");} 
}

