/*===========================================================================*/
/*   (Effect/spread.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 Effect/spread.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_spreadzd2sidezd2effectz12zd2makezd2box2737z12zzeffect_spreadz00(obj_t, obj_t);
static obj_t BGl_spreadzd2sidezd2effectz12zd2letzd2fun2729z12zzeffect_spreadz00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzeffect_spreadz00();
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_spreadzd2sidezd2effectz12zd2funcall2715zc0zzeffect_spreadz00(obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_spreadzd2sidezd2effectz12zd2extern2717zc0zzeffect_spreadz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_spreadzd2sidezd2effectz12zd2letzd2var2731z12zzeffect_spreadz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl__spreadzd2sidezd2effectz123444z12zzeffect_spreadz00(obj_t, obj_t);
static obj_t BGl_spreadzd2sidezd2effectz12zd2conditional2723zc0zzeffect_spreadz00(obj_t, obj_t);
static obj_t BGl_spreadzd2sidezd2effectz12zd2fail2725zc0zzeffect_spreadz00(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_cnstzd2initzd2zzeffect_spreadz00();
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_spreadzd2sidezd2effectz12zd2setzd2exzd2it2733zc0zzeffect_spreadz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzeffect_spreadz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl__spreadzd2sidezd2effectz12zd2default2703zc0zzeffect_spreadz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_spreadzd2sidezd2effectz12zd2boxzd2setz122740z00zzeffect_spreadz00(obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzeffect_spreadz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_spreadzd2sidezd2effectz12zd2boxzd2ref2742z12zzeffect_spreadz00(obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
static obj_t BGl_spreadzd2sidezd2effectz12zd2var2707zc0zzeffect_spreadz00(obj_t, obj_t);
static obj_t BGl_spreadzd2sidezd2effectz12zd2select2727zc0zzeffect_spreadz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzeffect_spreadz00(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_spreadzd2sidezd2effectz12zd2cast2719zc0zzeffect_spreadz00(obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static bool_t BGl_spreadzd2sidezd2effectza2z12zb0zzeffect_spreadz00(obj_t);
static obj_t BGl_spreadzd2sidezd2effectz12zd2sequence2709zc0zzeffect_spreadz00(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_spreadzd2sidezd2effectz12zd2jumpzd2exzd2it2735zc0zzeffect_spreadz00(obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_spreadzd2sidezd2effectz12zd2setq2721zc0zzeffect_spreadz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzeffect_spreadz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_spreadzd2sidezd2effectz12z12zzeffect_spreadz00(BgL_nodez00_bglt);
static obj_t BGl_libraryzd2moduleszd2initz00zzeffect_spreadz00();
static obj_t BGl_spreadzd2sidezd2effectz12zd2appzd2ly2713z12zzeffect_spreadz00(obj_t, obj_t);
static obj_t BGl_spreadzd2sidezd2effectz12zd2app2711zc0zzeffect_spreadz00(obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 1 ] ;


DEFINE_EXPORT_GENERIC( BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_bgl__spreadza7d2sideza7d2effectza7123444za712za7za7effect_spreadza7003891za7, BGl__spreadzd2sidezd2effectz123444z12zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_spreadzd2sidezd2effectz12zd2default2703zd2envz12zzeffect_spreadz00, BgL_bgl__spreadza7d2sideza7d2effectza712za7d2default2703za7c0za7za7effect_spreadza7003892z00, BGl__spreadzd2sidezd2effectz12zd2default2703zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STRING( BGl_string3864z00zzeffect_spreadz00, BgL_bgl_string3864za700za7za7effect_spreadza7003893z00, "read ", 5 );
DEFINE_STATIC_PROCEDURE( BGl_proc3846z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2var2707za7c0za7za7effect_spreadza7003894z00, BGl_spreadzd2sidezd2effectz12zd2var2707zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3847z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2sequence2709za7c0za7za7effect_spreadza7003895z00, BGl_spreadzd2sidezd2effectz12zd2sequence2709zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3848z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2app2711za7c0za7za7effect_spreadza7003896z00, BGl_spreadzd2sidezd2effectz12zd2app2711zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3850z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2funcall2715za7c0za7za7effect_spreadza7003897z00, BGl_spreadzd2sidezd2effectz12zd2funcall2715zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3849z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2appza7d2ly2713za712za7za7effect_spreadza7003898za7, BGl_spreadzd2sidezd2effectz12zd2appzd2ly2713z12zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3851z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2extern2717za7c0za7za7effect_spreadza7003899z00, BGl_spreadzd2sidezd2effectz12zd2extern2717zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3852z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2cast2719za7c0za7za7effect_spreadza7003900z00, BGl_spreadzd2sidezd2effectz12zd2cast2719zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3853z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2setq2721za7c0za7za7effect_spreadza7003901z00, BGl_spreadzd2sidezd2effectz12zd2setq2721zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3854z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2conditional2723za7c0za7za7effect_spreadza7003902z00, BGl_spreadzd2sidezd2effectz12zd2conditional2723zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3855z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2fail2725za7c0za7za7effect_spreadza7003903z00, BGl_spreadzd2sidezd2effectz12zd2fail2725zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3856z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2select2727za7c0za7za7effect_spreadza7003904z00, BGl_spreadzd2sidezd2effectz12zd2select2727zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3857z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2letza7d2fun2729za712za7za7effect_spreadza7003905za7, BGl_spreadzd2sidezd2effectz12zd2letzd2fun2729z12zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3858z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2letza7d2var2731za712za7za7effect_spreadza7003906za7, BGl_spreadzd2sidezd2effectz12zd2letzd2var2731z12zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3860z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2jumpza7d2exza7d2it2735za7c0za7za7effect_spreadza7003907z00, BGl_spreadzd2sidezd2effectz12zd2jumpzd2exzd2it2735zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3859z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2setza7d2exza7d2it2733za7c0za7za7effect_spreadza7003908z00, BGl_spreadzd2sidezd2effectz12zd2setzd2exzd2it2733zc0zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3861z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2makeza7d2box2737za712za7za7effect_spreadza7003909za7, BGl_spreadzd2sidezd2effectz12zd2makezd2box2737z12zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3862z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2boxza7d2setza7122740za700za7za7effect_spreadza7003910z00, BGl_spreadzd2sidezd2effectz12zd2boxzd2setz122740z00zzeffect_spreadz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3863z00zzeffect_spreadz00, BgL_bgl_spreadza7d2sideza7d2effectza712za7d2boxza7d2ref2742za712za7za7effect_spreadza7003911za7, BGl_spreadzd2sidezd2effectz12zd2boxzd2ref2742z12zzeffect_spreadz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzeffect_spreadz00(long BgL_checksumz00_2045, char * BgL_fromz00_2046)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzeffect_spreadz00))
{ 
BGl_requirezd2initializa7ationz75zzeffect_spreadz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzeffect_spreadz00(); 
BGl_cnstzd2initzd2zzeffect_spreadz00(); 
BGl_importedzd2moduleszd2initz00zzeffect_spreadz00(); 
BGl_methodzd2initzd2zzeffect_spreadz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzeffect_spreadz00()
{ AN_OBJECT;
{ /* ./Effect/spread.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "effect_spread"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "effect_spread"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzeffect_spreadz00()
{ AN_OBJECT;
{ /* ./Effect/spread.scm 15 */
{ /* ./Effect/spread.scm 15 */
obj_t BgL_cportz00_2036;
BgL_cportz00_2036 = 
open_input_string(BGl_string3864z00zzeffect_spreadz00); 
{ 
long BgL_iz00_2037;
BgL_iz00_2037 = ((long)0); 
BgL_loopz00_2038:
{ /* ./Effect/spread.scm 15 */
bool_t BgL_test3866z00_2039;
BgL_test3866z00_2039 = 
(BgL_iz00_2037==((long)-1)); 
if(BgL_test3866z00_2039)
{ /* ./Effect/spread.scm 15 */
return BUNSPEC;}  else 
{ /* ./Effect/spread.scm 15 */
{ /* ./Effect/spread.scm 15 */
obj_t BgL_arg3868z00_2040;
{ /* ./Effect/spread.scm 15 */
obj_t BgL_list3871z00_2041;
BgL_list3871z00_2041 = 
MAKE_PAIR(BgL_cportz00_2036, BNIL); 
BgL_arg3868z00_2040 = 
BGl_readz00zz__readerz00(BgL_list3871z00_2041); } 
{ /* ./Effect/spread.scm 15 */
int BgL_auxz00_2061;
BgL_auxz00_2061 = 
(int)(BgL_iz00_2037); 
CNST_TABLE_SET(BgL_auxz00_2061, BgL_arg3868z00_2040); } } 
{ /* ./Effect/spread.scm 15 */
int BgL_auxz00_2042;
{ /* ./Effect/spread.scm 15 */
long BgL_auxz00_2064;
BgL_auxz00_2064 = 
(BgL_iz00_2037-((long)1)); 
BgL_auxz00_2042 = 
(int)(BgL_auxz00_2064); } 
{ 
long BgL_iz00_2067;
BgL_iz00_2067 = 
(long)(BgL_auxz00_2042); 
BgL_iz00_2037 = BgL_iz00_2067; 
goto BgL_loopz00_2038;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzeffect_spreadz00()
{ AN_OBJECT;
{ /* ./Effect/spread.scm 15 */
return BUNSPEC;} 
}



/* spread-side-effect*! */
bool_t BGl_spreadzd2sidezd2effectza2z12zb0zzeffect_spreadz00(obj_t BgL_nodeza2za2_21)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 201 */
{ 
obj_t BgL_nodeza2za2_679;bool_t BgL_resz00_680;
BgL_nodeza2za2_679 = BgL_nodeza2za2_21; 
BgL_resz00_680 = ((bool_t)0); 
BgL_loopz00_681:
{ /* ./Effect/spread.scm 204 */
bool_t BgL_test2744z00_682;
BgL_test2744z00_682 = 
NULLP(BgL_nodeza2za2_679); 
if(BgL_test2744z00_682)
{ /* ./Effect/spread.scm 204 */
return BgL_resz00_680;}  else 
{ /* ./Effect/spread.scm 206 */
obj_t BgL_arg2746z00_683;bool_t BgL_arg2747z00_684;
BgL_arg2746z00_683 = 
CDR(BgL_nodeza2za2_679); 
{ /* ./Effect/spread.scm 206 */
bool_t BgL__ortest_2702z00_685;
{ /* ./Effect/spread.scm 206 */
obj_t BgL_arg2751z00_686;
BgL_arg2751z00_686 = 
CAR(BgL_nodeza2za2_679); 
{ /* ./Effect/spread.scm 206 */
bool_t BgL_res3372z00_1258;
{ /* ./Effect/spread.scm 206 */
BgL_nodez00_bglt BgL_nodez00_1232;
BgL_nodez00_1232 = 
(BgL_nodez00_bglt)(BgL_arg2751z00_686); 
{ /* ./Effect/spread.scm 206 */
obj_t BgL_method2705z00_1233;
{ /* ./Effect/spread.scm 206 */
BgL_objectz00_bglt BgL_objz00_1234;
BgL_objz00_1234 = 
(BgL_objectz00_bglt)(BgL_nodez00_1232); 
{ /* ./Effect/spread.scm 206 */
long BgL_objzd2classzd2numz00_1235;
BgL_objzd2classzd2numz00_1235 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1234); 
{ /* ./Effect/spread.scm 206 */
obj_t BgL_arg2017z00_1236;
{ /* ./Effect/spread.scm 206 */
int BgL_auxz00_2076;
BgL_auxz00_2076 = 
(int)(((long)1)); 
BgL_arg2017z00_1236 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2076); } 
{ /* ./Effect/spread.scm 206 */
int BgL_offsetz00_1239;
BgL_offsetz00_1239 = 
(int)(BgL_objzd2classzd2numz00_1235); 
{ /* ./Effect/spread.scm 206 */
long BgL_offsetz00_1240;
{ /* ./Effect/spread.scm 206 */
long BgL_auxz00_2080;
BgL_auxz00_2080 = 
(long)(BgL_offsetz00_1239); 
BgL_offsetz00_1240 = 
(BgL_auxz00_2080-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 206 */
long BgL_modz00_1241;
{ /* ./Effect/spread.scm 206 */
int BgL_arg2028z00_1242;
BgL_arg2028z00_1242 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 206 */
long BgL_n2z00_1250;
BgL_n2z00_1250 = 
(long)(BgL_arg2028z00_1242); 
BgL_modz00_1241 = 
(BgL_offsetz00_1240/BgL_n2z00_1250); } } 
{ /* ./Effect/spread.scm 206 */
long BgL_restz00_1243;
{ /* ./Effect/spread.scm 206 */
int BgL_arg2024z00_1244;
BgL_arg2024z00_1244 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 206 */
long BgL_n2z00_1253;
BgL_n2z00_1253 = 
(long)(BgL_arg2024z00_1244); 
BgL_restz00_1243 = 
(BgL_offsetz00_1240%BgL_n2z00_1253); } } 
{ /* ./Effect/spread.scm 206 */

{ /* ./Effect/spread.scm 206 */
obj_t BgL_bucketz00_1245;
{ /* ./Effect/spread.scm 206 */
int BgL_kz00_1255;
BgL_kz00_1255 = 
(int)(BgL_modz00_1241); 
BgL_bucketz00_1245 = 
VECTOR_REF(BgL_arg2017z00_1236,BgL_kz00_1255); } 
{ /* ./Effect/spread.scm 206 */
int BgL_kz00_1257;
BgL_kz00_1257 = 
(int)(BgL_restz00_1243); 
BgL_method2705z00_1233 = 
VECTOR_REF(BgL_bucketz00_1245,BgL_kz00_1257); } } } } } } } } } } 
{ /* ./Effect/spread.scm 206 */
obj_t BgL_auxz00_2093;
BgL_auxz00_2093 = 
PROCEDURE_ENTRY(BgL_method2705z00_1233)(BgL_method2705z00_1233, 
(obj_t)(BgL_nodez00_1232), BEOA); 
BgL_res3372z00_1258 = 
CBOOL(BgL_auxz00_2093); } } } 
BgL__ortest_2702z00_685 = BgL_res3372z00_1258; } } 
if(BgL__ortest_2702z00_685)
{ /* ./Effect/spread.scm 206 */
BgL_arg2747z00_684 = BgL__ortest_2702z00_685; }  else 
{ /* ./Effect/spread.scm 206 */
BgL_arg2747z00_684 = BgL_resz00_680; } } 
{ 
bool_t BgL_resz00_2100;obj_t BgL_nodeza2za2_2099;
BgL_nodeza2za2_2099 = BgL_arg2746z00_683; 
BgL_resz00_2100 = BgL_arg2747z00_684; 
BgL_resz00_680 = BgL_resz00_2100; 
BgL_nodeza2za2_679 = BgL_nodeza2za2_2099; 
goto BgL_loopz00_681;} } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzeffect_spreadz00()
{ AN_OBJECT;
{ /* ./Effect/spread.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_spreadzd2sidezd2effectz12zd2default2703zd2envz12zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_varz00zzast_nodez00, BGl_proc3846z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_sequencez00zzast_nodez00, BGl_proc3847z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_appz00zzast_nodez00, BGl_proc3848z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc3849z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_funcallz00zzast_nodez00, BGl_proc3850z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_externz00zzast_nodez00, BGl_proc3851z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_castz00zzast_nodez00, BGl_proc3852z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_setqz00zzast_nodez00, BGl_proc3853z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_conditionalz00zzast_nodez00, BGl_proc3854z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_failz00zzast_nodez00, BGl_proc3855z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_selectz00zzast_nodez00, BGl_proc3856z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc3857z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc3858z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc3859z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc3860z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc3861z00zzeffect_spreadz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc3862z00zzeffect_spreadz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc3863z00zzeffect_spreadz00);} 
}



/* spread-side-effect!-box-ref2742 */
obj_t BGl_spreadzd2sidezd2effectz12zd2boxzd2ref2742z12zzeffect_spreadz00(obj_t BgL_envz00_1998, obj_t BgL_nodez00_1999)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 194 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1221;
{ /* ./Effect/spread.scm 195 */
bool_t BgL_auxz00_2120;
BgL_nodez00_1221 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_1999); 
{ /* ./Effect/spread.scm 195 */
BgL_varz00_bglt BgL_arg3357z00_1924;
BgL_arg3357z00_1924 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1221))->BgL_varz00); 
{ /* ./Effect/spread.scm 195 */
bool_t BgL_res3441z00_1952;
{ /* ./Effect/spread.scm 195 */
BgL_nodez00_bglt BgL_nodez00_1926;
BgL_nodez00_1926 = 
(BgL_nodez00_bglt)(BgL_arg3357z00_1924); 
{ /* ./Effect/spread.scm 195 */
obj_t BgL_method2705z00_1927;
{ /* ./Effect/spread.scm 195 */
BgL_objectz00_bglt BgL_objz00_1928;
BgL_objz00_1928 = 
(BgL_objectz00_bglt)(BgL_nodez00_1926); 
{ /* ./Effect/spread.scm 195 */
long BgL_objzd2classzd2numz00_1929;
BgL_objzd2classzd2numz00_1929 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1928); 
{ /* ./Effect/spread.scm 195 */
obj_t BgL_arg2017z00_1930;
{ /* ./Effect/spread.scm 195 */
int BgL_auxz00_2125;
BgL_auxz00_2125 = 
(int)(((long)1)); 
BgL_arg2017z00_1930 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2125); } 
{ /* ./Effect/spread.scm 195 */
int BgL_offsetz00_1933;
BgL_offsetz00_1933 = 
(int)(BgL_objzd2classzd2numz00_1929); 
{ /* ./Effect/spread.scm 195 */
long BgL_offsetz00_1934;
{ /* ./Effect/spread.scm 195 */
long BgL_auxz00_2129;
BgL_auxz00_2129 = 
(long)(BgL_offsetz00_1933); 
BgL_offsetz00_1934 = 
(BgL_auxz00_2129-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 195 */
long BgL_modz00_1935;
{ /* ./Effect/spread.scm 195 */
int BgL_arg2028z00_1936;
BgL_arg2028z00_1936 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 195 */
long BgL_n2z00_1944;
BgL_n2z00_1944 = 
(long)(BgL_arg2028z00_1936); 
BgL_modz00_1935 = 
(BgL_offsetz00_1934/BgL_n2z00_1944); } } 
{ /* ./Effect/spread.scm 195 */
long BgL_restz00_1937;
{ /* ./Effect/spread.scm 195 */
int BgL_arg2024z00_1938;
BgL_arg2024z00_1938 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 195 */
long BgL_n2z00_1947;
BgL_n2z00_1947 = 
(long)(BgL_arg2024z00_1938); 
BgL_restz00_1937 = 
(BgL_offsetz00_1934%BgL_n2z00_1947); } } 
{ /* ./Effect/spread.scm 195 */

{ /* ./Effect/spread.scm 195 */
obj_t BgL_bucketz00_1939;
{ /* ./Effect/spread.scm 195 */
int BgL_kz00_1949;
BgL_kz00_1949 = 
(int)(BgL_modz00_1935); 
BgL_bucketz00_1939 = 
VECTOR_REF(BgL_arg2017z00_1930,BgL_kz00_1949); } 
{ /* ./Effect/spread.scm 195 */
int BgL_kz00_1951;
BgL_kz00_1951 = 
(int)(BgL_restz00_1937); 
BgL_method2705z00_1927 = 
VECTOR_REF(BgL_bucketz00_1939,BgL_kz00_1951); } } } } } } } } } } 
{ /* ./Effect/spread.scm 195 */
obj_t BgL_auxz00_2142;
BgL_auxz00_2142 = 
PROCEDURE_ENTRY(BgL_method2705z00_1927)(BgL_method2705z00_1927, 
(obj_t)(BgL_nodez00_1926), BEOA); 
BgL_res3441z00_1952 = 
CBOOL(BgL_auxz00_2142); } } } 
BgL_auxz00_2120 = BgL_res3441z00_1952; } } 
return 
BBOOL(BgL_auxz00_2120);} } } 
}



