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

#include <bigloo.h>


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


static obj_t BGl_methodzd2initzd2zzreduce_condz00();
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_nodezd2condz12zd2var2711z12zzreduce_condz00(obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_nodezd2condz12zd2conditional2729z12zzreduce_condz00(obj_t, obj_t);
static obj_t BGl_nodezd2condz12zd2boxzd2ref2748zc0zzreduce_condz00(obj_t, obj_t);
static obj_t BGl_nodezd2condz12zd2atom2707z12zzreduce_condz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_nodezd2condz12zd2sequence2715z12zzreduce_condz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_reducezd2conditionalz12zc0zzreduce_condz00(obj_t);
static obj_t BGl__reducezd2conditionalz12zc0zzreduce_condz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_nodezd2condz12zd2appzd2ly2719zc0zzreduce_condz00(obj_t, obj_t);
static BgL_nodez00_bglt BGl_nodezd2condz12zd2default2704z12zzreduce_condz00(BgL_nodez00_bglt);
static obj_t BGl_nodezd2condz12zd2setq2727z12zzreduce_condz00(obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzreduce_condz00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_nodezd2condz12zd2select2733z12zzreduce_condz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzreduce_condz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2condz12zd2closure2713z12zzreduce_condz00(obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_nodezd2condz12zd2letzd2var2737zc0zzreduce_condz00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzreduce_condz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzreduce_condz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(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 *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
static obj_t BGl_nodezd2condz12zd2funcall2721z12zzreduce_condz00(obj_t, obj_t);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
static obj_t BGl_nodezd2condz12zd2app2717z12zzreduce_condz00(obj_t, obj_t);
static obj_t BGl_nodezd2condz12zd2setzd2exzd2it2740z12zzreduce_condz00(obj_t, obj_t);
static obj_t BGl_nodezd2condz12zd2cast2725z12zzreduce_condz00(obj_t, obj_t);
static obj_t BGl__nodezd2condz12zc0zzreduce_condz00(obj_t, obj_t);
static obj_t BGl_nodezd2condz12zd2letzd2fun2735zc0zzreduce_condz00(obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_nodezd2condz12zd2kwote2709z12zzreduce_condz00(obj_t, obj_t);
static long BGl_za2condzd2reducedza2zd2zzreduce_condz00;
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl__nodezd2condz12zd2default2704z12zzreduce_condz00(obj_t, obj_t);
static obj_t BGl_nodezd2condz12zd2extern2723z12zzreduce_condz00(obj_t, obj_t);
static obj_t BGl_nodezd2condz12zd2makezd2box2744zc0zzreduce_condz00(obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_nodezd2condza2z12z62zzreduce_condz00(obj_t);
static obj_t BGl_nodezd2condz12zd2boxzd2setz122746zd2zzreduce_condz00(obj_t, obj_t);
extern obj_t BGl_closurez00zzast_nodez00;
static obj_t BGl_nodezd2condz12zd2fail2731z12zzreduce_condz00(obj_t, obj_t);
static BgL_nodez00_bglt BGl_nodezd2condz12zc0zzreduce_condz00(BgL_nodez00_bglt);
static obj_t BGl_requirezd2initializa7ationz75zzreduce_condz00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzreduce_condz00();
static obj_t BGl_nodezd2condz12zd2jumpzd2exzd2it2742z12zzreduce_condz00(obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 2 ] ;


DEFINE_STATIC_PROCEDURE( BGl_proc4055z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2atom2707za712za7za7reduce_condza7004107za7, BGl_nodezd2condz12zd2atom2707z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4056z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2kwote2709za712za7za7reduce_condza7004108za7, BGl_nodezd2condz12zd2kwote2709z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4057z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2var2711za712za7za7reduce_condza7004109za7, BGl_nodezd2condz12zd2var2711z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4058z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2closure2713za712za7za7reduce_condza7004110za7, BGl_nodezd2condz12zd2closure2713z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4060z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2app2717za712za7za7reduce_condza7004111za7, BGl_nodezd2condz12zd2app2717z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4059z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2sequence2715za712za7za7reduce_condza7004112za7, BGl_nodezd2condz12zd2sequence2715z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4061z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2appza7d2ly2719za7c0za7za7reduce_condza7004113z00, BGl_nodezd2condz12zd2appzd2ly2719zc0zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4062z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2funcall2721za712za7za7reduce_condza7004114za7, BGl_nodezd2condz12zd2funcall2721z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4063z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2extern2723za712za7za7reduce_condza7004115za7, BGl_nodezd2condz12zd2extern2723z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4064z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2cast2725za712za7za7reduce_condza7004116za7, BGl_nodezd2condz12zd2cast2725z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4065z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2setq2727za712za7za7reduce_condza7004117za7, BGl_nodezd2condz12zd2setq2727z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4066z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2conditional2729za712za7za7reduce_condza7004118za7, BGl_nodezd2condz12zd2conditional2729z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4067z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2fail2731za712za7za7reduce_condza7004119za7, BGl_nodezd2condz12zd2fail2731z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4068z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2select2733za712za7za7reduce_condza7004120za7, BGl_nodezd2condz12zd2select2733z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4070z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2letza7d2var2737za7c0za7za7reduce_condza7004121z00, BGl_nodezd2condz12zd2letzd2var2737zc0zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4069z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2letza7d2fun2735za7c0za7za7reduce_condza7004122z00, BGl_nodezd2condz12zd2letzd2fun2735zc0zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4071z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2setza7d2exza7d2it2740za712za7za7reduce_condza7004123za7, BGl_nodezd2condz12zd2setzd2exzd2it2740z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4072z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2jumpza7d2exza7d2it2742za712za7za7reduce_condza7004124za7, BGl_nodezd2condz12zd2jumpzd2exzd2it2742z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4073z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2makeza7d2box2744za7c0za7za7reduce_condza7004125z00, BGl_nodezd2condz12zd2makezd2box2744zc0zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4074z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2boxza7d2setza7122746za7d2za7za7reduce_condza7004126za7, BGl_nodezd2condz12zd2boxzd2setz122746zd2zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4075z00zzreduce_condz00, BgL_bgl_nodeza7d2condza712za7d2boxza7d2ref2748za7c0za7za7reduce_condza7004127z00, BGl_nodezd2condz12zd2boxzd2ref2748zc0zzreduce_condz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_reducezd2conditionalz12zd2envz12zzreduce_condz00, BgL_bgl__reduceza7d2conditionalza712za7c0za7za7reduce_condza7004128z00, BGl__reducezd2conditionalz12zc0zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_nodezd2condz12zd2default2704zd2envzc0zzreduce_condz00, BgL_bgl__nodeza7d2condza712za7d2default2704za712za7za7reduce_condza7004129za7, BGl__nodezd2condz12zd2default2704z12zzreduce_condz00, 0L, 1 );
DEFINE_STATIC_GENERIC( BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_bgl__nodeza7d2condza712za7c0za7za7reduce_condza7004130z00, BGl__nodezd2condz12zc0zzreduce_condz00, 0L, 1 );
DEFINE_STRING( BGl_string4077z00zzreduce_condz00, BgL_bgl_string4077za700za7za7reduce_condza7004131z00, "node-cond!-default2704 done ", 28 );
DEFINE_STRING( BGl_string4076z00zzreduce_condz00, BgL_bgl_string4076za700za7za7reduce_condza7004132z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string4054z00zzreduce_condz00, BgL_bgl_string4054za700za7za7reduce_condza7004133z00, "(reduced : ", 11 );
DEFINE_STRING( BGl_string4053z00zzreduce_condz00, BgL_bgl_string4053za700za7za7reduce_condza7004134z00, "      conditional expression ", 29 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzreduce_condz00(long BgL_checksumz00_2251, char * BgL_fromz00_2252)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzreduce_condz00))
{ 
BGl_requirezd2initializa7ationz75zzreduce_condz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzreduce_condz00(); 
BGl_cnstzd2initzd2zzreduce_condz00(); 
BGl_importedzd2moduleszd2initz00zzreduce_condz00(); 
BGl_methodzd2initzd2zzreduce_condz00(); 
BGl_toplevelzd2initzd2zzreduce_condz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzreduce_condz00()
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "reduce_cond"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "reduce_cond"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzreduce_condz00()
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 15 */
{ /* ./Reduce/cond.scm 15 */
obj_t BgL_cportz00_2236;
BgL_cportz00_2236 = 
open_input_string(BGl_string4077z00zzreduce_condz00); 
{ 
long BgL_iz00_2237;
BgL_iz00_2237 = ((long)1); 
BgL_loopz00_2238:
{ /* ./Reduce/cond.scm 15 */
bool_t BgL_test4079z00_2239;
BgL_test4079z00_2239 = 
(BgL_iz00_2237==((long)-1)); 
if(BgL_test4079z00_2239)
{ /* ./Reduce/cond.scm 15 */
return BUNSPEC;}  else 
{ /* ./Reduce/cond.scm 15 */
{ /* ./Reduce/cond.scm 15 */
obj_t BgL_arg4081z00_2240;
{ /* ./Reduce/cond.scm 15 */
obj_t BgL_list4084z00_2241;
BgL_list4084z00_2241 = 
MAKE_PAIR(BgL_cportz00_2236, BNIL); 
BgL_arg4081z00_2240 = 
BGl_readz00zz__readerz00(BgL_list4084z00_2241); } 
{ /* ./Reduce/cond.scm 15 */
int BgL_auxz00_2268;
BgL_auxz00_2268 = 
(int)(BgL_iz00_2237); 
CNST_TABLE_SET(BgL_auxz00_2268, BgL_arg4081z00_2240); } } 
{ /* ./Reduce/cond.scm 15 */
int BgL_auxz00_2242;
{ /* ./Reduce/cond.scm 15 */
long BgL_auxz00_2271;
BgL_auxz00_2271 = 
(BgL_iz00_2237-((long)1)); 
BgL_auxz00_2242 = 
(int)(BgL_auxz00_2271); } 
{ 
long BgL_iz00_2274;
BgL_iz00_2274 = 
(long)(BgL_auxz00_2242); 
BgL_iz00_2237 = BgL_iz00_2274; 
goto BgL_loopz00_2238;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzreduce_condz00()
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 15 */
BGl_za2condzd2reducedza2zd2zzreduce_condz00 = ((long)0); 
return BUNSPEC;} 
}



/* reduce-conditional! */
BGL_EXPORTED_DEF obj_t BGl_reducezd2conditionalz12zc0zzreduce_condz00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 28 */
{ /* ./Reduce/cond.scm 29 */
obj_t BgL_list2750z00_683;
BgL_list2750z00_683 = 
MAKE_PAIR(BGl_string4053z00zzreduce_condz00, BNIL); 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2750z00_683); } 
{ 
obj_t BgL_l2662z00_684;
BgL_l2662z00_684 = BgL_globalsz00_1; 
BgL_forzd2each2663zd2_685:
{ /* ./Reduce/cond.scm 30 */
bool_t BgL_test2753z00_686;
BgL_test2753z00_686 = 
PAIRP(BgL_l2662z00_684); 
if(BgL_test2753z00_686)
{ /* ./Reduce/cond.scm 30 */
{ /* ./Reduce/cond.scm 31 */
obj_t BgL_globalz00_687;
BgL_globalz00_687 = 
CAR(BgL_l2662z00_684); 
{ /* ./Reduce/cond.scm 31 */
BgL_valuez00_bglt BgL_funz00_688;
{ /* ./Reduce/cond.scm 31 */
BgL_variablez00_bglt BgL_obj1100z00_1264;
BgL_obj1100z00_1264 = 
(BgL_variablez00_bglt)(BgL_globalz00_687); 
BgL_funz00_688 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1264))->BgL_valuez00); } 
{ /* ./Reduce/cond.scm 31 */
obj_t BgL_nodez00_689;
{ /* ./Reduce/cond.scm 32 */
BgL_sfunz00_bglt BgL_obj1370z00_1265;
BgL_obj1370z00_1265 = 
(BgL_sfunz00_bglt)(BgL_funz00_688); 
BgL_nodez00_689 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1265))->BgL_bodyz00); } 
{ /* ./Reduce/cond.scm 32 */

{ /* ./Reduce/cond.scm 33 */
BgL_nodez00_bglt BgL_arg2755z00_690;
{ /* ./Reduce/cond.scm 33 */
BgL_nodez00_bglt BgL_res3492z00_1292;
{ /* ./Reduce/cond.scm 33 */
BgL_nodez00_bglt BgL_nodez00_1266;
BgL_nodez00_1266 = 
(BgL_nodez00_bglt)(BgL_nodez00_689); 
{ /* ./Reduce/cond.scm 33 */
obj_t BgL_method2705z00_1267;
{ /* ./Reduce/cond.scm 33 */
BgL_objectz00_bglt BgL_objz00_1268;
BgL_objz00_1268 = 
(BgL_objectz00_bglt)(BgL_nodez00_1266); 
{ /* ./Reduce/cond.scm 33 */
long BgL_objzd2classzd2numz00_1269;
BgL_objzd2classzd2numz00_1269 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1268); 
{ /* ./Reduce/cond.scm 33 */
obj_t BgL_arg2017z00_1270;
{ /* ./Reduce/cond.scm 33 */
int BgL_auxz00_2289;
BgL_auxz00_2289 = 
(int)(((long)1)); 
BgL_arg2017z00_1270 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2289); } 
{ /* ./Reduce/cond.scm 33 */
int BgL_offsetz00_1273;
BgL_offsetz00_1273 = 
(int)(BgL_objzd2classzd2numz00_1269); 
{ /* ./Reduce/cond.scm 33 */
long BgL_offsetz00_1274;
{ /* ./Reduce/cond.scm 33 */
long BgL_auxz00_2293;
BgL_auxz00_2293 = 
(long)(BgL_offsetz00_1273); 
BgL_offsetz00_1274 = 
(BgL_auxz00_2293-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 33 */
long BgL_modz00_1275;
{ /* ./Reduce/cond.scm 33 */
int BgL_arg2028z00_1276;
BgL_arg2028z00_1276 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 33 */
long BgL_n2z00_1284;
BgL_n2z00_1284 = 
(long)(BgL_arg2028z00_1276); 
BgL_modz00_1275 = 
(BgL_offsetz00_1274/BgL_n2z00_1284); } } 
{ /* ./Reduce/cond.scm 33 */
long BgL_restz00_1277;
{ /* ./Reduce/cond.scm 33 */
int BgL_arg2024z00_1278;
BgL_arg2024z00_1278 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 33 */
long BgL_n2z00_1287;
BgL_n2z00_1287 = 
(long)(BgL_arg2024z00_1278); 
BgL_restz00_1277 = 
(BgL_offsetz00_1274%BgL_n2z00_1287); } } 
{ /* ./Reduce/cond.scm 33 */

{ /* ./Reduce/cond.scm 33 */
obj_t BgL_bucketz00_1279;
{ /* ./Reduce/cond.scm 33 */
int BgL_kz00_1289;
BgL_kz00_1289 = 
(int)(BgL_modz00_1275); 
BgL_bucketz00_1279 = 
VECTOR_REF(BgL_arg2017z00_1270,BgL_kz00_1289); } 
{ /* ./Reduce/cond.scm 33 */
int BgL_kz00_1291;
BgL_kz00_1291 = 
(int)(BgL_restz00_1277); 
BgL_method2705z00_1267 = 
VECTOR_REF(BgL_bucketz00_1279,BgL_kz00_1291); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 33 */
obj_t BgL_auxz00_2306;
BgL_auxz00_2306 = 
PROCEDURE_ENTRY(BgL_method2705z00_1267)(BgL_method2705z00_1267, 
(obj_t)(BgL_nodez00_1266), BEOA); 
BgL_res3492z00_1292 = 
(BgL_nodez00_bglt)(BgL_auxz00_2306); } } } 
BgL_arg2755z00_690 = BgL_res3492z00_1292; } 
{ /* ./Reduce/cond.scm 33 */
BgL_sfunz00_bglt BgL_obj1373z00_1293;obj_t BgL_val1371z00_1294;
BgL_obj1373z00_1293 = 
(BgL_sfunz00_bglt)(BgL_funz00_688); 
BgL_val1371z00_1294 = 
(obj_t)(BgL_arg2755z00_690); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1293))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1294), BUNSPEC); } } BUNSPEC; } } } } 
{ /* ./Reduce/cond.scm 30 */
obj_t BgL_arg2762z00_691;
BgL_arg2762z00_691 = 
CDR(BgL_l2662z00_684); 
{ 
obj_t BgL_l2662z00_2315;
BgL_l2662z00_2315 = BgL_arg2762z00_691; 
BgL_l2662z00_684 = BgL_l2662z00_2315; 
goto BgL_forzd2each2663zd2_685;} } }  else 
{ /* ./Reduce/cond.scm 30 */((bool_t)1); } } } 
{ /* ./Reduce/cond.scm 36 */
obj_t BgL_list2767z00_692;
{ /* ./Reduce/cond.scm 36 */
obj_t BgL_arg2770z00_694;
{ /* ./Reduce/cond.scm 36 */
obj_t BgL_arg2773z00_695;
{ /* ./Reduce/cond.scm 36 */
obj_t BgL_arg2776z00_696;
{ /* ./Reduce/cond.scm 36 */
obj_t BgL_auxz00_2316;
BgL_auxz00_2316 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2776z00_696 = 
MAKE_PAIR(BgL_auxz00_2316, BNIL); } 
{ /* ./Reduce/cond.scm 36 */
obj_t BgL_auxz00_2319;
BgL_auxz00_2319 = 
BCHAR(((unsigned char)')')); 
BgL_arg2773z00_695 = 
MAKE_PAIR(BgL_auxz00_2319, BgL_arg2776z00_696); } } 
{ /* ./Reduce/cond.scm 36 */
obj_t BgL_auxz00_2322;
BgL_auxz00_2322 = 
BINT(BGl_za2condzd2reducedza2zd2zzreduce_condz00); 
BgL_arg2770z00_694 = 
MAKE_PAIR(BgL_auxz00_2322, BgL_arg2773z00_695); } } 
BgL_list2767z00_692 = 
MAKE_PAIR(BGl_string4054z00zzreduce_condz00, BgL_arg2770z00_694); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2767z00_692); } 
return BgL_globalsz00_1;} 
}



/* _reduce-conditional! */
obj_t BGl__reducezd2conditionalz12zc0zzreduce_condz00(obj_t BgL_envz00_2167, obj_t BgL_globalsz00_2168)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 28 */
return 
BGl_reducezd2conditionalz12zc0zzreduce_condz00(BgL_globalsz00_2168);} 
}



/* node-cond*! */
obj_t BGl_nodezd2condza2z12z62zzreduce_condz00(obj_t BgL_nodeza2za2_25)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 239 */
{ 
obj_t BgL_nodeza2za2_697;
BgL_nodeza2za2_697 = BgL_nodeza2za2_25; 
BgL_loopz00_698:
{ /* ./Reduce/cond.scm 241 */
bool_t BgL_test2780z00_699;
BgL_test2780z00_699 = 
NULLP(BgL_nodeza2za2_697); 
if(BgL_test2780z00_699)
{ /* ./Reduce/cond.scm 241 */
return 
CNST_TABLE_REF(((long)0));}  else 
{ /* ./Reduce/cond.scm 241 */
{ /* ./Reduce/cond.scm 244 */
BgL_nodez00_bglt BgL_arg2782z00_700;
{ /* ./Reduce/cond.scm 244 */
obj_t BgL_arg2785z00_701;
BgL_arg2785z00_701 = 
CAR(BgL_nodeza2za2_697); 
{ /* ./Reduce/cond.scm 244 */
BgL_nodez00_bglt BgL_res3495z00_1324;
{ /* ./Reduce/cond.scm 244 */
BgL_nodez00_bglt BgL_nodez00_1298;
BgL_nodez00_1298 = 
(BgL_nodez00_bglt)(BgL_arg2785z00_701); 
{ /* ./Reduce/cond.scm 244 */
obj_t BgL_method2705z00_1299;
{ /* ./Reduce/cond.scm 244 */
BgL_objectz00_bglt BgL_objz00_1300;
BgL_objz00_1300 = 
(BgL_objectz00_bglt)(BgL_nodez00_1298); 
{ /* ./Reduce/cond.scm 244 */
long BgL_objzd2classzd2numz00_1301;
BgL_objzd2classzd2numz00_1301 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1300); 
{ /* ./Reduce/cond.scm 244 */
obj_t BgL_arg2017z00_1302;
{ /* ./Reduce/cond.scm 244 */
int BgL_auxz00_2336;
BgL_auxz00_2336 = 
(int)(((long)1)); 
BgL_arg2017z00_1302 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2336); } 
{ /* ./Reduce/cond.scm 244 */
int BgL_offsetz00_1305;
BgL_offsetz00_1305 = 
(int)(BgL_objzd2classzd2numz00_1301); 
{ /* ./Reduce/cond.scm 244 */
long BgL_offsetz00_1306;
{ /* ./Reduce/cond.scm 244 */
long BgL_auxz00_2340;
BgL_auxz00_2340 = 
(long)(BgL_offsetz00_1305); 
BgL_offsetz00_1306 = 
(BgL_auxz00_2340-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 244 */
long BgL_modz00_1307;
{ /* ./Reduce/cond.scm 244 */
int BgL_arg2028z00_1308;
BgL_arg2028z00_1308 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 244 */
long BgL_n2z00_1316;
BgL_n2z00_1316 = 
(long)(BgL_arg2028z00_1308); 
BgL_modz00_1307 = 
(BgL_offsetz00_1306/BgL_n2z00_1316); } } 
{ /* ./Reduce/cond.scm 244 */
long BgL_restz00_1309;
{ /* ./Reduce/cond.scm 244 */
int BgL_arg2024z00_1310;
BgL_arg2024z00_1310 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 244 */
long BgL_n2z00_1319;
BgL_n2z00_1319 = 
(long)(BgL_arg2024z00_1310); 
BgL_restz00_1309 = 
(BgL_offsetz00_1306%BgL_n2z00_1319); } } 
{ /* ./Reduce/cond.scm 244 */

{ /* ./Reduce/cond.scm 244 */
obj_t BgL_bucketz00_1311;
{ /* ./Reduce/cond.scm 244 */
int BgL_kz00_1321;
BgL_kz00_1321 = 
(int)(BgL_modz00_1307); 
BgL_bucketz00_1311 = 
VECTOR_REF(BgL_arg2017z00_1302,BgL_kz00_1321); } 
{ /* ./Reduce/cond.scm 244 */
int BgL_kz00_1323;
BgL_kz00_1323 = 
(int)(BgL_restz00_1309); 
BgL_method2705z00_1299 = 
VECTOR_REF(BgL_bucketz00_1311,BgL_kz00_1323); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 244 */
obj_t BgL_auxz00_2353;
BgL_auxz00_2353 = 
PROCEDURE_ENTRY(BgL_method2705z00_1299)(BgL_method2705z00_1299, 
(obj_t)(BgL_nodez00_1298), BEOA); 
BgL_res3495z00_1324 = 
(BgL_nodez00_bglt)(BgL_auxz00_2353); } } } 
BgL_arg2782z00_700 = BgL_res3495z00_1324; } } 
{ /* ./Reduce/cond.scm 244 */
obj_t BgL_objz00_1326;
BgL_objz00_1326 = 
(obj_t)(BgL_arg2782z00_700); 
SET_CAR(BgL_nodeza2za2_697, BgL_objz00_1326); } } 
{ /* ./Reduce/cond.scm 245 */
obj_t BgL_arg2789z00_702;
BgL_arg2789z00_702 = 
CDR(BgL_nodeza2za2_697); 
{ 
obj_t BgL_nodeza2za2_2361;
BgL_nodeza2za2_2361 = BgL_arg2789z00_702; 
BgL_nodeza2za2_697 = BgL_nodeza2za2_2361; 
goto BgL_loopz00_698;} } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzreduce_condz00()
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_nodezd2condz12zd2default2704zd2envzc0zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_atomz00zzast_nodez00, BGl_proc4055z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_kwotez00zzast_nodez00, BGl_proc4056z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_varz00zzast_nodez00, BGl_proc4057z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_closurez00zzast_nodez00, BGl_proc4058z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_sequencez00zzast_nodez00, BGl_proc4059z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_appz00zzast_nodez00, BGl_proc4060z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4061z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_funcallz00zzast_nodez00, BGl_proc4062z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_externz00zzast_nodez00, BGl_proc4063z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_castz00zzast_nodez00, BGl_proc4064z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_setqz00zzast_nodez00, BGl_proc4065z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_conditionalz00zzast_nodez00, BGl_proc4066z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_failz00zzast_nodez00, BGl_proc4067z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_selectz00zzast_nodez00, BGl_proc4068z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4069z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4070z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4071z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4072z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4073z00zzreduce_condz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4074z00zzreduce_condz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4075z00zzreduce_condz00);} 
}



/* node-cond!-box-ref2748 */
obj_t BGl_nodezd2condz12zd2boxzd2ref2748zc0zzreduce_condz00(obj_t BgL_envz00_2192, obj_t BgL_nodez00_2193)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 231 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1253;
{ /* ./Reduce/cond.scm 232 */
BgL_boxzd2refzd2_bglt BgL_auxz00_2384;
BgL_nodez00_1253 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2193); 
{ /* ./Reduce/cond.scm 233 */
BgL_nodez00_bglt BgL_arg3469z00_1257;
{ /* ./Reduce/cond.scm 233 */
BgL_varz00_bglt BgL_arg3472z00_1258;
BgL_arg3472z00_1258 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1253))->BgL_varz00); 
{ /* ./Reduce/cond.scm 233 */
BgL_nodez00_bglt BgL_res3573z00_2136;
{ /* ./Reduce/cond.scm 233 */
BgL_nodez00_bglt BgL_nodez00_2110;
BgL_nodez00_2110 = 
(BgL_nodez00_bglt)(BgL_arg3472z00_1258); 
{ /* ./Reduce/cond.scm 233 */
obj_t BgL_method2705z00_2111;
{ /* ./Reduce/cond.scm 233 */
BgL_objectz00_bglt BgL_objz00_2112;
BgL_objz00_2112 = 
(BgL_objectz00_bglt)(BgL_nodez00_2110); 
{ /* ./Reduce/cond.scm 233 */
long BgL_objzd2classzd2numz00_2113;
BgL_objzd2classzd2numz00_2113 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2112); 
{ /* ./Reduce/cond.scm 233 */
obj_t BgL_arg2017z00_2114;
{ /* ./Reduce/cond.scm 233 */
int BgL_auxz00_2389;
BgL_auxz00_2389 = 
(int)(((long)1)); 
BgL_arg2017z00_2114 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2389); } 
{ /* ./Reduce/cond.scm 233 */
int BgL_offsetz00_2117;
BgL_offsetz00_2117 = 
(int)(BgL_objzd2classzd2numz00_2113); 
{ /* ./Reduce/cond.scm 233 */
long BgL_offsetz00_2118;
{ /* ./Reduce/cond.scm 233 */
long BgL_auxz00_2393;
BgL_auxz00_2393 = 
(long)(BgL_offsetz00_2117); 
BgL_offsetz00_2118 = 
(BgL_auxz00_2393-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 233 */
long BgL_modz00_2119;
{ /* ./Reduce/cond.scm 233 */
int BgL_arg2028z00_2120;
BgL_arg2028z00_2120 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 233 */
long BgL_n2z00_2128;
BgL_n2z00_2128 = 
(long)(BgL_arg2028z00_2120); 
BgL_modz00_2119 = 
(BgL_offsetz00_2118/BgL_n2z00_2128); } } 
{ /* ./Reduce/cond.scm 233 */
long BgL_restz00_2121;
{ /* ./Reduce/cond.scm 233 */
int BgL_arg2024z00_2122;
BgL_arg2024z00_2122 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 233 */
long BgL_n2z00_2131;
BgL_n2z00_2131 = 
(long)(BgL_arg2024z00_2122); 
BgL_restz00_2121 = 
(BgL_offsetz00_2118%BgL_n2z00_2131); } } 
{ /* ./Reduce/cond.scm 233 */

{ /* ./Reduce/cond.scm 233 */
obj_t BgL_bucketz00_2123;
{ /* ./Reduce/cond.scm 233 */
int BgL_kz00_2133;
BgL_kz00_2133 = 
(int)(BgL_modz00_2119); 
BgL_bucketz00_2123 = 
VECTOR_REF(BgL_arg2017z00_2114,BgL_kz00_2133); } 
{ /* ./Reduce/cond.scm 233 */
int BgL_kz00_2135;
BgL_kz00_2135 = 
(int)(BgL_restz00_2121); 
BgL_method2705z00_2111 = 
VECTOR_REF(BgL_bucketz00_2123,BgL_kz00_2135); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 233 */
obj_t BgL_auxz00_2406;
BgL_auxz00_2406 = 
PROCEDURE_ENTRY(BgL_method2705z00_2111)(BgL_method2705z00_2111, 
(obj_t)(BgL_nodez00_2110), BEOA); 
BgL_res3573z00_2136 = 
(BgL_nodez00_bglt)(BgL_auxz00_2406); } } } 
BgL_arg3469z00_1257 = BgL_res3573z00_2136; } } 
{ /* ./Reduce/cond.scm 233 */
BgL_boxzd2refzd2_bglt BgL_obj2616z00_2137;BgL_varz00_bglt BgL_val2615z00_2138;
BgL_obj2616z00_2137 = BgL_nodez00_1253; 
BgL_val2615z00_2138 = 
(BgL_varz00_bglt)(BgL_arg3469z00_1257); 
((((BgL_boxzd2refzd2_bglt)CREF(BgL_obj2616z00_2137))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2615z00_2138), BUNSPEC); } } 
BgL_auxz00_2384 = BgL_nodez00_1253; 
return 
(obj_t)(BgL_auxz00_2384);} } } 
}



/* node-cond!-box-set!2746 */
obj_t BGl_nodezd2condz12zd2boxzd2setz122746zd2zzreduce_condz00(obj_t BgL_envz00_2194, obj_t BgL_nodez00_2195)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 222 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1243;
{ /* ./Reduce/cond.scm 223 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_2415;
BgL_nodez00_1243 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2195); 
{ /* ./Reduce/cond.scm 224 */
BgL_nodez00_bglt BgL_arg3449z00_1247;
{ /* ./Reduce/cond.scm 224 */
BgL_varz00_bglt BgL_arg3452z00_1248;
BgL_arg3452z00_1248 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1243))->BgL_varz00); 
{ /* ./Reduce/cond.scm 224 */
BgL_nodez00_bglt BgL_res3567z00_2076;
{ /* ./Reduce/cond.scm 224 */
BgL_nodez00_bglt BgL_nodez00_2050;
BgL_nodez00_2050 = 
(BgL_nodez00_bglt)(BgL_arg3452z00_1248); 
{ /* ./Reduce/cond.scm 224 */
obj_t BgL_method2705z00_2051;
{ /* ./Reduce/cond.scm 224 */
BgL_objectz00_bglt BgL_objz00_2052;
BgL_objz00_2052 = 
(BgL_objectz00_bglt)(BgL_nodez00_2050); 
{ /* ./Reduce/cond.scm 224 */
long BgL_objzd2classzd2numz00_2053;
BgL_objzd2classzd2numz00_2053 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2052); 
{ /* ./Reduce/cond.scm 224 */
obj_t BgL_arg2017z00_2054;
{ /* ./Reduce/cond.scm 224 */
int BgL_auxz00_2420;
BgL_auxz00_2420 = 
(int)(((long)1)); 
BgL_arg2017z00_2054 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2420); } 
{ /* ./Reduce/cond.scm 224 */
int BgL_offsetz00_2057;
BgL_offsetz00_2057 = 
(int)(BgL_objzd2classzd2numz00_2053); 
{ /* ./Reduce/cond.scm 224 */
long BgL_offsetz00_2058;
{ /* ./Reduce/cond.scm 224 */
long BgL_auxz00_2424;
BgL_auxz00_2424 = 
(long)(BgL_offsetz00_2057); 
BgL_offsetz00_2058 = 
(BgL_auxz00_2424-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 224 */
long BgL_modz00_2059;
{ /* ./Reduce/cond.scm 224 */
int BgL_arg2028z00_2060;
BgL_arg2028z00_2060 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 224 */
long BgL_n2z00_2068;
BgL_n2z00_2068 = 
(long)(BgL_arg2028z00_2060); 
BgL_modz00_2059 = 
(BgL_offsetz00_2058/BgL_n2z00_2068); } } 
{ /* ./Reduce/cond.scm 224 */
long BgL_restz00_2061;
{ /* ./Reduce/cond.scm 224 */
int BgL_arg2024z00_2062;
BgL_arg2024z00_2062 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 224 */
long BgL_n2z00_2071;
BgL_n2z00_2071 = 
(long)(BgL_arg2024z00_2062); 
BgL_restz00_2061 = 
(BgL_offsetz00_2058%BgL_n2z00_2071); } } 
{ /* ./Reduce/cond.scm 224 */

{ /* ./Reduce/cond.scm 224 */
obj_t BgL_bucketz00_2063;
{ /* ./Reduce/cond.scm 224 */
int BgL_kz00_2073;
BgL_kz00_2073 = 
(int)(BgL_modz00_2059); 
BgL_bucketz00_2063 = 
VECTOR_REF(BgL_arg2017z00_2054,BgL_kz00_2073); } 
{ /* ./Reduce/cond.scm 224 */
int BgL_kz00_2075;
BgL_kz00_2075 = 
(int)(BgL_restz00_2061); 
BgL_method2705z00_2051 = 
VECTOR_REF(BgL_bucketz00_2063,BgL_kz00_2075); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 224 */
obj_t BgL_auxz00_2437;
BgL_auxz00_2437 = 
PROCEDURE_ENTRY(BgL_method2705z00_2051)(BgL_method2705z00_2051, 
(obj_t)(BgL_nodez00_2050), BEOA); 
BgL_res3567z00_2076 = 
(BgL_nodez00_bglt)(BgL_auxz00_2437); } } } 
BgL_arg3449z00_1247 = BgL_res3567z00_2076; } } 
{ /* ./Reduce/cond.scm 224 */
BgL_boxzd2setz12zc0_bglt BgL_obj2642z00_2077;BgL_varz00_bglt BgL_val2641z00_2078;
BgL_obj2642z00_2077 = BgL_nodez00_1243; 
BgL_val2641z00_2078 = 
(BgL_varz00_bglt)(BgL_arg3449z00_1247); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2642z00_2077))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2641z00_2078), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 225 */
BgL_nodez00_bglt BgL_arg3456z00_1249;
{ /* ./Reduce/cond.scm 225 */
BgL_nodez00_bglt BgL_arg3459z00_1250;
BgL_arg3459z00_1250 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1243))->BgL_valuez00); 
{ /* ./Reduce/cond.scm 225 */
BgL_nodez00_bglt BgL_res3570z00_2106;
{ /* ./Reduce/cond.scm 225 */
obj_t BgL_method2705z00_2081;
{ /* ./Reduce/cond.scm 225 */
BgL_objectz00_bglt BgL_objz00_2082;
BgL_objz00_2082 = 
(BgL_objectz00_bglt)(BgL_arg3459z00_1250); 
{ /* ./Reduce/cond.scm 225 */
long BgL_objzd2classzd2numz00_2083;
BgL_objzd2classzd2numz00_2083 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2082); 
{ /* ./Reduce/cond.scm 225 */
obj_t BgL_arg2017z00_2084;
{ /* ./Reduce/cond.scm 225 */
int BgL_auxz00_2447;
BgL_auxz00_2447 = 
(int)(((long)1)); 
BgL_arg2017z00_2084 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2447); } 
{ /* ./Reduce/cond.scm 225 */
int BgL_offsetz00_2087;
BgL_offsetz00_2087 = 
(int)(BgL_objzd2classzd2numz00_2083); 
{ /* ./Reduce/cond.scm 225 */
long BgL_offsetz00_2088;
{ /* ./Reduce/cond.scm 225 */
long BgL_auxz00_2451;
BgL_auxz00_2451 = 
(long)(BgL_offsetz00_2087); 
BgL_offsetz00_2088 = 
(BgL_auxz00_2451-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 225 */
long BgL_modz00_2089;
{ /* ./Reduce/cond.scm 225 */
int BgL_arg2028z00_2090;
BgL_arg2028z00_2090 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 225 */
long BgL_n2z00_2098;
BgL_n2z00_2098 = 
(long)(BgL_arg2028z00_2090); 
BgL_modz00_2089 = 
(BgL_offsetz00_2088/BgL_n2z00_2098); } } 
{ /* ./Reduce/cond.scm 225 */
long BgL_restz00_2091;
{ /* ./Reduce/cond.scm 225 */
int BgL_arg2024z00_2092;
BgL_arg2024z00_2092 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 225 */
long BgL_n2z00_2101;
BgL_n2z00_2101 = 
(long)(BgL_arg2024z00_2092); 
BgL_restz00_2091 = 
(BgL_offsetz00_2088%BgL_n2z00_2101); } } 
{ /* ./Reduce/cond.scm 225 */

{ /* ./Reduce/cond.scm 225 */
obj_t BgL_bucketz00_2093;
{ /* ./Reduce/cond.scm 225 */
int BgL_kz00_2103;
BgL_kz00_2103 = 
(int)(BgL_modz00_2089); 
BgL_bucketz00_2093 = 
VECTOR_REF(BgL_arg2017z00_2084,BgL_kz00_2103); } 
{ /* ./Reduce/cond.scm 225 */
int BgL_kz00_2105;
BgL_kz00_2105 = 
(int)(BgL_restz00_2091); 
BgL_method2705z00_2081 = 
VECTOR_REF(BgL_bucketz00_2093,BgL_kz00_2105); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 225 */
obj_t BgL_auxz00_2464;
BgL_auxz00_2464 = 
PROCEDURE_ENTRY(BgL_method2705z00_2081)(BgL_method2705z00_2081, 
(obj_t)(BgL_arg3459z00_1250), BEOA); 
BgL_res3570z00_2106 = 
(BgL_nodez00_bglt)(BgL_auxz00_2464); } } 
BgL_arg3456z00_1249 = BgL_res3570z00_2106; } } 
{ /* ./Reduce/cond.scm 225 */
BgL_boxzd2setz12zc0_bglt BgL_obj2645z00_2107;BgL_nodez00_bglt BgL_val2644z00_2108;
BgL_obj2645z00_2107 = BgL_nodez00_1243; 
BgL_val2644z00_2108 = BgL_arg3456z00_1249; 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2645z00_2107))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2644z00_2108), BUNSPEC); } } 
BgL_auxz00_2415 = BgL_nodez00_1243; 
return 
(obj_t)(BgL_auxz00_2415);} } } 
}



/* node-cond!-make-box2744 */
obj_t BGl_nodezd2condz12zd2makezd2box2744zc0zzreduce_condz00(obj_t BgL_envz00_2196, obj_t BgL_nodez00_2197)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 214 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1235;
{ /* ./Reduce/cond.scm 215 */
BgL_makezd2boxzd2_bglt BgL_auxz00_2472;
BgL_nodez00_1235 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2197); 
{ /* ./Reduce/cond.scm 216 */
BgL_nodez00_bglt BgL_arg3436z00_1239;
{ /* ./Reduce/cond.scm 216 */
BgL_nodez00_bglt BgL_arg3439z00_1240;
BgL_arg3439z00_1240 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1235))->BgL_valuez00); 
{ /* ./Reduce/cond.scm 216 */
BgL_nodez00_bglt BgL_res3564z00_2046;
{ /* ./Reduce/cond.scm 216 */
obj_t BgL_method2705z00_2021;
{ /* ./Reduce/cond.scm 216 */
BgL_objectz00_bglt BgL_objz00_2022;
BgL_objz00_2022 = 
(BgL_objectz00_bglt)(BgL_arg3439z00_1240); 
{ /* ./Reduce/cond.scm 216 */
long BgL_objzd2classzd2numz00_2023;
BgL_objzd2classzd2numz00_2023 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2022); 
{ /* ./Reduce/cond.scm 216 */
obj_t BgL_arg2017z00_2024;
{ /* ./Reduce/cond.scm 216 */
int BgL_auxz00_2476;
BgL_auxz00_2476 = 
(int)(((long)1)); 
BgL_arg2017z00_2024 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2476); } 
{ /* ./Reduce/cond.scm 216 */
int BgL_offsetz00_2027;
BgL_offsetz00_2027 = 
(int)(BgL_objzd2classzd2numz00_2023); 
{ /* ./Reduce/cond.scm 216 */
long BgL_offsetz00_2028;
{ /* ./Reduce/cond.scm 216 */
long BgL_auxz00_2480;
BgL_auxz00_2480 = 
(long)(BgL_offsetz00_2027); 
BgL_offsetz00_2028 = 
(BgL_auxz00_2480-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 216 */
long BgL_modz00_2029;
{ /* ./Reduce/cond.scm 216 */
int BgL_arg2028z00_2030;
BgL_arg2028z00_2030 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 216 */
long BgL_n2z00_2038;
BgL_n2z00_2038 = 
(long)(BgL_arg2028z00_2030); 
BgL_modz00_2029 = 
(BgL_offsetz00_2028/BgL_n2z00_2038); } } 
{ /* ./Reduce/cond.scm 216 */
long BgL_restz00_2031;
{ /* ./Reduce/cond.scm 216 */
int BgL_arg2024z00_2032;
BgL_arg2024z00_2032 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 216 */
long BgL_n2z00_2041;
BgL_n2z00_2041 = 
(long)(BgL_arg2024z00_2032); 
BgL_restz00_2031 = 
(BgL_offsetz00_2028%BgL_n2z00_2041); } } 
{ /* ./Reduce/cond.scm 216 */

{ /* ./Reduce/cond.scm 216 */
obj_t BgL_bucketz00_2033;
{ /* ./Reduce/cond.scm 216 */
int BgL_kz00_2043;
BgL_kz00_2043 = 
(int)(BgL_modz00_2029); 
BgL_bucketz00_2033 = 
VECTOR_REF(BgL_arg2017z00_2024,BgL_kz00_2043); } 
{ /* ./Reduce/cond.scm 216 */
int BgL_kz00_2045;
BgL_kz00_2045 = 
(int)(BgL_restz00_2031); 
BgL_method2705z00_2021 = 
VECTOR_REF(BgL_bucketz00_2033,BgL_kz00_2045); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 216 */
obj_t BgL_auxz00_2493;
BgL_auxz00_2493 = 
PROCEDURE_ENTRY(BgL_method2705z00_2021)(BgL_method2705z00_2021, 
(obj_t)(BgL_arg3439z00_1240), BEOA); 
BgL_res3564z00_2046 = 
(BgL_nodez00_bglt)(BgL_auxz00_2493); } } 
BgL_arg3436z00_1239 = BgL_res3564z00_2046; } } 
{ /* ./Reduce/cond.scm 216 */
BgL_makezd2boxzd2_bglt BgL_obj2584z00_2047;BgL_nodez00_bglt BgL_val2583z00_2048;
BgL_obj2584z00_2047 = BgL_nodez00_1235; 
BgL_val2583z00_2048 = BgL_arg3436z00_1239; 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2584z00_2047))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2583z00_2048), BUNSPEC); } } 
BgL_auxz00_2472 = BgL_nodez00_1235; 
return 
(obj_t)(BgL_auxz00_2472);} } } 
}



/* node-cond!-jump-ex-it2742 */
obj_t BGl_nodezd2condz12zd2jumpzd2exzd2it2742z12zzreduce_condz00(obj_t BgL_envz00_2198, obj_t BgL_nodez00_2199)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 205 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1225;
{ /* ./Reduce/cond.scm 206 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_2501;
BgL_nodez00_1225 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2199); 
{ /* ./Reduce/cond.scm 207 */
BgL_nodez00_bglt BgL_arg3416z00_1229;
{ /* ./Reduce/cond.scm 207 */
BgL_nodez00_bglt BgL_arg3419z00_1230;
BgL_arg3419z00_1230 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1225))->BgL_exitz00); 
{ /* ./Reduce/cond.scm 207 */
BgL_nodez00_bglt BgL_res3558z00_1986;
{ /* ./Reduce/cond.scm 207 */
obj_t BgL_method2705z00_1961;
{ /* ./Reduce/cond.scm 207 */
BgL_objectz00_bglt BgL_objz00_1962;
BgL_objz00_1962 = 
(BgL_objectz00_bglt)(BgL_arg3419z00_1230); 
{ /* ./Reduce/cond.scm 207 */
long BgL_objzd2classzd2numz00_1963;
BgL_objzd2classzd2numz00_1963 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1962); 
{ /* ./Reduce/cond.scm 207 */
obj_t BgL_arg2017z00_1964;
{ /* ./Reduce/cond.scm 207 */
int BgL_auxz00_2505;
BgL_auxz00_2505 = 
(int)(((long)1)); 
BgL_arg2017z00_1964 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2505); } 
{ /* ./Reduce/cond.scm 207 */
int BgL_offsetz00_1967;
BgL_offsetz00_1967 = 
(int)(BgL_objzd2classzd2numz00_1963); 
{ /* ./Reduce/cond.scm 207 */
long BgL_offsetz00_1968;
{ /* ./Reduce/cond.scm 207 */
long BgL_auxz00_2509;
BgL_auxz00_2509 = 
(long)(BgL_offsetz00_1967); 
BgL_offsetz00_1968 = 
(BgL_auxz00_2509-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 207 */
long BgL_modz00_1969;
{ /* ./Reduce/cond.scm 207 */
int BgL_arg2028z00_1970;
BgL_arg2028z00_1970 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 207 */
long BgL_n2z00_1978;
BgL_n2z00_1978 = 
(long)(BgL_arg2028z00_1970); 
BgL_modz00_1969 = 
(BgL_offsetz00_1968/BgL_n2z00_1978); } } 
{ /* ./Reduce/cond.scm 207 */
long BgL_restz00_1971;
{ /* ./Reduce/cond.scm 207 */
int BgL_arg2024z00_1972;
BgL_arg2024z00_1972 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 207 */
long BgL_n2z00_1981;
BgL_n2z00_1981 = 
(long)(BgL_arg2024z00_1972); 
BgL_restz00_1971 = 
(BgL_offsetz00_1968%BgL_n2z00_1981); } } 
{ /* ./Reduce/cond.scm 207 */

{ /* ./Reduce/cond.scm 207 */
obj_t BgL_bucketz00_1973;
{ /* ./Reduce/cond.scm 207 */
int BgL_kz00_1983;
BgL_kz00_1983 = 
(int)(BgL_modz00_1969); 
BgL_bucketz00_1973 = 
VECTOR_REF(BgL_arg2017z00_1964,BgL_kz00_1983); } 
{ /* ./Reduce/cond.scm 207 */
int BgL_kz00_1985;
BgL_kz00_1985 = 
(int)(BgL_restz00_1971); 
BgL_method2705z00_1961 = 
VECTOR_REF(BgL_bucketz00_1973,BgL_kz00_1985); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 207 */
obj_t BgL_auxz00_2522;
BgL_auxz00_2522 = 
PROCEDURE_ENTRY(BgL_method2705z00_1961)(BgL_method2705z00_1961, 
(obj_t)(BgL_arg3419z00_1230), BEOA); 
BgL_res3558z00_1986 = 
(BgL_nodez00_bglt)(BgL_auxz00_2522); } } 
BgL_arg3416z00_1229 = BgL_res3558z00_1986; } } 
{ /* ./Reduce/cond.scm 207 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2552z00_1987;BgL_nodez00_bglt BgL_val2551z00_1988;
BgL_obj2552z00_1987 = BgL_nodez00_1225; 
BgL_val2551z00_1988 = BgL_arg3416z00_1229; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2552z00_1987))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2551z00_1988), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 208 */
BgL_nodez00_bglt BgL_arg3423z00_1231;
{ /* ./Reduce/cond.scm 208 */
BgL_nodez00_bglt BgL_arg3426z00_1232;
BgL_arg3426z00_1232 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1225))->BgL_valuez00); 
{ /* ./Reduce/cond.scm 208 */
BgL_nodez00_bglt BgL_res3561z00_2016;
{ /* ./Reduce/cond.scm 208 */
obj_t BgL_method2705z00_1991;
{ /* ./Reduce/cond.scm 208 */
BgL_objectz00_bglt BgL_objz00_1992;
BgL_objz00_1992 = 
(BgL_objectz00_bglt)(BgL_arg3426z00_1232); 
{ /* ./Reduce/cond.scm 208 */
long BgL_objzd2classzd2numz00_1993;
BgL_objzd2classzd2numz00_1993 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1992); 
{ /* ./Reduce/cond.scm 208 */
obj_t BgL_arg2017z00_1994;
{ /* ./Reduce/cond.scm 208 */
int BgL_auxz00_2531;
BgL_auxz00_2531 = 
(int)(((long)1)); 
BgL_arg2017z00_1994 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2531); } 
{ /* ./Reduce/cond.scm 208 */
int BgL_offsetz00_1997;
BgL_offsetz00_1997 = 
(int)(BgL_objzd2classzd2numz00_1993); 
{ /* ./Reduce/cond.scm 208 */
long BgL_offsetz00_1998;
{ /* ./Reduce/cond.scm 208 */
long BgL_auxz00_2535;
BgL_auxz00_2535 = 
(long)(BgL_offsetz00_1997); 
BgL_offsetz00_1998 = 
(BgL_auxz00_2535-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 208 */
long BgL_modz00_1999;
{ /* ./Reduce/cond.scm 208 */
int BgL_arg2028z00_2000;
BgL_arg2028z00_2000 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 208 */
long BgL_n2z00_2008;
BgL_n2z00_2008 = 
(long)(BgL_arg2028z00_2000); 
BgL_modz00_1999 = 
(BgL_offsetz00_1998/BgL_n2z00_2008); } } 
{ /* ./Reduce/cond.scm 208 */
long BgL_restz00_2001;
{ /* ./Reduce/cond.scm 208 */
int BgL_arg2024z00_2002;
BgL_arg2024z00_2002 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 208 */
long BgL_n2z00_2011;
BgL_n2z00_2011 = 
(long)(BgL_arg2024z00_2002); 
BgL_restz00_2001 = 
(BgL_offsetz00_1998%BgL_n2z00_2011); } } 
{ /* ./Reduce/cond.scm 208 */

{ /* ./Reduce/cond.scm 208 */
obj_t BgL_bucketz00_2003;
{ /* ./Reduce/cond.scm 208 */
int BgL_kz00_2013;
BgL_kz00_2013 = 
(int)(BgL_modz00_1999); 
BgL_bucketz00_2003 = 
VECTOR_REF(BgL_arg2017z00_1994,BgL_kz00_2013); } 
{ /* ./Reduce/cond.scm 208 */
int BgL_kz00_2015;
BgL_kz00_2015 = 
(int)(BgL_restz00_2001); 
BgL_method2705z00_1991 = 
VECTOR_REF(BgL_bucketz00_2003,BgL_kz00_2015); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 208 */
obj_t BgL_auxz00_2548;
BgL_auxz00_2548 = 
PROCEDURE_ENTRY(BgL_method2705z00_1991)(BgL_method2705z00_1991, 
(obj_t)(BgL_arg3426z00_1232), BEOA); 
BgL_res3561z00_2016 = 
(BgL_nodez00_bglt)(BgL_auxz00_2548); } } 
BgL_arg3423z00_1231 = BgL_res3561z00_2016; } } 
{ /* ./Reduce/cond.scm 208 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2555z00_2017;BgL_nodez00_bglt BgL_val2554z00_2018;
BgL_obj2555z00_2017 = BgL_nodez00_1225; 
BgL_val2554z00_2018 = BgL_arg3423z00_1231; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2555z00_2017))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2554z00_2018), BUNSPEC); } } 
BgL_auxz00_2501 = BgL_nodez00_1225; 
return 
(obj_t)(BgL_auxz00_2501);} } } 
}



/* node-cond!-set-ex-it2740 */
obj_t BGl_nodezd2condz12zd2setzd2exzd2it2740z12zzreduce_condz00(obj_t BgL_envz00_2200, obj_t BgL_nodez00_2201)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 196 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1215;
{ /* ./Reduce/cond.scm 197 */
BgL_setzd2exzd2itz00_bglt BgL_auxz00_2556;
BgL_nodez00_1215 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2201); 
{ /* ./Reduce/cond.scm 198 */
BgL_nodez00_bglt BgL_arg3396z00_1219;
{ /* ./Reduce/cond.scm 198 */
BgL_nodez00_bglt BgL_arg3399z00_1220;
BgL_arg3399z00_1220 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1215))->BgL_bodyz00); 
{ /* ./Reduce/cond.scm 198 */
BgL_nodez00_bglt BgL_res3552z00_1926;
{ /* ./Reduce/cond.scm 198 */
obj_t BgL_method2705z00_1901;
{ /* ./Reduce/cond.scm 198 */
BgL_objectz00_bglt BgL_objz00_1902;
BgL_objz00_1902 = 
(BgL_objectz00_bglt)(BgL_arg3399z00_1220); 
{ /* ./Reduce/cond.scm 198 */
long BgL_objzd2classzd2numz00_1903;
BgL_objzd2classzd2numz00_1903 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1902); 
{ /* ./Reduce/cond.scm 198 */
obj_t BgL_arg2017z00_1904;
{ /* ./Reduce/cond.scm 198 */
int BgL_auxz00_2560;
BgL_auxz00_2560 = 
(int)(((long)1)); 
BgL_arg2017z00_1904 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2560); } 
{ /* ./Reduce/cond.scm 198 */
int BgL_offsetz00_1907;
BgL_offsetz00_1907 = 
(int)(BgL_objzd2classzd2numz00_1903); 
{ /* ./Reduce/cond.scm 198 */
long BgL_offsetz00_1908;
{ /* ./Reduce/cond.scm 198 */
long BgL_auxz00_2564;
BgL_auxz00_2564 = 
(long)(BgL_offsetz00_1907); 
BgL_offsetz00_1908 = 
(BgL_auxz00_2564-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 198 */
long BgL_modz00_1909;
{ /* ./Reduce/cond.scm 198 */
int BgL_arg2028z00_1910;
BgL_arg2028z00_1910 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 198 */
long BgL_n2z00_1918;
BgL_n2z00_1918 = 
(long)(BgL_arg2028z00_1910); 
BgL_modz00_1909 = 
(BgL_offsetz00_1908/BgL_n2z00_1918); } } 
{ /* ./Reduce/cond.scm 198 */
long BgL_restz00_1911;
{ /* ./Reduce/cond.scm 198 */
int BgL_arg2024z00_1912;
BgL_arg2024z00_1912 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 198 */
long BgL_n2z00_1921;
BgL_n2z00_1921 = 
(long)(BgL_arg2024z00_1912); 
BgL_restz00_1911 = 
(BgL_offsetz00_1908%BgL_n2z00_1921); } } 
{ /* ./Reduce/cond.scm 198 */

{ /* ./Reduce/cond.scm 198 */
obj_t BgL_bucketz00_1913;
{ /* ./Reduce/cond.scm 198 */
int BgL_kz00_1923;
BgL_kz00_1923 = 
(int)(BgL_modz00_1909); 
BgL_bucketz00_1913 = 
VECTOR_REF(BgL_arg2017z00_1904,BgL_kz00_1923); } 
{ /* ./Reduce/cond.scm 198 */
int BgL_kz00_1925;
BgL_kz00_1925 = 
(int)(BgL_restz00_1911); 
BgL_method2705z00_1901 = 
VECTOR_REF(BgL_bucketz00_1913,BgL_kz00_1925); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 198 */
obj_t BgL_auxz00_2577;
BgL_auxz00_2577 = 
PROCEDURE_ENTRY(BgL_method2705z00_1901)(BgL_method2705z00_1901, 
(obj_t)(BgL_arg3399z00_1220), BEOA); 
BgL_res3552z00_1926 = 
(BgL_nodez00_bglt)(BgL_auxz00_2577); } } 
BgL_arg3396z00_1219 = BgL_res3552z00_1926; } } 
{ /* ./Reduce/cond.scm 198 */
BgL_setzd2exzd2itz00_bglt BgL_obj2529z00_1927;BgL_nodez00_bglt BgL_val2528z00_1928;
BgL_obj2529z00_1927 = BgL_nodez00_1215; 
BgL_val2528z00_1928 = BgL_arg3396z00_1219; 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2529z00_1927))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2528z00_1928), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 199 */
BgL_nodez00_bglt BgL_arg3403z00_1221;
{ /* ./Reduce/cond.scm 199 */
BgL_varz00_bglt BgL_arg3406z00_1222;
BgL_arg3406z00_1222 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1215))->BgL_varz00); 
{ /* ./Reduce/cond.scm 199 */
BgL_nodez00_bglt BgL_res3555z00_1956;
{ /* ./Reduce/cond.scm 199 */
BgL_nodez00_bglt BgL_nodez00_1930;
BgL_nodez00_1930 = 
(BgL_nodez00_bglt)(BgL_arg3406z00_1222); 
{ /* ./Reduce/cond.scm 199 */
obj_t BgL_method2705z00_1931;
{ /* ./Reduce/cond.scm 199 */
BgL_objectz00_bglt BgL_objz00_1932;
BgL_objz00_1932 = 
(BgL_objectz00_bglt)(BgL_nodez00_1930); 
{ /* ./Reduce/cond.scm 199 */
long BgL_objzd2classzd2numz00_1933;
BgL_objzd2classzd2numz00_1933 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1932); 
{ /* ./Reduce/cond.scm 199 */
obj_t BgL_arg2017z00_1934;
{ /* ./Reduce/cond.scm 199 */
int BgL_auxz00_2587;
BgL_auxz00_2587 = 
(int)(((long)1)); 
BgL_arg2017z00_1934 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2587); } 
{ /* ./Reduce/cond.scm 199 */
int BgL_offsetz00_1937;
BgL_offsetz00_1937 = 
(int)(BgL_objzd2classzd2numz00_1933); 
{ /* ./Reduce/cond.scm 199 */
long BgL_offsetz00_1938;
{ /* ./Reduce/cond.scm 199 */
long BgL_auxz00_2591;
BgL_auxz00_2591 = 
(long)(BgL_offsetz00_1937); 
BgL_offsetz00_1938 = 
(BgL_auxz00_2591-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 199 */
long BgL_modz00_1939;
{ /* ./Reduce/cond.scm 199 */
int BgL_arg2028z00_1940;
BgL_arg2028z00_1940 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 199 */
long BgL_n2z00_1948;
BgL_n2z00_1948 = 
(long)(BgL_arg2028z00_1940); 
BgL_modz00_1939 = 
(BgL_offsetz00_1938/BgL_n2z00_1948); } } 
{ /* ./Reduce/cond.scm 199 */
long BgL_restz00_1941;
{ /* ./Reduce/cond.scm 199 */
int BgL_arg2024z00_1942;
BgL_arg2024z00_1942 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 199 */
long BgL_n2z00_1951;
BgL_n2z00_1951 = 
(long)(BgL_arg2024z00_1942); 
BgL_restz00_1941 = 
(BgL_offsetz00_1938%BgL_n2z00_1951); } } 
{ /* ./Reduce/cond.scm 199 */

{ /* ./Reduce/cond.scm 199 */
obj_t BgL_bucketz00_1943;
{ /* ./Reduce/cond.scm 199 */
int BgL_kz00_1953;
BgL_kz00_1953 = 
(int)(BgL_modz00_1939); 
BgL_bucketz00_1943 = 
VECTOR_REF(BgL_arg2017z00_1934,BgL_kz00_1953); } 
{ /* ./Reduce/cond.scm 199 */
int BgL_kz00_1955;
BgL_kz00_1955 = 
(int)(BgL_restz00_1941); 
BgL_method2705z00_1931 = 
VECTOR_REF(BgL_bucketz00_1943,BgL_kz00_1955); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 199 */
obj_t BgL_auxz00_2604;
BgL_auxz00_2604 = 
PROCEDURE_ENTRY(BgL_method2705z00_1931)(BgL_method2705z00_1931, 
(obj_t)(BgL_nodez00_1930), BEOA); 
BgL_res3555z00_1956 = 
(BgL_nodez00_bglt)(BgL_auxz00_2604); } } } 
BgL_arg3403z00_1221 = BgL_res3555z00_1956; } } 
{ /* ./Reduce/cond.scm 199 */
BgL_setzd2exzd2itz00_bglt BgL_obj2526z00_1957;BgL_varz00_bglt BgL_val2525z00_1958;
BgL_obj2526z00_1957 = BgL_nodez00_1215; 
BgL_val2525z00_1958 = 
(BgL_varz00_bglt)(BgL_arg3403z00_1221); 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2526z00_1957))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2525z00_1958), BUNSPEC); } } 
BgL_auxz00_2556 = BgL_nodez00_1215; 
return 
(obj_t)(BgL_auxz00_2556);} } } 
}



/* node-cond!-let-var2737 */
obj_t BGl_nodezd2condz12zd2letzd2var2737zc0zzreduce_condz00(obj_t BgL_envz00_2202, obj_t BgL_nodez00_2203)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 185 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1199;
{ /* ./Reduce/cond.scm 186 */
BgL_letzd2varzd2_bglt BgL_auxz00_2613;
BgL_nodez00_1199 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2203); 
{ 
obj_t BgL_l2692z00_1203;
{ /* ./Reduce/cond.scm 187 */
obj_t BgL_arg3365z00_1205;
BgL_arg3365z00_1205 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1199))->BgL_bindingsz00); 
BgL_l2692z00_1203 = BgL_arg3365z00_1205; 
BgL_forzd2each2693zd2_1204:
{ /* ./Reduce/cond.scm 187 */
bool_t BgL_test3368z00_1206;
BgL_test3368z00_1206 = 
PAIRP(BgL_l2692z00_1203); 
if(BgL_test3368z00_1206)
{ /* ./Reduce/cond.scm 187 */
{ /* ./Reduce/cond.scm 188 */
obj_t BgL_bindingz00_1207;
BgL_bindingz00_1207 = 
CAR(BgL_l2692z00_1203); 
{ /* ./Reduce/cond.scm 188 */
BgL_nodez00_bglt BgL_arg3370z00_1208;
{ /* ./Reduce/cond.scm 188 */
obj_t BgL_arg3373z00_1209;
BgL_arg3373z00_1209 = 
CDR(BgL_bindingz00_1207); 
{ /* ./Reduce/cond.scm 188 */
BgL_nodez00_bglt BgL_res3546z00_1865;
{ /* ./Reduce/cond.scm 188 */
BgL_nodez00_bglt BgL_nodez00_1839;
BgL_nodez00_1839 = 
(BgL_nodez00_bglt)(BgL_arg3373z00_1209); 
{ /* ./Reduce/cond.scm 188 */
obj_t BgL_method2705z00_1840;
{ /* ./Reduce/cond.scm 188 */
BgL_objectz00_bglt BgL_objz00_1841;
BgL_objz00_1841 = 
(BgL_objectz00_bglt)(BgL_nodez00_1839); 
{ /* ./Reduce/cond.scm 188 */
long BgL_objzd2classzd2numz00_1842;
BgL_objzd2classzd2numz00_1842 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1841); 
{ /* ./Reduce/cond.scm 188 */
obj_t BgL_arg2017z00_1843;
{ /* ./Reduce/cond.scm 188 */
int BgL_auxz00_2622;
BgL_auxz00_2622 = 
(int)(((long)1)); 
BgL_arg2017z00_1843 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2622); } 
{ /* ./Reduce/cond.scm 188 */
int BgL_offsetz00_1846;
BgL_offsetz00_1846 = 
(int)(BgL_objzd2classzd2numz00_1842); 
{ /* ./Reduce/cond.scm 188 */
long BgL_offsetz00_1847;
{ /* ./Reduce/cond.scm 188 */
long BgL_auxz00_2626;
BgL_auxz00_2626 = 
(long)(BgL_offsetz00_1846); 
BgL_offsetz00_1847 = 
(BgL_auxz00_2626-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 188 */
long BgL_modz00_1848;
{ /* ./Reduce/cond.scm 188 */
int BgL_arg2028z00_1849;
BgL_arg2028z00_1849 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 188 */
long BgL_n2z00_1857;
BgL_n2z00_1857 = 
(long)(BgL_arg2028z00_1849); 
BgL_modz00_1848 = 
(BgL_offsetz00_1847/BgL_n2z00_1857); } } 
{ /* ./Reduce/cond.scm 188 */
long BgL_restz00_1850;
{ /* ./Reduce/cond.scm 188 */
int BgL_arg2024z00_1851;
BgL_arg2024z00_1851 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 188 */
long BgL_n2z00_1860;
BgL_n2z00_1860 = 
(long)(BgL_arg2024z00_1851); 
BgL_restz00_1850 = 
(BgL_offsetz00_1847%BgL_n2z00_1860); } } 
{ /* ./Reduce/cond.scm 188 */

{ /* ./Reduce/cond.scm 188 */
obj_t BgL_bucketz00_1852;
{ /* ./Reduce/cond.scm 188 */
int BgL_kz00_1862;
BgL_kz00_1862 = 
(int)(BgL_modz00_1848); 
BgL_bucketz00_1852 = 
VECTOR_REF(BgL_arg2017z00_1843,BgL_kz00_1862); } 
{ /* ./Reduce/cond.scm 188 */
int BgL_kz00_1864;
BgL_kz00_1864 = 
(int)(BgL_restz00_1850); 
BgL_method2705z00_1840 = 
VECTOR_REF(BgL_bucketz00_1852,BgL_kz00_1864); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 188 */
obj_t BgL_auxz00_2639;
BgL_auxz00_2639 = 
PROCEDURE_ENTRY(BgL_method2705z00_1840)(BgL_method2705z00_1840, 
(obj_t)(BgL_nodez00_1839), BEOA); 
BgL_res3546z00_1865 = 
(BgL_nodez00_bglt)(BgL_auxz00_2639); } } } 
BgL_arg3370z00_1208 = BgL_res3546z00_1865; } } 
{ /* ./Reduce/cond.scm 188 */
obj_t BgL_objz00_1867;
BgL_objz00_1867 = 
(obj_t)(BgL_arg3370z00_1208); 
SET_CDR(BgL_bindingz00_1207, BgL_objz00_1867); } } } 
{ /* ./Reduce/cond.scm 187 */
obj_t BgL_arg3378z00_1210;
BgL_arg3378z00_1210 = 
CDR(BgL_l2692z00_1203); 
{ 
obj_t BgL_l2692z00_2647;
BgL_l2692z00_2647 = BgL_arg3378z00_1210; 
BgL_l2692z00_1203 = BgL_l2692z00_2647; 
goto BgL_forzd2each2693zd2_1204;} } }  else 
{ /* ./Reduce/cond.scm 187 */((bool_t)1); } } } } 
{ /* ./Reduce/cond.scm 190 */
BgL_nodez00_bglt BgL_arg3383z00_1211;
{ /* ./Reduce/cond.scm 190 */
BgL_nodez00_bglt BgL_arg3386z00_1212;
BgL_arg3386z00_1212 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1199))->BgL_bodyz00); 
{ /* ./Reduce/cond.scm 190 */
BgL_nodez00_bglt BgL_res3549z00_1896;
{ /* ./Reduce/cond.scm 190 */
obj_t BgL_method2705z00_1871;
{ /* ./Reduce/cond.scm 190 */
BgL_objectz00_bglt BgL_objz00_1872;
BgL_objz00_1872 = 
(BgL_objectz00_bglt)(BgL_arg3386z00_1212); 
{ /* ./Reduce/cond.scm 190 */
long BgL_objzd2classzd2numz00_1873;
BgL_objzd2classzd2numz00_1873 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1872); 
{ /* ./Reduce/cond.scm 190 */
obj_t BgL_arg2017z00_1874;
{ /* ./Reduce/cond.scm 190 */
int BgL_auxz00_2651;
BgL_auxz00_2651 = 
(int)(((long)1)); 
BgL_arg2017z00_1874 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2651); } 
{ /* ./Reduce/cond.scm 190 */
int BgL_offsetz00_1877;
BgL_offsetz00_1877 = 
(int)(BgL_objzd2classzd2numz00_1873); 
{ /* ./Reduce/cond.scm 190 */
long BgL_offsetz00_1878;
{ /* ./Reduce/cond.scm 190 */
long BgL_auxz00_2655;
BgL_auxz00_2655 = 
(long)(BgL_offsetz00_1877); 
BgL_offsetz00_1878 = 
(BgL_auxz00_2655-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 190 */
long BgL_modz00_1879;
{ /* ./Reduce/cond.scm 190 */
int BgL_arg2028z00_1880;
BgL_arg2028z00_1880 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 190 */
long BgL_n2z00_1888;
BgL_n2z00_1888 = 
(long)(BgL_arg2028z00_1880); 
BgL_modz00_1879 = 
(BgL_offsetz00_1878/BgL_n2z00_1888); } } 
{ /* ./Reduce/cond.scm 190 */
long BgL_restz00_1881;
{ /* ./Reduce/cond.scm 190 */
int BgL_arg2024z00_1882;
BgL_arg2024z00_1882 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 190 */
long BgL_n2z00_1891;
BgL_n2z00_1891 = 
(long)(BgL_arg2024z00_1882); 
BgL_restz00_1881 = 
(BgL_offsetz00_1878%BgL_n2z00_1891); } } 
{ /* ./Reduce/cond.scm 190 */

{ /* ./Reduce/cond.scm 190 */
obj_t BgL_bucketz00_1883;
{ /* ./Reduce/cond.scm 190 */
int BgL_kz00_1893;
BgL_kz00_1893 = 
(int)(BgL_modz00_1879); 
BgL_bucketz00_1883 = 
VECTOR_REF(BgL_arg2017z00_1874,BgL_kz00_1893); } 
{ /* ./Reduce/cond.scm 190 */
int BgL_kz00_1895;
BgL_kz00_1895 = 
(int)(BgL_restz00_1881); 
BgL_method2705z00_1871 = 
VECTOR_REF(BgL_bucketz00_1883,BgL_kz00_1895); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 190 */
obj_t BgL_auxz00_2668;
BgL_auxz00_2668 = 
PROCEDURE_ENTRY(BgL_method2705z00_1871)(BgL_method2705z00_1871, 
(obj_t)(BgL_arg3386z00_1212), BEOA); 
BgL_res3549z00_1896 = 
(BgL_nodez00_bglt)(BgL_auxz00_2668); } } 
BgL_arg3383z00_1211 = BgL_res3549z00_1896; } } 
{ /* ./Reduce/cond.scm 190 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_1897;BgL_nodez00_bglt BgL_val2490z00_1898;
BgL_obj2491z00_1897 = BgL_nodez00_1199; 
BgL_val2490z00_1898 = BgL_arg3383z00_1211; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_1897))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_1898), BUNSPEC); } } 
BgL_auxz00_2613 = BgL_nodez00_1199; 
return 
(obj_t)(BgL_auxz00_2613);} } } 
}



/* node-cond!-let-fun2735 */
obj_t BGl_nodezd2condz12zd2letzd2fun2735zc0zzreduce_condz00(obj_t BgL_envz00_2204, obj_t BgL_nodez00_2205)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 173 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1182;
{ /* ./Reduce/cond.scm 174 */
BgL_letzd2funzd2_bglt BgL_auxz00_2676;
BgL_nodez00_1182 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2205); 
{ 
obj_t BgL_l2688z00_1186;
{ /* ./Reduce/cond.scm 175 */
obj_t BgL_arg3333z00_1188;
BgL_arg3333z00_1188 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1182))->BgL_localsz00); 
BgL_l2688z00_1186 = BgL_arg3333z00_1188; 
BgL_forzd2each2689zd2_1187:
{ /* ./Reduce/cond.scm 175 */
bool_t BgL_test3336z00_1189;
BgL_test3336z00_1189 = 
PAIRP(BgL_l2688z00_1186); 
if(BgL_test3336z00_1189)
{ /* ./Reduce/cond.scm 175 */
{ /* ./Reduce/cond.scm 176 */
obj_t BgL_localz00_1190;
BgL_localz00_1190 = 
CAR(BgL_l2688z00_1186); 
{ /* ./Reduce/cond.scm 176 */
BgL_valuez00_bglt BgL_funz00_1191;
{ /* ./Reduce/cond.scm 176 */
BgL_variablez00_bglt BgL_obj1100z00_1773;
BgL_obj1100z00_1773 = 
(BgL_variablez00_bglt)(BgL_localz00_1190); 
BgL_funz00_1191 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1773))->BgL_valuez00); } 
{ /* ./Reduce/cond.scm 177 */
BgL_nodez00_bglt BgL_arg3338z00_1192;
{ /* ./Reduce/cond.scm 177 */
obj_t BgL_arg3341z00_1193;
{ /* ./Reduce/cond.scm 177 */
BgL_sfunz00_bglt BgL_obj1370z00_1774;
BgL_obj1370z00_1774 = 
(BgL_sfunz00_bglt)(BgL_funz00_1191); 
BgL_arg3341z00_1193 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1774))->BgL_bodyz00); } 
{ /* ./Reduce/cond.scm 177 */
BgL_nodez00_bglt BgL_res3540z00_1801;
{ /* ./Reduce/cond.scm 177 */
BgL_nodez00_bglt BgL_nodez00_1775;
BgL_nodez00_1775 = 
(BgL_nodez00_bglt)(BgL_arg3341z00_1193); 
{ /* ./Reduce/cond.scm 177 */
obj_t BgL_method2705z00_1776;
{ /* ./Reduce/cond.scm 177 */
BgL_objectz00_bglt BgL_objz00_1777;
BgL_objz00_1777 = 
(BgL_objectz00_bglt)(BgL_nodez00_1775); 
{ /* ./Reduce/cond.scm 177 */
long BgL_objzd2classzd2numz00_1778;
BgL_objzd2classzd2numz00_1778 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1777); 
{ /* ./Reduce/cond.scm 177 */
obj_t BgL_arg2017z00_1779;
{ /* ./Reduce/cond.scm 177 */
int BgL_auxz00_2688;
BgL_auxz00_2688 = 
(int)(((long)1)); 
BgL_arg2017z00_1779 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2688); } 
{ /* ./Reduce/cond.scm 177 */
int BgL_offsetz00_1782;
BgL_offsetz00_1782 = 
(int)(BgL_objzd2classzd2numz00_1778); 
{ /* ./Reduce/cond.scm 177 */
long BgL_offsetz00_1783;
{ /* ./Reduce/cond.scm 177 */
long BgL_auxz00_2692;
BgL_auxz00_2692 = 
(long)(BgL_offsetz00_1782); 
BgL_offsetz00_1783 = 
(BgL_auxz00_2692-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 177 */
long BgL_modz00_1784;
{ /* ./Reduce/cond.scm 177 */
int BgL_arg2028z00_1785;
BgL_arg2028z00_1785 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 177 */
long BgL_n2z00_1793;
BgL_n2z00_1793 = 
(long)(BgL_arg2028z00_1785); 
BgL_modz00_1784 = 
(BgL_offsetz00_1783/BgL_n2z00_1793); } } 
{ /* ./Reduce/cond.scm 177 */
long BgL_restz00_1786;
{ /* ./Reduce/cond.scm 177 */
int BgL_arg2024z00_1787;
BgL_arg2024z00_1787 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 177 */
long BgL_n2z00_1796;
BgL_n2z00_1796 = 
(long)(BgL_arg2024z00_1787); 
BgL_restz00_1786 = 
(BgL_offsetz00_1783%BgL_n2z00_1796); } } 
{ /* ./Reduce/cond.scm 177 */

{ /* ./Reduce/cond.scm 177 */
obj_t BgL_bucketz00_1788;
{ /* ./Reduce/cond.scm 177 */
int BgL_kz00_1798;
BgL_kz00_1798 = 
(int)(BgL_modz00_1784); 
BgL_bucketz00_1788 = 
VECTOR_REF(BgL_arg2017z00_1779,BgL_kz00_1798); } 
{ /* ./Reduce/cond.scm 177 */
int BgL_kz00_1800;
BgL_kz00_1800 = 
(int)(BgL_restz00_1786); 
BgL_method2705z00_1776 = 
VECTOR_REF(BgL_bucketz00_1788,BgL_kz00_1800); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 177 */
obj_t BgL_auxz00_2705;
BgL_auxz00_2705 = 
PROCEDURE_ENTRY(BgL_method2705z00_1776)(BgL_method2705z00_1776, 
(obj_t)(BgL_nodez00_1775), BEOA); 
BgL_res3540z00_1801 = 
(BgL_nodez00_bglt)(BgL_auxz00_2705); } } } 
BgL_arg3338z00_1192 = BgL_res3540z00_1801; } } 
{ /* ./Reduce/cond.scm 177 */
BgL_sfunz00_bglt BgL_obj1373z00_1802;obj_t BgL_val1371z00_1803;
BgL_obj1373z00_1802 = 
(BgL_sfunz00_bglt)(BgL_funz00_1191); 
BgL_val1371z00_1803 = 
(obj_t)(BgL_arg3338z00_1192); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1802))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1803), BUNSPEC); } } } } 
{ /* ./Reduce/cond.scm 175 */
obj_t BgL_arg3347z00_1194;
BgL_arg3347z00_1194 = 
CDR(BgL_l2688z00_1186); 
{ 
obj_t BgL_l2688z00_2714;
BgL_l2688z00_2714 = BgL_arg3347z00_1194; 
BgL_l2688z00_1186 = BgL_l2688z00_2714; 
goto BgL_forzd2each2689zd2_1187;} } }  else 
{ /* ./Reduce/cond.scm 175 */((bool_t)1); } } } } 
{ /* ./Reduce/cond.scm 179 */
BgL_nodez00_bglt BgL_arg3352z00_1195;
{ /* ./Reduce/cond.scm 179 */
BgL_nodez00_bglt BgL_arg3355z00_1196;
BgL_arg3355z00_1196 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1182))->BgL_bodyz00); 
{ /* ./Reduce/cond.scm 179 */
BgL_nodez00_bglt BgL_res3543z00_1832;
{ /* ./Reduce/cond.scm 179 */
obj_t BgL_method2705z00_1807;
{ /* ./Reduce/cond.scm 179 */
BgL_objectz00_bglt BgL_objz00_1808;
BgL_objz00_1808 = 
(BgL_objectz00_bglt)(BgL_arg3355z00_1196); 
{ /* ./Reduce/cond.scm 179 */
long BgL_objzd2classzd2numz00_1809;
BgL_objzd2classzd2numz00_1809 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1808); 
{ /* ./Reduce/cond.scm 179 */
obj_t BgL_arg2017z00_1810;
{ /* ./Reduce/cond.scm 179 */
int BgL_auxz00_2718;
BgL_auxz00_2718 = 
(int)(((long)1)); 
BgL_arg2017z00_1810 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2718); } 
{ /* ./Reduce/cond.scm 179 */
int BgL_offsetz00_1813;
BgL_offsetz00_1813 = 
(int)(BgL_objzd2classzd2numz00_1809); 
{ /* ./Reduce/cond.scm 179 */
long BgL_offsetz00_1814;
{ /* ./Reduce/cond.scm 179 */
long BgL_auxz00_2722;
BgL_auxz00_2722 = 
(long)(BgL_offsetz00_1813); 
BgL_offsetz00_1814 = 
(BgL_auxz00_2722-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 179 */
long BgL_modz00_1815;
{ /* ./Reduce/cond.scm 179 */
int BgL_arg2028z00_1816;
BgL_arg2028z00_1816 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 179 */
long BgL_n2z00_1824;
BgL_n2z00_1824 = 
(long)(BgL_arg2028z00_1816); 
BgL_modz00_1815 = 
(BgL_offsetz00_1814/BgL_n2z00_1824); } } 
{ /* ./Reduce/cond.scm 179 */
long BgL_restz00_1817;
{ /* ./Reduce/cond.scm 179 */
int BgL_arg2024z00_1818;
BgL_arg2024z00_1818 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 179 */
long BgL_n2z00_1827;
BgL_n2z00_1827 = 
(long)(BgL_arg2024z00_1818); 
BgL_restz00_1817 = 
(BgL_offsetz00_1814%BgL_n2z00_1827); } } 
{ /* ./Reduce/cond.scm 179 */

{ /* ./Reduce/cond.scm 179 */
obj_t BgL_bucketz00_1819;
{ /* ./Reduce/cond.scm 179 */
int BgL_kz00_1829;
BgL_kz00_1829 = 
(int)(BgL_modz00_1815); 
BgL_bucketz00_1819 = 
VECTOR_REF(BgL_arg2017z00_1810,BgL_kz00_1829); } 
{ /* ./Reduce/cond.scm 179 */
int BgL_kz00_1831;
BgL_kz00_1831 = 
(int)(BgL_restz00_1817); 
BgL_method2705z00_1807 = 
VECTOR_REF(BgL_bucketz00_1819,BgL_kz00_1831); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 179 */
obj_t BgL_auxz00_2735;
BgL_auxz00_2735 = 
PROCEDURE_ENTRY(BgL_method2705z00_1807)(BgL_method2705z00_1807, 
(obj_t)(BgL_arg3355z00_1196), BEOA); 
BgL_res3543z00_1832 = 
(BgL_nodez00_bglt)(BgL_auxz00_2735); } } 
BgL_arg3352z00_1195 = BgL_res3543z00_1832; } } 
{ /* ./Reduce/cond.scm 179 */
BgL_letzd2funzd2_bglt BgL_obj2453z00_1833;BgL_nodez00_bglt BgL_val2452z00_1834;
BgL_obj2453z00_1833 = BgL_nodez00_1182; 
BgL_val2452z00_1834 = BgL_arg3352z00_1195; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2453z00_1833))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2452z00_1834), BUNSPEC); } } 
BgL_auxz00_2676 = BgL_nodez00_1182; 
return 
(obj_t)(BgL_auxz00_2676);} } } 
}



/* node-cond!-select2733 */
obj_t BGl_nodezd2condz12zd2select2733z12zzreduce_condz00(obj_t BgL_envz00_2206, obj_t BgL_nodez00_2207)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 162 */
{ 
BgL_selectz00_bglt BgL_nodez00_1166;
{ /* ./Reduce/cond.scm 163 */
BgL_selectz00_bglt BgL_auxz00_2743;
BgL_nodez00_1166 = 
(BgL_selectz00_bglt)(BgL_nodez00_2207); 
{ /* ./Reduce/cond.scm 164 */
BgL_nodez00_bglt BgL_arg3302z00_1170;
{ /* ./Reduce/cond.scm 164 */
BgL_nodez00_bglt BgL_arg3305z00_1171;
BgL_arg3305z00_1171 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1166))->BgL_testz00); 
{ /* ./Reduce/cond.scm 164 */
BgL_nodez00_bglt BgL_res3534z00_1733;
{ /* ./Reduce/cond.scm 164 */
obj_t BgL_method2705z00_1708;
{ /* ./Reduce/cond.scm 164 */
BgL_objectz00_bglt BgL_objz00_1709;
BgL_objz00_1709 = 
(BgL_objectz00_bglt)(BgL_arg3305z00_1171); 
{ /* ./Reduce/cond.scm 164 */
long BgL_objzd2classzd2numz00_1710;
BgL_objzd2classzd2numz00_1710 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1709); 
{ /* ./Reduce/cond.scm 164 */
obj_t BgL_arg2017z00_1711;
{ /* ./Reduce/cond.scm 164 */
int BgL_auxz00_2747;
BgL_auxz00_2747 = 
(int)(((long)1)); 
BgL_arg2017z00_1711 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2747); } 
{ /* ./Reduce/cond.scm 164 */
int BgL_offsetz00_1714;
BgL_offsetz00_1714 = 
(int)(BgL_objzd2classzd2numz00_1710); 
{ /* ./Reduce/cond.scm 164 */
long BgL_offsetz00_1715;
{ /* ./Reduce/cond.scm 164 */
long BgL_auxz00_2751;
BgL_auxz00_2751 = 
(long)(BgL_offsetz00_1714); 
BgL_offsetz00_1715 = 
(BgL_auxz00_2751-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 164 */
long BgL_modz00_1716;
{ /* ./Reduce/cond.scm 164 */
int BgL_arg2028z00_1717;
BgL_arg2028z00_1717 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 164 */
long BgL_n2z00_1725;
BgL_n2z00_1725 = 
(long)(BgL_arg2028z00_1717); 
BgL_modz00_1716 = 
(BgL_offsetz00_1715/BgL_n2z00_1725); } } 
{ /* ./Reduce/cond.scm 164 */
long BgL_restz00_1718;
{ /* ./Reduce/cond.scm 164 */
int BgL_arg2024z00_1719;
BgL_arg2024z00_1719 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 164 */
long BgL_n2z00_1728;
BgL_n2z00_1728 = 
(long)(BgL_arg2024z00_1719); 
BgL_restz00_1718 = 
(BgL_offsetz00_1715%BgL_n2z00_1728); } } 
{ /* ./Reduce/cond.scm 164 */

{ /* ./Reduce/cond.scm 164 */
obj_t BgL_bucketz00_1720;
{ /* ./Reduce/cond.scm 164 */
int BgL_kz00_1730;
BgL_kz00_1730 = 
(int)(BgL_modz00_1716); 
BgL_bucketz00_1720 = 
VECTOR_REF(BgL_arg2017z00_1711,BgL_kz00_1730); } 
{ /* ./Reduce/cond.scm 164 */
int BgL_kz00_1732;
BgL_kz00_1732 = 
(int)(BgL_restz00_1718); 
BgL_method2705z00_1708 = 
VECTOR_REF(BgL_bucketz00_1720,BgL_kz00_1732); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 164 */
obj_t BgL_auxz00_2764;
BgL_auxz00_2764 = 
PROCEDURE_ENTRY(BgL_method2705z00_1708)(BgL_method2705z00_1708, 
(obj_t)(BgL_arg3305z00_1171), BEOA); 
BgL_res3534z00_1733 = 
(BgL_nodez00_bglt)(BgL_auxz00_2764); } } 
BgL_arg3302z00_1170 = BgL_res3534z00_1733; } } 
{ /* ./Reduce/cond.scm 164 */
BgL_selectz00_bglt BgL_obj2410z00_1734;BgL_nodez00_bglt BgL_val2409z00_1735;
BgL_obj2410z00_1734 = BgL_nodez00_1166; 
BgL_val2409z00_1735 = BgL_arg3302z00_1170; 
((((BgL_selectz00_bglt)CREF(BgL_obj2410z00_1734))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2409z00_1735), BUNSPEC); } } 
{ 
obj_t BgL_l2684z00_1172;
{ /* ./Reduce/cond.scm 165 */
obj_t BgL_arg3309z00_1174;
BgL_arg3309z00_1174 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1166))->BgL_clausesz00); 
BgL_l2684z00_1172 = BgL_arg3309z00_1174; 
BgL_forzd2each2685zd2_1173:
{ /* ./Reduce/cond.scm 165 */
bool_t BgL_test3312z00_1175;
BgL_test3312z00_1175 = 
PAIRP(BgL_l2684z00_1172); 
if(BgL_test3312z00_1175)
{ /* ./Reduce/cond.scm 165 */
{ /* ./Reduce/cond.scm 166 */
obj_t BgL_clausez00_1176;
BgL_clausez00_1176 = 
CAR(BgL_l2684z00_1172); 
{ /* ./Reduce/cond.scm 166 */
BgL_nodez00_bglt BgL_arg3314z00_1177;
{ /* ./Reduce/cond.scm 166 */
obj_t BgL_arg3317z00_1178;
BgL_arg3317z00_1178 = 
CDR(BgL_clausez00_1176); 
{ /* ./Reduce/cond.scm 166 */
BgL_nodez00_bglt BgL_res3537z00_1766;
{ /* ./Reduce/cond.scm 166 */
BgL_nodez00_bglt BgL_nodez00_1740;
BgL_nodez00_1740 = 
(BgL_nodez00_bglt)(BgL_arg3317z00_1178); 
{ /* ./Reduce/cond.scm 166 */
obj_t BgL_method2705z00_1741;
{ /* ./Reduce/cond.scm 166 */
BgL_objectz00_bglt BgL_objz00_1742;
BgL_objz00_1742 = 
(BgL_objectz00_bglt)(BgL_nodez00_1740); 
{ /* ./Reduce/cond.scm 166 */
long BgL_objzd2classzd2numz00_1743;
BgL_objzd2classzd2numz00_1743 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1742); 
{ /* ./Reduce/cond.scm 166 */
obj_t BgL_arg2017z00_1744;
{ /* ./Reduce/cond.scm 166 */
int BgL_auxz00_2778;
BgL_auxz00_2778 = 
(int)(((long)1)); 
BgL_arg2017z00_1744 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2778); } 
{ /* ./Reduce/cond.scm 166 */
int BgL_offsetz00_1747;
BgL_offsetz00_1747 = 
(int)(BgL_objzd2classzd2numz00_1743); 
{ /* ./Reduce/cond.scm 166 */
long BgL_offsetz00_1748;
{ /* ./Reduce/cond.scm 166 */
long BgL_auxz00_2782;
BgL_auxz00_2782 = 
(long)(BgL_offsetz00_1747); 
BgL_offsetz00_1748 = 
(BgL_auxz00_2782-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 166 */
long BgL_modz00_1749;
{ /* ./Reduce/cond.scm 166 */
int BgL_arg2028z00_1750;
BgL_arg2028z00_1750 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 166 */
long BgL_n2z00_1758;
BgL_n2z00_1758 = 
(long)(BgL_arg2028z00_1750); 
BgL_modz00_1749 = 
(BgL_offsetz00_1748/BgL_n2z00_1758); } } 
{ /* ./Reduce/cond.scm 166 */
long BgL_restz00_1751;
{ /* ./Reduce/cond.scm 166 */
int BgL_arg2024z00_1752;
BgL_arg2024z00_1752 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 166 */
long BgL_n2z00_1761;
BgL_n2z00_1761 = 
(long)(BgL_arg2024z00_1752); 
BgL_restz00_1751 = 
(BgL_offsetz00_1748%BgL_n2z00_1761); } } 
{ /* ./Reduce/cond.scm 166 */

{ /* ./Reduce/cond.scm 166 */
obj_t BgL_bucketz00_1753;
{ /* ./Reduce/cond.scm 166 */
int BgL_kz00_1763;
BgL_kz00_1763 = 
(int)(BgL_modz00_1749); 
BgL_bucketz00_1753 = 
VECTOR_REF(BgL_arg2017z00_1744,BgL_kz00_1763); } 
{ /* ./Reduce/cond.scm 166 */
int BgL_kz00_1765;
BgL_kz00_1765 = 
(int)(BgL_restz00_1751); 
BgL_method2705z00_1741 = 
VECTOR_REF(BgL_bucketz00_1753,BgL_kz00_1765); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 166 */
obj_t BgL_auxz00_2795;
BgL_auxz00_2795 = 
PROCEDURE_ENTRY(BgL_method2705z00_1741)(BgL_method2705z00_1741, 
(obj_t)(BgL_nodez00_1740), BEOA); 
BgL_res3537z00_1766 = 
(BgL_nodez00_bglt)(BgL_auxz00_2795); } } } 
BgL_arg3314z00_1177 = BgL_res3537z00_1766; } } 
{ /* ./Reduce/cond.scm 166 */
obj_t BgL_objz00_1768;
BgL_objz00_1768 = 
(obj_t)(BgL_arg3314z00_1177); 
SET_CDR(BgL_clausez00_1176, BgL_objz00_1768); } } } 
{ /* ./Reduce/cond.scm 165 */
obj_t BgL_arg3322z00_1179;
BgL_arg3322z00_1179 = 
CDR(BgL_l2684z00_1172); 
{ 
obj_t BgL_l2684z00_2803;
BgL_l2684z00_2803 = BgL_arg3322z00_1179; 
BgL_l2684z00_1172 = BgL_l2684z00_2803; 
goto BgL_forzd2each2685zd2_1173;} } }  else 
{ /* ./Reduce/cond.scm 165 */((bool_t)1); } } } } 
BgL_auxz00_2743 = BgL_nodez00_1166; 
return 
(obj_t)(BgL_auxz00_2743);} } } 
}



/* node-cond!-fail2731 */
obj_t BGl_nodezd2condz12zd2fail2731z12zzreduce_condz00(obj_t BgL_envz00_2208, obj_t BgL_nodez00_2209)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 152 */
{ 
BgL_failz00_bglt BgL_nodez00_1154;
{ /* ./Reduce/cond.scm 153 */
BgL_failz00_bglt BgL_auxz00_2806;
BgL_nodez00_1154 = 
(BgL_failz00_bglt)(BgL_nodez00_2209); 
{ /* ./Reduce/cond.scm 154 */
BgL_nodez00_bglt BgL_arg3275z00_1158;
{ /* ./Reduce/cond.scm 154 */
BgL_nodez00_bglt BgL_arg3278z00_1159;
BgL_arg3278z00_1159 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1154))->BgL_procz00); 
{ /* ./Reduce/cond.scm 154 */
BgL_nodez00_bglt BgL_res3525z00_1643;
{ /* ./Reduce/cond.scm 154 */
obj_t BgL_method2705z00_1618;
{ /* ./Reduce/cond.scm 154 */
BgL_objectz00_bglt BgL_objz00_1619;
BgL_objz00_1619 = 
(BgL_objectz00_bglt)(BgL_arg3278z00_1159); 
{ /* ./Reduce/cond.scm 154 */
long BgL_objzd2classzd2numz00_1620;
BgL_objzd2classzd2numz00_1620 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1619); 
{ /* ./Reduce/cond.scm 154 */
obj_t BgL_arg2017z00_1621;
{ /* ./Reduce/cond.scm 154 */
int BgL_auxz00_2810;
BgL_auxz00_2810 = 
(int)(((long)1)); 
BgL_arg2017z00_1621 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2810); } 
{ /* ./Reduce/cond.scm 154 */
int BgL_offsetz00_1624;
BgL_offsetz00_1624 = 
(int)(BgL_objzd2classzd2numz00_1620); 
{ /* ./Reduce/cond.scm 154 */
long BgL_offsetz00_1625;
{ /* ./Reduce/cond.scm 154 */
long BgL_auxz00_2814;
BgL_auxz00_2814 = 
(long)(BgL_offsetz00_1624); 
BgL_offsetz00_1625 = 
(BgL_auxz00_2814-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 154 */
long BgL_modz00_1626;
{ /* ./Reduce/cond.scm 154 */
int BgL_arg2028z00_1627;
BgL_arg2028z00_1627 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 154 */
long BgL_n2z00_1635;
BgL_n2z00_1635 = 
(long)(BgL_arg2028z00_1627); 
BgL_modz00_1626 = 
(BgL_offsetz00_1625/BgL_n2z00_1635); } } 
{ /* ./Reduce/cond.scm 154 */
long BgL_restz00_1628;
{ /* ./Reduce/cond.scm 154 */
int BgL_arg2024z00_1629;
BgL_arg2024z00_1629 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 154 */
long BgL_n2z00_1638;
BgL_n2z00_1638 = 
(long)(BgL_arg2024z00_1629); 
BgL_restz00_1628 = 
(BgL_offsetz00_1625%BgL_n2z00_1638); } } 
{ /* ./Reduce/cond.scm 154 */

{ /* ./Reduce/cond.scm 154 */
obj_t BgL_bucketz00_1630;
{ /* ./Reduce/cond.scm 154 */
int BgL_kz00_1640;
BgL_kz00_1640 = 
(int)(BgL_modz00_1626); 
BgL_bucketz00_1630 = 
VECTOR_REF(BgL_arg2017z00_1621,BgL_kz00_1640); } 
{ /* ./Reduce/cond.scm 154 */
int BgL_kz00_1642;
BgL_kz00_1642 = 
(int)(BgL_restz00_1628); 
BgL_method2705z00_1618 = 
VECTOR_REF(BgL_bucketz00_1630,BgL_kz00_1642); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 154 */
obj_t BgL_auxz00_2827;
BgL_auxz00_2827 = 
PROCEDURE_ENTRY(BgL_method2705z00_1618)(BgL_method2705z00_1618, 
(obj_t)(BgL_arg3278z00_1159), BEOA); 
BgL_res3525z00_1643 = 
(BgL_nodez00_bglt)(BgL_auxz00_2827); } } 
BgL_arg3275z00_1158 = BgL_res3525z00_1643; } } 
{ /* ./Reduce/cond.scm 154 */
BgL_failz00_bglt BgL_obj2372z00_1644;BgL_nodez00_bglt BgL_val2371z00_1645;
BgL_obj2372z00_1644 = BgL_nodez00_1154; 
BgL_val2371z00_1645 = BgL_arg3275z00_1158; 
((((BgL_failz00_bglt)CREF(BgL_obj2372z00_1644))->BgL_procz00) = ((BgL_nodez00_bglt)BgL_val2371z00_1645), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 155 */
BgL_nodez00_bglt BgL_arg3282z00_1160;
{ /* ./Reduce/cond.scm 155 */
BgL_nodez00_bglt BgL_arg3285z00_1161;
BgL_arg3285z00_1161 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1154))->BgL_msgz00); 
{ /* ./Reduce/cond.scm 155 */
BgL_nodez00_bglt BgL_res3528z00_1673;
{ /* ./Reduce/cond.scm 155 */
obj_t BgL_method2705z00_1648;
{ /* ./Reduce/cond.scm 155 */
BgL_objectz00_bglt BgL_objz00_1649;
BgL_objz00_1649 = 
(BgL_objectz00_bglt)(BgL_arg3285z00_1161); 
{ /* ./Reduce/cond.scm 155 */
long BgL_objzd2classzd2numz00_1650;
BgL_objzd2classzd2numz00_1650 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1649); 
{ /* ./Reduce/cond.scm 155 */
obj_t BgL_arg2017z00_1651;
{ /* ./Reduce/cond.scm 155 */
int BgL_auxz00_2836;
BgL_auxz00_2836 = 
(int)(((long)1)); 
BgL_arg2017z00_1651 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2836); } 
{ /* ./Reduce/cond.scm 155 */
int BgL_offsetz00_1654;
BgL_offsetz00_1654 = 
(int)(BgL_objzd2classzd2numz00_1650); 
{ /* ./Reduce/cond.scm 155 */
long BgL_offsetz00_1655;
{ /* ./Reduce/cond.scm 155 */
long BgL_auxz00_2840;
BgL_auxz00_2840 = 
(long)(BgL_offsetz00_1654); 
BgL_offsetz00_1655 = 
(BgL_auxz00_2840-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 155 */
long BgL_modz00_1656;
{ /* ./Reduce/cond.scm 155 */
int BgL_arg2028z00_1657;
BgL_arg2028z00_1657 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 155 */
long BgL_n2z00_1665;
BgL_n2z00_1665 = 
(long)(BgL_arg2028z00_1657); 
BgL_modz00_1656 = 
(BgL_offsetz00_1655/BgL_n2z00_1665); } } 
{ /* ./Reduce/cond.scm 155 */
long BgL_restz00_1658;
{ /* ./Reduce/cond.scm 155 */
int BgL_arg2024z00_1659;
BgL_arg2024z00_1659 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 155 */
long BgL_n2z00_1668;
BgL_n2z00_1668 = 
(long)(BgL_arg2024z00_1659); 
BgL_restz00_1658 = 
(BgL_offsetz00_1655%BgL_n2z00_1668); } } 
{ /* ./Reduce/cond.scm 155 */

{ /* ./Reduce/cond.scm 155 */
obj_t BgL_bucketz00_1660;
{ /* ./Reduce/cond.scm 155 */
int BgL_kz00_1670;
BgL_kz00_1670 = 
(int)(BgL_modz00_1656); 
BgL_bucketz00_1660 = 
VECTOR_REF(BgL_arg2017z00_1651,BgL_kz00_1670); } 
{ /* ./Reduce/cond.scm 155 */
int BgL_kz00_1672;
BgL_kz00_1672 = 
(int)(BgL_restz00_1658); 
BgL_method2705z00_1648 = 
VECTOR_REF(BgL_bucketz00_1660,BgL_kz00_1672); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 155 */
obj_t BgL_auxz00_2853;
BgL_auxz00_2853 = 
PROCEDURE_ENTRY(BgL_method2705z00_1648)(BgL_method2705z00_1648, 
(obj_t)(BgL_arg3285z00_1161), BEOA); 
BgL_res3528z00_1673 = 
(BgL_nodez00_bglt)(BgL_auxz00_2853); } } 
BgL_arg3282z00_1160 = BgL_res3528z00_1673; } } 
{ /* ./Reduce/cond.scm 155 */
BgL_failz00_bglt BgL_obj2375z00_1674;BgL_nodez00_bglt BgL_val2374z00_1675;
BgL_obj2375z00_1674 = BgL_nodez00_1154; 
BgL_val2374z00_1675 = BgL_arg3282z00_1160; 
((((BgL_failz00_bglt)CREF(BgL_obj2375z00_1674))->BgL_msgz00) = ((BgL_nodez00_bglt)BgL_val2374z00_1675), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 156 */
BgL_nodez00_bglt BgL_arg3289z00_1162;
{ /* ./Reduce/cond.scm 156 */
BgL_nodez00_bglt BgL_arg3292z00_1163;
BgL_arg3292z00_1163 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1154))->BgL_objz00); 
{ /* ./Reduce/cond.scm 156 */
BgL_nodez00_bglt BgL_res3531z00_1703;
{ /* ./Reduce/cond.scm 156 */
obj_t BgL_method2705z00_1678;
{ /* ./Reduce/cond.scm 156 */
BgL_objectz00_bglt BgL_objz00_1679;
BgL_objz00_1679 = 
(BgL_objectz00_bglt)(BgL_arg3292z00_1163); 
{ /* ./Reduce/cond.scm 156 */
long BgL_objzd2classzd2numz00_1680;
BgL_objzd2classzd2numz00_1680 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1679); 
{ /* ./Reduce/cond.scm 156 */
obj_t BgL_arg2017z00_1681;
{ /* ./Reduce/cond.scm 156 */
int BgL_auxz00_2862;
BgL_auxz00_2862 = 
(int)(((long)1)); 
BgL_arg2017z00_1681 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2862); } 
{ /* ./Reduce/cond.scm 156 */
int BgL_offsetz00_1684;
BgL_offsetz00_1684 = 
(int)(BgL_objzd2classzd2numz00_1680); 
{ /* ./Reduce/cond.scm 156 */
long BgL_offsetz00_1685;
{ /* ./Reduce/cond.scm 156 */
long BgL_auxz00_2866;
BgL_auxz00_2866 = 
(long)(BgL_offsetz00_1684); 
BgL_offsetz00_1685 = 
(BgL_auxz00_2866-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 156 */
long BgL_modz00_1686;
{ /* ./Reduce/cond.scm 156 */
int BgL_arg2028z00_1687;
BgL_arg2028z00_1687 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 156 */
long BgL_n2z00_1695;
BgL_n2z00_1695 = 
(long)(BgL_arg2028z00_1687); 
BgL_modz00_1686 = 
(BgL_offsetz00_1685/BgL_n2z00_1695); } } 
{ /* ./Reduce/cond.scm 156 */
long BgL_restz00_1688;
{ /* ./Reduce/cond.scm 156 */
int BgL_arg2024z00_1689;
BgL_arg2024z00_1689 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 156 */
long BgL_n2z00_1698;
BgL_n2z00_1698 = 
(long)(BgL_arg2024z00_1689); 
BgL_restz00_1688 = 
(BgL_offsetz00_1685%BgL_n2z00_1698); } } 
{ /* ./Reduce/cond.scm 156 */

{ /* ./Reduce/cond.scm 156 */
obj_t BgL_bucketz00_1690;
{ /* ./Reduce/cond.scm 156 */
int BgL_kz00_1700;
BgL_kz00_1700 = 
(int)(BgL_modz00_1686); 
BgL_bucketz00_1690 = 
VECTOR_REF(BgL_arg2017z00_1681,BgL_kz00_1700); } 
{ /* ./Reduce/cond.scm 156 */
int BgL_kz00_1702;
BgL_kz00_1702 = 
(int)(BgL_restz00_1688); 
BgL_method2705z00_1678 = 
VECTOR_REF(BgL_bucketz00_1690,BgL_kz00_1702); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 156 */
obj_t BgL_auxz00_2879;
BgL_auxz00_2879 = 
PROCEDURE_ENTRY(BgL_method2705z00_1678)(BgL_method2705z00_1678, 
(obj_t)(BgL_arg3292z00_1163), BEOA); 
BgL_res3531z00_1703 = 
(BgL_nodez00_bglt)(BgL_auxz00_2879); } } 
BgL_arg3289z00_1162 = BgL_res3531z00_1703; } } 
{ /* ./Reduce/cond.scm 156 */
BgL_failz00_bglt BgL_obj2378z00_1704;BgL_nodez00_bglt BgL_val2377z00_1705;
BgL_obj2378z00_1704 = BgL_nodez00_1154; 
BgL_val2377z00_1705 = BgL_arg3289z00_1162; 
((((BgL_failz00_bglt)CREF(BgL_obj2378z00_1704))->BgL_objz00) = ((BgL_nodez00_bglt)BgL_val2377z00_1705), BUNSPEC); } } 
BgL_auxz00_2806 = BgL_nodez00_1154; 
return 
(obj_t)(BgL_auxz00_2806);} } } 
}



/* node-cond!-conditional2729 */
obj_t BGl_nodezd2condz12zd2conditional2729z12zzreduce_condz00(obj_t BgL_envz00_2210, obj_t BgL_nodez00_2211)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 135 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1138;
BgL_nodez00_1138 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2211); 
{ /* ./Reduce/cond.scm 137 */
BgL_nodez00_bglt BgL_arg3234z00_1142;
{ /* ./Reduce/cond.scm 137 */
BgL_nodez00_bglt BgL_arg3237z00_1143;
BgL_arg3237z00_1143 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1138))->BgL_testz00); 
{ /* ./Reduce/cond.scm 137 */
BgL_nodez00_bglt BgL_res3516z00_1545;
{ /* ./Reduce/cond.scm 137 */
obj_t BgL_method2705z00_1520;
{ /* ./Reduce/cond.scm 137 */
BgL_objectz00_bglt BgL_objz00_1521;
BgL_objz00_1521 = 
(BgL_objectz00_bglt)(BgL_arg3237z00_1143); 
{ /* ./Reduce/cond.scm 137 */
long BgL_objzd2classzd2numz00_1522;
BgL_objzd2classzd2numz00_1522 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1521); 
{ /* ./Reduce/cond.scm 137 */
obj_t BgL_arg2017z00_1523;
{ /* ./Reduce/cond.scm 137 */
int BgL_auxz00_2890;
BgL_auxz00_2890 = 
(int)(((long)1)); 
BgL_arg2017z00_1523 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2890); } 
{ /* ./Reduce/cond.scm 137 */
int BgL_offsetz00_1526;
BgL_offsetz00_1526 = 
(int)(BgL_objzd2classzd2numz00_1522); 
{ /* ./Reduce/cond.scm 137 */
long BgL_offsetz00_1527;
{ /* ./Reduce/cond.scm 137 */
long BgL_auxz00_2894;
BgL_auxz00_2894 = 
(long)(BgL_offsetz00_1526); 
BgL_offsetz00_1527 = 
(BgL_auxz00_2894-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 137 */
long BgL_modz00_1528;
{ /* ./Reduce/cond.scm 137 */
int BgL_arg2028z00_1529;
BgL_arg2028z00_1529 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 137 */
long BgL_n2z00_1537;
BgL_n2z00_1537 = 
(long)(BgL_arg2028z00_1529); 
BgL_modz00_1528 = 
(BgL_offsetz00_1527/BgL_n2z00_1537); } } 
{ /* ./Reduce/cond.scm 137 */
long BgL_restz00_1530;
{ /* ./Reduce/cond.scm 137 */
int BgL_arg2024z00_1531;
BgL_arg2024z00_1531 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 137 */
long BgL_n2z00_1540;
BgL_n2z00_1540 = 
(long)(BgL_arg2024z00_1531); 
BgL_restz00_1530 = 
(BgL_offsetz00_1527%BgL_n2z00_1540); } } 
{ /* ./Reduce/cond.scm 137 */

{ /* ./Reduce/cond.scm 137 */
obj_t BgL_bucketz00_1532;
{ /* ./Reduce/cond.scm 137 */
int BgL_kz00_1542;
BgL_kz00_1542 = 
(int)(BgL_modz00_1528); 
BgL_bucketz00_1532 = 
VECTOR_REF(BgL_arg2017z00_1523,BgL_kz00_1542); } 
{ /* ./Reduce/cond.scm 137 */
int BgL_kz00_1544;
BgL_kz00_1544 = 
(int)(BgL_restz00_1530); 
BgL_method2705z00_1520 = 
VECTOR_REF(BgL_bucketz00_1532,BgL_kz00_1544); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 137 */
obj_t BgL_auxz00_2907;
BgL_auxz00_2907 = 
PROCEDURE_ENTRY(BgL_method2705z00_1520)(BgL_method2705z00_1520, 
(obj_t)(BgL_arg3237z00_1143), BEOA); 
BgL_res3516z00_1545 = 
(BgL_nodez00_bglt)(BgL_auxz00_2907); } } 
BgL_arg3234z00_1142 = BgL_res3516z00_1545; } } 
{ /* ./Reduce/cond.scm 137 */
BgL_conditionalz00_bglt BgL_obj2334z00_1546;BgL_nodez00_bglt BgL_val2333z00_1547;
BgL_obj2334z00_1546 = BgL_nodez00_1138; 
BgL_val2333z00_1547 = BgL_arg3234z00_1142; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_1546))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_1547), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 138 */
BgL_nodez00_bglt BgL_arg3241z00_1144;
{ /* ./Reduce/cond.scm 138 */
BgL_nodez00_bglt BgL_arg3245z00_1145;
BgL_arg3245z00_1145 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1138))->BgL_truez00); 
{ /* ./Reduce/cond.scm 138 */
BgL_nodez00_bglt BgL_res3519z00_1575;
{ /* ./Reduce/cond.scm 138 */
obj_t BgL_method2705z00_1550;
{ /* ./Reduce/cond.scm 138 */
BgL_objectz00_bglt BgL_objz00_1551;
BgL_objz00_1551 = 
(BgL_objectz00_bglt)(BgL_arg3245z00_1145); 
{ /* ./Reduce/cond.scm 138 */
long BgL_objzd2classzd2numz00_1552;
BgL_objzd2classzd2numz00_1552 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1551); 
{ /* ./Reduce/cond.scm 138 */
obj_t BgL_arg2017z00_1553;
{ /* ./Reduce/cond.scm 138 */
int BgL_auxz00_2916;
BgL_auxz00_2916 = 
(int)(((long)1)); 
BgL_arg2017z00_1553 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2916); } 
{ /* ./Reduce/cond.scm 138 */
int BgL_offsetz00_1556;
BgL_offsetz00_1556 = 
(int)(BgL_objzd2classzd2numz00_1552); 
{ /* ./Reduce/cond.scm 138 */
long BgL_offsetz00_1557;
{ /* ./Reduce/cond.scm 138 */
long BgL_auxz00_2920;
BgL_auxz00_2920 = 
(long)(BgL_offsetz00_1556); 
BgL_offsetz00_1557 = 
(BgL_auxz00_2920-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 138 */
long BgL_modz00_1558;
{ /* ./Reduce/cond.scm 138 */
int BgL_arg2028z00_1559;
BgL_arg2028z00_1559 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 138 */
long BgL_n2z00_1567;
BgL_n2z00_1567 = 
(long)(BgL_arg2028z00_1559); 
BgL_modz00_1558 = 
(BgL_offsetz00_1557/BgL_n2z00_1567); } } 
{ /* ./Reduce/cond.scm 138 */
long BgL_restz00_1560;
{ /* ./Reduce/cond.scm 138 */
int BgL_arg2024z00_1561;
BgL_arg2024z00_1561 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 138 */
long BgL_n2z00_1570;
BgL_n2z00_1570 = 
(long)(BgL_arg2024z00_1561); 
BgL_restz00_1560 = 
(BgL_offsetz00_1557%BgL_n2z00_1570); } } 
{ /* ./Reduce/cond.scm 138 */

{ /* ./Reduce/cond.scm 138 */
obj_t BgL_bucketz00_1562;
{ /* ./Reduce/cond.scm 138 */
int BgL_kz00_1572;
BgL_kz00_1572 = 
(int)(BgL_modz00_1558); 
BgL_bucketz00_1562 = 
VECTOR_REF(BgL_arg2017z00_1553,BgL_kz00_1572); } 
{ /* ./Reduce/cond.scm 138 */
int BgL_kz00_1574;
BgL_kz00_1574 = 
(int)(BgL_restz00_1560); 
BgL_method2705z00_1550 = 
VECTOR_REF(BgL_bucketz00_1562,BgL_kz00_1574); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 138 */
obj_t BgL_auxz00_2933;
BgL_auxz00_2933 = 
PROCEDURE_ENTRY(BgL_method2705z00_1550)(BgL_method2705z00_1550, 
(obj_t)(BgL_arg3245z00_1145), BEOA); 
BgL_res3519z00_1575 = 
(BgL_nodez00_bglt)(BgL_auxz00_2933); } } 
BgL_arg3241z00_1144 = BgL_res3519z00_1575; } } 
{ /* ./Reduce/cond.scm 138 */
BgL_conditionalz00_bglt BgL_obj2337z00_1576;BgL_nodez00_bglt BgL_val2336z00_1577;
BgL_obj2337z00_1576 = BgL_nodez00_1138; 
BgL_val2336z00_1577 = BgL_arg3241z00_1144; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2337z00_1576))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2336z00_1577), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 139 */
BgL_nodez00_bglt BgL_arg3249z00_1146;
{ /* ./Reduce/cond.scm 139 */
BgL_nodez00_bglt BgL_arg3252z00_1147;
BgL_arg3252z00_1147 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1138))->BgL_falsez00); 
{ /* ./Reduce/cond.scm 139 */
BgL_nodez00_bglt BgL_res3522z00_1605;
{ /* ./Reduce/cond.scm 139 */
obj_t BgL_method2705z00_1580;
{ /* ./Reduce/cond.scm 139 */
BgL_objectz00_bglt BgL_objz00_1581;
BgL_objz00_1581 = 
(BgL_objectz00_bglt)(BgL_arg3252z00_1147); 
{ /* ./Reduce/cond.scm 139 */
long BgL_objzd2classzd2numz00_1582;
BgL_objzd2classzd2numz00_1582 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1581); 
{ /* ./Reduce/cond.scm 139 */
obj_t BgL_arg2017z00_1583;
{ /* ./Reduce/cond.scm 139 */
int BgL_auxz00_2942;
BgL_auxz00_2942 = 
(int)(((long)1)); 
BgL_arg2017z00_1583 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2942); } 
{ /* ./Reduce/cond.scm 139 */
int BgL_offsetz00_1586;
BgL_offsetz00_1586 = 
(int)(BgL_objzd2classzd2numz00_1582); 
{ /* ./Reduce/cond.scm 139 */
long BgL_offsetz00_1587;
{ /* ./Reduce/cond.scm 139 */
long BgL_auxz00_2946;
BgL_auxz00_2946 = 
(long)(BgL_offsetz00_1586); 
BgL_offsetz00_1587 = 
(BgL_auxz00_2946-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 139 */
long BgL_modz00_1588;
{ /* ./Reduce/cond.scm 139 */
int BgL_arg2028z00_1589;
BgL_arg2028z00_1589 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 139 */
long BgL_n2z00_1597;
BgL_n2z00_1597 = 
(long)(BgL_arg2028z00_1589); 
BgL_modz00_1588 = 
(BgL_offsetz00_1587/BgL_n2z00_1597); } } 
{ /* ./Reduce/cond.scm 139 */
long BgL_restz00_1590;
{ /* ./Reduce/cond.scm 139 */
int BgL_arg2024z00_1591;
BgL_arg2024z00_1591 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 139 */
long BgL_n2z00_1600;
BgL_n2z00_1600 = 
(long)(BgL_arg2024z00_1591); 
BgL_restz00_1590 = 
(BgL_offsetz00_1587%BgL_n2z00_1600); } } 
{ /* ./Reduce/cond.scm 139 */

{ /* ./Reduce/cond.scm 139 */
obj_t BgL_bucketz00_1592;
{ /* ./Reduce/cond.scm 139 */
int BgL_kz00_1602;
BgL_kz00_1602 = 
(int)(BgL_modz00_1588); 
BgL_bucketz00_1592 = 
VECTOR_REF(BgL_arg2017z00_1583,BgL_kz00_1602); } 
{ /* ./Reduce/cond.scm 139 */
int BgL_kz00_1604;
BgL_kz00_1604 = 
(int)(BgL_restz00_1590); 
BgL_method2705z00_1580 = 
VECTOR_REF(BgL_bucketz00_1592,BgL_kz00_1604); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 139 */
obj_t BgL_auxz00_2959;
BgL_auxz00_2959 = 
PROCEDURE_ENTRY(BgL_method2705z00_1580)(BgL_method2705z00_1580, 
(obj_t)(BgL_arg3252z00_1147), BEOA); 
BgL_res3522z00_1605 = 
(BgL_nodez00_bglt)(BgL_auxz00_2959); } } 
BgL_arg3249z00_1146 = BgL_res3522z00_1605; } } 
{ /* ./Reduce/cond.scm 139 */
BgL_conditionalz00_bglt BgL_obj2340z00_1606;BgL_nodez00_bglt BgL_val2339z00_1607;
BgL_obj2340z00_1606 = BgL_nodez00_1138; 
BgL_val2339z00_1607 = BgL_arg3249z00_1146; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2340z00_1606))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2339z00_1607), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 140 */
bool_t BgL_test3255z00_1148;
{ /* ./Reduce/cond.scm 140 */
BgL_nodez00_bglt BgL_arg3265z00_1151;
BgL_arg3265z00_1151 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1138))->BgL_testz00); 
{ /* ./Reduce/cond.scm 140 */
obj_t BgL_obj1619z00_1609;
BgL_obj1619z00_1609 = 
(obj_t)(BgL_arg3265z00_1151); 
BgL_test3255z00_1148 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1619z00_1609, BGl_atomz00zzast_nodez00); } } 
if(BgL_test3255z00_1148)
{ /* ./Reduce/cond.scm 140 */
{ /* ./Reduce/cond.scm 142 */
long BgL_za72za7_1611;
BgL_za72za7_1611 = BGl_za2condzd2reducedza2zd2zzreduce_condz00; 
BGl_za2condzd2reducedza2zd2zzreduce_condz00 = 
(((long)1)+BgL_za72za7_1611); } 
{ /* ./Reduce/cond.scm 144 */
bool_t BgL_testz00_2970;
{ /* ./Reduce/cond.scm 144 */
BgL_atomz00_bglt BgL_obj1604z00_1613;
{ /* ./Reduce/cond.scm 144 */
BgL_nodez00_bglt BgL_auxz00_2971;
BgL_auxz00_2971 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1138))->BgL_testz00); 
BgL_obj1604z00_1613 = 
(BgL_atomz00_bglt)(BgL_auxz00_2971); } 
{ /* ./Reduce/cond.scm 144 */
obj_t BgL_auxz00_2974;
BgL_auxz00_2974 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1613))->BgL_valuez00); 
BgL_testz00_2970 = 
CBOOL(BgL_auxz00_2974); } } 
if(BgL_testz00_2970)
{ /* ./Reduce/cond.scm 145 */
BgL_nodez00_bglt BgL_auxz00_2977;
BgL_auxz00_2977 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1138))->BgL_truez00); 
return 
(obj_t)(BgL_auxz00_2977);}  else 
{ /* ./Reduce/cond.scm 146 */
BgL_nodez00_bglt BgL_auxz00_2980;
BgL_auxz00_2980 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1138))->BgL_falsez00); 
return 
(obj_t)(BgL_auxz00_2980);} } }  else 
{ /* ./Reduce/cond.scm 140 */
return 
(obj_t)(BgL_nodez00_1138);} } } } 
}