/* spread-side-effect!-box-set!2740 */
obj_t BGl_spreadzd2sidezd2effectz12zd2boxzd2setz122740z00zzeffect_spreadz00(obj_t BgL_envz00_2000, obj_t BgL_nodez00_2001)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 182 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1214;
{ /* ./Effect/spread.scm 183 */
bool_t BgL_auxz00_2149;
BgL_nodez00_1214 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2001); 
{ /* ./Effect/spread.scm 183 */
BgL_nodez00_bglt BgL_arg3347z00_1894;
BgL_arg3347z00_1894 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1214))->BgL_valuez00); 
{ /* ./Effect/spread.scm 183 */
bool_t BgL_res3438z00_1922;
{ /* ./Effect/spread.scm 183 */
obj_t BgL_method2705z00_1897;
{ /* ./Effect/spread.scm 183 */
BgL_objectz00_bglt BgL_objz00_1898;
BgL_objz00_1898 = 
(BgL_objectz00_bglt)(BgL_arg3347z00_1894); 
{ /* ./Effect/spread.scm 183 */
long BgL_objzd2classzd2numz00_1899;
BgL_objzd2classzd2numz00_1899 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1898); 
{ /* ./Effect/spread.scm 183 */
obj_t BgL_arg2017z00_1900;
{ /* ./Effect/spread.scm 183 */
int BgL_auxz00_2153;
BgL_auxz00_2153 = 
(int)(((long)1)); 
BgL_arg2017z00_1900 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2153); } 
{ /* ./Effect/spread.scm 183 */
int BgL_offsetz00_1903;
BgL_offsetz00_1903 = 
(int)(BgL_objzd2classzd2numz00_1899); 
{ /* ./Effect/spread.scm 183 */
long BgL_offsetz00_1904;
{ /* ./Effect/spread.scm 183 */
long BgL_auxz00_2157;
BgL_auxz00_2157 = 
(long)(BgL_offsetz00_1903); 
BgL_offsetz00_1904 = 
(BgL_auxz00_2157-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 183 */
long BgL_modz00_1905;
{ /* ./Effect/spread.scm 183 */
int BgL_arg2028z00_1906;
BgL_arg2028z00_1906 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 183 */
long BgL_n2z00_1914;
BgL_n2z00_1914 = 
(long)(BgL_arg2028z00_1906); 
BgL_modz00_1905 = 
(BgL_offsetz00_1904/BgL_n2z00_1914); } } 
{ /* ./Effect/spread.scm 183 */
long BgL_restz00_1907;
{ /* ./Effect/spread.scm 183 */
int BgL_arg2024z00_1908;
BgL_arg2024z00_1908 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 183 */
long BgL_n2z00_1917;
BgL_n2z00_1917 = 
(long)(BgL_arg2024z00_1908); 
BgL_restz00_1907 = 
(BgL_offsetz00_1904%BgL_n2z00_1917); } } 
{ /* ./Effect/spread.scm 183 */

{ /* ./Effect/spread.scm 183 */
obj_t BgL_bucketz00_1909;
{ /* ./Effect/spread.scm 183 */
int BgL_kz00_1919;
BgL_kz00_1919 = 
(int)(BgL_modz00_1905); 
BgL_bucketz00_1909 = 
VECTOR_REF(BgL_arg2017z00_1900,BgL_kz00_1919); } 
{ /* ./Effect/spread.scm 183 */
int BgL_kz00_1921;
BgL_kz00_1921 = 
(int)(BgL_restz00_1907); 
BgL_method2705z00_1897 = 
VECTOR_REF(BgL_bucketz00_1909,BgL_kz00_1921); } } } } } } } } } } 
{ /* ./Effect/spread.scm 183 */
obj_t BgL_auxz00_2170;
BgL_auxz00_2170 = 
PROCEDURE_ENTRY(BgL_method2705z00_1897)(BgL_method2705z00_1897, 
(obj_t)(BgL_arg3347z00_1894), BEOA); 
BgL_res3438z00_1922 = 
CBOOL(BgL_auxz00_2170); } } BgL_res3438z00_1922; } } 
BgL_auxz00_2149 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_2149);} } } 
}



/* spread-side-effect!-make-box2737 */
obj_t BGl_spreadzd2sidezd2effectz12zd2makezd2box2737z12zzeffect_spreadz00(obj_t BgL_envz00_2002, obj_t BgL_nodez00_2003)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 173 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1206;
{ /* ./Effect/spread.scm 174 */
bool_t BgL_auxz00_2177;
BgL_nodez00_1206 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2003); 
{ /* ./Effect/spread.scm 175 */
bool_t BgL_resz00_1210;
{ /* ./Effect/spread.scm 175 */
BgL_nodez00_bglt BgL_arg3337z00_1211;
BgL_arg3337z00_1211 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1206))->BgL_valuez00); 
{ /* ./Effect/spread.scm 175 */
bool_t BgL_res3435z00_1890;
{ /* ./Effect/spread.scm 175 */
obj_t BgL_method2705z00_1865;
{ /* ./Effect/spread.scm 175 */
BgL_objectz00_bglt BgL_objz00_1866;
BgL_objz00_1866 = 
(BgL_objectz00_bglt)(BgL_arg3337z00_1211); 
{ /* ./Effect/spread.scm 175 */
long BgL_objzd2classzd2numz00_1867;
BgL_objzd2classzd2numz00_1867 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1866); 
{ /* ./Effect/spread.scm 175 */
obj_t BgL_arg2017z00_1868;
{ /* ./Effect/spread.scm 175 */
int BgL_auxz00_2181;
BgL_auxz00_2181 = 
(int)(((long)1)); 
BgL_arg2017z00_1868 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2181); } 
{ /* ./Effect/spread.scm 175 */
int BgL_offsetz00_1871;
BgL_offsetz00_1871 = 
(int)(BgL_objzd2classzd2numz00_1867); 
{ /* ./Effect/spread.scm 175 */
long BgL_offsetz00_1872;
{ /* ./Effect/spread.scm 175 */
long BgL_auxz00_2185;
BgL_auxz00_2185 = 
(long)(BgL_offsetz00_1871); 
BgL_offsetz00_1872 = 
(BgL_auxz00_2185-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 175 */
long BgL_modz00_1873;
{ /* ./Effect/spread.scm 175 */
int BgL_arg2028z00_1874;
BgL_arg2028z00_1874 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 175 */
long BgL_n2z00_1882;
BgL_n2z00_1882 = 
(long)(BgL_arg2028z00_1874); 
BgL_modz00_1873 = 
(BgL_offsetz00_1872/BgL_n2z00_1882); } } 
{ /* ./Effect/spread.scm 175 */
long BgL_restz00_1875;
{ /* ./Effect/spread.scm 175 */
int BgL_arg2024z00_1876;
BgL_arg2024z00_1876 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 175 */
long BgL_n2z00_1885;
BgL_n2z00_1885 = 
(long)(BgL_arg2024z00_1876); 
BgL_restz00_1875 = 
(BgL_offsetz00_1872%BgL_n2z00_1885); } } 
{ /* ./Effect/spread.scm 175 */

{ /* ./Effect/spread.scm 175 */
obj_t BgL_bucketz00_1877;
{ /* ./Effect/spread.scm 175 */
int BgL_kz00_1887;
BgL_kz00_1887 = 
(int)(BgL_modz00_1873); 
BgL_bucketz00_1877 = 
VECTOR_REF(BgL_arg2017z00_1868,BgL_kz00_1887); } 
{ /* ./Effect/spread.scm 175 */
int BgL_kz00_1889;
BgL_kz00_1889 = 
(int)(BgL_restz00_1875); 
BgL_method2705z00_1865 = 
VECTOR_REF(BgL_bucketz00_1877,BgL_kz00_1889); } } } } } } } } } } 
{ /* ./Effect/spread.scm 175 */
obj_t BgL_auxz00_2198;
BgL_auxz00_2198 = 
PROCEDURE_ENTRY(BgL_method2705z00_1865)(BgL_method2705z00_1865, 
(obj_t)(BgL_arg3337z00_1211), BEOA); 
BgL_res3435z00_1890 = 
CBOOL(BgL_auxz00_2198); } } 
BgL_resz00_1210 = BgL_res3435z00_1890; } } 
{ /* ./Effect/spread.scm 176 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1891;obj_t BgL_val1579z00_1892;
BgL_obj1580z00_1891 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1206); 
BgL_val1579z00_1892 = 
BBOOL(BgL_resz00_1210); 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1891))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1892), BUNSPEC); } 
BgL_auxz00_2177 = BgL_resz00_1210; } 
return 
BBOOL(BgL_auxz00_2177);} } } 
}



/* spread-side-effect!-jump-ex-it2735 */
obj_t BGl_spreadzd2sidezd2effectz12zd2jumpzd2exzd2it2735zc0zzeffect_spreadz00(obj_t BgL_envz00_2004, obj_t BgL_nodez00_2005)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 164 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1198;
{ /* ./Effect/spread.scm 165 */
bool_t BgL_auxz00_2208;
BgL_nodez00_1198 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2005); 
{ /* ./Effect/spread.scm 166 */
BgL_nodez00_bglt BgL_arg3322z00_1202;
BgL_arg3322z00_1202 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1198))->BgL_exitz00); 
{ /* ./Effect/spread.scm 166 */
bool_t BgL_res3429z00_1834;
{ /* ./Effect/spread.scm 166 */
obj_t BgL_method2705z00_1809;
{ /* ./Effect/spread.scm 166 */
BgL_objectz00_bglt BgL_objz00_1810;
BgL_objz00_1810 = 
(BgL_objectz00_bglt)(BgL_arg3322z00_1202); 
{ /* ./Effect/spread.scm 166 */
long BgL_objzd2classzd2numz00_1811;
BgL_objzd2classzd2numz00_1811 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1810); 
{ /* ./Effect/spread.scm 166 */
obj_t BgL_arg2017z00_1812;
{ /* ./Effect/spread.scm 166 */
int BgL_auxz00_2212;
BgL_auxz00_2212 = 
(int)(((long)1)); 
BgL_arg2017z00_1812 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2212); } 
{ /* ./Effect/spread.scm 166 */
int BgL_offsetz00_1815;
BgL_offsetz00_1815 = 
(int)(BgL_objzd2classzd2numz00_1811); 
{ /* ./Effect/spread.scm 166 */
long BgL_offsetz00_1816;
{ /* ./Effect/spread.scm 166 */
long BgL_auxz00_2216;
BgL_auxz00_2216 = 
(long)(BgL_offsetz00_1815); 
BgL_offsetz00_1816 = 
(BgL_auxz00_2216-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 166 */
long BgL_modz00_1817;
{ /* ./Effect/spread.scm 166 */
int BgL_arg2028z00_1818;
BgL_arg2028z00_1818 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 166 */
long BgL_n2z00_1826;
BgL_n2z00_1826 = 
(long)(BgL_arg2028z00_1818); 
BgL_modz00_1817 = 
(BgL_offsetz00_1816/BgL_n2z00_1826); } } 
{ /* ./Effect/spread.scm 166 */
long BgL_restz00_1819;
{ /* ./Effect/spread.scm 166 */
int BgL_arg2024z00_1820;
BgL_arg2024z00_1820 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 166 */
long BgL_n2z00_1829;
BgL_n2z00_1829 = 
(long)(BgL_arg2024z00_1820); 
BgL_restz00_1819 = 
(BgL_offsetz00_1816%BgL_n2z00_1829); } } 
{ /* ./Effect/spread.scm 166 */

{ /* ./Effect/spread.scm 166 */
obj_t BgL_bucketz00_1821;
{ /* ./Effect/spread.scm 166 */
int BgL_kz00_1831;
BgL_kz00_1831 = 
(int)(BgL_modz00_1817); 
BgL_bucketz00_1821 = 
VECTOR_REF(BgL_arg2017z00_1812,BgL_kz00_1831); } 
{ /* ./Effect/spread.scm 166 */
int BgL_kz00_1833;
BgL_kz00_1833 = 
(int)(BgL_restz00_1819); 
BgL_method2705z00_1809 = 
VECTOR_REF(BgL_bucketz00_1821,BgL_kz00_1833); } } } } } } } } } } 
{ /* ./Effect/spread.scm 166 */
obj_t BgL_auxz00_2229;
BgL_auxz00_2229 = 
PROCEDURE_ENTRY(BgL_method2705z00_1809)(BgL_method2705z00_1809, 
(obj_t)(BgL_arg3322z00_1202), BEOA); 
BgL_res3429z00_1834 = 
CBOOL(BgL_auxz00_2229); } } BgL_res3429z00_1834; } } 
{ /* ./Effect/spread.scm 167 */
BgL_nodez00_bglt BgL_arg3326z00_1203;
BgL_arg3326z00_1203 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1198))->BgL_valuez00); 
{ /* ./Effect/spread.scm 167 */
bool_t BgL_res3432z00_1862;
{ /* ./Effect/spread.scm 167 */
obj_t BgL_method2705z00_1837;
{ /* ./Effect/spread.scm 167 */
BgL_objectz00_bglt BgL_objz00_1838;
BgL_objz00_1838 = 
(BgL_objectz00_bglt)(BgL_arg3326z00_1203); 
{ /* ./Effect/spread.scm 167 */
long BgL_objzd2classzd2numz00_1839;
BgL_objzd2classzd2numz00_1839 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1838); 
{ /* ./Effect/spread.scm 167 */
obj_t BgL_arg2017z00_1840;
{ /* ./Effect/spread.scm 167 */
int BgL_auxz00_2237;
BgL_auxz00_2237 = 
(int)(((long)1)); 
BgL_arg2017z00_1840 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2237); } 
{ /* ./Effect/spread.scm 167 */
int BgL_offsetz00_1843;
BgL_offsetz00_1843 = 
(int)(BgL_objzd2classzd2numz00_1839); 
{ /* ./Effect/spread.scm 167 */
long BgL_offsetz00_1844;
{ /* ./Effect/spread.scm 167 */
long BgL_auxz00_2241;
BgL_auxz00_2241 = 
(long)(BgL_offsetz00_1843); 
BgL_offsetz00_1844 = 
(BgL_auxz00_2241-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 167 */
long BgL_modz00_1845;
{ /* ./Effect/spread.scm 167 */
int BgL_arg2028z00_1846;
BgL_arg2028z00_1846 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 167 */
long BgL_n2z00_1854;
BgL_n2z00_1854 = 
(long)(BgL_arg2028z00_1846); 
BgL_modz00_1845 = 
(BgL_offsetz00_1844/BgL_n2z00_1854); } } 
{ /* ./Effect/spread.scm 167 */
long BgL_restz00_1847;
{ /* ./Effect/spread.scm 167 */
int BgL_arg2024z00_1848;
BgL_arg2024z00_1848 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 167 */
long BgL_n2z00_1857;
BgL_n2z00_1857 = 
(long)(BgL_arg2024z00_1848); 
BgL_restz00_1847 = 
(BgL_offsetz00_1844%BgL_n2z00_1857); } } 
{ /* ./Effect/spread.scm 167 */

{ /* ./Effect/spread.scm 167 */
obj_t BgL_bucketz00_1849;
{ /* ./Effect/spread.scm 167 */
int BgL_kz00_1859;
BgL_kz00_1859 = 
(int)(BgL_modz00_1845); 
BgL_bucketz00_1849 = 
VECTOR_REF(BgL_arg2017z00_1840,BgL_kz00_1859); } 
{ /* ./Effect/spread.scm 167 */
int BgL_kz00_1861;
BgL_kz00_1861 = 
(int)(BgL_restz00_1847); 
BgL_method2705z00_1837 = 
VECTOR_REF(BgL_bucketz00_1849,BgL_kz00_1861); } } } } } } } } } } 
{ /* ./Effect/spread.scm 167 */
obj_t BgL_auxz00_2254;
BgL_auxz00_2254 = 
PROCEDURE_ENTRY(BgL_method2705z00_1837)(BgL_method2705z00_1837, 
(obj_t)(BgL_arg3326z00_1203), BEOA); 
BgL_res3432z00_1862 = 
CBOOL(BgL_auxz00_2254); } } BgL_res3432z00_1862; } } 
BgL_auxz00_2208 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_2208);} } } 
}