/* node-cond!-setq2727 */
obj_t BGl_nodezd2condz12zd2setq2727z12zzreduce_condz00(obj_t BgL_envz00_2212, obj_t BgL_nodez00_2213)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 126 */
{ 
BgL_setqz00_bglt BgL_nodez00_1128;
{ /* ./Reduce/cond.scm 127 */
BgL_setqz00_bglt BgL_auxz00_2985;
BgL_nodez00_1128 = 
(BgL_setqz00_bglt)(BgL_nodez00_2213); 
{ /* ./Reduce/cond.scm 128 */
BgL_nodez00_bglt BgL_arg3214z00_1132;
{ /* ./Reduce/cond.scm 128 */
BgL_nodez00_bglt BgL_arg3217z00_1133;
BgL_arg3217z00_1133 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1128))->BgL_valuez00); 
{ /* ./Reduce/cond.scm 128 */
BgL_nodez00_bglt BgL_res3510z00_1485;
{ /* ./Reduce/cond.scm 128 */
obj_t BgL_method2705z00_1460;
{ /* ./Reduce/cond.scm 128 */
BgL_objectz00_bglt BgL_objz00_1461;
BgL_objz00_1461 = 
(BgL_objectz00_bglt)(BgL_arg3217z00_1133); 
{ /* ./Reduce/cond.scm 128 */
long BgL_objzd2classzd2numz00_1462;
BgL_objzd2classzd2numz00_1462 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1461); 
{ /* ./Reduce/cond.scm 128 */
obj_t BgL_arg2017z00_1463;
{ /* ./Reduce/cond.scm 128 */
int BgL_auxz00_2989;
BgL_auxz00_2989 = 
(int)(((long)1)); 
BgL_arg2017z00_1463 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_2989); } 
{ /* ./Reduce/cond.scm 128 */
int BgL_offsetz00_1466;
BgL_offsetz00_1466 = 
(int)(BgL_objzd2classzd2numz00_1462); 
{ /* ./Reduce/cond.scm 128 */
long BgL_offsetz00_1467;
{ /* ./Reduce/cond.scm 128 */
long BgL_auxz00_2993;
BgL_auxz00_2993 = 
(long)(BgL_offsetz00_1466); 
BgL_offsetz00_1467 = 
(BgL_auxz00_2993-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 128 */
long BgL_modz00_1468;
{ /* ./Reduce/cond.scm 128 */
int BgL_arg2028z00_1469;
BgL_arg2028z00_1469 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 128 */
long BgL_n2z00_1477;
BgL_n2z00_1477 = 
(long)(BgL_arg2028z00_1469); 
BgL_modz00_1468 = 
(BgL_offsetz00_1467/BgL_n2z00_1477); } } 
{ /* ./Reduce/cond.scm 128 */
long BgL_restz00_1470;
{ /* ./Reduce/cond.scm 128 */
int BgL_arg2024z00_1471;
BgL_arg2024z00_1471 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 128 */
long BgL_n2z00_1480;
BgL_n2z00_1480 = 
(long)(BgL_arg2024z00_1471); 
BgL_restz00_1470 = 
(BgL_offsetz00_1467%BgL_n2z00_1480); } } 
{ /* ./Reduce/cond.scm 128 */

{ /* ./Reduce/cond.scm 128 */
obj_t BgL_bucketz00_1472;
{ /* ./Reduce/cond.scm 128 */
int BgL_kz00_1482;
BgL_kz00_1482 = 
(int)(BgL_modz00_1468); 
BgL_bucketz00_1472 = 
VECTOR_REF(BgL_arg2017z00_1463,BgL_kz00_1482); } 
{ /* ./Reduce/cond.scm 128 */
int BgL_kz00_1484;
BgL_kz00_1484 = 
(int)(BgL_restz00_1470); 
BgL_method2705z00_1460 = 
VECTOR_REF(BgL_bucketz00_1472,BgL_kz00_1484); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 128 */
obj_t BgL_auxz00_3006;
BgL_auxz00_3006 = 
PROCEDURE_ENTRY(BgL_method2705z00_1460)(BgL_method2705z00_1460, 
(obj_t)(BgL_arg3217z00_1133), BEOA); 
BgL_res3510z00_1485 = 
(BgL_nodez00_bglt)(BgL_auxz00_3006); } } 
BgL_arg3214z00_1132 = BgL_res3510z00_1485; } } 
{ /* ./Reduce/cond.scm 128 */
BgL_setqz00_bglt BgL_obj2305z00_1486;BgL_nodez00_bglt BgL_val2304z00_1487;
BgL_obj2305z00_1486 = BgL_nodez00_1128; 
BgL_val2304z00_1487 = BgL_arg3214z00_1132; 
((((BgL_setqz00_bglt)CREF(BgL_obj2305z00_1486))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2304z00_1487), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 129 */
BgL_nodez00_bglt BgL_arg3221z00_1134;
{ /* ./Reduce/cond.scm 129 */
BgL_varz00_bglt BgL_arg3224z00_1135;
BgL_arg3224z00_1135 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1128))->BgL_varz00); 
{ /* ./Reduce/cond.scm 129 */
BgL_nodez00_bglt BgL_res3513z00_1515;
{ /* ./Reduce/cond.scm 129 */
BgL_nodez00_bglt BgL_nodez00_1489;
BgL_nodez00_1489 = 
(BgL_nodez00_bglt)(BgL_arg3224z00_1135); 
{ /* ./Reduce/cond.scm 129 */
obj_t BgL_method2705z00_1490;
{ /* ./Reduce/cond.scm 129 */
BgL_objectz00_bglt BgL_objz00_1491;
BgL_objz00_1491 = 
(BgL_objectz00_bglt)(BgL_nodez00_1489); 
{ /* ./Reduce/cond.scm 129 */
long BgL_objzd2classzd2numz00_1492;
BgL_objzd2classzd2numz00_1492 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1491); 
{ /* ./Reduce/cond.scm 129 */
obj_t BgL_arg2017z00_1493;
{ /* ./Reduce/cond.scm 129 */
int BgL_auxz00_3016;
BgL_auxz00_3016 = 
(int)(((long)1)); 
BgL_arg2017z00_1493 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_3016); } 
{ /* ./Reduce/cond.scm 129 */
int BgL_offsetz00_1496;
BgL_offsetz00_1496 = 
(int)(BgL_objzd2classzd2numz00_1492); 
{ /* ./Reduce/cond.scm 129 */
long BgL_offsetz00_1497;
{ /* ./Reduce/cond.scm 129 */
long BgL_auxz00_3020;
BgL_auxz00_3020 = 
(long)(BgL_offsetz00_1496); 
BgL_offsetz00_1497 = 
(BgL_auxz00_3020-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 129 */
long BgL_modz00_1498;
{ /* ./Reduce/cond.scm 129 */
int BgL_arg2028z00_1499;
BgL_arg2028z00_1499 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 129 */
long BgL_n2z00_1507;
BgL_n2z00_1507 = 
(long)(BgL_arg2028z00_1499); 
BgL_modz00_1498 = 
(BgL_offsetz00_1497/BgL_n2z00_1507); } } 
{ /* ./Reduce/cond.scm 129 */
long BgL_restz00_1500;
{ /* ./Reduce/cond.scm 129 */
int BgL_arg2024z00_1501;
BgL_arg2024z00_1501 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 129 */
long BgL_n2z00_1510;
BgL_n2z00_1510 = 
(long)(BgL_arg2024z00_1501); 
BgL_restz00_1500 = 
(BgL_offsetz00_1497%BgL_n2z00_1510); } } 
{ /* ./Reduce/cond.scm 129 */

{ /* ./Reduce/cond.scm 129 */
obj_t BgL_bucketz00_1502;
{ /* ./Reduce/cond.scm 129 */
int BgL_kz00_1512;
BgL_kz00_1512 = 
(int)(BgL_modz00_1498); 
BgL_bucketz00_1502 = 
VECTOR_REF(BgL_arg2017z00_1493,BgL_kz00_1512); } 
{ /* ./Reduce/cond.scm 129 */
int BgL_kz00_1514;
BgL_kz00_1514 = 
(int)(BgL_restz00_1500); 
BgL_method2705z00_1490 = 
VECTOR_REF(BgL_bucketz00_1502,BgL_kz00_1514); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 129 */
obj_t BgL_auxz00_3033;
BgL_auxz00_3033 = 
PROCEDURE_ENTRY(BgL_method2705z00_1490)(BgL_method2705z00_1490, 
(obj_t)(BgL_nodez00_1489), BEOA); 
BgL_res3513z00_1515 = 
(BgL_nodez00_bglt)(BgL_auxz00_3033); } } } 
BgL_arg3221z00_1134 = BgL_res3513z00_1515; } } 
{ /* ./Reduce/cond.scm 129 */
BgL_setqz00_bglt BgL_obj2302z00_1516;BgL_varz00_bglt BgL_val2301z00_1517;
BgL_obj2302z00_1516 = BgL_nodez00_1128; 
BgL_val2301z00_1517 = 
(BgL_varz00_bglt)(BgL_arg3221z00_1134); 
((((BgL_setqz00_bglt)CREF(BgL_obj2302z00_1516))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2301z00_1517), BUNSPEC); } } 
BgL_auxz00_2985 = BgL_nodez00_1128; 
return 
(obj_t)(BgL_auxz00_2985);} } } 
}



/* node-cond!-cast2725 */
obj_t BGl_nodezd2condz12zd2cast2725z12zzreduce_condz00(obj_t BgL_envz00_2214, obj_t BgL_nodez00_2215)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 118 */
{ 
BgL_castz00_bglt BgL_nodez00_1121;
{ /* ./Reduce/cond.scm 119 */
BgL_castz00_bglt BgL_auxz00_3042;
BgL_nodez00_1121 = 
(BgL_castz00_bglt)(BgL_nodez00_2215); 
{ /* ./Reduce/cond.scm 119 */
BgL_nodez00_bglt BgL_arg3204z00_1429;
BgL_arg3204z00_1429 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1121))->BgL_argz00); 
{ /* ./Reduce/cond.scm 119 */
BgL_nodez00_bglt BgL_res3507z00_1457;
{ /* ./Reduce/cond.scm 119 */
obj_t BgL_method2705z00_1432;
{ /* ./Reduce/cond.scm 119 */
BgL_objectz00_bglt BgL_objz00_1433;
BgL_objz00_1433 = 
(BgL_objectz00_bglt)(BgL_arg3204z00_1429); 
{ /* ./Reduce/cond.scm 119 */
long BgL_objzd2classzd2numz00_1434;
BgL_objzd2classzd2numz00_1434 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1433); 
{ /* ./Reduce/cond.scm 119 */
obj_t BgL_arg2017z00_1435;
{ /* ./Reduce/cond.scm 119 */
int BgL_auxz00_3046;
BgL_auxz00_3046 = 
(int)(((long)1)); 
BgL_arg2017z00_1435 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_3046); } 
{ /* ./Reduce/cond.scm 119 */
int BgL_offsetz00_1438;
BgL_offsetz00_1438 = 
(int)(BgL_objzd2classzd2numz00_1434); 
{ /* ./Reduce/cond.scm 119 */
long BgL_offsetz00_1439;
{ /* ./Reduce/cond.scm 119 */
long BgL_auxz00_3050;
BgL_auxz00_3050 = 
(long)(BgL_offsetz00_1438); 
BgL_offsetz00_1439 = 
(BgL_auxz00_3050-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 119 */
long BgL_modz00_1440;
{ /* ./Reduce/cond.scm 119 */
int BgL_arg2028z00_1441;
BgL_arg2028z00_1441 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 119 */
long BgL_n2z00_1449;
BgL_n2z00_1449 = 
(long)(BgL_arg2028z00_1441); 
BgL_modz00_1440 = 
(BgL_offsetz00_1439/BgL_n2z00_1449); } } 
{ /* ./Reduce/cond.scm 119 */
long BgL_restz00_1442;
{ /* ./Reduce/cond.scm 119 */
int BgL_arg2024z00_1443;
BgL_arg2024z00_1443 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 119 */
long BgL_n2z00_1452;
BgL_n2z00_1452 = 
(long)(BgL_arg2024z00_1443); 
BgL_restz00_1442 = 
(BgL_offsetz00_1439%BgL_n2z00_1452); } } 
{ /* ./Reduce/cond.scm 119 */

{ /* ./Reduce/cond.scm 119 */
obj_t BgL_bucketz00_1444;
{ /* ./Reduce/cond.scm 119 */
int BgL_kz00_1454;
BgL_kz00_1454 = 
(int)(BgL_modz00_1440); 
BgL_bucketz00_1444 = 
VECTOR_REF(BgL_arg2017z00_1435,BgL_kz00_1454); } 
{ /* ./Reduce/cond.scm 119 */
int BgL_kz00_1456;
BgL_kz00_1456 = 
(int)(BgL_restz00_1442); 
BgL_method2705z00_1432 = 
VECTOR_REF(BgL_bucketz00_1444,BgL_kz00_1456); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 119 */
obj_t BgL_auxz00_3063;
BgL_auxz00_3063 = 
PROCEDURE_ENTRY(BgL_method2705z00_1432)(BgL_method2705z00_1432, 
(obj_t)(BgL_arg3204z00_1429), BEOA); 
BgL_res3507z00_1457 = 
(BgL_nodez00_bglt)(BgL_auxz00_3063); } } BgL_res3507z00_1457; } } 
BgL_auxz00_3042 = BgL_nodez00_1121; 
return 
(obj_t)(BgL_auxz00_3042);} } } 
}



/* node-cond!-extern2723 */
obj_t BGl_nodezd2condz12zd2extern2723z12zzreduce_condz00(obj_t BgL_envz00_2216, obj_t BgL_nodez00_2217)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 110 */
{ 
BgL_externz00_bglt BgL_nodez00_1114;
{ /* ./Reduce/cond.scm 111 */
BgL_externz00_bglt BgL_auxz00_3070;
BgL_nodez00_1114 = 
(BgL_externz00_bglt)(BgL_nodez00_2217); 
{ /* ./Reduce/cond.scm 111 */
obj_t BgL_arg3194z00_1426;
BgL_arg3194z00_1426 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1114))->BgL_exprza2za2); 
BGl_nodezd2condza2z12z62zzreduce_condz00(BgL_arg3194z00_1426); } 
BgL_auxz00_3070 = BgL_nodez00_1114; 
return 
(obj_t)(BgL_auxz00_3070);} } } 
}



/* node-cond!-funcall2721 */
obj_t BGl_nodezd2condz12zd2funcall2721z12zzreduce_condz00(obj_t BgL_envz00_2218, obj_t BgL_nodez00_2219)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 101 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1105;
{ /* ./Reduce/cond.scm 102 */
BgL_funcallz00_bglt BgL_auxz00_3075;
BgL_nodez00_1105 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2219); 
{ /* ./Reduce/cond.scm 103 */
BgL_nodez00_bglt BgL_arg3177z00_1109;
{ /* ./Reduce/cond.scm 103 */
BgL_nodez00_bglt BgL_arg3180z00_1110;
BgL_arg3180z00_1110 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1105))->BgL_funz00); 
{ /* ./Reduce/cond.scm 103 */
BgL_nodez00_bglt BgL_res3504z00_1421;
{ /* ./Reduce/cond.scm 103 */
obj_t BgL_method2705z00_1396;
{ /* ./Reduce/cond.scm 103 */
BgL_objectz00_bglt BgL_objz00_1397;
BgL_objz00_1397 = 
(BgL_objectz00_bglt)(BgL_arg3180z00_1110); 
{ /* ./Reduce/cond.scm 103 */
long BgL_objzd2classzd2numz00_1398;
BgL_objzd2classzd2numz00_1398 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1397); 
{ /* ./Reduce/cond.scm 103 */
obj_t BgL_arg2017z00_1399;
{ /* ./Reduce/cond.scm 103 */
int BgL_auxz00_3079;
BgL_auxz00_3079 = 
(int)(((long)1)); 
BgL_arg2017z00_1399 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_3079); } 
{ /* ./Reduce/cond.scm 103 */
int BgL_offsetz00_1402;
BgL_offsetz00_1402 = 
(int)(BgL_objzd2classzd2numz00_1398); 
{ /* ./Reduce/cond.scm 103 */
long BgL_offsetz00_1403;
{ /* ./Reduce/cond.scm 103 */
long BgL_auxz00_3083;
BgL_auxz00_3083 = 
(long)(BgL_offsetz00_1402); 
BgL_offsetz00_1403 = 
(BgL_auxz00_3083-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 103 */
long BgL_modz00_1404;
{ /* ./Reduce/cond.scm 103 */
int BgL_arg2028z00_1405;
BgL_arg2028z00_1405 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 103 */
long BgL_n2z00_1413;
BgL_n2z00_1413 = 
(long)(BgL_arg2028z00_1405); 
BgL_modz00_1404 = 
(BgL_offsetz00_1403/BgL_n2z00_1413); } } 
{ /* ./Reduce/cond.scm 103 */
long BgL_restz00_1406;
{ /* ./Reduce/cond.scm 103 */
int BgL_arg2024z00_1407;
BgL_arg2024z00_1407 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 103 */
long BgL_n2z00_1416;
BgL_n2z00_1416 = 
(long)(BgL_arg2024z00_1407); 
BgL_restz00_1406 = 
(BgL_offsetz00_1403%BgL_n2z00_1416); } } 
{ /* ./Reduce/cond.scm 103 */

{ /* ./Reduce/cond.scm 103 */
obj_t BgL_bucketz00_1408;
{ /* ./Reduce/cond.scm 103 */
int BgL_kz00_1418;
BgL_kz00_1418 = 
(int)(BgL_modz00_1404); 
BgL_bucketz00_1408 = 
VECTOR_REF(BgL_arg2017z00_1399,BgL_kz00_1418); } 
{ /* ./Reduce/cond.scm 103 */
int BgL_kz00_1420;
BgL_kz00_1420 = 
(int)(BgL_restz00_1406); 
BgL_method2705z00_1396 = 
VECTOR_REF(BgL_bucketz00_1408,BgL_kz00_1420); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 103 */
obj_t BgL_auxz00_3096;
BgL_auxz00_3096 = 
PROCEDURE_ENTRY(BgL_method2705z00_1396)(BgL_method2705z00_1396, 
(obj_t)(BgL_arg3180z00_1110), BEOA); 
BgL_res3504z00_1421 = 
(BgL_nodez00_bglt)(BgL_auxz00_3096); } } 
BgL_arg3177z00_1109 = BgL_res3504z00_1421; } } 
{ /* ./Reduce/cond.scm 103 */
BgL_funcallz00_bglt BgL_obj1781z00_1422;BgL_nodez00_bglt BgL_val1780z00_1423;
BgL_obj1781z00_1422 = BgL_nodez00_1105; 
BgL_val1780z00_1423 = BgL_arg3177z00_1109; 
((((BgL_funcallz00_bglt)CREF(BgL_obj1781z00_1422))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1780z00_1423), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 104 */
obj_t BgL_arg3184z00_1111;
BgL_arg3184z00_1111 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1105))->BgL_argsz00); 
BGl_nodezd2condza2z12z62zzreduce_condz00(BgL_arg3184z00_1111); } 
BgL_auxz00_3075 = BgL_nodez00_1105; 
return 
(obj_t)(BgL_auxz00_3075);} } } 
}