/* spread-side-effect!-set-ex-it2733 */
obj_t BGl_spreadzd2sidezd2effectz12zd2setzd2exzd2it2733zc0zzeffect_spreadz00(obj_t BgL_envz00_2006, obj_t BgL_nodez00_2007)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 157 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1191;
{ /* ./Effect/spread.scm 158 */
bool_t BgL_auxz00_2261;
BgL_nodez00_1191 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2007); 
{ /* ./Effect/spread.scm 158 */
BgL_nodez00_bglt BgL_arg3312z00_1778;
BgL_arg3312z00_1778 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1191))->BgL_bodyz00); 
{ /* ./Effect/spread.scm 158 */
bool_t BgL_res3426z00_1806;
{ /* ./Effect/spread.scm 158 */
obj_t BgL_method2705z00_1781;
{ /* ./Effect/spread.scm 158 */
BgL_objectz00_bglt BgL_objz00_1782;
BgL_objz00_1782 = 
(BgL_objectz00_bglt)(BgL_arg3312z00_1778); 
{ /* ./Effect/spread.scm 158 */
long BgL_objzd2classzd2numz00_1783;
BgL_objzd2classzd2numz00_1783 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1782); 
{ /* ./Effect/spread.scm 158 */
obj_t BgL_arg2017z00_1784;
{ /* ./Effect/spread.scm 158 */
int BgL_auxz00_2265;
BgL_auxz00_2265 = 
(int)(((long)1)); 
BgL_arg2017z00_1784 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2265); } 
{ /* ./Effect/spread.scm 158 */
int BgL_offsetz00_1787;
BgL_offsetz00_1787 = 
(int)(BgL_objzd2classzd2numz00_1783); 
{ /* ./Effect/spread.scm 158 */
long BgL_offsetz00_1788;
{ /* ./Effect/spread.scm 158 */
long BgL_auxz00_2269;
BgL_auxz00_2269 = 
(long)(BgL_offsetz00_1787); 
BgL_offsetz00_1788 = 
(BgL_auxz00_2269-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 158 */
long BgL_modz00_1789;
{ /* ./Effect/spread.scm 158 */
int BgL_arg2028z00_1790;
BgL_arg2028z00_1790 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 158 */
long BgL_n2z00_1798;
BgL_n2z00_1798 = 
(long)(BgL_arg2028z00_1790); 
BgL_modz00_1789 = 
(BgL_offsetz00_1788/BgL_n2z00_1798); } } 
{ /* ./Effect/spread.scm 158 */
long BgL_restz00_1791;
{ /* ./Effect/spread.scm 158 */
int BgL_arg2024z00_1792;
BgL_arg2024z00_1792 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 158 */
long BgL_n2z00_1801;
BgL_n2z00_1801 = 
(long)(BgL_arg2024z00_1792); 
BgL_restz00_1791 = 
(BgL_offsetz00_1788%BgL_n2z00_1801); } } 
{ /* ./Effect/spread.scm 158 */

{ /* ./Effect/spread.scm 158 */
obj_t BgL_bucketz00_1793;
{ /* ./Effect/spread.scm 158 */
int BgL_kz00_1803;
BgL_kz00_1803 = 
(int)(BgL_modz00_1789); 
BgL_bucketz00_1793 = 
VECTOR_REF(BgL_arg2017z00_1784,BgL_kz00_1803); } 
{ /* ./Effect/spread.scm 158 */
int BgL_kz00_1805;
BgL_kz00_1805 = 
(int)(BgL_restz00_1791); 
BgL_method2705z00_1781 = 
VECTOR_REF(BgL_bucketz00_1793,BgL_kz00_1805); } } } } } } } } } } 
{ /* ./Effect/spread.scm 158 */
obj_t BgL_auxz00_2282;
BgL_auxz00_2282 = 
PROCEDURE_ENTRY(BgL_method2705z00_1781)(BgL_method2705z00_1781, 
(obj_t)(BgL_arg3312z00_1778), BEOA); 
BgL_res3426z00_1806 = 
CBOOL(BgL_auxz00_2282); } } 
BgL_auxz00_2261 = BgL_res3426z00_1806; } } 
return 
BBOOL(BgL_auxz00_2261);} } } 
}



/* spread-side-effect!-let-var2731 */
obj_t BGl_spreadzd2sidezd2effectz12zd2letzd2var2731z12zzeffect_spreadz00(obj_t BgL_envz00_2008, obj_t BgL_nodez00_2009)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 143 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1173;
{ /* ./Effect/spread.scm 144 */
bool_t BgL_auxz00_2289;
BgL_nodez00_1173 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2009); 
{ 
obj_t BgL_bdgsz00_1177;bool_t BgL_resz00_1178;
{ /* ./Effect/spread.scm 145 */
obj_t BgL_arg3282z00_1180;bool_t BgL_arg3283z00_1181;
BgL_arg3282z00_1180 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1173))->BgL_bindingsz00); 
{ /* ./Effect/spread.scm 146 */
BgL_nodez00_bglt BgL_arg3287z00_1182;
BgL_arg3287z00_1182 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1173))->BgL_bodyz00); 
{ /* ./Effect/spread.scm 146 */
bool_t BgL_res3420z00_1743;
{ /* ./Effect/spread.scm 146 */
obj_t BgL_method2705z00_1718;
{ /* ./Effect/spread.scm 146 */
BgL_objectz00_bglt BgL_objz00_1719;
BgL_objz00_1719 = 
(BgL_objectz00_bglt)(BgL_arg3287z00_1182); 
{ /* ./Effect/spread.scm 146 */
long BgL_objzd2classzd2numz00_1720;
BgL_objzd2classzd2numz00_1720 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1719); 
{ /* ./Effect/spread.scm 146 */
obj_t BgL_arg2017z00_1721;
{ /* ./Effect/spread.scm 146 */
int BgL_auxz00_2294;
BgL_auxz00_2294 = 
(int)(((long)1)); 
BgL_arg2017z00_1721 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2294); } 
{ /* ./Effect/spread.scm 146 */
int BgL_offsetz00_1724;
BgL_offsetz00_1724 = 
(int)(BgL_objzd2classzd2numz00_1720); 
{ /* ./Effect/spread.scm 146 */
long BgL_offsetz00_1725;
{ /* ./Effect/spread.scm 146 */
long BgL_auxz00_2298;
BgL_auxz00_2298 = 
(long)(BgL_offsetz00_1724); 
BgL_offsetz00_1725 = 
(BgL_auxz00_2298-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 146 */
long BgL_modz00_1726;
{ /* ./Effect/spread.scm 146 */
int BgL_arg2028z00_1727;
BgL_arg2028z00_1727 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 146 */
long BgL_n2z00_1735;
BgL_n2z00_1735 = 
(long)(BgL_arg2028z00_1727); 
BgL_modz00_1726 = 
(BgL_offsetz00_1725/BgL_n2z00_1735); } } 
{ /* ./Effect/spread.scm 146 */
long BgL_restz00_1728;
{ /* ./Effect/spread.scm 146 */
int BgL_arg2024z00_1729;
BgL_arg2024z00_1729 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 146 */
long BgL_n2z00_1738;
BgL_n2z00_1738 = 
(long)(BgL_arg2024z00_1729); 
BgL_restz00_1728 = 
(BgL_offsetz00_1725%BgL_n2z00_1738); } } 
{ /* ./Effect/spread.scm 146 */

{ /* ./Effect/spread.scm 146 */
obj_t BgL_bucketz00_1730;
{ /* ./Effect/spread.scm 146 */
int BgL_kz00_1740;
BgL_kz00_1740 = 
(int)(BgL_modz00_1726); 
BgL_bucketz00_1730 = 
VECTOR_REF(BgL_arg2017z00_1721,BgL_kz00_1740); } 
{ /* ./Effect/spread.scm 146 */
int BgL_kz00_1742;
BgL_kz00_1742 = 
(int)(BgL_restz00_1728); 
BgL_method2705z00_1718 = 
VECTOR_REF(BgL_bucketz00_1730,BgL_kz00_1742); } } } } } } } } } } 
{ /* ./Effect/spread.scm 146 */
obj_t BgL_auxz00_2311;
BgL_auxz00_2311 = 
PROCEDURE_ENTRY(BgL_method2705z00_1718)(BgL_method2705z00_1718, 
(obj_t)(BgL_arg3287z00_1182), BEOA); 
BgL_res3420z00_1743 = 
CBOOL(BgL_auxz00_2311); } } 
BgL_arg3283z00_1181 = BgL_res3420z00_1743; } } 
BgL_bdgsz00_1177 = BgL_arg3282z00_1180; 
BgL_resz00_1178 = BgL_arg3283z00_1181; 
BgL_loopz00_1179:
{ /* ./Effect/spread.scm 147 */
bool_t BgL_test3290z00_1183;
BgL_test3290z00_1183 = 
NULLP(BgL_bdgsz00_1177); 
if(BgL_test3290z00_1183)
{ /* ./Effect/spread.scm 147 */
{ /* ./Effect/spread.scm 149 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1745;obj_t BgL_val1579z00_1746;
BgL_obj1580z00_1745 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1173); 
BgL_val1579z00_1746 = 
BBOOL(BgL_resz00_1178); 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1745))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1746), BUNSPEC); } 
BgL_auxz00_2289 = BgL_resz00_1178; }  else 
{ /* ./Effect/spread.scm 151 */
obj_t BgL_arg3293z00_1184;bool_t BgL_arg3294z00_1185;
BgL_arg3293z00_1184 = 
CDR(BgL_bdgsz00_1177); 
{ /* ./Effect/spread.scm 152 */
bool_t BgL__ortest_2691z00_1186;
{ /* ./Effect/spread.scm 152 */
obj_t BgL_arg3298z00_1187;
{ /* ./Effect/spread.scm 152 */
obj_t BgL_auxz00_2322;
BgL_auxz00_2322 = 
CAR(BgL_bdgsz00_1177); 
BgL_arg3298z00_1187 = 
CDR(BgL_auxz00_2322); } 
{ /* ./Effect/spread.scm 152 */
bool_t BgL_res3423z00_1776;
{ /* ./Effect/spread.scm 152 */
BgL_nodez00_bglt BgL_nodez00_1750;
BgL_nodez00_1750 = 
(BgL_nodez00_bglt)(BgL_arg3298z00_1187); 
{ /* ./Effect/spread.scm 152 */
obj_t BgL_method2705z00_1751;
{ /* ./Effect/spread.scm 152 */
BgL_objectz00_bglt BgL_objz00_1752;
BgL_objz00_1752 = 
(BgL_objectz00_bglt)(BgL_nodez00_1750); 
{ /* ./Effect/spread.scm 152 */
long BgL_objzd2classzd2numz00_1753;
BgL_objzd2classzd2numz00_1753 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1752); 
{ /* ./Effect/spread.scm 152 */
obj_t BgL_arg2017z00_1754;
{ /* ./Effect/spread.scm 152 */
int BgL_auxz00_2328;
BgL_auxz00_2328 = 
(int)(((long)1)); 
BgL_arg2017z00_1754 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2328); } 
{ /* ./Effect/spread.scm 152 */
int BgL_offsetz00_1757;
BgL_offsetz00_1757 = 
(int)(BgL_objzd2classzd2numz00_1753); 
{ /* ./Effect/spread.scm 152 */
long BgL_offsetz00_1758;
{ /* ./Effect/spread.scm 152 */
long BgL_auxz00_2332;
BgL_auxz00_2332 = 
(long)(BgL_offsetz00_1757); 
BgL_offsetz00_1758 = 
(BgL_auxz00_2332-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 152 */
long BgL_modz00_1759;
{ /* ./Effect/spread.scm 152 */
int BgL_arg2028z00_1760;
BgL_arg2028z00_1760 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 152 */
long BgL_n2z00_1768;
BgL_n2z00_1768 = 
(long)(BgL_arg2028z00_1760); 
BgL_modz00_1759 = 
(BgL_offsetz00_1758/BgL_n2z00_1768); } } 
{ /* ./Effect/spread.scm 152 */
long BgL_restz00_1761;
{ /* ./Effect/spread.scm 152 */
int BgL_arg2024z00_1762;
BgL_arg2024z00_1762 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 152 */
long BgL_n2z00_1771;
BgL_n2z00_1771 = 
(long)(BgL_arg2024z00_1762); 
BgL_restz00_1761 = 
(BgL_offsetz00_1758%BgL_n2z00_1771); } } 
{ /* ./Effect/spread.scm 152 */

{ /* ./Effect/spread.scm 152 */
obj_t BgL_bucketz00_1763;
{ /* ./Effect/spread.scm 152 */
int BgL_kz00_1773;
BgL_kz00_1773 = 
(int)(BgL_modz00_1759); 
BgL_bucketz00_1763 = 
VECTOR_REF(BgL_arg2017z00_1754,BgL_kz00_1773); } 
{ /* ./Effect/spread.scm 152 */
int BgL_kz00_1775;
BgL_kz00_1775 = 
(int)(BgL_restz00_1761); 
BgL_method2705z00_1751 = 
VECTOR_REF(BgL_bucketz00_1763,BgL_kz00_1775); } } } } } } } } } } 
{ /* ./Effect/spread.scm 152 */
obj_t BgL_auxz00_2345;
BgL_auxz00_2345 = 
PROCEDURE_ENTRY(BgL_method2705z00_1751)(BgL_method2705z00_1751, 
(obj_t)(BgL_nodez00_1750), BEOA); 
BgL_res3423z00_1776 = 
CBOOL(BgL_auxz00_2345); } } } 
BgL__ortest_2691z00_1186 = BgL_res3423z00_1776; } } 
if(BgL__ortest_2691z00_1186)
{ /* ./Effect/spread.scm 152 */
BgL_arg3294z00_1185 = BgL__ortest_2691z00_1186; }  else 
{ /* ./Effect/spread.scm 152 */
BgL_arg3294z00_1185 = BgL_resz00_1178; } } 
{ 
bool_t BgL_resz00_2352;obj_t BgL_bdgsz00_2351;
BgL_bdgsz00_2351 = BgL_arg3293z00_1184; 
BgL_resz00_2352 = BgL_arg3294z00_1185; 
BgL_resz00_1178 = BgL_resz00_2352; 
BgL_bdgsz00_1177 = BgL_bdgsz00_2351; 
goto BgL_loopz00_1179;} } } } } 
return 
BBOOL(BgL_auxz00_2289);} } } 
}



/* spread-side-effect!-let-fun2729 */
obj_t BGl_spreadzd2sidezd2effectz12zd2letzd2fun2729z12zzeffect_spreadz00(obj_t BgL_envz00_2010, obj_t BgL_nodez00_2011)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 131 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1157;
{ /* ./Effect/spread.scm 132 */
bool_t BgL_auxz00_2355;
BgL_nodez00_1157 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2011); 
{ 
obj_t BgL_l2687z00_1161;
{ /* ./Effect/spread.scm 133 */
obj_t BgL_arg3251z00_1163;
BgL_arg3251z00_1163 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1157))->BgL_localsz00); 
BgL_l2687z00_1161 = BgL_arg3251z00_1163; 
BgL_forzd2each2688zd2_1162:
{ /* ./Effect/spread.scm 133 */
bool_t BgL_test3254z00_1164;
BgL_test3254z00_1164 = 
PAIRP(BgL_l2687z00_1161); 
if(BgL_test3254z00_1164)
{ /* ./Effect/spread.scm 133 */
{ /* ./Effect/spread.scm 134 */
obj_t BgL_localz00_1165;
BgL_localz00_1165 = 
CAR(BgL_l2687z00_1161); 
{ /* ./Effect/spread.scm 134 */
obj_t BgL_arg3257z00_1166;
{ /* ./Effect/spread.scm 134 */
BgL_sfunz00_bglt BgL_obj1370z00_1656;
{ /* ./Effect/spread.scm 134 */
BgL_valuez00_bglt BgL_auxz00_2360;
{ /* ./Effect/spread.scm 134 */
BgL_variablez00_bglt BgL_obj1100z00_1655;
BgL_obj1100z00_1655 = 
(BgL_variablez00_bglt)(BgL_localz00_1165); 
BgL_auxz00_2360 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1655))->BgL_valuez00); } 
BgL_obj1370z00_1656 = 
(BgL_sfunz00_bglt)(BgL_auxz00_2360); } 
BgL_arg3257z00_1166 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1656))->BgL_bodyz00); } 
{ /* ./Effect/spread.scm 134 */
bool_t BgL_res3414z00_1683;
{ /* ./Effect/spread.scm 134 */
BgL_nodez00_bglt BgL_nodez00_1657;
BgL_nodez00_1657 = 
(BgL_nodez00_bglt)(BgL_arg3257z00_1166); 
{ /* ./Effect/spread.scm 134 */
obj_t BgL_method2705z00_1658;
{ /* ./Effect/spread.scm 134 */
BgL_objectz00_bglt BgL_objz00_1659;
BgL_objz00_1659 = 
(BgL_objectz00_bglt)(BgL_nodez00_1657); 
{ /* ./Effect/spread.scm 134 */
long BgL_objzd2classzd2numz00_1660;
BgL_objzd2classzd2numz00_1660 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1659); 
{ /* ./Effect/spread.scm 134 */
obj_t BgL_arg2017z00_1661;
{ /* ./Effect/spread.scm 134 */
int BgL_auxz00_2368;
BgL_auxz00_2368 = 
(int)(((long)1)); 
BgL_arg2017z00_1661 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2368); } 
{ /* ./Effect/spread.scm 134 */
int BgL_offsetz00_1664;
BgL_offsetz00_1664 = 
(int)(BgL_objzd2classzd2numz00_1660); 
{ /* ./Effect/spread.scm 134 */
long BgL_offsetz00_1665;
{ /* ./Effect/spread.scm 134 */
long BgL_auxz00_2372;
BgL_auxz00_2372 = 
(long)(BgL_offsetz00_1664); 
BgL_offsetz00_1665 = 
(BgL_auxz00_2372-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 134 */
long BgL_modz00_1666;
{ /* ./Effect/spread.scm 134 */
int BgL_arg2028z00_1667;
BgL_arg2028z00_1667 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 134 */
long BgL_n2z00_1675;
BgL_n2z00_1675 = 
(long)(BgL_arg2028z00_1667); 
BgL_modz00_1666 = 
(BgL_offsetz00_1665/BgL_n2z00_1675); } } 
{ /* ./Effect/spread.scm 134 */
long BgL_restz00_1668;
{ /* ./Effect/spread.scm 134 */
int BgL_arg2024z00_1669;
BgL_arg2024z00_1669 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 134 */
long BgL_n2z00_1678;
BgL_n2z00_1678 = 
(long)(BgL_arg2024z00_1669); 
BgL_restz00_1668 = 
(BgL_offsetz00_1665%BgL_n2z00_1678); } } 
{ /* ./Effect/spread.scm 134 */

{ /* ./Effect/spread.scm 134 */
obj_t BgL_bucketz00_1670;
{ /* ./Effect/spread.scm 134 */
int BgL_kz00_1680;
BgL_kz00_1680 = 
(int)(BgL_modz00_1666); 
BgL_bucketz00_1670 = 
VECTOR_REF(BgL_arg2017z00_1661,BgL_kz00_1680); } 
{ /* ./Effect/spread.scm 134 */
int BgL_kz00_1682;
BgL_kz00_1682 = 
(int)(BgL_restz00_1668); 
BgL_method2705z00_1658 = 
VECTOR_REF(BgL_bucketz00_1670,BgL_kz00_1682); } } } } } } } } } } 
{ /* ./Effect/spread.scm 134 */
obj_t BgL_auxz00_2385;
BgL_auxz00_2385 = 
PROCEDURE_ENTRY(BgL_method2705z00_1658)(BgL_method2705z00_1658, 
(obj_t)(BgL_nodez00_1657), BEOA); 
BgL_res3414z00_1683 = 
CBOOL(BgL_auxz00_2385); } } } BgL_res3414z00_1683; } } } 
{ /* ./Effect/spread.scm 133 */
obj_t BgL_arg3265z00_1168;
BgL_arg3265z00_1168 = 
CDR(BgL_l2687z00_1161); 
{ 
obj_t BgL_l2687z00_2391;
BgL_l2687z00_2391 = BgL_arg3265z00_1168; 
BgL_l2687z00_1161 = BgL_l2687z00_2391; 
goto BgL_forzd2each2688zd2_1162;} } }  else 
{ /* ./Effect/spread.scm 133 */((bool_t)1); } } } } 
{ /* ./Effect/spread.scm 136 */
bool_t BgL_resz00_1169;
{ /* ./Effect/spread.scm 136 */
BgL_nodez00_bglt BgL_arg3272z00_1170;
BgL_arg3272z00_1170 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1157))->BgL_bodyz00); 
{ /* ./Effect/spread.scm 136 */
bool_t BgL_res3417z00_1712;
{ /* ./Effect/spread.scm 136 */
obj_t BgL_method2705z00_1687;
{ /* ./Effect/spread.scm 136 */
BgL_objectz00_bglt BgL_objz00_1688;
BgL_objz00_1688 = 
(BgL_objectz00_bglt)(BgL_arg3272z00_1170); 
{ /* ./Effect/spread.scm 136 */
long BgL_objzd2classzd2numz00_1689;
BgL_objzd2classzd2numz00_1689 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1688); 
{ /* ./Effect/spread.scm 136 */
obj_t BgL_arg2017z00_1690;
{ /* ./Effect/spread.scm 136 */
int BgL_auxz00_2395;
BgL_auxz00_2395 = 
(int)(((long)1)); 
BgL_arg2017z00_1690 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2395); } 
{ /* ./Effect/spread.scm 136 */
int BgL_offsetz00_1693;
BgL_offsetz00_1693 = 
(int)(BgL_objzd2classzd2numz00_1689); 
{ /* ./Effect/spread.scm 136 */
long BgL_offsetz00_1694;
{ /* ./Effect/spread.scm 136 */
long BgL_auxz00_2399;
BgL_auxz00_2399 = 
(long)(BgL_offsetz00_1693); 
BgL_offsetz00_1694 = 
(BgL_auxz00_2399-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 136 */
long BgL_modz00_1695;
{ /* ./Effect/spread.scm 136 */
int BgL_arg2028z00_1696;
BgL_arg2028z00_1696 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 136 */
long BgL_n2z00_1704;
BgL_n2z00_1704 = 
(long)(BgL_arg2028z00_1696); 
BgL_modz00_1695 = 
(BgL_offsetz00_1694/BgL_n2z00_1704); } } 
{ /* ./Effect/spread.scm 136 */
long BgL_restz00_1697;
{ /* ./Effect/spread.scm 136 */
int BgL_arg2024z00_1698;
BgL_arg2024z00_1698 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 136 */
long BgL_n2z00_1707;
BgL_n2z00_1707 = 
(long)(BgL_arg2024z00_1698); 
BgL_restz00_1697 = 
(BgL_offsetz00_1694%BgL_n2z00_1707); } } 
{ /* ./Effect/spread.scm 136 */

{ /* ./Effect/spread.scm 136 */
obj_t BgL_bucketz00_1699;
{ /* ./Effect/spread.scm 136 */
int BgL_kz00_1709;
BgL_kz00_1709 = 
(int)(BgL_modz00_1695); 
BgL_bucketz00_1699 = 
VECTOR_REF(BgL_arg2017z00_1690,BgL_kz00_1709); } 
{ /* ./Effect/spread.scm 136 */
int BgL_kz00_1711;
BgL_kz00_1711 = 
(int)(BgL_restz00_1697); 
BgL_method2705z00_1687 = 
VECTOR_REF(BgL_bucketz00_1699,BgL_kz00_1711); } } } } } } } } } } 
{ /* ./Effect/spread.scm 136 */
obj_t BgL_auxz00_2412;
BgL_auxz00_2412 = 
PROCEDURE_ENTRY(BgL_method2705z00_1687)(BgL_method2705z00_1687, 
(obj_t)(BgL_arg3272z00_1170), BEOA); 
BgL_res3417z00_1712 = 
CBOOL(BgL_auxz00_2412); } } 
BgL_resz00_1169 = BgL_res3417z00_1712; } } 
{ /* ./Effect/spread.scm 137 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1713;obj_t BgL_val1579z00_1714;
BgL_obj1580z00_1713 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1157); 
BgL_val1579z00_1714 = 
BBOOL(BgL_resz00_1169); 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1713))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1714), BUNSPEC); } 
BgL_auxz00_2355 = BgL_resz00_1169; } 
return 
BBOOL(BgL_auxz00_2355);} } } 
}



/* spread-side-effect!-select2727 */
obj_t BGl_spreadzd2sidezd2effectz12zd2select2727zc0zzeffect_spreadz00(obj_t BgL_envz00_2012, obj_t BgL_nodez00_2013)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 117 */
{ 
BgL_selectz00_bglt BgL_nodez00_1139;
{ /* ./Effect/spread.scm 118 */
bool_t BgL_auxz00_2422;
BgL_nodez00_1139 = 
(BgL_selectz00_bglt)(BgL_nodez00_2013); 
{ 
obj_t BgL_clausesz00_1143;bool_t BgL_resz00_1144;
{ /* ./Effect/spread.scm 119 */
obj_t BgL_arg3221z00_1146;bool_t BgL_arg3222z00_1147;
BgL_arg3221z00_1146 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1139))->BgL_clausesz00); 
{ /* ./Effect/spread.scm 120 */
BgL_nodez00_bglt BgL_arg3226z00_1148;
BgL_arg3226z00_1148 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1139))->BgL_testz00); 
{ /* ./Effect/spread.scm 120 */
bool_t BgL_res3408z00_1618;
{ /* ./Effect/spread.scm 120 */
obj_t BgL_method2705z00_1593;
{ /* ./Effect/spread.scm 120 */
BgL_objectz00_bglt BgL_objz00_1594;
BgL_objz00_1594 = 
(BgL_objectz00_bglt)(BgL_arg3226z00_1148); 
{ /* ./Effect/spread.scm 120 */
long BgL_objzd2classzd2numz00_1595;
BgL_objzd2classzd2numz00_1595 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1594); 
{ /* ./Effect/spread.scm 120 */
obj_t BgL_arg2017z00_1596;
{ /* ./Effect/spread.scm 120 */
int BgL_auxz00_2427;
BgL_auxz00_2427 = 
(int)(((long)1)); 
BgL_arg2017z00_1596 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2427); } 
{ /* ./Effect/spread.scm 120 */
int BgL_offsetz00_1599;
BgL_offsetz00_1599 = 
(int)(BgL_objzd2classzd2numz00_1595); 
{ /* ./Effect/spread.scm 120 */
long BgL_offsetz00_1600;
{ /* ./Effect/spread.scm 120 */
long BgL_auxz00_2431;
BgL_auxz00_2431 = 
(long)(BgL_offsetz00_1599); 
BgL_offsetz00_1600 = 
(BgL_auxz00_2431-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 120 */
long BgL_modz00_1601;
{ /* ./Effect/spread.scm 120 */
int BgL_arg2028z00_1602;
BgL_arg2028z00_1602 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 120 */
long BgL_n2z00_1610;
BgL_n2z00_1610 = 
(long)(BgL_arg2028z00_1602); 
BgL_modz00_1601 = 
(BgL_offsetz00_1600/BgL_n2z00_1610); } } 
{ /* ./Effect/spread.scm 120 */
long BgL_restz00_1603;
{ /* ./Effect/spread.scm 120 */
int BgL_arg2024z00_1604;
BgL_arg2024z00_1604 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 120 */
long BgL_n2z00_1613;
BgL_n2z00_1613 = 
(long)(BgL_arg2024z00_1604); 
BgL_restz00_1603 = 
(BgL_offsetz00_1600%BgL_n2z00_1613); } } 
{ /* ./Effect/spread.scm 120 */

{ /* ./Effect/spread.scm 120 */
obj_t BgL_bucketz00_1605;
{ /* ./Effect/spread.scm 120 */
int BgL_kz00_1615;
BgL_kz00_1615 = 
(int)(BgL_modz00_1601); 
BgL_bucketz00_1605 = 
VECTOR_REF(BgL_arg2017z00_1596,BgL_kz00_1615); } 
{ /* ./Effect/spread.scm 120 */
int BgL_kz00_1617;
BgL_kz00_1617 = 
(int)(BgL_restz00_1603); 
BgL_method2705z00_1593 = 
VECTOR_REF(BgL_bucketz00_1605,BgL_kz00_1617); } } } } } } } } } } 
{ /* ./Effect/spread.scm 120 */
obj_t BgL_auxz00_2444;
BgL_auxz00_2444 = 
PROCEDURE_ENTRY(BgL_method2705z00_1593)(BgL_method2705z00_1593, 
(obj_t)(BgL_arg3226z00_1148), BEOA); 
BgL_res3408z00_1618 = 
CBOOL(BgL_auxz00_2444); } } 
BgL_arg3222z00_1147 = BgL_res3408z00_1618; } } 
BgL_clausesz00_1143 = BgL_arg3221z00_1146; 
BgL_resz00_1144 = BgL_arg3222z00_1147; 
BgL_loopz00_1145:
{ /* ./Effect/spread.scm 121 */
bool_t BgL_test3229z00_1149;
BgL_test3229z00_1149 = 
NULLP(BgL_clausesz00_1143); 
if(BgL_test3229z00_1149)
{ /* ./Effect/spread.scm 121 */
{ /* ./Effect/spread.scm 123 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1620;obj_t BgL_val1579z00_1621;
BgL_obj1580z00_1620 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1139); 
BgL_val1579z00_1621 = 
BBOOL(BgL_resz00_1144); 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1620))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1621), BUNSPEC); } 
BgL_auxz00_2422 = BgL_resz00_1144; }  else 
{ /* ./Effect/spread.scm 125 */
obj_t BgL_arg3232z00_1150;bool_t BgL_arg3233z00_1151;
BgL_arg3232z00_1150 = 
CDR(BgL_clausesz00_1143); 
{ /* ./Effect/spread.scm 126 */
bool_t BgL__ortest_2684z00_1152;
{ /* ./Effect/spread.scm 126 */
obj_t BgL_arg3237z00_1153;
{ /* ./Effect/spread.scm 126 */
obj_t BgL_auxz00_2455;
BgL_auxz00_2455 = 
CAR(BgL_clausesz00_1143); 
BgL_arg3237z00_1153 = 
CDR(BgL_auxz00_2455); } 
{ /* ./Effect/spread.scm 126 */
bool_t BgL_res3411z00_1651;
{ /* ./Effect/spread.scm 126 */
BgL_nodez00_bglt BgL_nodez00_1625;
BgL_nodez00_1625 = 
(BgL_nodez00_bglt)(BgL_arg3237z00_1153); 
{ /* ./Effect/spread.scm 126 */
obj_t BgL_method2705z00_1626;
{ /* ./Effect/spread.scm 126 */
BgL_objectz00_bglt BgL_objz00_1627;
BgL_objz00_1627 = 
(BgL_objectz00_bglt)(BgL_nodez00_1625); 
{ /* ./Effect/spread.scm 126 */
long BgL_objzd2classzd2numz00_1628;
BgL_objzd2classzd2numz00_1628 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1627); 
{ /* ./Effect/spread.scm 126 */
obj_t BgL_arg2017z00_1629;
{ /* ./Effect/spread.scm 126 */
int BgL_auxz00_2461;
BgL_auxz00_2461 = 
(int)(((long)1)); 
BgL_arg2017z00_1629 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2461); } 
{ /* ./Effect/spread.scm 126 */
int BgL_offsetz00_1632;
BgL_offsetz00_1632 = 
(int)(BgL_objzd2classzd2numz00_1628); 
{ /* ./Effect/spread.scm 126 */
long BgL_offsetz00_1633;
{ /* ./Effect/spread.scm 126 */
long BgL_auxz00_2465;
BgL_auxz00_2465 = 
(long)(BgL_offsetz00_1632); 
BgL_offsetz00_1633 = 
(BgL_auxz00_2465-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 126 */
long BgL_modz00_1634;
{ /* ./Effect/spread.scm 126 */
int BgL_arg2028z00_1635;
BgL_arg2028z00_1635 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 126 */
long BgL_n2z00_1643;
BgL_n2z00_1643 = 
(long)(BgL_arg2028z00_1635); 
BgL_modz00_1634 = 
(BgL_offsetz00_1633/BgL_n2z00_1643); } } 
{ /* ./Effect/spread.scm 126 */
long BgL_restz00_1636;
{ /* ./Effect/spread.scm 126 */
int BgL_arg2024z00_1637;
BgL_arg2024z00_1637 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 126 */
long BgL_n2z00_1646;
BgL_n2z00_1646 = 
(long)(BgL_arg2024z00_1637); 
BgL_restz00_1636 = 
(BgL_offsetz00_1633%BgL_n2z00_1646); } } 
{ /* ./Effect/spread.scm 126 */

{ /* ./Effect/spread.scm 126 */
obj_t BgL_bucketz00_1638;
{ /* ./Effect/spread.scm 126 */
int BgL_kz00_1648;
BgL_kz00_1648 = 
(int)(BgL_modz00_1634); 
BgL_bucketz00_1638 = 
VECTOR_REF(BgL_arg2017z00_1629,BgL_kz00_1648); } 
{ /* ./Effect/spread.scm 126 */
int BgL_kz00_1650;
BgL_kz00_1650 = 
(int)(BgL_restz00_1636); 
BgL_method2705z00_1626 = 
VECTOR_REF(BgL_bucketz00_1638,BgL_kz00_1650); } } } } } } } } } } 
{ /* ./Effect/spread.scm 126 */
obj_t BgL_auxz00_2478;
BgL_auxz00_2478 = 
PROCEDURE_ENTRY(BgL_method2705z00_1626)(BgL_method2705z00_1626, 
(obj_t)(BgL_nodez00_1625), BEOA); 
BgL_res3411z00_1651 = 
CBOOL(BgL_auxz00_2478); } } } 
BgL__ortest_2684z00_1152 = BgL_res3411z00_1651; } } 
if(BgL__ortest_2684z00_1152)
{ /* ./Effect/spread.scm 126 */
BgL_arg3233z00_1151 = BgL__ortest_2684z00_1152; }  else 
{ /* ./Effect/spread.scm 126 */
BgL_arg3233z00_1151 = BgL_resz00_1144; } } 
{ 
bool_t BgL_resz00_2485;obj_t BgL_clausesz00_2484;
BgL_clausesz00_2484 = BgL_arg3232z00_1150; 
BgL_resz00_2485 = BgL_arg3233z00_1151; 
BgL_resz00_1144 = BgL_resz00_2485; 
BgL_clausesz00_1143 = BgL_clausesz00_2484; 
goto BgL_loopz00_1145;} } } } } 
return 
BBOOL(BgL_auxz00_2422);} } } 
}