/* node-cond!-app-ly2719 */
obj_t BGl_nodezd2condz12zd2appzd2ly2719zc0zzreduce_condz00(obj_t BgL_envz00_2220, obj_t BgL_nodez00_2221)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 92 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1095;
{ /* ./Reduce/cond.scm 93 */
BgL_appzd2lyzd2_bglt BgL_auxz00_3106;
BgL_nodez00_1095 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2221); 
{ /* ./Reduce/cond.scm 94 */
BgL_nodez00_bglt BgL_arg3157z00_1099;
{ /* ./Reduce/cond.scm 94 */
BgL_nodez00_bglt BgL_arg3160z00_1100;
BgL_arg3160z00_1100 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1095))->BgL_funz00); 
{ /* ./Reduce/cond.scm 94 */
BgL_nodez00_bglt BgL_res3498z00_1361;
{ /* ./Reduce/cond.scm 94 */
obj_t BgL_method2705z00_1336;
{ /* ./Reduce/cond.scm 94 */
BgL_objectz00_bglt BgL_objz00_1337;
BgL_objz00_1337 = 
(BgL_objectz00_bglt)(BgL_arg3160z00_1100); 
{ /* ./Reduce/cond.scm 94 */
long BgL_objzd2classzd2numz00_1338;
BgL_objzd2classzd2numz00_1338 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1337); 
{ /* ./Reduce/cond.scm 94 */
obj_t BgL_arg2017z00_1339;
{ /* ./Reduce/cond.scm 94 */
int BgL_auxz00_3110;
BgL_auxz00_3110 = 
(int)(((long)1)); 
BgL_arg2017z00_1339 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_3110); } 
{ /* ./Reduce/cond.scm 94 */
int BgL_offsetz00_1342;
BgL_offsetz00_1342 = 
(int)(BgL_objzd2classzd2numz00_1338); 
{ /* ./Reduce/cond.scm 94 */
long BgL_offsetz00_1343;
{ /* ./Reduce/cond.scm 94 */
long BgL_auxz00_3114;
BgL_auxz00_3114 = 
(long)(BgL_offsetz00_1342); 
BgL_offsetz00_1343 = 
(BgL_auxz00_3114-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 94 */
long BgL_modz00_1344;
{ /* ./Reduce/cond.scm 94 */
int BgL_arg2028z00_1345;
BgL_arg2028z00_1345 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 94 */
long BgL_n2z00_1353;
BgL_n2z00_1353 = 
(long)(BgL_arg2028z00_1345); 
BgL_modz00_1344 = 
(BgL_offsetz00_1343/BgL_n2z00_1353); } } 
{ /* ./Reduce/cond.scm 94 */
long BgL_restz00_1346;
{ /* ./Reduce/cond.scm 94 */
int BgL_arg2024z00_1347;
BgL_arg2024z00_1347 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 94 */
long BgL_n2z00_1356;
BgL_n2z00_1356 = 
(long)(BgL_arg2024z00_1347); 
BgL_restz00_1346 = 
(BgL_offsetz00_1343%BgL_n2z00_1356); } } 
{ /* ./Reduce/cond.scm 94 */

{ /* ./Reduce/cond.scm 94 */
obj_t BgL_bucketz00_1348;
{ /* ./Reduce/cond.scm 94 */
int BgL_kz00_1358;
BgL_kz00_1358 = 
(int)(BgL_modz00_1344); 
BgL_bucketz00_1348 = 
VECTOR_REF(BgL_arg2017z00_1339,BgL_kz00_1358); } 
{ /* ./Reduce/cond.scm 94 */
int BgL_kz00_1360;
BgL_kz00_1360 = 
(int)(BgL_restz00_1346); 
BgL_method2705z00_1336 = 
VECTOR_REF(BgL_bucketz00_1348,BgL_kz00_1360); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 94 */
obj_t BgL_auxz00_3127;
BgL_auxz00_3127 = 
PROCEDURE_ENTRY(BgL_method2705z00_1336)(BgL_method2705z00_1336, 
(obj_t)(BgL_arg3160z00_1100), BEOA); 
BgL_res3498z00_1361 = 
(BgL_nodez00_bglt)(BgL_auxz00_3127); } } 
BgL_arg3157z00_1099 = BgL_res3498z00_1361; } } 
{ /* ./Reduce/cond.scm 94 */
BgL_appzd2lyzd2_bglt BgL_obj1753z00_1362;BgL_nodez00_bglt BgL_val1752z00_1363;
BgL_obj1753z00_1362 = BgL_nodez00_1095; 
BgL_val1752z00_1363 = BgL_arg3157z00_1099; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1753z00_1362))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1752z00_1363), BUNSPEC); } } 
{ /* ./Reduce/cond.scm 95 */
BgL_nodez00_bglt BgL_arg3164z00_1101;
{ /* ./Reduce/cond.scm 95 */
BgL_nodez00_bglt BgL_arg3167z00_1102;
BgL_arg3167z00_1102 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1095))->BgL_argz00); 
{ /* ./Reduce/cond.scm 95 */
BgL_nodez00_bglt BgL_res3501z00_1391;
{ /* ./Reduce/cond.scm 95 */
obj_t BgL_method2705z00_1366;
{ /* ./Reduce/cond.scm 95 */
BgL_objectz00_bglt BgL_objz00_1367;
BgL_objz00_1367 = 
(BgL_objectz00_bglt)(BgL_arg3167z00_1102); 
{ /* ./Reduce/cond.scm 95 */
long BgL_objzd2classzd2numz00_1368;
BgL_objzd2classzd2numz00_1368 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1367); 
{ /* ./Reduce/cond.scm 95 */
obj_t BgL_arg2017z00_1369;
{ /* ./Reduce/cond.scm 95 */
int BgL_auxz00_3136;
BgL_auxz00_3136 = 
(int)(((long)1)); 
BgL_arg2017z00_1369 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_3136); } 
{ /* ./Reduce/cond.scm 95 */
int BgL_offsetz00_1372;
BgL_offsetz00_1372 = 
(int)(BgL_objzd2classzd2numz00_1368); 
{ /* ./Reduce/cond.scm 95 */
long BgL_offsetz00_1373;
{ /* ./Reduce/cond.scm 95 */
long BgL_auxz00_3140;
BgL_auxz00_3140 = 
(long)(BgL_offsetz00_1372); 
BgL_offsetz00_1373 = 
(BgL_auxz00_3140-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 95 */
long BgL_modz00_1374;
{ /* ./Reduce/cond.scm 95 */
int BgL_arg2028z00_1375;
BgL_arg2028z00_1375 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 95 */
long BgL_n2z00_1383;
BgL_n2z00_1383 = 
(long)(BgL_arg2028z00_1375); 
BgL_modz00_1374 = 
(BgL_offsetz00_1373/BgL_n2z00_1383); } } 
{ /* ./Reduce/cond.scm 95 */
long BgL_restz00_1376;
{ /* ./Reduce/cond.scm 95 */
int BgL_arg2024z00_1377;
BgL_arg2024z00_1377 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 95 */
long BgL_n2z00_1386;
BgL_n2z00_1386 = 
(long)(BgL_arg2024z00_1377); 
BgL_restz00_1376 = 
(BgL_offsetz00_1373%BgL_n2z00_1386); } } 
{ /* ./Reduce/cond.scm 95 */

{ /* ./Reduce/cond.scm 95 */
obj_t BgL_bucketz00_1378;
{ /* ./Reduce/cond.scm 95 */
int BgL_kz00_1388;
BgL_kz00_1388 = 
(int)(BgL_modz00_1374); 
BgL_bucketz00_1378 = 
VECTOR_REF(BgL_arg2017z00_1369,BgL_kz00_1388); } 
{ /* ./Reduce/cond.scm 95 */
int BgL_kz00_1390;
BgL_kz00_1390 = 
(int)(BgL_restz00_1376); 
BgL_method2705z00_1366 = 
VECTOR_REF(BgL_bucketz00_1378,BgL_kz00_1390); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 95 */
obj_t BgL_auxz00_3153;
BgL_auxz00_3153 = 
PROCEDURE_ENTRY(BgL_method2705z00_1366)(BgL_method2705z00_1366, 
(obj_t)(BgL_arg3167z00_1102), BEOA); 
BgL_res3501z00_1391 = 
(BgL_nodez00_bglt)(BgL_auxz00_3153); } } 
BgL_arg3164z00_1101 = BgL_res3501z00_1391; } } 
{ /* ./Reduce/cond.scm 95 */
BgL_appzd2lyzd2_bglt BgL_obj1756z00_1392;BgL_nodez00_bglt BgL_val1755z00_1393;
BgL_obj1756z00_1392 = BgL_nodez00_1095; 
BgL_val1755z00_1393 = BgL_arg3164z00_1101; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1756z00_1392))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1755z00_1393), BUNSPEC); } } 
BgL_auxz00_3106 = BgL_nodez00_1095; 
return 
(obj_t)(BgL_auxz00_3106);} } } 
}