/* spread-side-effect!-fail2725 */
obj_t BGl_spreadzd2sidezd2effectz12zd2fail2725zc0zzeffect_spreadz00(obj_t BgL_envz00_2014, obj_t BgL_nodez00_2015)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 107 */
{ 
BgL_failz00_bglt BgL_nodez00_1127;
{ /* ./Effect/spread.scm 108 */
bool_t BgL_auxz00_2488;
BgL_nodez00_1127 = 
(BgL_failz00_bglt)(BgL_nodez00_2015); 
{ /* ./Effect/spread.scm 109 */
bool_t BgL_reszd2proczd2_1131;
{ /* ./Effect/spread.scm 109 */
BgL_nodez00_bglt BgL_arg3211z00_1136;
BgL_arg3211z00_1136 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1127))->BgL_procz00); 
{ /* ./Effect/spread.scm 109 */
bool_t BgL_res3399z00_1533;
{ /* ./Effect/spread.scm 109 */
obj_t BgL_method2705z00_1508;
{ /* ./Effect/spread.scm 109 */
BgL_objectz00_bglt BgL_objz00_1509;
BgL_objz00_1509 = 
(BgL_objectz00_bglt)(BgL_arg3211z00_1136); 
{ /* ./Effect/spread.scm 109 */
long BgL_objzd2classzd2numz00_1510;
BgL_objzd2classzd2numz00_1510 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1509); 
{ /* ./Effect/spread.scm 109 */
obj_t BgL_arg2017z00_1511;
{ /* ./Effect/spread.scm 109 */
int BgL_auxz00_2492;
BgL_auxz00_2492 = 
(int)(((long)1)); 
BgL_arg2017z00_1511 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2492); } 
{ /* ./Effect/spread.scm 109 */
int BgL_offsetz00_1514;
BgL_offsetz00_1514 = 
(int)(BgL_objzd2classzd2numz00_1510); 
{ /* ./Effect/spread.scm 109 */
long BgL_offsetz00_1515;
{ /* ./Effect/spread.scm 109 */
long BgL_auxz00_2496;
BgL_auxz00_2496 = 
(long)(BgL_offsetz00_1514); 
BgL_offsetz00_1515 = 
(BgL_auxz00_2496-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 109 */
long BgL_modz00_1516;
{ /* ./Effect/spread.scm 109 */
int BgL_arg2028z00_1517;
BgL_arg2028z00_1517 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 109 */
long BgL_n2z00_1525;
BgL_n2z00_1525 = 
(long)(BgL_arg2028z00_1517); 
BgL_modz00_1516 = 
(BgL_offsetz00_1515/BgL_n2z00_1525); } } 
{ /* ./Effect/spread.scm 109 */
long BgL_restz00_1518;
{ /* ./Effect/spread.scm 109 */
int BgL_arg2024z00_1519;
BgL_arg2024z00_1519 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 109 */
long BgL_n2z00_1528;
BgL_n2z00_1528 = 
(long)(BgL_arg2024z00_1519); 
BgL_restz00_1518 = 
(BgL_offsetz00_1515%BgL_n2z00_1528); } } 
{ /* ./Effect/spread.scm 109 */

{ /* ./Effect/spread.scm 109 */
obj_t BgL_bucketz00_1520;
{ /* ./Effect/spread.scm 109 */
int BgL_kz00_1530;
BgL_kz00_1530 = 
(int)(BgL_modz00_1516); 
BgL_bucketz00_1520 = 
VECTOR_REF(BgL_arg2017z00_1511,BgL_kz00_1530); } 
{ /* ./Effect/spread.scm 109 */
int BgL_kz00_1532;
BgL_kz00_1532 = 
(int)(BgL_restz00_1518); 
BgL_method2705z00_1508 = 
VECTOR_REF(BgL_bucketz00_1520,BgL_kz00_1532); } } } } } } } } } } 
{ /* ./Effect/spread.scm 109 */
obj_t BgL_auxz00_2509;
BgL_auxz00_2509 = 
PROCEDURE_ENTRY(BgL_method2705z00_1508)(BgL_method2705z00_1508, 
(obj_t)(BgL_arg3211z00_1136), BEOA); 
BgL_res3399z00_1533 = 
CBOOL(BgL_auxz00_2509); } } 
BgL_reszd2proczd2_1131 = BgL_res3399z00_1533; } } 
{ /* ./Effect/spread.scm 109 */
bool_t BgL_reszd2msgzd2_1132;
{ /* ./Effect/spread.scm 110 */
BgL_nodez00_bglt BgL_arg3207z00_1135;
BgL_arg3207z00_1135 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1127))->BgL_msgz00); 
{ /* ./Effect/spread.scm 110 */
bool_t BgL_res3402z00_1561;
{ /* ./Effect/spread.scm 110 */
obj_t BgL_method2705z00_1536;
{ /* ./Effect/spread.scm 110 */
BgL_objectz00_bglt BgL_objz00_1537;
BgL_objz00_1537 = 
(BgL_objectz00_bglt)(BgL_arg3207z00_1135); 
{ /* ./Effect/spread.scm 110 */
long BgL_objzd2classzd2numz00_1538;
BgL_objzd2classzd2numz00_1538 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1537); 
{ /* ./Effect/spread.scm 110 */
obj_t BgL_arg2017z00_1539;
{ /* ./Effect/spread.scm 110 */
int BgL_auxz00_2517;
BgL_auxz00_2517 = 
(int)(((long)1)); 
BgL_arg2017z00_1539 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2517); } 
{ /* ./Effect/spread.scm 110 */
int BgL_offsetz00_1542;
BgL_offsetz00_1542 = 
(int)(BgL_objzd2classzd2numz00_1538); 
{ /* ./Effect/spread.scm 110 */
long BgL_offsetz00_1543;
{ /* ./Effect/spread.scm 110 */
long BgL_auxz00_2521;
BgL_auxz00_2521 = 
(long)(BgL_offsetz00_1542); 
BgL_offsetz00_1543 = 
(BgL_auxz00_2521-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 110 */
long BgL_modz00_1544;
{ /* ./Effect/spread.scm 110 */
int BgL_arg2028z00_1545;
BgL_arg2028z00_1545 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 110 */
long BgL_n2z00_1553;
BgL_n2z00_1553 = 
(long)(BgL_arg2028z00_1545); 
BgL_modz00_1544 = 
(BgL_offsetz00_1543/BgL_n2z00_1553); } } 
{ /* ./Effect/spread.scm 110 */
long BgL_restz00_1546;
{ /* ./Effect/spread.scm 110 */
int BgL_arg2024z00_1547;
BgL_arg2024z00_1547 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 110 */
long BgL_n2z00_1556;
BgL_n2z00_1556 = 
(long)(BgL_arg2024z00_1547); 
BgL_restz00_1546 = 
(BgL_offsetz00_1543%BgL_n2z00_1556); } } 
{ /* ./Effect/spread.scm 110 */

{ /* ./Effect/spread.scm 110 */
obj_t BgL_bucketz00_1548;
{ /* ./Effect/spread.scm 110 */
int BgL_kz00_1558;
BgL_kz00_1558 = 
(int)(BgL_modz00_1544); 
BgL_bucketz00_1548 = 
VECTOR_REF(BgL_arg2017z00_1539,BgL_kz00_1558); } 
{ /* ./Effect/spread.scm 110 */
int BgL_kz00_1560;
BgL_kz00_1560 = 
(int)(BgL_restz00_1546); 
BgL_method2705z00_1536 = 
VECTOR_REF(BgL_bucketz00_1548,BgL_kz00_1560); } } } } } } } } } } 
{ /* ./Effect/spread.scm 110 */
obj_t BgL_auxz00_2534;
BgL_auxz00_2534 = 
PROCEDURE_ENTRY(BgL_method2705z00_1536)(BgL_method2705z00_1536, 
(obj_t)(BgL_arg3207z00_1135), BEOA); 
BgL_res3402z00_1561 = 
CBOOL(BgL_auxz00_2534); } } 
BgL_reszd2msgzd2_1132 = BgL_res3402z00_1561; } } 
{ /* ./Effect/spread.scm 110 */
bool_t BgL_reszd2objzd2_1133;
{ /* ./Effect/spread.scm 111 */
BgL_nodez00_bglt BgL_arg3203z00_1134;
BgL_arg3203z00_1134 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1127))->BgL_objz00); 
{ /* ./Effect/spread.scm 111 */
bool_t BgL_res3405z00_1589;
{ /* ./Effect/spread.scm 111 */
obj_t BgL_method2705z00_1564;
{ /* ./Effect/spread.scm 111 */
BgL_objectz00_bglt BgL_objz00_1565;
BgL_objz00_1565 = 
(BgL_objectz00_bglt)(BgL_arg3203z00_1134); 
{ /* ./Effect/spread.scm 111 */
long BgL_objzd2classzd2numz00_1566;
BgL_objzd2classzd2numz00_1566 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1565); 
{ /* ./Effect/spread.scm 111 */
obj_t BgL_arg2017z00_1567;
{ /* ./Effect/spread.scm 111 */
int BgL_auxz00_2542;
BgL_auxz00_2542 = 
(int)(((long)1)); 
BgL_arg2017z00_1567 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2542); } 
{ /* ./Effect/spread.scm 111 */
int BgL_offsetz00_1570;
BgL_offsetz00_1570 = 
(int)(BgL_objzd2classzd2numz00_1566); 
{ /* ./Effect/spread.scm 111 */
long BgL_offsetz00_1571;
{ /* ./Effect/spread.scm 111 */
long BgL_auxz00_2546;
BgL_auxz00_2546 = 
(long)(BgL_offsetz00_1570); 
BgL_offsetz00_1571 = 
(BgL_auxz00_2546-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 111 */
long BgL_modz00_1572;
{ /* ./Effect/spread.scm 111 */
int BgL_arg2028z00_1573;
BgL_arg2028z00_1573 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 111 */
long BgL_n2z00_1581;
BgL_n2z00_1581 = 
(long)(BgL_arg2028z00_1573); 
BgL_modz00_1572 = 
(BgL_offsetz00_1571/BgL_n2z00_1581); } } 
{ /* ./Effect/spread.scm 111 */
long BgL_restz00_1574;
{ /* ./Effect/spread.scm 111 */
int BgL_arg2024z00_1575;
BgL_arg2024z00_1575 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 111 */
long BgL_n2z00_1584;
BgL_n2z00_1584 = 
(long)(BgL_arg2024z00_1575); 
BgL_restz00_1574 = 
(BgL_offsetz00_1571%BgL_n2z00_1584); } } 
{ /* ./Effect/spread.scm 111 */

{ /* ./Effect/spread.scm 111 */
obj_t BgL_bucketz00_1576;
{ /* ./Effect/spread.scm 111 */
int BgL_kz00_1586;
BgL_kz00_1586 = 
(int)(BgL_modz00_1572); 
BgL_bucketz00_1576 = 
VECTOR_REF(BgL_arg2017z00_1567,BgL_kz00_1586); } 
{ /* ./Effect/spread.scm 111 */
int BgL_kz00_1588;
BgL_kz00_1588 = 
(int)(BgL_restz00_1574); 
BgL_method2705z00_1564 = 
VECTOR_REF(BgL_bucketz00_1576,BgL_kz00_1588); } } } } } } } } } } 
{ /* ./Effect/spread.scm 111 */
obj_t BgL_auxz00_2559;
BgL_auxz00_2559 = 
PROCEDURE_ENTRY(BgL_method2705z00_1564)(BgL_method2705z00_1564, 
(obj_t)(BgL_arg3203z00_1134), BEOA); 
BgL_res3405z00_1589 = 
CBOOL(BgL_auxz00_2559); } } 
BgL_reszd2objzd2_1133 = BgL_res3405z00_1589; } } 
{ /* ./Effect/spread.scm 111 */

BgL_auxz00_2488 = ((bool_t)1); } } } } 
return 
BBOOL(BgL_auxz00_2488);} } } 
}