/* node-cond!-app2717 */
obj_t BGl_nodezd2condz12zd2app2717z12zzreduce_condz00(obj_t BgL_envz00_2222, obj_t BgL_nodez00_2223)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 84 */
{ 
BgL_appz00_bglt BgL_nodez00_1088;
{ /* ./Reduce/cond.scm 85 */
BgL_appz00_bglt BgL_auxz00_3161;
BgL_nodez00_1088 = 
(BgL_appz00_bglt)(BgL_nodez00_2223); 
{ /* ./Reduce/cond.scm 85 */
obj_t BgL_arg3147z00_1332;
BgL_arg3147z00_1332 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1088))->BgL_argsz00); 
BGl_nodezd2condza2z12z62zzreduce_condz00(BgL_arg3147z00_1332); } 
BgL_auxz00_3161 = BgL_nodez00_1088; 
return 
(obj_t)(BgL_auxz00_3161);} } } 
}



/* node-cond!-sequence2715 */
obj_t BGl_nodezd2condz12zd2sequence2715z12zzreduce_condz00(obj_t BgL_envz00_2224, obj_t BgL_nodez00_2225)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 76 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1081;
{ /* ./Reduce/cond.scm 77 */
BgL_sequencez00_bglt BgL_auxz00_3166;
BgL_nodez00_1081 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2225); 
{ /* ./Reduce/cond.scm 77 */
obj_t BgL_arg3137z00_1329;
BgL_arg3137z00_1329 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1081))->BgL_nodesz00); 
BGl_nodezd2condza2z12z62zzreduce_condz00(BgL_arg3137z00_1329); } 
BgL_auxz00_3166 = BgL_nodez00_1081; 
return 
(obj_t)(BgL_auxz00_3166);} } } 
}