/* spread-side-effect!-conditional2723 */
obj_t BGl_spreadzd2sidezd2effectz12zd2conditional2723zc0zzeffect_spreadz00(obj_t BgL_envz00_2016, obj_t BgL_nodez00_2017)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 95 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1112;
{ /* ./Effect/spread.scm 96 */
bool_t BgL_auxz00_2566;
BgL_nodez00_1112 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2017); 
{ /* ./Effect/spread.scm 97 */
bool_t BgL_reszd2testzd2_1116;
{ /* ./Effect/spread.scm 97 */
BgL_nodez00_bglt BgL_arg3193z00_1124;
BgL_arg3193z00_1124 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1112))->BgL_testz00); 
{ /* ./Effect/spread.scm 97 */
bool_t BgL_res3390z00_1447;
{ /* ./Effect/spread.scm 97 */
obj_t BgL_method2705z00_1422;
{ /* ./Effect/spread.scm 97 */
BgL_objectz00_bglt BgL_objz00_1423;
BgL_objz00_1423 = 
(BgL_objectz00_bglt)(BgL_arg3193z00_1124); 
{ /* ./Effect/spread.scm 97 */
long BgL_objzd2classzd2numz00_1424;
BgL_objzd2classzd2numz00_1424 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1423); 
{ /* ./Effect/spread.scm 97 */
obj_t BgL_arg2017z00_1425;
{ /* ./Effect/spread.scm 97 */
int BgL_auxz00_2570;
BgL_auxz00_2570 = 
(int)(((long)1)); 
BgL_arg2017z00_1425 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2570); } 
{ /* ./Effect/spread.scm 97 */
int BgL_offsetz00_1428;
BgL_offsetz00_1428 = 
(int)(BgL_objzd2classzd2numz00_1424); 
{ /* ./Effect/spread.scm 97 */
long BgL_offsetz00_1429;
{ /* ./Effect/spread.scm 97 */
long BgL_auxz00_2574;
BgL_auxz00_2574 = 
(long)(BgL_offsetz00_1428); 
BgL_offsetz00_1429 = 
(BgL_auxz00_2574-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 97 */
long BgL_modz00_1430;
{ /* ./Effect/spread.scm 97 */
int BgL_arg2028z00_1431;
BgL_arg2028z00_1431 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 97 */
long BgL_n2z00_1439;
BgL_n2z00_1439 = 
(long)(BgL_arg2028z00_1431); 
BgL_modz00_1430 = 
(BgL_offsetz00_1429/BgL_n2z00_1439); } } 
{ /* ./Effect/spread.scm 97 */
long BgL_restz00_1432;
{ /* ./Effect/spread.scm 97 */
int BgL_arg2024z00_1433;
BgL_arg2024z00_1433 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 97 */
long BgL_n2z00_1442;
BgL_n2z00_1442 = 
(long)(BgL_arg2024z00_1433); 
BgL_restz00_1432 = 
(BgL_offsetz00_1429%BgL_n2z00_1442); } } 
{ /* ./Effect/spread.scm 97 */

{ /* ./Effect/spread.scm 97 */
obj_t BgL_bucketz00_1434;
{ /* ./Effect/spread.scm 97 */
int BgL_kz00_1444;
BgL_kz00_1444 = 
(int)(BgL_modz00_1430); 
BgL_bucketz00_1434 = 
VECTOR_REF(BgL_arg2017z00_1425,BgL_kz00_1444); } 
{ /* ./Effect/spread.scm 97 */
int BgL_kz00_1446;
BgL_kz00_1446 = 
(int)(BgL_restz00_1432); 
BgL_method2705z00_1422 = 
VECTOR_REF(BgL_bucketz00_1434,BgL_kz00_1446); } } } } } } } } } } 
{ /* ./Effect/spread.scm 97 */
obj_t BgL_auxz00_2587;
BgL_auxz00_2587 = 
PROCEDURE_ENTRY(BgL_method2705z00_1422)(BgL_method2705z00_1422, 
(obj_t)(BgL_arg3193z00_1124), BEOA); 
BgL_res3390z00_1447 = 
CBOOL(BgL_auxz00_2587); } } 
BgL_reszd2testzd2_1116 = BgL_res3390z00_1447; } } 
{ /* ./Effect/spread.scm 97 */
bool_t BgL_reszd2truezd2_1117;
{ /* ./Effect/spread.scm 98 */
BgL_nodez00_bglt BgL_arg3189z00_1123;
BgL_arg3189z00_1123 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1112))->BgL_truez00); 
{ /* ./Effect/spread.scm 98 */
bool_t BgL_res3393z00_1475;
{ /* ./Effect/spread.scm 98 */
obj_t BgL_method2705z00_1450;
{ /* ./Effect/spread.scm 98 */
BgL_objectz00_bglt BgL_objz00_1451;
BgL_objz00_1451 = 
(BgL_objectz00_bglt)(BgL_arg3189z00_1123); 
{ /* ./Effect/spread.scm 98 */
long BgL_objzd2classzd2numz00_1452;
BgL_objzd2classzd2numz00_1452 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1451); 
{ /* ./Effect/spread.scm 98 */
obj_t BgL_arg2017z00_1453;
{ /* ./Effect/spread.scm 98 */
int BgL_auxz00_2595;
BgL_auxz00_2595 = 
(int)(((long)1)); 
BgL_arg2017z00_1453 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2595); } 
{ /* ./Effect/spread.scm 98 */
int BgL_offsetz00_1456;
BgL_offsetz00_1456 = 
(int)(BgL_objzd2classzd2numz00_1452); 
{ /* ./Effect/spread.scm 98 */
long BgL_offsetz00_1457;
{ /* ./Effect/spread.scm 98 */
long BgL_auxz00_2599;
BgL_auxz00_2599 = 
(long)(BgL_offsetz00_1456); 
BgL_offsetz00_1457 = 
(BgL_auxz00_2599-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 98 */
long BgL_modz00_1458;
{ /* ./Effect/spread.scm 98 */
int BgL_arg2028z00_1459;
BgL_arg2028z00_1459 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 98 */
long BgL_n2z00_1467;
BgL_n2z00_1467 = 
(long)(BgL_arg2028z00_1459); 
BgL_modz00_1458 = 
(BgL_offsetz00_1457/BgL_n2z00_1467); } } 
{ /* ./Effect/spread.scm 98 */
long BgL_restz00_1460;
{ /* ./Effect/spread.scm 98 */
int BgL_arg2024z00_1461;
BgL_arg2024z00_1461 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 98 */
long BgL_n2z00_1470;
BgL_n2z00_1470 = 
(long)(BgL_arg2024z00_1461); 
BgL_restz00_1460 = 
(BgL_offsetz00_1457%BgL_n2z00_1470); } } 
{ /* ./Effect/spread.scm 98 */

{ /* ./Effect/spread.scm 98 */
obj_t BgL_bucketz00_1462;
{ /* ./Effect/spread.scm 98 */
int BgL_kz00_1472;
BgL_kz00_1472 = 
(int)(BgL_modz00_1458); 
BgL_bucketz00_1462 = 
VECTOR_REF(BgL_arg2017z00_1453,BgL_kz00_1472); } 
{ /* ./Effect/spread.scm 98 */
int BgL_kz00_1474;
BgL_kz00_1474 = 
(int)(BgL_restz00_1460); 
BgL_method2705z00_1450 = 
VECTOR_REF(BgL_bucketz00_1462,BgL_kz00_1474); } } } } } } } } } } 
{ /* ./Effect/spread.scm 98 */
obj_t BgL_auxz00_2612;
BgL_auxz00_2612 = 
PROCEDURE_ENTRY(BgL_method2705z00_1450)(BgL_method2705z00_1450, 
(obj_t)(BgL_arg3189z00_1123), BEOA); 
BgL_res3393z00_1475 = 
CBOOL(BgL_auxz00_2612); } } 
BgL_reszd2truezd2_1117 = BgL_res3393z00_1475; } } 
{ /* ./Effect/spread.scm 98 */
bool_t BgL_reszd2falsezd2_1118;
{ /* ./Effect/spread.scm 99 */
BgL_nodez00_bglt BgL_arg3185z00_1122;
BgL_arg3185z00_1122 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1112))->BgL_falsez00); 
{ /* ./Effect/spread.scm 99 */
bool_t BgL_res3396z00_1503;
{ /* ./Effect/spread.scm 99 */
obj_t BgL_method2705z00_1478;
{ /* ./Effect/spread.scm 99 */
BgL_objectz00_bglt BgL_objz00_1479;
BgL_objz00_1479 = 
(BgL_objectz00_bglt)(BgL_arg3185z00_1122); 
{ /* ./Effect/spread.scm 99 */
long BgL_objzd2classzd2numz00_1480;
BgL_objzd2classzd2numz00_1480 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1479); 
{ /* ./Effect/spread.scm 99 */
obj_t BgL_arg2017z00_1481;
{ /* ./Effect/spread.scm 99 */
int BgL_auxz00_2620;
BgL_auxz00_2620 = 
(int)(((long)1)); 
BgL_arg2017z00_1481 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2620); } 
{ /* ./Effect/spread.scm 99 */
int BgL_offsetz00_1484;
BgL_offsetz00_1484 = 
(int)(BgL_objzd2classzd2numz00_1480); 
{ /* ./Effect/spread.scm 99 */
long BgL_offsetz00_1485;
{ /* ./Effect/spread.scm 99 */
long BgL_auxz00_2624;
BgL_auxz00_2624 = 
(long)(BgL_offsetz00_1484); 
BgL_offsetz00_1485 = 
(BgL_auxz00_2624-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 99 */
long BgL_modz00_1486;
{ /* ./Effect/spread.scm 99 */
int BgL_arg2028z00_1487;
BgL_arg2028z00_1487 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 99 */
long BgL_n2z00_1495;
BgL_n2z00_1495 = 
(long)(BgL_arg2028z00_1487); 
BgL_modz00_1486 = 
(BgL_offsetz00_1485/BgL_n2z00_1495); } } 
{ /* ./Effect/spread.scm 99 */
long BgL_restz00_1488;
{ /* ./Effect/spread.scm 99 */
int BgL_arg2024z00_1489;
BgL_arg2024z00_1489 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 99 */
long BgL_n2z00_1498;
BgL_n2z00_1498 = 
(long)(BgL_arg2024z00_1489); 
BgL_restz00_1488 = 
(BgL_offsetz00_1485%BgL_n2z00_1498); } } 
{ /* ./Effect/spread.scm 99 */

{ /* ./Effect/spread.scm 99 */
obj_t BgL_bucketz00_1490;
{ /* ./Effect/spread.scm 99 */
int BgL_kz00_1500;
BgL_kz00_1500 = 
(int)(BgL_modz00_1486); 
BgL_bucketz00_1490 = 
VECTOR_REF(BgL_arg2017z00_1481,BgL_kz00_1500); } 
{ /* ./Effect/spread.scm 99 */
int BgL_kz00_1502;
BgL_kz00_1502 = 
(int)(BgL_restz00_1488); 
BgL_method2705z00_1478 = 
VECTOR_REF(BgL_bucketz00_1490,BgL_kz00_1502); } } } } } } } } } } 
{ /* ./Effect/spread.scm 99 */
obj_t BgL_auxz00_2637;
BgL_auxz00_2637 = 
PROCEDURE_ENTRY(BgL_method2705z00_1478)(BgL_method2705z00_1478, 
(obj_t)(BgL_arg3185z00_1122), BEOA); 
BgL_res3396z00_1503 = 
CBOOL(BgL_auxz00_2637); } } 
BgL_reszd2falsezd2_1118 = BgL_res3396z00_1503; } } 
{ /* ./Effect/spread.scm 99 */
bool_t BgL_resz00_1119;
if(BgL_reszd2testzd2_1116)
{ /* ./Effect/spread.scm 100 */
BgL_resz00_1119 = BgL_reszd2testzd2_1116; }  else 
{ /* ./Effect/spread.scm 100 */
if(BgL_reszd2truezd2_1117)
{ /* ./Effect/spread.scm 100 */
BgL_resz00_1119 = BgL_reszd2truezd2_1117; }  else 
{ /* ./Effect/spread.scm 100 */
BgL_resz00_1119 = BgL_reszd2falsezd2_1118; } } 
{ /* ./Effect/spread.scm 100 */

{ /* ./Effect/spread.scm 101 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1504;obj_t BgL_val1579z00_1505;
BgL_obj1580z00_1504 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1112); 
BgL_val1579z00_1505 = 
BBOOL(BgL_resz00_1119); 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1504))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1505), BUNSPEC); } 
BgL_auxz00_2566 = BgL_resz00_1119; } } } } } 
return 
BBOOL(BgL_auxz00_2566);} } } 
}



/* spread-side-effect!-setq2721 */
obj_t BGl_spreadzd2sidezd2effectz12zd2setq2721zc0zzeffect_spreadz00(obj_t BgL_envz00_2018, obj_t BgL_nodez00_2019)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 87 */
{ 
BgL_setqz00_bglt BgL_nodez00_1105;
{ /* ./Effect/spread.scm 88 */
bool_t BgL_auxz00_2649;
BgL_nodez00_1105 = 
(BgL_setqz00_bglt)(BgL_nodez00_2019); 
{ /* ./Effect/spread.scm 88 */
BgL_nodez00_bglt BgL_arg3174z00_1391;
BgL_arg3174z00_1391 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1105))->BgL_valuez00); 
{ /* ./Effect/spread.scm 88 */
bool_t BgL_res3387z00_1419;
{ /* ./Effect/spread.scm 88 */
obj_t BgL_method2705z00_1394;
{ /* ./Effect/spread.scm 88 */
BgL_objectz00_bglt BgL_objz00_1395;
BgL_objz00_1395 = 
(BgL_objectz00_bglt)(BgL_arg3174z00_1391); 
{ /* ./Effect/spread.scm 88 */
long BgL_objzd2classzd2numz00_1396;
BgL_objzd2classzd2numz00_1396 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1395); 
{ /* ./Effect/spread.scm 88 */
obj_t BgL_arg2017z00_1397;
{ /* ./Effect/spread.scm 88 */
int BgL_auxz00_2653;
BgL_auxz00_2653 = 
(int)(((long)1)); 
BgL_arg2017z00_1397 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2653); } 
{ /* ./Effect/spread.scm 88 */
int BgL_offsetz00_1400;
BgL_offsetz00_1400 = 
(int)(BgL_objzd2classzd2numz00_1396); 
{ /* ./Effect/spread.scm 88 */
long BgL_offsetz00_1401;
{ /* ./Effect/spread.scm 88 */
long BgL_auxz00_2657;
BgL_auxz00_2657 = 
(long)(BgL_offsetz00_1400); 
BgL_offsetz00_1401 = 
(BgL_auxz00_2657-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 88 */
long BgL_modz00_1402;
{ /* ./Effect/spread.scm 88 */
int BgL_arg2028z00_1403;
BgL_arg2028z00_1403 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 88 */
long BgL_n2z00_1411;
BgL_n2z00_1411 = 
(long)(BgL_arg2028z00_1403); 
BgL_modz00_1402 = 
(BgL_offsetz00_1401/BgL_n2z00_1411); } } 
{ /* ./Effect/spread.scm 88 */
long BgL_restz00_1404;
{ /* ./Effect/spread.scm 88 */
int BgL_arg2024z00_1405;
BgL_arg2024z00_1405 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 88 */
long BgL_n2z00_1414;
BgL_n2z00_1414 = 
(long)(BgL_arg2024z00_1405); 
BgL_restz00_1404 = 
(BgL_offsetz00_1401%BgL_n2z00_1414); } } 
{ /* ./Effect/spread.scm 88 */

{ /* ./Effect/spread.scm 88 */
obj_t BgL_bucketz00_1406;
{ /* ./Effect/spread.scm 88 */
int BgL_kz00_1416;
BgL_kz00_1416 = 
(int)(BgL_modz00_1402); 
BgL_bucketz00_1406 = 
VECTOR_REF(BgL_arg2017z00_1397,BgL_kz00_1416); } 
{ /* ./Effect/spread.scm 88 */
int BgL_kz00_1418;
BgL_kz00_1418 = 
(int)(BgL_restz00_1404); 
BgL_method2705z00_1394 = 
VECTOR_REF(BgL_bucketz00_1406,BgL_kz00_1418); } } } } } } } } } } 
{ /* ./Effect/spread.scm 88 */
obj_t BgL_auxz00_2670;
BgL_auxz00_2670 = 
PROCEDURE_ENTRY(BgL_method2705z00_1394)(BgL_method2705z00_1394, 
(obj_t)(BgL_arg3174z00_1391), BEOA); 
BgL_res3387z00_1419 = 
CBOOL(BgL_auxz00_2670); } } BgL_res3387z00_1419; } } 
BgL_auxz00_2649 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_2649);} } } 
}



/* spread-side-effect!-cast2719 */
obj_t BGl_spreadzd2sidezd2effectz12zd2cast2719zc0zzeffect_spreadz00(obj_t BgL_envz00_2020, obj_t BgL_nodez00_2021)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 80 */
{ 
BgL_castz00_bglt BgL_nodez00_1098;
{ /* ./Effect/spread.scm 81 */
bool_t BgL_auxz00_2677;
BgL_nodez00_1098 = 
(BgL_castz00_bglt)(BgL_nodez00_2021); 
{ /* ./Effect/spread.scm 81 */
BgL_nodez00_bglt BgL_arg3164z00_1361;
BgL_arg3164z00_1361 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1098))->BgL_argz00); 
{ /* ./Effect/spread.scm 81 */
bool_t BgL_res3384z00_1389;
{ /* ./Effect/spread.scm 81 */
obj_t BgL_method2705z00_1364;
{ /* ./Effect/spread.scm 81 */
BgL_objectz00_bglt BgL_objz00_1365;
BgL_objz00_1365 = 
(BgL_objectz00_bglt)(BgL_arg3164z00_1361); 
{ /* ./Effect/spread.scm 81 */
long BgL_objzd2classzd2numz00_1366;
BgL_objzd2classzd2numz00_1366 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1365); 
{ /* ./Effect/spread.scm 81 */
obj_t BgL_arg2017z00_1367;
{ /* ./Effect/spread.scm 81 */
int BgL_auxz00_2681;
BgL_auxz00_2681 = 
(int)(((long)1)); 
BgL_arg2017z00_1367 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2681); } 
{ /* ./Effect/spread.scm 81 */
int BgL_offsetz00_1370;
BgL_offsetz00_1370 = 
(int)(BgL_objzd2classzd2numz00_1366); 
{ /* ./Effect/spread.scm 81 */
long BgL_offsetz00_1371;
{ /* ./Effect/spread.scm 81 */
long BgL_auxz00_2685;
BgL_auxz00_2685 = 
(long)(BgL_offsetz00_1370); 
BgL_offsetz00_1371 = 
(BgL_auxz00_2685-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 81 */
long BgL_modz00_1372;
{ /* ./Effect/spread.scm 81 */
int BgL_arg2028z00_1373;
BgL_arg2028z00_1373 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 81 */
long BgL_n2z00_1381;
BgL_n2z00_1381 = 
(long)(BgL_arg2028z00_1373); 
BgL_modz00_1372 = 
(BgL_offsetz00_1371/BgL_n2z00_1381); } } 
{ /* ./Effect/spread.scm 81 */
long BgL_restz00_1374;
{ /* ./Effect/spread.scm 81 */
int BgL_arg2024z00_1375;
BgL_arg2024z00_1375 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 81 */
long BgL_n2z00_1384;
BgL_n2z00_1384 = 
(long)(BgL_arg2024z00_1375); 
BgL_restz00_1374 = 
(BgL_offsetz00_1371%BgL_n2z00_1384); } } 
{ /* ./Effect/spread.scm 81 */

{ /* ./Effect/spread.scm 81 */
obj_t BgL_bucketz00_1376;
{ /* ./Effect/spread.scm 81 */
int BgL_kz00_1386;
BgL_kz00_1386 = 
(int)(BgL_modz00_1372); 
BgL_bucketz00_1376 = 
VECTOR_REF(BgL_arg2017z00_1367,BgL_kz00_1386); } 
{ /* ./Effect/spread.scm 81 */
int BgL_kz00_1388;
BgL_kz00_1388 = 
(int)(BgL_restz00_1374); 
BgL_method2705z00_1364 = 
VECTOR_REF(BgL_bucketz00_1376,BgL_kz00_1388); } } } } } } } } } } 
{ /* ./Effect/spread.scm 81 */
obj_t BgL_auxz00_2698;
BgL_auxz00_2698 = 
PROCEDURE_ENTRY(BgL_method2705z00_1364)(BgL_method2705z00_1364, 
(obj_t)(BgL_arg3164z00_1361), BEOA); 
BgL_res3384z00_1389 = 
CBOOL(BgL_auxz00_2698); } } 
BgL_auxz00_2677 = BgL_res3384z00_1389; } } 
return 
BBOOL(BgL_auxz00_2677);} } } 
}



/* spread-side-effect!-extern2717 */
obj_t BGl_spreadzd2sidezd2effectz12zd2extern2717zc0zzeffect_spreadz00(obj_t BgL_envz00_2022, obj_t BgL_nodez00_2023)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 71 */
{ 
BgL_externz00_bglt BgL_nodez00_1089;
BgL_nodez00_1089 = 
(BgL_externz00_bglt)(BgL_nodez00_2023); 
{ /* ./Effect/spread.scm 73 */
obj_t BgL_resz00_1093;
{ /* ./Effect/spread.scm 73 */
bool_t BgL__ortest_2671z00_1094;
{ /* ./Effect/spread.scm 73 */
obj_t BgL_arg3154z00_1095;
BgL_arg3154z00_1095 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1089))->BgL_exprza2za2); 
BgL__ortest_2671z00_1094 = 
BGl_spreadzd2sidezd2effectza2z12zb0zzeffect_spreadz00(BgL_arg3154z00_1095); } 
if(BgL__ortest_2671z00_1094)
{ /* ./Effect/spread.scm 73 */
BgL_resz00_1093 = 
BBOOL(BgL__ortest_2671z00_1094); }  else 
{ /* ./Effect/spread.scm 73 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_1357;
BgL_obj1578z00_1357 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1089); 
BgL_resz00_1093 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_1357))->BgL_sidezd2effectzf3z21); } } 
{ /* ./Effect/spread.scm 74 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1358;obj_t BgL_val1579z00_1359;
BgL_obj1580z00_1358 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1089); 
BgL_val1579z00_1359 = BgL_resz00_1093; 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1358))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1359), BUNSPEC); } 
return BgL_resz00_1093;} } } 
}



/* spread-side-effect!-funcall2715 */
obj_t BGl_spreadzd2sidezd2effectz12zd2funcall2715zc0zzeffect_spreadz00(obj_t BgL_envz00_2024, obj_t BgL_nodez00_2025)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 62 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1081;
{ /* ./Effect/spread.scm 63 */
bool_t BgL_auxz00_2714;
BgL_nodez00_1081 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2025); 
{ /* ./Effect/spread.scm 64 */
BgL_nodez00_bglt BgL_arg3138z00_1085;
BgL_arg3138z00_1085 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1081))->BgL_funz00); 
{ /* ./Effect/spread.scm 64 */
bool_t BgL_res3381z00_1354;
{ /* ./Effect/spread.scm 64 */
obj_t BgL_method2705z00_1329;
{ /* ./Effect/spread.scm 64 */
BgL_objectz00_bglt BgL_objz00_1330;
BgL_objz00_1330 = 
(BgL_objectz00_bglt)(BgL_arg3138z00_1085); 
{ /* ./Effect/spread.scm 64 */
long BgL_objzd2classzd2numz00_1331;
BgL_objzd2classzd2numz00_1331 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1330); 
{ /* ./Effect/spread.scm 64 */
obj_t BgL_arg2017z00_1332;
{ /* ./Effect/spread.scm 64 */
int BgL_auxz00_2718;
BgL_auxz00_2718 = 
(int)(((long)1)); 
BgL_arg2017z00_1332 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2718); } 
{ /* ./Effect/spread.scm 64 */
int BgL_offsetz00_1335;
BgL_offsetz00_1335 = 
(int)(BgL_objzd2classzd2numz00_1331); 
{ /* ./Effect/spread.scm 64 */
long BgL_offsetz00_1336;
{ /* ./Effect/spread.scm 64 */
long BgL_auxz00_2722;
BgL_auxz00_2722 = 
(long)(BgL_offsetz00_1335); 
BgL_offsetz00_1336 = 
(BgL_auxz00_2722-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 64 */
long BgL_modz00_1337;
{ /* ./Effect/spread.scm 64 */
int BgL_arg2028z00_1338;
BgL_arg2028z00_1338 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 64 */
long BgL_n2z00_1346;
BgL_n2z00_1346 = 
(long)(BgL_arg2028z00_1338); 
BgL_modz00_1337 = 
(BgL_offsetz00_1336/BgL_n2z00_1346); } } 
{ /* ./Effect/spread.scm 64 */
long BgL_restz00_1339;
{ /* ./Effect/spread.scm 64 */
int BgL_arg2024z00_1340;
BgL_arg2024z00_1340 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 64 */
long BgL_n2z00_1349;
BgL_n2z00_1349 = 
(long)(BgL_arg2024z00_1340); 
BgL_restz00_1339 = 
(BgL_offsetz00_1336%BgL_n2z00_1349); } } 
{ /* ./Effect/spread.scm 64 */

{ /* ./Effect/spread.scm 64 */
obj_t BgL_bucketz00_1341;
{ /* ./Effect/spread.scm 64 */
int BgL_kz00_1351;
BgL_kz00_1351 = 
(int)(BgL_modz00_1337); 
BgL_bucketz00_1341 = 
VECTOR_REF(BgL_arg2017z00_1332,BgL_kz00_1351); } 
{ /* ./Effect/spread.scm 64 */
int BgL_kz00_1353;
BgL_kz00_1353 = 
(int)(BgL_restz00_1339); 
BgL_method2705z00_1329 = 
VECTOR_REF(BgL_bucketz00_1341,BgL_kz00_1353); } } } } } } } } } } 
{ /* ./Effect/spread.scm 64 */
obj_t BgL_auxz00_2735;
BgL_auxz00_2735 = 
PROCEDURE_ENTRY(BgL_method2705z00_1329)(BgL_method2705z00_1329, 
(obj_t)(BgL_arg3138z00_1085), BEOA); 
BgL_res3381z00_1354 = 
CBOOL(BgL_auxz00_2735); } } BgL_res3381z00_1354; } } 
{ /* ./Effect/spread.scm 65 */
obj_t BgL_arg3142z00_1086;
BgL_arg3142z00_1086 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1081))->BgL_argsz00); 
BGl_spreadzd2sidezd2effectza2z12zb0zzeffect_spreadz00(BgL_arg3142z00_1086); } 
BgL_auxz00_2714 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_2714);} } } 
}