/* node-cond!-closure2713 */
obj_t BGl_nodezd2condz12zd2closure2713z12zzreduce_condz00(obj_t BgL_envz00_2226, obj_t BgL_nodez00_2227)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 70 */
{ /* ./Reduce/cond.scm 71 */
BgL_closurez00_bglt BgL_auxz00_3171;
BgL_auxz00_3171 = 
(BgL_closurez00_bglt)(BgL_nodez00_2227); 
return 
(obj_t)(BgL_auxz00_3171);} } 
}



/* node-cond!-var2711 */
obj_t BGl_nodezd2condz12zd2var2711z12zzreduce_condz00(obj_t BgL_envz00_2228, obj_t BgL_nodez00_2229)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 64 */
{ /* ./Reduce/cond.scm 65 */
BgL_varz00_bglt BgL_auxz00_3174;
BgL_auxz00_3174 = 
(BgL_varz00_bglt)(BgL_nodez00_2229); 
return 
(obj_t)(BgL_auxz00_3174);} } 
}



/* node-cond!-kwote2709 */
obj_t BGl_nodezd2condz12zd2kwote2709z12zzreduce_condz00(obj_t BgL_envz00_2230, obj_t BgL_nodez00_2231)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 58 */
{ /* ./Reduce/cond.scm 59 */
BgL_kwotez00_bglt BgL_auxz00_3177;
BgL_auxz00_3177 = 
(BgL_kwotez00_bglt)(BgL_nodez00_2231); 
return 
(obj_t)(BgL_auxz00_3177);} } 
}