/* spread-side-effect!-app-ly2713 */
obj_t BGl_spreadzd2sidezd2effectz12zd2appzd2ly2713z12zzeffect_spreadz00(obj_t BgL_envz00_2026, obj_t BgL_nodez00_2027)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 53 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1073;
{ /* ./Effect/spread.scm 54 */
bool_t BgL_auxz00_2744;
BgL_nodez00_1073 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2027); 
{ /* ./Effect/spread.scm 55 */
BgL_nodez00_bglt BgL_arg3123z00_1077;
BgL_arg3123z00_1077 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1073))->BgL_funz00); 
{ /* ./Effect/spread.scm 55 */
bool_t BgL_res3375z00_1298;
{ /* ./Effect/spread.scm 55 */
obj_t BgL_method2705z00_1273;
{ /* ./Effect/spread.scm 55 */
BgL_objectz00_bglt BgL_objz00_1274;
BgL_objz00_1274 = 
(BgL_objectz00_bglt)(BgL_arg3123z00_1077); 
{ /* ./Effect/spread.scm 55 */
long BgL_objzd2classzd2numz00_1275;
BgL_objzd2classzd2numz00_1275 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1274); 
{ /* ./Effect/spread.scm 55 */
obj_t BgL_arg2017z00_1276;
{ /* ./Effect/spread.scm 55 */
int BgL_auxz00_2748;
BgL_auxz00_2748 = 
(int)(((long)1)); 
BgL_arg2017z00_1276 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2748); } 
{ /* ./Effect/spread.scm 55 */
int BgL_offsetz00_1279;
BgL_offsetz00_1279 = 
(int)(BgL_objzd2classzd2numz00_1275); 
{ /* ./Effect/spread.scm 55 */
long BgL_offsetz00_1280;
{ /* ./Effect/spread.scm 55 */
long BgL_auxz00_2752;
BgL_auxz00_2752 = 
(long)(BgL_offsetz00_1279); 
BgL_offsetz00_1280 = 
(BgL_auxz00_2752-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 55 */
long BgL_modz00_1281;
{ /* ./Effect/spread.scm 55 */
int BgL_arg2028z00_1282;
BgL_arg2028z00_1282 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 55 */
long BgL_n2z00_1290;
BgL_n2z00_1290 = 
(long)(BgL_arg2028z00_1282); 
BgL_modz00_1281 = 
(BgL_offsetz00_1280/BgL_n2z00_1290); } } 
{ /* ./Effect/spread.scm 55 */
long BgL_restz00_1283;
{ /* ./Effect/spread.scm 55 */
int BgL_arg2024z00_1284;
BgL_arg2024z00_1284 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 55 */
long BgL_n2z00_1293;
BgL_n2z00_1293 = 
(long)(BgL_arg2024z00_1284); 
BgL_restz00_1283 = 
(BgL_offsetz00_1280%BgL_n2z00_1293); } } 
{ /* ./Effect/spread.scm 55 */

{ /* ./Effect/spread.scm 55 */
obj_t BgL_bucketz00_1285;
{ /* ./Effect/spread.scm 55 */
int BgL_kz00_1295;
BgL_kz00_1295 = 
(int)(BgL_modz00_1281); 
BgL_bucketz00_1285 = 
VECTOR_REF(BgL_arg2017z00_1276,BgL_kz00_1295); } 
{ /* ./Effect/spread.scm 55 */
int BgL_kz00_1297;
BgL_kz00_1297 = 
(int)(BgL_restz00_1283); 
BgL_method2705z00_1273 = 
VECTOR_REF(BgL_bucketz00_1285,BgL_kz00_1297); } } } } } } } } } } 
{ /* ./Effect/spread.scm 55 */
obj_t BgL_auxz00_2765;
BgL_auxz00_2765 = 
PROCEDURE_ENTRY(BgL_method2705z00_1273)(BgL_method2705z00_1273, 
(obj_t)(BgL_arg3123z00_1077), BEOA); 
BgL_res3375z00_1298 = 
CBOOL(BgL_auxz00_2765); } } BgL_res3375z00_1298; } } 
{ /* ./Effect/spread.scm 56 */
BgL_nodez00_bglt BgL_arg3128z00_1078;
BgL_arg3128z00_1078 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1073))->BgL_argz00); 
{ /* ./Effect/spread.scm 56 */
bool_t BgL_res3378z00_1326;
{ /* ./Effect/spread.scm 56 */
obj_t BgL_method2705z00_1301;
{ /* ./Effect/spread.scm 56 */
BgL_objectz00_bglt BgL_objz00_1302;
BgL_objz00_1302 = 
(BgL_objectz00_bglt)(BgL_arg3128z00_1078); 
{ /* ./Effect/spread.scm 56 */
long BgL_objzd2classzd2numz00_1303;
BgL_objzd2classzd2numz00_1303 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1302); 
{ /* ./Effect/spread.scm 56 */
obj_t BgL_arg2017z00_1304;
{ /* ./Effect/spread.scm 56 */
int BgL_auxz00_2773;
BgL_auxz00_2773 = 
(int)(((long)1)); 
BgL_arg2017z00_1304 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2773); } 
{ /* ./Effect/spread.scm 56 */
int BgL_offsetz00_1307;
BgL_offsetz00_1307 = 
(int)(BgL_objzd2classzd2numz00_1303); 
{ /* ./Effect/spread.scm 56 */
long BgL_offsetz00_1308;
{ /* ./Effect/spread.scm 56 */
long BgL_auxz00_2777;
BgL_auxz00_2777 = 
(long)(BgL_offsetz00_1307); 
BgL_offsetz00_1308 = 
(BgL_auxz00_2777-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 56 */
long BgL_modz00_1309;
{ /* ./Effect/spread.scm 56 */
int BgL_arg2028z00_1310;
BgL_arg2028z00_1310 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 56 */
long BgL_n2z00_1318;
BgL_n2z00_1318 = 
(long)(BgL_arg2028z00_1310); 
BgL_modz00_1309 = 
(BgL_offsetz00_1308/BgL_n2z00_1318); } } 
{ /* ./Effect/spread.scm 56 */
long BgL_restz00_1311;
{ /* ./Effect/spread.scm 56 */
int BgL_arg2024z00_1312;
BgL_arg2024z00_1312 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 56 */
long BgL_n2z00_1321;
BgL_n2z00_1321 = 
(long)(BgL_arg2024z00_1312); 
BgL_restz00_1311 = 
(BgL_offsetz00_1308%BgL_n2z00_1321); } } 
{ /* ./Effect/spread.scm 56 */

{ /* ./Effect/spread.scm 56 */
obj_t BgL_bucketz00_1313;
{ /* ./Effect/spread.scm 56 */
int BgL_kz00_1323;
BgL_kz00_1323 = 
(int)(BgL_modz00_1309); 
BgL_bucketz00_1313 = 
VECTOR_REF(BgL_arg2017z00_1304,BgL_kz00_1323); } 
{ /* ./Effect/spread.scm 56 */
int BgL_kz00_1325;
BgL_kz00_1325 = 
(int)(BgL_restz00_1311); 
BgL_method2705z00_1301 = 
VECTOR_REF(BgL_bucketz00_1313,BgL_kz00_1325); } } } } } } } } } } 
{ /* ./Effect/spread.scm 56 */
obj_t BgL_auxz00_2790;
BgL_auxz00_2790 = 
PROCEDURE_ENTRY(BgL_method2705z00_1301)(BgL_method2705z00_1301, 
(obj_t)(BgL_arg3128z00_1078), BEOA); 
BgL_res3378z00_1326 = 
CBOOL(BgL_auxz00_2790); } } BgL_res3378z00_1326; } } 
BgL_auxz00_2744 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_2744);} } } 
}



/* spread-side-effect!-app2711 */
obj_t BGl_spreadzd2sidezd2effectz12zd2app2711zc0zzeffect_spreadz00(obj_t BgL_envz00_2028, obj_t BgL_nodez00_2029)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 43 */
{ 
BgL_appz00_bglt BgL_nodez00_1061;
BgL_nodez00_1061 = 
(BgL_appz00_bglt)(BgL_nodez00_2029); 
{ /* ./Effect/spread.scm 45 */
obj_t BgL_resz00_1065;
{ /* ./Effect/spread.scm 45 */
bool_t BgL__ortest_2664z00_1066;
{ /* ./Effect/spread.scm 45 */
obj_t BgL_arg3113z00_1070;
BgL_arg3113z00_1070 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1061))->BgL_argsz00); 
BgL__ortest_2664z00_1066 = 
BGl_spreadzd2sidezd2effectza2z12zb0zzeffect_spreadz00(BgL_arg3113z00_1070); } 
if(BgL__ortest_2664z00_1066)
{ /* ./Effect/spread.scm 45 */
BgL_resz00_1065 = 
BBOOL(BgL__ortest_2664z00_1066); }  else 
{ /* ./Effect/spread.scm 46 */
BgL_funz00_bglt BgL_obj1302z00_1268;
{ /* ./Effect/spread.scm 46 */
BgL_valuez00_bglt BgL_auxz00_2801;
{ /* ./Effect/spread.scm 46 */
BgL_variablez00_bglt BgL_arg3106z00_1068;
{ /* ./Effect/spread.scm 46 */
BgL_varz00_bglt BgL_arg3109z00_1069;
BgL_arg3109z00_1069 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1061))->BgL_funz00); 
BgL_arg3106z00_1068 = 
(((BgL_varz00_bglt)CREF(BgL_arg3109z00_1069))->BgL_variablez00); } 
BgL_auxz00_2801 = 
(((BgL_variablez00_bglt)CREF(BgL_arg3106z00_1068))->BgL_valuez00); } 
BgL_obj1302z00_1268 = 
(BgL_funz00_bglt)(BgL_auxz00_2801); } 
BgL_resz00_1065 = 
(((BgL_funz00_bglt)CREF(BgL_obj1302z00_1268))->BgL_sidezd2effectzf3z21); } } 
{ /* ./Effect/spread.scm 47 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1269;obj_t BgL_val1579z00_1270;
BgL_obj1580z00_1269 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1061); 
BgL_val1579z00_1270 = BgL_resz00_1065; 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1269))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1270), BUNSPEC); } 
return BgL_resz00_1065;} } } 
}



/* spread-side-effect!-sequence2709 */
obj_t BGl_spreadzd2sidezd2effectz12zd2sequence2709zc0zzeffect_spreadz00(obj_t BgL_envz00_2030, obj_t BgL_nodez00_2031)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 35 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1054;
{ /* ./Effect/spread.scm 36 */
bool_t BgL_auxz00_2810;
BgL_nodez00_1054 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2031); 
{ /* ./Effect/spread.scm 36 */
bool_t BgL_resz00_1057;
{ /* ./Effect/spread.scm 36 */
obj_t BgL_arg3092z00_1058;
BgL_arg3092z00_1058 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1054))->BgL_nodesz00); 
BgL_resz00_1057 = 
BGl_spreadzd2sidezd2effectza2z12zb0zzeffect_spreadz00(BgL_arg3092z00_1058); } 
{ /* ./Effect/spread.scm 37 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1262;obj_t BgL_val1579z00_1263;
BgL_obj1580z00_1262 = 
(BgL_nodezf2effectzf2_bglt)(BgL_nodez00_1054); 
BgL_val1579z00_1263 = 
BBOOL(BgL_resz00_1057); 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1262))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1263), BUNSPEC); } 
BgL_auxz00_2810 = BgL_resz00_1057; } 
return 
BBOOL(BgL_auxz00_2810);} } } 
}



/* spread-side-effect!-var2707 */
obj_t BGl_spreadzd2sidezd2effectz12zd2var2707zc0zzeffect_spreadz00(obj_t BgL_envz00_2032, obj_t BgL_nodez00_2033)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 29 */
{ 
BgL_varz00_bglt BgL_nodez00_1045;
{ /* ./Effect/spread.scm 30 */
bool_t BgL_auxz00_2818;
BgL_nodez00_1045 = 
(BgL_varz00_bglt)(BgL_nodez00_2033); 
{ /* ./Effect/spread.scm 30 */
bool_t BgL_testz00_2819;
{ /* ./Effect/spread.scm 30 */
obj_t BgL_auxz00_2823;obj_t BgL_auxz00_2820;
BgL_auxz00_2823 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Effect/spread.scm 30 */
BgL_variablez00_bglt BgL_arg3081z00_1051;
BgL_arg3081z00_1051 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1045))->BgL_variablez00); 
BgL_auxz00_2820 = 
(((BgL_variablez00_bglt)CREF(BgL_arg3081z00_1051))->BgL_accessz00); } 
BgL_testz00_2819 = 
(BgL_auxz00_2820==BgL_auxz00_2823); } 
if(BgL_testz00_2819)
{ /* ./Effect/spread.scm 30 */
BgL_auxz00_2818 = ((bool_t)0)
; }  else 
{ /* ./Effect/spread.scm 30 */
BgL_auxz00_2818 = ((bool_t)1)
; } } 
return 
BBOOL(BgL_auxz00_2818);} } } 
}



/* spread-side-effect! */
BGL_EXPORTED_DEF bool_t BGl_spreadzd2sidezd2effectz12z12zzeffect_spreadz00(BgL_nodez00_bglt BgL_nodez00_1)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 23 */
{ /* ./Effect/spread.scm 23 */
obj_t BgL_method2705z00_1953;
{ /* ./Effect/spread.scm 23 */
BgL_objectz00_bglt BgL_objz00_1954;
BgL_objz00_1954 = 
(BgL_objectz00_bglt)(BgL_nodez00_1); 
{ /* ./Effect/spread.scm 23 */
long BgL_objzd2classzd2numz00_1955;
BgL_objzd2classzd2numz00_1955 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1954); 
{ /* ./Effect/spread.scm 23 */
obj_t BgL_arg2017z00_1956;
{ /* ./Effect/spread.scm 23 */
int BgL_auxz00_2830;
BgL_auxz00_2830 = 
(int)(((long)1)); 
BgL_arg2017z00_1956 = 
PROCEDURE_REF(BGl_spreadzd2sidezd2effectz12zd2envzc0zzeffect_spreadz00, BgL_auxz00_2830); } 
{ /* ./Effect/spread.scm 23 */
int BgL_offsetz00_1959;
BgL_offsetz00_1959 = 
(int)(BgL_objzd2classzd2numz00_1955); 
{ /* ./Effect/spread.scm 23 */
long BgL_offsetz00_1960;
{ /* ./Effect/spread.scm 23 */
long BgL_auxz00_2834;
BgL_auxz00_2834 = 
(long)(BgL_offsetz00_1959); 
BgL_offsetz00_1960 = 
(BgL_auxz00_2834-OBJECT_TYPE); } 
{ /* ./Effect/spread.scm 23 */
long BgL_modz00_1961;
{ /* ./Effect/spread.scm 23 */
int BgL_arg2028z00_1962;
BgL_arg2028z00_1962 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 23 */
long BgL_n2z00_1970;
BgL_n2z00_1970 = 
(long)(BgL_arg2028z00_1962); 
BgL_modz00_1961 = 
(BgL_offsetz00_1960/BgL_n2z00_1970); } } 
{ /* ./Effect/spread.scm 23 */
long BgL_restz00_1963;
{ /* ./Effect/spread.scm 23 */
int BgL_arg2024z00_1964;
BgL_arg2024z00_1964 = 
(int)(((long)8)); 
{ /* ./Effect/spread.scm 23 */
long BgL_n2z00_1973;
BgL_n2z00_1973 = 
(long)(BgL_arg2024z00_1964); 
BgL_restz00_1963 = 
(BgL_offsetz00_1960%BgL_n2z00_1973); } } 
{ /* ./Effect/spread.scm 23 */

{ /* ./Effect/spread.scm 23 */
obj_t BgL_bucketz00_1965;
{ /* ./Effect/spread.scm 23 */
int BgL_kz00_1975;
BgL_kz00_1975 = 
(int)(BgL_modz00_1961); 
BgL_bucketz00_1965 = 
VECTOR_REF(BgL_arg2017z00_1956,BgL_kz00_1975); } 
{ /* ./Effect/spread.scm 23 */
int BgL_kz00_1977;
BgL_kz00_1977 = 
(int)(BgL_restz00_1963); 
BgL_method2705z00_1953 = 
VECTOR_REF(BgL_bucketz00_1965,BgL_kz00_1977); } } } } } } } } } } 
{ /* ./Effect/spread.scm 23 */
obj_t BgL_auxz00_2847;
BgL_auxz00_2847 = 
PROCEDURE_ENTRY(BgL_method2705z00_1953)(BgL_method2705z00_1953, 
(obj_t)(BgL_nodez00_1), BEOA); 
return 
CBOOL(BgL_auxz00_2847);} } } 
}



/* _spread-side-effect!3444 */
obj_t BGl__spreadzd2sidezd2effectz123444z12zzeffect_spreadz00(obj_t BgL_envz00_1978, obj_t BgL_nodez00_1979)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 23 */
{ /* ./Effect/spread.scm 23 */
bool_t BgL_auxz00_2852;
BgL_auxz00_2852 = 
BGl_spreadzd2sidezd2effectz12z12zzeffect_spreadz00(
(BgL_nodez00_bglt)(BgL_nodez00_1979)); 
return 
BBOOL(BgL_auxz00_2852);} } 
}



/* _spread-side-effect!-default2703 */
obj_t BGl__spreadzd2sidezd2effectz12zd2default2703zc0zzeffect_spreadz00(obj_t BgL_envz00_2034, obj_t BgL_nodez00_2035)
{ AN_OBJECT;
{ /* ./Effect/spread.scm 15 */
{ /* ./Effect/spread.scm 24 */
bool_t BgL_auxz00_2856;
BgL_auxz00_2856 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_2856);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzeffect_spreadz00()
{ AN_OBJECT;
{ /* ./Effect/spread.scm 15 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "effect_spread"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "effect_spread"); 
return 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "effect_spread");} 
}