/* node-cond!-atom2707 */
obj_t BGl_nodezd2condz12zd2atom2707z12zzreduce_condz00(obj_t BgL_envz00_2232, obj_t BgL_nodez00_2233)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 52 */
{ /* ./Reduce/cond.scm 53 */
BgL_atomz00_bglt BgL_auxz00_3180;
BgL_auxz00_3180 = 
(BgL_atomz00_bglt)(BgL_nodez00_2233); 
return 
(obj_t)(BgL_auxz00_3180);} } 
}



/* node-cond! */
BgL_nodez00_bglt BGl_nodezd2condz12zc0zzreduce_condz00(BgL_nodez00_bglt BgL_nodez00_2)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 47 */
{ /* ./Reduce/cond.scm 47 */
obj_t BgL_method2705z00_2139;
{ /* ./Reduce/cond.scm 47 */
BgL_objectz00_bglt BgL_objz00_2140;
BgL_objz00_2140 = 
(BgL_objectz00_bglt)(BgL_nodez00_2); 
{ /* ./Reduce/cond.scm 47 */
long BgL_objzd2classzd2numz00_2141;
BgL_objzd2classzd2numz00_2141 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2140); 
{ /* ./Reduce/cond.scm 47 */
obj_t BgL_arg2017z00_2142;
{ /* ./Reduce/cond.scm 47 */
int BgL_auxz00_3185;
BgL_auxz00_3185 = 
(int)(((long)1)); 
BgL_arg2017z00_2142 = 
PROCEDURE_REF(BGl_nodezd2condz12zd2envz12zzreduce_condz00, BgL_auxz00_3185); } 
{ /* ./Reduce/cond.scm 47 */
int BgL_offsetz00_2145;
BgL_offsetz00_2145 = 
(int)(BgL_objzd2classzd2numz00_2141); 
{ /* ./Reduce/cond.scm 47 */
long BgL_offsetz00_2146;
{ /* ./Reduce/cond.scm 47 */
long BgL_auxz00_3189;
BgL_auxz00_3189 = 
(long)(BgL_offsetz00_2145); 
BgL_offsetz00_2146 = 
(BgL_auxz00_3189-OBJECT_TYPE); } 
{ /* ./Reduce/cond.scm 47 */
long BgL_modz00_2147;
{ /* ./Reduce/cond.scm 47 */
int BgL_arg2028z00_2148;
BgL_arg2028z00_2148 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 47 */
long BgL_n2z00_2156;
BgL_n2z00_2156 = 
(long)(BgL_arg2028z00_2148); 
BgL_modz00_2147 = 
(BgL_offsetz00_2146/BgL_n2z00_2156); } } 
{ /* ./Reduce/cond.scm 47 */
long BgL_restz00_2149;
{ /* ./Reduce/cond.scm 47 */
int BgL_arg2024z00_2150;
BgL_arg2024z00_2150 = 
(int)(((long)8)); 
{ /* ./Reduce/cond.scm 47 */
long BgL_n2z00_2159;
BgL_n2z00_2159 = 
(long)(BgL_arg2024z00_2150); 
BgL_restz00_2149 = 
(BgL_offsetz00_2146%BgL_n2z00_2159); } } 
{ /* ./Reduce/cond.scm 47 */

{ /* ./Reduce/cond.scm 47 */
obj_t BgL_bucketz00_2151;
{ /* ./Reduce/cond.scm 47 */
int BgL_kz00_2161;
BgL_kz00_2161 = 
(int)(BgL_modz00_2147); 
BgL_bucketz00_2151 = 
VECTOR_REF(BgL_arg2017z00_2142,BgL_kz00_2161); } 
{ /* ./Reduce/cond.scm 47 */
int BgL_kz00_2163;
BgL_kz00_2163 = 
(int)(BgL_restz00_2149); 
BgL_method2705z00_2139 = 
VECTOR_REF(BgL_bucketz00_2151,BgL_kz00_2163); } } } } } } } } } } 
{ /* ./Reduce/cond.scm 47 */
obj_t BgL_auxz00_3202;
BgL_auxz00_3202 = 
PROCEDURE_ENTRY(BgL_method2705z00_2139)(BgL_method2705z00_2139, 
(obj_t)(BgL_nodez00_2), BEOA); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3202);} } } 
}



/* _node-cond! */
obj_t BGl__nodezd2condz12zc0zzreduce_condz00(obj_t BgL_envz00_2169, obj_t BgL_nodez00_2170)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 47 */
{ /* ./Reduce/cond.scm 47 */
BgL_nodez00_bglt BgL_auxz00_3207;
BgL_auxz00_3207 = 
BGl_nodezd2condz12zc0zzreduce_condz00(
(BgL_nodez00_bglt)(BgL_nodez00_2170)); 
return 
(obj_t)(BgL_auxz00_3207);} } 
}



/* node-cond!-default2704 */
BgL_nodez00_bglt BGl_nodezd2condz12zd2default2704z12zzreduce_condz00(BgL_nodez00_bglt BgL_nodez00_3)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 15 */
{ /* ./Reduce/cond.scm 15 */
obj_t BgL_procz00_2164;obj_t BgL_objectz00_2166;
BgL_procz00_2164 = 
CNST_TABLE_REF(((long)1)); 
BgL_objectz00_2166 = 
(obj_t)(BgL_nodez00_3); 
FAILURE(BgL_procz00_2164,BGl_string4076z00zzreduce_condz00,BgL_objectz00_2166);} } 
}



/* _node-cond!-default2704 */
obj_t BGl__nodezd2condz12zd2default2704z12zzreduce_condz00(obj_t BgL_envz00_2234, obj_t BgL_nodez00_2235)
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 15 */
{ /* ./Reduce/cond.scm 15 */
BgL_nodez00_bglt BgL_auxz00_3214;
BgL_auxz00_3214 = 
BGl_nodezd2condz12zd2default2704z12zzreduce_condz00(
(BgL_nodez00_bglt)(BgL_nodez00_2235)); 
return 
(obj_t)(BgL_auxz00_3214);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzreduce_condz00()
{ AN_OBJECT;
{ /* ./Reduce/cond.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "reduce_cond"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "reduce_cond"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "reduce_cond"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "reduce_cond"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "reduce_cond"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "reduce_cond"); 
return 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "reduce_cond");} 
}

